diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-macro.cc')
| -rw-r--r-- | gcc/melt/generated/warmelt-macro.cc | 17345 |
1 files changed, 6240 insertions, 11105 deletions
diff --git a/gcc/melt/generated/warmelt-macro.cc b/gcc/melt/generated/warmelt-macro.cc index 33a2bb81e19..fcfa9b415c7 100644 --- a/gcc/melt/generated/warmelt-macro.cc +++ b/gcc/melt/generated/warmelt-macro.cc @@ -1157,8 +1157,7 @@ meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE fromline 1719 */ - /* classy proc frame meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE */ - MeltFrame_meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE + /* classy proc frame meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE */ MeltFrame_meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE fromline 1748*/ #if ENABLE_CHECKING @@ -1171,8 +1170,7 @@ meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("REGISTER_DIAG_GIMPLE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1182,8 +1180,7 @@ meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-macro.melt:52:/ getarg"); - /*_.C__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -1196,12 +1193,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.C__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-macro.melt:54:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1219,8 +1214,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-macro.melt:52:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; @@ -1301,8 +1295,7 @@ meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ fromline 1719 */ - /* classy proc frame meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ */ - MeltFrame_meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ + /* classy proc frame meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ */ MeltFrame_meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ fromline 1748*/ #if ENABLE_CHECKING @@ -1315,8 +1308,7 @@ meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("REGISTER_DIAG_GIMPLE_SEQ", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1326,8 +1318,7 @@ meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-macro.melt:57:/ getarg"); - /*_.C__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -1340,12 +1331,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.C__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-macro.melt:59:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1363,8 +1352,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-macro.melt:57:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; @@ -1445,8 +1433,7 @@ meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE(meltclosure_ptr_t meltclosp_, melt_ /* end of frame for routine meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE fromline 1719 */ - /* classy proc frame meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE */ - MeltFrame_meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE + /* classy proc frame meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE */ MeltFrame_meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE fromline 1748*/ #if ENABLE_CHECKING @@ -1459,8 +1446,7 @@ meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE(meltclosure_ptr_t meltclosp_, melt_ #define meltframe meltfram__ melt_trace_start("REGISTER_DIAG_TREE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1470,8 +1456,7 @@ meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE(meltclosure_ptr_t meltclosp_, melt_ /*getarg#0*/ MELT_LOCATION("warmelt-macro.melt:62:/ getarg"); - /*_.C__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -1484,12 +1469,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.C__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-macro.melt:64:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1507,8 +1490,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-macro.melt:62:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; @@ -1589,8 +1571,7 @@ meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK(meltclosure_ptr_t meltclosp_ /* end of frame for routine meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK fromline 1719 */ - /* classy proc frame meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK */ - MeltFrame_meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK + /* classy proc frame meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK */ MeltFrame_meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK fromline 1748*/ #if ENABLE_CHECKING @@ -1603,8 +1584,7 @@ meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK(meltclosure_ptr_t meltclosp_ #define meltframe meltfram__ melt_trace_start("REGISTER_DIAG_BASIC_BLOCK", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1614,8 +1594,7 @@ meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK(meltclosure_ptr_t meltclosp_ /*getarg#0*/ MELT_LOCATION("warmelt-macro.melt:67:/ getarg"); - /*_.C__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -1628,12 +1607,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.C__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-macro.melt:69:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1651,8 +1628,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-macro.melt:67:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; @@ -1733,8 +1709,7 @@ meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE(meltclosure_ptr_t meltclosp_, melt_ /* end of frame for routine meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE fromline 1719 */ - /* classy proc frame meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE */ - MeltFrame_meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE + /* classy proc frame meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE */ MeltFrame_meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE fromline 1748*/ #if ENABLE_CHECKING @@ -1747,8 +1722,7 @@ meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE(meltclosure_ptr_t meltclosp_, melt_ #define meltframe meltfram__ melt_trace_start("REGISTER_DIAG_EDGE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1758,8 +1732,7 @@ meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE(meltclosure_ptr_t meltclosp_, melt_ /*getarg#0*/ MELT_LOCATION("warmelt-macro.melt:72:/ getarg"); - /*_.C__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -1772,12 +1745,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.C__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-macro.melt:74:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1795,8 +1766,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-macro.melt:72:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; @@ -1877,8 +1847,7 @@ meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO(meltclosure_ptr_t meltclosp_, me /* end of frame for routine meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO fromline 1719 */ - /* classy proc frame meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO */ - MeltFrame_meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO + /* classy proc frame meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO */ MeltFrame_meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO fromline 1748*/ #if ENABLE_CHECKING @@ -1891,8 +1860,7 @@ meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO(meltclosure_ptr_t meltclosp_, me #define meltframe meltfram__ melt_trace_start("DIAGNOSTIC_ARGS_MACRO", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1902,30 +1870,26 @@ meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO(meltclosure_ptr_t meltclosp_, me /*getarg#0*/ MELT_LOCATION("warmelt-macro.melt:98:/ getarg"); - /*_.SEXP__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.SEXP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MEXPANDER__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; @@ -1957,8 +1921,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)) @@ -1967,8 +1930,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-macro.melt:101:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2001,20 +1963,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "diagnostic_args_macro sexp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXP__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 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__V7*/ meltfptr[6] = 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___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:101:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -2027,8 +1985,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-macro.melt:101:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -2037,11 +1994,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2082,12 +2037,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-macro.melt:103:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -2116,31 +2069,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 103; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXP__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 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__V10*/ meltfptr[9] = 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___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:103:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:103:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2152,8 +2099,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-macro.melt:105:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SEXP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[3]))) ) /*then*/ @@ -2164,8 +2110,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXP__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V12*/ - meltfptr[5] = slot; + /*_.SLOC__V12*/ meltfptr[5] = slot; }; ; } @@ -2176,8 +2121,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-macro.melt:106:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SEXP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1]))) ) /*then*/ @@ -2188,8 +2132,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXP__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); - /*_.SEXCONT__V13*/ - meltfptr[12] = slot; + /*_.SEXCONT__V13*/ meltfptr[12] = slot; }; ; } @@ -2209,12 +2152,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L4*/ - meltfnum[0] = + /*_#IS_LIST__L4*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.SEXCONT__V13*/ meltfptr[12])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-macro.melt:108:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L4*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[14] = (/*nil*/NULL);; @@ -2243,31 +2184,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 108; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXCONT__V13*/ meltfptr[12]; - /*_.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-macro.melt:108:/ 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-macro.melt:108:/ clear"); - /*clear*/ /*_#IS_LIST__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_LIST__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2288,12 +2223,10 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[5]); - /*_.TCONT__V18*/ - meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SEXCONT__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.TCONT__V18*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SEXCONT__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#TCONTLEN__L5*/ - meltfnum[1] = + /*_#TCONTLEN__L5*/ meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.TCONT__V18*/ meltfptr[14])));; #if MELT_HAVE_DEBUG @@ -2305,12 +2238,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L6*/ - meltfnum[0] = + /*_#IS_MULTIPLE__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.TCONT__V18*/ meltfptr[14])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-macro.melt:113:/ cond"); - /*cond*/ - if (/*_#IS_MULTIPLE__L6*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_MULTIPLE__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V20*/ meltfptr[19] = (/*nil*/NULL);; @@ -2341,31 +2272,25 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.TCONT__V18*/ meltfptr[14]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXCONT__V13*/ meltfptr[12]; - /*_.MELT_ASSERT_FAILURE_FUN__V21*/ - meltfptr[20] = 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20] = 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V20*/ - meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];; + /*_._IFELSE___V20*/ meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:113:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20] = 0 ; } ; } ; - /*_.IFCPP___V19*/ - meltfptr[18] = /*_._IFELSE___V20*/ meltfptr[19];; + /*_.IFCPP___V19*/ meltfptr[18] = /*_._IFELSE___V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:113:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L6*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_._IFELSE___V20*/ meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2383,12 +2308,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#gtI__L7*/ - meltfnum[0] = + /*_#gtI__L7*/ meltfnum[0] = ((/*_#TCONTLEN__L5*/ meltfnum[1]) > (0));; MELT_LOCATION("warmelt-macro.melt:114:/ cond"); - /*cond*/ - if (/*_#gtI__L7*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#gtI__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V23*/ meltfptr[19] = (/*nil*/NULL);; @@ -2419,31 +2342,25 @@ meltlab_endgetargs: argtab[3].meltbp_long = /*_#TCONTLEN__L5*/ meltfnum[1]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TCONT__V18*/ meltfptr[14]; - /*_.MELT_ASSERT_FAILURE_FUN__V24*/ - meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V23*/ - meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; + /*_._IFELSE___V23*/ meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:114:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = 0 ; } ; } ; - /*_.IFCPP___V22*/ - meltfptr[20] = /*_._IFELSE___V23*/ meltfptr[19];; + /*_.IFCPP___V22*/ meltfptr[20] = /*_._IFELSE___V23*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:114:/ clear"); - /*clear*/ /*_#gtI__L7*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#gtI__L7*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ - meltfptr[19] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2455,12 +2372,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#exeqI__L8*/ - meltfnum[0] = + /*_#exeqI__L8*/ meltfnum[0] = ((/*_#TCONTLEN__L5*/ meltfnum[1]) != (3));; MELT_LOCATION("warmelt-macro.melt:115:/ cond"); - /*cond*/ - if (/*_#exeqI__L8*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#exeqI__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2470,8 +2385,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-macro.melt:116:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.SLOC__V12*/ meltfptr[5]), ( "DIAGNOSTIC_ARGS_MACRO needs two args: <nbargs> <vect>"), (melt_ptr_t)0); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.SLOC__V12*/ meltfptr[5]), ( "DIAGNOSTIC_ARGS_MACRO needs two args: <nbargs> <vect>"), (melt_ptr_t)0); } ; @@ -2499,8 +2413,7 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = " args == "; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.TCONT__V18*/ meltfptr[14]; - /*_.STRING4OUT__V26*/ - meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.STRING4OUT__V26*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -2519,16 +2432,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_IS_BOOTSTRAPPING__L9*/ - meltfnum[8] = + /*_#MELT_IS_BOOTSTRAPPING__L9*/ meltfnum[8] = (melt_flag_bootstrapping);; /*^compute*/ - /*_#NOT__L10*/ - meltfnum[9] = + /*_#NOT__L10*/ meltfnum[9] = (!(/*_#MELT_IS_BOOTSTRAPPING__L9*/ meltfnum[8]));; MELT_LOCATION("warmelt-macro.melt:125:/ cond"); - /*cond*/ - if (/*_#NOT__L10*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#NOT__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V28*/ meltfptr[27] = (/*nil*/NULL);; @@ -2561,34 +2471,27 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXCONT__V13*/ meltfptr[12]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.TCONT__V18*/ meltfptr[14]; - /*_.MELT_ASSERT_FAILURE_FUN__V29*/ - meltfptr[28] = 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 MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = 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 MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V28*/ - meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28];; + /*_._IFELSE___V28*/ meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:125:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = 0 ; } ; } ; - /*_.IFCPP___V27*/ - meltfptr[26] = /*_._IFELSE___V28*/ meltfptr[27];; + /*_.IFCPP___V27*/ meltfptr[26] = /*_._IFELSE___V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:125:/ clear"); - /*clear*/ /*_#MELT_IS_BOOTSTRAPPING__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_IS_BOOTSTRAPPING__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L10*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#NOT__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_._IFELSE___V28*/ meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2599,8 +2502,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-macro.melt:127:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-macro.melt:127:/ locexp"); @@ -2615,30 +2517,23 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-macro.melt:115:/ quasiblock"); - /*_.PROGN___V31*/ - meltfptr[27] = /*_.RETURN___V30*/ meltfptr[28];; + /*_.PROGN___V31*/ meltfptr[27] = /*_.RETURN___V30*/ meltfptr[28];; /*^compute*/ - /*_._IF___V25*/ - meltfptr[23] = /*_.PROGN___V31*/ meltfptr[27];; + /*_._IF___V25*/ meltfptr[23] = /*_.PROGN___V31*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:115:/ clear"); - /*clear*/ /*_.STRING4OUT__V26*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.STRING4OUT__V26*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.IFCPP___V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V30*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.RETURN___V30*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V31*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.PROGN___V31*/ meltfptr[27] = 0 ; } ; } @@ -2651,8 +2546,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-macro.melt:129:/ quasiblock"); - /*_.SEXPNBARG__V33*/ - meltfptr[26] = + /*_.SEXPNBARG__V33*/ meltfptr[26] = (melt_multiple_nth((melt_ptr_t)(/*_.TCONT__V18*/ meltfptr[14]), (1)));; MELT_CHECK_SIGNAL(); @@ -2668,12 +2562,10 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MACROVARNBARG__V34*/ - meltfptr[28] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.SEXPNBARG__V33*/ meltfptr[26]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MACROVARNBARG__V34*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.SEXPNBARG__V33*/ meltfptr[26]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.SEXPVARVECT__V35*/ - meltfptr[27] = + /*_.SEXPVARVECT__V35*/ meltfptr[27] = (melt_multiple_nth((melt_ptr_t)(/*_.TCONT__V18*/ meltfptr[14]), (2)));; MELT_CHECK_SIGNAL(); @@ -2689,19 +2581,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MACROVARVECT__V36*/ - meltfptr[35] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.SEXPVARVECT__V35*/ meltfptr[27]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MACROVARVECT__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.SEXPVARVECT__V35*/ meltfptr[27]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L11*/ - meltfnum[8] = + /*_#IS_NOT_A__L11*/ meltfnum[8] = !melt_is_instance_of((melt_ptr_t)(/*_.MACROVARNBARG__V34*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-macro.melt:135:/ cond"); - /*cond*/ - if (/*_#IS_NOT_A__L11*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#IS_NOT_A__L11*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2711,15 +2600,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-macro.melt:136:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.SLOC__V12*/ meltfptr[5]), ( "(DIAGNOSTIC_ARGS_MACRO <nbargs> <vect>) not variable <nbargs>"), (melt_ptr_t)0); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.SLOC__V12*/ meltfptr[5]), ( "(DIAGNOSTIC_ARGS_MACRO <nbargs> <vect>) not variable <nbargs>"), (melt_ptr_t)0); } ; MELT_LOCATION("warmelt-macro.melt:138:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-macro.melt:138:/ locexp"); @@ -2734,24 +2621,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-macro.melt:135:/ quasiblock"); - /*_.PROGN___V39*/ - meltfptr[38] = /*_.RETURN___V38*/ meltfptr[37];; + /*_.PROGN___V39*/ meltfptr[38] = /*_.RETURN___V38*/ meltfptr[37];; /*^compute*/ - /*_._IF___V37*/ - meltfptr[36] = /*_.PROGN___V39*/ meltfptr[38];; + /*_._IF___V37*/ meltfptr[36] = /*_.PROGN___V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:135:/ clear"); - /*clear*/ /*_.RETURN___V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.RETURN___V38*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V39*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.PROGN___V39*/ meltfptr[38] = 0 ; } ; } @@ -2765,12 +2647,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_NOT_A__L12*/ - meltfnum[9] = + /*_#IS_NOT_A__L12*/ meltfnum[9] = !melt_is_instance_of((melt_ptr_t)(/*_.MACROVARVECT__V36*/ meltfptr[35]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-macro.melt:139:/ cond"); - /*cond*/ - if (/*_#IS_NOT_A__L12*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#IS_NOT_A__L12*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2780,15 +2660,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-macro.melt:140:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.SLOC__V12*/ meltfptr[5]), ( "(DIAGNOSTIC_ARGS_MACRO <nbargs> <vect>) not variable <vect>"), (melt_ptr_t)0); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.SLOC__V12*/ meltfptr[5]), ( "(DIAGNOSTIC_ARGS_MACRO <nbargs> <vect>) not variable <vect>"), (melt_ptr_t)0); } ; MELT_LOCATION("warmelt-macro.melt:142:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-macro.melt:142:/ locexp"); @@ -2803,24 +2681,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-macro.melt:139:/ quasiblock"); - /*_.PROGN___V42*/ - meltfptr[41] = /*_.RETURN___V41*/ meltfptr[38];; + /*_.PROGN___V42*/ meltfptr[41] = /*_.RETURN___V41*/ meltfptr[38];; /*^compute*/ - /*_._IF___V40*/ - meltfptr[37] = /*_.PROGN___V42*/ meltfptr[41];; + /*_._IF___V40*/ meltfptr[37] = /*_.PROGN___V42*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:139:/ clear"); - /*clear*/ /*_.RETURN___V41*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.RETURN___V41*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V42*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.PROGN___V42*/ meltfptr[41] = 0 ; } ; } @@ -2833,20 +2706,16 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-macro.melt:143:/ quasiblock"); - /*_.HOOK_MELT_MAKE_LOCATION__V44*/ - meltfptr[41] = + /*_.HOOK_MELT_MAKE_LOCATION__V44*/ meltfptr[41] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 144) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V45*/ - meltfptr[44] = + /*_.HOOK_MELT_MAKE_LOCATION__V45*/ meltfptr[44] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 144) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V46*/ - meltfptr[45] = + /*_.HOOK_MELT_MAKE_LOCATION__V46*/ meltfptr[45] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 145) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V47*/ - meltfptr[46] = + /*_.HOOK_MELT_MAKE_LOCATION__V47*/ meltfptr[46] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 145) ;; MELT_CHECK_SIGNAL(); @@ -2860,8 +2729,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_13_BOX*/ meltfrout->tabval[13]); /*^apply.arg*/ argtab[1].meltbp_long = 0; - /*_.MELT_MAKE_SEXPR__V48*/ - meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V47*/ meltfptr[46]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V47*/ meltfptr[46]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -2876,20 +2744,16 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_12_DIAGPOSBOX*/ meltfrout->tabval[12]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V48*/ meltfptr[47]; - /*_.MELT_MAKE_SEXPR__V49*/ - meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V46*/ meltfptr[45]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V46*/ meltfptr[45]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V50*/ - meltfptr[49] = + /*_.HOOK_MELT_MAKE_LOCATION__V50*/ meltfptr[49] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 146) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V51*/ - meltfptr[50] = + /*_.HOOK_MELT_MAKE_LOCATION__V51*/ meltfptr[50] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 146) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V52*/ - meltfptr[51] = + /*_.HOOK_MELT_MAKE_LOCATION__V52*/ meltfptr[51] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 150) ;; MELT_CHECK_SIGNAL(); @@ -2905,8 +2769,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_23_DISCR_MAP_OBJECTS*/ meltfrout->tabval[23]); /*^apply.arg*/ argtab[2].meltbp_long = 19; - /*_.MELT_MAKE_SEXPR__V53*/ - meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V52*/ meltfptr[51]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V52*/ meltfptr[51]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -2937,8 +2800,7 @@ meltlab_endgetargs: argtab[8].meltbp_aptr = (melt_ptr_t*) &(/*!konst_21_DIAG_STATE*/ meltfrout->tabval[21]); /*^apply.arg*/ argtab[9].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V53*/ meltfptr[52]; - /*_.MELT_MAKE_SEXPR__V54*/ - meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V51*/ meltfptr[50]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V51*/ meltfptr[50]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -2953,8 +2815,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V54*/ meltfptr[53]; - /*_.MELT_MAKE_SEXPR__V55*/ - meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V50*/ meltfptr[49]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V50*/ meltfptr[49]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -2969,12 +2830,10 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V49*/ meltfptr[48]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V55*/ meltfptr[54]; - /*_.MELT_MAKE_SEXPR__V56*/ - meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V45*/ meltfptr[44]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V45*/ meltfptr[44]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V57*/ - meltfptr[56] = + /*_.HOOK_MELT_MAKE_LOCATION__V57*/ meltfptr[56] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 152) ;; MELT_CHECK_SIGNAL(); @@ -2990,16 +2849,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 0; - /*_.MELT_MAKE_SEXPR__V58*/ - meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V57*/ meltfptr[56]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V57*/ meltfptr[56]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V59*/ - meltfptr[58] = + /*_.HOOK_MELT_MAKE_LOCATION__V59*/ meltfptr[58] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 153) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V60*/ - meltfptr[59] = + /*_.HOOK_MELT_MAKE_LOCATION__V60*/ meltfptr[59] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 155) ;; MELT_CHECK_SIGNAL(); @@ -3015,20 +2871,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_12_DIAGPOSBOX*/ meltfrout->tabval[12]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; - /*_.MELT_MAKE_SEXPR__V61*/ - meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V60*/ meltfptr[59]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V60*/ meltfptr[59]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V62*/ - meltfptr[61] = + /*_.HOOK_MELT_MAKE_LOCATION__V62*/ meltfptr[61] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 156) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V63*/ - meltfptr[62] = + /*_.HOOK_MELT_MAKE_LOCATION__V63*/ meltfptr[62] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 157) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V64*/ - meltfptr[63] = + /*_.HOOK_MELT_MAKE_LOCATION__V64*/ meltfptr[63] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 158) ;; MELT_CHECK_SIGNAL(); @@ -3042,8 +2894,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_30_EXIT*/ meltfrout->tabval[30]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_26_ARGLOOP*/ meltfrout->tabval[26]); - /*_.MELT_MAKE_SEXPR__V65*/ - meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V64*/ meltfptr[63]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V64*/ meltfptr[63]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3058,16 +2909,13 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V65*/ meltfptr[64]; - /*_.MELT_MAKE_SEXPR__V66*/ - meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V63*/ meltfptr[62]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V66*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V63*/ meltfptr[62]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V67*/ - meltfptr[66] = + /*_.HOOK_MELT_MAKE_LOCATION__V67*/ meltfptr[66] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 159) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V68*/ - meltfptr[67] = + /*_.HOOK_MELT_MAKE_LOCATION__V68*/ meltfptr[67] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 159) ;; MELT_CHECK_SIGNAL(); @@ -3081,24 +2929,19 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_32_CSTRING*/ meltfrout->tabval[32]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_33_STR*/ meltfrout->tabval[33]); - /*_.MELT_MAKE_SEXPR__V69*/ - meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V68*/ meltfptr[67]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V68*/ meltfptr[67]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V70*/ - meltfptr[69] = + /*_.HOOK_MELT_MAKE_LOCATION__V70*/ meltfptr[69] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 160) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V71*/ - meltfptr[70] = + /*_.HOOK_MELT_MAKE_LOCATION__V71*/ meltfptr[70] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 160) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V72*/ - meltfptr[71] = + /*_.HOOK_MELT_MAKE_LOCATION__V72*/ meltfptr[71] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 160) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V73*/ - meltfptr[72] = + /*_.HOOK_MELT_MAKE_LOCATION__V73*/ meltfptr[72] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 160) ;; MELT_CHECK_SIGNAL(); @@ -3112,8 +2955,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_36_CONSTANT_BOX*/ meltfrout->tabval[36]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_33_STR*/ meltfrout->tabval[33]); - /*_.MELT_MAKE_SEXPR__V74*/ - meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V73*/ meltfptr[72]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V74*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V73*/ meltfptr[72]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3128,8 +2970,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_35_BS*/ meltfrout->tabval[35]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V74*/ meltfptr[73]; - /*_.MELT_MAKE_SEXPR__V75*/ - meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V72*/ meltfptr[71]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V75*/ meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V72*/ meltfptr[71]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3142,16 +2983,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V75*/ meltfptr[74]; - /*_.MELT_MAKE_SEXPR__V76*/ - meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V71*/ meltfptr[70]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V76*/ meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V71*/ meltfptr[70]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V77*/ - meltfptr[76] = + /*_.HOOK_MELT_MAKE_LOCATION__V77*/ meltfptr[76] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 162) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V78*/ - meltfptr[77] = + /*_.HOOK_MELT_MAKE_LOCATION__V78*/ meltfptr[77] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 162) ;; MELT_CHECK_SIGNAL(); @@ -3167,8 +3005,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; - /*_.MELT_MAKE_SEXPR__V79*/ - meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V78*/ meltfptr[77]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V79*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V78*/ meltfptr[77]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -3185,12 +3022,10 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V79*/ meltfptr[78]; - /*_.MELT_MAKE_SEXPR__V80*/ - meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V77*/ meltfptr[76]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V80*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V77*/ meltfptr[76]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V81*/ - meltfptr[80] = + /*_.HOOK_MELT_MAKE_LOCATION__V81*/ meltfptr[80] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 163) ;; MELT_CHECK_SIGNAL(); @@ -3208,8 +3043,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_35_BS*/ meltfrout->tabval[35]); - /*_.MELT_MAKE_SEXPR__V82*/ - meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V81*/ meltfptr[80]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V82*/ meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V81*/ meltfptr[80]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3228,12 +3062,10 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V80*/ meltfptr[79]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V82*/ meltfptr[81]; - /*_.MELT_MAKE_SEXPR__V83*/ - meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V70*/ meltfptr[69]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V83*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V70*/ meltfptr[69]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V84*/ - meltfptr[83] = + /*_.HOOK_MELT_MAKE_LOCATION__V84*/ meltfptr[83] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 165) ;; MELT_CHECK_SIGNAL(); @@ -3245,8 +3077,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); - /*_.MELT_MAKE_SEXPR__V85*/ - meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V84*/ meltfptr[83]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V85*/ meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V84*/ meltfptr[83]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3263,16 +3094,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V83*/ meltfptr[82]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V85*/ meltfptr[84]; - /*_.MELT_MAKE_SEXPR__V86*/ - meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V67*/ meltfptr[66]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V86*/ meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V67*/ meltfptr[66]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V87*/ - meltfptr[86] = + /*_.HOOK_MELT_MAKE_LOCATION__V87*/ meltfptr[86] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 167) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V88*/ - meltfptr[87] = + /*_.HOOK_MELT_MAKE_LOCATION__V88*/ meltfptr[87] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 167) ;; MELT_CHECK_SIGNAL(); @@ -3286,24 +3114,19 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_43_LONG*/ meltfrout->tabval[43]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_44_L*/ meltfrout->tabval[44]); - /*_.MELT_MAKE_SEXPR__V89*/ - meltfptr[88] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V88*/ meltfptr[87]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V89*/ meltfptr[88] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V88*/ meltfptr[87]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V90*/ - meltfptr[89] = + /*_.HOOK_MELT_MAKE_LOCATION__V90*/ meltfptr[89] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 168) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V91*/ - meltfptr[90] = + /*_.HOOK_MELT_MAKE_LOCATION__V91*/ meltfptr[90] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 168) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V92*/ - meltfptr[91] = + /*_.HOOK_MELT_MAKE_LOCATION__V92*/ meltfptr[91] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 168) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V93*/ - meltfptr[92] = + /*_.HOOK_MELT_MAKE_LOCATION__V93*/ meltfptr[92] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 168) ;; MELT_CHECK_SIGNAL(); @@ -3319,8 +3142,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_48_DISCR_STRING*/ meltfrout->tabval[48]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_44_L*/ meltfrout->tabval[44]); - /*_.MELT_MAKE_SEXPR__V94*/ - meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V93*/ meltfptr[92]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V94*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V93*/ meltfptr[92]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3335,8 +3157,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_46_SN*/ meltfrout->tabval[46]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V94*/ meltfptr[93]; - /*_.MELT_MAKE_SEXPR__V95*/ - meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V92*/ meltfptr[91]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V95*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V92*/ meltfptr[91]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3349,16 +3170,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V95*/ meltfptr[94]; - /*_.MELT_MAKE_SEXPR__V96*/ - meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V91*/ meltfptr[90]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V96*/ meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V91*/ meltfptr[90]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V97*/ - meltfptr[96] = + /*_.HOOK_MELT_MAKE_LOCATION__V97*/ meltfptr[96] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 170) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V98*/ - meltfptr[97] = + /*_.HOOK_MELT_MAKE_LOCATION__V98*/ meltfptr[97] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 170) ;; MELT_CHECK_SIGNAL(); @@ -3374,8 +3192,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; - /*_.MELT_MAKE_SEXPR__V99*/ - meltfptr[98] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V98*/ meltfptr[97]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V99*/ meltfptr[98] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V98*/ meltfptr[97]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -3392,12 +3209,10 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V99*/ meltfptr[98]; - /*_.MELT_MAKE_SEXPR__V100*/ - meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V97*/ meltfptr[96]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V100*/ meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V97*/ meltfptr[96]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V101*/ - meltfptr[100] = + /*_.HOOK_MELT_MAKE_LOCATION__V101*/ meltfptr[100] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 171) ;; MELT_CHECK_SIGNAL(); @@ -3415,8 +3230,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_46_SN*/ meltfrout->tabval[46]); - /*_.MELT_MAKE_SEXPR__V102*/ - meltfptr[101] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V101*/ meltfptr[100]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V102*/ meltfptr[101] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V101*/ meltfptr[100]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3435,12 +3249,10 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V100*/ meltfptr[99]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V102*/ meltfptr[101]; - /*_.MELT_MAKE_SEXPR__V103*/ - meltfptr[102] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V90*/ meltfptr[89]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V103*/ meltfptr[102] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V90*/ meltfptr[89]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V104*/ - meltfptr[103] = + /*_.HOOK_MELT_MAKE_LOCATION__V104*/ meltfptr[103] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 173) ;; MELT_CHECK_SIGNAL(); @@ -3452,8 +3264,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); - /*_.MELT_MAKE_SEXPR__V105*/ - meltfptr[104] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V104*/ meltfptr[103]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V105*/ meltfptr[104] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V104*/ meltfptr[103]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3470,16 +3281,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V103*/ meltfptr[102]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V105*/ meltfptr[104]; - /*_.MELT_MAKE_SEXPR__V106*/ - meltfptr[105] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V87*/ meltfptr[86]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V106*/ meltfptr[105] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V87*/ meltfptr[86]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V107*/ - meltfptr[106] = + /*_.HOOK_MELT_MAKE_LOCATION__V107*/ meltfptr[106] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 175) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V108*/ - meltfptr[107] = + /*_.HOOK_MELT_MAKE_LOCATION__V108*/ meltfptr[107] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 175) ;; MELT_CHECK_SIGNAL(); @@ -3493,16 +3301,13 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_55_TREE*/ meltfrout->tabval[55]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_56_TR*/ meltfrout->tabval[56]); - /*_.MELT_MAKE_SEXPR__V109*/ - meltfptr[108] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V108*/ meltfptr[107]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V109*/ meltfptr[108] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V108*/ meltfptr[107]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V110*/ - meltfptr[109] = + /*_.HOOK_MELT_MAKE_LOCATION__V110*/ meltfptr[109] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 176) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V111*/ - meltfptr[110] = + /*_.HOOK_MELT_MAKE_LOCATION__V111*/ meltfptr[110] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 176) ;; MELT_CHECK_SIGNAL(); @@ -3516,8 +3321,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_58_IS_CLOSURE*/ meltfrout->tabval[58]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_59_DIAGV_TREE*/ meltfrout->tabval[59]); - /*_.MELT_MAKE_SEXPR__V112*/ - meltfptr[111] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V111*/ meltfptr[110]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V112*/ meltfptr[111] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V111*/ meltfptr[110]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3536,24 +3340,19 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V112*/ meltfptr[111]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_59_DIAGV_TREE*/ meltfrout->tabval[59]); - /*_.MELT_MAKE_SEXPR__V113*/ - meltfptr[112] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V110*/ meltfptr[109]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V113*/ meltfptr[112] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V110*/ meltfptr[109]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V114*/ - meltfptr[113] = + /*_.HOOK_MELT_MAKE_LOCATION__V114*/ meltfptr[113] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 177) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V115*/ - meltfptr[114] = + /*_.HOOK_MELT_MAKE_LOCATION__V115*/ meltfptr[114] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 177) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V116*/ - meltfptr[115] = + /*_.HOOK_MELT_MAKE_LOCATION__V116*/ meltfptr[115] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 177) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V117*/ - meltfptr[116] = + /*_.HOOK_MELT_MAKE_LOCATION__V117*/ meltfptr[116] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 177) ;; MELT_CHECK_SIGNAL(); @@ -3569,8 +3368,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_56_TR*/ meltfrout->tabval[56]); - /*_.MELT_MAKE_SEXPR__V118*/ - meltfptr[117] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V117*/ meltfptr[116]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V118*/ meltfptr[117] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V117*/ meltfptr[116]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3585,8 +3383,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V118*/ meltfptr[117]; - /*_.MELT_MAKE_SEXPR__V119*/ - meltfptr[118] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V116*/ meltfptr[115]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V119*/ meltfptr[118] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V116*/ meltfptr[115]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3599,16 +3396,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V119*/ meltfptr[118]; - /*_.MELT_MAKE_SEXPR__V120*/ - meltfptr[119] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V115*/ meltfptr[114]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V120*/ meltfptr[119] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V115*/ meltfptr[114]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V121*/ - meltfptr[120] = + /*_.HOOK_MELT_MAKE_LOCATION__V121*/ meltfptr[120] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 179) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V122*/ - meltfptr[121] = + /*_.HOOK_MELT_MAKE_LOCATION__V122*/ meltfptr[121] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 179) ;; MELT_CHECK_SIGNAL(); @@ -3624,8 +3418,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; - /*_.MELT_MAKE_SEXPR__V123*/ - meltfptr[122] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V122*/ meltfptr[121]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V123*/ meltfptr[122] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V122*/ meltfptr[121]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -3642,12 +3435,10 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V123*/ meltfptr[122]; - /*_.MELT_MAKE_SEXPR__V124*/ - meltfptr[123] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V121*/ meltfptr[120]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V124*/ meltfptr[123] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V121*/ meltfptr[120]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V125*/ - meltfptr[124] = + /*_.HOOK_MELT_MAKE_LOCATION__V125*/ meltfptr[124] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 180) ;; MELT_CHECK_SIGNAL(); @@ -3665,8 +3456,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); - /*_.MELT_MAKE_SEXPR__V126*/ - meltfptr[125] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V125*/ meltfptr[124]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V126*/ meltfptr[125] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V125*/ meltfptr[124]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3685,12 +3475,10 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V124*/ meltfptr[123]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V126*/ meltfptr[125]; - /*_.MELT_MAKE_SEXPR__V127*/ - meltfptr[126] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V114*/ meltfptr[113]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V127*/ meltfptr[126] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V114*/ meltfptr[113]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V128*/ - meltfptr[127] = + /*_.HOOK_MELT_MAKE_LOCATION__V128*/ meltfptr[127] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 182) ;; MELT_CHECK_SIGNAL(); @@ -3702,8 +3490,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); - /*_.MELT_MAKE_SEXPR__V129*/ - meltfptr[128] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V128*/ meltfptr[127]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V129*/ meltfptr[128] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V128*/ meltfptr[127]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3722,16 +3509,13 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V127*/ meltfptr[126]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V129*/ meltfptr[128]; - /*_.MELT_MAKE_SEXPR__V130*/ - meltfptr[129] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V107*/ meltfptr[106]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V130*/ meltfptr[129] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V107*/ meltfptr[106]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V131*/ - meltfptr[130] = + /*_.HOOK_MELT_MAKE_LOCATION__V131*/ meltfptr[130] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 184) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V132*/ - meltfptr[131] = + /*_.HOOK_MELT_MAKE_LOCATION__V132*/ meltfptr[131] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 184) ;; MELT_CHECK_SIGNAL(); @@ -3745,16 +3529,13 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_71_GIMPLE*/ meltfrout->tabval[71]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_72_GI*/ meltfrout->tabval[72]); - /*_.MELT_MAKE_SEXPR__V133*/ - meltfptr[132] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V132*/ meltfptr[131]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V133*/ meltfptr[132] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V132*/ meltfptr[131]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V134*/ - meltfptr[133] = + /*_.HOOK_MELT_MAKE_LOCATION__V134*/ meltfptr[133] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 185) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V135*/ - meltfptr[134] = + /*_.HOOK_MELT_MAKE_LOCATION__V135*/ meltfptr[134] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 185) ;; MELT_CHECK_SIGNAL(); @@ -3768,8 +3549,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_58_IS_CLOSURE*/ meltfrout->tabval[58]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_75_DIAGV_GIMPLE*/ meltfrout->tabval[75]); - /*_.MELT_MAKE_SEXPR__V136*/ - meltfptr[135] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V135*/ meltfptr[134]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V136*/ meltfptr[135] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V135*/ meltfptr[134]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3788,24 +3568,19 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V136*/ meltfptr[135]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_75_DIAGV_GIMPLE*/ meltfrout->tabval[75]); - /*_.MELT_MAKE_SEXPR__V137*/ - meltfptr[136] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V134*/ meltfptr[133]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V137*/ meltfptr[136] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V134*/ meltfptr[133]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V138*/ - meltfptr[137] = + /*_.HOOK_MELT_MAKE_LOCATION__V138*/ meltfptr[137] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 186) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V139*/ - meltfptr[138] = + /*_.HOOK_MELT_MAKE_LOCATION__V139*/ meltfptr[138] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 186) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V140*/ - meltfptr[139] = + /*_.HOOK_MELT_MAKE_LOCATION__V140*/ meltfptr[139] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 186) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V141*/ - meltfptr[140] = + /*_.HOOK_MELT_MAKE_LOCATION__V141*/ meltfptr[140] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 186) ;; MELT_CHECK_SIGNAL(); @@ -3821,8 +3596,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_72_GI*/ meltfrout->tabval[72]); - /*_.MELT_MAKE_SEXPR__V142*/ - meltfptr[141] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V141*/ meltfptr[140]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V142*/ meltfptr[141] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V141*/ meltfptr[140]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3837,8 +3611,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V142*/ meltfptr[141]; - /*_.MELT_MAKE_SEXPR__V143*/ - meltfptr[142] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V140*/ meltfptr[139]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V143*/ meltfptr[142] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V140*/ meltfptr[139]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3851,16 +3624,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V143*/ meltfptr[142]; - /*_.MELT_MAKE_SEXPR__V144*/ - meltfptr[143] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V139*/ meltfptr[138]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V144*/ meltfptr[143] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V139*/ meltfptr[138]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V145*/ - meltfptr[144] = + /*_.HOOK_MELT_MAKE_LOCATION__V145*/ meltfptr[144] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 188) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V146*/ - meltfptr[145] = + /*_.HOOK_MELT_MAKE_LOCATION__V146*/ meltfptr[145] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 188) ;; MELT_CHECK_SIGNAL(); @@ -3876,8 +3646,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; - /*_.MELT_MAKE_SEXPR__V147*/ - meltfptr[146] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V146*/ meltfptr[145]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V147*/ meltfptr[146] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V146*/ meltfptr[145]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -3894,12 +3663,10 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V147*/ meltfptr[146]; - /*_.MELT_MAKE_SEXPR__V148*/ - meltfptr[147] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V145*/ meltfptr[144]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V148*/ meltfptr[147] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V145*/ meltfptr[144]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V149*/ - meltfptr[148] = + /*_.HOOK_MELT_MAKE_LOCATION__V149*/ meltfptr[148] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 189) ;; MELT_CHECK_SIGNAL(); @@ -3917,8 +3684,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); - /*_.MELT_MAKE_SEXPR__V150*/ - meltfptr[149] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V149*/ meltfptr[148]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V150*/ meltfptr[149] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V149*/ meltfptr[148]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3937,12 +3703,10 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V148*/ meltfptr[147]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V150*/ meltfptr[149]; - /*_.MELT_MAKE_SEXPR__V151*/ - meltfptr[150] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V138*/ meltfptr[137]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V151*/ meltfptr[150] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V138*/ meltfptr[137]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V152*/ - meltfptr[151] = + /*_.HOOK_MELT_MAKE_LOCATION__V152*/ meltfptr[151] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 191) ;; MELT_CHECK_SIGNAL(); @@ -3954,8 +3718,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); - /*_.MELT_MAKE_SEXPR__V153*/ - meltfptr[152] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V152*/ meltfptr[151]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V153*/ meltfptr[152] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V152*/ meltfptr[151]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3974,16 +3737,13 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V151*/ meltfptr[150]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V153*/ meltfptr[152]; - /*_.MELT_MAKE_SEXPR__V154*/ - meltfptr[153] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V131*/ meltfptr[130]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V154*/ meltfptr[153] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V131*/ meltfptr[130]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V155*/ - meltfptr[154] = + /*_.HOOK_MELT_MAKE_LOCATION__V155*/ meltfptr[154] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 193) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V156*/ - meltfptr[155] = + /*_.HOOK_MELT_MAKE_LOCATION__V156*/ meltfptr[155] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 193) ;; MELT_CHECK_SIGNAL(); @@ -3997,16 +3757,13 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_87_GIMPLE_SEQ*/ meltfrout->tabval[87]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_88_GS*/ meltfrout->tabval[88]); - /*_.MELT_MAKE_SEXPR__V157*/ - meltfptr[156] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V156*/ meltfptr[155]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V157*/ meltfptr[156] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V156*/ meltfptr[155]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V158*/ - meltfptr[157] = + /*_.HOOK_MELT_MAKE_LOCATION__V158*/ meltfptr[157] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 194) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V159*/ - meltfptr[158] = + /*_.HOOK_MELT_MAKE_LOCATION__V159*/ meltfptr[158] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 194) ;; MELT_CHECK_SIGNAL(); @@ -4020,8 +3777,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_58_IS_CLOSURE*/ meltfrout->tabval[58]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_91_DIAGV_GIMPLE_SEQ*/ meltfrout->tabval[91]); - /*_.MELT_MAKE_SEXPR__V160*/ - meltfptr[159] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V159*/ meltfptr[158]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V160*/ meltfptr[159] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V159*/ meltfptr[158]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4040,24 +3796,19 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V160*/ meltfptr[159]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_91_DIAGV_GIMPLE_SEQ*/ meltfrout->tabval[91]); - /*_.MELT_MAKE_SEXPR__V161*/ - meltfptr[160] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V158*/ meltfptr[157]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V161*/ meltfptr[160] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V158*/ meltfptr[157]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V162*/ - meltfptr[161] = + /*_.HOOK_MELT_MAKE_LOCATION__V162*/ meltfptr[161] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 195) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V163*/ - meltfptr[162] = + /*_.HOOK_MELT_MAKE_LOCATION__V163*/ meltfptr[162] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 195) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V164*/ - meltfptr[163] = + /*_.HOOK_MELT_MAKE_LOCATION__V164*/ meltfptr[163] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 195) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V165*/ - meltfptr[164] = + /*_.HOOK_MELT_MAKE_LOCATION__V165*/ meltfptr[164] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 195) ;; MELT_CHECK_SIGNAL(); @@ -4073,8 +3824,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_88_GS*/ meltfrout->tabval[88]); - /*_.MELT_MAKE_SEXPR__V166*/ - meltfptr[165] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V165*/ meltfptr[164]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V166*/ meltfptr[165] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V165*/ meltfptr[164]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4089,8 +3839,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V166*/ meltfptr[165]; - /*_.MELT_MAKE_SEXPR__V167*/ - meltfptr[166] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V164*/ meltfptr[163]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V167*/ meltfptr[166] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V164*/ meltfptr[163]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4103,16 +3852,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V167*/ meltfptr[166]; - /*_.MELT_MAKE_SEXPR__V168*/ - meltfptr[167] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V163*/ meltfptr[162]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V168*/ meltfptr[167] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V163*/ meltfptr[162]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V169*/ - meltfptr[168] = + /*_.HOOK_MELT_MAKE_LOCATION__V169*/ meltfptr[168] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 197) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V170*/ - meltfptr[169] = + /*_.HOOK_MELT_MAKE_LOCATION__V170*/ meltfptr[169] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 197) ;; MELT_CHECK_SIGNAL(); @@ -4128,8 +3874,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; - /*_.MELT_MAKE_SEXPR__V171*/ - meltfptr[170] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V170*/ meltfptr[169]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V171*/ meltfptr[170] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V170*/ meltfptr[169]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -4146,12 +3891,10 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V171*/ meltfptr[170]; - /*_.MELT_MAKE_SEXPR__V172*/ - meltfptr[171] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V169*/ meltfptr[168]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V172*/ meltfptr[171] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V169*/ meltfptr[168]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V173*/ - meltfptr[172] = + /*_.HOOK_MELT_MAKE_LOCATION__V173*/ meltfptr[172] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 198) ;; MELT_CHECK_SIGNAL(); @@ -4169,8 +3912,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); - /*_.MELT_MAKE_SEXPR__V174*/ - meltfptr[173] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V173*/ meltfptr[172]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V174*/ meltfptr[173] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V173*/ meltfptr[172]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4189,12 +3931,10 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V172*/ meltfptr[171]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V174*/ meltfptr[173]; - /*_.MELT_MAKE_SEXPR__V175*/ - meltfptr[174] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V162*/ meltfptr[161]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V175*/ meltfptr[174] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V162*/ meltfptr[161]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V176*/ - meltfptr[175] = + /*_.HOOK_MELT_MAKE_LOCATION__V176*/ meltfptr[175] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 200) ;; MELT_CHECK_SIGNAL(); @@ -4206,8 +3946,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); - /*_.MELT_MAKE_SEXPR__V177*/ - meltfptr[176] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V176*/ meltfptr[175]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V177*/ meltfptr[176] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V176*/ meltfptr[175]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4226,16 +3965,13 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V175*/ meltfptr[174]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V177*/ meltfptr[176]; - /*_.MELT_MAKE_SEXPR__V178*/ - meltfptr[177] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V155*/ meltfptr[154]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V178*/ meltfptr[177] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V155*/ meltfptr[154]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V179*/ - meltfptr[178] = + /*_.HOOK_MELT_MAKE_LOCATION__V179*/ meltfptr[178] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 202) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V180*/ - meltfptr[179] = + /*_.HOOK_MELT_MAKE_LOCATION__V180*/ meltfptr[179] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 202) ;; MELT_CHECK_SIGNAL(); @@ -4249,16 +3985,13 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_103_BASIC_BLOCK*/ meltfrout->tabval[103]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_104_BB*/ meltfrout->tabval[104]); - /*_.MELT_MAKE_SEXPR__V181*/ - meltfptr[180] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V180*/ meltfptr[179]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V181*/ meltfptr[180] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V180*/ meltfptr[179]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V182*/ - meltfptr[181] = + /*_.HOOK_MELT_MAKE_LOCATION__V182*/ meltfptr[181] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 203) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V183*/ - meltfptr[182] = + /*_.HOOK_MELT_MAKE_LOCATION__V183*/ meltfptr[182] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 203) ;; MELT_CHECK_SIGNAL(); @@ -4272,8 +4005,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_58_IS_CLOSURE*/ meltfrout->tabval[58]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_107_DIAGV_BASIC_BLOCK*/ meltfrout->tabval[107]); - /*_.MELT_MAKE_SEXPR__V184*/ - meltfptr[183] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V183*/ meltfptr[182]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V184*/ meltfptr[183] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V183*/ meltfptr[182]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4292,24 +4024,19 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V184*/ meltfptr[183]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_107_DIAGV_BASIC_BLOCK*/ meltfrout->tabval[107]); - /*_.MELT_MAKE_SEXPR__V185*/ - meltfptr[184] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V182*/ meltfptr[181]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V185*/ meltfptr[184] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V182*/ meltfptr[181]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V186*/ - meltfptr[185] = + /*_.HOOK_MELT_MAKE_LOCATION__V186*/ meltfptr[185] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 204) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V187*/ - meltfptr[186] = + /*_.HOOK_MELT_MAKE_LOCATION__V187*/ meltfptr[186] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 204) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V188*/ - meltfptr[187] = + /*_.HOOK_MELT_MAKE_LOCATION__V188*/ meltfptr[187] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 204) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V189*/ - meltfptr[188] = + /*_.HOOK_MELT_MAKE_LOCATION__V189*/ meltfptr[188] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 204) ;; MELT_CHECK_SIGNAL(); @@ -4325,8 +4052,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_104_BB*/ meltfrout->tabval[104]); - /*_.MELT_MAKE_SEXPR__V190*/ - meltfptr[189] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V189*/ meltfptr[188]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V190*/ meltfptr[189] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V189*/ meltfptr[188]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4341,8 +4067,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V190*/ meltfptr[189]; - /*_.MELT_MAKE_SEXPR__V191*/ - meltfptr[190] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V188*/ meltfptr[187]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V191*/ meltfptr[190] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V188*/ meltfptr[187]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4355,16 +4080,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V191*/ meltfptr[190]; - /*_.MELT_MAKE_SEXPR__V192*/ - meltfptr[191] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V187*/ meltfptr[186]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V192*/ meltfptr[191] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V187*/ meltfptr[186]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V193*/ - meltfptr[192] = + /*_.HOOK_MELT_MAKE_LOCATION__V193*/ meltfptr[192] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 206) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V194*/ - meltfptr[193] = + /*_.HOOK_MELT_MAKE_LOCATION__V194*/ meltfptr[193] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 206) ;; MELT_CHECK_SIGNAL(); @@ -4380,8 +4102,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; - /*_.MELT_MAKE_SEXPR__V195*/ - meltfptr[194] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V194*/ meltfptr[193]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V195*/ meltfptr[194] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V194*/ meltfptr[193]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -4398,12 +4119,10 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V195*/ meltfptr[194]; - /*_.MELT_MAKE_SEXPR__V196*/ - meltfptr[195] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V193*/ meltfptr[192]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V196*/ meltfptr[195] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V193*/ meltfptr[192]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V197*/ - meltfptr[196] = + /*_.HOOK_MELT_MAKE_LOCATION__V197*/ meltfptr[196] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 207) ;; MELT_CHECK_SIGNAL(); @@ -4421,8 +4140,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); - /*_.MELT_MAKE_SEXPR__V198*/ - meltfptr[197] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V197*/ meltfptr[196]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V198*/ meltfptr[197] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V197*/ meltfptr[196]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4441,12 +4159,10 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V196*/ meltfptr[195]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V198*/ meltfptr[197]; - /*_.MELT_MAKE_SEXPR__V199*/ - meltfptr[198] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V186*/ meltfptr[185]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V199*/ meltfptr[198] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V186*/ meltfptr[185]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V200*/ - meltfptr[199] = + /*_.HOOK_MELT_MAKE_LOCATION__V200*/ meltfptr[199] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 209) ;; MELT_CHECK_SIGNAL(); @@ -4458,8 +4174,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); - /*_.MELT_MAKE_SEXPR__V201*/ - meltfptr[200] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V200*/ meltfptr[199]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V201*/ meltfptr[200] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V200*/ meltfptr[199]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4478,16 +4193,13 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V199*/ meltfptr[198]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V201*/ meltfptr[200]; - /*_.MELT_MAKE_SEXPR__V202*/ - meltfptr[201] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V179*/ meltfptr[178]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V202*/ meltfptr[201] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V179*/ meltfptr[178]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V203*/ - meltfptr[202] = + /*_.HOOK_MELT_MAKE_LOCATION__V203*/ meltfptr[202] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 211) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V204*/ - meltfptr[203] = + /*_.HOOK_MELT_MAKE_LOCATION__V204*/ meltfptr[203] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 211) ;; MELT_CHECK_SIGNAL(); @@ -4501,16 +4213,13 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_119_EDGE*/ meltfrout->tabval[119]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_120_ED*/ meltfrout->tabval[120]); - /*_.MELT_MAKE_SEXPR__V205*/ - meltfptr[204] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V204*/ meltfptr[203]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V205*/ meltfptr[204] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V204*/ meltfptr[203]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V206*/ - meltfptr[205] = + /*_.HOOK_MELT_MAKE_LOCATION__V206*/ meltfptr[205] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 212) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V207*/ - meltfptr[206] = + /*_.HOOK_MELT_MAKE_LOCATION__V207*/ meltfptr[206] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 212) ;; MELT_CHECK_SIGNAL(); @@ -4524,8 +4233,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_58_IS_CLOSURE*/ meltfrout->tabval[58]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_123_DIAGV_EDGE*/ meltfrout->tabval[123]); - /*_.MELT_MAKE_SEXPR__V208*/ - meltfptr[207] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V207*/ meltfptr[206]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V208*/ meltfptr[207] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V207*/ meltfptr[206]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4544,24 +4252,19 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V208*/ meltfptr[207]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_123_DIAGV_EDGE*/ meltfrout->tabval[123]); - /*_.MELT_MAKE_SEXPR__V209*/ - meltfptr[208] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V206*/ meltfptr[205]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V209*/ meltfptr[208] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V206*/ meltfptr[205]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V210*/ - meltfptr[209] = + /*_.HOOK_MELT_MAKE_LOCATION__V210*/ meltfptr[209] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 213) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V211*/ - meltfptr[210] = + /*_.HOOK_MELT_MAKE_LOCATION__V211*/ meltfptr[210] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 213) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V212*/ - meltfptr[211] = + /*_.HOOK_MELT_MAKE_LOCATION__V212*/ meltfptr[211] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 213) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V213*/ - meltfptr[212] = + /*_.HOOK_MELT_MAKE_LOCATION__V213*/ meltfptr[212] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 213) ;; MELT_CHECK_SIGNAL(); @@ -4577,8 +4280,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_120_ED*/ meltfrout->tabval[120]); - /*_.MELT_MAKE_SEXPR__V214*/ - meltfptr[213] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V213*/ meltfptr[212]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V214*/ meltfptr[213] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V213*/ meltfptr[212]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4593,8 +4295,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V214*/ meltfptr[213]; - /*_.MELT_MAKE_SEXPR__V215*/ - meltfptr[214] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V212*/ meltfptr[211]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V215*/ meltfptr[214] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V212*/ meltfptr[211]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4607,16 +4308,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V215*/ meltfptr[214]; - /*_.MELT_MAKE_SEXPR__V216*/ - meltfptr[215] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V211*/ meltfptr[210]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V216*/ meltfptr[215] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V211*/ meltfptr[210]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V217*/ - meltfptr[216] = + /*_.HOOK_MELT_MAKE_LOCATION__V217*/ meltfptr[216] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 215) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V218*/ - meltfptr[217] = + /*_.HOOK_MELT_MAKE_LOCATION__V218*/ meltfptr[217] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 215) ;; MELT_CHECK_SIGNAL(); @@ -4632,8 +4330,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; - /*_.MELT_MAKE_SEXPR__V219*/ - meltfptr[218] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V218*/ meltfptr[217]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V219*/ meltfptr[218] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V218*/ meltfptr[217]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -4650,12 +4347,10 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V219*/ meltfptr[218]; - /*_.MELT_MAKE_SEXPR__V220*/ - meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V217*/ meltfptr[216]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V220*/ meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V217*/ meltfptr[216]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V221*/ - meltfptr[220] = + /*_.HOOK_MELT_MAKE_LOCATION__V221*/ meltfptr[220] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 216) ;; MELT_CHECK_SIGNAL(); @@ -4673,8 +4368,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); - /*_.MELT_MAKE_SEXPR__V222*/ - meltfptr[221] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V221*/ meltfptr[220]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V222*/ meltfptr[221] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V221*/ meltfptr[220]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4693,12 +4387,10 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V220*/ meltfptr[219]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V222*/ meltfptr[221]; - /*_.MELT_MAKE_SEXPR__V223*/ - meltfptr[222] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V210*/ meltfptr[209]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V223*/ meltfptr[222] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V210*/ meltfptr[209]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V224*/ - meltfptr[223] = + /*_.HOOK_MELT_MAKE_LOCATION__V224*/ meltfptr[223] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 218) ;; MELT_CHECK_SIGNAL(); @@ -4710,8 +4402,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); - /*_.MELT_MAKE_SEXPR__V225*/ - meltfptr[224] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V224*/ meltfptr[223]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V225*/ meltfptr[224] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V224*/ meltfptr[223]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4730,16 +4421,13 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V223*/ meltfptr[222]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V225*/ meltfptr[224]; - /*_.MELT_MAKE_SEXPR__V226*/ - meltfptr[225] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V203*/ meltfptr[202]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V226*/ meltfptr[225] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V203*/ meltfptr[202]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V227*/ - meltfptr[226] = + /*_.HOOK_MELT_MAKE_LOCATION__V227*/ meltfptr[226] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 220) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V228*/ - meltfptr[227] = + /*_.HOOK_MELT_MAKE_LOCATION__V228*/ meltfptr[227] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 220) ;; MELT_CHECK_SIGNAL(); @@ -4753,20 +4441,16 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_135_VALUE*/ meltfrout->tabval[135]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); - /*_.MELT_MAKE_SEXPR__V229*/ - meltfptr[228] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V228*/ meltfptr[227]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V229*/ meltfptr[228] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V228*/ meltfptr[227]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V230*/ - meltfptr[229] = + /*_.HOOK_MELT_MAKE_LOCATION__V230*/ meltfptr[229] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 221) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V231*/ - meltfptr[230] = + /*_.HOOK_MELT_MAKE_LOCATION__V231*/ meltfptr[230] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 222) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V232*/ - meltfptr[231] = + /*_.HOOK_MELT_MAKE_LOCATION__V232*/ meltfptr[231] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 222) ;; MELT_CHECK_SIGNAL(); @@ -4780,28 +4464,22 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_138_IS_INTEGERBOX*/ meltfrout->tabval[138]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); - /*_.MELT_MAKE_SEXPR__V233*/ - meltfptr[232] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V232*/ meltfptr[231]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V233*/ meltfptr[232] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V232*/ meltfptr[231]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V234*/ - meltfptr[233] = + /*_.HOOK_MELT_MAKE_LOCATION__V234*/ meltfptr[233] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 223) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V235*/ - meltfptr[234] = + /*_.HOOK_MELT_MAKE_LOCATION__V235*/ meltfptr[234] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 223) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V236*/ - meltfptr[235] = + /*_.HOOK_MELT_MAKE_LOCATION__V236*/ meltfptr[235] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 223) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V237*/ - meltfptr[236] = + /*_.HOOK_MELT_MAKE_LOCATION__V237*/ meltfptr[236] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 223) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V238*/ - meltfptr[237] = + /*_.HOOK_MELT_MAKE_LOCATION__V238*/ meltfptr[237] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 223) ;; MELT_CHECK_SIGNAL(); @@ -4815,8 +4493,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_144_GET_INT*/ meltfrout->tabval[144]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); - /*_.MELT_MAKE_SEXPR__V239*/ - meltfptr[238] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V238*/ meltfptr[237]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V239*/ meltfptr[238] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V238*/ meltfptr[237]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4833,8 +4510,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_48_DISCR_STRING*/ meltfrout->tabval[48]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V239*/ meltfptr[238]; - /*_.MELT_MAKE_SEXPR__V240*/ - meltfptr[239] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V237*/ meltfptr[236]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V240*/ meltfptr[239] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V237*/ meltfptr[236]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4849,8 +4525,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_46_SN*/ meltfrout->tabval[46]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V240*/ meltfptr[239]; - /*_.MELT_MAKE_SEXPR__V241*/ - meltfptr[240] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V236*/ meltfptr[235]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V241*/ meltfptr[240] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V236*/ meltfptr[235]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4863,16 +4538,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V241*/ meltfptr[240]; - /*_.MELT_MAKE_SEXPR__V242*/ - meltfptr[241] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V235*/ meltfptr[234]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V242*/ meltfptr[241] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V235*/ meltfptr[234]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V243*/ - meltfptr[242] = + /*_.HOOK_MELT_MAKE_LOCATION__V243*/ meltfptr[242] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 225) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V244*/ - meltfptr[243] = + /*_.HOOK_MELT_MAKE_LOCATION__V244*/ meltfptr[243] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 225) ;; MELT_CHECK_SIGNAL(); @@ -4888,8 +4560,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; - /*_.MELT_MAKE_SEXPR__V245*/ - meltfptr[244] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V244*/ meltfptr[243]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V245*/ meltfptr[244] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V244*/ meltfptr[243]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -4906,12 +4577,10 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V245*/ meltfptr[244]; - /*_.MELT_MAKE_SEXPR__V246*/ - meltfptr[245] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V243*/ meltfptr[242]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V246*/ meltfptr[245] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V243*/ meltfptr[242]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V247*/ - meltfptr[246] = + /*_.HOOK_MELT_MAKE_LOCATION__V247*/ meltfptr[246] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 226) ;; MELT_CHECK_SIGNAL(); @@ -4929,8 +4598,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_46_SN*/ meltfrout->tabval[46]); - /*_.MELT_MAKE_SEXPR__V248*/ - meltfptr[247] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V247*/ meltfptr[246]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V248*/ meltfptr[247] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V247*/ meltfptr[246]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4949,12 +4617,10 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V246*/ meltfptr[245]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V248*/ meltfptr[247]; - /*_.MELT_MAKE_SEXPR__V249*/ - meltfptr[248] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V234*/ meltfptr[233]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V249*/ meltfptr[248] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V234*/ meltfptr[233]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V250*/ - meltfptr[249] = + /*_.HOOK_MELT_MAKE_LOCATION__V250*/ meltfptr[249] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 228) ;; MELT_CHECK_SIGNAL(); @@ -4966,8 +4632,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); - /*_.MELT_MAKE_SEXPR__V251*/ - meltfptr[250] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V250*/ meltfptr[249]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V251*/ meltfptr[250] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V250*/ meltfptr[249]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4984,16 +4649,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V249*/ meltfptr[248]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V251*/ meltfptr[250]; - /*_.MELT_MAKE_SEXPR__V252*/ - meltfptr[251] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V231*/ meltfptr[230]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V252*/ meltfptr[251] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V231*/ meltfptr[230]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V253*/ - meltfptr[252] = + /*_.HOOK_MELT_MAKE_LOCATION__V253*/ meltfptr[252] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 230) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V254*/ - meltfptr[253] = + /*_.HOOK_MELT_MAKE_LOCATION__V254*/ meltfptr[253] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 230) ;; MELT_CHECK_SIGNAL(); @@ -5007,16 +4669,13 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_151_IS_STRING*/ meltfrout->tabval[151]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); - /*_.MELT_MAKE_SEXPR__V255*/ - meltfptr[254] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V254*/ meltfptr[253]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V255*/ meltfptr[254] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V254*/ meltfptr[253]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V256*/ - meltfptr[255] = + /*_.HOOK_MELT_MAKE_LOCATION__V256*/ meltfptr[255] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 231) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V257*/ - meltfptr[256] = + /*_.HOOK_MELT_MAKE_LOCATION__V257*/ meltfptr[256] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 231) ;; MELT_CHECK_SIGNAL(); @@ -5032,8 +4691,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; - /*_.MELT_MAKE_SEXPR__V258*/ - meltfptr[257] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V257*/ meltfptr[256]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V258*/ meltfptr[257] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V257*/ meltfptr[256]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -5050,12 +4708,10 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V258*/ meltfptr[257]; - /*_.MELT_MAKE_SEXPR__V259*/ - meltfptr[258] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V256*/ meltfptr[255]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V259*/ meltfptr[258] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V256*/ meltfptr[255]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V260*/ - meltfptr[259] = + /*_.HOOK_MELT_MAKE_LOCATION__V260*/ meltfptr[259] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 232) ;; MELT_CHECK_SIGNAL(); @@ -5073,12 +4729,10 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); - /*_.MELT_MAKE_SEXPR__V261*/ - meltfptr[260] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V260*/ meltfptr[259]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V261*/ meltfptr[260] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V260*/ meltfptr[259]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V262*/ - meltfptr[261] = + /*_.HOOK_MELT_MAKE_LOCATION__V262*/ meltfptr[261] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 233) ;; MELT_CHECK_SIGNAL(); @@ -5090,8 +4744,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); - /*_.MELT_MAKE_SEXPR__V263*/ - meltfptr[262] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V262*/ meltfptr[261]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V263*/ meltfptr[262] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V262*/ meltfptr[261]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5110,16 +4763,13 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V261*/ meltfptr[260]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V263*/ meltfptr[262]; - /*_.MELT_MAKE_SEXPR__V264*/ - meltfptr[263] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V253*/ meltfptr[252]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V264*/ meltfptr[263] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V253*/ meltfptr[252]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V265*/ - meltfptr[264] = + /*_.HOOK_MELT_MAKE_LOCATION__V265*/ meltfptr[264] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 235) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V266*/ - meltfptr[265] = + /*_.HOOK_MELT_MAKE_LOCATION__V266*/ meltfptr[265] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 235) ;; MELT_CHECK_SIGNAL(); @@ -5135,12 +4785,10 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_160_DISCR_DIAGNOSTIC_CLOSURE*/ meltfrout->tabval[160]); - /*_.MELT_MAKE_SEXPR__V267*/ - meltfptr[266] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V266*/ meltfptr[265]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V267*/ meltfptr[266] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V266*/ meltfptr[265]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V268*/ - meltfptr[267] = + /*_.HOOK_MELT_MAKE_LOCATION__V268*/ meltfptr[267] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 236) ;; MELT_CHECK_SIGNAL(); @@ -5154,12 +4802,10 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); - /*_.MELT_MAKE_SEXPR__V269*/ - meltfptr[268] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V268*/ meltfptr[267]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V269*/ meltfptr[268] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V268*/ meltfptr[267]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V270*/ - meltfptr[269] = + /*_.HOOK_MELT_MAKE_LOCATION__V270*/ meltfptr[269] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 237) ;; MELT_CHECK_SIGNAL(); @@ -5171,8 +4817,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); - /*_.MELT_MAKE_SEXPR__V271*/ - meltfptr[270] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V270*/ meltfptr[269]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V271*/ meltfptr[270] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V270*/ meltfptr[269]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5189,20 +4834,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V269*/ meltfptr[268]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V271*/ meltfptr[270]; - /*_.MELT_MAKE_SEXPR__V272*/ - meltfptr[271] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V265*/ meltfptr[264]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V272*/ meltfptr[271] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V265*/ meltfptr[264]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V273*/ - meltfptr[272] = + /*_.HOOK_MELT_MAKE_LOCATION__V273*/ meltfptr[272] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 239) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V274*/ - meltfptr[273] = + /*_.HOOK_MELT_MAKE_LOCATION__V274*/ meltfptr[273] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 239) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V275*/ - meltfptr[274] = + /*_.HOOK_MELT_MAKE_LOCATION__V275*/ meltfptr[274] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 239) ;; MELT_CHECK_SIGNAL(); @@ -5218,16 +4859,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_167_CLASS_KEYWORD*/ meltfrout->tabval[167]); - /*_.MELT_MAKE_SEXPR__V276*/ - meltfptr[275] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V275*/ meltfptr[274]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V276*/ meltfptr[275] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V275*/ meltfptr[274]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V277*/ - meltfptr[276] = + /*_.HOOK_MELT_MAKE_LOCATION__V277*/ meltfptr[276] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 240) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V278*/ - meltfptr[277] = + /*_.HOOK_MELT_MAKE_LOCATION__V278*/ meltfptr[277] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 240) ;; MELT_CHECK_SIGNAL(); @@ -5243,8 +4881,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_170_SYMB_DATA*/ meltfrout->tabval[170]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); - /*_.MELT_MAKE_SEXPR__V279*/ - meltfptr[278] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V278*/ meltfptr[277]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V279*/ meltfptr[278] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V278*/ meltfptr[277]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5261,8 +4898,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V279*/ meltfptr[278]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_160_DISCR_DIAGNOSTIC_CLOSURE*/ meltfrout->tabval[160]); - /*_.MELT_MAKE_SEXPR__V280*/ - meltfptr[279] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V277*/ meltfptr[276]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V280*/ meltfptr[279] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V277*/ meltfptr[276]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5279,16 +4915,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V276*/ meltfptr[275]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V280*/ meltfptr[279]; - /*_.MELT_MAKE_SEXPR__V281*/ - meltfptr[280] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V274*/ meltfptr[273]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V281*/ meltfptr[280] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V274*/ meltfptr[273]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V282*/ - meltfptr[281] = + /*_.HOOK_MELT_MAKE_LOCATION__V282*/ meltfptr[281] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 242) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V283*/ - meltfptr[282] = + /*_.HOOK_MELT_MAKE_LOCATION__V283*/ meltfptr[282] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 242) ;; MELT_CHECK_SIGNAL(); @@ -5304,8 +4937,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_170_SYMB_DATA*/ meltfrout->tabval[170]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); - /*_.MELT_MAKE_SEXPR__V284*/ - meltfptr[283] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V283*/ meltfptr[282]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V284*/ meltfptr[283] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V283*/ meltfptr[282]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5320,12 +4952,10 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V284*/ meltfptr[283]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); - /*_.MELT_MAKE_SEXPR__V285*/ - meltfptr[284] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V282*/ meltfptr[281]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V285*/ meltfptr[284] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V282*/ meltfptr[281]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V286*/ - meltfptr[285] = + /*_.HOOK_MELT_MAKE_LOCATION__V286*/ meltfptr[285] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 243) ;; MELT_CHECK_SIGNAL(); @@ -5337,8 +4967,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); - /*_.MELT_MAKE_SEXPR__V287*/ - meltfptr[286] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V286*/ meltfptr[285]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V287*/ meltfptr[286] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V286*/ meltfptr[285]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5355,16 +4984,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V285*/ meltfptr[284]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V287*/ meltfptr[286]; - /*_.MELT_MAKE_SEXPR__V288*/ - meltfptr[287] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V273*/ meltfptr[272]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V288*/ meltfptr[287] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V273*/ meltfptr[272]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V289*/ - meltfptr[288] = + /*_.HOOK_MELT_MAKE_LOCATION__V289*/ meltfptr[288] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 245) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V290*/ - meltfptr[289] = + /*_.HOOK_MELT_MAKE_LOCATION__V290*/ meltfptr[289] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 245) ;; MELT_CHECK_SIGNAL(); @@ -5380,24 +5006,19 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_179_CLASS_NAMED*/ meltfrout->tabval[179]); - /*_.MELT_MAKE_SEXPR__V291*/ - meltfptr[290] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V290*/ meltfptr[289]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V291*/ meltfptr[290] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V290*/ meltfptr[289]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V292*/ - meltfptr[291] = + /*_.HOOK_MELT_MAKE_LOCATION__V292*/ meltfptr[291] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 246) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V293*/ - meltfptr[292] = + /*_.HOOK_MELT_MAKE_LOCATION__V293*/ meltfptr[292] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 246) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V294*/ - meltfptr[293] = + /*_.HOOK_MELT_MAKE_LOCATION__V294*/ meltfptr[293] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 246) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V295*/ - meltfptr[294] = + /*_.HOOK_MELT_MAKE_LOCATION__V295*/ meltfptr[294] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 246) ;; MELT_CHECK_SIGNAL(); @@ -5413,8 +5034,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_183_NAMED_NAME*/ meltfrout->tabval[183]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); - /*_.MELT_MAKE_SEXPR__V296*/ - meltfptr[295] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V295*/ meltfptr[294]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V296*/ meltfptr[295] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V295*/ meltfptr[294]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5429,8 +5049,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_181_NAM*/ meltfrout->tabval[181]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V296*/ meltfptr[295]; - /*_.MELT_MAKE_SEXPR__V297*/ - meltfptr[296] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V294*/ meltfptr[293]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V297*/ meltfptr[296] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V294*/ meltfptr[293]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5443,16 +5062,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V297*/ meltfptr[296]; - /*_.MELT_MAKE_SEXPR__V298*/ - meltfptr[297] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V293*/ meltfptr[292]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V298*/ meltfptr[297] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V293*/ meltfptr[292]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V299*/ - meltfptr[298] = + /*_.HOOK_MELT_MAKE_LOCATION__V299*/ meltfptr[298] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 248) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V300*/ - meltfptr[299] = + /*_.HOOK_MELT_MAKE_LOCATION__V300*/ meltfptr[299] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 248) ;; MELT_CHECK_SIGNAL(); @@ -5466,8 +5082,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_151_IS_STRING*/ meltfrout->tabval[151]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_181_NAM*/ meltfrout->tabval[181]); - /*_.MELT_MAKE_SEXPR__V301*/ - meltfptr[300] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V300*/ meltfptr[299]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V301*/ meltfptr[300] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V300*/ meltfptr[299]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5486,16 +5101,13 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V301*/ meltfptr[300]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_181_NAM*/ meltfrout->tabval[181]); - /*_.MELT_MAKE_SEXPR__V302*/ - meltfptr[301] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V299*/ meltfptr[298]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V302*/ meltfptr[301] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V299*/ meltfptr[298]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V303*/ - meltfptr[302] = + /*_.HOOK_MELT_MAKE_LOCATION__V303*/ meltfptr[302] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 249) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V304*/ - meltfptr[303] = + /*_.HOOK_MELT_MAKE_LOCATION__V304*/ meltfptr[303] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 249) ;; MELT_CHECK_SIGNAL(); @@ -5511,8 +5123,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; - /*_.MELT_MAKE_SEXPR__V305*/ - meltfptr[304] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V304*/ meltfptr[303]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V305*/ meltfptr[304] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V304*/ meltfptr[303]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -5529,12 +5140,10 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V305*/ meltfptr[304]; - /*_.MELT_MAKE_SEXPR__V306*/ - meltfptr[305] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V303*/ meltfptr[302]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V306*/ meltfptr[305] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V303*/ meltfptr[302]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V307*/ - meltfptr[306] = + /*_.HOOK_MELT_MAKE_LOCATION__V307*/ meltfptr[306] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 250) ;; MELT_CHECK_SIGNAL(); @@ -5552,8 +5161,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_181_NAM*/ meltfrout->tabval[181]); - /*_.MELT_MAKE_SEXPR__V308*/ - meltfptr[307] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V307*/ meltfptr[306]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V308*/ meltfptr[307] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V307*/ meltfptr[306]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5574,12 +5182,10 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V306*/ meltfptr[305]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V308*/ meltfptr[307]; - /*_.MELT_MAKE_SEXPR__V309*/ - meltfptr[308] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V292*/ meltfptr[291]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V309*/ meltfptr[308] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V292*/ meltfptr[291]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V310*/ - meltfptr[309] = + /*_.HOOK_MELT_MAKE_LOCATION__V310*/ meltfptr[309] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 252) ;; MELT_CHECK_SIGNAL(); @@ -5591,8 +5197,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); - /*_.MELT_MAKE_SEXPR__V311*/ - meltfptr[310] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V310*/ meltfptr[309]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V311*/ meltfptr[310] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V310*/ meltfptr[309]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5609,8 +5214,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V309*/ meltfptr[308]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V311*/ meltfptr[310]; - /*_.MELT_MAKE_SEXPR__V312*/ - meltfptr[311] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V289*/ meltfptr[288]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V312*/ meltfptr[311] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V289*/ meltfptr[288]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5633,8 +5237,7 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V288*/ meltfptr[287]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V312*/ meltfptr[311]; - /*_.MELT_MAKE_SEXPR__V313*/ - meltfptr[312] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V230*/ meltfptr[229]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V313*/ meltfptr[312] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V230*/ meltfptr[229]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5649,28 +5252,22 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V229*/ meltfptr[228]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V313*/ meltfptr[312]; - /*_.MELT_MAKE_SEXPR__V314*/ - meltfptr[313] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V227*/ meltfptr[226]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V314*/ meltfptr[313] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V227*/ meltfptr[226]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V315*/ - meltfptr[314] = + /*_.HOOK_MELT_MAKE_LOCATION__V315*/ meltfptr[314] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 256) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V316*/ - meltfptr[315] = + /*_.HOOK_MELT_MAKE_LOCATION__V316*/ meltfptr[315] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 257) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V317*/ - meltfptr[316] = + /*_.HOOK_MELT_MAKE_LOCATION__V317*/ meltfptr[316] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 257) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V318*/ - meltfptr[317] = + /*_.HOOK_MELT_MAKE_LOCATION__V318*/ meltfptr[317] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 257) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V319*/ - meltfptr[318] = + /*_.HOOK_MELT_MAKE_LOCATION__V319*/ meltfptr[318] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 257) ;; MELT_CHECK_SIGNAL(); @@ -5684,8 +5281,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_197_VARIADIC_CTYPE*/ meltfrout->tabval[197]); /*^apply.arg*/ argtab[1].meltbp_long = 0; - /*_.MELT_MAKE_SEXPR__V320*/ - meltfptr[319] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V319*/ meltfptr[318]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V320*/ meltfptr[319] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V319*/ meltfptr[318]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -5700,8 +5296,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_196_VCTY*/ meltfrout->tabval[196]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V320*/ meltfptr[319]; - /*_.MELT_MAKE_SEXPR__V321*/ - meltfptr[320] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V318*/ meltfptr[317]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V321*/ meltfptr[320] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V318*/ meltfptr[317]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5714,16 +5309,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V321*/ meltfptr[320]; - /*_.MELT_MAKE_SEXPR__V322*/ - meltfptr[321] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V317*/ meltfptr[316]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V322*/ meltfptr[321] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V317*/ meltfptr[316]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V323*/ - meltfptr[322] = + /*_.HOOK_MELT_MAKE_LOCATION__V323*/ meltfptr[322] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 259) ;; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V324*/ - meltfptr[323] = + /*_.HOOK_MELT_MAKE_LOCATION__V324*/ meltfptr[323] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 260) ;; MELT_CHECK_SIGNAL(); @@ -5739,8 +5331,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_183_NAMED_NAME*/ meltfrout->tabval[183]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_196_VCTY*/ meltfrout->tabval[196]); - /*_.MELT_MAKE_SEXPR__V325*/ - meltfptr[324] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V324*/ meltfptr[323]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V325*/ meltfptr[324] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V324*/ meltfptr[323]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5757,12 +5348,10 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "DIAGNOSTIC_ARGS_MACRO for unsupported ctype"; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V325*/ meltfptr[324]; - /*_.MELT_MAKE_SEXPR__V326*/ - meltfptr[325] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V323*/ meltfptr[322]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V326*/ meltfptr[325] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V323*/ meltfptr[322]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V327*/ - meltfptr[326] = + /*_.HOOK_MELT_MAKE_LOCATION__V327*/ meltfptr[326] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 261) ;; MELT_CHECK_SIGNAL(); @@ -5780,8 +5369,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_196_VCTY*/ meltfrout->tabval[196]); - /*_.MELT_MAKE_SEXPR__V328*/ - meltfptr[327] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V327*/ meltfptr[326]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V328*/ meltfptr[327] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V327*/ meltfptr[326]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5800,12 +5388,10 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V326*/ meltfptr[325]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V328*/ meltfptr[327]; - /*_.MELT_MAKE_SEXPR__V329*/ - meltfptr[328] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V316*/ meltfptr[315]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V329*/ meltfptr[328] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V316*/ meltfptr[315]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HOOK_MELT_MAKE_LOCATION__V330*/ - meltfptr[329] = + /*_.HOOK_MELT_MAKE_LOCATION__V330*/ meltfptr[329] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 262) ;; MELT_CHECK_SIGNAL(); @@ -5817,8 +5403,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); - /*_.MELT_MAKE_SEXPR__V331*/ - meltfptr[330] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V330*/ meltfptr[329]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V331*/ meltfptr[330] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V330*/ meltfptr[329]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5835,8 +5420,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V329*/ meltfptr[328]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V331*/ meltfptr[330]; - /*_.MELT_MAKE_SEXPR__V332*/ - meltfptr[331] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V315*/ meltfptr[314]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V332*/ meltfptr[331] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V315*/ meltfptr[314]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5869,8 +5453,7 @@ meltlab_endgetargs: argtab[9].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V314*/ meltfptr[313]; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V332*/ meltfptr[331]; - /*_.MELT_MAKE_SEXPR__V333*/ - meltfptr[332] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V62*/ meltfptr[61]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V333*/ meltfptr[332] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V62*/ meltfptr[61]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5889,8 +5472,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V61*/ meltfptr[60]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V333*/ meltfptr[332]; - /*_.MELT_MAKE_SEXPR__V334*/ - meltfptr[333] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V59*/ meltfptr[58]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MAKE_SEXPR__V334*/ meltfptr[333] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V59*/ meltfptr[58]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5911,8 +5493,7 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V334*/ meltfptr[333]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); - /*_.RESEXP__V335*/ - meltfptr[334] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V44*/ meltfptr[41]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.RESEXP__V335*/ meltfptr[334] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V44*/ meltfptr[41]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-macro.melt:269:/ quasiblock"); @@ -5932,16 +5513,14 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MEXP__V337*/ - meltfptr[336] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.RESEXP__V335*/ meltfptr[334]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MEXP__V337*/ meltfptr[336] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.RESEXP__V335*/ meltfptr[334]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:271:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MEXP__V337*/ meltfptr[336]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[3]))) ) /*then*/ @@ -5988,8 +5567,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)) @@ -5998,8 +5576,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-macro.melt:272:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L13*/ meltfnum[12]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6032,20 +5609,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "diagnostic_args_macro final mexp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MEXP__V337*/ meltfptr[336]; - /*_.MELT_DEBUG_FUN__V339*/ - meltfptr[338] = 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__V339*/ meltfptr[338] = 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___V338*/ - meltfptr[337] = /*_.MELT_DEBUG_FUN__V339*/ meltfptr[338];; + /*_._IF___V338*/ meltfptr[337] = /*_.MELT_DEBUG_FUN__V339*/ meltfptr[338];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:272:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V339*/ - meltfptr[338] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V339*/ meltfptr[338] = 0 ; } ; } @@ -6058,8 +5631,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-macro.melt:272:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -6068,11 +5640,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V338*/ - meltfptr[337] = 0 ; + /*clear*/ /*_._IF___V338*/ meltfptr[337] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6098,8 +5668,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-macro.melt:273:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.MEXP__V337*/ meltfptr[336];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.MEXP__V337*/ meltfptr[336];; { MELT_LOCATION("warmelt-macro.melt:273:/ locexp"); @@ -6114,976 +5683,654 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V336*/ - meltfptr[335] = /*_.RETURN___V340*/ meltfptr[338];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V336*/ meltfptr[335] = /*_.RETURN___V340*/ meltfptr[338];; MELT_LOCATION("warmelt-macro.melt:269:/ clear"); - /*clear*/ /*_.MEXP__V337*/ - meltfptr[336] = 0 ; + /*clear*/ /*_.MEXP__V337*/ meltfptr[336] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V340*/ - meltfptr[338] = 0 ; - /*_.LET___V43*/ - meltfptr[38] = /*_.LET___V336*/ meltfptr[335];; + /*clear*/ /*_.RETURN___V340*/ meltfptr[338] = 0 ; + /*_.LET___V43*/ meltfptr[38] = /*_.LET___V336*/ meltfptr[335];; MELT_LOCATION("warmelt-macro.melt:143:/ clear"); - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V44*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V44*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V45*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V45*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V46*/ - meltfptr[45] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V46*/ meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V47*/ - meltfptr[46] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V47*/ meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V48*/ - meltfptr[47] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V48*/ meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V49*/ - meltfptr[48] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V49*/ meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V50*/ - meltfptr[49] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V50*/ meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V51*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V51*/ meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V52*/ - meltfptr[51] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V52*/ meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V53*/ - meltfptr[52] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V53*/ meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V54*/ - meltfptr[53] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V54*/ meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V55*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V55*/ meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V56*/ - meltfptr[55] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V56*/ meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V57*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V57*/ meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V58*/ - meltfptr[57] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V58*/ meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V59*/ - meltfptr[58] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V59*/ meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V60*/ - meltfptr[59] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V60*/ meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V61*/ - meltfptr[60] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V61*/ meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V62*/ - meltfptr[61] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V62*/ meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V63*/ - meltfptr[62] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V63*/ meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V64*/ - meltfptr[63] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V64*/ meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V65*/ - meltfptr[64] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V65*/ meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V66*/ - meltfptr[65] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V66*/ meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V67*/ - meltfptr[66] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V67*/ meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V68*/ - meltfptr[67] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V68*/ meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V69*/ - meltfptr[68] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V69*/ meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V70*/ - meltfptr[69] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V70*/ meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V71*/ - meltfptr[70] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V71*/ meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V72*/ - meltfptr[71] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V72*/ meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V73*/ - meltfptr[72] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V73*/ meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V74*/ - meltfptr[73] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V74*/ meltfptr[73] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V75*/ - meltfptr[74] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V75*/ meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V76*/ - meltfptr[75] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V76*/ meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V77*/ - meltfptr[76] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V77*/ meltfptr[76] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V78*/ - meltfptr[77] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V78*/ meltfptr[77] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V79*/ - meltfptr[78] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V79*/ meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V80*/ - meltfptr[79] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V80*/ meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V81*/ - meltfptr[80] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V81*/ meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V82*/ - meltfptr[81] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V82*/ meltfptr[81] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V83*/ - meltfptr[82] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V83*/ meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V84*/ - meltfptr[83] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V84*/ meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V85*/ - meltfptr[84] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V85*/ meltfptr[84] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V86*/ - meltfptr[85] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V86*/ meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V87*/ - meltfptr[86] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V87*/ meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V88*/ - meltfptr[87] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V88*/ meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V89*/ - meltfptr[88] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V89*/ meltfptr[88] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V90*/ - meltfptr[89] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V90*/ meltfptr[89] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V91*/ - meltfptr[90] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V91*/ meltfptr[90] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V92*/ - meltfptr[91] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V92*/ meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V93*/ - meltfptr[92] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V93*/ meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V94*/ - meltfptr[93] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V94*/ meltfptr[93] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V95*/ - meltfptr[94] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V95*/ meltfptr[94] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V96*/ - meltfptr[95] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V96*/ meltfptr[95] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V97*/ - meltfptr[96] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V97*/ meltfptr[96] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V98*/ - meltfptr[97] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V98*/ meltfptr[97] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V99*/ - meltfptr[98] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V99*/ meltfptr[98] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V100*/ - meltfptr[99] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V100*/ meltfptr[99] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V101*/ - meltfptr[100] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V101*/ meltfptr[100] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V102*/ - meltfptr[101] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V102*/ meltfptr[101] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V103*/ - meltfptr[102] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V103*/ meltfptr[102] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V104*/ - meltfptr[103] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V104*/ meltfptr[103] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V105*/ - meltfptr[104] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V105*/ meltfptr[104] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V106*/ - meltfptr[105] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V106*/ meltfptr[105] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V107*/ - meltfptr[106] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V107*/ meltfptr[106] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V108*/ - meltfptr[107] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V108*/ meltfptr[107] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V109*/ - meltfptr[108] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V109*/ meltfptr[108] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V110*/ - meltfptr[109] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V110*/ meltfptr[109] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V111*/ - meltfptr[110] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V111*/ meltfptr[110] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V112*/ - meltfptr[111] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V112*/ meltfptr[111] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V113*/ - meltfptr[112] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V113*/ meltfptr[112] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V114*/ - meltfptr[113] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V114*/ meltfptr[113] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V115*/ - meltfptr[114] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V115*/ meltfptr[114] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V116*/ - meltfptr[115] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V116*/ meltfptr[115] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V117*/ - meltfptr[116] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V117*/ meltfptr[116] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V118*/ - meltfptr[117] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V118*/ meltfptr[117] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V119*/ - meltfptr[118] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V119*/ meltfptr[118] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V120*/ - meltfptr[119] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V120*/ meltfptr[119] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V121*/ - meltfptr[120] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V121*/ meltfptr[120] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V122*/ - meltfptr[121] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V122*/ meltfptr[121] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V123*/ - meltfptr[122] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V123*/ meltfptr[122] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V124*/ - meltfptr[123] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V124*/ meltfptr[123] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V125*/ - meltfptr[124] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V125*/ meltfptr[124] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V126*/ - meltfptr[125] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V126*/ meltfptr[125] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V127*/ - meltfptr[126] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V127*/ meltfptr[126] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V128*/ - meltfptr[127] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V128*/ meltfptr[127] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V129*/ - meltfptr[128] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V129*/ meltfptr[128] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V130*/ - meltfptr[129] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V130*/ meltfptr[129] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V131*/ - meltfptr[130] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V131*/ meltfptr[130] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V132*/ - meltfptr[131] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V132*/ meltfptr[131] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V133*/ - meltfptr[132] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V133*/ meltfptr[132] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V134*/ - meltfptr[133] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V134*/ meltfptr[133] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V135*/ - meltfptr[134] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V135*/ meltfptr[134] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V136*/ - meltfptr[135] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V136*/ meltfptr[135] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V137*/ - meltfptr[136] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V137*/ meltfptr[136] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V138*/ - meltfptr[137] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V138*/ meltfptr[137] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V139*/ - meltfptr[138] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V139*/ meltfptr[138] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V140*/ - meltfptr[139] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V140*/ meltfptr[139] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V141*/ - meltfptr[140] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V141*/ meltfptr[140] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V142*/ - meltfptr[141] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V142*/ meltfptr[141] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V143*/ - meltfptr[142] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V143*/ meltfptr[142] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V144*/ - meltfptr[143] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V144*/ meltfptr[143] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V145*/ - meltfptr[144] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V145*/ meltfptr[144] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V146*/ - meltfptr[145] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V146*/ meltfptr[145] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V147*/ - meltfptr[146] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V147*/ meltfptr[146] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V148*/ - meltfptr[147] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V148*/ meltfptr[147] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V149*/ - meltfptr[148] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V149*/ meltfptr[148] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V150*/ - meltfptr[149] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V150*/ meltfptr[149] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V151*/ - meltfptr[150] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V151*/ meltfptr[150] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V152*/ - meltfptr[151] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V152*/ meltfptr[151] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V153*/ - meltfptr[152] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V153*/ meltfptr[152] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V154*/ - meltfptr[153] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V154*/ meltfptr[153] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V155*/ - meltfptr[154] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V155*/ meltfptr[154] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V156*/ - meltfptr[155] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V156*/ meltfptr[155] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V157*/ - meltfptr[156] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V157*/ meltfptr[156] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V158*/ - meltfptr[157] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V158*/ meltfptr[157] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V159*/ - meltfptr[158] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V159*/ meltfptr[158] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V160*/ - meltfptr[159] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V160*/ meltfptr[159] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V161*/ - meltfptr[160] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V161*/ meltfptr[160] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V162*/ - meltfptr[161] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V162*/ meltfptr[161] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V163*/ - meltfptr[162] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V163*/ meltfptr[162] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V164*/ - meltfptr[163] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V164*/ meltfptr[163] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V165*/ - meltfptr[164] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V165*/ meltfptr[164] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V166*/ - meltfptr[165] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V166*/ meltfptr[165] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V167*/ - meltfptr[166] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V167*/ meltfptr[166] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V168*/ - meltfptr[167] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V168*/ meltfptr[167] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V169*/ - meltfptr[168] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V169*/ meltfptr[168] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V170*/ - meltfptr[169] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V170*/ meltfptr[169] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V171*/ - meltfptr[170] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V171*/ meltfptr[170] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V172*/ - meltfptr[171] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V172*/ meltfptr[171] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V173*/ - meltfptr[172] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V173*/ meltfptr[172] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V174*/ - meltfptr[173] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V174*/ meltfptr[173] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V175*/ - meltfptr[174] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V175*/ meltfptr[174] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V176*/ - meltfptr[175] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V176*/ meltfptr[175] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V177*/ - meltfptr[176] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V177*/ meltfptr[176] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V178*/ - meltfptr[177] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V178*/ meltfptr[177] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V179*/ - meltfptr[178] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V179*/ meltfptr[178] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V180*/ - meltfptr[179] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V180*/ meltfptr[179] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V181*/ - meltfptr[180] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V181*/ meltfptr[180] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V182*/ - meltfptr[181] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V182*/ meltfptr[181] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V183*/ - meltfptr[182] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V183*/ meltfptr[182] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V184*/ - meltfptr[183] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V184*/ meltfptr[183] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V185*/ - meltfptr[184] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V185*/ meltfptr[184] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V186*/ - meltfptr[185] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V186*/ meltfptr[185] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V187*/ - meltfptr[186] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V187*/ meltfptr[186] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V188*/ - meltfptr[187] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V188*/ meltfptr[187] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V189*/ - meltfptr[188] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V189*/ meltfptr[188] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V190*/ - meltfptr[189] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V190*/ meltfptr[189] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V191*/ - meltfptr[190] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V191*/ meltfptr[190] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V192*/ - meltfptr[191] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V192*/ meltfptr[191] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V193*/ - meltfptr[192] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V193*/ meltfptr[192] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V194*/ - meltfptr[193] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V194*/ meltfptr[193] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V195*/ - meltfptr[194] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V195*/ meltfptr[194] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V196*/ - meltfptr[195] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V196*/ meltfptr[195] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V197*/ - meltfptr[196] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V197*/ meltfptr[196] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V198*/ - meltfptr[197] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V198*/ meltfptr[197] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V199*/ - meltfptr[198] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V199*/ meltfptr[198] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V200*/ - meltfptr[199] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V200*/ meltfptr[199] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V201*/ - meltfptr[200] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V201*/ meltfptr[200] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V202*/ - meltfptr[201] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V202*/ meltfptr[201] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V203*/ - meltfptr[202] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V203*/ meltfptr[202] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V204*/ - meltfptr[203] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V204*/ meltfptr[203] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V205*/ - meltfptr[204] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V205*/ meltfptr[204] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V206*/ - meltfptr[205] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V206*/ meltfptr[205] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V207*/ - meltfptr[206] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V207*/ meltfptr[206] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V208*/ - meltfptr[207] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V208*/ meltfptr[207] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V209*/ - meltfptr[208] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V209*/ meltfptr[208] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V210*/ - meltfptr[209] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V210*/ meltfptr[209] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V211*/ - meltfptr[210] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V211*/ meltfptr[210] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V212*/ - meltfptr[211] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V212*/ meltfptr[211] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V213*/ - meltfptr[212] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V213*/ meltfptr[212] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V214*/ - meltfptr[213] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V214*/ meltfptr[213] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V215*/ - meltfptr[214] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V215*/ meltfptr[214] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V216*/ - meltfptr[215] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V216*/ meltfptr[215] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V217*/ - meltfptr[216] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V217*/ meltfptr[216] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V218*/ - meltfptr[217] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V218*/ meltfptr[217] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V219*/ - meltfptr[218] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V219*/ meltfptr[218] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V220*/ - meltfptr[219] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V220*/ meltfptr[219] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V221*/ - meltfptr[220] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V221*/ meltfptr[220] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V222*/ - meltfptr[221] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V222*/ meltfptr[221] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V223*/ - meltfptr[222] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V223*/ meltfptr[222] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V224*/ - meltfptr[223] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V224*/ meltfptr[223] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V225*/ - meltfptr[224] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V225*/ meltfptr[224] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V226*/ - meltfptr[225] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V226*/ meltfptr[225] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V227*/ - meltfptr[226] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V227*/ meltfptr[226] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V228*/ - meltfptr[227] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V228*/ meltfptr[227] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V229*/ - meltfptr[228] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V229*/ meltfptr[228] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V230*/ - meltfptr[229] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V230*/ meltfptr[229] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V231*/ - meltfptr[230] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V231*/ meltfptr[230] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V232*/ - meltfptr[231] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V232*/ meltfptr[231] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V233*/ - meltfptr[232] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V233*/ meltfptr[232] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V234*/ - meltfptr[233] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V234*/ meltfptr[233] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V235*/ - meltfptr[234] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V235*/ meltfptr[234] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V236*/ - meltfptr[235] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V236*/ meltfptr[235] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V237*/ - meltfptr[236] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V237*/ meltfptr[236] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V238*/ - meltfptr[237] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V238*/ meltfptr[237] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V239*/ - meltfptr[238] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V239*/ meltfptr[238] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V240*/ - meltfptr[239] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V240*/ meltfptr[239] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V241*/ - meltfptr[240] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V241*/ meltfptr[240] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V242*/ - meltfptr[241] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V242*/ meltfptr[241] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V243*/ - meltfptr[242] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V243*/ meltfptr[242] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V244*/ - meltfptr[243] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V244*/ meltfptr[243] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V245*/ - meltfptr[244] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V245*/ meltfptr[244] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V246*/ - meltfptr[245] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V246*/ meltfptr[245] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V247*/ - meltfptr[246] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V247*/ meltfptr[246] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V248*/ - meltfptr[247] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V248*/ meltfptr[247] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V249*/ - meltfptr[248] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V249*/ meltfptr[248] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V250*/ - meltfptr[249] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V250*/ meltfptr[249] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V251*/ - meltfptr[250] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V251*/ meltfptr[250] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V252*/ - meltfptr[251] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V252*/ meltfptr[251] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V253*/ - meltfptr[252] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V253*/ meltfptr[252] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V254*/ - meltfptr[253] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V254*/ meltfptr[253] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V255*/ - meltfptr[254] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V255*/ meltfptr[254] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V256*/ - meltfptr[255] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V256*/ meltfptr[255] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V257*/ - meltfptr[256] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V257*/ meltfptr[256] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V258*/ - meltfptr[257] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V258*/ meltfptr[257] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V259*/ - meltfptr[258] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V259*/ meltfptr[258] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V260*/ - meltfptr[259] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V260*/ meltfptr[259] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V261*/ - meltfptr[260] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V261*/ meltfptr[260] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V262*/ - meltfptr[261] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V262*/ meltfptr[261] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V263*/ - meltfptr[262] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V263*/ meltfptr[262] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V264*/ - meltfptr[263] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V264*/ meltfptr[263] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V265*/ - meltfptr[264] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V265*/ meltfptr[264] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V266*/ - meltfptr[265] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V266*/ meltfptr[265] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V267*/ - meltfptr[266] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V267*/ meltfptr[266] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V268*/ - meltfptr[267] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V268*/ meltfptr[267] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V269*/ - meltfptr[268] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V269*/ meltfptr[268] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V270*/ - meltfptr[269] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V270*/ meltfptr[269] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V271*/ - meltfptr[270] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V271*/ meltfptr[270] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V272*/ - meltfptr[271] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V272*/ meltfptr[271] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V273*/ - meltfptr[272] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V273*/ meltfptr[272] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V274*/ - meltfptr[273] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V274*/ meltfptr[273] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V275*/ - meltfptr[274] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V275*/ meltfptr[274] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V276*/ - meltfptr[275] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V276*/ meltfptr[275] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V277*/ - meltfptr[276] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V277*/ meltfptr[276] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V278*/ - meltfptr[277] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V278*/ meltfptr[277] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V279*/ - meltfptr[278] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V279*/ meltfptr[278] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V280*/ - meltfptr[279] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V280*/ meltfptr[279] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V281*/ - meltfptr[280] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V281*/ meltfptr[280] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V282*/ - meltfptr[281] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V282*/ meltfptr[281] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V283*/ - meltfptr[282] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V283*/ meltfptr[282] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V284*/ - meltfptr[283] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V284*/ meltfptr[283] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V285*/ - meltfptr[284] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V285*/ meltfptr[284] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V286*/ - meltfptr[285] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V286*/ meltfptr[285] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V287*/ - meltfptr[286] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V287*/ meltfptr[286] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V288*/ - meltfptr[287] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V288*/ meltfptr[287] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V289*/ - meltfptr[288] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V289*/ meltfptr[288] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V290*/ - meltfptr[289] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V290*/ meltfptr[289] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V291*/ - meltfptr[290] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V291*/ meltfptr[290] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V292*/ - meltfptr[291] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V292*/ meltfptr[291] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V293*/ - meltfptr[292] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V293*/ meltfptr[292] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V294*/ - meltfptr[293] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V294*/ meltfptr[293] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V295*/ - meltfptr[294] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V295*/ meltfptr[294] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V296*/ - meltfptr[295] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V296*/ meltfptr[295] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V297*/ - meltfptr[296] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V297*/ meltfptr[296] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V298*/ - meltfptr[297] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V298*/ meltfptr[297] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V299*/ - meltfptr[298] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V299*/ meltfptr[298] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V300*/ - meltfptr[299] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V300*/ meltfptr[299] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V301*/ - meltfptr[300] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V301*/ meltfptr[300] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V302*/ - meltfptr[301] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V302*/ meltfptr[301] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V303*/ - meltfptr[302] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V303*/ meltfptr[302] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V304*/ - meltfptr[303] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V304*/ meltfptr[303] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V305*/ - meltfptr[304] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V305*/ meltfptr[304] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V306*/ - meltfptr[305] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V306*/ meltfptr[305] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V307*/ - meltfptr[306] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V307*/ meltfptr[306] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V308*/ - meltfptr[307] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V308*/ meltfptr[307] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V309*/ - meltfptr[308] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V309*/ meltfptr[308] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V310*/ - meltfptr[309] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V310*/ meltfptr[309] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V311*/ - meltfptr[310] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V311*/ meltfptr[310] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V312*/ - meltfptr[311] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V312*/ meltfptr[311] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V313*/ - meltfptr[312] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V313*/ meltfptr[312] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V314*/ - meltfptr[313] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V314*/ meltfptr[313] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V315*/ - meltfptr[314] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V315*/ meltfptr[314] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V316*/ - meltfptr[315] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V316*/ meltfptr[315] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V317*/ - meltfptr[316] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V317*/ meltfptr[316] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V318*/ - meltfptr[317] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V318*/ meltfptr[317] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V319*/ - meltfptr[318] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V319*/ meltfptr[318] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V320*/ - meltfptr[319] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V320*/ meltfptr[319] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V321*/ - meltfptr[320] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V321*/ meltfptr[320] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V322*/ - meltfptr[321] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V322*/ meltfptr[321] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V323*/ - meltfptr[322] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V323*/ meltfptr[322] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V324*/ - meltfptr[323] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V324*/ meltfptr[323] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V325*/ - meltfptr[324] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V325*/ meltfptr[324] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V326*/ - meltfptr[325] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V326*/ meltfptr[325] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V327*/ - meltfptr[326] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V327*/ meltfptr[326] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V328*/ - meltfptr[327] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V328*/ meltfptr[327] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V329*/ - meltfptr[328] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V329*/ meltfptr[328] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V330*/ - meltfptr[329] = 0 ; + /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V330*/ meltfptr[329] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V331*/ - meltfptr[330] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V331*/ meltfptr[330] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V332*/ - meltfptr[331] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V332*/ meltfptr[331] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V333*/ - meltfptr[332] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V333*/ meltfptr[332] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_MAKE_SEXPR__V334*/ - meltfptr[333] = 0 ; + /*clear*/ /*_.MELT_MAKE_SEXPR__V334*/ meltfptr[333] = 0 ; /*^clear*/ - /*clear*/ /*_.RESEXP__V335*/ - meltfptr[334] = 0 ; + /*clear*/ /*_.RESEXP__V335*/ meltfptr[334] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V336*/ - meltfptr[335] = 0 ; - /*_.LET___V32*/ - meltfptr[19] = /*_.LET___V43*/ meltfptr[38];; + /*clear*/ /*_.LET___V336*/ meltfptr[335] = 0 ; + /*_.LET___V32*/ meltfptr[19] = /*_.LET___V43*/ meltfptr[38];; MELT_LOCATION("warmelt-macro.melt:129:/ clear"); - /*clear*/ /*_.SEXPNBARG__V33*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.SEXPNBARG__V33*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MACROVARNBARG__V34*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.MACROVARNBARG__V34*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.SEXPVARVECT__V35*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.SEXPVARVECT__V35*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.MACROVARVECT__V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.MACROVARVECT__V36*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L11*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#IS_NOT_A__L11*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_._IF___V37*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L12*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#IS_NOT_A__L12*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ - meltfptr[37] = 0 ; + /*clear*/ /*_._IF___V40*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V43*/ - meltfptr[38] = 0 ; - /*_.LET___V17*/ - meltfptr[15] = /*_.LET___V32*/ meltfptr[19];; + /*clear*/ /*_.LET___V43*/ meltfptr[38] = 0 ; + /*_.LET___V17*/ meltfptr[15] = /*_.LET___V32*/ meltfptr[19];; MELT_LOCATION("warmelt-macro.melt:109:/ clear"); - /*clear*/ /*_.TCONT__V18*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.TCONT__V18*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_#TCONTLEN__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#TCONTLEN__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V22*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.IFCPP___V22*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_#exeqI__L8*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#exeqI__L8*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V25*/ - meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V25*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V32*/ - meltfptr[19] = 0 ; - /*_.LET___V11*/ - meltfptr[9] = /*_.LET___V17*/ meltfptr[15];; + /*clear*/ /*_.LET___V32*/ meltfptr[19] = 0 ; + /*_.LET___V11*/ meltfptr[9] = /*_.LET___V17*/ meltfptr[15];; MELT_LOCATION("warmelt-macro.melt:104:/ clear"); - /*clear*/ /*_.SLOC__V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V12*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SEXCONT__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.SEXCONT__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:98:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; { MELT_LOCATION("warmelt-macro.melt:98:/ locexp"); @@ -7098,16 +6345,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ; } ; @@ -7189,8 +6433,7 @@ meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE(meltclosure_ptr_t meltclosp_ /* end of frame for routine meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE fromline 1719 */ - /* classy proc frame meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE */ - MeltFrame_meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE + /* classy proc frame meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE */ MeltFrame_meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE fromline 1748*/ #if ENABLE_CHECKING @@ -7203,8 +6446,7 @@ meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE(meltclosure_ptr_t meltclosp_ #define meltframe meltfram__ melt_trace_start("DIAGNOSTIC_EXPAND_MESSAGE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -7214,14 +6456,12 @@ meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE(meltclosure_ptr_t meltclosp_ /*getarg#0*/ MELT_LOCATION("warmelt-macro.melt:282:/ getarg"); - /*_.DIAGSTATE__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.DIAGSTATE__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: @@ -7251,8 +6491,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)) @@ -7261,8 +6500,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-macro.melt:283:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7299,20 +6537,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " sfmt="; /*^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-macro.melt:283:/ 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 ; } ; } @@ -7325,8 +6559,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-macro.melt:283:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -7335,11 +6568,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*/ @@ -7369,12 +6600,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DIAGSTATE__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DIAGNOSTIC_STATE*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-macro.melt:284:/ 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);; @@ -7403,31 +6632,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 284; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DIAGSTATE__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-macro.melt:284:/ 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-macro.melt:284:/ 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*/ @@ -7446,8 +6669,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ - if (/*_?*/ meltfram__.loc_CSTRING__o0) /*then*/ + /*cond*/ if (/*_?*/ meltfram__.loc_CSTRING__o0) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[2] = (/*nil*/NULL);; @@ -7476,28 +6698,23 @@ meltlab_endgetargs: argtab[2].meltbp_long = 285; /*^apply.arg*/ argtab[3].meltbp_cstring = /*_?*/ meltfram__.loc_CSTRING__o0; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[2] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[2] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:285:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[2];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:285:/ clear"); - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[2] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7509,8 +6726,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIAGSTATE__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DIAGNOSTIC_STATE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -7521,8 +6737,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIAGSTATE__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DIAG_VECT"); - /*_.DIAGVEC__V12*/ - meltfptr[2] = slot; + /*_.DIAGVEC__V12*/ meltfptr[2] = slot; }; ; } @@ -7533,8 +6748,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-macro.melt:287:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIAGSTATE__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DIAGNOSTIC_STATE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -7545,8 +6759,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIAGSTATE__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "DIAG_POSITION"); - /*_.DIAG_POSITION__V13*/ - meltfptr[12] = slot; + /*_.DIAG_POSITION__V13*/ meltfptr[12] = slot; }; ; } @@ -7557,30 +6770,23 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#DPOS__L4*/ - meltfnum[0] = + /*_#DPOS__L4*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.DIAG_POSITION__V13*/ meltfptr[12])));; /*^compute*/ - /*_#SPOS__L5*/ - meltfnum[1] = 0;; + /*_#SPOS__L5*/ meltfnum[1] = 0;; /*^compute*/ - /*_#DOLLARPOS__L6*/ - meltfnum[5] = 0;; + /*_#DOLLARPOS__L6*/ meltfnum[5] = 0;; /*^compute*/ - /*_#IXDOLL__L7*/ - meltfnum[6] = -1;; + /*_#IXDOLL__L7*/ meltfnum[6] = -1;; /*^compute*/ - /*_#FMTLEN__L8*/ - meltfnum[7] = 0;; + /*_#FMTLEN__L8*/ meltfnum[7] = 0;; /*^compute*/ - /*_.SBUF__V14*/ - meltfptr[13] = + /*_.SBUF__V14*/ meltfptr[13] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; { MELT_LOCATION("warmelt-macro.melt:294:/ locexp"); - /* diagnostic_expand_message SLEN_CHK__1*/ /*_#FMTLEN__L8*/ - meltfnum[7] = ((/*_?*/ meltfram__.loc_CSTRING__o0)?strlen(/*_?*/ meltfram__.loc_CSTRING__o0):0); + /* diagnostic_expand_message SLEN_CHK__1*/ /*_#FMTLEN__L8*/ meltfnum[7] = ((/*_?*/ meltfram__.loc_CSTRING__o0)?strlen(/*_?*/ meltfram__.loc_CSTRING__o0):0); ; } ; @@ -7594,12 +6800,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L9*/ - meltfnum[8] = + /*_#IS_MULTIPLE__L9*/ meltfnum[8] = (melt_magic_discr((melt_ptr_t)(/*_.DIAGVEC__V12*/ meltfptr[2])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-macro.melt:297:/ cond"); - /*cond*/ - if (/*_#IS_MULTIPLE__L9*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#IS_MULTIPLE__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; @@ -7628,31 +6832,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 297; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DIAGVEC__V12*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V17*/ - meltfptr[16] = 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__V17*/ meltfptr[16] = 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___V16*/ - meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; + /*_._IFELSE___V16*/ meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:297:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; } ; } ; - /*_.IFCPP___V15*/ - meltfptr[14] = /*_._IFELSE___V16*/ meltfptr[15];; + /*_.IFCPP___V15*/ meltfptr[14] = /*_._IFELSE___V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:297:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7680,8 +6878,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ - meltfnum[8] = + /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7690,8 +6887,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-macro.melt:298:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7732,20 +6928,16 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " diagvec="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.DIAGVEC__V12*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V19*/ - meltfptr[15] = 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_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V19*/ meltfptr[15] = 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_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V18*/ - meltfptr[16] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[15];; + /*_._IF___V18*/ meltfptr[16] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:298:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[15] = 0 ; } ; } @@ -7758,8 +6950,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-macro.melt:298:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -7768,11 +6959,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V18*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IF___V18*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7802,12 +6991,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L12*/ - meltfnum[10] = + /*_#IS_MULTIPLE__L12*/ meltfnum[10] = (melt_magic_discr((melt_ptr_t)(/*_.DIAGVEC__V12*/ meltfptr[2])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-macro.melt:299:/ cond"); - /*cond*/ - if (/*_#IS_MULTIPLE__L12*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#IS_MULTIPLE__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[16] = (/*nil*/NULL);; @@ -7836,31 +7023,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 299; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DIAGVEC__V12*/ meltfptr[2]; - /*_.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[16] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; + /*_._IFELSE___V21*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:299:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; } ; } ; - /*_.IFCPP___V20*/ - meltfptr[15] = /*_._IFELSE___V21*/ meltfptr[16];; + /*_.IFCPP___V20*/ meltfptr[15] = /*_._IFELSE___V21*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:299:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L12*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L12*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7883,12 +7064,10 @@ meltlabloop_DIAGLOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#gteqI__L13*/ - meltfnum[8] = + /*_#gteqI__L13*/ meltfnum[8] = ((/*_#SPOS__L5*/ meltfnum[1]) >= (/*_#FMTLEN__L8*/ meltfnum[7]));; MELT_LOCATION("warmelt-macro.melt:302:/ cond"); - /*cond*/ - if (/*_#gteqI__L13*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#gteqI__L13*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7899,8 +7078,7 @@ meltlabloop_DIAGLOOP_1:;/*^loopbody*/ /*^compute*/ - /*_.DIAGLOOP__V24*/ - meltfptr[16] = /*reallynil*/ NULL ;; + /*_.DIAGLOOP__V24*/ meltfptr[16] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -7914,8 +7092,7 @@ meltlabloop_DIAGLOOP_1:;/*^loopbody*/ } /*noelse*/ ; MELT_LOCATION("warmelt-macro.melt:304:/ compute"); - /*_#IXDOLL__L7*/ - meltfnum[6] = /*_#SETQ___L14*/ meltfnum[10] = -1;; + /*_#IXDOLL__L7*/ meltfnum[6] = /*_#SETQ___L14*/ meltfnum[10] = -1;; { MELT_LOCATION("warmelt-macro.melt:305:/ locexp"); @@ -7934,8 +7111,7 @@ meltlabloop_DIAGLOOP_1:;/*^loopbody*/ else { meltgc_add_out_cstr (/*_.SBUF__V14*/ meltfptr[13], /*_?*/ meltfram__.loc_CSTRING__o0 + /*_#SPOS__L5*/ meltfnum[1]); - /*_#DOLLARPOS__L6*/ - meltfnum[5] = -1; + /*_#DOLLARPOS__L6*/ meltfnum[5] = -1; } /* end diagnostic_expand_message DOLPOS_CHK__1 */ ; @@ -7944,12 +7120,10 @@ meltlabloop_DIAGLOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#ltI__L15*/ - meltfnum[14] = + /*_#ltI__L15*/ meltfnum[14] = ((/*_#DOLLARPOS__L6*/ meltfnum[5]) < (0));; MELT_LOCATION("warmelt-macro.melt:323:/ cond"); - /*cond*/ - if (/*_#ltI__L15*/ meltfnum[14]) /*then*/ + /*cond*/ if (/*_#ltI__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7960,8 +7134,7 @@ meltlabloop_DIAGLOOP_1:;/*^loopbody*/ /*^compute*/ - /*_.DIAGLOOP__V24*/ - meltfptr[16] = /*reallynil*/ NULL ;; + /*_.DIAGLOOP__V24*/ meltfptr[16] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -7980,12 +7153,10 @@ meltlabloop_DIAGLOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#ltI__L16*/ - meltfnum[15] = + /*_#ltI__L16*/ meltfnum[15] = ((/*_#IXDOLL__L7*/ meltfnum[6]) < (0));; MELT_LOCATION("warmelt-macro.melt:325:/ cond"); - /*cond*/ - if (/*_#ltI__L16*/ meltfnum[15]) /*then*/ + /*cond*/ if (/*_#ltI__L16*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8006,12 +7177,10 @@ meltlabloop_DIAGLOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#lteqI__L17*/ - meltfnum[16] = + /*_#lteqI__L17*/ meltfnum[16] = ((/*_#IXDOLL__L7*/ meltfnum[6]) <= (/*_#DPOS__L4*/ meltfnum[0]));; MELT_LOCATION("warmelt-macro.melt:327:/ cond"); - /*cond*/ - if (/*_#lteqI__L17*/ meltfnum[16]) /*then*/ + /*cond*/ if (/*_#lteqI__L17*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8021,8 +7190,7 @@ meltlabloop_DIAGLOOP_1:;/*^loopbody*/ MELT_LOCATION("warmelt-macro.melt:328:/ quasiblock"); - /*_.DIAGCOMP__V27*/ - meltfptr[26] = + /*_.DIAGCOMP__V27*/ meltfptr[26] = (melt_multiple_nth((melt_ptr_t)(/*_.DIAGVEC__V12*/ meltfptr[2]), (/*_#IXDOLL__L7*/ meltfnum[6])));; MELT_CHECK_SIGNAL(); @@ -8034,26 +7202,20 @@ meltlabloop_DIAGLOOP_1:;/*^loopbody*/ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DIAGCOMP__V27*/ meltfptr[26]; - /*_.ADD2OUT__V28*/ - meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V14*/ meltfptr[13]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V14*/ meltfptr[13]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V26*/ - meltfptr[25] = /*_.ADD2OUT__V28*/ meltfptr[27];; + /*_.LET___V26*/ meltfptr[25] = /*_.ADD2OUT__V28*/ meltfptr[27];; MELT_LOCATION("warmelt-macro.melt:328:/ clear"); - /*clear*/ /*_.DIAGCOMP__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.DIAGCOMP__V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V28*/ - meltfptr[27] = 0 ; - /*_._IF___V25*/ - meltfptr[24] = /*_.LET___V26*/ meltfptr[25];; + /*clear*/ /*_.ADD2OUT__V28*/ meltfptr[27] = 0 ; + /*_._IF___V25*/ meltfptr[24] = /*_.LET___V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:327:/ clear"); - /*clear*/ /*_.LET___V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.LET___V26*/ meltfptr[25] = 0 ; } ; } @@ -8064,56 +7226,44 @@ meltlabloop_DIAGLOOP_1:;/*^loopbody*/ } ; /*^compute*/ - /*_#plI__L18*/ - meltfnum[17] = + /*_#plI__L18*/ meltfnum[17] = ((/*_#DOLLARPOS__L6*/ meltfnum[5]) + (2));; MELT_LOCATION("warmelt-macro.melt:332:/ compute"); - /*_#SPOS__L5*/ - meltfnum[1] = /*_#SETQ___L19*/ meltfnum[18] = /*_#plI__L18*/ meltfnum[17];; + /*_#SPOS__L5*/ meltfnum[1] = /*_#SETQ___L19*/ meltfnum[18] = /*_#plI__L18*/ meltfnum[17];; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:300:/ clear"); - /*clear*/ /*_#gteqI__L13*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#gteqI__L13*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L14*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#SETQ___L14*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L15*/ - meltfnum[14] = 0 ; + /*clear*/ /*_#ltI__L15*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L16*/ - meltfnum[15] = 0 ; + /*clear*/ /*_#ltI__L16*/ meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_#lteqI__L17*/ - meltfnum[16] = 0 ; + /*clear*/ /*_#lteqI__L17*/ meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_._IF___V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L18*/ - meltfnum[17] = 0 ; + /*clear*/ /*_#plI__L18*/ meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L19*/ - meltfnum[18] = 0 ; + /*clear*/ /*_#SETQ___L19*/ meltfnum[18] = 0 ; } ; ; goto meltlabloop_DIAGLOOP_1; meltlabexit_DIAGLOOP_1:;/*^loopepilog*/ /*loopepilog*/ - /*_.FOREVER___V23*/ - meltfptr[21] = /*_.DIAGLOOP__V24*/ meltfptr[16];; + /*_.FOREVER___V23*/ meltfptr[21] = /*_.DIAGLOOP__V24*/ meltfptr[16];; } ; MELT_LOCATION("warmelt-macro.melt:334:/ quasiblock"); - /*_.DIAGMSG__V30*/ - meltfptr[27] = + /*_.DIAGMSG__V30*/ meltfptr[27] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[5])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V14*/ meltfptr[13]))));; #if MELT_HAVE_DEBUG @@ -8135,8 +7285,7 @@ meltlabexit_DIAGLOOP_1:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ - meltfnum[8] = + /*_#MELT_NEED_DBG__L20*/ meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8145,8 +7294,7 @@ meltlabexit_DIAGLOOP_1:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-macro.melt:336:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L20*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8179,20 +7327,16 @@ meltlabexit_DIAGLOOP_1:;/*^loopepilog*/ argtab[3].meltbp_cstring = "diagnostic_expand_message gives diagmsg="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.DIAGMSG__V30*/ meltfptr[27]; - /*_.MELT_DEBUG_FUN__V32*/ - 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V32*/ 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V31*/ - meltfptr[25] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[24];; + /*_._IF___V31*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:336:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ meltfptr[24] = 0 ; } ; } @@ -8205,8 +7349,7 @@ meltlabexit_DIAGLOOP_1:;/*^loopepilog*/ { MELT_LOCATION("warmelt-macro.melt:336:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -8215,11 +7358,9 @@ meltlabexit_DIAGLOOP_1:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V31*/ - meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V31*/ meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8245,8 +7386,7 @@ meltlabexit_DIAGLOOP_1:;/*^loopepilog*/ MELT_LOCATION("warmelt-macro.melt:337:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.DIAGMSG__V30*/ meltfptr[27];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.DIAGMSG__V30*/ meltfptr[27];; { MELT_LOCATION("warmelt-macro.melt:337:/ locexp"); @@ -8261,64 +7401,46 @@ meltlabexit_DIAGLOOP_1:;/*^loopepilog*/ ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V29*/ - meltfptr[26] = /*_.RETURN___V33*/ meltfptr[24];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V29*/ meltfptr[26] = /*_.RETURN___V33*/ meltfptr[24];; MELT_LOCATION("warmelt-macro.melt:334:/ clear"); - /*clear*/ /*_.DIAGMSG__V30*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.DIAGMSG__V30*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V33*/ - meltfptr[24] = 0 ; - /*_.LET___V11*/ - meltfptr[9] = /*_.LET___V29*/ meltfptr[26];; + /*clear*/ /*_.RETURN___V33*/ meltfptr[24] = 0 ; + /*_.LET___V11*/ meltfptr[9] = /*_.LET___V29*/ meltfptr[26];; MELT_LOCATION("warmelt-macro.melt:286:/ clear"); - /*clear*/ /*_.DIAGVEC__V12*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.DIAGVEC__V12*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.DIAG_POSITION__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.DIAG_POSITION__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_#DPOS__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#DPOS__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#SPOS__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#SPOS__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#DOLLARPOS__L6*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#DOLLARPOS__L6*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_#IXDOLL__L7*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#IXDOLL__L7*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_#FMTLEN__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#FMTLEN__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.SBUF__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.SBUF__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V20*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V23*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.FOREVER___V23*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V29*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.LET___V29*/ meltfptr[26] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:282:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; { MELT_LOCATION("warmelt-macro.melt:282:/ locexp"); @@ -8333,19 +7455,15 @@ meltlabexit_DIAGLOOP_1:;/*^loopepilog*/ ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V5*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.IFCPP___V5*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ; } ; @@ -8438,14 +7556,11 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, #define meltfhook /*hook data of HOOK_MACRO_INSTALLER*/ ((melthook_ptr_t) (/*_._HOOKDATA___V1*/ meltfptr[0])) /* body of melthook_HOOK_MACRO_INSTALLER hook */ MELT_LOCATION("warmelt-macro.melt:3711:/ compute"); - /*_._HOOKDATA___V1*/ - meltfptr[0] = /*hookgetdata*/ melthookdatap;; + /*_._HOOKDATA___V1*/ meltfptr[0] = /*hookgetdata*/ melthookdatap;; /*^compute*/ - /*_.MBIND__V2*/ - meltfptr[1] = /*gethookinput*/ meltinp0_MBIND;; + /*_.MBIND__V2*/ meltfptr[1] = /*gethookinput*/ meltinp0_MBIND;; /*^compute*/ - /*_.MEXPCLOS__V3*/ - meltfptr[2] = /*gethookinput*/ meltinp1_MEXPCLOS;; + /*_.MEXPCLOS__V3*/ meltfptr[2] = /*gethookinput*/ meltinp1_MEXPCLOS;; /*^block*/ /*anyblock*/ { @@ -8470,8 +7585,7 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, 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)) @@ -8480,8 +7594,7 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-macro.melt:3716:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8518,20 +7631,16 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, argtab[5].meltbp_cstring = " mexpclos="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPCLOS__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ - meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*~MELT_DEBUG_FUN*/ meltfhook->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*/ meltfhook->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-macro.melt:3716:/ 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 ; } ; } @@ -8544,8 +7653,7 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, { MELT_LOCATION("warmelt-macro.melt:3716:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -8554,11 +7662,9 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, /*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*/ @@ -8599,12 +7705,10 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MBIND__V2*/ meltfptr[1]), (melt_ptr_t)((/*~CLASS_DEFINED_MACRO_BINDING*/ meltfhook->tabval[1])));; MELT_LOCATION("warmelt-macro.melt:3718:/ 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);; @@ -8633,31 +7737,25 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, argtab[2].meltbp_long = 3718; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MBIND__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ - meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*~MELT_ASSERT_FAILURE_FUN*/ meltfhook->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*/ meltfhook->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-macro.melt:3718:/ 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-macro.melt:3718:/ 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*/ @@ -8675,12 +7773,10 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L4*/ - meltfnum[0] = + /*_#IS_CLOSURE__L4*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPCLOS__V3*/ meltfptr[2])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-macro.melt:3719:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -8711,31 +7807,25 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPCLOS__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MBIND__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ - meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*~MELT_ASSERT_FAILURE_FUN*/ meltfhook->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*~MELT_ASSERT_FAILURE_FUN*/ meltfhook->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ - meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:3719:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ - meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; + /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:3719:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8747,8 +7837,7 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:3720:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MBIND__V2*/ meltfptr[1]), (melt_ptr_t)((/*~CLASS_MACRO_BINDING*/ meltfhook->tabval[3]))) ) /*then*/ @@ -8795,8 +7884,7 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, 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)) @@ -8805,8 +7893,7 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-macro.melt:3721:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8839,20 +7926,16 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, argtab[3].meltbp_cstring = "hook_macro_installer updated mbind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MBIND__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V13*/ - meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*~MELT_DEBUG_FUN*/ meltfhook->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__V13*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*~MELT_DEBUG_FUN*/ meltfhook->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V12*/ - meltfptr[10] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[3];; + /*_._IF___V12*/ meltfptr[10] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:3721:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ meltfptr[3] = 0 ; } ; } @@ -8865,8 +7948,7 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, { MELT_LOCATION("warmelt-macro.melt:3721:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -8875,11 +7957,9 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V12*/ - meltfptr[10] = 0 ; + /*clear*/ /*_._IF___V12*/ meltfptr[10] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8905,11 +7985,9 @@ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, /*epilog*/ MELT_LOCATION("warmelt-macro.melt:3711:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; } ; /* epilogue of melthook_HOOK_MACRO_INSTALLER hook */ @@ -8969,8 +8047,7 @@ const char melt_module_is_gpl_compatible[]= "warmelt-macro: GPLv3+"; /* the frame for initial routine */ /** start of frame for melt_start_this_module of CLASS_INITIAL_MODULE_ROUTINEOBJ from 1518**/ -/*curframdeclclassy*/ -class Melt_InitialClassyFrame_WARMELTmiMACRO_h942211305// fromline 1531 +/*curframdeclclassy*/ class Melt_InitialClassyFrame_WARMELTmiMACRO_h942211305// fromline 1531 : public Melt_CallFrameWithValues<2291> { public: /* fromline 1535*/ @@ -11148,8 +10225,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (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); @@ -11159,88 +10235,75 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (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__REGISTER_DIAG_GIMPLE*/ - /*iniroutlocvar*/ /*_._VALROUT___V97*/ - meltfptr[96] = (melt_ptr_t) &meltcdat->drout_3__REGISTER_DIAG_GIMPLE; + /*iniroutlocvar*/ /*_._VALROUT___V97*/ meltfptr[96] = (melt_ptr_t) &meltcdat->drout_3__REGISTER_DIAG_GIMPLE; meltcdat->drout_3__REGISTER_DIAG_GIMPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_3__REGISTER_DIAG_GIMPLE.routdescr, "REGISTER_DIAG_GIMPLE @warmelt-macro.melt:52", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_3__REGISTER_DIAG_GIMPLE.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_3__REGISTER_DIAG_GIMPLE, meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE); /*iniclos dclo_4__REGISTER_DIAG_GIMPLE*/ - /*_._VALCLO___V98*/ - meltfptr[97] = (melt_ptr_t) &meltcdat->dclo_4__REGISTER_DIAG_GIMPLE; + /*_._VALCLO___V98*/ meltfptr[97] = (melt_ptr_t) &meltcdat->dclo_4__REGISTER_DIAG_GIMPLE; meltcdat->dclo_4__REGISTER_DIAG_GIMPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_4__REGISTER_DIAG_GIMPLE.nbval = 0; /*inirout drout_5__REGISTER_DIAG_GIMPLE_SEQ*/ - /*iniroutlocvar*/ /*_._VALROUT___V99*/ - meltfptr[98] = (melt_ptr_t) &meltcdat->drout_5__REGISTER_DIAG_GIMPLE_SEQ; + /*iniroutlocvar*/ /*_._VALROUT___V99*/ meltfptr[98] = (melt_ptr_t) &meltcdat->drout_5__REGISTER_DIAG_GIMPLE_SEQ; meltcdat->drout_5__REGISTER_DIAG_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_5__REGISTER_DIAG_GIMPLE_SEQ.routdescr, "REGISTER_DIAG_GIMPLE_SEQ @warmelt-macro.melt:57", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_5__REGISTER_DIAG_GIMPLE_SEQ.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_5__REGISTER_DIAG_GIMPLE_SEQ, meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ); /*iniclos dclo_6__REGISTER_DIAG_GIMPLE_SEQ*/ - /*_._VALCLO___V100*/ - meltfptr[99] = (melt_ptr_t) &meltcdat->dclo_6__REGISTER_DIAG_GIMPLE_SEQ; + /*_._VALCLO___V100*/ meltfptr[99] = (melt_ptr_t) &meltcdat->dclo_6__REGISTER_DIAG_GIMPLE_SEQ; meltcdat->dclo_6__REGISTER_DIAG_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_6__REGISTER_DIAG_GIMPLE_SEQ.nbval = 0; /*inirout drout_7__REGISTER_DIAG_TREE*/ - /*iniroutlocvar*/ /*_._VALROUT___V101*/ - meltfptr[100] = (melt_ptr_t) &meltcdat->drout_7__REGISTER_DIAG_TREE; + /*iniroutlocvar*/ /*_._VALROUT___V101*/ meltfptr[100] = (melt_ptr_t) &meltcdat->drout_7__REGISTER_DIAG_TREE; meltcdat->drout_7__REGISTER_DIAG_TREE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_7__REGISTER_DIAG_TREE.routdescr, "REGISTER_DIAG_TREE @warmelt-macro.melt:62", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_7__REGISTER_DIAG_TREE.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_7__REGISTER_DIAG_TREE, meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE); /*iniclos dclo_8__REGISTER_DIAG_TREE*/ - /*_._VALCLO___V102*/ - meltfptr[101] = (melt_ptr_t) &meltcdat->dclo_8__REGISTER_DIAG_TREE; + /*_._VALCLO___V102*/ meltfptr[101] = (melt_ptr_t) &meltcdat->dclo_8__REGISTER_DIAG_TREE; meltcdat->dclo_8__REGISTER_DIAG_TREE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_8__REGISTER_DIAG_TREE.nbval = 0; /*inirout drout_9__REGISTER_DIAG_BASIC_BLOCK*/ - /*iniroutlocvar*/ /*_._VALROUT___V103*/ - meltfptr[102] = (melt_ptr_t) &meltcdat->drout_9__REGISTER_DIAG_BASIC_BLOCK; + /*iniroutlocvar*/ /*_._VALROUT___V103*/ meltfptr[102] = (melt_ptr_t) &meltcdat->drout_9__REGISTER_DIAG_BASIC_BLOCK; meltcdat->drout_9__REGISTER_DIAG_BASIC_BLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_9__REGISTER_DIAG_BASIC_BLOCK.routdescr, "REGISTER_DIAG_BASIC_BLOCK @warmelt-macro.melt:67", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_9__REGISTER_DIAG_BASIC_BLOCK.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_9__REGISTER_DIAG_BASIC_BLOCK, meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK); /*iniclos dclo_10__REGISTER_DIAG_BASIC_BLOCK*/ - /*_._VALCLO___V104*/ - meltfptr[103] = (melt_ptr_t) &meltcdat->dclo_10__REGISTER_DIAG_BASIC_BLOCK; + /*_._VALCLO___V104*/ meltfptr[103] = (melt_ptr_t) &meltcdat->dclo_10__REGISTER_DIAG_BASIC_BLOCK; meltcdat->dclo_10__REGISTER_DIAG_BASIC_BLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_10__REGISTER_DIAG_BASIC_BLOCK.nbval = 0; /*inirout drout_11__REGISTER_DIAG_EDGE*/ - /*iniroutlocvar*/ /*_._VALROUT___V105*/ - meltfptr[104] = (melt_ptr_t) &meltcdat->drout_11__REGISTER_DIAG_EDGE; + /*iniroutlocvar*/ /*_._VALROUT___V105*/ meltfptr[104] = (melt_ptr_t) &meltcdat->drout_11__REGISTER_DIAG_EDGE; meltcdat->drout_11__REGISTER_DIAG_EDGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_11__REGISTER_DIAG_EDGE.routdescr, "REGISTER_DIAG_EDGE @warmelt-macro.melt:72", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_11__REGISTER_DIAG_EDGE.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_11__REGISTER_DIAG_EDGE, meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE); /*iniclos dclo_12__REGISTER_DIAG_EDGE*/ - /*_._VALCLO___V106*/ - meltfptr[105] = (melt_ptr_t) &meltcdat->dclo_12__REGISTER_DIAG_EDGE; + /*_._VALCLO___V106*/ meltfptr[105] = (melt_ptr_t) &meltcdat->dclo_12__REGISTER_DIAG_EDGE; meltcdat->dclo_12__REGISTER_DIAG_EDGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_12__REGISTER_DIAG_EDGE.nbval = 0; /*iniobj dsym_13__CLASS_DIAGNOSTIC_STATE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V107*/ meltfptr[106]) + /*uniqueobj*/ if (!/*_._VALDATA___V107*/ meltfptr[106]) /*_._VALDATA___V107*/ meltfptr[106] = (melt_ptr_t )&meltcdat->dsym_13__CLASS_DIAGNOSTIC_STATE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_13__CLASS_DIAGNOSTIC_STATE", 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_DIAGNOSTIC_STATE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11250,18 +10313,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_14__CLASS_DIAGNOSTIC_STATE*/ - /*_._VALSTR___V108*/ - meltfptr[107] = (melt_ptr_t) &meltcdat->dstr_14__CLASS_DIAGNOSTIC_STATE; + /*_._VALSTR___V108*/ meltfptr[107] = (melt_ptr_t) &meltcdat->dstr_14__CLASS_DIAGNOSTIC_STATE; meltcdat->dstr_14__CLASS_DIAGNOSTIC_STATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_14__CLASS_DIAGNOSTIC_STATE.val, "CLASS_DIAGNOSTIC_STATE", sizeof (meltcdat->dstr_14__CLASS_DIAGNOSTIC_STATE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_14__CLASS_DIAGNOSTIC_STATE.val, "CLASS_DIAGNOSTIC_STATE", sizeof (meltcdat->dstr_14__CLASS_DIAGNOSTIC_STATE.val)-1); meltcdat->dstr_14__CLASS_DIAGNOSTIC_STATE.val[22] = (char)0 ; meltcdat->dstr_14__CLASS_DIAGNOSTIC_STATE.slen = 22 ; /*iniobj dsym_15__CLASS_LOCATED*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V109*/ meltfptr[108]) + /*uniqueobj*/ if (!/*_._VALDATA___V109*/ meltfptr[108]) /*_._VALDATA___V109*/ meltfptr[108] = (melt_ptr_t )&meltcdat->dsym_15__CLASS_LOCATED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_15__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_15__CLASS_LOCATED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11271,19 +10331,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_16__CLASS_LOCATED*/ - /*_._VALSTR___V110*/ - meltfptr[109] = (melt_ptr_t) &meltcdat->dstr_16__CLASS_LOCATED; + /*_._VALSTR___V110*/ meltfptr[109] = (melt_ptr_t) &meltcdat->dstr_16__CLASS_LOCATED; meltcdat->dstr_16__CLASS_LOCATED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_16__CLASS_LOCATED.val, "CLASS_LOCATED", sizeof (meltcdat->dstr_16__CLASS_LOCATED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_16__CLASS_LOCATED.val, "CLASS_LOCATED", sizeof (meltcdat->dstr_16__CLASS_LOCATED.val)-1); meltcdat->dstr_16__CLASS_LOCATED.val[13] = (char)0 ; meltcdat->dstr_16__CLASS_LOCATED.slen = 13 ; MELT_LOCATION("warmelt-macro.melt:78:/ iniobj"); /*iniobj dobj_17__CLASS_DIAGNOSTIC_STATE*/ - /*_._VALDATA___V111*/ - meltfptr[110] = (melt_ptr_t )&meltcdat->dobj_17__CLASS_DIAGNOSTIC_STATE; + /*_._VALDATA___V111*/ meltfptr[110] = (melt_ptr_t )&meltcdat->dobj_17__CLASS_DIAGNOSTIC_STATE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_17__CLASS_DIAGNOSTIC_STATE", 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_17__CLASS_DIAGNOSTIC_STATE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_17__CLASS_DIAGNOSTIC_STATE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -11293,28 +10350,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_18__CLASS_DIAGNOSTIC_STATE*/ - /*_._VALSTR___V112*/ - meltfptr[111] = (melt_ptr_t) &meltcdat->dstr_18__CLASS_DIAGNOSTIC_STATE; + /*_._VALSTR___V112*/ meltfptr[111] = (melt_ptr_t) &meltcdat->dstr_18__CLASS_DIAGNOSTIC_STATE; meltcdat->dstr_18__CLASS_DIAGNOSTIC_STATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_18__CLASS_DIAGNOSTIC_STATE.val, "CLASS_DIAGNOSTIC_STATE", sizeof (meltcdat->dstr_18__CLASS_DIAGNOSTIC_STATE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_18__CLASS_DIAGNOSTIC_STATE.val, "CLASS_DIAGNOSTIC_STATE", sizeof (meltcdat->dstr_18__CLASS_DIAGNOSTIC_STATE.val)-1); meltcdat->dstr_18__CLASS_DIAGNOSTIC_STATE.val[22] = (char)0 ; meltcdat->dstr_18__CLASS_DIAGNOSTIC_STATE.slen = 22 ; /*inimult dtup_19_syCLASS_DIAGNOSTIC_STATE*/ - /*_._VALTUP___V113*/ - meltfptr[112] = (melt_ptr_t) &meltcdat->dtup_19_syCLASS_DIAGNOSTIC_STATE; + /*_._VALTUP___V113*/ meltfptr[112] = (melt_ptr_t) &meltcdat->dtup_19_syCLASS_DIAGNOSTIC_STATE; meltcdat->dtup_19_syCLASS_DIAGNOSTIC_STATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_19_syCLASS_DIAGNOSTIC_STATE.nbval = 3; /*inimult dtup_20_syCLASS_DIAGNOSTIC_STATE*/ - /*_._VALTUP___V120*/ - meltfptr[119] = (melt_ptr_t) &meltcdat->dtup_20_syCLASS_DIAGNOSTIC_STATE; + /*_._VALTUP___V120*/ meltfptr[119] = (melt_ptr_t) &meltcdat->dtup_20_syCLASS_DIAGNOSTIC_STATE; meltcdat->dtup_20_syCLASS_DIAGNOSTIC_STATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_20_syCLASS_DIAGNOSTIC_STATE.nbval = 5; /*iniobj dsym_21__DIAG_VECT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V121*/ meltfptr[120]) + /*uniqueobj*/ if (!/*_._VALDATA___V121*/ meltfptr[120]) /*_._VALDATA___V121*/ meltfptr[120] = (melt_ptr_t )&meltcdat->dsym_21__DIAG_VECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_21__DIAG_VECT", 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_21__DIAG_VECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11324,19 +10376,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_22__DIAG_VECT*/ - /*_._VALSTR___V122*/ - meltfptr[121] = (melt_ptr_t) &meltcdat->dstr_22__DIAG_VECT; + /*_._VALSTR___V122*/ meltfptr[121] = (melt_ptr_t) &meltcdat->dstr_22__DIAG_VECT; meltcdat->dstr_22__DIAG_VECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_22__DIAG_VECT.val, "DIAG_VECT", sizeof (meltcdat->dstr_22__DIAG_VECT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_22__DIAG_VECT.val, "DIAG_VECT", sizeof (meltcdat->dstr_22__DIAG_VECT.val)-1); meltcdat->dstr_22__DIAG_VECT.val[9] = (char)0 ; meltcdat->dstr_22__DIAG_VECT.slen = 9 ; /*^iniobj*/ /*iniobj dobj_23__DIAG_VECT*/ - /*_._VALDATA___V114*/ - meltfptr[113] = (melt_ptr_t )&meltcdat->dobj_23__DIAG_VECT; + /*_._VALDATA___V114*/ meltfptr[113] = (melt_ptr_t )&meltcdat->dobj_23__DIAG_VECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_23__DIAG_VECT", 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_23__DIAG_VECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_23__DIAG_VECT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11346,18 +10395,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_24__DIAG_VECT*/ - /*_._VALSTR___V115*/ - meltfptr[114] = (melt_ptr_t) &meltcdat->dstr_24__DIAG_VECT; + /*_._VALSTR___V115*/ meltfptr[114] = (melt_ptr_t) &meltcdat->dstr_24__DIAG_VECT; meltcdat->dstr_24__DIAG_VECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_24__DIAG_VECT.val, "DIAG_VECT", sizeof (meltcdat->dstr_24__DIAG_VECT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_24__DIAG_VECT.val, "DIAG_VECT", sizeof (meltcdat->dstr_24__DIAG_VECT.val)-1); meltcdat->dstr_24__DIAG_VECT.val[9] = (char)0 ; meltcdat->dstr_24__DIAG_VECT.slen = 9 ; /*iniobj dsym_25__DIAG_POSITION*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V123*/ meltfptr[122]) + /*uniqueobj*/ if (!/*_._VALDATA___V123*/ meltfptr[122]) /*_._VALDATA___V123*/ meltfptr[122] = (melt_ptr_t )&meltcdat->dsym_25__DIAG_POSITION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_25__DIAG_POSITION", 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__DIAG_POSITION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11367,19 +10413,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_26__DIAG_POSITION*/ - /*_._VALSTR___V124*/ - meltfptr[123] = (melt_ptr_t) &meltcdat->dstr_26__DIAG_POSITION; + /*_._VALSTR___V124*/ meltfptr[123] = (melt_ptr_t) &meltcdat->dstr_26__DIAG_POSITION; meltcdat->dstr_26__DIAG_POSITION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_26__DIAG_POSITION.val, "DIAG_POSITION", sizeof (meltcdat->dstr_26__DIAG_POSITION.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_26__DIAG_POSITION.val, "DIAG_POSITION", sizeof (meltcdat->dstr_26__DIAG_POSITION.val)-1); meltcdat->dstr_26__DIAG_POSITION.val[13] = (char)0 ; meltcdat->dstr_26__DIAG_POSITION.slen = 13 ; /*^iniobj*/ /*iniobj dobj_27__DIAG_POSITION*/ - /*_._VALDATA___V116*/ - meltfptr[115] = (melt_ptr_t )&meltcdat->dobj_27__DIAG_POSITION; + /*_._VALDATA___V116*/ meltfptr[115] = (melt_ptr_t )&meltcdat->dobj_27__DIAG_POSITION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_27__DIAG_POSITION", 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_27__DIAG_POSITION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_27__DIAG_POSITION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11389,18 +10432,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_28__DIAG_POSITION*/ - /*_._VALSTR___V117*/ - meltfptr[116] = (melt_ptr_t) &meltcdat->dstr_28__DIAG_POSITION; + /*_._VALSTR___V117*/ meltfptr[116] = (melt_ptr_t) &meltcdat->dstr_28__DIAG_POSITION; meltcdat->dstr_28__DIAG_POSITION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_28__DIAG_POSITION.val, "DIAG_POSITION", sizeof (meltcdat->dstr_28__DIAG_POSITION.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_28__DIAG_POSITION.val, "DIAG_POSITION", sizeof (meltcdat->dstr_28__DIAG_POSITION.val)-1); meltcdat->dstr_28__DIAG_POSITION.val[13] = (char)0 ; meltcdat->dstr_28__DIAG_POSITION.slen = 13 ; /*iniobj dsym_29__DIAG_STATE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V125*/ meltfptr[124]) + /*uniqueobj*/ if (!/*_._VALDATA___V125*/ meltfptr[124]) /*_._VALDATA___V125*/ meltfptr[124] = (melt_ptr_t )&meltcdat->dsym_29__DIAG_STATE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_29__DIAG_STATE", 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__DIAG_STATE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11410,19 +10450,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_30__DIAG_STATE*/ - /*_._VALSTR___V126*/ - meltfptr[125] = (melt_ptr_t) &meltcdat->dstr_30__DIAG_STATE; + /*_._VALSTR___V126*/ meltfptr[125] = (melt_ptr_t) &meltcdat->dstr_30__DIAG_STATE; meltcdat->dstr_30__DIAG_STATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_30__DIAG_STATE.val, "DIAG_STATE", sizeof (meltcdat->dstr_30__DIAG_STATE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_30__DIAG_STATE.val, "DIAG_STATE", sizeof (meltcdat->dstr_30__DIAG_STATE.val)-1); meltcdat->dstr_30__DIAG_STATE.val[10] = (char)0 ; meltcdat->dstr_30__DIAG_STATE.slen = 10 ; /*^iniobj*/ /*iniobj dobj_31__DIAG_STATE*/ - /*_._VALDATA___V118*/ - meltfptr[117] = (melt_ptr_t )&meltcdat->dobj_31__DIAG_STATE; + /*_._VALDATA___V118*/ meltfptr[117] = (melt_ptr_t )&meltcdat->dobj_31__DIAG_STATE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_31__DIAG_STATE", 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_31__DIAG_STATE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_31__DIAG_STATE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11432,18 +10469,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_32__DIAG_STATE*/ - /*_._VALSTR___V119*/ - meltfptr[118] = (melt_ptr_t) &meltcdat->dstr_32__DIAG_STATE; + /*_._VALSTR___V119*/ meltfptr[118] = (melt_ptr_t) &meltcdat->dstr_32__DIAG_STATE; meltcdat->dstr_32__DIAG_STATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_32__DIAG_STATE.val, "DIAG_STATE", sizeof (meltcdat->dstr_32__DIAG_STATE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_32__DIAG_STATE.val, "DIAG_STATE", sizeof (meltcdat->dstr_32__DIAG_STATE.val)-1); meltcdat->dstr_32__DIAG_STATE.val[10] = (char)0 ; meltcdat->dstr_32__DIAG_STATE.slen = 10 ; /*iniobj dsym_33__DISCR_DIAGNOSTIC_CLOSURE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V127*/ meltfptr[126]) + /*uniqueobj*/ if (!/*_._VALDATA___V127*/ meltfptr[126]) /*_._VALDATA___V127*/ meltfptr[126] = (melt_ptr_t )&meltcdat->dsym_33__DISCR_DIAGNOSTIC_CLOSURE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_33__DISCR_DIAGNOSTIC_CLOSURE", 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_33__DISCR_DIAGNOSTIC_CLOSURE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11453,18 +10487,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_34__DISCR_DIAGNOSTIC_CLOSURE*/ - /*_._VALSTR___V128*/ - meltfptr[127] = (melt_ptr_t) &meltcdat->dstr_34__DISCR_DIAGNOSTIC_CLOSURE; + /*_._VALSTR___V128*/ meltfptr[127] = (melt_ptr_t) &meltcdat->dstr_34__DISCR_DIAGNOSTIC_CLOSURE; meltcdat->dstr_34__DISCR_DIAGNOSTIC_CLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_34__DISCR_DIAGNOSTIC_CLOSURE.val, "DISCR_DIAGNOSTIC_CLOSURE", sizeof (meltcdat->dstr_34__DISCR_DIAGNOSTIC_CLOSURE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_34__DISCR_DIAGNOSTIC_CLOSURE.val, "DISCR_DIAGNOSTIC_CLOSURE", sizeof (meltcdat->dstr_34__DISCR_DIAGNOSTIC_CLOSURE.val)-1); meltcdat->dstr_34__DISCR_DIAGNOSTIC_CLOSURE.val[24] = (char)0 ; meltcdat->dstr_34__DISCR_DIAGNOSTIC_CLOSURE.slen = 24 ; /*iniobj dsym_35__CLASS_DISCRIMINANT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V129*/ meltfptr[128]) + /*uniqueobj*/ if (!/*_._VALDATA___V129*/ meltfptr[128]) /*_._VALDATA___V129*/ meltfptr[128] = (melt_ptr_t )&meltcdat->dsym_35__CLASS_DISCRIMINANT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_35__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_35__CLASS_DISCRIMINANT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11474,19 +10505,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_36__CLASS_DISCRIMINANT*/ - /*_._VALSTR___V130*/ - meltfptr[129] = (melt_ptr_t) &meltcdat->dstr_36__CLASS_DISCRIMINANT; + /*_._VALSTR___V130*/ meltfptr[129] = (melt_ptr_t) &meltcdat->dstr_36__CLASS_DISCRIMINANT; meltcdat->dstr_36__CLASS_DISCRIMINANT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_36__CLASS_DISCRIMINANT.val, "CLASS_DISCRIMINANT", sizeof (meltcdat->dstr_36__CLASS_DISCRIMINANT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_36__CLASS_DISCRIMINANT.val, "CLASS_DISCRIMINANT", sizeof (meltcdat->dstr_36__CLASS_DISCRIMINANT.val)-1); meltcdat->dstr_36__CLASS_DISCRIMINANT.val[18] = (char)0 ; meltcdat->dstr_36__CLASS_DISCRIMINANT.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:87:/ iniobj"); /*iniobj dobj_37__DISCR_DIAGNOSTIC_CLOSURE*/ - /*_._VALDATA___V131*/ - meltfptr[130] = (melt_ptr_t )&meltcdat->dobj_37__DISCR_DIAGNOSTIC_CLOSURE; + /*_._VALDATA___V131*/ meltfptr[130] = (melt_ptr_t )&meltcdat->dobj_37__DISCR_DIAGNOSTIC_CLOSURE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_37__DISCR_DIAGNOSTIC_CLOSURE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_DISCRIMINANT__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_37__DISCR_DIAGNOSTIC_CLOSURE", ((meltobject_ptr_t) (/*_.CLASS_DISCRIMINANT__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_37__DISCR_DIAGNOSTIC_CLOSURE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_DISCRIMINANT__V7*/ meltfptr[6]); @@ -11495,8 +10523,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*iniobj dsym_38__DISCR_CLOSURE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V133*/ meltfptr[132]) + /*uniqueobj*/ if (!/*_._VALDATA___V133*/ meltfptr[132]) /*_._VALDATA___V133*/ meltfptr[132] = (melt_ptr_t )&meltcdat->dsym_38__DISCR_CLOSURE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_38__DISCR_CLOSURE", 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_38__DISCR_CLOSURE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11506,42 +10533,35 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_39__DISCR_CLOSURE*/ - /*_._VALSTR___V134*/ - meltfptr[133] = (melt_ptr_t) &meltcdat->dstr_39__DISCR_CLOSURE; + /*_._VALSTR___V134*/ meltfptr[133] = (melt_ptr_t) &meltcdat->dstr_39__DISCR_CLOSURE; meltcdat->dstr_39__DISCR_CLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_39__DISCR_CLOSURE.val, "DISCR_CLOSURE", sizeof (meltcdat->dstr_39__DISCR_CLOSURE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_39__DISCR_CLOSURE.val, "DISCR_CLOSURE", sizeof (meltcdat->dstr_39__DISCR_CLOSURE.val)-1); meltcdat->dstr_39__DISCR_CLOSURE.val[13] = (char)0 ; meltcdat->dstr_39__DISCR_CLOSURE.slen = 13 ; /*inistring dstr_40__DISCR_DIAGNOSTIC_CLOSURE*/ - /*_._VALSTR___V132*/ - meltfptr[131] = (melt_ptr_t) &meltcdat->dstr_40__DISCR_DIAGNOSTIC_CLOSURE; + /*_._VALSTR___V132*/ meltfptr[131] = (melt_ptr_t) &meltcdat->dstr_40__DISCR_DIAGNOSTIC_CLOSURE; meltcdat->dstr_40__DISCR_DIAGNOSTIC_CLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_40__DISCR_DIAGNOSTIC_CLOSURE.val, "DISCR_DIAGNOSTIC_CLOSURE", sizeof (meltcdat->dstr_40__DISCR_DIAGNOSTIC_CLOSURE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_40__DISCR_DIAGNOSTIC_CLOSURE.val, "DISCR_DIAGNOSTIC_CLOSURE", sizeof (meltcdat->dstr_40__DISCR_DIAGNOSTIC_CLOSURE.val)-1); meltcdat->dstr_40__DISCR_DIAGNOSTIC_CLOSURE.val[24] = (char)0 ; meltcdat->dstr_40__DISCR_DIAGNOSTIC_CLOSURE.slen = 24 ; /*inirout drout_41__DIAGNOSTIC_ARGS_MACRO*/ - /*iniroutlocvar*/ /*_._VALROUT___V135*/ - meltfptr[134] = (melt_ptr_t) &meltcdat->drout_41__DIAGNOSTIC_ARGS_MACRO; + /*iniroutlocvar*/ /*_._VALROUT___V135*/ meltfptr[134] = (melt_ptr_t) &meltcdat->drout_41__DIAGNOSTIC_ARGS_MACRO; meltcdat->drout_41__DIAGNOSTIC_ARGS_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_41__DIAGNOSTIC_ARGS_MACRO.routdescr, "DIAGNOSTIC_ARGS_MACRO @warmelt-macro.melt:98", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_41__DIAGNOSTIC_ARGS_MACRO.nbval = 205; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_41__DIAGNOSTIC_ARGS_MACRO, meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO); /*iniclos dclo_42__DIAGNOSTIC_ARGS_MACRO*/ - /*_._VALCLO___V268*/ - meltfptr[267] = (melt_ptr_t) &meltcdat->dclo_42__DIAGNOSTIC_ARGS_MACRO; + /*_._VALCLO___V268*/ meltfptr[267] = (melt_ptr_t) &meltcdat->dclo_42__DIAGNOSTIC_ARGS_MACRO; meltcdat->dclo_42__DIAGNOSTIC_ARGS_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MACRO_CLOSURE)))); meltcdat->dclo_42__DIAGNOSTIC_ARGS_MACRO.nbval = 0; /*iniobj dsym_43__MELT_DEBUG_FUN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V269*/ meltfptr[268]) + /*uniqueobj*/ if (!/*_._VALDATA___V269*/ meltfptr[268]) /*_._VALDATA___V269*/ meltfptr[268] = (melt_ptr_t )&meltcdat->dsym_43__MELT_DEBUG_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_43__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_43__MELT_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11551,18 +10571,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_44__MELT_DEBUG_FUN*/ - /*_._VALSTR___V270*/ - meltfptr[269] = (melt_ptr_t) &meltcdat->dstr_44__MELT_DEBUG_FUN; + /*_._VALSTR___V270*/ meltfptr[269] = (melt_ptr_t) &meltcdat->dstr_44__MELT_DEBUG_FUN; meltcdat->dstr_44__MELT_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_44__MELT_DEBUG_FUN.val, "MELT_DEBUG_FUN", sizeof (meltcdat->dstr_44__MELT_DEBUG_FUN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_44__MELT_DEBUG_FUN.val, "MELT_DEBUG_FUN", sizeof (meltcdat->dstr_44__MELT_DEBUG_FUN.val)-1); meltcdat->dstr_44__MELT_DEBUG_FUN.val[14] = (char)0 ; meltcdat->dstr_44__MELT_DEBUG_FUN.slen = 14 ; /*iniobj dsym_45__CLASS_SEXPR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V271*/ meltfptr[270]) + /*uniqueobj*/ if (!/*_._VALDATA___V271*/ meltfptr[270]) /*_._VALDATA___V271*/ meltfptr[270] = (melt_ptr_t )&meltcdat->dsym_45__CLASS_SEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_45__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_45__CLASS_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11572,18 +10589,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_46__CLASS_SEXPR*/ - /*_._VALSTR___V272*/ - meltfptr[271] = (melt_ptr_t) &meltcdat->dstr_46__CLASS_SEXPR; + /*_._VALSTR___V272*/ meltfptr[271] = (melt_ptr_t) &meltcdat->dstr_46__CLASS_SEXPR; meltcdat->dstr_46__CLASS_SEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_46__CLASS_SEXPR.val, "CLASS_SEXPR", sizeof (meltcdat->dstr_46__CLASS_SEXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_46__CLASS_SEXPR.val, "CLASS_SEXPR", sizeof (meltcdat->dstr_46__CLASS_SEXPR.val)-1); meltcdat->dstr_46__CLASS_SEXPR.val[11] = (char)0 ; meltcdat->dstr_46__CLASS_SEXPR.slen = 11 ; /*iniobj dsym_47__MELT_ASSERT_FAILURE_FUN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V273*/ meltfptr[272]) + /*uniqueobj*/ if (!/*_._VALDATA___V273*/ meltfptr[272]) /*_._VALDATA___V273*/ meltfptr[272] = (melt_ptr_t )&meltcdat->dsym_47__MELT_ASSERT_FAILURE_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_47__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_47__MELT_ASSERT_FAILURE_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11593,18 +10607,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_48__MELT_ASSERT_FAILURE_FUN*/ - /*_._VALSTR___V274*/ - meltfptr[273] = (melt_ptr_t) &meltcdat->dstr_48__MELT_ASSERT_FAILURE_FUN; + /*_._VALSTR___V274*/ meltfptr[273] = (melt_ptr_t) &meltcdat->dstr_48__MELT_ASSERT_FAILURE_FUN; meltcdat->dstr_48__MELT_ASSERT_FAILURE_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_48__MELT_ASSERT_FAILURE_FUN.val, "MELT_ASSERT_FAILURE_FUN", sizeof (meltcdat->dstr_48__MELT_ASSERT_FAILURE_FUN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_48__MELT_ASSERT_FAILURE_FUN.val, "MELT_ASSERT_FAILURE_FUN", sizeof (meltcdat->dstr_48__MELT_ASSERT_FAILURE_FUN.val)-1); meltcdat->dstr_48__MELT_ASSERT_FAILURE_FUN.val[23] = (char)0 ; meltcdat->dstr_48__MELT_ASSERT_FAILURE_FUN.slen = 23 ; /*iniobj dsym_49__LIST_TO_MULTIPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V275*/ meltfptr[274]) + /*uniqueobj*/ if (!/*_._VALDATA___V275*/ meltfptr[274]) /*_._VALDATA___V275*/ meltfptr[274] = (melt_ptr_t )&meltcdat->dsym_49__LIST_TO_MULTIPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_49__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_49__LIST_TO_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11614,18 +10625,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_50__LIST_TO_MULTIPLE*/ - /*_._VALSTR___V276*/ - meltfptr[275] = (melt_ptr_t) &meltcdat->dstr_50__LIST_TO_MULTIPLE; + /*_._VALSTR___V276*/ meltfptr[275] = (melt_ptr_t) &meltcdat->dstr_50__LIST_TO_MULTIPLE; meltcdat->dstr_50__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_50__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof (meltcdat->dstr_50__LIST_TO_MULTIPLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_50__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof (meltcdat->dstr_50__LIST_TO_MULTIPLE.val)-1); meltcdat->dstr_50__LIST_TO_MULTIPLE.val[16] = (char)0 ; meltcdat->dstr_50__LIST_TO_MULTIPLE.slen = 16 ; /*iniobj dsym_51__DISCR_MULTIPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V277*/ meltfptr[276]) + /*uniqueobj*/ if (!/*_._VALDATA___V277*/ meltfptr[276]) /*_._VALDATA___V277*/ meltfptr[276] = (melt_ptr_t )&meltcdat->dsym_51__DISCR_MULTIPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_51__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_51__DISCR_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11635,18 +10643,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_52__DISCR_MULTIPLE*/ - /*_._VALSTR___V278*/ - meltfptr[277] = (melt_ptr_t) &meltcdat->dstr_52__DISCR_MULTIPLE; + /*_._VALSTR___V278*/ meltfptr[277] = (melt_ptr_t) &meltcdat->dstr_52__DISCR_MULTIPLE; meltcdat->dstr_52__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_52__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (meltcdat->dstr_52__DISCR_MULTIPLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_52__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (meltcdat->dstr_52__DISCR_MULTIPLE.val)-1); meltcdat->dstr_52__DISCR_MULTIPLE.val[14] = (char)0 ; meltcdat->dstr_52__DISCR_MULTIPLE.slen = 14 ; /*iniobj dsym_53__STRING4OUT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V190*/ meltfptr[189]) + /*uniqueobj*/ if (!/*_._VALDATA___V190*/ meltfptr[189]) /*_._VALDATA___V190*/ meltfptr[189] = (melt_ptr_t )&meltcdat->dsym_53__STRING4OUT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_53__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_53__STRING4OUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11656,18 +10661,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_54__STRING4OUT*/ - /*_._VALSTR___V191*/ - meltfptr[190] = (melt_ptr_t) &meltcdat->dstr_54__STRING4OUT; + /*_._VALSTR___V191*/ meltfptr[190] = (melt_ptr_t) &meltcdat->dstr_54__STRING4OUT; meltcdat->dstr_54__STRING4OUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_54__STRING4OUT.val, "STRING4OUT", sizeof (meltcdat->dstr_54__STRING4OUT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_54__STRING4OUT.val, "STRING4OUT", sizeof (meltcdat->dstr_54__STRING4OUT.val)-1); meltcdat->dstr_54__STRING4OUT.val[10] = (char)0 ; meltcdat->dstr_54__STRING4OUT.slen = 10 ; /*iniobj dsym_55__DISCR_STRING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V192*/ meltfptr[191]) + /*uniqueobj*/ if (!/*_._VALDATA___V192*/ meltfptr[191]) /*_._VALDATA___V192*/ meltfptr[191] = (melt_ptr_t )&meltcdat->dsym_55__DISCR_STRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_55__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_55__DISCR_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11677,18 +10679,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_56__DISCR_STRING*/ - /*_._VALSTR___V193*/ - meltfptr[192] = (melt_ptr_t) &meltcdat->dstr_56__DISCR_STRING; + /*_._VALSTR___V193*/ meltfptr[192] = (melt_ptr_t) &meltcdat->dstr_56__DISCR_STRING; meltcdat->dstr_56__DISCR_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_56__DISCR_STRING.val, "DISCR_STRING", sizeof (meltcdat->dstr_56__DISCR_STRING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_56__DISCR_STRING.val, "DISCR_STRING", sizeof (meltcdat->dstr_56__DISCR_STRING.val)-1); meltcdat->dstr_56__DISCR_STRING.val[12] = (char)0 ; meltcdat->dstr_56__DISCR_STRING.slen = 12 ; /*iniobj dsym_57__CLASS_SYMBOL*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V279*/ meltfptr[278]) + /*uniqueobj*/ if (!/*_._VALDATA___V279*/ meltfptr[278]) /*_._VALDATA___V279*/ meltfptr[278] = (melt_ptr_t )&meltcdat->dsym_57__CLASS_SYMBOL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_57__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_57__CLASS_SYMBOL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11698,18 +10697,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_58__CLASS_SYMBOL*/ - /*_._VALSTR___V280*/ - meltfptr[279] = (melt_ptr_t) &meltcdat->dstr_58__CLASS_SYMBOL; + /*_._VALSTR___V280*/ meltfptr[279] = (melt_ptr_t) &meltcdat->dstr_58__CLASS_SYMBOL; meltcdat->dstr_58__CLASS_SYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_58__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof (meltcdat->dstr_58__CLASS_SYMBOL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_58__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof (meltcdat->dstr_58__CLASS_SYMBOL.val)-1); meltcdat->dstr_58__CLASS_SYMBOL.val[12] = (char)0 ; meltcdat->dstr_58__CLASS_SYMBOL.slen = 12 ; /*iniobj dsym_59__MELT_MAKE_SEXPR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V281*/ meltfptr[280]) + /*uniqueobj*/ if (!/*_._VALDATA___V281*/ meltfptr[280]) /*_._VALDATA___V281*/ meltfptr[280] = (melt_ptr_t )&meltcdat->dsym_59__MELT_MAKE_SEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_59__MELT_MAKE_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_59__MELT_MAKE_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11719,18 +10715,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_60__MELT_MAKE_SEXPR*/ - /*_._VALSTR___V282*/ - meltfptr[281] = (melt_ptr_t) &meltcdat->dstr_60__MELT_MAKE_SEXPR; + /*_._VALSTR___V282*/ meltfptr[281] = (melt_ptr_t) &meltcdat->dstr_60__MELT_MAKE_SEXPR; meltcdat->dstr_60__MELT_MAKE_SEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_60__MELT_MAKE_SEXPR.val, "MELT_MAKE_SEXPR", sizeof (meltcdat->dstr_60__MELT_MAKE_SEXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_60__MELT_MAKE_SEXPR.val, "MELT_MAKE_SEXPR", sizeof (meltcdat->dstr_60__MELT_MAKE_SEXPR.val)-1); meltcdat->dstr_60__MELT_MAKE_SEXPR.val[15] = (char)0 ; meltcdat->dstr_60__MELT_MAKE_SEXPR.slen = 15 ; /*iniobj dsym_61__HOOK_MELT_MAKE_LOCATION*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V283*/ meltfptr[282]) + /*uniqueobj*/ if (!/*_._VALDATA___V283*/ meltfptr[282]) /*_._VALDATA___V283*/ meltfptr[282] = (melt_ptr_t )&meltcdat->dsym_61__HOOK_MELT_MAKE_LOCATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_61__HOOK_MELT_MAKE_LOCATION", 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__HOOK_MELT_MAKE_LOCATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11740,18 +10733,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_62__HOOK_MELT_MAKE_LOCATION*/ - /*_._VALSTR___V284*/ - meltfptr[283] = (melt_ptr_t) &meltcdat->dstr_62__HOOK_MELT_MAKE_LOCATION; + /*_._VALSTR___V284*/ meltfptr[283] = (melt_ptr_t) &meltcdat->dstr_62__HOOK_MELT_MAKE_LOCATION; meltcdat->dstr_62__HOOK_MELT_MAKE_LOCATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_62__HOOK_MELT_MAKE_LOCATION.val, "HOOK_MELT_MAKE_LOCATION", sizeof (meltcdat->dstr_62__HOOK_MELT_MAKE_LOCATION.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_62__HOOK_MELT_MAKE_LOCATION.val, "HOOK_MELT_MAKE_LOCATION", sizeof (meltcdat->dstr_62__HOOK_MELT_MAKE_LOCATION.val)-1); meltcdat->dstr_62__HOOK_MELT_MAKE_LOCATION.val[23] = (char)0 ; meltcdat->dstr_62__HOOK_MELT_MAKE_LOCATION.slen = 23 ; /*iniobj dsym_63__LET*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V136*/ meltfptr[135]) + /*uniqueobj*/ if (!/*_._VALDATA___V136*/ meltfptr[135]) /*_._VALDATA___V136*/ meltfptr[135] = (melt_ptr_t )&meltcdat->dsym_63__LET; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_63__LET", 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__LET", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11761,18 +10751,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_64__LET*/ - /*_._VALSTR___V137*/ - meltfptr[136] = (melt_ptr_t) &meltcdat->dstr_64__LET; + /*_._VALSTR___V137*/ meltfptr[136] = (melt_ptr_t) &meltcdat->dstr_64__LET; meltcdat->dstr_64__LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_64__LET.val, "LET", sizeof (meltcdat->dstr_64__LET.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_64__LET.val, "LET", sizeof (meltcdat->dstr_64__LET.val)-1); meltcdat->dstr_64__LET.val[3] = (char)0 ; meltcdat->dstr_64__LET.slen = 3 ; /*iniobj dsym_65__DIAGPOSBOX*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V138*/ meltfptr[137]) + /*uniqueobj*/ if (!/*_._VALDATA___V138*/ meltfptr[137]) /*_._VALDATA___V138*/ meltfptr[137] = (melt_ptr_t )&meltcdat->dsym_65__DIAGPOSBOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_65__DIAGPOSBOX", 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_65__DIAGPOSBOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11782,18 +10769,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_66__DIAGPOSBOX*/ - /*_._VALSTR___V139*/ - meltfptr[138] = (melt_ptr_t) &meltcdat->dstr_66__DIAGPOSBOX; + /*_._VALSTR___V139*/ meltfptr[138] = (melt_ptr_t) &meltcdat->dstr_66__DIAGPOSBOX; meltcdat->dstr_66__DIAGPOSBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_66__DIAGPOSBOX.val, "DIAGPOSBOX", sizeof (meltcdat->dstr_66__DIAGPOSBOX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_66__DIAGPOSBOX.val, "DIAGPOSBOX", sizeof (meltcdat->dstr_66__DIAGPOSBOX.val)-1); meltcdat->dstr_66__DIAGPOSBOX.val[10] = (char)0 ; meltcdat->dstr_66__DIAGPOSBOX.slen = 10 ; /*iniobj dsym_67__BOX*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V140*/ meltfptr[139]) + /*uniqueobj*/ if (!/*_._VALDATA___V140*/ meltfptr[139]) /*_._VALDATA___V140*/ meltfptr[139] = (melt_ptr_t )&meltcdat->dsym_67__BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_67__BOX", 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_67__BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11803,18 +10787,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_68__BOX*/ - /*_._VALSTR___V141*/ - meltfptr[140] = (melt_ptr_t) &meltcdat->dstr_68__BOX; + /*_._VALSTR___V141*/ meltfptr[140] = (melt_ptr_t) &meltcdat->dstr_68__BOX; meltcdat->dstr_68__BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_68__BOX.val, "BOX", sizeof (meltcdat->dstr_68__BOX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_68__BOX.val, "BOX", sizeof (meltcdat->dstr_68__BOX.val)-1); meltcdat->dstr_68__BOX.val[3] = (char)0 ; meltcdat->dstr_68__BOX.slen = 3 ; /*iniobj dsym_69__DIAGSTATE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V142*/ meltfptr[141]) + /*uniqueobj*/ if (!/*_._VALDATA___V142*/ meltfptr[141]) /*_._VALDATA___V142*/ meltfptr[141] = (melt_ptr_t )&meltcdat->dsym_69__DIAGSTATE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_69__DIAGSTATE", 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__DIAGSTATE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11824,18 +10805,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_70__DIAGSTATE*/ - /*_._VALSTR___V143*/ - meltfptr[142] = (melt_ptr_t) &meltcdat->dstr_70__DIAGSTATE; + /*_._VALSTR___V143*/ meltfptr[142] = (melt_ptr_t) &meltcdat->dstr_70__DIAGSTATE; meltcdat->dstr_70__DIAGSTATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_70__DIAGSTATE.val, "DIAGSTATE", sizeof (meltcdat->dstr_70__DIAGSTATE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_70__DIAGSTATE.val, "DIAGSTATE", sizeof (meltcdat->dstr_70__DIAGSTATE.val)-1); meltcdat->dstr_70__DIAGSTATE.val[9] = (char)0 ; meltcdat->dstr_70__DIAGSTATE.slen = 9 ; /*iniobj dsym_71__INSTANCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V144*/ meltfptr[143]) + /*uniqueobj*/ if (!/*_._VALDATA___V144*/ meltfptr[143]) /*_._VALDATA___V144*/ meltfptr[143] = (melt_ptr_t )&meltcdat->dsym_71__INSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_71__INSTANCE", 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__INSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11845,18 +10823,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_72__INSTANCE*/ - /*_._VALSTR___V145*/ - meltfptr[144] = (melt_ptr_t) &meltcdat->dstr_72__INSTANCE; + /*_._VALSTR___V145*/ meltfptr[144] = (melt_ptr_t) &meltcdat->dstr_72__INSTANCE; meltcdat->dstr_72__INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_72__INSTANCE.val, "INSTANCE", sizeof (meltcdat->dstr_72__INSTANCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_72__INSTANCE.val, "INSTANCE", sizeof (meltcdat->dstr_72__INSTANCE.val)-1); meltcdat->dstr_72__INSTANCE.val[8] = (char)0 ; meltcdat->dstr_72__INSTANCE.slen = 8 ; /*iniobj dsym_73__LOCA_LOCATION*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V146*/ meltfptr[145]) + /*uniqueobj*/ if (!/*_._VALDATA___V146*/ meltfptr[145]) /*_._VALDATA___V146*/ meltfptr[145] = (melt_ptr_t )&meltcdat->dsym_73__LOCA_LOCATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_73__LOCA_LOCATION", 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_73__LOCA_LOCATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11866,18 +10841,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_74__LOCA_LOCATION*/ - /*_._VALSTR___V147*/ - meltfptr[146] = (melt_ptr_t) &meltcdat->dstr_74__LOCA_LOCATION; + /*_._VALSTR___V147*/ meltfptr[146] = (melt_ptr_t) &meltcdat->dstr_74__LOCA_LOCATION; meltcdat->dstr_74__LOCA_LOCATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_74__LOCA_LOCATION.val, "LOCA_LOCATION", sizeof (meltcdat->dstr_74__LOCA_LOCATION.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_74__LOCA_LOCATION.val, "LOCA_LOCATION", sizeof (meltcdat->dstr_74__LOCA_LOCATION.val)-1); meltcdat->dstr_74__LOCA_LOCATION.val[13] = (char)0 ; meltcdat->dstr_74__LOCA_LOCATION.slen = 13 ; /*iniobj dsym_75__DIAG_VECT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V148*/ meltfptr[147]) + /*uniqueobj*/ if (!/*_._VALDATA___V148*/ meltfptr[147]) /*_._VALDATA___V148*/ meltfptr[147] = (melt_ptr_t )&meltcdat->dsym_75__DIAG_VECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_75__DIAG_VECT", 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_75__DIAG_VECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11887,18 +10859,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_76__DIAG_VECT*/ - /*_._VALSTR___V149*/ - meltfptr[148] = (melt_ptr_t) &meltcdat->dstr_76__DIAG_VECT; + /*_._VALSTR___V149*/ meltfptr[148] = (melt_ptr_t) &meltcdat->dstr_76__DIAG_VECT; meltcdat->dstr_76__DIAG_VECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_76__DIAG_VECT.val, "DIAG_VECT", sizeof (meltcdat->dstr_76__DIAG_VECT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_76__DIAG_VECT.val, "DIAG_VECT", sizeof (meltcdat->dstr_76__DIAG_VECT.val)-1); meltcdat->dstr_76__DIAG_VECT.val[9] = (char)0 ; meltcdat->dstr_76__DIAG_VECT.slen = 9 ; /*iniobj dsym_77__DIAG_POSITION*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V150*/ meltfptr[149]) + /*uniqueobj*/ if (!/*_._VALDATA___V150*/ meltfptr[149]) /*_._VALDATA___V150*/ meltfptr[149] = (melt_ptr_t )&meltcdat->dsym_77__DIAG_POSITION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_77__DIAG_POSITION", 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_77__DIAG_POSITION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11908,18 +10877,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_78__DIAG_POSITION*/ - /*_._VALSTR___V151*/ - meltfptr[150] = (melt_ptr_t) &meltcdat->dstr_78__DIAG_POSITION; + /*_._VALSTR___V151*/ meltfptr[150] = (melt_ptr_t) &meltcdat->dstr_78__DIAG_POSITION; meltcdat->dstr_78__DIAG_POSITION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_78__DIAG_POSITION.val, "DIAG_POSITION", sizeof (meltcdat->dstr_78__DIAG_POSITION.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_78__DIAG_POSITION.val, "DIAG_POSITION", sizeof (meltcdat->dstr_78__DIAG_POSITION.val)-1); meltcdat->dstr_78__DIAG_POSITION.val[13] = (char)0 ; meltcdat->dstr_78__DIAG_POSITION.slen = 13 ; /*iniobj dsym_79__DIAG_STATE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V152*/ meltfptr[151]) + /*uniqueobj*/ if (!/*_._VALDATA___V152*/ meltfptr[151]) /*_._VALDATA___V152*/ meltfptr[151] = (melt_ptr_t )&meltcdat->dsym_79__DIAG_STATE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_79__DIAG_STATE", 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_79__DIAG_STATE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11929,18 +10895,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_80__DIAG_STATE*/ - /*_._VALSTR___V153*/ - meltfptr[152] = (melt_ptr_t) &meltcdat->dstr_80__DIAG_STATE; + /*_._VALSTR___V153*/ meltfptr[152] = (melt_ptr_t) &meltcdat->dstr_80__DIAG_STATE; meltcdat->dstr_80__DIAG_STATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_80__DIAG_STATE.val, "DIAG_STATE", sizeof (meltcdat->dstr_80__DIAG_STATE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_80__DIAG_STATE.val, "DIAG_STATE", sizeof (meltcdat->dstr_80__DIAG_STATE.val)-1); meltcdat->dstr_80__DIAG_STATE.val[10] = (char)0 ; meltcdat->dstr_80__DIAG_STATE.slen = 10 ; /*iniobj dsym_81__MAKE_MAPOBJECT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V154*/ meltfptr[153]) + /*uniqueobj*/ if (!/*_._VALDATA___V154*/ meltfptr[153]) /*_._VALDATA___V154*/ meltfptr[153] = (melt_ptr_t )&meltcdat->dsym_81__MAKE_MAPOBJECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_81__MAKE_MAPOBJECT", 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_81__MAKE_MAPOBJECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11950,18 +10913,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_82__MAKE_MAPOBJECT*/ - /*_._VALSTR___V155*/ - meltfptr[154] = (melt_ptr_t) &meltcdat->dstr_82__MAKE_MAPOBJECT; + /*_._VALSTR___V155*/ meltfptr[154] = (melt_ptr_t) &meltcdat->dstr_82__MAKE_MAPOBJECT; meltcdat->dstr_82__MAKE_MAPOBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_82__MAKE_MAPOBJECT.val, "MAKE_MAPOBJECT", sizeof (meltcdat->dstr_82__MAKE_MAPOBJECT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_82__MAKE_MAPOBJECT.val, "MAKE_MAPOBJECT", sizeof (meltcdat->dstr_82__MAKE_MAPOBJECT.val)-1); meltcdat->dstr_82__MAKE_MAPOBJECT.val[14] = (char)0 ; meltcdat->dstr_82__MAKE_MAPOBJECT.slen = 14 ; /*iniobj dsym_83__DISCR_MAP_OBJECTS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V156*/ meltfptr[155]) + /*uniqueobj*/ if (!/*_._VALDATA___V156*/ meltfptr[155]) /*_._VALDATA___V156*/ meltfptr[155] = (melt_ptr_t )&meltcdat->dsym_83__DISCR_MAP_OBJECTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_83__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_83__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11971,18 +10931,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_84__DISCR_MAP_OBJECTS*/ - /*_._VALSTR___V157*/ - meltfptr[156] = (melt_ptr_t) &meltcdat->dstr_84__DISCR_MAP_OBJECTS; + /*_._VALSTR___V157*/ meltfptr[156] = (melt_ptr_t) &meltcdat->dstr_84__DISCR_MAP_OBJECTS; meltcdat->dstr_84__DISCR_MAP_OBJECTS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_84__DISCR_MAP_OBJECTS.val, "DISCR_MAP_OBJECTS", sizeof (meltcdat->dstr_84__DISCR_MAP_OBJECTS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_84__DISCR_MAP_OBJECTS.val, "DISCR_MAP_OBJECTS", sizeof (meltcdat->dstr_84__DISCR_MAP_OBJECTS.val)-1); meltcdat->dstr_84__DISCR_MAP_OBJECTS.val[17] = (char)0 ; meltcdat->dstr_84__DISCR_MAP_OBJECTS.slen = 17 ; /*iniobj dsym_85__SETQ*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V158*/ meltfptr[157]) + /*uniqueobj*/ if (!/*_._VALDATA___V158*/ meltfptr[157]) /*_._VALDATA___V158*/ meltfptr[157] = (melt_ptr_t )&meltcdat->dsym_85__SETQ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_85__SETQ", 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__SETQ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11992,18 +10949,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_86__SETQ*/ - /*_._VALSTR___V159*/ - meltfptr[158] = (melt_ptr_t) &meltcdat->dstr_86__SETQ; + /*_._VALSTR___V159*/ meltfptr[158] = (melt_ptr_t) &meltcdat->dstr_86__SETQ; meltcdat->dstr_86__SETQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_86__SETQ.val, "SETQ", sizeof (meltcdat->dstr_86__SETQ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_86__SETQ.val, "SETQ", sizeof (meltcdat->dstr_86__SETQ.val)-1); meltcdat->dstr_86__SETQ.val[4] = (char)0 ; meltcdat->dstr_86__SETQ.slen = 4 ; /*iniobj dsym_87__FOREVER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V160*/ meltfptr[159]) + /*uniqueobj*/ if (!/*_._VALDATA___V160*/ meltfptr[159]) /*_._VALDATA___V160*/ meltfptr[159] = (melt_ptr_t )&meltcdat->dsym_87__FOREVER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_87__FOREVER", 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_87__FOREVER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12013,18 +10967,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_88__FOREVER*/ - /*_._VALSTR___V161*/ - meltfptr[160] = (melt_ptr_t) &meltcdat->dstr_88__FOREVER; + /*_._VALSTR___V161*/ meltfptr[160] = (melt_ptr_t) &meltcdat->dstr_88__FOREVER; meltcdat->dstr_88__FOREVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_88__FOREVER.val, "FOREVER", sizeof (meltcdat->dstr_88__FOREVER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_88__FOREVER.val, "FOREVER", sizeof (meltcdat->dstr_88__FOREVER.val)-1); meltcdat->dstr_88__FOREVER.val[7] = (char)0 ; meltcdat->dstr_88__FOREVER.slen = 7 ; /*iniobj dsym_89__ARGLOOP*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V162*/ meltfptr[161]) + /*uniqueobj*/ if (!/*_._VALDATA___V162*/ meltfptr[161]) /*_._VALDATA___V162*/ meltfptr[161] = (melt_ptr_t )&meltcdat->dsym_89__ARGLOOP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_89__ARGLOOP", 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__ARGLOOP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12034,18 +10985,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_90__ARGLOOP*/ - /*_._VALSTR___V163*/ - meltfptr[162] = (melt_ptr_t) &meltcdat->dstr_90__ARGLOOP; + /*_._VALSTR___V163*/ meltfptr[162] = (melt_ptr_t) &meltcdat->dstr_90__ARGLOOP; meltcdat->dstr_90__ARGLOOP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_90__ARGLOOP.val, "ARGLOOP", sizeof (meltcdat->dstr_90__ARGLOOP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_90__ARGLOOP.val, "ARGLOOP", sizeof (meltcdat->dstr_90__ARGLOOP.val)-1); meltcdat->dstr_90__ARGLOOP.val[7] = (char)0 ; meltcdat->dstr_90__ARGLOOP.slen = 7 ; /*iniobj dsym_91__PUT_INT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V164*/ meltfptr[163]) + /*uniqueobj*/ if (!/*_._VALDATA___V164*/ meltfptr[163]) /*_._VALDATA___V164*/ meltfptr[163] = (melt_ptr_t )&meltcdat->dsym_91__PUT_INT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_91__PUT_INT", 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_91__PUT_INT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12055,18 +11003,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_92__PUT_INT*/ - /*_._VALSTR___V165*/ - meltfptr[164] = (melt_ptr_t) &meltcdat->dstr_92__PUT_INT; + /*_._VALSTR___V165*/ meltfptr[164] = (melt_ptr_t) &meltcdat->dstr_92__PUT_INT; meltcdat->dstr_92__PUT_INT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_92__PUT_INT.val, "PUT_INT", sizeof (meltcdat->dstr_92__PUT_INT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_92__PUT_INT.val, "PUT_INT", sizeof (meltcdat->dstr_92__PUT_INT.val)-1); meltcdat->dstr_92__PUT_INT.val[7] = (char)0 ; meltcdat->dstr_92__PUT_INT.slen = 7 ; /*iniobj dsym_93__VARIADIC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V166*/ meltfptr[165]) + /*uniqueobj*/ if (!/*_._VALDATA___V166*/ meltfptr[165]) /*_._VALDATA___V166*/ meltfptr[165] = (melt_ptr_t )&meltcdat->dsym_93__VARIADIC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_93__VARIADIC", 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__VARIADIC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12076,18 +11021,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_94__VARIADIC*/ - /*_._VALSTR___V167*/ - meltfptr[166] = (melt_ptr_t) &meltcdat->dstr_94__VARIADIC; + /*_._VALSTR___V167*/ meltfptr[166] = (melt_ptr_t) &meltcdat->dstr_94__VARIADIC; meltcdat->dstr_94__VARIADIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_94__VARIADIC.val, "VARIADIC", sizeof (meltcdat->dstr_94__VARIADIC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_94__VARIADIC.val, "VARIADIC", sizeof (meltcdat->dstr_94__VARIADIC.val)-1); meltcdat->dstr_94__VARIADIC.val[8] = (char)0 ; meltcdat->dstr_94__VARIADIC.slen = 8 ; /*iniobj dsym_95__EXIT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V168*/ meltfptr[167]) + /*uniqueobj*/ if (!/*_._VALDATA___V168*/ meltfptr[167]) /*_._VALDATA___V168*/ meltfptr[167] = (melt_ptr_t )&meltcdat->dsym_95__EXIT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_95__EXIT", 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_95__EXIT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12097,18 +11039,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_96__EXIT*/ - /*_._VALSTR___V169*/ - meltfptr[168] = (melt_ptr_t) &meltcdat->dstr_96__EXIT; + /*_._VALSTR___V169*/ meltfptr[168] = (melt_ptr_t) &meltcdat->dstr_96__EXIT; meltcdat->dstr_96__EXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_96__EXIT.val, "EXIT", sizeof (meltcdat->dstr_96__EXIT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_96__EXIT.val, "EXIT", sizeof (meltcdat->dstr_96__EXIT.val)-1); meltcdat->dstr_96__EXIT.val[4] = (char)0 ; meltcdat->dstr_96__EXIT.slen = 4 ; /*iniobj dsym_97__CSTRING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V170*/ meltfptr[169]) + /*uniqueobj*/ if (!/*_._VALDATA___V170*/ meltfptr[169]) /*_._VALDATA___V170*/ meltfptr[169] = (melt_ptr_t )&meltcdat->dsym_97__CSTRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_97__CSTRING", 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_97__CSTRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12118,18 +11057,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_98__CSTRING*/ - /*_._VALSTR___V171*/ - meltfptr[170] = (melt_ptr_t) &meltcdat->dstr_98__CSTRING; + /*_._VALSTR___V171*/ meltfptr[170] = (melt_ptr_t) &meltcdat->dstr_98__CSTRING; meltcdat->dstr_98__CSTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_98__CSTRING.val, "CSTRING", sizeof (meltcdat->dstr_98__CSTRING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_98__CSTRING.val, "CSTRING", sizeof (meltcdat->dstr_98__CSTRING.val)-1); meltcdat->dstr_98__CSTRING.val[7] = (char)0 ; meltcdat->dstr_98__CSTRING.slen = 7 ; /*iniobj dsym_99__STR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V172*/ meltfptr[171]) + /*uniqueobj*/ if (!/*_._VALDATA___V172*/ meltfptr[171]) /*_._VALDATA___V172*/ meltfptr[171] = (melt_ptr_t )&meltcdat->dsym_99__STR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_99__STR", 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_99__STR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12139,18 +11075,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_100__STR*/ - /*_._VALSTR___V173*/ - meltfptr[172] = (melt_ptr_t) &meltcdat->dstr_100__STR; + /*_._VALSTR___V173*/ meltfptr[172] = (melt_ptr_t) &meltcdat->dstr_100__STR; meltcdat->dstr_100__STR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_100__STR.val, "STR", sizeof (meltcdat->dstr_100__STR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_100__STR.val, "STR", sizeof (meltcdat->dstr_100__STR.val)-1); meltcdat->dstr_100__STR.val[3] = (char)0 ; meltcdat->dstr_100__STR.slen = 3 ; /*iniobj dsym_101__BS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V174*/ meltfptr[173]) + /*uniqueobj*/ if (!/*_._VALDATA___V174*/ meltfptr[173]) /*_._VALDATA___V174*/ meltfptr[173] = (melt_ptr_t )&meltcdat->dsym_101__BS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_101__BS", 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_101__BS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12160,18 +11093,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_102__BS*/ - /*_._VALSTR___V175*/ - meltfptr[174] = (melt_ptr_t) &meltcdat->dstr_102__BS; + /*_._VALSTR___V175*/ meltfptr[174] = (melt_ptr_t) &meltcdat->dstr_102__BS; meltcdat->dstr_102__BS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_102__BS.val, "BS", sizeof (meltcdat->dstr_102__BS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_102__BS.val, "BS", sizeof (meltcdat->dstr_102__BS.val)-1); meltcdat->dstr_102__BS.val[2] = (char)0 ; meltcdat->dstr_102__BS.slen = 2 ; /*iniobj dsym_103__CONSTANT_BOX*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V176*/ meltfptr[175]) + /*uniqueobj*/ if (!/*_._VALDATA___V176*/ meltfptr[175]) /*_._VALDATA___V176*/ meltfptr[175] = (melt_ptr_t )&meltcdat->dsym_103__CONSTANT_BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_103__CONSTANT_BOX", 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__CONSTANT_BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12181,18 +11111,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_104__CONSTANT_BOX*/ - /*_._VALSTR___V177*/ - meltfptr[176] = (melt_ptr_t) &meltcdat->dstr_104__CONSTANT_BOX; + /*_._VALSTR___V177*/ meltfptr[176] = (melt_ptr_t) &meltcdat->dstr_104__CONSTANT_BOX; meltcdat->dstr_104__CONSTANT_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_104__CONSTANT_BOX.val, "CONSTANT_BOX", sizeof (meltcdat->dstr_104__CONSTANT_BOX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_104__CONSTANT_BOX.val, "CONSTANT_BOX", sizeof (meltcdat->dstr_104__CONSTANT_BOX.val)-1); meltcdat->dstr_104__CONSTANT_BOX.val[12] = (char)0 ; meltcdat->dstr_104__CONSTANT_BOX.slen = 12 ; /*iniobj dsym_105__pl*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V178*/ meltfptr[177]) + /*uniqueobj*/ if (!/*_._VALDATA___V178*/ meltfptr[177]) /*_._VALDATA___V178*/ meltfptr[177] = (melt_ptr_t )&meltcdat->dsym_105__pl; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_105__pl", 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__pl", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12202,18 +11129,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_106__*/ - /*_._VALSTR___V179*/ - meltfptr[178] = (melt_ptr_t) &meltcdat->dstr_106__; + /*_._VALSTR___V179*/ meltfptr[178] = (melt_ptr_t) &meltcdat->dstr_106__; meltcdat->dstr_106__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_106__.val, "+", sizeof (meltcdat->dstr_106__.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_106__.val, "+", sizeof (meltcdat->dstr_106__.val)-1); meltcdat->dstr_106__.val[1] = (char)0 ; meltcdat->dstr_106__.slen = 1 ; /*iniobj dsym_107__MULTIPLE_PUT_NTH*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V180*/ meltfptr[179]) + /*uniqueobj*/ if (!/*_._VALDATA___V180*/ meltfptr[179]) /*_._VALDATA___V180*/ meltfptr[179] = (melt_ptr_t )&meltcdat->dsym_107__MULTIPLE_PUT_NTH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_107__MULTIPLE_PUT_NTH", 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__MULTIPLE_PUT_NTH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12223,18 +11147,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_108__MULTIPLE_PUT_NTH*/ - /*_._VALSTR___V181*/ - meltfptr[180] = (melt_ptr_t) &meltcdat->dstr_108__MULTIPLE_PUT_NTH; + /*_._VALSTR___V181*/ meltfptr[180] = (melt_ptr_t) &meltcdat->dstr_108__MULTIPLE_PUT_NTH; meltcdat->dstr_108__MULTIPLE_PUT_NTH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_108__MULTIPLE_PUT_NTH.val, "MULTIPLE_PUT_NTH", sizeof (meltcdat->dstr_108__MULTIPLE_PUT_NTH.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_108__MULTIPLE_PUT_NTH.val, "MULTIPLE_PUT_NTH", sizeof (meltcdat->dstr_108__MULTIPLE_PUT_NTH.val)-1); meltcdat->dstr_108__MULTIPLE_PUT_NTH.val[16] = (char)0 ; meltcdat->dstr_108__MULTIPLE_PUT_NTH.slen = 16 ; /*iniobj dsym_109__VOID*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V182*/ meltfptr[181]) + /*uniqueobj*/ if (!/*_._VALDATA___V182*/ meltfptr[181]) /*_._VALDATA___V182*/ meltfptr[181] = (melt_ptr_t )&meltcdat->dsym_109__VOID; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_109__VOID", 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_109__VOID", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12244,18 +11165,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_110__VOID*/ - /*_._VALSTR___V183*/ - meltfptr[182] = (melt_ptr_t) &meltcdat->dstr_110__VOID; + /*_._VALSTR___V183*/ meltfptr[182] = (melt_ptr_t) &meltcdat->dstr_110__VOID; meltcdat->dstr_110__VOID.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_110__VOID.val, "VOID", sizeof (meltcdat->dstr_110__VOID.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_110__VOID.val, "VOID", sizeof (meltcdat->dstr_110__VOID.val)-1); meltcdat->dstr_110__VOID.val[4] = (char)0 ; meltcdat->dstr_110__VOID.slen = 4 ; /*iniobj dsym_111__LONG*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V184*/ meltfptr[183]) + /*uniqueobj*/ if (!/*_._VALDATA___V184*/ meltfptr[183]) /*_._VALDATA___V184*/ meltfptr[183] = (melt_ptr_t )&meltcdat->dsym_111__LONG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_111__LONG", 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_111__LONG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12265,18 +11183,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_112__LONG*/ - /*_._VALSTR___V185*/ - meltfptr[184] = (melt_ptr_t) &meltcdat->dstr_112__LONG; + /*_._VALSTR___V185*/ meltfptr[184] = (melt_ptr_t) &meltcdat->dstr_112__LONG; meltcdat->dstr_112__LONG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_112__LONG.val, "LONG", sizeof (meltcdat->dstr_112__LONG.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_112__LONG.val, "LONG", sizeof (meltcdat->dstr_112__LONG.val)-1); meltcdat->dstr_112__LONG.val[4] = (char)0 ; meltcdat->dstr_112__LONG.slen = 4 ; /*iniobj dsym_113__L*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V186*/ meltfptr[185]) + /*uniqueobj*/ if (!/*_._VALDATA___V186*/ meltfptr[185]) /*_._VALDATA___V186*/ meltfptr[185] = (melt_ptr_t )&meltcdat->dsym_113__L; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_113__L", 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_113__L", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12286,18 +11201,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_114__L*/ - /*_._VALSTR___V187*/ - meltfptr[186] = (melt_ptr_t) &meltcdat->dstr_114__L; + /*_._VALSTR___V187*/ meltfptr[186] = (melt_ptr_t) &meltcdat->dstr_114__L; meltcdat->dstr_114__L.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_114__L.val, "L", sizeof (meltcdat->dstr_114__L.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_114__L.val, "L", sizeof (meltcdat->dstr_114__L.val)-1); meltcdat->dstr_114__L.val[1] = (char)0 ; meltcdat->dstr_114__L.slen = 1 ; /*iniobj dsym_115__SN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V188*/ meltfptr[187]) + /*uniqueobj*/ if (!/*_._VALDATA___V188*/ meltfptr[187]) /*_._VALDATA___V188*/ meltfptr[187] = (melt_ptr_t )&meltcdat->dsym_115__SN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_115__SN", 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_115__SN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12307,18 +11219,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_116__SN*/ - /*_._VALSTR___V189*/ - meltfptr[188] = (melt_ptr_t) &meltcdat->dstr_116__SN; + /*_._VALSTR___V189*/ meltfptr[188] = (melt_ptr_t) &meltcdat->dstr_116__SN; meltcdat->dstr_116__SN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_116__SN.val, "SN", sizeof (meltcdat->dstr_116__SN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_116__SN.val, "SN", sizeof (meltcdat->dstr_116__SN.val)-1); meltcdat->dstr_116__SN.val[2] = (char)0 ; meltcdat->dstr_116__SN.slen = 2 ; /*iniobj dsym_117__TREE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V194*/ meltfptr[193]) + /*uniqueobj*/ if (!/*_._VALDATA___V194*/ meltfptr[193]) /*_._VALDATA___V194*/ meltfptr[193] = (melt_ptr_t )&meltcdat->dsym_117__TREE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_117__TREE", 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_117__TREE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12328,18 +11237,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_118__TREE*/ - /*_._VALSTR___V195*/ - meltfptr[194] = (melt_ptr_t) &meltcdat->dstr_118__TREE; + /*_._VALSTR___V195*/ meltfptr[194] = (melt_ptr_t) &meltcdat->dstr_118__TREE; meltcdat->dstr_118__TREE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_118__TREE.val, "TREE", sizeof (meltcdat->dstr_118__TREE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_118__TREE.val, "TREE", sizeof (meltcdat->dstr_118__TREE.val)-1); meltcdat->dstr_118__TREE.val[4] = (char)0 ; meltcdat->dstr_118__TREE.slen = 4 ; /*iniobj dsym_119__TR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V196*/ meltfptr[195]) + /*uniqueobj*/ if (!/*_._VALDATA___V196*/ meltfptr[195]) /*_._VALDATA___V196*/ meltfptr[195] = (melt_ptr_t )&meltcdat->dsym_119__TR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_119__TR", 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__TR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12349,18 +11255,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_120__TR*/ - /*_._VALSTR___V197*/ - meltfptr[196] = (melt_ptr_t) &meltcdat->dstr_120__TR; + /*_._VALSTR___V197*/ meltfptr[196] = (melt_ptr_t) &meltcdat->dstr_120__TR; meltcdat->dstr_120__TR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_120__TR.val, "TR", sizeof (meltcdat->dstr_120__TR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_120__TR.val, "TR", sizeof (meltcdat->dstr_120__TR.val)-1); meltcdat->dstr_120__TR.val[2] = (char)0 ; meltcdat->dstr_120__TR.slen = 2 ; /*iniobj dsym_121__ASSERT_MSG*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V198*/ meltfptr[197]) + /*uniqueobj*/ if (!/*_._VALDATA___V198*/ meltfptr[197]) /*_._VALDATA___V198*/ meltfptr[197] = (melt_ptr_t )&meltcdat->dsym_121__ASSERT_MSG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_121__ASSERT_MSG", 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__ASSERT_MSG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12370,18 +11273,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_122__ASSERT_MSG*/ - /*_._VALSTR___V199*/ - meltfptr[198] = (melt_ptr_t) &meltcdat->dstr_122__ASSERT_MSG; + /*_._VALSTR___V199*/ meltfptr[198] = (melt_ptr_t) &meltcdat->dstr_122__ASSERT_MSG; meltcdat->dstr_122__ASSERT_MSG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_122__ASSERT_MSG.val, "ASSERT_MSG", sizeof (meltcdat->dstr_122__ASSERT_MSG.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_122__ASSERT_MSG.val, "ASSERT_MSG", sizeof (meltcdat->dstr_122__ASSERT_MSG.val)-1); meltcdat->dstr_122__ASSERT_MSG.val[10] = (char)0 ; meltcdat->dstr_122__ASSERT_MSG.slen = 10 ; /*iniobj dsym_123__IS_CLOSURE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V200*/ meltfptr[199]) + /*uniqueobj*/ if (!/*_._VALDATA___V200*/ meltfptr[199]) /*_._VALDATA___V200*/ meltfptr[199] = (melt_ptr_t )&meltcdat->dsym_123__IS_CLOSURE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_123__IS_CLOSURE", 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__IS_CLOSURE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12391,18 +11291,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_124__IS_CLOSURE*/ - /*_._VALSTR___V201*/ - meltfptr[200] = (melt_ptr_t) &meltcdat->dstr_124__IS_CLOSURE; + /*_._VALSTR___V201*/ meltfptr[200] = (melt_ptr_t) &meltcdat->dstr_124__IS_CLOSURE; meltcdat->dstr_124__IS_CLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_124__IS_CLOSURE.val, "IS_CLOSURE", sizeof (meltcdat->dstr_124__IS_CLOSURE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_124__IS_CLOSURE.val, "IS_CLOSURE", sizeof (meltcdat->dstr_124__IS_CLOSURE.val)-1); meltcdat->dstr_124__IS_CLOSURE.val[10] = (char)0 ; meltcdat->dstr_124__IS_CLOSURE.slen = 10 ; /*iniobj dsym_125__DIAGV_TREE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V202*/ meltfptr[201]) + /*uniqueobj*/ if (!/*_._VALDATA___V202*/ meltfptr[201]) /*_._VALDATA___V202*/ meltfptr[201] = (melt_ptr_t )&meltcdat->dsym_125__DIAGV_TREE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_125__DIAGV_TREE", 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__DIAGV_TREE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12412,18 +11309,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_126__DIAGV_TREE*/ - /*_._VALSTR___V203*/ - meltfptr[202] = (melt_ptr_t) &meltcdat->dstr_126__DIAGV_TREE; + /*_._VALSTR___V203*/ meltfptr[202] = (melt_ptr_t) &meltcdat->dstr_126__DIAGV_TREE; meltcdat->dstr_126__DIAGV_TREE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_126__DIAGV_TREE.val, "DIAGV_TREE", sizeof (meltcdat->dstr_126__DIAGV_TREE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_126__DIAGV_TREE.val, "DIAGV_TREE", sizeof (meltcdat->dstr_126__DIAGV_TREE.val)-1); meltcdat->dstr_126__DIAGV_TREE.val[10] = (char)0 ; meltcdat->dstr_126__DIAGV_TREE.slen = 10 ; /*iniobj dsym_127__S*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V204*/ meltfptr[203]) + /*uniqueobj*/ if (!/*_._VALDATA___V204*/ meltfptr[203]) /*_._VALDATA___V204*/ meltfptr[203] = (melt_ptr_t )&meltcdat->dsym_127__S; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_127__S", 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__S", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12433,18 +11327,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_128__S*/ - /*_._VALSTR___V205*/ - meltfptr[204] = (melt_ptr_t) &meltcdat->dstr_128__S; + /*_._VALSTR___V205*/ meltfptr[204] = (melt_ptr_t) &meltcdat->dstr_128__S; meltcdat->dstr_128__S.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_128__S.val, "S", sizeof (meltcdat->dstr_128__S.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_128__S.val, "S", sizeof (meltcdat->dstr_128__S.val)-1); meltcdat->dstr_128__S.val[1] = (char)0 ; meltcdat->dstr_128__S.slen = 1 ; /*iniobj dsym_129__GIMPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V206*/ meltfptr[205]) + /*uniqueobj*/ if (!/*_._VALDATA___V206*/ meltfptr[205]) /*_._VALDATA___V206*/ meltfptr[205] = (melt_ptr_t )&meltcdat->dsym_129__GIMPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_129__GIMPLE", 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_129__GIMPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12454,18 +11345,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_130__GIMPLE*/ - /*_._VALSTR___V207*/ - meltfptr[206] = (melt_ptr_t) &meltcdat->dstr_130__GIMPLE; + /*_._VALSTR___V207*/ meltfptr[206] = (melt_ptr_t) &meltcdat->dstr_130__GIMPLE; meltcdat->dstr_130__GIMPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_130__GIMPLE.val, "GIMPLE", sizeof (meltcdat->dstr_130__GIMPLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_130__GIMPLE.val, "GIMPLE", sizeof (meltcdat->dstr_130__GIMPLE.val)-1); meltcdat->dstr_130__GIMPLE.val[6] = (char)0 ; meltcdat->dstr_130__GIMPLE.slen = 6 ; /*iniobj dsym_131__GI*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V208*/ meltfptr[207]) + /*uniqueobj*/ if (!/*_._VALDATA___V208*/ meltfptr[207]) /*_._VALDATA___V208*/ meltfptr[207] = (melt_ptr_t )&meltcdat->dsym_131__GI; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_131__GI", 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__GI", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12475,18 +11363,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_132__GI*/ - /*_._VALSTR___V209*/ - meltfptr[208] = (melt_ptr_t) &meltcdat->dstr_132__GI; + /*_._VALSTR___V209*/ meltfptr[208] = (melt_ptr_t) &meltcdat->dstr_132__GI; meltcdat->dstr_132__GI.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_132__GI.val, "GI", sizeof (meltcdat->dstr_132__GI.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_132__GI.val, "GI", sizeof (meltcdat->dstr_132__GI.val)-1); meltcdat->dstr_132__GI.val[2] = (char)0 ; meltcdat->dstr_132__GI.slen = 2 ; /*iniobj dsym_133__DIAGV_GIMPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V210*/ meltfptr[209]) + /*uniqueobj*/ if (!/*_._VALDATA___V210*/ meltfptr[209]) /*_._VALDATA___V210*/ meltfptr[209] = (melt_ptr_t )&meltcdat->dsym_133__DIAGV_GIMPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_133__DIAGV_GIMPLE", 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_133__DIAGV_GIMPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12496,18 +11381,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_134__DIAGV_GIMPLE*/ - /*_._VALSTR___V211*/ - meltfptr[210] = (melt_ptr_t) &meltcdat->dstr_134__DIAGV_GIMPLE; + /*_._VALSTR___V211*/ meltfptr[210] = (melt_ptr_t) &meltcdat->dstr_134__DIAGV_GIMPLE; meltcdat->dstr_134__DIAGV_GIMPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_134__DIAGV_GIMPLE.val, "DIAGV_GIMPLE", sizeof (meltcdat->dstr_134__DIAGV_GIMPLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_134__DIAGV_GIMPLE.val, "DIAGV_GIMPLE", sizeof (meltcdat->dstr_134__DIAGV_GIMPLE.val)-1); meltcdat->dstr_134__DIAGV_GIMPLE.val[12] = (char)0 ; meltcdat->dstr_134__DIAGV_GIMPLE.slen = 12 ; /*iniobj dsym_135__GIMPLE_SEQ*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V212*/ meltfptr[211]) + /*uniqueobj*/ if (!/*_._VALDATA___V212*/ meltfptr[211]) /*_._VALDATA___V212*/ meltfptr[211] = (melt_ptr_t )&meltcdat->dsym_135__GIMPLE_SEQ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_135__GIMPLE_SEQ", 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_135__GIMPLE_SEQ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12517,18 +11399,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_136__GIMPLE_SEQ*/ - /*_._VALSTR___V213*/ - meltfptr[212] = (melt_ptr_t) &meltcdat->dstr_136__GIMPLE_SEQ; + /*_._VALSTR___V213*/ meltfptr[212] = (melt_ptr_t) &meltcdat->dstr_136__GIMPLE_SEQ; meltcdat->dstr_136__GIMPLE_SEQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_136__GIMPLE_SEQ.val, "GIMPLE_SEQ", sizeof (meltcdat->dstr_136__GIMPLE_SEQ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_136__GIMPLE_SEQ.val, "GIMPLE_SEQ", sizeof (meltcdat->dstr_136__GIMPLE_SEQ.val)-1); meltcdat->dstr_136__GIMPLE_SEQ.val[10] = (char)0 ; meltcdat->dstr_136__GIMPLE_SEQ.slen = 10 ; /*iniobj dsym_137__GS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V214*/ meltfptr[213]) + /*uniqueobj*/ if (!/*_._VALDATA___V214*/ meltfptr[213]) /*_._VALDATA___V214*/ meltfptr[213] = (melt_ptr_t )&meltcdat->dsym_137__GS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_137__GS", 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_137__GS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12538,18 +11417,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_138__GS*/ - /*_._VALSTR___V215*/ - meltfptr[214] = (melt_ptr_t) &meltcdat->dstr_138__GS; + /*_._VALSTR___V215*/ meltfptr[214] = (melt_ptr_t) &meltcdat->dstr_138__GS; meltcdat->dstr_138__GS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_138__GS.val, "GS", sizeof (meltcdat->dstr_138__GS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_138__GS.val, "GS", sizeof (meltcdat->dstr_138__GS.val)-1); meltcdat->dstr_138__GS.val[2] = (char)0 ; meltcdat->dstr_138__GS.slen = 2 ; /*iniobj dsym_139__DIAGV_GIMPLE_SEQ*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V216*/ meltfptr[215]) + /*uniqueobj*/ if (!/*_._VALDATA___V216*/ meltfptr[215]) /*_._VALDATA___V216*/ meltfptr[215] = (melt_ptr_t )&meltcdat->dsym_139__DIAGV_GIMPLE_SEQ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_139__DIAGV_GIMPLE_SEQ", 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__DIAGV_GIMPLE_SEQ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12559,18 +11435,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_140__DIAGV_GIMPLE_SEQ*/ - /*_._VALSTR___V217*/ - meltfptr[216] = (melt_ptr_t) &meltcdat->dstr_140__DIAGV_GIMPLE_SEQ; + /*_._VALSTR___V217*/ meltfptr[216] = (melt_ptr_t) &meltcdat->dstr_140__DIAGV_GIMPLE_SEQ; meltcdat->dstr_140__DIAGV_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_140__DIAGV_GIMPLE_SEQ.val, "DIAGV_GIMPLE_SEQ", sizeof (meltcdat->dstr_140__DIAGV_GIMPLE_SEQ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_140__DIAGV_GIMPLE_SEQ.val, "DIAGV_GIMPLE_SEQ", sizeof (meltcdat->dstr_140__DIAGV_GIMPLE_SEQ.val)-1); meltcdat->dstr_140__DIAGV_GIMPLE_SEQ.val[16] = (char)0 ; meltcdat->dstr_140__DIAGV_GIMPLE_SEQ.slen = 16 ; /*iniobj dsym_141__BASIC_BLOCK*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V218*/ meltfptr[217]) + /*uniqueobj*/ if (!/*_._VALDATA___V218*/ meltfptr[217]) /*_._VALDATA___V218*/ meltfptr[217] = (melt_ptr_t )&meltcdat->dsym_141__BASIC_BLOCK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_141__BASIC_BLOCK", 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_141__BASIC_BLOCK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12580,18 +11453,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_142__BASIC_BLOCK*/ - /*_._VALSTR___V219*/ - meltfptr[218] = (melt_ptr_t) &meltcdat->dstr_142__BASIC_BLOCK; + /*_._VALSTR___V219*/ meltfptr[218] = (melt_ptr_t) &meltcdat->dstr_142__BASIC_BLOCK; meltcdat->dstr_142__BASIC_BLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_142__BASIC_BLOCK.val, "BASIC_BLOCK", sizeof (meltcdat->dstr_142__BASIC_BLOCK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_142__BASIC_BLOCK.val, "BASIC_BLOCK", sizeof (meltcdat->dstr_142__BASIC_BLOCK.val)-1); meltcdat->dstr_142__BASIC_BLOCK.val[11] = (char)0 ; meltcdat->dstr_142__BASIC_BLOCK.slen = 11 ; /*iniobj dsym_143__BB*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V220*/ meltfptr[219]) + /*uniqueobj*/ if (!/*_._VALDATA___V220*/ meltfptr[219]) /*_._VALDATA___V220*/ meltfptr[219] = (melt_ptr_t )&meltcdat->dsym_143__BB; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_143__BB", 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_143__BB", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12601,18 +11471,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_144__BB*/ - /*_._VALSTR___V221*/ - meltfptr[220] = (melt_ptr_t) &meltcdat->dstr_144__BB; + /*_._VALSTR___V221*/ meltfptr[220] = (melt_ptr_t) &meltcdat->dstr_144__BB; meltcdat->dstr_144__BB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_144__BB.val, "BB", sizeof (meltcdat->dstr_144__BB.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_144__BB.val, "BB", sizeof (meltcdat->dstr_144__BB.val)-1); meltcdat->dstr_144__BB.val[2] = (char)0 ; meltcdat->dstr_144__BB.slen = 2 ; /*iniobj dsym_145__DIAGV_BASIC_BLOCK*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V222*/ meltfptr[221]) + /*uniqueobj*/ if (!/*_._VALDATA___V222*/ meltfptr[221]) /*_._VALDATA___V222*/ meltfptr[221] = (melt_ptr_t )&meltcdat->dsym_145__DIAGV_BASIC_BLOCK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_145__DIAGV_BASIC_BLOCK", 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_145__DIAGV_BASIC_BLOCK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12622,18 +11489,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_146__DIAGV_BASIC_BLOCK*/ - /*_._VALSTR___V223*/ - meltfptr[222] = (melt_ptr_t) &meltcdat->dstr_146__DIAGV_BASIC_BLOCK; + /*_._VALSTR___V223*/ meltfptr[222] = (melt_ptr_t) &meltcdat->dstr_146__DIAGV_BASIC_BLOCK; meltcdat->dstr_146__DIAGV_BASIC_BLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_146__DIAGV_BASIC_BLOCK.val, "DIAGV_BASIC_BLOCK", sizeof (meltcdat->dstr_146__DIAGV_BASIC_BLOCK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_146__DIAGV_BASIC_BLOCK.val, "DIAGV_BASIC_BLOCK", sizeof (meltcdat->dstr_146__DIAGV_BASIC_BLOCK.val)-1); meltcdat->dstr_146__DIAGV_BASIC_BLOCK.val[17] = (char)0 ; meltcdat->dstr_146__DIAGV_BASIC_BLOCK.slen = 17 ; /*iniobj dsym_147__EDGE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V224*/ meltfptr[223]) + /*uniqueobj*/ if (!/*_._VALDATA___V224*/ meltfptr[223]) /*_._VALDATA___V224*/ meltfptr[223] = (melt_ptr_t )&meltcdat->dsym_147__EDGE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_147__EDGE", 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_147__EDGE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12643,18 +11507,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_148__EDGE*/ - /*_._VALSTR___V225*/ - meltfptr[224] = (melt_ptr_t) &meltcdat->dstr_148__EDGE; + /*_._VALSTR___V225*/ meltfptr[224] = (melt_ptr_t) &meltcdat->dstr_148__EDGE; meltcdat->dstr_148__EDGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_148__EDGE.val, "EDGE", sizeof (meltcdat->dstr_148__EDGE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_148__EDGE.val, "EDGE", sizeof (meltcdat->dstr_148__EDGE.val)-1); meltcdat->dstr_148__EDGE.val[4] = (char)0 ; meltcdat->dstr_148__EDGE.slen = 4 ; /*iniobj dsym_149__ED*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V226*/ meltfptr[225]) + /*uniqueobj*/ if (!/*_._VALDATA___V226*/ meltfptr[225]) /*_._VALDATA___V226*/ meltfptr[225] = (melt_ptr_t )&meltcdat->dsym_149__ED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_149__ED", 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_149__ED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12664,18 +11525,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_150__ED*/ - /*_._VALSTR___V227*/ - meltfptr[226] = (melt_ptr_t) &meltcdat->dstr_150__ED; + /*_._VALSTR___V227*/ meltfptr[226] = (melt_ptr_t) &meltcdat->dstr_150__ED; meltcdat->dstr_150__ED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_150__ED.val, "ED", sizeof (meltcdat->dstr_150__ED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_150__ED.val, "ED", sizeof (meltcdat->dstr_150__ED.val)-1); meltcdat->dstr_150__ED.val[2] = (char)0 ; meltcdat->dstr_150__ED.slen = 2 ; /*iniobj dsym_151__DIAGV_EDGE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V228*/ meltfptr[227]) + /*uniqueobj*/ if (!/*_._VALDATA___V228*/ meltfptr[227]) /*_._VALDATA___V228*/ meltfptr[227] = (melt_ptr_t )&meltcdat->dsym_151__DIAGV_EDGE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_151__DIAGV_EDGE", 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_151__DIAGV_EDGE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12685,18 +11543,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_152__DIAGV_EDGE*/ - /*_._VALSTR___V229*/ - meltfptr[228] = (melt_ptr_t) &meltcdat->dstr_152__DIAGV_EDGE; + /*_._VALSTR___V229*/ meltfptr[228] = (melt_ptr_t) &meltcdat->dstr_152__DIAGV_EDGE; meltcdat->dstr_152__DIAGV_EDGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_152__DIAGV_EDGE.val, "DIAGV_EDGE", sizeof (meltcdat->dstr_152__DIAGV_EDGE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_152__DIAGV_EDGE.val, "DIAGV_EDGE", sizeof (meltcdat->dstr_152__DIAGV_EDGE.val)-1); meltcdat->dstr_152__DIAGV_EDGE.val[10] = (char)0 ; meltcdat->dstr_152__DIAGV_EDGE.slen = 10 ; /*iniobj dsym_153__VALUE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V230*/ meltfptr[229]) + /*uniqueobj*/ if (!/*_._VALDATA___V230*/ meltfptr[229]) /*_._VALDATA___V230*/ meltfptr[229] = (melt_ptr_t )&meltcdat->dsym_153__VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_153__VALUE", 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_153__VALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12706,18 +11561,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_154__VALUE*/ - /*_._VALSTR___V231*/ - meltfptr[230] = (melt_ptr_t) &meltcdat->dstr_154__VALUE; + /*_._VALSTR___V231*/ meltfptr[230] = (melt_ptr_t) &meltcdat->dstr_154__VALUE; meltcdat->dstr_154__VALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_154__VALUE.val, "VALUE", sizeof (meltcdat->dstr_154__VALUE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_154__VALUE.val, "VALUE", sizeof (meltcdat->dstr_154__VALUE.val)-1); meltcdat->dstr_154__VALUE.val[5] = (char)0 ; meltcdat->dstr_154__VALUE.slen = 5 ; /*iniobj dsym_155__V*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V232*/ meltfptr[231]) + /*uniqueobj*/ if (!/*_._VALDATA___V232*/ meltfptr[231]) /*_._VALDATA___V232*/ meltfptr[231] = (melt_ptr_t )&meltcdat->dsym_155__V; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_155__V", 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_155__V", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12727,18 +11579,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_156__V*/ - /*_._VALSTR___V233*/ - meltfptr[232] = (melt_ptr_t) &meltcdat->dstr_156__V; + /*_._VALSTR___V233*/ meltfptr[232] = (melt_ptr_t) &meltcdat->dstr_156__V; meltcdat->dstr_156__V.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_156__V.val, "V", sizeof (meltcdat->dstr_156__V.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_156__V.val, "V", sizeof (meltcdat->dstr_156__V.val)-1); meltcdat->dstr_156__V.val[1] = (char)0 ; meltcdat->dstr_156__V.slen = 1 ; /*iniobj dsym_157__COND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V234*/ meltfptr[233]) + /*uniqueobj*/ if (!/*_._VALDATA___V234*/ meltfptr[233]) /*_._VALDATA___V234*/ meltfptr[233] = (melt_ptr_t )&meltcdat->dsym_157__COND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_157__COND", 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_157__COND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12748,18 +11597,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_158__COND*/ - /*_._VALSTR___V235*/ - meltfptr[234] = (melt_ptr_t) &meltcdat->dstr_158__COND; + /*_._VALSTR___V235*/ meltfptr[234] = (melt_ptr_t) &meltcdat->dstr_158__COND; meltcdat->dstr_158__COND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_158__COND.val, "COND", sizeof (meltcdat->dstr_158__COND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_158__COND.val, "COND", sizeof (meltcdat->dstr_158__COND.val)-1); meltcdat->dstr_158__COND.val[4] = (char)0 ; meltcdat->dstr_158__COND.slen = 4 ; /*iniobj dsym_159__IS_INTEGERBOX*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V236*/ meltfptr[235]) + /*uniqueobj*/ if (!/*_._VALDATA___V236*/ meltfptr[235]) /*_._VALDATA___V236*/ meltfptr[235] = (melt_ptr_t )&meltcdat->dsym_159__IS_INTEGERBOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_159__IS_INTEGERBOX", 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_159__IS_INTEGERBOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12769,18 +11615,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_160__IS_INTEGERBOX*/ - /*_._VALSTR___V237*/ - meltfptr[236] = (melt_ptr_t) &meltcdat->dstr_160__IS_INTEGERBOX; + /*_._VALSTR___V237*/ meltfptr[236] = (melt_ptr_t) &meltcdat->dstr_160__IS_INTEGERBOX; meltcdat->dstr_160__IS_INTEGERBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_160__IS_INTEGERBOX.val, "IS_INTEGERBOX", sizeof (meltcdat->dstr_160__IS_INTEGERBOX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_160__IS_INTEGERBOX.val, "IS_INTEGERBOX", sizeof (meltcdat->dstr_160__IS_INTEGERBOX.val)-1); meltcdat->dstr_160__IS_INTEGERBOX.val[13] = (char)0 ; meltcdat->dstr_160__IS_INTEGERBOX.slen = 13 ; /*iniobj dsym_161__GET_INT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V238*/ meltfptr[237]) + /*uniqueobj*/ if (!/*_._VALDATA___V238*/ meltfptr[237]) /*_._VALDATA___V238*/ meltfptr[237] = (melt_ptr_t )&meltcdat->dsym_161__GET_INT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_161__GET_INT", 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_161__GET_INT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12790,18 +11633,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_162__GET_INT*/ - /*_._VALSTR___V239*/ - meltfptr[238] = (melt_ptr_t) &meltcdat->dstr_162__GET_INT; + /*_._VALSTR___V239*/ meltfptr[238] = (melt_ptr_t) &meltcdat->dstr_162__GET_INT; meltcdat->dstr_162__GET_INT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_162__GET_INT.val, "GET_INT", sizeof (meltcdat->dstr_162__GET_INT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_162__GET_INT.val, "GET_INT", sizeof (meltcdat->dstr_162__GET_INT.val)-1); meltcdat->dstr_162__GET_INT.val[7] = (char)0 ; meltcdat->dstr_162__GET_INT.slen = 7 ; /*iniobj dsym_163__IS_STRING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V240*/ meltfptr[239]) + /*uniqueobj*/ if (!/*_._VALDATA___V240*/ meltfptr[239]) /*_._VALDATA___V240*/ meltfptr[239] = (melt_ptr_t )&meltcdat->dsym_163__IS_STRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_163__IS_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_163__IS_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12811,18 +11651,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_164__IS_STRING*/ - /*_._VALSTR___V241*/ - meltfptr[240] = (melt_ptr_t) &meltcdat->dstr_164__IS_STRING; + /*_._VALSTR___V241*/ meltfptr[240] = (melt_ptr_t) &meltcdat->dstr_164__IS_STRING; meltcdat->dstr_164__IS_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_164__IS_STRING.val, "IS_STRING", sizeof (meltcdat->dstr_164__IS_STRING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_164__IS_STRING.val, "IS_STRING", sizeof (meltcdat->dstr_164__IS_STRING.val)-1); meltcdat->dstr_164__IS_STRING.val[9] = (char)0 ; meltcdat->dstr_164__IS_STRING.slen = 9 ; /*iniobj dsym_165__IS_A*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V242*/ meltfptr[241]) + /*uniqueobj*/ if (!/*_._VALDATA___V242*/ meltfptr[241]) /*_._VALDATA___V242*/ meltfptr[241] = (melt_ptr_t )&meltcdat->dsym_165__IS_A; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_165__IS_A", 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_165__IS_A", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12832,18 +11669,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_166__IS_A*/ - /*_._VALSTR___V243*/ - meltfptr[242] = (melt_ptr_t) &meltcdat->dstr_166__IS_A; + /*_._VALSTR___V243*/ meltfptr[242] = (melt_ptr_t) &meltcdat->dstr_166__IS_A; meltcdat->dstr_166__IS_A.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_166__IS_A.val, "IS_A", sizeof (meltcdat->dstr_166__IS_A.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_166__IS_A.val, "IS_A", sizeof (meltcdat->dstr_166__IS_A.val)-1); meltcdat->dstr_166__IS_A.val[4] = (char)0 ; meltcdat->dstr_166__IS_A.slen = 4 ; /*iniobj dsym_167__AND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V244*/ meltfptr[243]) + /*uniqueobj*/ if (!/*_._VALDATA___V244*/ meltfptr[243]) /*_._VALDATA___V244*/ meltfptr[243] = (melt_ptr_t )&meltcdat->dsym_167__AND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_167__AND", 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_167__AND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12853,18 +11687,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_168__AND*/ - /*_._VALSTR___V245*/ - meltfptr[244] = (melt_ptr_t) &meltcdat->dstr_168__AND; + /*_._VALSTR___V245*/ meltfptr[244] = (melt_ptr_t) &meltcdat->dstr_168__AND; meltcdat->dstr_168__AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_168__AND.val, "AND", sizeof (meltcdat->dstr_168__AND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_168__AND.val, "AND", sizeof (meltcdat->dstr_168__AND.val)-1); meltcdat->dstr_168__AND.val[3] = (char)0 ; meltcdat->dstr_168__AND.slen = 3 ; /*iniobj dsym_169__CLASS_KEYWORD*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V246*/ meltfptr[245]) + /*uniqueobj*/ if (!/*_._VALDATA___V246*/ meltfptr[245]) /*_._VALDATA___V246*/ meltfptr[245] = (melt_ptr_t )&meltcdat->dsym_169__CLASS_KEYWORD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_169__CLASS_KEYWORD", 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_169__CLASS_KEYWORD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12874,18 +11705,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_170__CLASS_KEYWORD*/ - /*_._VALSTR___V247*/ - meltfptr[246] = (melt_ptr_t) &meltcdat->dstr_170__CLASS_KEYWORD; + /*_._VALSTR___V247*/ meltfptr[246] = (melt_ptr_t) &meltcdat->dstr_170__CLASS_KEYWORD; meltcdat->dstr_170__CLASS_KEYWORD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_170__CLASS_KEYWORD.val, "CLASS_KEYWORD", sizeof (meltcdat->dstr_170__CLASS_KEYWORD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_170__CLASS_KEYWORD.val, "CLASS_KEYWORD", sizeof (meltcdat->dstr_170__CLASS_KEYWORD.val)-1); meltcdat->dstr_170__CLASS_KEYWORD.val[13] = (char)0 ; meltcdat->dstr_170__CLASS_KEYWORD.slen = 13 ; /*iniobj dsym_171__GET_FIELD*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V248*/ meltfptr[247]) + /*uniqueobj*/ if (!/*_._VALDATA___V248*/ meltfptr[247]) /*_._VALDATA___V248*/ meltfptr[247] = (melt_ptr_t )&meltcdat->dsym_171__GET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_171__GET_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_171__GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12895,18 +11723,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_172__GET_FIELD*/ - /*_._VALSTR___V249*/ - meltfptr[248] = (melt_ptr_t) &meltcdat->dstr_172__GET_FIELD; + /*_._VALSTR___V249*/ meltfptr[248] = (melt_ptr_t) &meltcdat->dstr_172__GET_FIELD; meltcdat->dstr_172__GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_172__GET_FIELD.val, "GET_FIELD", sizeof (meltcdat->dstr_172__GET_FIELD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_172__GET_FIELD.val, "GET_FIELD", sizeof (meltcdat->dstr_172__GET_FIELD.val)-1); meltcdat->dstr_172__GET_FIELD.val[9] = (char)0 ; meltcdat->dstr_172__GET_FIELD.slen = 9 ; /*iniobj dsym_173__SYMB_DATA*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V250*/ meltfptr[249]) + /*uniqueobj*/ if (!/*_._VALDATA___V250*/ meltfptr[249]) /*_._VALDATA___V250*/ meltfptr[249] = (melt_ptr_t )&meltcdat->dsym_173__SYMB_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_173__SYMB_DATA", 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_173__SYMB_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12916,18 +11741,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_174__SYMB_DATA*/ - /*_._VALSTR___V251*/ - meltfptr[250] = (melt_ptr_t) &meltcdat->dstr_174__SYMB_DATA; + /*_._VALSTR___V251*/ meltfptr[250] = (melt_ptr_t) &meltcdat->dstr_174__SYMB_DATA; meltcdat->dstr_174__SYMB_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_174__SYMB_DATA.val, "SYMB_DATA", sizeof (meltcdat->dstr_174__SYMB_DATA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_174__SYMB_DATA.val, "SYMB_DATA", sizeof (meltcdat->dstr_174__SYMB_DATA.val)-1); meltcdat->dstr_174__SYMB_DATA.val[9] = (char)0 ; meltcdat->dstr_174__SYMB_DATA.slen = 9 ; /*iniobj dsym_175__CLASS_NAMED*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V252*/ meltfptr[251]) + /*uniqueobj*/ if (!/*_._VALDATA___V252*/ meltfptr[251]) /*_._VALDATA___V252*/ meltfptr[251] = (melt_ptr_t )&meltcdat->dsym_175__CLASS_NAMED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_175__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_175__CLASS_NAMED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12937,18 +11759,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_176__CLASS_NAMED*/ - /*_._VALSTR___V253*/ - meltfptr[252] = (melt_ptr_t) &meltcdat->dstr_176__CLASS_NAMED; + /*_._VALSTR___V253*/ meltfptr[252] = (melt_ptr_t) &meltcdat->dstr_176__CLASS_NAMED; meltcdat->dstr_176__CLASS_NAMED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_176__CLASS_NAMED.val, "CLASS_NAMED", sizeof (meltcdat->dstr_176__CLASS_NAMED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_176__CLASS_NAMED.val, "CLASS_NAMED", sizeof (meltcdat->dstr_176__CLASS_NAMED.val)-1); meltcdat->dstr_176__CLASS_NAMED.val[11] = (char)0 ; meltcdat->dstr_176__CLASS_NAMED.slen = 11 ; /*iniobj dsym_177__NAM*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V254*/ meltfptr[253]) + /*uniqueobj*/ if (!/*_._VALDATA___V254*/ meltfptr[253]) /*_._VALDATA___V254*/ meltfptr[253] = (melt_ptr_t )&meltcdat->dsym_177__NAM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_177__NAM", 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_177__NAM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12958,18 +11777,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_178__NAM*/ - /*_._VALSTR___V255*/ - meltfptr[254] = (melt_ptr_t) &meltcdat->dstr_178__NAM; + /*_._VALSTR___V255*/ meltfptr[254] = (melt_ptr_t) &meltcdat->dstr_178__NAM; meltcdat->dstr_178__NAM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_178__NAM.val, "NAM", sizeof (meltcdat->dstr_178__NAM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_178__NAM.val, "NAM", sizeof (meltcdat->dstr_178__NAM.val)-1); meltcdat->dstr_178__NAM.val[3] = (char)0 ; meltcdat->dstr_178__NAM.slen = 3 ; /*iniobj dsym_179__UNSAFE_GET_FIELD*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V256*/ meltfptr[255]) + /*uniqueobj*/ if (!/*_._VALDATA___V256*/ meltfptr[255]) /*_._VALDATA___V256*/ meltfptr[255] = (melt_ptr_t )&meltcdat->dsym_179__UNSAFE_GET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_179__UNSAFE_GET_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_179__UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12979,18 +11795,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_180__UNSAFE_GET_FIELD*/ - /*_._VALSTR___V257*/ - meltfptr[256] = (melt_ptr_t) &meltcdat->dstr_180__UNSAFE_GET_FIELD; + /*_._VALSTR___V257*/ meltfptr[256] = (melt_ptr_t) &meltcdat->dstr_180__UNSAFE_GET_FIELD; meltcdat->dstr_180__UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_180__UNSAFE_GET_FIELD.val, "UNSAFE_GET_FIELD", sizeof (meltcdat->dstr_180__UNSAFE_GET_FIELD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_180__UNSAFE_GET_FIELD.val, "UNSAFE_GET_FIELD", sizeof (meltcdat->dstr_180__UNSAFE_GET_FIELD.val)-1); meltcdat->dstr_180__UNSAFE_GET_FIELD.val[16] = (char)0 ; meltcdat->dstr_180__UNSAFE_GET_FIELD.slen = 16 ; /*iniobj dsym_181__NAMED_NAME*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V258*/ meltfptr[257]) + /*uniqueobj*/ if (!/*_._VALDATA___V258*/ meltfptr[257]) /*_._VALDATA___V258*/ meltfptr[257] = (melt_ptr_t )&meltcdat->dsym_181__NAMED_NAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_181__NAMED_NAME", 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_181__NAMED_NAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13000,18 +11813,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_182__NAMED_NAME*/ - /*_._VALSTR___V259*/ - meltfptr[258] = (melt_ptr_t) &meltcdat->dstr_182__NAMED_NAME; + /*_._VALSTR___V259*/ meltfptr[258] = (melt_ptr_t) &meltcdat->dstr_182__NAMED_NAME; meltcdat->dstr_182__NAMED_NAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_182__NAMED_NAME.val, "NAMED_NAME", sizeof (meltcdat->dstr_182__NAMED_NAME.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_182__NAMED_NAME.val, "NAMED_NAME", sizeof (meltcdat->dstr_182__NAMED_NAME.val)-1); meltcdat->dstr_182__NAMED_NAME.val[10] = (char)0 ; meltcdat->dstr_182__NAMED_NAME.slen = 10 ; /*iniobj dsym_183__ELSE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V260*/ meltfptr[259]) + /*uniqueobj*/ if (!/*_._VALDATA___V260*/ meltfptr[259]) /*_._VALDATA___V260*/ meltfptr[259] = (melt_ptr_t )&meltcdat->dsym_183__ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_183__ELSE", 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_183__ELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13021,18 +11831,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_184__ELSE*/ - /*_._VALSTR___V261*/ - meltfptr[260] = (melt_ptr_t) &meltcdat->dstr_184__ELSE; + /*_._VALSTR___V261*/ meltfptr[260] = (melt_ptr_t) &meltcdat->dstr_184__ELSE; meltcdat->dstr_184__ELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_184__ELSE.val, "ELSE", sizeof (meltcdat->dstr_184__ELSE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_184__ELSE.val, "ELSE", sizeof (meltcdat->dstr_184__ELSE.val)-1); meltcdat->dstr_184__ELSE.val[4] = (char)0 ; meltcdat->dstr_184__ELSE.slen = 4 ; /*iniobj dsym_185__VCTY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V262*/ meltfptr[261]) + /*uniqueobj*/ if (!/*_._VALDATA___V262*/ meltfptr[261]) /*_._VALDATA___V262*/ meltfptr[261] = (melt_ptr_t )&meltcdat->dsym_185__VCTY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_185__VCTY", 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_185__VCTY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13042,18 +11849,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_186__VCTY*/ - /*_._VALSTR___V263*/ - meltfptr[262] = (melt_ptr_t) &meltcdat->dstr_186__VCTY; + /*_._VALSTR___V263*/ meltfptr[262] = (melt_ptr_t) &meltcdat->dstr_186__VCTY; meltcdat->dstr_186__VCTY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_186__VCTY.val, "VCTY", sizeof (meltcdat->dstr_186__VCTY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_186__VCTY.val, "VCTY", sizeof (meltcdat->dstr_186__VCTY.val)-1); meltcdat->dstr_186__VCTY.val[4] = (char)0 ; meltcdat->dstr_186__VCTY.slen = 4 ; /*iniobj dsym_187__VARIADIC_CTYPE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V264*/ meltfptr[263]) + /*uniqueobj*/ if (!/*_._VALDATA___V264*/ meltfptr[263]) /*_._VALDATA___V264*/ meltfptr[263] = (melt_ptr_t )&meltcdat->dsym_187__VARIADIC_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_187__VARIADIC_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_187__VARIADIC_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13063,18 +11867,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_188__VARIADIC_CTYPE*/ - /*_._VALSTR___V265*/ - meltfptr[264] = (melt_ptr_t) &meltcdat->dstr_188__VARIADIC_CTYPE; + /*_._VALSTR___V265*/ meltfptr[264] = (melt_ptr_t) &meltcdat->dstr_188__VARIADIC_CTYPE; meltcdat->dstr_188__VARIADIC_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_188__VARIADIC_CTYPE.val, "VARIADIC_CTYPE", sizeof (meltcdat->dstr_188__VARIADIC_CTYPE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_188__VARIADIC_CTYPE.val, "VARIADIC_CTYPE", sizeof (meltcdat->dstr_188__VARIADIC_CTYPE.val)-1); meltcdat->dstr_188__VARIADIC_CTYPE.val[14] = (char)0 ; meltcdat->dstr_188__VARIADIC_CTYPE.slen = 14 ; /*iniobj dsym_189__ERRORMSG_STRV*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V266*/ meltfptr[265]) + /*uniqueobj*/ if (!/*_._VALDATA___V266*/ meltfptr[265]) /*_._VALDATA___V266*/ meltfptr[265] = (melt_ptr_t )&meltcdat->dsym_189__ERRORMSG_STRV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_189__ERRORMSG_STRV", 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_189__ERRORMSG_STRV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13084,18 +11885,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_190__ERRORMSG_STRV*/ - /*_._VALSTR___V267*/ - meltfptr[266] = (melt_ptr_t) &meltcdat->dstr_190__ERRORMSG_STRV; + /*_._VALSTR___V267*/ meltfptr[266] = (melt_ptr_t) &meltcdat->dstr_190__ERRORMSG_STRV; meltcdat->dstr_190__ERRORMSG_STRV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_190__ERRORMSG_STRV.val, "ERRORMSG_STRV", sizeof (meltcdat->dstr_190__ERRORMSG_STRV.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_190__ERRORMSG_STRV.val, "ERRORMSG_STRV", sizeof (meltcdat->dstr_190__ERRORMSG_STRV.val)-1); meltcdat->dstr_190__ERRORMSG_STRV.val[13] = (char)0 ; meltcdat->dstr_190__ERRORMSG_STRV.slen = 13 ; /*iniobj dsym_191__DIAGNOSTIC_ARGS_MACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V285*/ meltfptr[284]) + /*uniqueobj*/ if (!/*_._VALDATA___V285*/ meltfptr[284]) /*_._VALDATA___V285*/ meltfptr[284] = (melt_ptr_t )&meltcdat->dsym_191__DIAGNOSTIC_ARGS_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_191__DIAGNOSTIC_ARGS_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_191__DIAGNOSTIC_ARGS_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13105,32 +11903,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_192__DIAGNOSTIC_ARGS_MACRO*/ - /*_._VALSTR___V286*/ - meltfptr[285] = (melt_ptr_t) &meltcdat->dstr_192__DIAGNOSTIC_ARGS_MACRO; + /*_._VALSTR___V286*/ meltfptr[285] = (melt_ptr_t) &meltcdat->dstr_192__DIAGNOSTIC_ARGS_MACRO; meltcdat->dstr_192__DIAGNOSTIC_ARGS_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_192__DIAGNOSTIC_ARGS_MACRO.val, "DIAGNOSTIC_ARGS_MACRO", sizeof (meltcdat->dstr_192__DIAGNOSTIC_ARGS_MACRO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_192__DIAGNOSTIC_ARGS_MACRO.val, "DIAGNOSTIC_ARGS_MACRO", sizeof (meltcdat->dstr_192__DIAGNOSTIC_ARGS_MACRO.val)-1); meltcdat->dstr_192__DIAGNOSTIC_ARGS_MACRO.val[21] = (char)0 ; meltcdat->dstr_192__DIAGNOSTIC_ARGS_MACRO.slen = 21 ; /*inirout drout_193__DIAGNOSTIC_EXPAND_MESSAGE*/ - /*iniroutlocvar*/ /*_._VALROUT___V287*/ - meltfptr[286] = (melt_ptr_t) &meltcdat->drout_193__DIAGNOSTIC_EXPAND_MESSAGE; + /*iniroutlocvar*/ /*_._VALROUT___V287*/ meltfptr[286] = (melt_ptr_t) &meltcdat->drout_193__DIAGNOSTIC_EXPAND_MESSAGE; meltcdat->drout_193__DIAGNOSTIC_EXPAND_MESSAGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_193__DIAGNOSTIC_EXPAND_MESSAGE.routdescr, "DIAGNOSTIC_EXPAND_MESSAGE @warmelt-macro.melt:282", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_193__DIAGNOSTIC_EXPAND_MESSAGE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_193__DIAGNOSTIC_EXPAND_MESSAGE, meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE); /*iniclos dclo_194__DIAGNOSTIC_EXPAND_MESSAGE*/ - /*_._VALCLO___V288*/ - meltfptr[287] = (melt_ptr_t) &meltcdat->dclo_194__DIAGNOSTIC_EXPAND_MESSAGE; + /*_._VALCLO___V288*/ meltfptr[287] = (melt_ptr_t) &meltcdat->dclo_194__DIAGNOSTIC_EXPAND_MESSAGE; meltcdat->dclo_194__DIAGNOSTIC_EXPAND_MESSAGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_194__DIAGNOSTIC_EXPAND_MESSAGE.nbval = 0; /*iniobj dsym_195__DISCR_STRBUF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V289*/ meltfptr[288]) + /*uniqueobj*/ if (!/*_._VALDATA___V289*/ meltfptr[288]) /*_._VALDATA___V289*/ meltfptr[288] = (melt_ptr_t )&meltcdat->dsym_195__DISCR_STRBUF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_195__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_195__DISCR_STRBUF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13140,18 +11933,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_196__DISCR_STRBUF*/ - /*_._VALSTR___V290*/ - meltfptr[289] = (melt_ptr_t) &meltcdat->dstr_196__DISCR_STRBUF; + /*_._VALSTR___V290*/ meltfptr[289] = (melt_ptr_t) &meltcdat->dstr_196__DISCR_STRBUF; meltcdat->dstr_196__DISCR_STRBUF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_196__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (meltcdat->dstr_196__DISCR_STRBUF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_196__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (meltcdat->dstr_196__DISCR_STRBUF.val)-1); meltcdat->dstr_196__DISCR_STRBUF.val[12] = (char)0 ; meltcdat->dstr_196__DISCR_STRBUF.slen = 12 ; /*iniobj dsym_197__ADD2OUT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V291*/ meltfptr[290]) + /*uniqueobj*/ if (!/*_._VALDATA___V291*/ meltfptr[290]) /*_._VALDATA___V291*/ meltfptr[290] = (melt_ptr_t )&meltcdat->dsym_197__ADD2OUT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_197__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_197__ADD2OUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13161,18 +11951,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_198__ADD2OUT*/ - /*_._VALSTR___V292*/ - meltfptr[291] = (melt_ptr_t) &meltcdat->dstr_198__ADD2OUT; + /*_._VALSTR___V292*/ meltfptr[291] = (melt_ptr_t) &meltcdat->dstr_198__ADD2OUT; meltcdat->dstr_198__ADD2OUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_198__ADD2OUT.val, "ADD2OUT", sizeof (meltcdat->dstr_198__ADD2OUT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_198__ADD2OUT.val, "ADD2OUT", sizeof (meltcdat->dstr_198__ADD2OUT.val)-1); meltcdat->dstr_198__ADD2OUT.val[7] = (char)0 ; meltcdat->dstr_198__ADD2OUT.slen = 7 ; /*iniobj dsym_199__DIAGNOSTIC_EXPAND_MESSAGE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V293*/ meltfptr[292]) + /*uniqueobj*/ if (!/*_._VALDATA___V293*/ meltfptr[292]) /*_._VALDATA___V293*/ meltfptr[292] = (melt_ptr_t )&meltcdat->dsym_199__DIAGNOSTIC_EXPAND_MESSAGE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_199__DIAGNOSTIC_EXPAND_MESSAGE", 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_199__DIAGNOSTIC_EXPAND_MESSAGE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13182,18 +11969,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_200__DIAGNOSTIC_EXPAND_MESSAG*/ - /*_._VALSTR___V294*/ - meltfptr[293] = (melt_ptr_t) &meltcdat->dstr_200__DIAGNOSTIC_EXPAND_MESSAG; + /*_._VALSTR___V294*/ meltfptr[293] = (melt_ptr_t) &meltcdat->dstr_200__DIAGNOSTIC_EXPAND_MESSAG; meltcdat->dstr_200__DIAGNOSTIC_EXPAND_MESSAG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_200__DIAGNOSTIC_EXPAND_MESSAG.val, "DIAGNOSTIC_EXPAND_MESSAGE", sizeof (meltcdat->dstr_200__DIAGNOSTIC_EXPAND_MESSAG.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_200__DIAGNOSTIC_EXPAND_MESSAG.val, "DIAGNOSTIC_EXPAND_MESSAGE", sizeof (meltcdat->dstr_200__DIAGNOSTIC_EXPAND_MESSAG.val)-1); meltcdat->dstr_200__DIAGNOSTIC_EXPAND_MESSAG.val[25] = (char)0 ; meltcdat->dstr_200__DIAGNOSTIC_EXPAND_MESSAG.slen = 25 ; /*iniobj dsym_201__REGISTER_DIAG_BASIC_BLOCK*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V295*/ meltfptr[294]) + /*uniqueobj*/ if (!/*_._VALDATA___V295*/ meltfptr[294]) /*_._VALDATA___V295*/ meltfptr[294] = (melt_ptr_t )&meltcdat->dsym_201__REGISTER_DIAG_BASIC_BLOCK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_201__REGISTER_DIAG_BASIC_BLOCK", 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_201__REGISTER_DIAG_BASIC_BLOCK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13203,18 +11987,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_202__REGISTER_DIAG_BASIC_BLOC*/ - /*_._VALSTR___V296*/ - meltfptr[295] = (melt_ptr_t) &meltcdat->dstr_202__REGISTER_DIAG_BASIC_BLOC; + /*_._VALSTR___V296*/ meltfptr[295] = (melt_ptr_t) &meltcdat->dstr_202__REGISTER_DIAG_BASIC_BLOC; meltcdat->dstr_202__REGISTER_DIAG_BASIC_BLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_202__REGISTER_DIAG_BASIC_BLOC.val, "REGISTER_DIAG_BASIC_BLOCK", sizeof (meltcdat->dstr_202__REGISTER_DIAG_BASIC_BLOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_202__REGISTER_DIAG_BASIC_BLOC.val, "REGISTER_DIAG_BASIC_BLOCK", sizeof (meltcdat->dstr_202__REGISTER_DIAG_BASIC_BLOC.val)-1); meltcdat->dstr_202__REGISTER_DIAG_BASIC_BLOC.val[25] = (char)0 ; meltcdat->dstr_202__REGISTER_DIAG_BASIC_BLOC.slen = 25 ; /*iniobj dsym_203__REGISTER_DIAG_EDGE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V297*/ meltfptr[296]) + /*uniqueobj*/ if (!/*_._VALDATA___V297*/ meltfptr[296]) /*_._VALDATA___V297*/ meltfptr[296] = (melt_ptr_t )&meltcdat->dsym_203__REGISTER_DIAG_EDGE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_203__REGISTER_DIAG_EDGE", 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_203__REGISTER_DIAG_EDGE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13224,18 +12005,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_204__REGISTER_DIAG_EDGE*/ - /*_._VALSTR___V298*/ - meltfptr[297] = (melt_ptr_t) &meltcdat->dstr_204__REGISTER_DIAG_EDGE; + /*_._VALSTR___V298*/ meltfptr[297] = (melt_ptr_t) &meltcdat->dstr_204__REGISTER_DIAG_EDGE; meltcdat->dstr_204__REGISTER_DIAG_EDGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_204__REGISTER_DIAG_EDGE.val, "REGISTER_DIAG_EDGE", sizeof (meltcdat->dstr_204__REGISTER_DIAG_EDGE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_204__REGISTER_DIAG_EDGE.val, "REGISTER_DIAG_EDGE", sizeof (meltcdat->dstr_204__REGISTER_DIAG_EDGE.val)-1); meltcdat->dstr_204__REGISTER_DIAG_EDGE.val[18] = (char)0 ; meltcdat->dstr_204__REGISTER_DIAG_EDGE.slen = 18 ; /*iniobj dsym_205__REGISTER_DIAG_GIMPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V299*/ meltfptr[298]) + /*uniqueobj*/ if (!/*_._VALDATA___V299*/ meltfptr[298]) /*_._VALDATA___V299*/ meltfptr[298] = (melt_ptr_t )&meltcdat->dsym_205__REGISTER_DIAG_GIMPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_205__REGISTER_DIAG_GIMPLE", 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_205__REGISTER_DIAG_GIMPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13245,18 +12023,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_206__REGISTER_DIAG_GIMPLE*/ - /*_._VALSTR___V300*/ - meltfptr[299] = (melt_ptr_t) &meltcdat->dstr_206__REGISTER_DIAG_GIMPLE; + /*_._VALSTR___V300*/ meltfptr[299] = (melt_ptr_t) &meltcdat->dstr_206__REGISTER_DIAG_GIMPLE; meltcdat->dstr_206__REGISTER_DIAG_GIMPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_206__REGISTER_DIAG_GIMPLE.val, "REGISTER_DIAG_GIMPLE", sizeof (meltcdat->dstr_206__REGISTER_DIAG_GIMPLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_206__REGISTER_DIAG_GIMPLE.val, "REGISTER_DIAG_GIMPLE", sizeof (meltcdat->dstr_206__REGISTER_DIAG_GIMPLE.val)-1); meltcdat->dstr_206__REGISTER_DIAG_GIMPLE.val[20] = (char)0 ; meltcdat->dstr_206__REGISTER_DIAG_GIMPLE.slen = 20 ; /*iniobj dsym_207__REGISTER_DIAG_GIMPLE_SEQ*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V301*/ meltfptr[300]) + /*uniqueobj*/ if (!/*_._VALDATA___V301*/ meltfptr[300]) /*_._VALDATA___V301*/ meltfptr[300] = (melt_ptr_t )&meltcdat->dsym_207__REGISTER_DIAG_GIMPLE_SEQ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_207__REGISTER_DIAG_GIMPLE_SEQ", 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_207__REGISTER_DIAG_GIMPLE_SEQ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13266,18 +12041,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_208__REGISTER_DIAG_GIMPLE_SEQ*/ - /*_._VALSTR___V302*/ - meltfptr[301] = (melt_ptr_t) &meltcdat->dstr_208__REGISTER_DIAG_GIMPLE_SEQ; + /*_._VALSTR___V302*/ meltfptr[301] = (melt_ptr_t) &meltcdat->dstr_208__REGISTER_DIAG_GIMPLE_SEQ; meltcdat->dstr_208__REGISTER_DIAG_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_208__REGISTER_DIAG_GIMPLE_SEQ.val, "REGISTER_DIAG_GIMPLE_SEQ", sizeof (meltcdat->dstr_208__REGISTER_DIAG_GIMPLE_SEQ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_208__REGISTER_DIAG_GIMPLE_SEQ.val, "REGISTER_DIAG_GIMPLE_SEQ", sizeof (meltcdat->dstr_208__REGISTER_DIAG_GIMPLE_SEQ.val)-1); meltcdat->dstr_208__REGISTER_DIAG_GIMPLE_SEQ.val[24] = (char)0 ; meltcdat->dstr_208__REGISTER_DIAG_GIMPLE_SEQ.slen = 24 ; /*iniobj dsym_209__REGISTER_DIAG_TREE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V303*/ meltfptr[302]) + /*uniqueobj*/ if (!/*_._VALDATA___V303*/ meltfptr[302]) /*_._VALDATA___V303*/ meltfptr[302] = (melt_ptr_t )&meltcdat->dsym_209__REGISTER_DIAG_TREE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_209__REGISTER_DIAG_TREE", 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_209__REGISTER_DIAG_TREE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13287,60 +12059,51 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_210__REGISTER_DIAG_TREE*/ - /*_._VALSTR___V304*/ - meltfptr[303] = (melt_ptr_t) &meltcdat->dstr_210__REGISTER_DIAG_TREE; + /*_._VALSTR___V304*/ meltfptr[303] = (melt_ptr_t) &meltcdat->dstr_210__REGISTER_DIAG_TREE; meltcdat->dstr_210__REGISTER_DIAG_TREE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_210__REGISTER_DIAG_TREE.val, "REGISTER_DIAG_TREE", sizeof (meltcdat->dstr_210__REGISTER_DIAG_TREE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_210__REGISTER_DIAG_TREE.val, "REGISTER_DIAG_TREE", sizeof (meltcdat->dstr_210__REGISTER_DIAG_TREE.val)-1); meltcdat->dstr_210__REGISTER_DIAG_TREE.val[18] = (char)0 ; meltcdat->dstr_210__REGISTER_DIAG_TREE.slen = 18 ; /*inirout drout_211__ERROR_AT*/ - /*iniroutlocvar*/ /*_._VALROUT___V305*/ - meltfptr[304] = (melt_ptr_t) &meltcdat->drout_211__ERROR_AT; + /*iniroutlocvar*/ /*_._VALROUT___V305*/ meltfptr[304] = (melt_ptr_t) &meltcdat->drout_211__ERROR_AT; meltcdat->drout_211__ERROR_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_211__ERROR_AT.routdescr, "ERROR_AT @warmelt-macro.melt:354", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_211__ERROR_AT.nbval = 13; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_211__ERROR_AT, meltrout_8_WARMELTmiMACRO_ERROR_AT); /*iniclos dclo_212__ERROR_AT*/ - /*_._VALCLO___V306*/ - meltfptr[305] = (melt_ptr_t) &meltcdat->dclo_212__ERROR_AT; + /*_._VALCLO___V306*/ meltfptr[305] = (melt_ptr_t) &meltcdat->dclo_212__ERROR_AT; meltcdat->dclo_212__ERROR_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_212__ERROR_AT.nbval = 0; /*inirout drout_213__WARNING_AT*/ - /*iniroutlocvar*/ /*_._VALROUT___V307*/ - meltfptr[306] = (melt_ptr_t) &meltcdat->drout_213__WARNING_AT; + /*iniroutlocvar*/ /*_._VALROUT___V307*/ meltfptr[306] = (melt_ptr_t) &meltcdat->drout_213__WARNING_AT; meltcdat->drout_213__WARNING_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_213__WARNING_AT.routdescr, "WARNING_AT @warmelt-macro.melt:376", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_213__WARNING_AT.nbval = 13; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_213__WARNING_AT, meltrout_9_WARMELTmiMACRO_WARNING_AT); /*iniclos dclo_214__WARNING_AT*/ - /*_._VALCLO___V308*/ - meltfptr[307] = (melt_ptr_t) &meltcdat->dclo_214__WARNING_AT; + /*_._VALCLO___V308*/ meltfptr[307] = (melt_ptr_t) &meltcdat->dclo_214__WARNING_AT; meltcdat->dclo_214__WARNING_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_214__WARNING_AT.nbval = 0; /*inirout drout_215__INFORM_AT*/ - /*iniroutlocvar*/ /*_._VALROUT___V309*/ - meltfptr[308] = (melt_ptr_t) &meltcdat->drout_215__INFORM_AT; + /*iniroutlocvar*/ /*_._VALROUT___V309*/ meltfptr[308] = (melt_ptr_t) &meltcdat->drout_215__INFORM_AT; meltcdat->drout_215__INFORM_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_215__INFORM_AT.routdescr, "INFORM_AT @warmelt-macro.melt:398", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_215__INFORM_AT.nbval = 13; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_215__INFORM_AT, meltrout_10_WARMELTmiMACRO_INFORM_AT); /*iniclos dclo_216__INFORM_AT*/ - /*_._VALCLO___V310*/ - meltfptr[309] = (melt_ptr_t) &meltcdat->dclo_216__INFORM_AT; + /*_._VALCLO___V310*/ meltfptr[309] = (melt_ptr_t) &meltcdat->dclo_216__INFORM_AT; meltcdat->dclo_216__INFORM_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_216__INFORM_AT.nbval = 0; /*iniobj dsym_217__ERROR_AT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V311*/ meltfptr[310]) + /*uniqueobj*/ if (!/*_._VALDATA___V311*/ meltfptr[310]) /*_._VALDATA___V311*/ meltfptr[310] = (melt_ptr_t )&meltcdat->dsym_217__ERROR_AT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_217__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_217__ERROR_AT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13350,18 +12113,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_218__ERROR_AT*/ - /*_._VALSTR___V312*/ - meltfptr[311] = (melt_ptr_t) &meltcdat->dstr_218__ERROR_AT; + /*_._VALSTR___V312*/ meltfptr[311] = (melt_ptr_t) &meltcdat->dstr_218__ERROR_AT; meltcdat->dstr_218__ERROR_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_218__ERROR_AT.val, "ERROR_AT", sizeof (meltcdat->dstr_218__ERROR_AT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_218__ERROR_AT.val, "ERROR_AT", sizeof (meltcdat->dstr_218__ERROR_AT.val)-1); meltcdat->dstr_218__ERROR_AT.val[8] = (char)0 ; meltcdat->dstr_218__ERROR_AT.slen = 8 ; /*iniobj dsym_219__WARNING_AT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V313*/ meltfptr[312]) + /*uniqueobj*/ if (!/*_._VALDATA___V313*/ meltfptr[312]) /*_._VALDATA___V313*/ meltfptr[312] = (melt_ptr_t )&meltcdat->dsym_219__WARNING_AT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_219__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_219__WARNING_AT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13371,18 +12131,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_220__WARNING_AT*/ - /*_._VALSTR___V314*/ - meltfptr[313] = (melt_ptr_t) &meltcdat->dstr_220__WARNING_AT; + /*_._VALSTR___V314*/ meltfptr[313] = (melt_ptr_t) &meltcdat->dstr_220__WARNING_AT; meltcdat->dstr_220__WARNING_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_220__WARNING_AT.val, "WARNING_AT", sizeof (meltcdat->dstr_220__WARNING_AT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_220__WARNING_AT.val, "WARNING_AT", sizeof (meltcdat->dstr_220__WARNING_AT.val)-1); meltcdat->dstr_220__WARNING_AT.val[10] = (char)0 ; meltcdat->dstr_220__WARNING_AT.slen = 10 ; /*iniobj dsym_221__INFORM_AT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V315*/ meltfptr[314]) + /*uniqueobj*/ if (!/*_._VALDATA___V315*/ meltfptr[314]) /*_._VALDATA___V315*/ meltfptr[314] = (melt_ptr_t )&meltcdat->dsym_221__INFORM_AT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_221__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_221__INFORM_AT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13392,18 +12149,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_222__INFORM_AT*/ - /*_._VALSTR___V316*/ - meltfptr[315] = (melt_ptr_t) &meltcdat->dstr_222__INFORM_AT; + /*_._VALSTR___V316*/ meltfptr[315] = (melt_ptr_t) &meltcdat->dstr_222__INFORM_AT; meltcdat->dstr_222__INFORM_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_222__INFORM_AT.val, "INFORM_AT", sizeof (meltcdat->dstr_222__INFORM_AT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_222__INFORM_AT.val, "INFORM_AT", sizeof (meltcdat->dstr_222__INFORM_AT.val)-1); meltcdat->dstr_222__INFORM_AT.val[9] = (char)0 ; meltcdat->dstr_222__INFORM_AT.slen = 9 ; /*iniobj dsym_223__IS_RECURSIVELY_CONSTRUCTIBLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V317*/ meltfptr[316]) + /*uniqueobj*/ if (!/*_._VALDATA___V317*/ meltfptr[316]) /*_._VALDATA___V317*/ meltfptr[316] = (melt_ptr_t )&meltcdat->dsym_223__IS_RECURSIVELY_CONSTRUCTIBLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_223__IS_RECURSIVELY_CONSTRUCTIBLE", 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_223__IS_RECURSIVELY_CONSTRUCTIBLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13413,18 +12167,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_224__IS_RECURSIVELY_CONSTRUCT*/ - /*_._VALSTR___V318*/ - meltfptr[317] = (melt_ptr_t) &meltcdat->dstr_224__IS_RECURSIVELY_CONSTRUCT; + /*_._VALSTR___V318*/ meltfptr[317] = (melt_ptr_t) &meltcdat->dstr_224__IS_RECURSIVELY_CONSTRUCT; meltcdat->dstr_224__IS_RECURSIVELY_CONSTRUCT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_224__IS_RECURSIVELY_CONSTRUCT.val, "IS_RECURSIVELY_CONSTRUCTIBLE", sizeof (meltcdat->dstr_224__IS_RECURSIVELY_CONSTRUCT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_224__IS_RECURSIVELY_CONSTRUCT.val, "IS_RECURSIVELY_CONSTRUCTIBLE", sizeof (meltcdat->dstr_224__IS_RECURSIVELY_CONSTRUCT.val)-1); meltcdat->dstr_224__IS_RECURSIVELY_CONSTRUCT.val[28] = (char)0 ; meltcdat->dstr_224__IS_RECURSIVELY_CONSTRUCT.slen = 28 ; /*iniobj dsym_225__CLASS_SELECTOR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V319*/ meltfptr[318]) + /*uniqueobj*/ if (!/*_._VALDATA___V319*/ meltfptr[318]) /*_._VALDATA___V319*/ meltfptr[318] = (melt_ptr_t )&meltcdat->dsym_225__CLASS_SELECTOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_225__CLASS_SELECTOR", 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_SELECTOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13434,18 +12185,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_226__CLASS_SELECTOR*/ - /*_._VALSTR___V320*/ - meltfptr[319] = (melt_ptr_t) &meltcdat->dstr_226__CLASS_SELECTOR; + /*_._VALSTR___V320*/ meltfptr[319] = (melt_ptr_t) &meltcdat->dstr_226__CLASS_SELECTOR; meltcdat->dstr_226__CLASS_SELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_226__CLASS_SELECTOR.val, "CLASS_SELECTOR", sizeof (meltcdat->dstr_226__CLASS_SELECTOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_226__CLASS_SELECTOR.val, "CLASS_SELECTOR", sizeof (meltcdat->dstr_226__CLASS_SELECTOR.val)-1); meltcdat->dstr_226__CLASS_SELECTOR.val[14] = (char)0 ; meltcdat->dstr_226__CLASS_SELECTOR.slen = 14 ; /*iniobj dsym_227__RECV*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V321*/ meltfptr[320]) + /*uniqueobj*/ if (!/*_._VALDATA___V321*/ meltfptr[320]) /*_._VALDATA___V321*/ meltfptr[320] = (melt_ptr_t )&meltcdat->dsym_227__RECV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_227__RECV", 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_227__RECV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13455,19 +12203,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_228__RECV*/ - /*_._VALSTR___V322*/ - meltfptr[321] = (melt_ptr_t) &meltcdat->dstr_228__RECV; + /*_._VALSTR___V322*/ meltfptr[321] = (melt_ptr_t) &meltcdat->dstr_228__RECV; meltcdat->dstr_228__RECV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_228__RECV.val, "RECV", sizeof (meltcdat->dstr_228__RECV.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_228__RECV.val, "RECV", sizeof (meltcdat->dstr_228__RECV.val)-1); meltcdat->dstr_228__RECV.val[4] = (char)0 ; meltcdat->dstr_228__RECV.slen = 4 ; MELT_LOCATION("warmelt-macro.melt:424:/ iniobj"); /*iniobj dobj_229*/ - /*_._VALDATA___V323*/ - meltfptr[322] = (melt_ptr_t )&meltcdat->dobj_229; + /*_._VALDATA___V323*/ meltfptr[322] = (melt_ptr_t )&meltcdat->dobj_229; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_229", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_229", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_229.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); @@ -13476,15 +12221,13 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t meltcdat->dobj_229.obj_len = 2; /*inimult dtup_230_syIS_RECURSIVELY_CONSTRUCTIBLE*/ - /*_._VALTUP___V324*/ - meltfptr[323] = (melt_ptr_t) &meltcdat->dtup_230_syIS_RECURSIVELY_CONSTRUCTIBLE; + /*_._VALTUP___V324*/ meltfptr[323] = (melt_ptr_t) &meltcdat->dtup_230_syIS_RECURSIVELY_CONSTRUCTIBLE; meltcdat->dtup_230_syIS_RECURSIVELY_CONSTRUCTIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltcdat->dtup_230_syIS_RECURSIVELY_CONSTRUCTIBLE.nbval = 1; /*^iniobj*/ /*iniobj dobj_231__IS_RECURSIVELY_CONSTRUCTIBLE*/ - /*_._VALDATA___V325*/ - meltfptr[324] = (melt_ptr_t )&meltcdat->dobj_231__IS_RECURSIVELY_CONSTRUCTIBLE; + /*_._VALDATA___V325*/ meltfptr[324] = (melt_ptr_t )&meltcdat->dobj_231__IS_RECURSIVELY_CONSTRUCTIBLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_231__IS_RECURSIVELY_CONSTRUCTIBLE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_SELECTOR__V24*/ meltfptr[23])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_231__IS_RECURSIVELY_CONSTRUCTIBLE", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V24*/ meltfptr[23]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_231__IS_RECURSIVELY_CONSTRUCTIBLE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V24*/ meltfptr[23]); @@ -13493,18 +12236,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_232__IS_RECURSIVELY_CONSTRUCT*/ - /*_._VALSTR___V326*/ - meltfptr[325] = (melt_ptr_t) &meltcdat->dstr_232__IS_RECURSIVELY_CONSTRUCT; + /*_._VALSTR___V326*/ meltfptr[325] = (melt_ptr_t) &meltcdat->dstr_232__IS_RECURSIVELY_CONSTRUCT; meltcdat->dstr_232__IS_RECURSIVELY_CONSTRUCT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_232__IS_RECURSIVELY_CONSTRUCT.val, "IS_RECURSIVELY_CONSTRUCTIBLE", sizeof (meltcdat->dstr_232__IS_RECURSIVELY_CONSTRUCT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_232__IS_RECURSIVELY_CONSTRUCT.val, "IS_RECURSIVELY_CONSTRUCTIBLE", sizeof (meltcdat->dstr_232__IS_RECURSIVELY_CONSTRUCT.val)-1); meltcdat->dstr_232__IS_RECURSIVELY_CONSTRUCT.val[28] = (char)0 ; meltcdat->dstr_232__IS_RECURSIVELY_CONSTRUCT.slen = 28 ; /*iniobj dsym_233__CLASS_SOURCE_GENERATOR_DEVICE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V327*/ meltfptr[326]) + /*uniqueobj*/ if (!/*_._VALDATA___V327*/ meltfptr[326]) /*_._VALDATA___V327*/ meltfptr[326] = (melt_ptr_t )&meltcdat->dsym_233__CLASS_SOURCE_GENERATOR_DEVICE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_233__CLASS_SOURCE_GENERATOR_DEVICE", 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_SOURCE_GENERATOR_DEVICE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13514,18 +12254,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_234__CLASS_SOURCE_GENERATOR_D*/ - /*_._VALSTR___V328*/ - meltfptr[327] = (melt_ptr_t) &meltcdat->dstr_234__CLASS_SOURCE_GENERATOR_D; + /*_._VALSTR___V328*/ meltfptr[327] = (melt_ptr_t) &meltcdat->dstr_234__CLASS_SOURCE_GENERATOR_D; meltcdat->dstr_234__CLASS_SOURCE_GENERATOR_D.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_234__CLASS_SOURCE_GENERATOR_D.val, "CLASS_SOURCE_GENERATOR_DEVICE", sizeof (meltcdat->dstr_234__CLASS_SOURCE_GENERATOR_D.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_234__CLASS_SOURCE_GENERATOR_D.val, "CLASS_SOURCE_GENERATOR_DEVICE", sizeof (meltcdat->dstr_234__CLASS_SOURCE_GENERATOR_D.val)-1); meltcdat->dstr_234__CLASS_SOURCE_GENERATOR_D.val[29] = (char)0 ; meltcdat->dstr_234__CLASS_SOURCE_GENERATOR_D.slen = 29 ; /*iniobj dsym_235__CLASS_SOURCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V329*/ meltfptr[328]) + /*uniqueobj*/ if (!/*_._VALDATA___V329*/ meltfptr[328]) /*_._VALDATA___V329*/ meltfptr[328] = (melt_ptr_t )&meltcdat->dsym_235__CLASS_SOURCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_235__CLASS_SOURCE", 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__CLASS_SOURCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13535,19 +12272,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_236__CLASS_SOURCE*/ - /*_._VALSTR___V330*/ - meltfptr[329] = (melt_ptr_t) &meltcdat->dstr_236__CLASS_SOURCE; + /*_._VALSTR___V330*/ meltfptr[329] = (melt_ptr_t) &meltcdat->dstr_236__CLASS_SOURCE; meltcdat->dstr_236__CLASS_SOURCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_236__CLASS_SOURCE.val, "CLASS_SOURCE", sizeof (meltcdat->dstr_236__CLASS_SOURCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_236__CLASS_SOURCE.val, "CLASS_SOURCE", sizeof (meltcdat->dstr_236__CLASS_SOURCE.val)-1); meltcdat->dstr_236__CLASS_SOURCE.val[12] = (char)0 ; meltcdat->dstr_236__CLASS_SOURCE.slen = 12 ; MELT_LOCATION("warmelt-macro.melt:430:/ iniobj"); /*iniobj dobj_237__CLASS_SOURCE_GENERATOR_DEVICE*/ - /*_._VALDATA___V331*/ - meltfptr[330] = (melt_ptr_t )&meltcdat->dobj_237__CLASS_SOURCE_GENERATOR_DEVICE; + /*_._VALDATA___V331*/ meltfptr[330] = (melt_ptr_t )&meltcdat->dobj_237__CLASS_SOURCE_GENERATOR_DEVICE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_237__CLASS_SOURCE_GENERATOR_DEVICE", 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_237__CLASS_SOURCE_GENERATOR_DEVICE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_237__CLASS_SOURCE_GENERATOR_DEVICE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -13557,28 +12291,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_238__CLASS_SOURCE_GENERATOR_D*/ - /*_._VALSTR___V332*/ - meltfptr[331] = (melt_ptr_t) &meltcdat->dstr_238__CLASS_SOURCE_GENERATOR_D; + /*_._VALSTR___V332*/ meltfptr[331] = (melt_ptr_t) &meltcdat->dstr_238__CLASS_SOURCE_GENERATOR_D; meltcdat->dstr_238__CLASS_SOURCE_GENERATOR_D.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_238__CLASS_SOURCE_GENERATOR_D.val, "CLASS_SOURCE_GENERATOR_DEVICE", sizeof (meltcdat->dstr_238__CLASS_SOURCE_GENERATOR_D.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_238__CLASS_SOURCE_GENERATOR_D.val, "CLASS_SOURCE_GENERATOR_DEVICE", sizeof (meltcdat->dstr_238__CLASS_SOURCE_GENERATOR_D.val)-1); meltcdat->dstr_238__CLASS_SOURCE_GENERATOR_D.val[29] = (char)0 ; meltcdat->dstr_238__CLASS_SOURCE_GENERATOR_D.slen = 29 ; /*inimult dtup_239_syCLASS_SOURCE_GENERATOR_DEVICE*/ - /*_._VALTUP___V333*/ - meltfptr[332] = (melt_ptr_t) &meltcdat->dtup_239_syCLASS_SOURCE_GENERATOR_DEVICE; + /*_._VALTUP___V333*/ meltfptr[332] = (melt_ptr_t) &meltcdat->dtup_239_syCLASS_SOURCE_GENERATOR_DEVICE; meltcdat->dtup_239_syCLASS_SOURCE_GENERATOR_DEVICE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_239_syCLASS_SOURCE_GENERATOR_DEVICE.nbval = 4; /*inimult dtup_240_syCLASS_SOURCE_GENERATOR_DEVICE*/ - /*_._VALTUP___V338*/ - meltfptr[337] = (melt_ptr_t) &meltcdat->dtup_240_syCLASS_SOURCE_GENERATOR_DEVICE; + /*_._VALTUP___V338*/ meltfptr[337] = (melt_ptr_t) &meltcdat->dtup_240_syCLASS_SOURCE_GENERATOR_DEVICE; meltcdat->dtup_240_syCLASS_SOURCE_GENERATOR_DEVICE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_240_syCLASS_SOURCE_GENERATOR_DEVICE.nbval = 4; /*iniobj dsym_241__SRCGEN_DEFIN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V339*/ meltfptr[338]) + /*uniqueobj*/ if (!/*_._VALDATA___V339*/ meltfptr[338]) /*_._VALDATA___V339*/ meltfptr[338] = (melt_ptr_t )&meltcdat->dsym_241__SRCGEN_DEFIN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_241__SRCGEN_DEFIN", 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__SRCGEN_DEFIN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13588,19 +12317,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_242__SRCGEN_DEFIN*/ - /*_._VALSTR___V340*/ - meltfptr[339] = (melt_ptr_t) &meltcdat->dstr_242__SRCGEN_DEFIN; + /*_._VALSTR___V340*/ meltfptr[339] = (melt_ptr_t) &meltcdat->dstr_242__SRCGEN_DEFIN; meltcdat->dstr_242__SRCGEN_DEFIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_242__SRCGEN_DEFIN.val, "SRCGEN_DEFIN", sizeof (meltcdat->dstr_242__SRCGEN_DEFIN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_242__SRCGEN_DEFIN.val, "SRCGEN_DEFIN", sizeof (meltcdat->dstr_242__SRCGEN_DEFIN.val)-1); meltcdat->dstr_242__SRCGEN_DEFIN.val[12] = (char)0 ; meltcdat->dstr_242__SRCGEN_DEFIN.slen = 12 ; /*^iniobj*/ /*iniobj dobj_243__SRCGEN_DEFIN*/ - /*_._VALDATA___V334*/ - meltfptr[333] = (melt_ptr_t )&meltcdat->dobj_243__SRCGEN_DEFIN; + /*_._VALDATA___V334*/ meltfptr[333] = (melt_ptr_t )&meltcdat->dobj_243__SRCGEN_DEFIN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_243__SRCGEN_DEFIN", 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_243__SRCGEN_DEFIN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_243__SRCGEN_DEFIN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -13610,18 +12336,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_244__SRCGEN_DEFIN*/ - /*_._VALSTR___V335*/ - meltfptr[334] = (melt_ptr_t) &meltcdat->dstr_244__SRCGEN_DEFIN; + /*_._VALSTR___V335*/ meltfptr[334] = (melt_ptr_t) &meltcdat->dstr_244__SRCGEN_DEFIN; meltcdat->dstr_244__SRCGEN_DEFIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_244__SRCGEN_DEFIN.val, "SRCGEN_DEFIN", sizeof (meltcdat->dstr_244__SRCGEN_DEFIN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_244__SRCGEN_DEFIN.val, "SRCGEN_DEFIN", sizeof (meltcdat->dstr_244__SRCGEN_DEFIN.val)-1); meltcdat->dstr_244__SRCGEN_DEFIN.val[12] = (char)0 ; meltcdat->dstr_244__SRCGEN_DEFIN.slen = 12 ; /*iniobj dsym_245__SRCGEN_REPR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V341*/ meltfptr[340]) + /*uniqueobj*/ if (!/*_._VALDATA___V341*/ meltfptr[340]) /*_._VALDATA___V341*/ meltfptr[340] = (melt_ptr_t )&meltcdat->dsym_245__SRCGEN_REPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_245__SRCGEN_REPR", 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__SRCGEN_REPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13631,19 +12354,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_246__SRCGEN_REPR*/ - /*_._VALSTR___V342*/ - meltfptr[341] = (melt_ptr_t) &meltcdat->dstr_246__SRCGEN_REPR; + /*_._VALSTR___V342*/ meltfptr[341] = (melt_ptr_t) &meltcdat->dstr_246__SRCGEN_REPR; meltcdat->dstr_246__SRCGEN_REPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_246__SRCGEN_REPR.val, "SRCGEN_REPR", sizeof (meltcdat->dstr_246__SRCGEN_REPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_246__SRCGEN_REPR.val, "SRCGEN_REPR", sizeof (meltcdat->dstr_246__SRCGEN_REPR.val)-1); meltcdat->dstr_246__SRCGEN_REPR.val[11] = (char)0 ; meltcdat->dstr_246__SRCGEN_REPR.slen = 11 ; /*^iniobj*/ /*iniobj dobj_247__SRCGEN_REPR*/ - /*_._VALDATA___V336*/ - meltfptr[335] = (melt_ptr_t )&meltcdat->dobj_247__SRCGEN_REPR; + /*_._VALDATA___V336*/ meltfptr[335] = (melt_ptr_t )&meltcdat->dobj_247__SRCGEN_REPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_247__SRCGEN_REPR", 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_247__SRCGEN_REPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_247__SRCGEN_REPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -13653,18 +12373,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_248__SRCGEN_REPR*/ - /*_._VALSTR___V337*/ - meltfptr[336] = (melt_ptr_t) &meltcdat->dstr_248__SRCGEN_REPR; + /*_._VALSTR___V337*/ meltfptr[336] = (melt_ptr_t) &meltcdat->dstr_248__SRCGEN_REPR; meltcdat->dstr_248__SRCGEN_REPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_248__SRCGEN_REPR.val, "SRCGEN_REPR", sizeof (meltcdat->dstr_248__SRCGEN_REPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_248__SRCGEN_REPR.val, "SRCGEN_REPR", sizeof (meltcdat->dstr_248__SRCGEN_REPR.val)-1); meltcdat->dstr_248__SRCGEN_REPR.val[11] = (char)0 ; meltcdat->dstr_248__SRCGEN_REPR.slen = 11 ; /*iniobj dsym_249__CLASS_SOURCE_LAZY_MACRO_EXPANSION*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V343*/ meltfptr[342]) + /*uniqueobj*/ if (!/*_._VALDATA___V343*/ meltfptr[342]) /*_._VALDATA___V343*/ meltfptr[342] = (melt_ptr_t )&meltcdat->dsym_249__CLASS_SOURCE_LAZY_MACRO_EXPANSION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_249__CLASS_SOURCE_LAZY_MACRO_EXPANSION", 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_LAZY_MACRO_EXPANSION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13674,19 +12391,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_250__CLASS_SOURCE_LAZY_MACRO_*/ - /*_._VALSTR___V344*/ - meltfptr[343] = (melt_ptr_t) &meltcdat->dstr_250__CLASS_SOURCE_LAZY_MACRO_; + /*_._VALSTR___V344*/ meltfptr[343] = (melt_ptr_t) &meltcdat->dstr_250__CLASS_SOURCE_LAZY_MACRO_; meltcdat->dstr_250__CLASS_SOURCE_LAZY_MACRO_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_250__CLASS_SOURCE_LAZY_MACRO_.val, "CLASS_SOURCE_LAZY_MACRO_EXPANSION", sizeof (meltcdat->dstr_250__CLASS_SOURCE_LAZY_MACRO_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_250__CLASS_SOURCE_LAZY_MACRO_.val, "CLASS_SOURCE_LAZY_MACRO_EXPANSION", sizeof (meltcdat->dstr_250__CLASS_SOURCE_LAZY_MACRO_.val)-1); meltcdat->dstr_250__CLASS_SOURCE_LAZY_MACRO_.val[33] = (char)0 ; meltcdat->dstr_250__CLASS_SOURCE_LAZY_MACRO_.slen = 33 ; MELT_LOCATION("warmelt-macro.melt:439:/ iniobj"); /*iniobj dobj_251__CLASS_SOURCE_LAZY_MACRO_EXPANSION*/ - /*_._VALDATA___V345*/ - meltfptr[344] = (melt_ptr_t )&meltcdat->dobj_251__CLASS_SOURCE_LAZY_MACRO_EXPANSION; + /*_._VALDATA___V345*/ meltfptr[344] = (melt_ptr_t )&meltcdat->dobj_251__CLASS_SOURCE_LAZY_MACRO_EXPANSION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_251__CLASS_SOURCE_LAZY_MACRO_EXPANSION", 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_251__CLASS_SOURCE_LAZY_MACRO_EXPANSION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_251__CLASS_SOURCE_LAZY_MACRO_EXPANSION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -13696,28 +12410,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_252__CLASS_SOURCE_LAZY_MACRO_*/ - /*_._VALSTR___V346*/ - meltfptr[345] = (melt_ptr_t) &meltcdat->dstr_252__CLASS_SOURCE_LAZY_MACRO_; + /*_._VALSTR___V346*/ meltfptr[345] = (melt_ptr_t) &meltcdat->dstr_252__CLASS_SOURCE_LAZY_MACRO_; meltcdat->dstr_252__CLASS_SOURCE_LAZY_MACRO_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_252__CLASS_SOURCE_LAZY_MACRO_.val, "CLASS_SOURCE_LAZY_MACRO_EXPANSION", sizeof (meltcdat->dstr_252__CLASS_SOURCE_LAZY_MACRO_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_252__CLASS_SOURCE_LAZY_MACRO_.val, "CLASS_SOURCE_LAZY_MACRO_EXPANSION", sizeof (meltcdat->dstr_252__CLASS_SOURCE_LAZY_MACRO_.val)-1); meltcdat->dstr_252__CLASS_SOURCE_LAZY_MACRO_.val[33] = (char)0 ; meltcdat->dstr_252__CLASS_SOURCE_LAZY_MACRO_.slen = 33 ; /*inimult dtup_253_syCLASS_SOURCE_LAZY_MACRO_EXPANSION*/ - /*_._VALTUP___V347*/ - meltfptr[346] = (melt_ptr_t) &meltcdat->dtup_253_syCLASS_SOURCE_LAZY_MACRO_EXPANSION; + /*_._VALTUP___V347*/ meltfptr[346] = (melt_ptr_t) &meltcdat->dtup_253_syCLASS_SOURCE_LAZY_MACRO_EXPANSION; meltcdat->dtup_253_syCLASS_SOURCE_LAZY_MACRO_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_253_syCLASS_SOURCE_LAZY_MACRO_EXPANSION.nbval = 4; /*inimult dtup_254_syCLASS_SOURCE_LAZY_MACRO_EXPANSION*/ - /*_._VALTUP___V352*/ - meltfptr[351] = (melt_ptr_t) &meltcdat->dtup_254_syCLASS_SOURCE_LAZY_MACRO_EXPANSION; + /*_._VALTUP___V352*/ meltfptr[351] = (melt_ptr_t) &meltcdat->dtup_254_syCLASS_SOURCE_LAZY_MACRO_EXPANSION; meltcdat->dtup_254_syCLASS_SOURCE_LAZY_MACRO_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_254_syCLASS_SOURCE_LAZY_MACRO_EXPANSION.nbval = 4; /*iniobj dsym_255__SLAZYMACRO_FUN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V353*/ meltfptr[352]) + /*uniqueobj*/ if (!/*_._VALDATA___V353*/ meltfptr[352]) /*_._VALDATA___V353*/ meltfptr[352] = (melt_ptr_t )&meltcdat->dsym_255__SLAZYMACRO_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_255__SLAZYMACRO_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_255__SLAZYMACRO_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13727,19 +12436,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_256__SLAZYMACRO_FUN*/ - /*_._VALSTR___V354*/ - meltfptr[353] = (melt_ptr_t) &meltcdat->dstr_256__SLAZYMACRO_FUN; + /*_._VALSTR___V354*/ meltfptr[353] = (melt_ptr_t) &meltcdat->dstr_256__SLAZYMACRO_FUN; meltcdat->dstr_256__SLAZYMACRO_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_256__SLAZYMACRO_FUN.val, "SLAZYMACRO_FUN", sizeof (meltcdat->dstr_256__SLAZYMACRO_FUN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_256__SLAZYMACRO_FUN.val, "SLAZYMACRO_FUN", sizeof (meltcdat->dstr_256__SLAZYMACRO_FUN.val)-1); meltcdat->dstr_256__SLAZYMACRO_FUN.val[14] = (char)0 ; meltcdat->dstr_256__SLAZYMACRO_FUN.slen = 14 ; /*^iniobj*/ /*iniobj dobj_257__SLAZYMACRO_FUN*/ - /*_._VALDATA___V348*/ - meltfptr[347] = (melt_ptr_t )&meltcdat->dobj_257__SLAZYMACRO_FUN; + /*_._VALDATA___V348*/ meltfptr[347] = (melt_ptr_t )&meltcdat->dobj_257__SLAZYMACRO_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_257__SLAZYMACRO_FUN", 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_257__SLAZYMACRO_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_257__SLAZYMACRO_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -13749,18 +12455,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_258__SLAZYMACRO_FUN*/ - /*_._VALSTR___V349*/ - meltfptr[348] = (melt_ptr_t) &meltcdat->dstr_258__SLAZYMACRO_FUN; + /*_._VALSTR___V349*/ meltfptr[348] = (melt_ptr_t) &meltcdat->dstr_258__SLAZYMACRO_FUN; meltcdat->dstr_258__SLAZYMACRO_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_258__SLAZYMACRO_FUN.val, "SLAZYMACRO_FUN", sizeof (meltcdat->dstr_258__SLAZYMACRO_FUN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_258__SLAZYMACRO_FUN.val, "SLAZYMACRO_FUN", sizeof (meltcdat->dstr_258__SLAZYMACRO_FUN.val)-1); meltcdat->dstr_258__SLAZYMACRO_FUN.val[14] = (char)0 ; meltcdat->dstr_258__SLAZYMACRO_FUN.slen = 14 ; /*iniobj dsym_259__SLAZYMACRO_OPER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V355*/ meltfptr[354]) + /*uniqueobj*/ if (!/*_._VALDATA___V355*/ meltfptr[354]) /*_._VALDATA___V355*/ meltfptr[354] = (melt_ptr_t )&meltcdat->dsym_259__SLAZYMACRO_OPER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_259__SLAZYMACRO_OPER", 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__SLAZYMACRO_OPER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13770,19 +12473,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_260__SLAZYMACRO_OPER*/ - /*_._VALSTR___V356*/ - meltfptr[355] = (melt_ptr_t) &meltcdat->dstr_260__SLAZYMACRO_OPER; + /*_._VALSTR___V356*/ meltfptr[355] = (melt_ptr_t) &meltcdat->dstr_260__SLAZYMACRO_OPER; meltcdat->dstr_260__SLAZYMACRO_OPER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_260__SLAZYMACRO_OPER.val, "SLAZYMACRO_OPER", sizeof (meltcdat->dstr_260__SLAZYMACRO_OPER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_260__SLAZYMACRO_OPER.val, "SLAZYMACRO_OPER", sizeof (meltcdat->dstr_260__SLAZYMACRO_OPER.val)-1); meltcdat->dstr_260__SLAZYMACRO_OPER.val[15] = (char)0 ; meltcdat->dstr_260__SLAZYMACRO_OPER.slen = 15 ; /*^iniobj*/ /*iniobj dobj_261__SLAZYMACRO_OPER*/ - /*_._VALDATA___V350*/ - meltfptr[349] = (melt_ptr_t )&meltcdat->dobj_261__SLAZYMACRO_OPER; + /*_._VALDATA___V350*/ meltfptr[349] = (melt_ptr_t )&meltcdat->dobj_261__SLAZYMACRO_OPER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_261__SLAZYMACRO_OPER", 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_261__SLAZYMACRO_OPER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_261__SLAZYMACRO_OPER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -13792,18 +12492,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_262__SLAZYMACRO_OPER*/ - /*_._VALSTR___V351*/ - meltfptr[350] = (melt_ptr_t) &meltcdat->dstr_262__SLAZYMACRO_OPER; + /*_._VALSTR___V351*/ meltfptr[350] = (melt_ptr_t) &meltcdat->dstr_262__SLAZYMACRO_OPER; meltcdat->dstr_262__SLAZYMACRO_OPER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_262__SLAZYMACRO_OPER.val, "SLAZYMACRO_OPER", sizeof (meltcdat->dstr_262__SLAZYMACRO_OPER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_262__SLAZYMACRO_OPER.val, "SLAZYMACRO_OPER", sizeof (meltcdat->dstr_262__SLAZYMACRO_OPER.val)-1); meltcdat->dstr_262__SLAZYMACRO_OPER.val[15] = (char)0 ; meltcdat->dstr_262__SLAZYMACRO_OPER.slen = 15 ; /*iniobj dsym_263__CLASS_SOURCE_ARGUMENTED_OPERATOR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V357*/ meltfptr[356]) + /*uniqueobj*/ if (!/*_._VALDATA___V357*/ meltfptr[356]) /*_._VALDATA___V357*/ meltfptr[356] = (melt_ptr_t )&meltcdat->dsym_263__CLASS_SOURCE_ARGUMENTED_OPERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_263__CLASS_SOURCE_ARGUMENTED_OPERATOR", 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_ARGUMENTED_OPERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13813,19 +12510,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_264__CLASS_SOURCE_ARGUMENTED_*/ - /*_._VALSTR___V358*/ - meltfptr[357] = (melt_ptr_t) &meltcdat->dstr_264__CLASS_SOURCE_ARGUMENTED_; + /*_._VALSTR___V358*/ meltfptr[357] = (melt_ptr_t) &meltcdat->dstr_264__CLASS_SOURCE_ARGUMENTED_; meltcdat->dstr_264__CLASS_SOURCE_ARGUMENTED_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_264__CLASS_SOURCE_ARGUMENTED_.val, "CLASS_SOURCE_ARGUMENTED_OPERATOR", sizeof (meltcdat->dstr_264__CLASS_SOURCE_ARGUMENTED_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_264__CLASS_SOURCE_ARGUMENTED_.val, "CLASS_SOURCE_ARGUMENTED_OPERATOR", sizeof (meltcdat->dstr_264__CLASS_SOURCE_ARGUMENTED_.val)-1); meltcdat->dstr_264__CLASS_SOURCE_ARGUMENTED_.val[32] = (char)0 ; meltcdat->dstr_264__CLASS_SOURCE_ARGUMENTED_.slen = 32 ; MELT_LOCATION("warmelt-macro.melt:452:/ iniobj"); /*iniobj dobj_265__CLASS_SOURCE_ARGUMENTED_OPERATOR*/ - /*_._VALDATA___V359*/ - meltfptr[358] = (melt_ptr_t )&meltcdat->dobj_265__CLASS_SOURCE_ARGUMENTED_OPERATOR; + /*_._VALDATA___V359*/ meltfptr[358] = (melt_ptr_t )&meltcdat->dobj_265__CLASS_SOURCE_ARGUMENTED_OPERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_265__CLASS_SOURCE_ARGUMENTED_OPERATOR", 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_265__CLASS_SOURCE_ARGUMENTED_OPERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_265__CLASS_SOURCE_ARGUMENTED_OPERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -13835,28 +12529,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_266__CLASS_SOURCE_ARGUMENTED_*/ - /*_._VALSTR___V360*/ - meltfptr[359] = (melt_ptr_t) &meltcdat->dstr_266__CLASS_SOURCE_ARGUMENTED_; + /*_._VALSTR___V360*/ meltfptr[359] = (melt_ptr_t) &meltcdat->dstr_266__CLASS_SOURCE_ARGUMENTED_; meltcdat->dstr_266__CLASS_SOURCE_ARGUMENTED_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_266__CLASS_SOURCE_ARGUMENTED_.val, "CLASS_SOURCE_ARGUMENTED_OPERATOR", sizeof (meltcdat->dstr_266__CLASS_SOURCE_ARGUMENTED_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_266__CLASS_SOURCE_ARGUMENTED_.val, "CLASS_SOURCE_ARGUMENTED_OPERATOR", sizeof (meltcdat->dstr_266__CLASS_SOURCE_ARGUMENTED_.val)-1); meltcdat->dstr_266__CLASS_SOURCE_ARGUMENTED_.val[32] = (char)0 ; meltcdat->dstr_266__CLASS_SOURCE_ARGUMENTED_.slen = 32 ; /*inimult dtup_267_syCLASS_SOURCE_ARGUMENTED_OPERATOR*/ - /*_._VALTUP___V361*/ - meltfptr[360] = (melt_ptr_t) &meltcdat->dtup_267_syCLASS_SOURCE_ARGUMENTED_OPERATOR; + /*_._VALTUP___V361*/ meltfptr[360] = (melt_ptr_t) &meltcdat->dtup_267_syCLASS_SOURCE_ARGUMENTED_OPERATOR; meltcdat->dtup_267_syCLASS_SOURCE_ARGUMENTED_OPERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_267_syCLASS_SOURCE_ARGUMENTED_OPERATOR.nbval = 4; /*inimult dtup_268_syCLASS_SOURCE_ARGUMENTED_OPERATOR*/ - /*_._VALTUP___V364*/ - meltfptr[363] = (melt_ptr_t) &meltcdat->dtup_268_syCLASS_SOURCE_ARGUMENTED_OPERATOR; + /*_._VALTUP___V364*/ meltfptr[363] = (melt_ptr_t) &meltcdat->dtup_268_syCLASS_SOURCE_ARGUMENTED_OPERATOR; meltcdat->dtup_268_syCLASS_SOURCE_ARGUMENTED_OPERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_268_syCLASS_SOURCE_ARGUMENTED_OPERATOR.nbval = 3; /*iniobj dsym_269__SARGOP_ARGS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V365*/ meltfptr[364]) + /*uniqueobj*/ if (!/*_._VALDATA___V365*/ meltfptr[364]) /*_._VALDATA___V365*/ meltfptr[364] = (melt_ptr_t )&meltcdat->dsym_269__SARGOP_ARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_269__SARGOP_ARGS", 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__SARGOP_ARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13866,19 +12555,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_270__SARGOP_ARGS*/ - /*_._VALSTR___V366*/ - meltfptr[365] = (melt_ptr_t) &meltcdat->dstr_270__SARGOP_ARGS; + /*_._VALSTR___V366*/ meltfptr[365] = (melt_ptr_t) &meltcdat->dstr_270__SARGOP_ARGS; meltcdat->dstr_270__SARGOP_ARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_270__SARGOP_ARGS.val, "SARGOP_ARGS", sizeof (meltcdat->dstr_270__SARGOP_ARGS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_270__SARGOP_ARGS.val, "SARGOP_ARGS", sizeof (meltcdat->dstr_270__SARGOP_ARGS.val)-1); meltcdat->dstr_270__SARGOP_ARGS.val[11] = (char)0 ; meltcdat->dstr_270__SARGOP_ARGS.slen = 11 ; /*^iniobj*/ /*iniobj dobj_271__SARGOP_ARGS*/ - /*_._VALDATA___V362*/ - meltfptr[361] = (melt_ptr_t )&meltcdat->dobj_271__SARGOP_ARGS; + /*_._VALDATA___V362*/ meltfptr[361] = (melt_ptr_t )&meltcdat->dobj_271__SARGOP_ARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_271__SARGOP_ARGS", 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_271__SARGOP_ARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_271__SARGOP_ARGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -13888,18 +12574,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_272__SARGOP_ARGS*/ - /*_._VALSTR___V363*/ - meltfptr[362] = (melt_ptr_t) &meltcdat->dstr_272__SARGOP_ARGS; + /*_._VALSTR___V363*/ meltfptr[362] = (melt_ptr_t) &meltcdat->dstr_272__SARGOP_ARGS; meltcdat->dstr_272__SARGOP_ARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_272__SARGOP_ARGS.val, "SARGOP_ARGS", sizeof (meltcdat->dstr_272__SARGOP_ARGS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_272__SARGOP_ARGS.val, "SARGOP_ARGS", sizeof (meltcdat->dstr_272__SARGOP_ARGS.val)-1); meltcdat->dstr_272__SARGOP_ARGS.val[11] = (char)0 ; meltcdat->dstr_272__SARGOP_ARGS.slen = 11 ; /*iniobj dsym_273__CLASS_SOURCE_APPLY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V367*/ meltfptr[366]) + /*uniqueobj*/ if (!/*_._VALDATA___V367*/ meltfptr[366]) /*_._VALDATA___V367*/ meltfptr[366] = (melt_ptr_t )&meltcdat->dsym_273__CLASS_SOURCE_APPLY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_273__CLASS_SOURCE_APPLY", 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_SOURCE_APPLY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13909,19 +12592,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_274__CLASS_SOURCE_APPLY*/ - /*_._VALSTR___V368*/ - meltfptr[367] = (melt_ptr_t) &meltcdat->dstr_274__CLASS_SOURCE_APPLY; + /*_._VALSTR___V368*/ meltfptr[367] = (melt_ptr_t) &meltcdat->dstr_274__CLASS_SOURCE_APPLY; meltcdat->dstr_274__CLASS_SOURCE_APPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_274__CLASS_SOURCE_APPLY.val, "CLASS_SOURCE_APPLY", sizeof (meltcdat->dstr_274__CLASS_SOURCE_APPLY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_274__CLASS_SOURCE_APPLY.val, "CLASS_SOURCE_APPLY", sizeof (meltcdat->dstr_274__CLASS_SOURCE_APPLY.val)-1); meltcdat->dstr_274__CLASS_SOURCE_APPLY.val[18] = (char)0 ; meltcdat->dstr_274__CLASS_SOURCE_APPLY.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:460:/ iniobj"); /*iniobj dobj_275__CLASS_SOURCE_APPLY*/ - /*_._VALDATA___V369*/ - meltfptr[368] = (melt_ptr_t )&meltcdat->dobj_275__CLASS_SOURCE_APPLY; + /*_._VALDATA___V369*/ meltfptr[368] = (melt_ptr_t )&meltcdat->dobj_275__CLASS_SOURCE_APPLY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_275__CLASS_SOURCE_APPLY", 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_275__CLASS_SOURCE_APPLY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_275__CLASS_SOURCE_APPLY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -13931,28 +12611,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_276__CLASS_SOURCE_APPLY*/ - /*_._VALSTR___V370*/ - meltfptr[369] = (melt_ptr_t) &meltcdat->dstr_276__CLASS_SOURCE_APPLY; + /*_._VALSTR___V370*/ meltfptr[369] = (melt_ptr_t) &meltcdat->dstr_276__CLASS_SOURCE_APPLY; meltcdat->dstr_276__CLASS_SOURCE_APPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_276__CLASS_SOURCE_APPLY.val, "CLASS_SOURCE_APPLY", sizeof (meltcdat->dstr_276__CLASS_SOURCE_APPLY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_276__CLASS_SOURCE_APPLY.val, "CLASS_SOURCE_APPLY", sizeof (meltcdat->dstr_276__CLASS_SOURCE_APPLY.val)-1); meltcdat->dstr_276__CLASS_SOURCE_APPLY.val[18] = (char)0 ; meltcdat->dstr_276__CLASS_SOURCE_APPLY.slen = 18 ; /*inimult dtup_277_syCLASS_SOURCE_APPLY*/ - /*_._VALTUP___V371*/ - meltfptr[370] = (melt_ptr_t) &meltcdat->dtup_277_syCLASS_SOURCE_APPLY; + /*_._VALTUP___V371*/ meltfptr[370] = (melt_ptr_t) &meltcdat->dtup_277_syCLASS_SOURCE_APPLY; meltcdat->dtup_277_syCLASS_SOURCE_APPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_277_syCLASS_SOURCE_APPLY.nbval = 5; /*inimult dtup_278_syCLASS_SOURCE_APPLY*/ - /*_._VALTUP___V374*/ - meltfptr[373] = (melt_ptr_t) &meltcdat->dtup_278_syCLASS_SOURCE_APPLY; + /*_._VALTUP___V374*/ meltfptr[373] = (melt_ptr_t) &meltcdat->dtup_278_syCLASS_SOURCE_APPLY; meltcdat->dtup_278_syCLASS_SOURCE_APPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_278_syCLASS_SOURCE_APPLY.nbval = 4; /*iniobj dsym_279__SAPP_FUN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V375*/ meltfptr[374]) + /*uniqueobj*/ if (!/*_._VALDATA___V375*/ meltfptr[374]) /*_._VALDATA___V375*/ meltfptr[374] = (melt_ptr_t )&meltcdat->dsym_279__SAPP_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_279__SAPP_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_279__SAPP_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13962,19 +12637,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_280__SAPP_FUN*/ - /*_._VALSTR___V376*/ - meltfptr[375] = (melt_ptr_t) &meltcdat->dstr_280__SAPP_FUN; + /*_._VALSTR___V376*/ meltfptr[375] = (melt_ptr_t) &meltcdat->dstr_280__SAPP_FUN; meltcdat->dstr_280__SAPP_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_280__SAPP_FUN.val, "SAPP_FUN", sizeof (meltcdat->dstr_280__SAPP_FUN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_280__SAPP_FUN.val, "SAPP_FUN", sizeof (meltcdat->dstr_280__SAPP_FUN.val)-1); meltcdat->dstr_280__SAPP_FUN.val[8] = (char)0 ; meltcdat->dstr_280__SAPP_FUN.slen = 8 ; /*^iniobj*/ /*iniobj dobj_281__SAPP_FUN*/ - /*_._VALDATA___V372*/ - meltfptr[371] = (melt_ptr_t )&meltcdat->dobj_281__SAPP_FUN; + /*_._VALDATA___V372*/ meltfptr[371] = (melt_ptr_t )&meltcdat->dobj_281__SAPP_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_281__SAPP_FUN", 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_281__SAPP_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_281__SAPP_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -13984,18 +12656,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_282__SAPP_FUN*/ - /*_._VALSTR___V373*/ - meltfptr[372] = (melt_ptr_t) &meltcdat->dstr_282__SAPP_FUN; + /*_._VALSTR___V373*/ meltfptr[372] = (melt_ptr_t) &meltcdat->dstr_282__SAPP_FUN; meltcdat->dstr_282__SAPP_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_282__SAPP_FUN.val, "SAPP_FUN", sizeof (meltcdat->dstr_282__SAPP_FUN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_282__SAPP_FUN.val, "SAPP_FUN", sizeof (meltcdat->dstr_282__SAPP_FUN.val)-1); meltcdat->dstr_282__SAPP_FUN.val[8] = (char)0 ; meltcdat->dstr_282__SAPP_FUN.slen = 8 ; /*iniobj dsym_283__CLASS_SOURCE_MSEND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V377*/ meltfptr[376]) + /*uniqueobj*/ if (!/*_._VALDATA___V377*/ meltfptr[376]) /*_._VALDATA___V377*/ meltfptr[376] = (melt_ptr_t )&meltcdat->dsym_283__CLASS_SOURCE_MSEND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_283__CLASS_SOURCE_MSEND", 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__CLASS_SOURCE_MSEND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14005,19 +12674,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_284__CLASS_SOURCE_MSEND*/ - /*_._VALSTR___V378*/ - meltfptr[377] = (melt_ptr_t) &meltcdat->dstr_284__CLASS_SOURCE_MSEND; + /*_._VALSTR___V378*/ meltfptr[377] = (melt_ptr_t) &meltcdat->dstr_284__CLASS_SOURCE_MSEND; meltcdat->dstr_284__CLASS_SOURCE_MSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_284__CLASS_SOURCE_MSEND.val, "CLASS_SOURCE_MSEND", sizeof (meltcdat->dstr_284__CLASS_SOURCE_MSEND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_284__CLASS_SOURCE_MSEND.val, "CLASS_SOURCE_MSEND", sizeof (meltcdat->dstr_284__CLASS_SOURCE_MSEND.val)-1); meltcdat->dstr_284__CLASS_SOURCE_MSEND.val[18] = (char)0 ; meltcdat->dstr_284__CLASS_SOURCE_MSEND.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:469:/ iniobj"); /*iniobj dobj_285__CLASS_SOURCE_MSEND*/ - /*_._VALDATA___V379*/ - meltfptr[378] = (melt_ptr_t )&meltcdat->dobj_285__CLASS_SOURCE_MSEND; + /*_._VALDATA___V379*/ meltfptr[378] = (melt_ptr_t )&meltcdat->dobj_285__CLASS_SOURCE_MSEND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_285__CLASS_SOURCE_MSEND", 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_285__CLASS_SOURCE_MSEND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_285__CLASS_SOURCE_MSEND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -14027,28 +12693,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_286__CLASS_SOURCE_MSEND*/ - /*_._VALSTR___V380*/ - meltfptr[379] = (melt_ptr_t) &meltcdat->dstr_286__CLASS_SOURCE_MSEND; + /*_._VALSTR___V380*/ meltfptr[379] = (melt_ptr_t) &meltcdat->dstr_286__CLASS_SOURCE_MSEND; meltcdat->dstr_286__CLASS_SOURCE_MSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_286__CLASS_SOURCE_MSEND.val, "CLASS_SOURCE_MSEND", sizeof (meltcdat->dstr_286__CLASS_SOURCE_MSEND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_286__CLASS_SOURCE_MSEND.val, "CLASS_SOURCE_MSEND", sizeof (meltcdat->dstr_286__CLASS_SOURCE_MSEND.val)-1); meltcdat->dstr_286__CLASS_SOURCE_MSEND.val[18] = (char)0 ; meltcdat->dstr_286__CLASS_SOURCE_MSEND.slen = 18 ; /*inimult dtup_287_syCLASS_SOURCE_MSEND*/ - /*_._VALTUP___V381*/ - meltfptr[380] = (melt_ptr_t) &meltcdat->dtup_287_syCLASS_SOURCE_MSEND; + /*_._VALTUP___V381*/ meltfptr[380] = (melt_ptr_t) &meltcdat->dtup_287_syCLASS_SOURCE_MSEND; meltcdat->dtup_287_syCLASS_SOURCE_MSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_287_syCLASS_SOURCE_MSEND.nbval = 5; /*inimult dtup_288_syCLASS_SOURCE_MSEND*/ - /*_._VALTUP___V386*/ - meltfptr[385] = (melt_ptr_t) &meltcdat->dtup_288_syCLASS_SOURCE_MSEND; + /*_._VALTUP___V386*/ meltfptr[385] = (melt_ptr_t) &meltcdat->dtup_288_syCLASS_SOURCE_MSEND; meltcdat->dtup_288_syCLASS_SOURCE_MSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_288_syCLASS_SOURCE_MSEND.nbval = 5; /*iniobj dsym_289__MSEND_SELSYMB*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V387*/ meltfptr[386]) + /*uniqueobj*/ if (!/*_._VALDATA___V387*/ meltfptr[386]) /*_._VALDATA___V387*/ meltfptr[386] = (melt_ptr_t )&meltcdat->dsym_289__MSEND_SELSYMB; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_289__MSEND_SELSYMB", 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__MSEND_SELSYMB", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14058,19 +12719,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_290__MSEND_SELSYMB*/ - /*_._VALSTR___V388*/ - meltfptr[387] = (melt_ptr_t) &meltcdat->dstr_290__MSEND_SELSYMB; + /*_._VALSTR___V388*/ meltfptr[387] = (melt_ptr_t) &meltcdat->dstr_290__MSEND_SELSYMB; meltcdat->dstr_290__MSEND_SELSYMB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_290__MSEND_SELSYMB.val, "MSEND_SELSYMB", sizeof (meltcdat->dstr_290__MSEND_SELSYMB.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_290__MSEND_SELSYMB.val, "MSEND_SELSYMB", sizeof (meltcdat->dstr_290__MSEND_SELSYMB.val)-1); meltcdat->dstr_290__MSEND_SELSYMB.val[13] = (char)0 ; meltcdat->dstr_290__MSEND_SELSYMB.slen = 13 ; /*^iniobj*/ /*iniobj dobj_291__MSEND_SELSYMB*/ - /*_._VALDATA___V382*/ - meltfptr[381] = (melt_ptr_t )&meltcdat->dobj_291__MSEND_SELSYMB; + /*_._VALDATA___V382*/ meltfptr[381] = (melt_ptr_t )&meltcdat->dobj_291__MSEND_SELSYMB; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_291__MSEND_SELSYMB", 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_291__MSEND_SELSYMB", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_291__MSEND_SELSYMB.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -14080,18 +12738,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_292__MSEND_SELSYMB*/ - /*_._VALSTR___V383*/ - meltfptr[382] = (melt_ptr_t) &meltcdat->dstr_292__MSEND_SELSYMB; + /*_._VALSTR___V383*/ meltfptr[382] = (melt_ptr_t) &meltcdat->dstr_292__MSEND_SELSYMB; meltcdat->dstr_292__MSEND_SELSYMB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_292__MSEND_SELSYMB.val, "MSEND_SELSYMB", sizeof (meltcdat->dstr_292__MSEND_SELSYMB.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_292__MSEND_SELSYMB.val, "MSEND_SELSYMB", sizeof (meltcdat->dstr_292__MSEND_SELSYMB.val)-1); meltcdat->dstr_292__MSEND_SELSYMB.val[13] = (char)0 ; meltcdat->dstr_292__MSEND_SELSYMB.slen = 13 ; /*iniobj dsym_293__MSEND_RECV*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V389*/ meltfptr[388]) + /*uniqueobj*/ if (!/*_._VALDATA___V389*/ meltfptr[388]) /*_._VALDATA___V389*/ meltfptr[388] = (melt_ptr_t )&meltcdat->dsym_293__MSEND_RECV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_293__MSEND_RECV", 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_293__MSEND_RECV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14101,19 +12756,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_294__MSEND_RECV*/ - /*_._VALSTR___V390*/ - meltfptr[389] = (melt_ptr_t) &meltcdat->dstr_294__MSEND_RECV; + /*_._VALSTR___V390*/ meltfptr[389] = (melt_ptr_t) &meltcdat->dstr_294__MSEND_RECV; meltcdat->dstr_294__MSEND_RECV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_294__MSEND_RECV.val, "MSEND_RECV", sizeof (meltcdat->dstr_294__MSEND_RECV.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_294__MSEND_RECV.val, "MSEND_RECV", sizeof (meltcdat->dstr_294__MSEND_RECV.val)-1); meltcdat->dstr_294__MSEND_RECV.val[10] = (char)0 ; meltcdat->dstr_294__MSEND_RECV.slen = 10 ; /*^iniobj*/ /*iniobj dobj_295__MSEND_RECV*/ - /*_._VALDATA___V384*/ - meltfptr[383] = (melt_ptr_t )&meltcdat->dobj_295__MSEND_RECV; + /*_._VALDATA___V384*/ meltfptr[383] = (melt_ptr_t )&meltcdat->dobj_295__MSEND_RECV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_295__MSEND_RECV", 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_295__MSEND_RECV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_295__MSEND_RECV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -14123,18 +12775,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_296__MSEND_RECV*/ - /*_._VALSTR___V385*/ - meltfptr[384] = (melt_ptr_t) &meltcdat->dstr_296__MSEND_RECV; + /*_._VALSTR___V385*/ meltfptr[384] = (melt_ptr_t) &meltcdat->dstr_296__MSEND_RECV; meltcdat->dstr_296__MSEND_RECV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_296__MSEND_RECV.val, "MSEND_RECV", sizeof (meltcdat->dstr_296__MSEND_RECV.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_296__MSEND_RECV.val, "MSEND_RECV", sizeof (meltcdat->dstr_296__MSEND_RECV.val)-1); meltcdat->dstr_296__MSEND_RECV.val[10] = (char)0 ; meltcdat->dstr_296__MSEND_RECV.slen = 10 ; /*iniobj dsym_297__CLASS_SOURCE_PRIMITIVE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V391*/ meltfptr[390]) + /*uniqueobj*/ if (!/*_._VALDATA___V391*/ meltfptr[390]) /*_._VALDATA___V391*/ meltfptr[390] = (melt_ptr_t )&meltcdat->dsym_297__CLASS_SOURCE_PRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_297__CLASS_SOURCE_PRIMITIVE", 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_297__CLASS_SOURCE_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14144,19 +12793,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_298__CLASS_SOURCE_PRIMITIVE*/ - /*_._VALSTR___V392*/ - meltfptr[391] = (melt_ptr_t) &meltcdat->dstr_298__CLASS_SOURCE_PRIMITIVE; + /*_._VALSTR___V392*/ meltfptr[391] = (melt_ptr_t) &meltcdat->dstr_298__CLASS_SOURCE_PRIMITIVE; meltcdat->dstr_298__CLASS_SOURCE_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_298__CLASS_SOURCE_PRIMITIVE.val, "CLASS_SOURCE_PRIMITIVE", sizeof (meltcdat->dstr_298__CLASS_SOURCE_PRIMITIVE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_298__CLASS_SOURCE_PRIMITIVE.val, "CLASS_SOURCE_PRIMITIVE", sizeof (meltcdat->dstr_298__CLASS_SOURCE_PRIMITIVE.val)-1); meltcdat->dstr_298__CLASS_SOURCE_PRIMITIVE.val[22] = (char)0 ; meltcdat->dstr_298__CLASS_SOURCE_PRIMITIVE.slen = 22 ; MELT_LOCATION("warmelt-macro.melt:480:/ iniobj"); /*iniobj dobj_299__CLASS_SOURCE_PRIMITIVE*/ - /*_._VALDATA___V393*/ - meltfptr[392] = (melt_ptr_t )&meltcdat->dobj_299__CLASS_SOURCE_PRIMITIVE; + /*_._VALDATA___V393*/ meltfptr[392] = (melt_ptr_t )&meltcdat->dobj_299__CLASS_SOURCE_PRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_299__CLASS_SOURCE_PRIMITIVE", 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_299__CLASS_SOURCE_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_299__CLASS_SOURCE_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -14166,28 +12812,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_300__CLASS_SOURCE_PRIMITIVE*/ - /*_._VALSTR___V394*/ - meltfptr[393] = (melt_ptr_t) &meltcdat->dstr_300__CLASS_SOURCE_PRIMITIVE; + /*_._VALSTR___V394*/ meltfptr[393] = (melt_ptr_t) &meltcdat->dstr_300__CLASS_SOURCE_PRIMITIVE; meltcdat->dstr_300__CLASS_SOURCE_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_300__CLASS_SOURCE_PRIMITIVE.val, "CLASS_SOURCE_PRIMITIVE", sizeof (meltcdat->dstr_300__CLASS_SOURCE_PRIMITIVE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_300__CLASS_SOURCE_PRIMITIVE.val, "CLASS_SOURCE_PRIMITIVE", sizeof (meltcdat->dstr_300__CLASS_SOURCE_PRIMITIVE.val)-1); meltcdat->dstr_300__CLASS_SOURCE_PRIMITIVE.val[22] = (char)0 ; meltcdat->dstr_300__CLASS_SOURCE_PRIMITIVE.slen = 22 ; /*inimult dtup_301_syCLASS_SOURCE_PRIMITIVE*/ - /*_._VALTUP___V395*/ - meltfptr[394] = (melt_ptr_t) &meltcdat->dtup_301_syCLASS_SOURCE_PRIMITIVE; + /*_._VALTUP___V395*/ meltfptr[394] = (melt_ptr_t) &meltcdat->dtup_301_syCLASS_SOURCE_PRIMITIVE; meltcdat->dtup_301_syCLASS_SOURCE_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_301_syCLASS_SOURCE_PRIMITIVE.nbval = 5; /*inimult dtup_302_syCLASS_SOURCE_PRIMITIVE*/ - /*_._VALTUP___V398*/ - meltfptr[397] = (melt_ptr_t) &meltcdat->dtup_302_syCLASS_SOURCE_PRIMITIVE; + /*_._VALTUP___V398*/ meltfptr[397] = (melt_ptr_t) &meltcdat->dtup_302_syCLASS_SOURCE_PRIMITIVE; meltcdat->dtup_302_syCLASS_SOURCE_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_302_syCLASS_SOURCE_PRIMITIVE.nbval = 4; /*iniobj dsym_303__SPRIM_OPER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V399*/ meltfptr[398]) + /*uniqueobj*/ if (!/*_._VALDATA___V399*/ meltfptr[398]) /*_._VALDATA___V399*/ meltfptr[398] = (melt_ptr_t )&meltcdat->dsym_303__SPRIM_OPER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_303__SPRIM_OPER", 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_303__SPRIM_OPER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14197,19 +12838,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_304__SPRIM_OPER*/ - /*_._VALSTR___V400*/ - meltfptr[399] = (melt_ptr_t) &meltcdat->dstr_304__SPRIM_OPER; + /*_._VALSTR___V400*/ meltfptr[399] = (melt_ptr_t) &meltcdat->dstr_304__SPRIM_OPER; meltcdat->dstr_304__SPRIM_OPER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_304__SPRIM_OPER.val, "SPRIM_OPER", sizeof (meltcdat->dstr_304__SPRIM_OPER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_304__SPRIM_OPER.val, "SPRIM_OPER", sizeof (meltcdat->dstr_304__SPRIM_OPER.val)-1); meltcdat->dstr_304__SPRIM_OPER.val[10] = (char)0 ; meltcdat->dstr_304__SPRIM_OPER.slen = 10 ; /*^iniobj*/ /*iniobj dobj_305__SPRIM_OPER*/ - /*_._VALDATA___V396*/ - meltfptr[395] = (melt_ptr_t )&meltcdat->dobj_305__SPRIM_OPER; + /*_._VALDATA___V396*/ meltfptr[395] = (melt_ptr_t )&meltcdat->dobj_305__SPRIM_OPER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_305__SPRIM_OPER", 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_305__SPRIM_OPER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_305__SPRIM_OPER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -14219,18 +12857,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_306__SPRIM_OPER*/ - /*_._VALSTR___V397*/ - meltfptr[396] = (melt_ptr_t) &meltcdat->dstr_306__SPRIM_OPER; + /*_._VALSTR___V397*/ meltfptr[396] = (melt_ptr_t) &meltcdat->dstr_306__SPRIM_OPER; meltcdat->dstr_306__SPRIM_OPER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_306__SPRIM_OPER.val, "SPRIM_OPER", sizeof (meltcdat->dstr_306__SPRIM_OPER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_306__SPRIM_OPER.val, "SPRIM_OPER", sizeof (meltcdat->dstr_306__SPRIM_OPER.val)-1); meltcdat->dstr_306__SPRIM_OPER.val[10] = (char)0 ; meltcdat->dstr_306__SPRIM_OPER.slen = 10 ; /*iniobj dsym_307__CLASS_SOURCE_HOOK_CALL*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V401*/ meltfptr[400]) + /*uniqueobj*/ if (!/*_._VALDATA___V401*/ meltfptr[400]) /*_._VALDATA___V401*/ meltfptr[400] = (melt_ptr_t )&meltcdat->dsym_307__CLASS_SOURCE_HOOK_CALL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_307__CLASS_SOURCE_HOOK_CALL", 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_307__CLASS_SOURCE_HOOK_CALL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14240,19 +12875,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_308__CLASS_SOURCE_HOOK_CALL*/ - /*_._VALSTR___V402*/ - meltfptr[401] = (melt_ptr_t) &meltcdat->dstr_308__CLASS_SOURCE_HOOK_CALL; + /*_._VALSTR___V402*/ meltfptr[401] = (melt_ptr_t) &meltcdat->dstr_308__CLASS_SOURCE_HOOK_CALL; meltcdat->dstr_308__CLASS_SOURCE_HOOK_CALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_308__CLASS_SOURCE_HOOK_CALL.val, "CLASS_SOURCE_HOOK_CALL", sizeof (meltcdat->dstr_308__CLASS_SOURCE_HOOK_CALL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_308__CLASS_SOURCE_HOOK_CALL.val, "CLASS_SOURCE_HOOK_CALL", sizeof (meltcdat->dstr_308__CLASS_SOURCE_HOOK_CALL.val)-1); meltcdat->dstr_308__CLASS_SOURCE_HOOK_CALL.val[22] = (char)0 ; meltcdat->dstr_308__CLASS_SOURCE_HOOK_CALL.slen = 22 ; MELT_LOCATION("warmelt-macro.melt:488:/ iniobj"); /*iniobj dobj_309__CLASS_SOURCE_HOOK_CALL*/ - /*_._VALDATA___V403*/ - meltfptr[402] = (melt_ptr_t )&meltcdat->dobj_309__CLASS_SOURCE_HOOK_CALL; + /*_._VALDATA___V403*/ meltfptr[402] = (melt_ptr_t )&meltcdat->dobj_309__CLASS_SOURCE_HOOK_CALL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_309__CLASS_SOURCE_HOOK_CALL", 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_309__CLASS_SOURCE_HOOK_CALL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_309__CLASS_SOURCE_HOOK_CALL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -14262,28 +12894,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_310__CLASS_SOURCE_HOOK_CALL*/ - /*_._VALSTR___V404*/ - meltfptr[403] = (melt_ptr_t) &meltcdat->dstr_310__CLASS_SOURCE_HOOK_CALL; + /*_._VALSTR___V404*/ meltfptr[403] = (melt_ptr_t) &meltcdat->dstr_310__CLASS_SOURCE_HOOK_CALL; meltcdat->dstr_310__CLASS_SOURCE_HOOK_CALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_310__CLASS_SOURCE_HOOK_CALL.val, "CLASS_SOURCE_HOOK_CALL", sizeof (meltcdat->dstr_310__CLASS_SOURCE_HOOK_CALL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_310__CLASS_SOURCE_HOOK_CALL.val, "CLASS_SOURCE_HOOK_CALL", sizeof (meltcdat->dstr_310__CLASS_SOURCE_HOOK_CALL.val)-1); meltcdat->dstr_310__CLASS_SOURCE_HOOK_CALL.val[22] = (char)0 ; meltcdat->dstr_310__CLASS_SOURCE_HOOK_CALL.slen = 22 ; /*inimult dtup_311_syCLASS_SOURCE_HOOK_CALL*/ - /*_._VALTUP___V405*/ - meltfptr[404] = (melt_ptr_t) &meltcdat->dtup_311_syCLASS_SOURCE_HOOK_CALL; + /*_._VALTUP___V405*/ meltfptr[404] = (melt_ptr_t) &meltcdat->dtup_311_syCLASS_SOURCE_HOOK_CALL; meltcdat->dtup_311_syCLASS_SOURCE_HOOK_CALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_311_syCLASS_SOURCE_HOOK_CALL.nbval = 5; /*inimult dtup_312_syCLASS_SOURCE_HOOK_CALL*/ - /*_._VALTUP___V408*/ - meltfptr[407] = (melt_ptr_t) &meltcdat->dtup_312_syCLASS_SOURCE_HOOK_CALL; + /*_._VALTUP___V408*/ meltfptr[407] = (melt_ptr_t) &meltcdat->dtup_312_syCLASS_SOURCE_HOOK_CALL; meltcdat->dtup_312_syCLASS_SOURCE_HOOK_CALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_312_syCLASS_SOURCE_HOOK_CALL.nbval = 4; /*iniobj dsym_313__SHOOK_CALLED*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V409*/ meltfptr[408]) + /*uniqueobj*/ if (!/*_._VALDATA___V409*/ meltfptr[408]) /*_._VALDATA___V409*/ meltfptr[408] = (melt_ptr_t )&meltcdat->dsym_313__SHOOK_CALLED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_313__SHOOK_CALLED", 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_313__SHOOK_CALLED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14293,19 +12920,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_314__SHOOK_CALLED*/ - /*_._VALSTR___V410*/ - meltfptr[409] = (melt_ptr_t) &meltcdat->dstr_314__SHOOK_CALLED; + /*_._VALSTR___V410*/ meltfptr[409] = (melt_ptr_t) &meltcdat->dstr_314__SHOOK_CALLED; meltcdat->dstr_314__SHOOK_CALLED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_314__SHOOK_CALLED.val, "SHOOK_CALLED", sizeof (meltcdat->dstr_314__SHOOK_CALLED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_314__SHOOK_CALLED.val, "SHOOK_CALLED", sizeof (meltcdat->dstr_314__SHOOK_CALLED.val)-1); meltcdat->dstr_314__SHOOK_CALLED.val[12] = (char)0 ; meltcdat->dstr_314__SHOOK_CALLED.slen = 12 ; /*^iniobj*/ /*iniobj dobj_315__SHOOK_CALLED*/ - /*_._VALDATA___V406*/ - meltfptr[405] = (melt_ptr_t )&meltcdat->dobj_315__SHOOK_CALLED; + /*_._VALDATA___V406*/ meltfptr[405] = (melt_ptr_t )&meltcdat->dobj_315__SHOOK_CALLED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_315__SHOOK_CALLED", 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_315__SHOOK_CALLED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_315__SHOOK_CALLED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -14315,18 +12939,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_316__SHOOK_CALLED*/ - /*_._VALSTR___V407*/ - meltfptr[406] = (melt_ptr_t) &meltcdat->dstr_316__SHOOK_CALLED; + /*_._VALSTR___V407*/ meltfptr[406] = (melt_ptr_t) &meltcdat->dstr_316__SHOOK_CALLED; meltcdat->dstr_316__SHOOK_CALLED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_316__SHOOK_CALLED.val, "SHOOK_CALLED", sizeof (meltcdat->dstr_316__SHOOK_CALLED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_316__SHOOK_CALLED.val, "SHOOK_CALLED", sizeof (meltcdat->dstr_316__SHOOK_CALLED.val)-1); meltcdat->dstr_316__SHOOK_CALLED.val[12] = (char)0 ; meltcdat->dstr_316__SHOOK_CALLED.slen = 12 ; /*iniobj dsym_317__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V411*/ meltfptr[410]) + /*uniqueobj*/ if (!/*_._VALDATA___V411*/ meltfptr[410]) /*_._VALDATA___V411*/ meltfptr[410] = (melt_ptr_t )&meltcdat->dsym_317__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_317__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", 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_317__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14336,19 +12957,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_318__CLASS_SOURCE_ARITHMETIC_*/ - /*_._VALSTR___V412*/ - meltfptr[411] = (melt_ptr_t) &meltcdat->dstr_318__CLASS_SOURCE_ARITHMETIC_; + /*_._VALSTR___V412*/ meltfptr[411] = (melt_ptr_t) &meltcdat->dstr_318__CLASS_SOURCE_ARITHMETIC_; meltcdat->dstr_318__CLASS_SOURCE_ARITHMETIC_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_318__CLASS_SOURCE_ARITHMETIC_.val, "CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", sizeof (meltcdat->dstr_318__CLASS_SOURCE_ARITHMETIC_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_318__CLASS_SOURCE_ARITHMETIC_.val, "CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", sizeof (meltcdat->dstr_318__CLASS_SOURCE_ARITHMETIC_.val)-1); meltcdat->dstr_318__CLASS_SOURCE_ARITHMETIC_.val[42] = (char)0 ; meltcdat->dstr_318__CLASS_SOURCE_ARITHMETIC_.slen = 42 ; MELT_LOCATION("warmelt-macro.melt:498:/ iniobj"); /*iniobj dobj_319__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION*/ - /*_._VALDATA___V413*/ - meltfptr[412] = (melt_ptr_t )&meltcdat->dobj_319__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; + /*_._VALDATA___V413*/ meltfptr[412] = (melt_ptr_t )&meltcdat->dobj_319__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_319__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", 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_319__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_319__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -14358,28 +12976,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_320__CLASS_SOURCE_ARITHMETIC_*/ - /*_._VALSTR___V414*/ - meltfptr[413] = (melt_ptr_t) &meltcdat->dstr_320__CLASS_SOURCE_ARITHMETIC_; + /*_._VALSTR___V414*/ meltfptr[413] = (melt_ptr_t) &meltcdat->dstr_320__CLASS_SOURCE_ARITHMETIC_; meltcdat->dstr_320__CLASS_SOURCE_ARITHMETIC_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_320__CLASS_SOURCE_ARITHMETIC_.val, "CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", sizeof (meltcdat->dstr_320__CLASS_SOURCE_ARITHMETIC_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_320__CLASS_SOURCE_ARITHMETIC_.val, "CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", sizeof (meltcdat->dstr_320__CLASS_SOURCE_ARITHMETIC_.val)-1); meltcdat->dstr_320__CLASS_SOURCE_ARITHMETIC_.val[42] = (char)0 ; meltcdat->dstr_320__CLASS_SOURCE_ARITHMETIC_.slen = 42 ; /*inimult dtup_321_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION*/ - /*_._VALTUP___V415*/ - meltfptr[414] = (melt_ptr_t) &meltcdat->dtup_321_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; + /*_._VALTUP___V415*/ meltfptr[414] = (melt_ptr_t) &meltcdat->dtup_321_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; meltcdat->dtup_321_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_321_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.nbval = 5; /*inimult dtup_322_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION*/ - /*_._VALTUP___V420*/ - meltfptr[419] = (melt_ptr_t) &meltcdat->dtup_322_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; + /*_._VALTUP___V420*/ meltfptr[419] = (melt_ptr_t) &meltcdat->dtup_322_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; meltcdat->dtup_322_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_322_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.nbval = 5; /*iniobj dsym_323__SARITHVAR_NEUTRAL*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V421*/ meltfptr[420]) + /*uniqueobj*/ if (!/*_._VALDATA___V421*/ meltfptr[420]) /*_._VALDATA___V421*/ meltfptr[420] = (melt_ptr_t )&meltcdat->dsym_323__SARITHVAR_NEUTRAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_323__SARITHVAR_NEUTRAL", 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__SARITHVAR_NEUTRAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14389,19 +13002,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_324__SARITHVAR_NEUTRAL*/ - /*_._VALSTR___V422*/ - meltfptr[421] = (melt_ptr_t) &meltcdat->dstr_324__SARITHVAR_NEUTRAL; + /*_._VALSTR___V422*/ meltfptr[421] = (melt_ptr_t) &meltcdat->dstr_324__SARITHVAR_NEUTRAL; meltcdat->dstr_324__SARITHVAR_NEUTRAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_324__SARITHVAR_NEUTRAL.val, "SARITHVAR_NEUTRAL", sizeof (meltcdat->dstr_324__SARITHVAR_NEUTRAL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_324__SARITHVAR_NEUTRAL.val, "SARITHVAR_NEUTRAL", sizeof (meltcdat->dstr_324__SARITHVAR_NEUTRAL.val)-1); meltcdat->dstr_324__SARITHVAR_NEUTRAL.val[17] = (char)0 ; meltcdat->dstr_324__SARITHVAR_NEUTRAL.slen = 17 ; /*^iniobj*/ /*iniobj dobj_325__SARITHVAR_NEUTRAL*/ - /*_._VALDATA___V416*/ - meltfptr[415] = (melt_ptr_t )&meltcdat->dobj_325__SARITHVAR_NEUTRAL; + /*_._VALDATA___V416*/ meltfptr[415] = (melt_ptr_t )&meltcdat->dobj_325__SARITHVAR_NEUTRAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_325__SARITHVAR_NEUTRAL", 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_325__SARITHVAR_NEUTRAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_325__SARITHVAR_NEUTRAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -14411,18 +13021,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_326__SARITHVAR_NEUTRAL*/ - /*_._VALSTR___V417*/ - meltfptr[416] = (melt_ptr_t) &meltcdat->dstr_326__SARITHVAR_NEUTRAL; + /*_._VALSTR___V417*/ meltfptr[416] = (melt_ptr_t) &meltcdat->dstr_326__SARITHVAR_NEUTRAL; meltcdat->dstr_326__SARITHVAR_NEUTRAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_326__SARITHVAR_NEUTRAL.val, "SARITHVAR_NEUTRAL", sizeof (meltcdat->dstr_326__SARITHVAR_NEUTRAL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_326__SARITHVAR_NEUTRAL.val, "SARITHVAR_NEUTRAL", sizeof (meltcdat->dstr_326__SARITHVAR_NEUTRAL.val)-1); meltcdat->dstr_326__SARITHVAR_NEUTRAL.val[17] = (char)0 ; meltcdat->dstr_326__SARITHVAR_NEUTRAL.slen = 17 ; /*iniobj dsym_327__SARITHVAR_PRIMITIVE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V423*/ meltfptr[422]) + /*uniqueobj*/ if (!/*_._VALDATA___V423*/ meltfptr[422]) /*_._VALDATA___V423*/ meltfptr[422] = (melt_ptr_t )&meltcdat->dsym_327__SARITHVAR_PRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_327__SARITHVAR_PRIMITIVE", 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_327__SARITHVAR_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14432,19 +13039,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_328__SARITHVAR_PRIMITIVE*/ - /*_._VALSTR___V424*/ - meltfptr[423] = (melt_ptr_t) &meltcdat->dstr_328__SARITHVAR_PRIMITIVE; + /*_._VALSTR___V424*/ meltfptr[423] = (melt_ptr_t) &meltcdat->dstr_328__SARITHVAR_PRIMITIVE; meltcdat->dstr_328__SARITHVAR_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_328__SARITHVAR_PRIMITIVE.val, "SARITHVAR_PRIMITIVE", sizeof (meltcdat->dstr_328__SARITHVAR_PRIMITIVE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_328__SARITHVAR_PRIMITIVE.val, "SARITHVAR_PRIMITIVE", sizeof (meltcdat->dstr_328__SARITHVAR_PRIMITIVE.val)-1); meltcdat->dstr_328__SARITHVAR_PRIMITIVE.val[19] = (char)0 ; meltcdat->dstr_328__SARITHVAR_PRIMITIVE.slen = 19 ; /*^iniobj*/ /*iniobj dobj_329__SARITHVAR_PRIMITIVE*/ - /*_._VALDATA___V418*/ - meltfptr[417] = (melt_ptr_t )&meltcdat->dobj_329__SARITHVAR_PRIMITIVE; + /*_._VALDATA___V418*/ meltfptr[417] = (melt_ptr_t )&meltcdat->dobj_329__SARITHVAR_PRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_329__SARITHVAR_PRIMITIVE", 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_329__SARITHVAR_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_329__SARITHVAR_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -14454,18 +13058,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_330__SARITHVAR_PRIMITIVE*/ - /*_._VALSTR___V419*/ - meltfptr[418] = (melt_ptr_t) &meltcdat->dstr_330__SARITHVAR_PRIMITIVE; + /*_._VALSTR___V419*/ meltfptr[418] = (melt_ptr_t) &meltcdat->dstr_330__SARITHVAR_PRIMITIVE; meltcdat->dstr_330__SARITHVAR_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_330__SARITHVAR_PRIMITIVE.val, "SARITHVAR_PRIMITIVE", sizeof (meltcdat->dstr_330__SARITHVAR_PRIMITIVE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_330__SARITHVAR_PRIMITIVE.val, "SARITHVAR_PRIMITIVE", sizeof (meltcdat->dstr_330__SARITHVAR_PRIMITIVE.val)-1); meltcdat->dstr_330__SARITHVAR_PRIMITIVE.val[19] = (char)0 ; meltcdat->dstr_330__SARITHVAR_PRIMITIVE.slen = 19 ; /*iniobj dsym_331__CLASS_SOURCE_CITERATION*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V425*/ meltfptr[424]) + /*uniqueobj*/ if (!/*_._VALDATA___V425*/ meltfptr[424]) /*_._VALDATA___V425*/ meltfptr[424] = (melt_ptr_t )&meltcdat->dsym_331__CLASS_SOURCE_CITERATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_331__CLASS_SOURCE_CITERATION", 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_331__CLASS_SOURCE_CITERATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14475,19 +13076,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_332__CLASS_SOURCE_CITERATION*/ - /*_._VALSTR___V426*/ - meltfptr[425] = (melt_ptr_t) &meltcdat->dstr_332__CLASS_SOURCE_CITERATION; + /*_._VALSTR___V426*/ meltfptr[425] = (melt_ptr_t) &meltcdat->dstr_332__CLASS_SOURCE_CITERATION; meltcdat->dstr_332__CLASS_SOURCE_CITERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_332__CLASS_SOURCE_CITERATION.val, "CLASS_SOURCE_CITERATION", sizeof (meltcdat->dstr_332__CLASS_SOURCE_CITERATION.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_332__CLASS_SOURCE_CITERATION.val, "CLASS_SOURCE_CITERATION", sizeof (meltcdat->dstr_332__CLASS_SOURCE_CITERATION.val)-1); meltcdat->dstr_332__CLASS_SOURCE_CITERATION.val[23] = (char)0 ; meltcdat->dstr_332__CLASS_SOURCE_CITERATION.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:507:/ iniobj"); /*iniobj dobj_333__CLASS_SOURCE_CITERATION*/ - /*_._VALDATA___V427*/ - meltfptr[426] = (melt_ptr_t )&meltcdat->dobj_333__CLASS_SOURCE_CITERATION; + /*_._VALDATA___V427*/ meltfptr[426] = (melt_ptr_t )&meltcdat->dobj_333__CLASS_SOURCE_CITERATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_333__CLASS_SOURCE_CITERATION", 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_333__CLASS_SOURCE_CITERATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_333__CLASS_SOURCE_CITERATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -14497,28 +13095,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_334__CLASS_SOURCE_CITERATION*/ - /*_._VALSTR___V428*/ - meltfptr[427] = (melt_ptr_t) &meltcdat->dstr_334__CLASS_SOURCE_CITERATION; + /*_._VALSTR___V428*/ meltfptr[427] = (melt_ptr_t) &meltcdat->dstr_334__CLASS_SOURCE_CITERATION; meltcdat->dstr_334__CLASS_SOURCE_CITERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_334__CLASS_SOURCE_CITERATION.val, "CLASS_SOURCE_CITERATION", sizeof (meltcdat->dstr_334__CLASS_SOURCE_CITERATION.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_334__CLASS_SOURCE_CITERATION.val, "CLASS_SOURCE_CITERATION", sizeof (meltcdat->dstr_334__CLASS_SOURCE_CITERATION.val)-1); meltcdat->dstr_334__CLASS_SOURCE_CITERATION.val[23] = (char)0 ; meltcdat->dstr_334__CLASS_SOURCE_CITERATION.slen = 23 ; /*inimult dtup_335_syCLASS_SOURCE_CITERATION*/ - /*_._VALTUP___V429*/ - meltfptr[428] = (melt_ptr_t) &meltcdat->dtup_335_syCLASS_SOURCE_CITERATION; + /*_._VALTUP___V429*/ meltfptr[428] = (melt_ptr_t) &meltcdat->dtup_335_syCLASS_SOURCE_CITERATION; meltcdat->dtup_335_syCLASS_SOURCE_CITERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_335_syCLASS_SOURCE_CITERATION.nbval = 5; /*inimult dtup_336_syCLASS_SOURCE_CITERATION*/ - /*_._VALTUP___V436*/ - meltfptr[435] = (melt_ptr_t) &meltcdat->dtup_336_syCLASS_SOURCE_CITERATION; + /*_._VALTUP___V436*/ meltfptr[435] = (melt_ptr_t) &meltcdat->dtup_336_syCLASS_SOURCE_CITERATION; meltcdat->dtup_336_syCLASS_SOURCE_CITERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_336_syCLASS_SOURCE_CITERATION.nbval = 6; /*iniobj dsym_337__SCITER_OPER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V437*/ meltfptr[436]) + /*uniqueobj*/ if (!/*_._VALDATA___V437*/ meltfptr[436]) /*_._VALDATA___V437*/ meltfptr[436] = (melt_ptr_t )&meltcdat->dsym_337__SCITER_OPER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_337__SCITER_OPER", 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__SCITER_OPER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14528,19 +13121,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_338__SCITER_OPER*/ - /*_._VALSTR___V438*/ - meltfptr[437] = (melt_ptr_t) &meltcdat->dstr_338__SCITER_OPER; + /*_._VALSTR___V438*/ meltfptr[437] = (melt_ptr_t) &meltcdat->dstr_338__SCITER_OPER; meltcdat->dstr_338__SCITER_OPER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_338__SCITER_OPER.val, "SCITER_OPER", sizeof (meltcdat->dstr_338__SCITER_OPER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_338__SCITER_OPER.val, "SCITER_OPER", sizeof (meltcdat->dstr_338__SCITER_OPER.val)-1); meltcdat->dstr_338__SCITER_OPER.val[11] = (char)0 ; meltcdat->dstr_338__SCITER_OPER.slen = 11 ; /*^iniobj*/ /*iniobj dobj_339__SCITER_OPER*/ - /*_._VALDATA___V430*/ - meltfptr[429] = (melt_ptr_t )&meltcdat->dobj_339__SCITER_OPER; + /*_._VALDATA___V430*/ meltfptr[429] = (melt_ptr_t )&meltcdat->dobj_339__SCITER_OPER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_339__SCITER_OPER", 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_339__SCITER_OPER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_339__SCITER_OPER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -14550,18 +13140,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_340__SCITER_OPER*/ - /*_._VALSTR___V431*/ - meltfptr[430] = (melt_ptr_t) &meltcdat->dstr_340__SCITER_OPER; + /*_._VALSTR___V431*/ meltfptr[430] = (melt_ptr_t) &meltcdat->dstr_340__SCITER_OPER; meltcdat->dstr_340__SCITER_OPER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_340__SCITER_OPER.val, "SCITER_OPER", sizeof (meltcdat->dstr_340__SCITER_OPER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_340__SCITER_OPER.val, "SCITER_OPER", sizeof (meltcdat->dstr_340__SCITER_OPER.val)-1); meltcdat->dstr_340__SCITER_OPER.val[11] = (char)0 ; meltcdat->dstr_340__SCITER_OPER.slen = 11 ; /*iniobj dsym_341__SCITER_VARBIND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V439*/ meltfptr[438]) + /*uniqueobj*/ if (!/*_._VALDATA___V439*/ meltfptr[438]) /*_._VALDATA___V439*/ meltfptr[438] = (melt_ptr_t )&meltcdat->dsym_341__SCITER_VARBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_341__SCITER_VARBIND", 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__SCITER_VARBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14571,19 +13158,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_342__SCITER_VARBIND*/ - /*_._VALSTR___V440*/ - meltfptr[439] = (melt_ptr_t) &meltcdat->dstr_342__SCITER_VARBIND; + /*_._VALSTR___V440*/ meltfptr[439] = (melt_ptr_t) &meltcdat->dstr_342__SCITER_VARBIND; meltcdat->dstr_342__SCITER_VARBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_342__SCITER_VARBIND.val, "SCITER_VARBIND", sizeof (meltcdat->dstr_342__SCITER_VARBIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_342__SCITER_VARBIND.val, "SCITER_VARBIND", sizeof (meltcdat->dstr_342__SCITER_VARBIND.val)-1); meltcdat->dstr_342__SCITER_VARBIND.val[14] = (char)0 ; meltcdat->dstr_342__SCITER_VARBIND.slen = 14 ; /*^iniobj*/ /*iniobj dobj_343__SCITER_VARBIND*/ - /*_._VALDATA___V432*/ - meltfptr[431] = (melt_ptr_t )&meltcdat->dobj_343__SCITER_VARBIND; + /*_._VALDATA___V432*/ meltfptr[431] = (melt_ptr_t )&meltcdat->dobj_343__SCITER_VARBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_343__SCITER_VARBIND", 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_343__SCITER_VARBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_343__SCITER_VARBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -14593,18 +13177,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_344__SCITER_VARBIND*/ - /*_._VALSTR___V433*/ - meltfptr[432] = (melt_ptr_t) &meltcdat->dstr_344__SCITER_VARBIND; + /*_._VALSTR___V433*/ meltfptr[432] = (melt_ptr_t) &meltcdat->dstr_344__SCITER_VARBIND; meltcdat->dstr_344__SCITER_VARBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_344__SCITER_VARBIND.val, "SCITER_VARBIND", sizeof (meltcdat->dstr_344__SCITER_VARBIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_344__SCITER_VARBIND.val, "SCITER_VARBIND", sizeof (meltcdat->dstr_344__SCITER_VARBIND.val)-1); meltcdat->dstr_344__SCITER_VARBIND.val[14] = (char)0 ; meltcdat->dstr_344__SCITER_VARBIND.slen = 14 ; /*iniobj dsym_345__SCITER_BODY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V441*/ meltfptr[440]) + /*uniqueobj*/ if (!/*_._VALDATA___V441*/ meltfptr[440]) /*_._VALDATA___V441*/ meltfptr[440] = (melt_ptr_t )&meltcdat->dsym_345__SCITER_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_345__SCITER_BODY", 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__SCITER_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14614,19 +13195,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_346__SCITER_BODY*/ - /*_._VALSTR___V442*/ - meltfptr[441] = (melt_ptr_t) &meltcdat->dstr_346__SCITER_BODY; + /*_._VALSTR___V442*/ meltfptr[441] = (melt_ptr_t) &meltcdat->dstr_346__SCITER_BODY; meltcdat->dstr_346__SCITER_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_346__SCITER_BODY.val, "SCITER_BODY", sizeof (meltcdat->dstr_346__SCITER_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_346__SCITER_BODY.val, "SCITER_BODY", sizeof (meltcdat->dstr_346__SCITER_BODY.val)-1); meltcdat->dstr_346__SCITER_BODY.val[11] = (char)0 ; meltcdat->dstr_346__SCITER_BODY.slen = 11 ; /*^iniobj*/ /*iniobj dobj_347__SCITER_BODY*/ - /*_._VALDATA___V434*/ - meltfptr[433] = (melt_ptr_t )&meltcdat->dobj_347__SCITER_BODY; + /*_._VALDATA___V434*/ meltfptr[433] = (melt_ptr_t )&meltcdat->dobj_347__SCITER_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_347__SCITER_BODY", 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_347__SCITER_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_347__SCITER_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -14636,18 +13214,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_348__SCITER_BODY*/ - /*_._VALSTR___V435*/ - meltfptr[434] = (melt_ptr_t) &meltcdat->dstr_348__SCITER_BODY; + /*_._VALSTR___V435*/ meltfptr[434] = (melt_ptr_t) &meltcdat->dstr_348__SCITER_BODY; meltcdat->dstr_348__SCITER_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_348__SCITER_BODY.val, "SCITER_BODY", sizeof (meltcdat->dstr_348__SCITER_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_348__SCITER_BODY.val, "SCITER_BODY", sizeof (meltcdat->dstr_348__SCITER_BODY.val)-1); meltcdat->dstr_348__SCITER_BODY.val[11] = (char)0 ; meltcdat->dstr_348__SCITER_BODY.slen = 11 ; /*iniobj dsym_349__CLASS_SOURCE_CMATCHEXPR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V443*/ meltfptr[442]) + /*uniqueobj*/ if (!/*_._VALDATA___V443*/ meltfptr[442]) /*_._VALDATA___V443*/ meltfptr[442] = (melt_ptr_t )&meltcdat->dsym_349__CLASS_SOURCE_CMATCHEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_349__CLASS_SOURCE_CMATCHEXPR", 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__CLASS_SOURCE_CMATCHEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14657,19 +13232,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_350__CLASS_SOURCE_CMATCHEXPR*/ - /*_._VALSTR___V444*/ - meltfptr[443] = (melt_ptr_t) &meltcdat->dstr_350__CLASS_SOURCE_CMATCHEXPR; + /*_._VALSTR___V444*/ meltfptr[443] = (melt_ptr_t) &meltcdat->dstr_350__CLASS_SOURCE_CMATCHEXPR; meltcdat->dstr_350__CLASS_SOURCE_CMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_350__CLASS_SOURCE_CMATCHEXPR.val, "CLASS_SOURCE_CMATCHEXPR", sizeof (meltcdat->dstr_350__CLASS_SOURCE_CMATCHEXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_350__CLASS_SOURCE_CMATCHEXPR.val, "CLASS_SOURCE_CMATCHEXPR", sizeof (meltcdat->dstr_350__CLASS_SOURCE_CMATCHEXPR.val)-1); meltcdat->dstr_350__CLASS_SOURCE_CMATCHEXPR.val[23] = (char)0 ; meltcdat->dstr_350__CLASS_SOURCE_CMATCHEXPR.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:519:/ iniobj"); /*iniobj dobj_351__CLASS_SOURCE_CMATCHEXPR*/ - /*_._VALDATA___V445*/ - meltfptr[444] = (melt_ptr_t )&meltcdat->dobj_351__CLASS_SOURCE_CMATCHEXPR; + /*_._VALDATA___V445*/ meltfptr[444] = (melt_ptr_t )&meltcdat->dobj_351__CLASS_SOURCE_CMATCHEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_351__CLASS_SOURCE_CMATCHEXPR", 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_351__CLASS_SOURCE_CMATCHEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_351__CLASS_SOURCE_CMATCHEXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -14679,28 +13251,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_352__CLASS_SOURCE_CMATCHEXPR*/ - /*_._VALSTR___V446*/ - meltfptr[445] = (melt_ptr_t) &meltcdat->dstr_352__CLASS_SOURCE_CMATCHEXPR; + /*_._VALSTR___V446*/ meltfptr[445] = (melt_ptr_t) &meltcdat->dstr_352__CLASS_SOURCE_CMATCHEXPR; meltcdat->dstr_352__CLASS_SOURCE_CMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_352__CLASS_SOURCE_CMATCHEXPR.val, "CLASS_SOURCE_CMATCHEXPR", sizeof (meltcdat->dstr_352__CLASS_SOURCE_CMATCHEXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_352__CLASS_SOURCE_CMATCHEXPR.val, "CLASS_SOURCE_CMATCHEXPR", sizeof (meltcdat->dstr_352__CLASS_SOURCE_CMATCHEXPR.val)-1); meltcdat->dstr_352__CLASS_SOURCE_CMATCHEXPR.val[23] = (char)0 ; meltcdat->dstr_352__CLASS_SOURCE_CMATCHEXPR.slen = 23 ; /*inimult dtup_353_syCLASS_SOURCE_CMATCHEXPR*/ - /*_._VALTUP___V447*/ - meltfptr[446] = (melt_ptr_t) &meltcdat->dtup_353_syCLASS_SOURCE_CMATCHEXPR; + /*_._VALTUP___V447*/ meltfptr[446] = (melt_ptr_t) &meltcdat->dtup_353_syCLASS_SOURCE_CMATCHEXPR; meltcdat->dtup_353_syCLASS_SOURCE_CMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_353_syCLASS_SOURCE_CMATCHEXPR.nbval = 5; /*inimult dtup_354_syCLASS_SOURCE_CMATCHEXPR*/ - /*_._VALTUP___V450*/ - meltfptr[449] = (melt_ptr_t) &meltcdat->dtup_354_syCLASS_SOURCE_CMATCHEXPR; + /*_._VALTUP___V450*/ meltfptr[449] = (melt_ptr_t) &meltcdat->dtup_354_syCLASS_SOURCE_CMATCHEXPR; meltcdat->dtup_354_syCLASS_SOURCE_CMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_354_syCLASS_SOURCE_CMATCHEXPR.nbval = 4; /*iniobj dsym_355__SCMATX_CMATCHER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V451*/ meltfptr[450]) + /*uniqueobj*/ if (!/*_._VALDATA___V451*/ meltfptr[450]) /*_._VALDATA___V451*/ meltfptr[450] = (melt_ptr_t )&meltcdat->dsym_355__SCMATX_CMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_355__SCMATX_CMATCHER", 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__SCMATX_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14710,19 +13277,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_356__SCMATX_CMATCHER*/ - /*_._VALSTR___V452*/ - meltfptr[451] = (melt_ptr_t) &meltcdat->dstr_356__SCMATX_CMATCHER; + /*_._VALSTR___V452*/ meltfptr[451] = (melt_ptr_t) &meltcdat->dstr_356__SCMATX_CMATCHER; meltcdat->dstr_356__SCMATX_CMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_356__SCMATX_CMATCHER.val, "SCMATX_CMATCHER", sizeof (meltcdat->dstr_356__SCMATX_CMATCHER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_356__SCMATX_CMATCHER.val, "SCMATX_CMATCHER", sizeof (meltcdat->dstr_356__SCMATX_CMATCHER.val)-1); meltcdat->dstr_356__SCMATX_CMATCHER.val[15] = (char)0 ; meltcdat->dstr_356__SCMATX_CMATCHER.slen = 15 ; /*^iniobj*/ /*iniobj dobj_357__SCMATX_CMATCHER*/ - /*_._VALDATA___V448*/ - meltfptr[447] = (melt_ptr_t )&meltcdat->dobj_357__SCMATX_CMATCHER; + /*_._VALDATA___V448*/ meltfptr[447] = (melt_ptr_t )&meltcdat->dobj_357__SCMATX_CMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_357__SCMATX_CMATCHER", 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_357__SCMATX_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_357__SCMATX_CMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -14732,18 +13296,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_358__SCMATX_CMATCHER*/ - /*_._VALSTR___V449*/ - meltfptr[448] = (melt_ptr_t) &meltcdat->dstr_358__SCMATX_CMATCHER; + /*_._VALSTR___V449*/ meltfptr[448] = (melt_ptr_t) &meltcdat->dstr_358__SCMATX_CMATCHER; meltcdat->dstr_358__SCMATX_CMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_358__SCMATX_CMATCHER.val, "SCMATX_CMATCHER", sizeof (meltcdat->dstr_358__SCMATX_CMATCHER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_358__SCMATX_CMATCHER.val, "SCMATX_CMATCHER", sizeof (meltcdat->dstr_358__SCMATX_CMATCHER.val)-1); meltcdat->dstr_358__SCMATX_CMATCHER.val[15] = (char)0 ; meltcdat->dstr_358__SCMATX_CMATCHER.slen = 15 ; /*iniobj dsym_359__CLASS_SOURCE_FUNMATCHEXPR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V453*/ meltfptr[452]) + /*uniqueobj*/ if (!/*_._VALDATA___V453*/ meltfptr[452]) /*_._VALDATA___V453*/ meltfptr[452] = (melt_ptr_t )&meltcdat->dsym_359__CLASS_SOURCE_FUNMATCHEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_359__CLASS_SOURCE_FUNMATCHEXPR", 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_359__CLASS_SOURCE_FUNMATCHEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14753,19 +13314,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_360__CLASS_SOURCE_FUNMATCHEXP*/ - /*_._VALSTR___V454*/ - meltfptr[453] = (melt_ptr_t) &meltcdat->dstr_360__CLASS_SOURCE_FUNMATCHEXP; + /*_._VALSTR___V454*/ meltfptr[453] = (melt_ptr_t) &meltcdat->dstr_360__CLASS_SOURCE_FUNMATCHEXP; meltcdat->dstr_360__CLASS_SOURCE_FUNMATCHEXP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_360__CLASS_SOURCE_FUNMATCHEXP.val, "CLASS_SOURCE_FUNMATCHEXPR", sizeof (meltcdat->dstr_360__CLASS_SOURCE_FUNMATCHEXP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_360__CLASS_SOURCE_FUNMATCHEXP.val, "CLASS_SOURCE_FUNMATCHEXPR", sizeof (meltcdat->dstr_360__CLASS_SOURCE_FUNMATCHEXP.val)-1); meltcdat->dstr_360__CLASS_SOURCE_FUNMATCHEXP.val[25] = (char)0 ; meltcdat->dstr_360__CLASS_SOURCE_FUNMATCHEXP.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:528:/ iniobj"); /*iniobj dobj_361__CLASS_SOURCE_FUNMATCHEXPR*/ - /*_._VALDATA___V455*/ - meltfptr[454] = (melt_ptr_t )&meltcdat->dobj_361__CLASS_SOURCE_FUNMATCHEXPR; + /*_._VALDATA___V455*/ meltfptr[454] = (melt_ptr_t )&meltcdat->dobj_361__CLASS_SOURCE_FUNMATCHEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_361__CLASS_SOURCE_FUNMATCHEXPR", 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_361__CLASS_SOURCE_FUNMATCHEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_361__CLASS_SOURCE_FUNMATCHEXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -14775,28 +13333,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_362__CLASS_SOURCE_FUNMATCHEXP*/ - /*_._VALSTR___V456*/ - meltfptr[455] = (melt_ptr_t) &meltcdat->dstr_362__CLASS_SOURCE_FUNMATCHEXP; + /*_._VALSTR___V456*/ meltfptr[455] = (melt_ptr_t) &meltcdat->dstr_362__CLASS_SOURCE_FUNMATCHEXP; meltcdat->dstr_362__CLASS_SOURCE_FUNMATCHEXP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_362__CLASS_SOURCE_FUNMATCHEXP.val, "CLASS_SOURCE_FUNMATCHEXPR", sizeof (meltcdat->dstr_362__CLASS_SOURCE_FUNMATCHEXP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_362__CLASS_SOURCE_FUNMATCHEXP.val, "CLASS_SOURCE_FUNMATCHEXPR", sizeof (meltcdat->dstr_362__CLASS_SOURCE_FUNMATCHEXP.val)-1); meltcdat->dstr_362__CLASS_SOURCE_FUNMATCHEXP.val[25] = (char)0 ; meltcdat->dstr_362__CLASS_SOURCE_FUNMATCHEXP.slen = 25 ; /*inimult dtup_363_syCLASS_SOURCE_FUNMATCHEXPR*/ - /*_._VALTUP___V457*/ - meltfptr[456] = (melt_ptr_t) &meltcdat->dtup_363_syCLASS_SOURCE_FUNMATCHEXPR; + /*_._VALTUP___V457*/ meltfptr[456] = (melt_ptr_t) &meltcdat->dtup_363_syCLASS_SOURCE_FUNMATCHEXPR; meltcdat->dtup_363_syCLASS_SOURCE_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_363_syCLASS_SOURCE_FUNMATCHEXPR.nbval = 5; /*inimult dtup_364_syCLASS_SOURCE_FUNMATCHEXPR*/ - /*_._VALTUP___V462*/ - meltfptr[461] = (melt_ptr_t) &meltcdat->dtup_364_syCLASS_SOURCE_FUNMATCHEXPR; + /*_._VALTUP___V462*/ meltfptr[461] = (melt_ptr_t) &meltcdat->dtup_364_syCLASS_SOURCE_FUNMATCHEXPR; meltcdat->dtup_364_syCLASS_SOURCE_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_364_syCLASS_SOURCE_FUNMATCHEXPR.nbval = 5; /*iniobj dsym_365__SFMATX_FMATCHER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V463*/ meltfptr[462]) + /*uniqueobj*/ if (!/*_._VALDATA___V463*/ meltfptr[462]) /*_._VALDATA___V463*/ meltfptr[462] = (melt_ptr_t )&meltcdat->dsym_365__SFMATX_FMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_365__SFMATX_FMATCHER", 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_365__SFMATX_FMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14806,19 +13359,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_366__SFMATX_FMATCHER*/ - /*_._VALSTR___V464*/ - meltfptr[463] = (melt_ptr_t) &meltcdat->dstr_366__SFMATX_FMATCHER; + /*_._VALSTR___V464*/ meltfptr[463] = (melt_ptr_t) &meltcdat->dstr_366__SFMATX_FMATCHER; meltcdat->dstr_366__SFMATX_FMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_366__SFMATX_FMATCHER.val, "SFMATX_FMATCHER", sizeof (meltcdat->dstr_366__SFMATX_FMATCHER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_366__SFMATX_FMATCHER.val, "SFMATX_FMATCHER", sizeof (meltcdat->dstr_366__SFMATX_FMATCHER.val)-1); meltcdat->dstr_366__SFMATX_FMATCHER.val[15] = (char)0 ; meltcdat->dstr_366__SFMATX_FMATCHER.slen = 15 ; /*^iniobj*/ /*iniobj dobj_367__SFMATX_FMATCHER*/ - /*_._VALDATA___V458*/ - meltfptr[457] = (melt_ptr_t )&meltcdat->dobj_367__SFMATX_FMATCHER; + /*_._VALDATA___V458*/ meltfptr[457] = (melt_ptr_t )&meltcdat->dobj_367__SFMATX_FMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_367__SFMATX_FMATCHER", 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_367__SFMATX_FMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_367__SFMATX_FMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -14828,18 +13378,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_368__SFMATX_FMATCHER*/ - /*_._VALSTR___V459*/ - meltfptr[458] = (melt_ptr_t) &meltcdat->dstr_368__SFMATX_FMATCHER; + /*_._VALSTR___V459*/ meltfptr[458] = (melt_ptr_t) &meltcdat->dstr_368__SFMATX_FMATCHER; meltcdat->dstr_368__SFMATX_FMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_368__SFMATX_FMATCHER.val, "SFMATX_FMATCHER", sizeof (meltcdat->dstr_368__SFMATX_FMATCHER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_368__SFMATX_FMATCHER.val, "SFMATX_FMATCHER", sizeof (meltcdat->dstr_368__SFMATX_FMATCHER.val)-1); meltcdat->dstr_368__SFMATX_FMATCHER.val[15] = (char)0 ; meltcdat->dstr_368__SFMATX_FMATCHER.slen = 15 ; /*iniobj dsym_369__SFMATX_FMATBIND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V465*/ meltfptr[464]) + /*uniqueobj*/ if (!/*_._VALDATA___V465*/ meltfptr[464]) /*_._VALDATA___V465*/ meltfptr[464] = (melt_ptr_t )&meltcdat->dsym_369__SFMATX_FMATBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_369__SFMATX_FMATBIND", 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_369__SFMATX_FMATBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14849,19 +13396,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_370__SFMATX_FMATBIND*/ - /*_._VALSTR___V466*/ - meltfptr[465] = (melt_ptr_t) &meltcdat->dstr_370__SFMATX_FMATBIND; + /*_._VALSTR___V466*/ meltfptr[465] = (melt_ptr_t) &meltcdat->dstr_370__SFMATX_FMATBIND; meltcdat->dstr_370__SFMATX_FMATBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_370__SFMATX_FMATBIND.val, "SFMATX_FMATBIND", sizeof (meltcdat->dstr_370__SFMATX_FMATBIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_370__SFMATX_FMATBIND.val, "SFMATX_FMATBIND", sizeof (meltcdat->dstr_370__SFMATX_FMATBIND.val)-1); meltcdat->dstr_370__SFMATX_FMATBIND.val[15] = (char)0 ; meltcdat->dstr_370__SFMATX_FMATBIND.slen = 15 ; /*^iniobj*/ /*iniobj dobj_371__SFMATX_FMATBIND*/ - /*_._VALDATA___V460*/ - meltfptr[459] = (melt_ptr_t )&meltcdat->dobj_371__SFMATX_FMATBIND; + /*_._VALDATA___V460*/ meltfptr[459] = (melt_ptr_t )&meltcdat->dobj_371__SFMATX_FMATBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_371__SFMATX_FMATBIND", 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_371__SFMATX_FMATBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_371__SFMATX_FMATBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -14871,18 +13415,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_372__SFMATX_FMATBIND*/ - /*_._VALSTR___V461*/ - meltfptr[460] = (melt_ptr_t) &meltcdat->dstr_372__SFMATX_FMATBIND; + /*_._VALSTR___V461*/ meltfptr[460] = (melt_ptr_t) &meltcdat->dstr_372__SFMATX_FMATBIND; meltcdat->dstr_372__SFMATX_FMATBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_372__SFMATX_FMATBIND.val, "SFMATX_FMATBIND", sizeof (meltcdat->dstr_372__SFMATX_FMATBIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_372__SFMATX_FMATBIND.val, "SFMATX_FMATBIND", sizeof (meltcdat->dstr_372__SFMATX_FMATBIND.val)-1); meltcdat->dstr_372__SFMATX_FMATBIND.val[15] = (char)0 ; meltcdat->dstr_372__SFMATX_FMATBIND.slen = 15 ; /*iniobj dsym_373__CLASS_SOURCE_TUPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V467*/ meltfptr[466]) + /*uniqueobj*/ if (!/*_._VALDATA___V467*/ meltfptr[466]) /*_._VALDATA___V467*/ meltfptr[466] = (melt_ptr_t )&meltcdat->dsym_373__CLASS_SOURCE_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_373__CLASS_SOURCE_TUPLE", 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__CLASS_SOURCE_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14892,19 +13433,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_374__CLASS_SOURCE_TUPLE*/ - /*_._VALSTR___V468*/ - meltfptr[467] = (melt_ptr_t) &meltcdat->dstr_374__CLASS_SOURCE_TUPLE; + /*_._VALSTR___V468*/ meltfptr[467] = (melt_ptr_t) &meltcdat->dstr_374__CLASS_SOURCE_TUPLE; meltcdat->dstr_374__CLASS_SOURCE_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_374__CLASS_SOURCE_TUPLE.val, "CLASS_SOURCE_TUPLE", sizeof (meltcdat->dstr_374__CLASS_SOURCE_TUPLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_374__CLASS_SOURCE_TUPLE.val, "CLASS_SOURCE_TUPLE", sizeof (meltcdat->dstr_374__CLASS_SOURCE_TUPLE.val)-1); meltcdat->dstr_374__CLASS_SOURCE_TUPLE.val[18] = (char)0 ; meltcdat->dstr_374__CLASS_SOURCE_TUPLE.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:539:/ iniobj"); /*iniobj dobj_375__CLASS_SOURCE_TUPLE*/ - /*_._VALDATA___V469*/ - meltfptr[468] = (melt_ptr_t )&meltcdat->dobj_375__CLASS_SOURCE_TUPLE; + /*_._VALDATA___V469*/ meltfptr[468] = (melt_ptr_t )&meltcdat->dobj_375__CLASS_SOURCE_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_375__CLASS_SOURCE_TUPLE", 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_375__CLASS_SOURCE_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_375__CLASS_SOURCE_TUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -14914,28 +13452,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_376__CLASS_SOURCE_TUPLE*/ - /*_._VALSTR___V470*/ - meltfptr[469] = (melt_ptr_t) &meltcdat->dstr_376__CLASS_SOURCE_TUPLE; + /*_._VALSTR___V470*/ meltfptr[469] = (melt_ptr_t) &meltcdat->dstr_376__CLASS_SOURCE_TUPLE; meltcdat->dstr_376__CLASS_SOURCE_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_376__CLASS_SOURCE_TUPLE.val, "CLASS_SOURCE_TUPLE", sizeof (meltcdat->dstr_376__CLASS_SOURCE_TUPLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_376__CLASS_SOURCE_TUPLE.val, "CLASS_SOURCE_TUPLE", sizeof (meltcdat->dstr_376__CLASS_SOURCE_TUPLE.val)-1); meltcdat->dstr_376__CLASS_SOURCE_TUPLE.val[18] = (char)0 ; meltcdat->dstr_376__CLASS_SOURCE_TUPLE.slen = 18 ; /*inimult dtup_377_syCLASS_SOURCE_TUPLE*/ - /*_._VALTUP___V471*/ - meltfptr[470] = (melt_ptr_t) &meltcdat->dtup_377_syCLASS_SOURCE_TUPLE; + /*_._VALTUP___V471*/ meltfptr[470] = (melt_ptr_t) &meltcdat->dtup_377_syCLASS_SOURCE_TUPLE; meltcdat->dtup_377_syCLASS_SOURCE_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_377_syCLASS_SOURCE_TUPLE.nbval = 5; /*inimult dtup_378_syCLASS_SOURCE_TUPLE*/ - /*_._VALTUP___V472*/ - meltfptr[471] = (melt_ptr_t) &meltcdat->dtup_378_syCLASS_SOURCE_TUPLE; + /*_._VALTUP___V472*/ meltfptr[471] = (melt_ptr_t) &meltcdat->dtup_378_syCLASS_SOURCE_TUPLE; meltcdat->dtup_378_syCLASS_SOURCE_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_378_syCLASS_SOURCE_TUPLE.nbval = 3; /*iniobj dsym_379__CLASS_SOURCE_LIST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V473*/ meltfptr[472]) + /*uniqueobj*/ if (!/*_._VALDATA___V473*/ meltfptr[472]) /*_._VALDATA___V473*/ meltfptr[472] = (melt_ptr_t )&meltcdat->dsym_379__CLASS_SOURCE_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_379__CLASS_SOURCE_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_379__CLASS_SOURCE_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14945,19 +13478,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_380__CLASS_SOURCE_LIST*/ - /*_._VALSTR___V474*/ - meltfptr[473] = (melt_ptr_t) &meltcdat->dstr_380__CLASS_SOURCE_LIST; + /*_._VALSTR___V474*/ meltfptr[473] = (melt_ptr_t) &meltcdat->dstr_380__CLASS_SOURCE_LIST; meltcdat->dstr_380__CLASS_SOURCE_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_380__CLASS_SOURCE_LIST.val, "CLASS_SOURCE_LIST", sizeof (meltcdat->dstr_380__CLASS_SOURCE_LIST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_380__CLASS_SOURCE_LIST.val, "CLASS_SOURCE_LIST", sizeof (meltcdat->dstr_380__CLASS_SOURCE_LIST.val)-1); meltcdat->dstr_380__CLASS_SOURCE_LIST.val[17] = (char)0 ; meltcdat->dstr_380__CLASS_SOURCE_LIST.slen = 17 ; MELT_LOCATION("warmelt-macro.melt:546:/ iniobj"); /*iniobj dobj_381__CLASS_SOURCE_LIST*/ - /*_._VALDATA___V475*/ - meltfptr[474] = (melt_ptr_t )&meltcdat->dobj_381__CLASS_SOURCE_LIST; + /*_._VALDATA___V475*/ meltfptr[474] = (melt_ptr_t )&meltcdat->dobj_381__CLASS_SOURCE_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_381__CLASS_SOURCE_LIST", 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_381__CLASS_SOURCE_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_381__CLASS_SOURCE_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -14967,28 +13497,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_382__CLASS_SOURCE_LIST*/ - /*_._VALSTR___V476*/ - meltfptr[475] = (melt_ptr_t) &meltcdat->dstr_382__CLASS_SOURCE_LIST; + /*_._VALSTR___V476*/ meltfptr[475] = (melt_ptr_t) &meltcdat->dstr_382__CLASS_SOURCE_LIST; meltcdat->dstr_382__CLASS_SOURCE_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_382__CLASS_SOURCE_LIST.val, "CLASS_SOURCE_LIST", sizeof (meltcdat->dstr_382__CLASS_SOURCE_LIST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_382__CLASS_SOURCE_LIST.val, "CLASS_SOURCE_LIST", sizeof (meltcdat->dstr_382__CLASS_SOURCE_LIST.val)-1); meltcdat->dstr_382__CLASS_SOURCE_LIST.val[17] = (char)0 ; meltcdat->dstr_382__CLASS_SOURCE_LIST.slen = 17 ; /*inimult dtup_383_syCLASS_SOURCE_LIST*/ - /*_._VALTUP___V477*/ - meltfptr[476] = (melt_ptr_t) &meltcdat->dtup_383_syCLASS_SOURCE_LIST; + /*_._VALTUP___V477*/ meltfptr[476] = (melt_ptr_t) &meltcdat->dtup_383_syCLASS_SOURCE_LIST; meltcdat->dtup_383_syCLASS_SOURCE_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_383_syCLASS_SOURCE_LIST.nbval = 5; /*inimult dtup_384_syCLASS_SOURCE_LIST*/ - /*_._VALTUP___V478*/ - meltfptr[477] = (melt_ptr_t) &meltcdat->dtup_384_syCLASS_SOURCE_LIST; + /*_._VALTUP___V478*/ meltfptr[477] = (melt_ptr_t) &meltcdat->dtup_384_syCLASS_SOURCE_LIST; meltcdat->dtup_384_syCLASS_SOURCE_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_384_syCLASS_SOURCE_LIST.nbval = 3; /*iniobj dsym_385__CLASS_SOURCE_PROGN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V479*/ meltfptr[478]) + /*uniqueobj*/ if (!/*_._VALDATA___V479*/ meltfptr[478]) /*_._VALDATA___V479*/ meltfptr[478] = (melt_ptr_t )&meltcdat->dsym_385__CLASS_SOURCE_PROGN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_385__CLASS_SOURCE_PROGN", 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_385__CLASS_SOURCE_PROGN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14998,19 +13523,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_386__CLASS_SOURCE_PROGN*/ - /*_._VALSTR___V480*/ - meltfptr[479] = (melt_ptr_t) &meltcdat->dstr_386__CLASS_SOURCE_PROGN; + /*_._VALSTR___V480*/ meltfptr[479] = (melt_ptr_t) &meltcdat->dstr_386__CLASS_SOURCE_PROGN; meltcdat->dstr_386__CLASS_SOURCE_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_386__CLASS_SOURCE_PROGN.val, "CLASS_SOURCE_PROGN", sizeof (meltcdat->dstr_386__CLASS_SOURCE_PROGN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_386__CLASS_SOURCE_PROGN.val, "CLASS_SOURCE_PROGN", sizeof (meltcdat->dstr_386__CLASS_SOURCE_PROGN.val)-1); meltcdat->dstr_386__CLASS_SOURCE_PROGN.val[18] = (char)0 ; meltcdat->dstr_386__CLASS_SOURCE_PROGN.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:553:/ iniobj"); /*iniobj dobj_387__CLASS_SOURCE_PROGN*/ - /*_._VALDATA___V481*/ - meltfptr[480] = (melt_ptr_t )&meltcdat->dobj_387__CLASS_SOURCE_PROGN; + /*_._VALDATA___V481*/ meltfptr[480] = (melt_ptr_t )&meltcdat->dobj_387__CLASS_SOURCE_PROGN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_387__CLASS_SOURCE_PROGN", 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_387__CLASS_SOURCE_PROGN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_387__CLASS_SOURCE_PROGN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -15020,28 +13542,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_388__CLASS_SOURCE_PROGN*/ - /*_._VALSTR___V482*/ - meltfptr[481] = (melt_ptr_t) &meltcdat->dstr_388__CLASS_SOURCE_PROGN; + /*_._VALSTR___V482*/ meltfptr[481] = (melt_ptr_t) &meltcdat->dstr_388__CLASS_SOURCE_PROGN; meltcdat->dstr_388__CLASS_SOURCE_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_388__CLASS_SOURCE_PROGN.val, "CLASS_SOURCE_PROGN", sizeof (meltcdat->dstr_388__CLASS_SOURCE_PROGN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_388__CLASS_SOURCE_PROGN.val, "CLASS_SOURCE_PROGN", sizeof (meltcdat->dstr_388__CLASS_SOURCE_PROGN.val)-1); meltcdat->dstr_388__CLASS_SOURCE_PROGN.val[18] = (char)0 ; meltcdat->dstr_388__CLASS_SOURCE_PROGN.slen = 18 ; /*inimult dtup_389_syCLASS_SOURCE_PROGN*/ - /*_._VALTUP___V483*/ - meltfptr[482] = (melt_ptr_t) &meltcdat->dtup_389_syCLASS_SOURCE_PROGN; + /*_._VALTUP___V483*/ meltfptr[482] = (melt_ptr_t) &meltcdat->dtup_389_syCLASS_SOURCE_PROGN; meltcdat->dtup_389_syCLASS_SOURCE_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_389_syCLASS_SOURCE_PROGN.nbval = 4; /*inimult dtup_390_syCLASS_SOURCE_PROGN*/ - /*_._VALTUP___V486*/ - meltfptr[485] = (melt_ptr_t) &meltcdat->dtup_390_syCLASS_SOURCE_PROGN; + /*_._VALTUP___V486*/ meltfptr[485] = (melt_ptr_t) &meltcdat->dtup_390_syCLASS_SOURCE_PROGN; meltcdat->dtup_390_syCLASS_SOURCE_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_390_syCLASS_SOURCE_PROGN.nbval = 3; /*iniobj dsym_391__SPROGN_BODY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V487*/ meltfptr[486]) + /*uniqueobj*/ if (!/*_._VALDATA___V487*/ meltfptr[486]) /*_._VALDATA___V487*/ meltfptr[486] = (melt_ptr_t )&meltcdat->dsym_391__SPROGN_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_391__SPROGN_BODY", 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_391__SPROGN_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15051,19 +13568,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_392__SPROGN_BODY*/ - /*_._VALSTR___V488*/ - meltfptr[487] = (melt_ptr_t) &meltcdat->dstr_392__SPROGN_BODY; + /*_._VALSTR___V488*/ meltfptr[487] = (melt_ptr_t) &meltcdat->dstr_392__SPROGN_BODY; meltcdat->dstr_392__SPROGN_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_392__SPROGN_BODY.val, "SPROGN_BODY", sizeof (meltcdat->dstr_392__SPROGN_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_392__SPROGN_BODY.val, "SPROGN_BODY", sizeof (meltcdat->dstr_392__SPROGN_BODY.val)-1); meltcdat->dstr_392__SPROGN_BODY.val[11] = (char)0 ; meltcdat->dstr_392__SPROGN_BODY.slen = 11 ; /*^iniobj*/ /*iniobj dobj_393__SPROGN_BODY*/ - /*_._VALDATA___V484*/ - meltfptr[483] = (melt_ptr_t )&meltcdat->dobj_393__SPROGN_BODY; + /*_._VALDATA___V484*/ meltfptr[483] = (melt_ptr_t )&meltcdat->dobj_393__SPROGN_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_393__SPROGN_BODY", 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_393__SPROGN_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_393__SPROGN_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -15073,18 +13587,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_394__SPROGN_BODY*/ - /*_._VALSTR___V485*/ - meltfptr[484] = (melt_ptr_t) &meltcdat->dstr_394__SPROGN_BODY; + /*_._VALSTR___V485*/ meltfptr[484] = (melt_ptr_t) &meltcdat->dstr_394__SPROGN_BODY; meltcdat->dstr_394__SPROGN_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_394__SPROGN_BODY.val, "SPROGN_BODY", sizeof (meltcdat->dstr_394__SPROGN_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_394__SPROGN_BODY.val, "SPROGN_BODY", sizeof (meltcdat->dstr_394__SPROGN_BODY.val)-1); meltcdat->dstr_394__SPROGN_BODY.val[11] = (char)0 ; meltcdat->dstr_394__SPROGN_BODY.slen = 11 ; /*iniobj dsym_395__CLASS_SOURCE_RETURN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V489*/ meltfptr[488]) + /*uniqueobj*/ if (!/*_._VALDATA___V489*/ meltfptr[488]) /*_._VALDATA___V489*/ meltfptr[488] = (melt_ptr_t )&meltcdat->dsym_395__CLASS_SOURCE_RETURN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_395__CLASS_SOURCE_RETURN", 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_395__CLASS_SOURCE_RETURN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15094,19 +13605,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_396__CLASS_SOURCE_RETURN*/ - /*_._VALSTR___V490*/ - meltfptr[489] = (melt_ptr_t) &meltcdat->dstr_396__CLASS_SOURCE_RETURN; + /*_._VALSTR___V490*/ meltfptr[489] = (melt_ptr_t) &meltcdat->dstr_396__CLASS_SOURCE_RETURN; meltcdat->dstr_396__CLASS_SOURCE_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_396__CLASS_SOURCE_RETURN.val, "CLASS_SOURCE_RETURN", sizeof (meltcdat->dstr_396__CLASS_SOURCE_RETURN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_396__CLASS_SOURCE_RETURN.val, "CLASS_SOURCE_RETURN", sizeof (meltcdat->dstr_396__CLASS_SOURCE_RETURN.val)-1); meltcdat->dstr_396__CLASS_SOURCE_RETURN.val[19] = (char)0 ; meltcdat->dstr_396__CLASS_SOURCE_RETURN.slen = 19 ; MELT_LOCATION("warmelt-macro.melt:561:/ iniobj"); /*iniobj dobj_397__CLASS_SOURCE_RETURN*/ - /*_._VALDATA___V491*/ - meltfptr[490] = (melt_ptr_t )&meltcdat->dobj_397__CLASS_SOURCE_RETURN; + /*_._VALDATA___V491*/ meltfptr[490] = (melt_ptr_t )&meltcdat->dobj_397__CLASS_SOURCE_RETURN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_397__CLASS_SOURCE_RETURN", 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_397__CLASS_SOURCE_RETURN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_397__CLASS_SOURCE_RETURN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -15116,28 +13624,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_398__CLASS_SOURCE_RETURN*/ - /*_._VALSTR___V492*/ - meltfptr[491] = (melt_ptr_t) &meltcdat->dstr_398__CLASS_SOURCE_RETURN; + /*_._VALSTR___V492*/ meltfptr[491] = (melt_ptr_t) &meltcdat->dstr_398__CLASS_SOURCE_RETURN; meltcdat->dstr_398__CLASS_SOURCE_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_398__CLASS_SOURCE_RETURN.val, "CLASS_SOURCE_RETURN", sizeof (meltcdat->dstr_398__CLASS_SOURCE_RETURN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_398__CLASS_SOURCE_RETURN.val, "CLASS_SOURCE_RETURN", sizeof (meltcdat->dstr_398__CLASS_SOURCE_RETURN.val)-1); meltcdat->dstr_398__CLASS_SOURCE_RETURN.val[19] = (char)0 ; meltcdat->dstr_398__CLASS_SOURCE_RETURN.slen = 19 ; /*inimult dtup_399_syCLASS_SOURCE_RETURN*/ - /*_._VALTUP___V493*/ - meltfptr[492] = (melt_ptr_t) &meltcdat->dtup_399_syCLASS_SOURCE_RETURN; + /*_._VALTUP___V493*/ meltfptr[492] = (melt_ptr_t) &meltcdat->dtup_399_syCLASS_SOURCE_RETURN; meltcdat->dtup_399_syCLASS_SOURCE_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_399_syCLASS_SOURCE_RETURN.nbval = 5; /*inimult dtup_400_syCLASS_SOURCE_RETURN*/ - /*_._VALTUP___V494*/ - meltfptr[493] = (melt_ptr_t) &meltcdat->dtup_400_syCLASS_SOURCE_RETURN; + /*_._VALTUP___V494*/ meltfptr[493] = (melt_ptr_t) &meltcdat->dtup_400_syCLASS_SOURCE_RETURN; meltcdat->dtup_400_syCLASS_SOURCE_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_400_syCLASS_SOURCE_RETURN.nbval = 3; /*iniobj dsym_401__CLASS_SOURCE_SETQ*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V495*/ meltfptr[494]) + /*uniqueobj*/ if (!/*_._VALDATA___V495*/ meltfptr[494]) /*_._VALDATA___V495*/ meltfptr[494] = (melt_ptr_t )&meltcdat->dsym_401__CLASS_SOURCE_SETQ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_401__CLASS_SOURCE_SETQ", 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_401__CLASS_SOURCE_SETQ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15147,19 +13650,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_402__CLASS_SOURCE_SETQ*/ - /*_._VALSTR___V496*/ - meltfptr[495] = (melt_ptr_t) &meltcdat->dstr_402__CLASS_SOURCE_SETQ; + /*_._VALSTR___V496*/ meltfptr[495] = (melt_ptr_t) &meltcdat->dstr_402__CLASS_SOURCE_SETQ; meltcdat->dstr_402__CLASS_SOURCE_SETQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_402__CLASS_SOURCE_SETQ.val, "CLASS_SOURCE_SETQ", sizeof (meltcdat->dstr_402__CLASS_SOURCE_SETQ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_402__CLASS_SOURCE_SETQ.val, "CLASS_SOURCE_SETQ", sizeof (meltcdat->dstr_402__CLASS_SOURCE_SETQ.val)-1); meltcdat->dstr_402__CLASS_SOURCE_SETQ.val[17] = (char)0 ; meltcdat->dstr_402__CLASS_SOURCE_SETQ.slen = 17 ; MELT_LOCATION("warmelt-macro.melt:568:/ iniobj"); /*iniobj dobj_403__CLASS_SOURCE_SETQ*/ - /*_._VALDATA___V497*/ - meltfptr[496] = (melt_ptr_t )&meltcdat->dobj_403__CLASS_SOURCE_SETQ; + /*_._VALDATA___V497*/ meltfptr[496] = (melt_ptr_t )&meltcdat->dobj_403__CLASS_SOURCE_SETQ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_403__CLASS_SOURCE_SETQ", 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_403__CLASS_SOURCE_SETQ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_403__CLASS_SOURCE_SETQ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -15169,28 +13669,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_404__CLASS_SOURCE_SETQ*/ - /*_._VALSTR___V498*/ - meltfptr[497] = (melt_ptr_t) &meltcdat->dstr_404__CLASS_SOURCE_SETQ; + /*_._VALSTR___V498*/ meltfptr[497] = (melt_ptr_t) &meltcdat->dstr_404__CLASS_SOURCE_SETQ; meltcdat->dstr_404__CLASS_SOURCE_SETQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_404__CLASS_SOURCE_SETQ.val, "CLASS_SOURCE_SETQ", sizeof (meltcdat->dstr_404__CLASS_SOURCE_SETQ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_404__CLASS_SOURCE_SETQ.val, "CLASS_SOURCE_SETQ", sizeof (meltcdat->dstr_404__CLASS_SOURCE_SETQ.val)-1); meltcdat->dstr_404__CLASS_SOURCE_SETQ.val[17] = (char)0 ; meltcdat->dstr_404__CLASS_SOURCE_SETQ.slen = 17 ; /*inimult dtup_405_syCLASS_SOURCE_SETQ*/ - /*_._VALTUP___V499*/ - meltfptr[498] = (melt_ptr_t) &meltcdat->dtup_405_syCLASS_SOURCE_SETQ; + /*_._VALTUP___V499*/ meltfptr[498] = (melt_ptr_t) &meltcdat->dtup_405_syCLASS_SOURCE_SETQ; meltcdat->dtup_405_syCLASS_SOURCE_SETQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_405_syCLASS_SOURCE_SETQ.nbval = 4; /*inimult dtup_406_syCLASS_SOURCE_SETQ*/ - /*_._VALTUP___V504*/ - meltfptr[503] = (melt_ptr_t) &meltcdat->dtup_406_syCLASS_SOURCE_SETQ; + /*_._VALTUP___V504*/ meltfptr[503] = (melt_ptr_t) &meltcdat->dtup_406_syCLASS_SOURCE_SETQ; meltcdat->dtup_406_syCLASS_SOURCE_SETQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_406_syCLASS_SOURCE_SETQ.nbval = 4; /*iniobj dsym_407__SSTQ_VAR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V505*/ meltfptr[504]) + /*uniqueobj*/ if (!/*_._VALDATA___V505*/ meltfptr[504]) /*_._VALDATA___V505*/ meltfptr[504] = (melt_ptr_t )&meltcdat->dsym_407__SSTQ_VAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_407__SSTQ_VAR", 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_407__SSTQ_VAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15200,19 +13695,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_408__SSTQ_VAR*/ - /*_._VALSTR___V506*/ - meltfptr[505] = (melt_ptr_t) &meltcdat->dstr_408__SSTQ_VAR; + /*_._VALSTR___V506*/ meltfptr[505] = (melt_ptr_t) &meltcdat->dstr_408__SSTQ_VAR; meltcdat->dstr_408__SSTQ_VAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_408__SSTQ_VAR.val, "SSTQ_VAR", sizeof (meltcdat->dstr_408__SSTQ_VAR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_408__SSTQ_VAR.val, "SSTQ_VAR", sizeof (meltcdat->dstr_408__SSTQ_VAR.val)-1); meltcdat->dstr_408__SSTQ_VAR.val[8] = (char)0 ; meltcdat->dstr_408__SSTQ_VAR.slen = 8 ; /*^iniobj*/ /*iniobj dobj_409__SSTQ_VAR*/ - /*_._VALDATA___V500*/ - meltfptr[499] = (melt_ptr_t )&meltcdat->dobj_409__SSTQ_VAR; + /*_._VALDATA___V500*/ meltfptr[499] = (melt_ptr_t )&meltcdat->dobj_409__SSTQ_VAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_409__SSTQ_VAR", 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_409__SSTQ_VAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_409__SSTQ_VAR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -15222,18 +13714,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_410__SSTQ_VAR*/ - /*_._VALSTR___V501*/ - meltfptr[500] = (melt_ptr_t) &meltcdat->dstr_410__SSTQ_VAR; + /*_._VALSTR___V501*/ meltfptr[500] = (melt_ptr_t) &meltcdat->dstr_410__SSTQ_VAR; meltcdat->dstr_410__SSTQ_VAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_410__SSTQ_VAR.val, "SSTQ_VAR", sizeof (meltcdat->dstr_410__SSTQ_VAR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_410__SSTQ_VAR.val, "SSTQ_VAR", sizeof (meltcdat->dstr_410__SSTQ_VAR.val)-1); meltcdat->dstr_410__SSTQ_VAR.val[8] = (char)0 ; meltcdat->dstr_410__SSTQ_VAR.slen = 8 ; /*iniobj dsym_411__SSTQ_EXPR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V507*/ meltfptr[506]) + /*uniqueobj*/ if (!/*_._VALDATA___V507*/ meltfptr[506]) /*_._VALDATA___V507*/ meltfptr[506] = (melt_ptr_t )&meltcdat->dsym_411__SSTQ_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_411__SSTQ_EXPR", 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_411__SSTQ_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15243,19 +13732,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_412__SSTQ_EXPR*/ - /*_._VALSTR___V508*/ - meltfptr[507] = (melt_ptr_t) &meltcdat->dstr_412__SSTQ_EXPR; + /*_._VALSTR___V508*/ meltfptr[507] = (melt_ptr_t) &meltcdat->dstr_412__SSTQ_EXPR; meltcdat->dstr_412__SSTQ_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_412__SSTQ_EXPR.val, "SSTQ_EXPR", sizeof (meltcdat->dstr_412__SSTQ_EXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_412__SSTQ_EXPR.val, "SSTQ_EXPR", sizeof (meltcdat->dstr_412__SSTQ_EXPR.val)-1); meltcdat->dstr_412__SSTQ_EXPR.val[9] = (char)0 ; meltcdat->dstr_412__SSTQ_EXPR.slen = 9 ; /*^iniobj*/ /*iniobj dobj_413__SSTQ_EXPR*/ - /*_._VALDATA___V502*/ - meltfptr[501] = (melt_ptr_t )&meltcdat->dobj_413__SSTQ_EXPR; + /*_._VALDATA___V502*/ meltfptr[501] = (melt_ptr_t )&meltcdat->dobj_413__SSTQ_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_413__SSTQ_EXPR", 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_413__SSTQ_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_413__SSTQ_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -15265,18 +13751,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_414__SSTQ_EXPR*/ - /*_._VALSTR___V503*/ - meltfptr[502] = (melt_ptr_t) &meltcdat->dstr_414__SSTQ_EXPR; + /*_._VALSTR___V503*/ meltfptr[502] = (melt_ptr_t) &meltcdat->dstr_414__SSTQ_EXPR; meltcdat->dstr_414__SSTQ_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_414__SSTQ_EXPR.val, "SSTQ_EXPR", sizeof (meltcdat->dstr_414__SSTQ_EXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_414__SSTQ_EXPR.val, "SSTQ_EXPR", sizeof (meltcdat->dstr_414__SSTQ_EXPR.val)-1); meltcdat->dstr_414__SSTQ_EXPR.val[9] = (char)0 ; meltcdat->dstr_414__SSTQ_EXPR.slen = 9 ; /*iniobj dsym_415__CLASS_SOURCE_COMMENT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V509*/ meltfptr[508]) + /*uniqueobj*/ if (!/*_._VALDATA___V509*/ meltfptr[508]) /*_._VALDATA___V509*/ meltfptr[508] = (melt_ptr_t )&meltcdat->dsym_415__CLASS_SOURCE_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_415__CLASS_SOURCE_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_415__CLASS_SOURCE_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15286,19 +13769,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_416__CLASS_SOURCE_COMMENT*/ - /*_._VALSTR___V510*/ - meltfptr[509] = (melt_ptr_t) &meltcdat->dstr_416__CLASS_SOURCE_COMMENT; + /*_._VALSTR___V510*/ meltfptr[509] = (melt_ptr_t) &meltcdat->dstr_416__CLASS_SOURCE_COMMENT; meltcdat->dstr_416__CLASS_SOURCE_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_416__CLASS_SOURCE_COMMENT.val, "CLASS_SOURCE_COMMENT", sizeof (meltcdat->dstr_416__CLASS_SOURCE_COMMENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_416__CLASS_SOURCE_COMMENT.val, "CLASS_SOURCE_COMMENT", sizeof (meltcdat->dstr_416__CLASS_SOURCE_COMMENT.val)-1); meltcdat->dstr_416__CLASS_SOURCE_COMMENT.val[20] = (char)0 ; meltcdat->dstr_416__CLASS_SOURCE_COMMENT.slen = 20 ; MELT_LOCATION("warmelt-macro.melt:577:/ iniobj"); /*iniobj dobj_417__CLASS_SOURCE_COMMENT*/ - /*_._VALDATA___V511*/ - meltfptr[510] = (melt_ptr_t )&meltcdat->dobj_417__CLASS_SOURCE_COMMENT; + /*_._VALDATA___V511*/ meltfptr[510] = (melt_ptr_t )&meltcdat->dobj_417__CLASS_SOURCE_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_417__CLASS_SOURCE_COMMENT", 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_417__CLASS_SOURCE_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_417__CLASS_SOURCE_COMMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -15308,28 +13788,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_418__CLASS_SOURCE_COMMENT*/ - /*_._VALSTR___V512*/ - meltfptr[511] = (melt_ptr_t) &meltcdat->dstr_418__CLASS_SOURCE_COMMENT; + /*_._VALSTR___V512*/ meltfptr[511] = (melt_ptr_t) &meltcdat->dstr_418__CLASS_SOURCE_COMMENT; meltcdat->dstr_418__CLASS_SOURCE_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_418__CLASS_SOURCE_COMMENT.val, "CLASS_SOURCE_COMMENT", sizeof (meltcdat->dstr_418__CLASS_SOURCE_COMMENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_418__CLASS_SOURCE_COMMENT.val, "CLASS_SOURCE_COMMENT", sizeof (meltcdat->dstr_418__CLASS_SOURCE_COMMENT.val)-1); meltcdat->dstr_418__CLASS_SOURCE_COMMENT.val[20] = (char)0 ; meltcdat->dstr_418__CLASS_SOURCE_COMMENT.slen = 20 ; /*inimult dtup_419_syCLASS_SOURCE_COMMENT*/ - /*_._VALTUP___V513*/ - meltfptr[512] = (melt_ptr_t) &meltcdat->dtup_419_syCLASS_SOURCE_COMMENT; + /*_._VALTUP___V513*/ meltfptr[512] = (melt_ptr_t) &meltcdat->dtup_419_syCLASS_SOURCE_COMMENT; meltcdat->dtup_419_syCLASS_SOURCE_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_419_syCLASS_SOURCE_COMMENT.nbval = 4; /*inimult dtup_420_syCLASS_SOURCE_COMMENT*/ - /*_._VALTUP___V516*/ - meltfptr[515] = (melt_ptr_t) &meltcdat->dtup_420_syCLASS_SOURCE_COMMENT; + /*_._VALTUP___V516*/ meltfptr[515] = (melt_ptr_t) &meltcdat->dtup_420_syCLASS_SOURCE_COMMENT; meltcdat->dtup_420_syCLASS_SOURCE_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_420_syCLASS_SOURCE_COMMENT.nbval = 3; /*iniobj dsym_421__SCOMM_STR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V517*/ meltfptr[516]) + /*uniqueobj*/ if (!/*_._VALDATA___V517*/ meltfptr[516]) /*_._VALDATA___V517*/ meltfptr[516] = (melt_ptr_t )&meltcdat->dsym_421__SCOMM_STR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_421__SCOMM_STR", 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__SCOMM_STR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15339,19 +13814,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_422__SCOMM_STR*/ - /*_._VALSTR___V518*/ - meltfptr[517] = (melt_ptr_t) &meltcdat->dstr_422__SCOMM_STR; + /*_._VALSTR___V518*/ meltfptr[517] = (melt_ptr_t) &meltcdat->dstr_422__SCOMM_STR; meltcdat->dstr_422__SCOMM_STR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_422__SCOMM_STR.val, "SCOMM_STR", sizeof (meltcdat->dstr_422__SCOMM_STR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_422__SCOMM_STR.val, "SCOMM_STR", sizeof (meltcdat->dstr_422__SCOMM_STR.val)-1); meltcdat->dstr_422__SCOMM_STR.val[9] = (char)0 ; meltcdat->dstr_422__SCOMM_STR.slen = 9 ; /*^iniobj*/ /*iniobj dobj_423__SCOMM_STR*/ - /*_._VALDATA___V514*/ - meltfptr[513] = (melt_ptr_t )&meltcdat->dobj_423__SCOMM_STR; + /*_._VALDATA___V514*/ meltfptr[513] = (melt_ptr_t )&meltcdat->dobj_423__SCOMM_STR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_423__SCOMM_STR", 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_423__SCOMM_STR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_423__SCOMM_STR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -15361,18 +13833,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_424__SCOMM_STR*/ - /*_._VALSTR___V515*/ - meltfptr[514] = (melt_ptr_t) &meltcdat->dstr_424__SCOMM_STR; + /*_._VALSTR___V515*/ meltfptr[514] = (melt_ptr_t) &meltcdat->dstr_424__SCOMM_STR; meltcdat->dstr_424__SCOMM_STR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_424__SCOMM_STR.val, "SCOMM_STR", sizeof (meltcdat->dstr_424__SCOMM_STR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_424__SCOMM_STR.val, "SCOMM_STR", sizeof (meltcdat->dstr_424__SCOMM_STR.val)-1); meltcdat->dstr_424__SCOMM_STR.val[9] = (char)0 ; meltcdat->dstr_424__SCOMM_STR.slen = 9 ; /*iniobj dsym_425__CLASS_SOURCE_CODE_STRING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V519*/ meltfptr[518]) + /*uniqueobj*/ if (!/*_._VALDATA___V519*/ meltfptr[518]) /*_._VALDATA___V519*/ meltfptr[518] = (melt_ptr_t )&meltcdat->dsym_425__CLASS_SOURCE_CODE_STRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_425__CLASS_SOURCE_CODE_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_425__CLASS_SOURCE_CODE_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15382,19 +13851,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_426__CLASS_SOURCE_CODE_STRING*/ - /*_._VALSTR___V520*/ - meltfptr[519] = (melt_ptr_t) &meltcdat->dstr_426__CLASS_SOURCE_CODE_STRING; + /*_._VALSTR___V520*/ meltfptr[519] = (melt_ptr_t) &meltcdat->dstr_426__CLASS_SOURCE_CODE_STRING; meltcdat->dstr_426__CLASS_SOURCE_CODE_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_426__CLASS_SOURCE_CODE_STRING.val, "CLASS_SOURCE_CODE_STRING", sizeof (meltcdat->dstr_426__CLASS_SOURCE_CODE_STRING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_426__CLASS_SOURCE_CODE_STRING.val, "CLASS_SOURCE_CODE_STRING", sizeof (meltcdat->dstr_426__CLASS_SOURCE_CODE_STRING.val)-1); meltcdat->dstr_426__CLASS_SOURCE_CODE_STRING.val[24] = (char)0 ; meltcdat->dstr_426__CLASS_SOURCE_CODE_STRING.slen = 24 ; MELT_LOCATION("warmelt-macro.melt:586:/ iniobj"); /*iniobj dobj_427__CLASS_SOURCE_CODE_STRING*/ - /*_._VALDATA___V521*/ - meltfptr[520] = (melt_ptr_t )&meltcdat->dobj_427__CLASS_SOURCE_CODE_STRING; + /*_._VALDATA___V521*/ meltfptr[520] = (melt_ptr_t )&meltcdat->dobj_427__CLASS_SOURCE_CODE_STRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_427__CLASS_SOURCE_CODE_STRING", 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_427__CLASS_SOURCE_CODE_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_427__CLASS_SOURCE_CODE_STRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -15404,28 +13870,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_428__CLASS_SOURCE_CODE_STRING*/ - /*_._VALSTR___V522*/ - meltfptr[521] = (melt_ptr_t) &meltcdat->dstr_428__CLASS_SOURCE_CODE_STRING; + /*_._VALSTR___V522*/ meltfptr[521] = (melt_ptr_t) &meltcdat->dstr_428__CLASS_SOURCE_CODE_STRING; meltcdat->dstr_428__CLASS_SOURCE_CODE_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_428__CLASS_SOURCE_CODE_STRING.val, "CLASS_SOURCE_CODE_STRING", sizeof (meltcdat->dstr_428__CLASS_SOURCE_CODE_STRING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_428__CLASS_SOURCE_CODE_STRING.val, "CLASS_SOURCE_CODE_STRING", sizeof (meltcdat->dstr_428__CLASS_SOURCE_CODE_STRING.val)-1); meltcdat->dstr_428__CLASS_SOURCE_CODE_STRING.val[24] = (char)0 ; meltcdat->dstr_428__CLASS_SOURCE_CODE_STRING.slen = 24 ; /*inimult dtup_429_syCLASS_SOURCE_CODE_STRING*/ - /*_._VALTUP___V523*/ - meltfptr[522] = (melt_ptr_t) &meltcdat->dtup_429_syCLASS_SOURCE_CODE_STRING; + /*_._VALTUP___V523*/ meltfptr[522] = (melt_ptr_t) &meltcdat->dtup_429_syCLASS_SOURCE_CODE_STRING; meltcdat->dtup_429_syCLASS_SOURCE_CODE_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_429_syCLASS_SOURCE_CODE_STRING.nbval = 4; /*inimult dtup_430_syCLASS_SOURCE_CODE_STRING*/ - /*_._VALTUP___V526*/ - meltfptr[525] = (melt_ptr_t) &meltcdat->dtup_430_syCLASS_SOURCE_CODE_STRING; + /*_._VALTUP___V526*/ meltfptr[525] = (melt_ptr_t) &meltcdat->dtup_430_syCLASS_SOURCE_CODE_STRING; meltcdat->dtup_430_syCLASS_SOURCE_CODE_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_430_syCLASS_SOURCE_CODE_STRING.nbval = 3; /*iniobj dsym_431__SC_CODESTRING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V527*/ meltfptr[526]) + /*uniqueobj*/ if (!/*_._VALDATA___V527*/ meltfptr[526]) /*_._VALDATA___V527*/ meltfptr[526] = (melt_ptr_t )&meltcdat->dsym_431__SC_CODESTRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_431__SC_CODESTRING", 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_431__SC_CODESTRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15435,19 +13896,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_432__SC_CODESTRING*/ - /*_._VALSTR___V528*/ - meltfptr[527] = (melt_ptr_t) &meltcdat->dstr_432__SC_CODESTRING; + /*_._VALSTR___V528*/ meltfptr[527] = (melt_ptr_t) &meltcdat->dstr_432__SC_CODESTRING; meltcdat->dstr_432__SC_CODESTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_432__SC_CODESTRING.val, "SC_CODESTRING", sizeof (meltcdat->dstr_432__SC_CODESTRING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_432__SC_CODESTRING.val, "SC_CODESTRING", sizeof (meltcdat->dstr_432__SC_CODESTRING.val)-1); meltcdat->dstr_432__SC_CODESTRING.val[13] = (char)0 ; meltcdat->dstr_432__SC_CODESTRING.slen = 13 ; /*^iniobj*/ /*iniobj dobj_433__SC_CODESTRING*/ - /*_._VALDATA___V524*/ - meltfptr[523] = (melt_ptr_t )&meltcdat->dobj_433__SC_CODESTRING; + /*_._VALDATA___V524*/ meltfptr[523] = (melt_ptr_t )&meltcdat->dobj_433__SC_CODESTRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_433__SC_CODESTRING", 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_433__SC_CODESTRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_433__SC_CODESTRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -15457,18 +13915,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_434__SC_CODESTRING*/ - /*_._VALSTR___V525*/ - meltfptr[524] = (melt_ptr_t) &meltcdat->dstr_434__SC_CODESTRING; + /*_._VALSTR___V525*/ meltfptr[524] = (melt_ptr_t) &meltcdat->dstr_434__SC_CODESTRING; meltcdat->dstr_434__SC_CODESTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_434__SC_CODESTRING.val, "SC_CODESTRING", sizeof (meltcdat->dstr_434__SC_CODESTRING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_434__SC_CODESTRING.val, "SC_CODESTRING", sizeof (meltcdat->dstr_434__SC_CODESTRING.val)-1); meltcdat->dstr_434__SC_CODESTRING.val[13] = (char)0 ; meltcdat->dstr_434__SC_CODESTRING.slen = 13 ; /*iniobj dsym_435__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V529*/ meltfptr[528]) + /*uniqueobj*/ if (!/*_._VALDATA___V529*/ meltfptr[528]) /*_._VALDATA___V529*/ meltfptr[528] = (melt_ptr_t )&meltcdat->dsym_435__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_435__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", 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_435__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15478,19 +13933,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_436__CLASS_SOURCE_MODULE_IS_G*/ - /*_._VALSTR___V530*/ - meltfptr[529] = (melt_ptr_t) &meltcdat->dstr_436__CLASS_SOURCE_MODULE_IS_G; + /*_._VALSTR___V530*/ meltfptr[529] = (melt_ptr_t) &meltcdat->dstr_436__CLASS_SOURCE_MODULE_IS_G; meltcdat->dstr_436__CLASS_SOURCE_MODULE_IS_G.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_436__CLASS_SOURCE_MODULE_IS_G.val, "CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", sizeof (meltcdat->dstr_436__CLASS_SOURCE_MODULE_IS_G.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_436__CLASS_SOURCE_MODULE_IS_G.val, "CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", sizeof (meltcdat->dstr_436__CLASS_SOURCE_MODULE_IS_G.val)-1); meltcdat->dstr_436__CLASS_SOURCE_MODULE_IS_G.val[37] = (char)0 ; meltcdat->dstr_436__CLASS_SOURCE_MODULE_IS_G.slen = 37 ; MELT_LOCATION("warmelt-macro.melt:594:/ iniobj"); /*iniobj dobj_437__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE*/ - /*_._VALDATA___V531*/ - meltfptr[530] = (melt_ptr_t )&meltcdat->dobj_437__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; + /*_._VALDATA___V531*/ meltfptr[530] = (melt_ptr_t )&meltcdat->dobj_437__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_437__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", 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_437__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_437__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -15500,28 +13952,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_438__CLASS_SOURCE_MODULE_IS_G*/ - /*_._VALSTR___V532*/ - meltfptr[531] = (melt_ptr_t) &meltcdat->dstr_438__CLASS_SOURCE_MODULE_IS_G; + /*_._VALSTR___V532*/ meltfptr[531] = (melt_ptr_t) &meltcdat->dstr_438__CLASS_SOURCE_MODULE_IS_G; meltcdat->dstr_438__CLASS_SOURCE_MODULE_IS_G.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_438__CLASS_SOURCE_MODULE_IS_G.val, "CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", sizeof (meltcdat->dstr_438__CLASS_SOURCE_MODULE_IS_G.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_438__CLASS_SOURCE_MODULE_IS_G.val, "CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", sizeof (meltcdat->dstr_438__CLASS_SOURCE_MODULE_IS_G.val)-1); meltcdat->dstr_438__CLASS_SOURCE_MODULE_IS_G.val[37] = (char)0 ; meltcdat->dstr_438__CLASS_SOURCE_MODULE_IS_G.slen = 37 ; /*inimult dtup_439_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE*/ - /*_._VALTUP___V533*/ - meltfptr[532] = (melt_ptr_t) &meltcdat->dtup_439_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; + /*_._VALTUP___V533*/ meltfptr[532] = (melt_ptr_t) &meltcdat->dtup_439_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; meltcdat->dtup_439_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_439_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.nbval = 5; /*inimult dtup_440_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE*/ - /*_._VALTUP___V534*/ - meltfptr[533] = (melt_ptr_t) &meltcdat->dtup_440_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; + /*_._VALTUP___V534*/ meltfptr[533] = (melt_ptr_t) &meltcdat->dtup_440_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; meltcdat->dtup_440_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_440_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.nbval = 3; /*iniobj dsym_441__CLASS_SOURCE_CHEADER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V535*/ meltfptr[534]) + /*uniqueobj*/ if (!/*_._VALDATA___V535*/ meltfptr[534]) /*_._VALDATA___V535*/ meltfptr[534] = (melt_ptr_t )&meltcdat->dsym_441__CLASS_SOURCE_CHEADER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_441__CLASS_SOURCE_CHEADER", 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_441__CLASS_SOURCE_CHEADER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15531,19 +13978,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_442__CLASS_SOURCE_CHEADER*/ - /*_._VALSTR___V536*/ - meltfptr[535] = (melt_ptr_t) &meltcdat->dstr_442__CLASS_SOURCE_CHEADER; + /*_._VALSTR___V536*/ meltfptr[535] = (melt_ptr_t) &meltcdat->dstr_442__CLASS_SOURCE_CHEADER; meltcdat->dstr_442__CLASS_SOURCE_CHEADER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_442__CLASS_SOURCE_CHEADER.val, "CLASS_SOURCE_CHEADER", sizeof (meltcdat->dstr_442__CLASS_SOURCE_CHEADER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_442__CLASS_SOURCE_CHEADER.val, "CLASS_SOURCE_CHEADER", sizeof (meltcdat->dstr_442__CLASS_SOURCE_CHEADER.val)-1); meltcdat->dstr_442__CLASS_SOURCE_CHEADER.val[20] = (char)0 ; meltcdat->dstr_442__CLASS_SOURCE_CHEADER.slen = 20 ; MELT_LOCATION("warmelt-macro.melt:602:/ iniobj"); /*iniobj dobj_443__CLASS_SOURCE_CHEADER*/ - /*_._VALDATA___V537*/ - meltfptr[536] = (melt_ptr_t )&meltcdat->dobj_443__CLASS_SOURCE_CHEADER; + /*_._VALDATA___V537*/ meltfptr[536] = (melt_ptr_t )&meltcdat->dobj_443__CLASS_SOURCE_CHEADER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_443__CLASS_SOURCE_CHEADER", 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_443__CLASS_SOURCE_CHEADER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_443__CLASS_SOURCE_CHEADER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -15553,28 +13997,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_444__CLASS_SOURCE_CHEADER*/ - /*_._VALSTR___V538*/ - meltfptr[537] = (melt_ptr_t) &meltcdat->dstr_444__CLASS_SOURCE_CHEADER; + /*_._VALSTR___V538*/ meltfptr[537] = (melt_ptr_t) &meltcdat->dstr_444__CLASS_SOURCE_CHEADER; meltcdat->dstr_444__CLASS_SOURCE_CHEADER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_444__CLASS_SOURCE_CHEADER.val, "CLASS_SOURCE_CHEADER", sizeof (meltcdat->dstr_444__CLASS_SOURCE_CHEADER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_444__CLASS_SOURCE_CHEADER.val, "CLASS_SOURCE_CHEADER", sizeof (meltcdat->dstr_444__CLASS_SOURCE_CHEADER.val)-1); meltcdat->dstr_444__CLASS_SOURCE_CHEADER.val[20] = (char)0 ; meltcdat->dstr_444__CLASS_SOURCE_CHEADER.slen = 20 ; /*inimult dtup_445_syCLASS_SOURCE_CHEADER*/ - /*_._VALTUP___V539*/ - meltfptr[538] = (melt_ptr_t) &meltcdat->dtup_445_syCLASS_SOURCE_CHEADER; + /*_._VALTUP___V539*/ meltfptr[538] = (melt_ptr_t) &meltcdat->dtup_445_syCLASS_SOURCE_CHEADER; meltcdat->dtup_445_syCLASS_SOURCE_CHEADER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_445_syCLASS_SOURCE_CHEADER.nbval = 5; /*inimult dtup_446_syCLASS_SOURCE_CHEADER*/ - /*_._VALTUP___V540*/ - meltfptr[539] = (melt_ptr_t) &meltcdat->dtup_446_syCLASS_SOURCE_CHEADER; + /*_._VALTUP___V540*/ meltfptr[539] = (melt_ptr_t) &meltcdat->dtup_446_syCLASS_SOURCE_CHEADER; meltcdat->dtup_446_syCLASS_SOURCE_CHEADER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_446_syCLASS_SOURCE_CHEADER.nbval = 3; /*iniobj dsym_447__CLASS_SOURCE_CIMPLEMENT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V541*/ meltfptr[540]) + /*uniqueobj*/ if (!/*_._VALDATA___V541*/ meltfptr[540]) /*_._VALDATA___V541*/ meltfptr[540] = (melt_ptr_t )&meltcdat->dsym_447__CLASS_SOURCE_CIMPLEMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_447__CLASS_SOURCE_CIMPLEMENT", 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_447__CLASS_SOURCE_CIMPLEMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15584,19 +14023,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_448__CLASS_SOURCE_CIMPLEMENT*/ - /*_._VALSTR___V542*/ - meltfptr[541] = (melt_ptr_t) &meltcdat->dstr_448__CLASS_SOURCE_CIMPLEMENT; + /*_._VALSTR___V542*/ meltfptr[541] = (melt_ptr_t) &meltcdat->dstr_448__CLASS_SOURCE_CIMPLEMENT; meltcdat->dstr_448__CLASS_SOURCE_CIMPLEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_448__CLASS_SOURCE_CIMPLEMENT.val, "CLASS_SOURCE_CIMPLEMENT", sizeof (meltcdat->dstr_448__CLASS_SOURCE_CIMPLEMENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_448__CLASS_SOURCE_CIMPLEMENT.val, "CLASS_SOURCE_CIMPLEMENT", sizeof (meltcdat->dstr_448__CLASS_SOURCE_CIMPLEMENT.val)-1); meltcdat->dstr_448__CLASS_SOURCE_CIMPLEMENT.val[23] = (char)0 ; meltcdat->dstr_448__CLASS_SOURCE_CIMPLEMENT.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:610:/ iniobj"); /*iniobj dobj_449__CLASS_SOURCE_CIMPLEMENT*/ - /*_._VALDATA___V543*/ - meltfptr[542] = (melt_ptr_t )&meltcdat->dobj_449__CLASS_SOURCE_CIMPLEMENT; + /*_._VALDATA___V543*/ meltfptr[542] = (melt_ptr_t )&meltcdat->dobj_449__CLASS_SOURCE_CIMPLEMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_449__CLASS_SOURCE_CIMPLEMENT", 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_449__CLASS_SOURCE_CIMPLEMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_449__CLASS_SOURCE_CIMPLEMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -15606,28 +14042,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_450__CLASS_SOURCE_CIMPLEMENT*/ - /*_._VALSTR___V544*/ - meltfptr[543] = (melt_ptr_t) &meltcdat->dstr_450__CLASS_SOURCE_CIMPLEMENT; + /*_._VALSTR___V544*/ meltfptr[543] = (melt_ptr_t) &meltcdat->dstr_450__CLASS_SOURCE_CIMPLEMENT; meltcdat->dstr_450__CLASS_SOURCE_CIMPLEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_450__CLASS_SOURCE_CIMPLEMENT.val, "CLASS_SOURCE_CIMPLEMENT", sizeof (meltcdat->dstr_450__CLASS_SOURCE_CIMPLEMENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_450__CLASS_SOURCE_CIMPLEMENT.val, "CLASS_SOURCE_CIMPLEMENT", sizeof (meltcdat->dstr_450__CLASS_SOURCE_CIMPLEMENT.val)-1); meltcdat->dstr_450__CLASS_SOURCE_CIMPLEMENT.val[23] = (char)0 ; meltcdat->dstr_450__CLASS_SOURCE_CIMPLEMENT.slen = 23 ; /*inimult dtup_451_syCLASS_SOURCE_CIMPLEMENT*/ - /*_._VALTUP___V545*/ - meltfptr[544] = (melt_ptr_t) &meltcdat->dtup_451_syCLASS_SOURCE_CIMPLEMENT; + /*_._VALTUP___V545*/ meltfptr[544] = (melt_ptr_t) &meltcdat->dtup_451_syCLASS_SOURCE_CIMPLEMENT; meltcdat->dtup_451_syCLASS_SOURCE_CIMPLEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_451_syCLASS_SOURCE_CIMPLEMENT.nbval = 5; /*inimult dtup_452_syCLASS_SOURCE_CIMPLEMENT*/ - /*_._VALTUP___V546*/ - meltfptr[545] = (melt_ptr_t) &meltcdat->dtup_452_syCLASS_SOURCE_CIMPLEMENT; + /*_._VALTUP___V546*/ meltfptr[545] = (melt_ptr_t) &meltcdat->dtup_452_syCLASS_SOURCE_CIMPLEMENT; meltcdat->dtup_452_syCLASS_SOURCE_CIMPLEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_452_syCLASS_SOURCE_CIMPLEMENT.nbval = 3; /*iniobj dsym_453__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V547*/ meltfptr[546]) + /*uniqueobj*/ if (!/*_._VALDATA___V547*/ meltfptr[546]) /*_._VALDATA___V547*/ meltfptr[546] = (melt_ptr_t )&meltcdat->dsym_453__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_453__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", 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_453__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15637,19 +14068,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_454__CLASS_SOURCE_USE_PACKAGE*/ - /*_._VALSTR___V548*/ - meltfptr[547] = (melt_ptr_t) &meltcdat->dstr_454__CLASS_SOURCE_USE_PACKAGE; + /*_._VALSTR___V548*/ meltfptr[547] = (melt_ptr_t) &meltcdat->dstr_454__CLASS_SOURCE_USE_PACKAGE; meltcdat->dstr_454__CLASS_SOURCE_USE_PACKAGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_454__CLASS_SOURCE_USE_PACKAGE.val, "CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", sizeof (meltcdat->dstr_454__CLASS_SOURCE_USE_PACKAGE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_454__CLASS_SOURCE_USE_PACKAGE.val, "CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", sizeof (meltcdat->dstr_454__CLASS_SOURCE_USE_PACKAGE.val)-1); meltcdat->dstr_454__CLASS_SOURCE_USE_PACKAGE.val[40] = (char)0 ; meltcdat->dstr_454__CLASS_SOURCE_USE_PACKAGE.slen = 40 ; MELT_LOCATION("warmelt-macro.melt:620:/ iniobj"); /*iniobj dobj_455__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ - /*_._VALDATA___V549*/ - meltfptr[548] = (melt_ptr_t )&meltcdat->dobj_455__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; + /*_._VALDATA___V549*/ meltfptr[548] = (melt_ptr_t )&meltcdat->dobj_455__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_455__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", 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_455__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_455__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -15659,28 +14087,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_456__CLASS_SOURCE_USE_PACKAGE*/ - /*_._VALSTR___V550*/ - meltfptr[549] = (melt_ptr_t) &meltcdat->dstr_456__CLASS_SOURCE_USE_PACKAGE; + /*_._VALSTR___V550*/ meltfptr[549] = (melt_ptr_t) &meltcdat->dstr_456__CLASS_SOURCE_USE_PACKAGE; meltcdat->dstr_456__CLASS_SOURCE_USE_PACKAGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_456__CLASS_SOURCE_USE_PACKAGE.val, "CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", sizeof (meltcdat->dstr_456__CLASS_SOURCE_USE_PACKAGE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_456__CLASS_SOURCE_USE_PACKAGE.val, "CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", sizeof (meltcdat->dstr_456__CLASS_SOURCE_USE_PACKAGE.val)-1); meltcdat->dstr_456__CLASS_SOURCE_USE_PACKAGE.val[40] = (char)0 ; meltcdat->dstr_456__CLASS_SOURCE_USE_PACKAGE.slen = 40 ; /*inimult dtup_457_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ - /*_._VALTUP___V551*/ - meltfptr[550] = (melt_ptr_t) &meltcdat->dtup_457_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; + /*_._VALTUP___V551*/ meltfptr[550] = (melt_ptr_t) &meltcdat->dtup_457_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; meltcdat->dtup_457_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_457_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.nbval = 4; /*inimult dtup_458_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ - /*_._VALTUP___V554*/ - meltfptr[553] = (melt_ptr_t) &meltcdat->dtup_458_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; + /*_._VALTUP___V554*/ meltfptr[553] = (melt_ptr_t) &meltcdat->dtup_458_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; meltcdat->dtup_458_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_458_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.nbval = 3; /*iniobj dsym_459__SUSEPACKAGE_PKGTUPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V555*/ meltfptr[554]) + /*uniqueobj*/ if (!/*_._VALDATA___V555*/ meltfptr[554]) /*_._VALDATA___V555*/ meltfptr[554] = (melt_ptr_t )&meltcdat->dsym_459__SUSEPACKAGE_PKGTUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_459__SUSEPACKAGE_PKGTUPLE", 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_459__SUSEPACKAGE_PKGTUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15690,19 +14113,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_460__SUSEPACKAGE_PKGTUPLE*/ - /*_._VALSTR___V556*/ - meltfptr[555] = (melt_ptr_t) &meltcdat->dstr_460__SUSEPACKAGE_PKGTUPLE; + /*_._VALSTR___V556*/ meltfptr[555] = (melt_ptr_t) &meltcdat->dstr_460__SUSEPACKAGE_PKGTUPLE; meltcdat->dstr_460__SUSEPACKAGE_PKGTUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_460__SUSEPACKAGE_PKGTUPLE.val, "SUSEPACKAGE_PKGTUPLE", sizeof (meltcdat->dstr_460__SUSEPACKAGE_PKGTUPLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_460__SUSEPACKAGE_PKGTUPLE.val, "SUSEPACKAGE_PKGTUPLE", sizeof (meltcdat->dstr_460__SUSEPACKAGE_PKGTUPLE.val)-1); meltcdat->dstr_460__SUSEPACKAGE_PKGTUPLE.val[20] = (char)0 ; meltcdat->dstr_460__SUSEPACKAGE_PKGTUPLE.slen = 20 ; /*^iniobj*/ /*iniobj dobj_461__SUSEPACKAGE_PKGTUPLE*/ - /*_._VALDATA___V552*/ - meltfptr[551] = (melt_ptr_t )&meltcdat->dobj_461__SUSEPACKAGE_PKGTUPLE; + /*_._VALDATA___V552*/ meltfptr[551] = (melt_ptr_t )&meltcdat->dobj_461__SUSEPACKAGE_PKGTUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_461__SUSEPACKAGE_PKGTUPLE", 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_461__SUSEPACKAGE_PKGTUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_461__SUSEPACKAGE_PKGTUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -15712,18 +14132,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_462__SUSEPACKAGE_PKGTUPLE*/ - /*_._VALSTR___V553*/ - meltfptr[552] = (melt_ptr_t) &meltcdat->dstr_462__SUSEPACKAGE_PKGTUPLE; + /*_._VALSTR___V553*/ meltfptr[552] = (melt_ptr_t) &meltcdat->dstr_462__SUSEPACKAGE_PKGTUPLE; meltcdat->dstr_462__SUSEPACKAGE_PKGTUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_462__SUSEPACKAGE_PKGTUPLE.val, "SUSEPACKAGE_PKGTUPLE", sizeof (meltcdat->dstr_462__SUSEPACKAGE_PKGTUPLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_462__SUSEPACKAGE_PKGTUPLE.val, "SUSEPACKAGE_PKGTUPLE", sizeof (meltcdat->dstr_462__SUSEPACKAGE_PKGTUPLE.val)-1); meltcdat->dstr_462__SUSEPACKAGE_PKGTUPLE.val[20] = (char)0 ; meltcdat->dstr_462__SUSEPACKAGE_PKGTUPLE.slen = 20 ; /*iniobj dsym_463__CLASS_SOURCE_QUOTE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V557*/ meltfptr[556]) + /*uniqueobj*/ if (!/*_._VALDATA___V557*/ meltfptr[556]) /*_._VALDATA___V557*/ meltfptr[556] = (melt_ptr_t )&meltcdat->dsym_463__CLASS_SOURCE_QUOTE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_463__CLASS_SOURCE_QUOTE", 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_463__CLASS_SOURCE_QUOTE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15733,19 +14150,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_464__CLASS_SOURCE_QUOTE*/ - /*_._VALSTR___V558*/ - meltfptr[557] = (melt_ptr_t) &meltcdat->dstr_464__CLASS_SOURCE_QUOTE; + /*_._VALSTR___V558*/ meltfptr[557] = (melt_ptr_t) &meltcdat->dstr_464__CLASS_SOURCE_QUOTE; meltcdat->dstr_464__CLASS_SOURCE_QUOTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_464__CLASS_SOURCE_QUOTE.val, "CLASS_SOURCE_QUOTE", sizeof (meltcdat->dstr_464__CLASS_SOURCE_QUOTE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_464__CLASS_SOURCE_QUOTE.val, "CLASS_SOURCE_QUOTE", sizeof (meltcdat->dstr_464__CLASS_SOURCE_QUOTE.val)-1); meltcdat->dstr_464__CLASS_SOURCE_QUOTE.val[18] = (char)0 ; meltcdat->dstr_464__CLASS_SOURCE_QUOTE.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:630:/ iniobj"); /*iniobj dobj_465__CLASS_SOURCE_QUOTE*/ - /*_._VALDATA___V559*/ - meltfptr[558] = (melt_ptr_t )&meltcdat->dobj_465__CLASS_SOURCE_QUOTE; + /*_._VALDATA___V559*/ meltfptr[558] = (melt_ptr_t )&meltcdat->dobj_465__CLASS_SOURCE_QUOTE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_465__CLASS_SOURCE_QUOTE", 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_465__CLASS_SOURCE_QUOTE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_465__CLASS_SOURCE_QUOTE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -15755,28 +14169,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_466__CLASS_SOURCE_QUOTE*/ - /*_._VALSTR___V560*/ - meltfptr[559] = (melt_ptr_t) &meltcdat->dstr_466__CLASS_SOURCE_QUOTE; + /*_._VALSTR___V560*/ meltfptr[559] = (melt_ptr_t) &meltcdat->dstr_466__CLASS_SOURCE_QUOTE; meltcdat->dstr_466__CLASS_SOURCE_QUOTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_466__CLASS_SOURCE_QUOTE.val, "CLASS_SOURCE_QUOTE", sizeof (meltcdat->dstr_466__CLASS_SOURCE_QUOTE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_466__CLASS_SOURCE_QUOTE.val, "CLASS_SOURCE_QUOTE", sizeof (meltcdat->dstr_466__CLASS_SOURCE_QUOTE.val)-1); meltcdat->dstr_466__CLASS_SOURCE_QUOTE.val[18] = (char)0 ; meltcdat->dstr_466__CLASS_SOURCE_QUOTE.slen = 18 ; /*inimult dtup_467_syCLASS_SOURCE_QUOTE*/ - /*_._VALTUP___V561*/ - meltfptr[560] = (melt_ptr_t) &meltcdat->dtup_467_syCLASS_SOURCE_QUOTE; + /*_._VALTUP___V561*/ meltfptr[560] = (melt_ptr_t) &meltcdat->dtup_467_syCLASS_SOURCE_QUOTE; meltcdat->dtup_467_syCLASS_SOURCE_QUOTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_467_syCLASS_SOURCE_QUOTE.nbval = 4; /*inimult dtup_468_syCLASS_SOURCE_QUOTE*/ - /*_._VALTUP___V564*/ - meltfptr[563] = (melt_ptr_t) &meltcdat->dtup_468_syCLASS_SOURCE_QUOTE; + /*_._VALTUP___V564*/ meltfptr[563] = (melt_ptr_t) &meltcdat->dtup_468_syCLASS_SOURCE_QUOTE; meltcdat->dtup_468_syCLASS_SOURCE_QUOTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_468_syCLASS_SOURCE_QUOTE.nbval = 3; /*iniobj dsym_469__SQUOTED*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V565*/ meltfptr[564]) + /*uniqueobj*/ if (!/*_._VALDATA___V565*/ meltfptr[564]) /*_._VALDATA___V565*/ meltfptr[564] = (melt_ptr_t )&meltcdat->dsym_469__SQUOTED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_469__SQUOTED", 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_469__SQUOTED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15786,19 +14195,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_470__SQUOTED*/ - /*_._VALSTR___V566*/ - meltfptr[565] = (melt_ptr_t) &meltcdat->dstr_470__SQUOTED; + /*_._VALSTR___V566*/ meltfptr[565] = (melt_ptr_t) &meltcdat->dstr_470__SQUOTED; meltcdat->dstr_470__SQUOTED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_470__SQUOTED.val, "SQUOTED", sizeof (meltcdat->dstr_470__SQUOTED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_470__SQUOTED.val, "SQUOTED", sizeof (meltcdat->dstr_470__SQUOTED.val)-1); meltcdat->dstr_470__SQUOTED.val[7] = (char)0 ; meltcdat->dstr_470__SQUOTED.slen = 7 ; /*^iniobj*/ /*iniobj dobj_471__SQUOTED*/ - /*_._VALDATA___V562*/ - meltfptr[561] = (melt_ptr_t )&meltcdat->dobj_471__SQUOTED; + /*_._VALDATA___V562*/ meltfptr[561] = (melt_ptr_t )&meltcdat->dobj_471__SQUOTED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_471__SQUOTED", 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_471__SQUOTED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_471__SQUOTED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -15808,18 +14214,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_472__SQUOTED*/ - /*_._VALSTR___V563*/ - meltfptr[562] = (melt_ptr_t) &meltcdat->dstr_472__SQUOTED; + /*_._VALSTR___V563*/ meltfptr[562] = (melt_ptr_t) &meltcdat->dstr_472__SQUOTED; meltcdat->dstr_472__SQUOTED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_472__SQUOTED.val, "SQUOTED", sizeof (meltcdat->dstr_472__SQUOTED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_472__SQUOTED.val, "SQUOTED", sizeof (meltcdat->dstr_472__SQUOTED.val)-1); meltcdat->dstr_472__SQUOTED.val[7] = (char)0 ; meltcdat->dstr_472__SQUOTED.slen = 7 ; /*iniobj dsym_473__CLASS_SOURCE_QUASI_BOX*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V567*/ meltfptr[566]) + /*uniqueobj*/ if (!/*_._VALDATA___V567*/ meltfptr[566]) /*_._VALDATA___V567*/ meltfptr[566] = (melt_ptr_t )&meltcdat->dsym_473__CLASS_SOURCE_QUASI_BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_473__CLASS_SOURCE_QUASI_BOX", 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_473__CLASS_SOURCE_QUASI_BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15829,19 +14232,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_474__CLASS_SOURCE_QUASI_BOX*/ - /*_._VALSTR___V568*/ - meltfptr[567] = (melt_ptr_t) &meltcdat->dstr_474__CLASS_SOURCE_QUASI_BOX; + /*_._VALSTR___V568*/ meltfptr[567] = (melt_ptr_t) &meltcdat->dstr_474__CLASS_SOURCE_QUASI_BOX; meltcdat->dstr_474__CLASS_SOURCE_QUASI_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_474__CLASS_SOURCE_QUASI_BOX.val, "CLASS_SOURCE_QUASI_BOX", sizeof (meltcdat->dstr_474__CLASS_SOURCE_QUASI_BOX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_474__CLASS_SOURCE_QUASI_BOX.val, "CLASS_SOURCE_QUASI_BOX", sizeof (meltcdat->dstr_474__CLASS_SOURCE_QUASI_BOX.val)-1); meltcdat->dstr_474__CLASS_SOURCE_QUASI_BOX.val[22] = (char)0 ; meltcdat->dstr_474__CLASS_SOURCE_QUASI_BOX.slen = 22 ; MELT_LOCATION("warmelt-macro.melt:637:/ iniobj"); /*iniobj dobj_475__CLASS_SOURCE_QUASI_BOX*/ - /*_._VALDATA___V569*/ - meltfptr[568] = (melt_ptr_t )&meltcdat->dobj_475__CLASS_SOURCE_QUASI_BOX; + /*_._VALDATA___V569*/ meltfptr[568] = (melt_ptr_t )&meltcdat->dobj_475__CLASS_SOURCE_QUASI_BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_475__CLASS_SOURCE_QUASI_BOX", 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_475__CLASS_SOURCE_QUASI_BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_475__CLASS_SOURCE_QUASI_BOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -15851,28 +14251,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_476__CLASS_SOURCE_QUASI_BOX*/ - /*_._VALSTR___V570*/ - meltfptr[569] = (melt_ptr_t) &meltcdat->dstr_476__CLASS_SOURCE_QUASI_BOX; + /*_._VALSTR___V570*/ meltfptr[569] = (melt_ptr_t) &meltcdat->dstr_476__CLASS_SOURCE_QUASI_BOX; meltcdat->dstr_476__CLASS_SOURCE_QUASI_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_476__CLASS_SOURCE_QUASI_BOX.val, "CLASS_SOURCE_QUASI_BOX", sizeof (meltcdat->dstr_476__CLASS_SOURCE_QUASI_BOX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_476__CLASS_SOURCE_QUASI_BOX.val, "CLASS_SOURCE_QUASI_BOX", sizeof (meltcdat->dstr_476__CLASS_SOURCE_QUASI_BOX.val)-1); meltcdat->dstr_476__CLASS_SOURCE_QUASI_BOX.val[22] = (char)0 ; meltcdat->dstr_476__CLASS_SOURCE_QUASI_BOX.slen = 22 ; /*inimult dtup_477_syCLASS_SOURCE_QUASI_BOX*/ - /*_._VALTUP___V571*/ - meltfptr[570] = (melt_ptr_t) &meltcdat->dtup_477_syCLASS_SOURCE_QUASI_BOX; + /*_._VALTUP___V571*/ meltfptr[570] = (melt_ptr_t) &meltcdat->dtup_477_syCLASS_SOURCE_QUASI_BOX; meltcdat->dtup_477_syCLASS_SOURCE_QUASI_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_477_syCLASS_SOURCE_QUASI_BOX.nbval = 4; /*inimult dtup_478_syCLASS_SOURCE_QUASI_BOX*/ - /*_._VALTUP___V574*/ - meltfptr[573] = (melt_ptr_t) &meltcdat->dtup_478_syCLASS_SOURCE_QUASI_BOX; + /*_._VALTUP___V574*/ meltfptr[573] = (melt_ptr_t) &meltcdat->dtup_478_syCLASS_SOURCE_QUASI_BOX; meltcdat->dtup_478_syCLASS_SOURCE_QUASI_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_478_syCLASS_SOURCE_QUASI_BOX.nbval = 3; /*iniobj dsym_479__SBOXED*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V575*/ meltfptr[574]) + /*uniqueobj*/ if (!/*_._VALDATA___V575*/ meltfptr[574]) /*_._VALDATA___V575*/ meltfptr[574] = (melt_ptr_t )&meltcdat->dsym_479__SBOXED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_479__SBOXED", 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_479__SBOXED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15882,19 +14277,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_480__SBOXED*/ - /*_._VALSTR___V576*/ - meltfptr[575] = (melt_ptr_t) &meltcdat->dstr_480__SBOXED; + /*_._VALSTR___V576*/ meltfptr[575] = (melt_ptr_t) &meltcdat->dstr_480__SBOXED; meltcdat->dstr_480__SBOXED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_480__SBOXED.val, "SBOXED", sizeof (meltcdat->dstr_480__SBOXED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_480__SBOXED.val, "SBOXED", sizeof (meltcdat->dstr_480__SBOXED.val)-1); meltcdat->dstr_480__SBOXED.val[6] = (char)0 ; meltcdat->dstr_480__SBOXED.slen = 6 ; /*^iniobj*/ /*iniobj dobj_481__SBOXED*/ - /*_._VALDATA___V572*/ - meltfptr[571] = (melt_ptr_t )&meltcdat->dobj_481__SBOXED; + /*_._VALDATA___V572*/ meltfptr[571] = (melt_ptr_t )&meltcdat->dobj_481__SBOXED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_481__SBOXED", 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_481__SBOXED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_481__SBOXED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -15904,18 +14296,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_482__SBOXED*/ - /*_._VALSTR___V573*/ - meltfptr[572] = (melt_ptr_t) &meltcdat->dstr_482__SBOXED; + /*_._VALSTR___V573*/ meltfptr[572] = (melt_ptr_t) &meltcdat->dstr_482__SBOXED; meltcdat->dstr_482__SBOXED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_482__SBOXED.val, "SBOXED", sizeof (meltcdat->dstr_482__SBOXED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_482__SBOXED.val, "SBOXED", sizeof (meltcdat->dstr_482__SBOXED.val)-1); meltcdat->dstr_482__SBOXED.val[6] = (char)0 ; meltcdat->dstr_482__SBOXED.slen = 6 ; /*iniobj dsym_483__CLASS_SOURCE_BOX*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V577*/ meltfptr[576]) + /*uniqueobj*/ if (!/*_._VALDATA___V577*/ meltfptr[576]) /*_._VALDATA___V577*/ meltfptr[576] = (melt_ptr_t )&meltcdat->dsym_483__CLASS_SOURCE_BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_483__CLASS_SOURCE_BOX", 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_483__CLASS_SOURCE_BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15925,19 +14314,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_484__CLASS_SOURCE_BOX*/ - /*_._VALSTR___V578*/ - meltfptr[577] = (melt_ptr_t) &meltcdat->dstr_484__CLASS_SOURCE_BOX; + /*_._VALSTR___V578*/ meltfptr[577] = (melt_ptr_t) &meltcdat->dstr_484__CLASS_SOURCE_BOX; meltcdat->dstr_484__CLASS_SOURCE_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_484__CLASS_SOURCE_BOX.val, "CLASS_SOURCE_BOX", sizeof (meltcdat->dstr_484__CLASS_SOURCE_BOX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_484__CLASS_SOURCE_BOX.val, "CLASS_SOURCE_BOX", sizeof (meltcdat->dstr_484__CLASS_SOURCE_BOX.val)-1); meltcdat->dstr_484__CLASS_SOURCE_BOX.val[16] = (char)0 ; meltcdat->dstr_484__CLASS_SOURCE_BOX.slen = 16 ; MELT_LOCATION("warmelt-macro.melt:643:/ iniobj"); /*iniobj dobj_485__CLASS_SOURCE_BOX*/ - /*_._VALDATA___V579*/ - meltfptr[578] = (melt_ptr_t )&meltcdat->dobj_485__CLASS_SOURCE_BOX; + /*_._VALDATA___V579*/ meltfptr[578] = (melt_ptr_t )&meltcdat->dobj_485__CLASS_SOURCE_BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_485__CLASS_SOURCE_BOX", 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_485__CLASS_SOURCE_BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_485__CLASS_SOURCE_BOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -15947,28 +14333,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_486__CLASS_SOURCE_BOX*/ - /*_._VALSTR___V580*/ - meltfptr[579] = (melt_ptr_t) &meltcdat->dstr_486__CLASS_SOURCE_BOX; + /*_._VALSTR___V580*/ meltfptr[579] = (melt_ptr_t) &meltcdat->dstr_486__CLASS_SOURCE_BOX; meltcdat->dstr_486__CLASS_SOURCE_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_486__CLASS_SOURCE_BOX.val, "CLASS_SOURCE_BOX", sizeof (meltcdat->dstr_486__CLASS_SOURCE_BOX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_486__CLASS_SOURCE_BOX.val, "CLASS_SOURCE_BOX", sizeof (meltcdat->dstr_486__CLASS_SOURCE_BOX.val)-1); meltcdat->dstr_486__CLASS_SOURCE_BOX.val[16] = (char)0 ; meltcdat->dstr_486__CLASS_SOURCE_BOX.slen = 16 ; /*inimult dtup_487_syCLASS_SOURCE_BOX*/ - /*_._VALTUP___V581*/ - meltfptr[580] = (melt_ptr_t) &meltcdat->dtup_487_syCLASS_SOURCE_BOX; + /*_._VALTUP___V581*/ meltfptr[580] = (melt_ptr_t) &meltcdat->dtup_487_syCLASS_SOURCE_BOX; meltcdat->dtup_487_syCLASS_SOURCE_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_487_syCLASS_SOURCE_BOX.nbval = 5; /*inimult dtup_488_syCLASS_SOURCE_BOX*/ - /*_._VALTUP___V582*/ - meltfptr[581] = (melt_ptr_t) &meltcdat->dtup_488_syCLASS_SOURCE_BOX; + /*_._VALTUP___V582*/ meltfptr[581] = (melt_ptr_t) &meltcdat->dtup_488_syCLASS_SOURCE_BOX; meltcdat->dtup_488_syCLASS_SOURCE_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_488_syCLASS_SOURCE_BOX.nbval = 3; /*iniobj dsym_489__CLASS_SOURCE_CONSTANT_BOX*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V583*/ meltfptr[582]) + /*uniqueobj*/ if (!/*_._VALDATA___V583*/ meltfptr[582]) /*_._VALDATA___V583*/ meltfptr[582] = (melt_ptr_t )&meltcdat->dsym_489__CLASS_SOURCE_CONSTANT_BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_489__CLASS_SOURCE_CONSTANT_BOX", 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_489__CLASS_SOURCE_CONSTANT_BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15978,19 +14359,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_490__CLASS_SOURCE_CONSTANT_BO*/ - /*_._VALSTR___V584*/ - meltfptr[583] = (melt_ptr_t) &meltcdat->dstr_490__CLASS_SOURCE_CONSTANT_BO; + /*_._VALSTR___V584*/ meltfptr[583] = (melt_ptr_t) &meltcdat->dstr_490__CLASS_SOURCE_CONSTANT_BO; meltcdat->dstr_490__CLASS_SOURCE_CONSTANT_BO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_490__CLASS_SOURCE_CONSTANT_BO.val, "CLASS_SOURCE_CONSTANT_BOX", sizeof (meltcdat->dstr_490__CLASS_SOURCE_CONSTANT_BO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_490__CLASS_SOURCE_CONSTANT_BO.val, "CLASS_SOURCE_CONSTANT_BOX", sizeof (meltcdat->dstr_490__CLASS_SOURCE_CONSTANT_BO.val)-1); meltcdat->dstr_490__CLASS_SOURCE_CONSTANT_BO.val[25] = (char)0 ; meltcdat->dstr_490__CLASS_SOURCE_CONSTANT_BO.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:648:/ iniobj"); /*iniobj dobj_491__CLASS_SOURCE_CONSTANT_BOX*/ - /*_._VALDATA___V585*/ - meltfptr[584] = (melt_ptr_t )&meltcdat->dobj_491__CLASS_SOURCE_CONSTANT_BOX; + /*_._VALDATA___V585*/ meltfptr[584] = (melt_ptr_t )&meltcdat->dobj_491__CLASS_SOURCE_CONSTANT_BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_491__CLASS_SOURCE_CONSTANT_BOX", 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_491__CLASS_SOURCE_CONSTANT_BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_491__CLASS_SOURCE_CONSTANT_BOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -16000,28 +14378,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_492__CLASS_SOURCE_CONSTANT_BO*/ - /*_._VALSTR___V586*/ - meltfptr[585] = (melt_ptr_t) &meltcdat->dstr_492__CLASS_SOURCE_CONSTANT_BO; + /*_._VALSTR___V586*/ meltfptr[585] = (melt_ptr_t) &meltcdat->dstr_492__CLASS_SOURCE_CONSTANT_BO; meltcdat->dstr_492__CLASS_SOURCE_CONSTANT_BO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_492__CLASS_SOURCE_CONSTANT_BO.val, "CLASS_SOURCE_CONSTANT_BOX", sizeof (meltcdat->dstr_492__CLASS_SOURCE_CONSTANT_BO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_492__CLASS_SOURCE_CONSTANT_BO.val, "CLASS_SOURCE_CONSTANT_BOX", sizeof (meltcdat->dstr_492__CLASS_SOURCE_CONSTANT_BO.val)-1); meltcdat->dstr_492__CLASS_SOURCE_CONSTANT_BO.val[25] = (char)0 ; meltcdat->dstr_492__CLASS_SOURCE_CONSTANT_BO.slen = 25 ; /*inimult dtup_493_syCLASS_SOURCE_CONSTANT_BOX*/ - /*_._VALTUP___V587*/ - meltfptr[586] = (melt_ptr_t) &meltcdat->dtup_493_syCLASS_SOURCE_CONSTANT_BOX; + /*_._VALTUP___V587*/ meltfptr[586] = (melt_ptr_t) &meltcdat->dtup_493_syCLASS_SOURCE_CONSTANT_BOX; meltcdat->dtup_493_syCLASS_SOURCE_CONSTANT_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_493_syCLASS_SOURCE_CONSTANT_BOX.nbval = 5; /*inimult dtup_494_syCLASS_SOURCE_CONSTANT_BOX*/ - /*_._VALTUP___V588*/ - meltfptr[587] = (melt_ptr_t) &meltcdat->dtup_494_syCLASS_SOURCE_CONSTANT_BOX; + /*_._VALTUP___V588*/ meltfptr[587] = (melt_ptr_t) &meltcdat->dtup_494_syCLASS_SOURCE_CONSTANT_BOX; meltcdat->dtup_494_syCLASS_SOURCE_CONSTANT_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_494_syCLASS_SOURCE_CONSTANT_BOX.nbval = 3; /*iniobj dsym_495__CLASS_SOURCE_UNBOX*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V589*/ meltfptr[588]) + /*uniqueobj*/ if (!/*_._VALDATA___V589*/ meltfptr[588]) /*_._VALDATA___V589*/ meltfptr[588] = (melt_ptr_t )&meltcdat->dsym_495__CLASS_SOURCE_UNBOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_495__CLASS_SOURCE_UNBOX", 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__CLASS_SOURCE_UNBOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16031,19 +14404,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_496__CLASS_SOURCE_UNBOX*/ - /*_._VALSTR___V590*/ - meltfptr[589] = (melt_ptr_t) &meltcdat->dstr_496__CLASS_SOURCE_UNBOX; + /*_._VALSTR___V590*/ meltfptr[589] = (melt_ptr_t) &meltcdat->dstr_496__CLASS_SOURCE_UNBOX; meltcdat->dstr_496__CLASS_SOURCE_UNBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_496__CLASS_SOURCE_UNBOX.val, "CLASS_SOURCE_UNBOX", sizeof (meltcdat->dstr_496__CLASS_SOURCE_UNBOX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_496__CLASS_SOURCE_UNBOX.val, "CLASS_SOURCE_UNBOX", sizeof (meltcdat->dstr_496__CLASS_SOURCE_UNBOX.val)-1); meltcdat->dstr_496__CLASS_SOURCE_UNBOX.val[18] = (char)0 ; meltcdat->dstr_496__CLASS_SOURCE_UNBOX.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:655:/ iniobj"); /*iniobj dobj_497__CLASS_SOURCE_UNBOX*/ - /*_._VALDATA___V591*/ - meltfptr[590] = (melt_ptr_t )&meltcdat->dobj_497__CLASS_SOURCE_UNBOX; + /*_._VALDATA___V591*/ meltfptr[590] = (melt_ptr_t )&meltcdat->dobj_497__CLASS_SOURCE_UNBOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_497__CLASS_SOURCE_UNBOX", 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_497__CLASS_SOURCE_UNBOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_497__CLASS_SOURCE_UNBOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -16053,28 +14423,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_498__CLASS_SOURCE_UNBOX*/ - /*_._VALSTR___V592*/ - meltfptr[591] = (melt_ptr_t) &meltcdat->dstr_498__CLASS_SOURCE_UNBOX; + /*_._VALSTR___V592*/ meltfptr[591] = (melt_ptr_t) &meltcdat->dstr_498__CLASS_SOURCE_UNBOX; meltcdat->dstr_498__CLASS_SOURCE_UNBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_498__CLASS_SOURCE_UNBOX.val, "CLASS_SOURCE_UNBOX", sizeof (meltcdat->dstr_498__CLASS_SOURCE_UNBOX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_498__CLASS_SOURCE_UNBOX.val, "CLASS_SOURCE_UNBOX", sizeof (meltcdat->dstr_498__CLASS_SOURCE_UNBOX.val)-1); meltcdat->dstr_498__CLASS_SOURCE_UNBOX.val[18] = (char)0 ; meltcdat->dstr_498__CLASS_SOURCE_UNBOX.slen = 18 ; /*inimult dtup_499_syCLASS_SOURCE_UNBOX*/ - /*_._VALTUP___V593*/ - meltfptr[592] = (melt_ptr_t) &meltcdat->dtup_499_syCLASS_SOURCE_UNBOX; + /*_._VALTUP___V593*/ meltfptr[592] = (melt_ptr_t) &meltcdat->dtup_499_syCLASS_SOURCE_UNBOX; meltcdat->dtup_499_syCLASS_SOURCE_UNBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_499_syCLASS_SOURCE_UNBOX.nbval = 4; /*inimult dtup_500_syCLASS_SOURCE_UNBOX*/ - /*_._VALTUP___V598*/ - meltfptr[597] = (melt_ptr_t) &meltcdat->dtup_500_syCLASS_SOURCE_UNBOX; + /*_._VALTUP___V598*/ meltfptr[597] = (melt_ptr_t) &meltcdat->dtup_500_syCLASS_SOURCE_UNBOX; meltcdat->dtup_500_syCLASS_SOURCE_UNBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_500_syCLASS_SOURCE_UNBOX.nbval = 4; /*iniobj dsym_501__SUNBOX_CTYPE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V599*/ meltfptr[598]) + /*uniqueobj*/ if (!/*_._VALDATA___V599*/ meltfptr[598]) /*_._VALDATA___V599*/ meltfptr[598] = (melt_ptr_t )&meltcdat->dsym_501__SUNBOX_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_501__SUNBOX_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_501__SUNBOX_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16084,19 +14449,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_502__SUNBOX_CTYPE*/ - /*_._VALSTR___V600*/ - meltfptr[599] = (melt_ptr_t) &meltcdat->dstr_502__SUNBOX_CTYPE; + /*_._VALSTR___V600*/ meltfptr[599] = (melt_ptr_t) &meltcdat->dstr_502__SUNBOX_CTYPE; meltcdat->dstr_502__SUNBOX_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_502__SUNBOX_CTYPE.val, "SUNBOX_CTYPE", sizeof (meltcdat->dstr_502__SUNBOX_CTYPE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_502__SUNBOX_CTYPE.val, "SUNBOX_CTYPE", sizeof (meltcdat->dstr_502__SUNBOX_CTYPE.val)-1); meltcdat->dstr_502__SUNBOX_CTYPE.val[12] = (char)0 ; meltcdat->dstr_502__SUNBOX_CTYPE.slen = 12 ; /*^iniobj*/ /*iniobj dobj_503__SUNBOX_CTYPE*/ - /*_._VALDATA___V594*/ - meltfptr[593] = (melt_ptr_t )&meltcdat->dobj_503__SUNBOX_CTYPE; + /*_._VALDATA___V594*/ meltfptr[593] = (melt_ptr_t )&meltcdat->dobj_503__SUNBOX_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_503__SUNBOX_CTYPE", 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_503__SUNBOX_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_503__SUNBOX_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -16106,18 +14468,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_504__SUNBOX_CTYPE*/ - /*_._VALSTR___V595*/ - meltfptr[594] = (melt_ptr_t) &meltcdat->dstr_504__SUNBOX_CTYPE; + /*_._VALSTR___V595*/ meltfptr[594] = (melt_ptr_t) &meltcdat->dstr_504__SUNBOX_CTYPE; meltcdat->dstr_504__SUNBOX_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_504__SUNBOX_CTYPE.val, "SUNBOX_CTYPE", sizeof (meltcdat->dstr_504__SUNBOX_CTYPE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_504__SUNBOX_CTYPE.val, "SUNBOX_CTYPE", sizeof (meltcdat->dstr_504__SUNBOX_CTYPE.val)-1); meltcdat->dstr_504__SUNBOX_CTYPE.val[12] = (char)0 ; meltcdat->dstr_504__SUNBOX_CTYPE.slen = 12 ; /*iniobj dsym_505__SUNBOX_EXPR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V601*/ meltfptr[600]) + /*uniqueobj*/ if (!/*_._VALDATA___V601*/ meltfptr[600]) /*_._VALDATA___V601*/ meltfptr[600] = (melt_ptr_t )&meltcdat->dsym_505__SUNBOX_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_505__SUNBOX_EXPR", 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_505__SUNBOX_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16127,19 +14486,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_506__SUNBOX_EXPR*/ - /*_._VALSTR___V602*/ - meltfptr[601] = (melt_ptr_t) &meltcdat->dstr_506__SUNBOX_EXPR; + /*_._VALSTR___V602*/ meltfptr[601] = (melt_ptr_t) &meltcdat->dstr_506__SUNBOX_EXPR; meltcdat->dstr_506__SUNBOX_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_506__SUNBOX_EXPR.val, "SUNBOX_EXPR", sizeof (meltcdat->dstr_506__SUNBOX_EXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_506__SUNBOX_EXPR.val, "SUNBOX_EXPR", sizeof (meltcdat->dstr_506__SUNBOX_EXPR.val)-1); meltcdat->dstr_506__SUNBOX_EXPR.val[11] = (char)0 ; meltcdat->dstr_506__SUNBOX_EXPR.slen = 11 ; /*^iniobj*/ /*iniobj dobj_507__SUNBOX_EXPR*/ - /*_._VALDATA___V596*/ - meltfptr[595] = (melt_ptr_t )&meltcdat->dobj_507__SUNBOX_EXPR; + /*_._VALDATA___V596*/ meltfptr[595] = (melt_ptr_t )&meltcdat->dobj_507__SUNBOX_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_507__SUNBOX_EXPR", 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_507__SUNBOX_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_507__SUNBOX_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -16149,18 +14505,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_508__SUNBOX_EXPR*/ - /*_._VALSTR___V597*/ - meltfptr[596] = (melt_ptr_t) &meltcdat->dstr_508__SUNBOX_EXPR; + /*_._VALSTR___V597*/ meltfptr[596] = (melt_ptr_t) &meltcdat->dstr_508__SUNBOX_EXPR; meltcdat->dstr_508__SUNBOX_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_508__SUNBOX_EXPR.val, "SUNBOX_EXPR", sizeof (meltcdat->dstr_508__SUNBOX_EXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_508__SUNBOX_EXPR.val, "SUNBOX_EXPR", sizeof (meltcdat->dstr_508__SUNBOX_EXPR.val)-1); meltcdat->dstr_508__SUNBOX_EXPR.val[11] = (char)0 ; meltcdat->dstr_508__SUNBOX_EXPR.slen = 11 ; /*iniobj dsym_509__CLASS_SOURCE_EXPORTCOMMON*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V603*/ meltfptr[602]) + /*uniqueobj*/ if (!/*_._VALDATA___V603*/ meltfptr[602]) /*_._VALDATA___V603*/ meltfptr[602] = (melt_ptr_t )&meltcdat->dsym_509__CLASS_SOURCE_EXPORTCOMMON; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_509__CLASS_SOURCE_EXPORTCOMMON", 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__CLASS_SOURCE_EXPORTCOMMON", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16170,19 +14523,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_510__CLASS_SOURCE_EXPORTCOMMO*/ - /*_._VALSTR___V604*/ - meltfptr[603] = (melt_ptr_t) &meltcdat->dstr_510__CLASS_SOURCE_EXPORTCOMMO; + /*_._VALSTR___V604*/ meltfptr[603] = (melt_ptr_t) &meltcdat->dstr_510__CLASS_SOURCE_EXPORTCOMMO; meltcdat->dstr_510__CLASS_SOURCE_EXPORTCOMMO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_510__CLASS_SOURCE_EXPORTCOMMO.val, "CLASS_SOURCE_EXPORTCOMMON", sizeof (meltcdat->dstr_510__CLASS_SOURCE_EXPORTCOMMO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_510__CLASS_SOURCE_EXPORTCOMMO.val, "CLASS_SOURCE_EXPORTCOMMON", sizeof (meltcdat->dstr_510__CLASS_SOURCE_EXPORTCOMMO.val)-1); meltcdat->dstr_510__CLASS_SOURCE_EXPORTCOMMO.val[25] = (char)0 ; meltcdat->dstr_510__CLASS_SOURCE_EXPORTCOMMO.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:668:/ iniobj"); /*iniobj dobj_511__CLASS_SOURCE_EXPORTCOMMON*/ - /*_._VALDATA___V605*/ - meltfptr[604] = (melt_ptr_t )&meltcdat->dobj_511__CLASS_SOURCE_EXPORTCOMMON; + /*_._VALDATA___V605*/ meltfptr[604] = (melt_ptr_t )&meltcdat->dobj_511__CLASS_SOURCE_EXPORTCOMMON; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_511__CLASS_SOURCE_EXPORTCOMMON", 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_511__CLASS_SOURCE_EXPORTCOMMON", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_511__CLASS_SOURCE_EXPORTCOMMON.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -16192,28 +14542,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_512__CLASS_SOURCE_EXPORTCOMMO*/ - /*_._VALSTR___V606*/ - meltfptr[605] = (melt_ptr_t) &meltcdat->dstr_512__CLASS_SOURCE_EXPORTCOMMO; + /*_._VALSTR___V606*/ meltfptr[605] = (melt_ptr_t) &meltcdat->dstr_512__CLASS_SOURCE_EXPORTCOMMO; meltcdat->dstr_512__CLASS_SOURCE_EXPORTCOMMO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_512__CLASS_SOURCE_EXPORTCOMMO.val, "CLASS_SOURCE_EXPORTCOMMON", sizeof (meltcdat->dstr_512__CLASS_SOURCE_EXPORTCOMMO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_512__CLASS_SOURCE_EXPORTCOMMO.val, "CLASS_SOURCE_EXPORTCOMMON", sizeof (meltcdat->dstr_512__CLASS_SOURCE_EXPORTCOMMO.val)-1); meltcdat->dstr_512__CLASS_SOURCE_EXPORTCOMMO.val[25] = (char)0 ; meltcdat->dstr_512__CLASS_SOURCE_EXPORTCOMMO.slen = 25 ; /*inimult dtup_513_syCLASS_SOURCE_EXPORTCOMMON*/ - /*_._VALTUP___V607*/ - meltfptr[606] = (melt_ptr_t) &meltcdat->dtup_513_syCLASS_SOURCE_EXPORTCOMMON; + /*_._VALTUP___V607*/ meltfptr[606] = (melt_ptr_t) &meltcdat->dtup_513_syCLASS_SOURCE_EXPORTCOMMON; meltcdat->dtup_513_syCLASS_SOURCE_EXPORTCOMMON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_513_syCLASS_SOURCE_EXPORTCOMMON.nbval = 4; /*inimult dtup_514_syCLASS_SOURCE_EXPORTCOMMON*/ - /*_._VALTUP___V610*/ - meltfptr[609] = (melt_ptr_t) &meltcdat->dtup_514_syCLASS_SOURCE_EXPORTCOMMON; + /*_._VALTUP___V610*/ meltfptr[609] = (melt_ptr_t) &meltcdat->dtup_514_syCLASS_SOURCE_EXPORTCOMMON; meltcdat->dtup_514_syCLASS_SOURCE_EXPORTCOMMON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_514_syCLASS_SOURCE_EXPORTCOMMON.nbval = 3; /*iniobj dsym_515__SEXPORT_NAMES*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V611*/ meltfptr[610]) + /*uniqueobj*/ if (!/*_._VALDATA___V611*/ meltfptr[610]) /*_._VALDATA___V611*/ meltfptr[610] = (melt_ptr_t )&meltcdat->dsym_515__SEXPORT_NAMES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_515__SEXPORT_NAMES", 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_515__SEXPORT_NAMES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16223,19 +14568,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_516__SEXPORT_NAMES*/ - /*_._VALSTR___V612*/ - meltfptr[611] = (melt_ptr_t) &meltcdat->dstr_516__SEXPORT_NAMES; + /*_._VALSTR___V612*/ meltfptr[611] = (melt_ptr_t) &meltcdat->dstr_516__SEXPORT_NAMES; meltcdat->dstr_516__SEXPORT_NAMES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_516__SEXPORT_NAMES.val, "SEXPORT_NAMES", sizeof (meltcdat->dstr_516__SEXPORT_NAMES.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_516__SEXPORT_NAMES.val, "SEXPORT_NAMES", sizeof (meltcdat->dstr_516__SEXPORT_NAMES.val)-1); meltcdat->dstr_516__SEXPORT_NAMES.val[13] = (char)0 ; meltcdat->dstr_516__SEXPORT_NAMES.slen = 13 ; /*^iniobj*/ /*iniobj dobj_517__SEXPORT_NAMES*/ - /*_._VALDATA___V608*/ - meltfptr[607] = (melt_ptr_t )&meltcdat->dobj_517__SEXPORT_NAMES; + /*_._VALDATA___V608*/ meltfptr[607] = (melt_ptr_t )&meltcdat->dobj_517__SEXPORT_NAMES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_517__SEXPORT_NAMES", 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_517__SEXPORT_NAMES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_517__SEXPORT_NAMES.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -16245,18 +14587,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_518__SEXPORT_NAMES*/ - /*_._VALSTR___V609*/ - meltfptr[608] = (melt_ptr_t) &meltcdat->dstr_518__SEXPORT_NAMES; + /*_._VALSTR___V609*/ meltfptr[608] = (melt_ptr_t) &meltcdat->dstr_518__SEXPORT_NAMES; meltcdat->dstr_518__SEXPORT_NAMES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_518__SEXPORT_NAMES.val, "SEXPORT_NAMES", sizeof (meltcdat->dstr_518__SEXPORT_NAMES.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_518__SEXPORT_NAMES.val, "SEXPORT_NAMES", sizeof (meltcdat->dstr_518__SEXPORT_NAMES.val)-1); meltcdat->dstr_518__SEXPORT_NAMES.val[13] = (char)0 ; meltcdat->dstr_518__SEXPORT_NAMES.slen = 13 ; /*iniobj dsym_519__CLASS_SOURCE_EXPORT_VALUES*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V613*/ meltfptr[612]) + /*uniqueobj*/ if (!/*_._VALDATA___V613*/ meltfptr[612]) /*_._VALDATA___V613*/ meltfptr[612] = (melt_ptr_t )&meltcdat->dsym_519__CLASS_SOURCE_EXPORT_VALUES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_519__CLASS_SOURCE_EXPORT_VALUES", 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_519__CLASS_SOURCE_EXPORT_VALUES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16266,19 +14605,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_520__CLASS_SOURCE_EXPORT_VALU*/ - /*_._VALSTR___V614*/ - meltfptr[613] = (melt_ptr_t) &meltcdat->dstr_520__CLASS_SOURCE_EXPORT_VALU; + /*_._VALSTR___V614*/ meltfptr[613] = (melt_ptr_t) &meltcdat->dstr_520__CLASS_SOURCE_EXPORT_VALU; meltcdat->dstr_520__CLASS_SOURCE_EXPORT_VALU.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_520__CLASS_SOURCE_EXPORT_VALU.val, "CLASS_SOURCE_EXPORT_VALUES", sizeof (meltcdat->dstr_520__CLASS_SOURCE_EXPORT_VALU.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_520__CLASS_SOURCE_EXPORT_VALU.val, "CLASS_SOURCE_EXPORT_VALUES", sizeof (meltcdat->dstr_520__CLASS_SOURCE_EXPORT_VALU.val)-1); meltcdat->dstr_520__CLASS_SOURCE_EXPORT_VALU.val[26] = (char)0 ; meltcdat->dstr_520__CLASS_SOURCE_EXPORT_VALU.slen = 26 ; MELT_LOCATION("warmelt-macro.melt:677:/ iniobj"); /*iniobj dobj_521__CLASS_SOURCE_EXPORT_VALUES*/ - /*_._VALDATA___V615*/ - meltfptr[614] = (melt_ptr_t )&meltcdat->dobj_521__CLASS_SOURCE_EXPORT_VALUES; + /*_._VALDATA___V615*/ meltfptr[614] = (melt_ptr_t )&meltcdat->dobj_521__CLASS_SOURCE_EXPORT_VALUES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_521__CLASS_SOURCE_EXPORT_VALUES", 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_521__CLASS_SOURCE_EXPORT_VALUES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_521__CLASS_SOURCE_EXPORT_VALUES.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -16288,28 +14624,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_522__CLASS_SOURCE_EXPORT_VALU*/ - /*_._VALSTR___V616*/ - meltfptr[615] = (melt_ptr_t) &meltcdat->dstr_522__CLASS_SOURCE_EXPORT_VALU; + /*_._VALSTR___V616*/ meltfptr[615] = (melt_ptr_t) &meltcdat->dstr_522__CLASS_SOURCE_EXPORT_VALU; meltcdat->dstr_522__CLASS_SOURCE_EXPORT_VALU.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_522__CLASS_SOURCE_EXPORT_VALU.val, "CLASS_SOURCE_EXPORT_VALUES", sizeof (meltcdat->dstr_522__CLASS_SOURCE_EXPORT_VALU.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_522__CLASS_SOURCE_EXPORT_VALU.val, "CLASS_SOURCE_EXPORT_VALUES", sizeof (meltcdat->dstr_522__CLASS_SOURCE_EXPORT_VALU.val)-1); meltcdat->dstr_522__CLASS_SOURCE_EXPORT_VALU.val[26] = (char)0 ; meltcdat->dstr_522__CLASS_SOURCE_EXPORT_VALU.slen = 26 ; /*inimult dtup_523_syCLASS_SOURCE_EXPORT_VALUES*/ - /*_._VALTUP___V617*/ - meltfptr[616] = (melt_ptr_t) &meltcdat->dtup_523_syCLASS_SOURCE_EXPORT_VALUES; + /*_._VALTUP___V617*/ meltfptr[616] = (melt_ptr_t) &meltcdat->dtup_523_syCLASS_SOURCE_EXPORT_VALUES; meltcdat->dtup_523_syCLASS_SOURCE_EXPORT_VALUES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_523_syCLASS_SOURCE_EXPORT_VALUES.nbval = 5; /*inimult dtup_524_syCLASS_SOURCE_EXPORT_VALUES*/ - /*_._VALTUP___V618*/ - meltfptr[617] = (melt_ptr_t) &meltcdat->dtup_524_syCLASS_SOURCE_EXPORT_VALUES; + /*_._VALTUP___V618*/ meltfptr[617] = (melt_ptr_t) &meltcdat->dtup_524_syCLASS_SOURCE_EXPORT_VALUES; meltcdat->dtup_524_syCLASS_SOURCE_EXPORT_VALUES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_524_syCLASS_SOURCE_EXPORT_VALUES.nbval = 3; /*iniobj dsym_525__CLASS_SOURCE_EXPORT_CLASS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V619*/ meltfptr[618]) + /*uniqueobj*/ if (!/*_._VALDATA___V619*/ meltfptr[618]) /*_._VALDATA___V619*/ meltfptr[618] = (melt_ptr_t )&meltcdat->dsym_525__CLASS_SOURCE_EXPORT_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_525__CLASS_SOURCE_EXPORT_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_525__CLASS_SOURCE_EXPORT_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16319,19 +14650,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_526__CLASS_SOURCE_EXPORT_CLAS*/ - /*_._VALSTR___V620*/ - meltfptr[619] = (melt_ptr_t) &meltcdat->dstr_526__CLASS_SOURCE_EXPORT_CLAS; + /*_._VALSTR___V620*/ meltfptr[619] = (melt_ptr_t) &meltcdat->dstr_526__CLASS_SOURCE_EXPORT_CLAS; meltcdat->dstr_526__CLASS_SOURCE_EXPORT_CLAS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_526__CLASS_SOURCE_EXPORT_CLAS.val, "CLASS_SOURCE_EXPORT_CLASS", sizeof (meltcdat->dstr_526__CLASS_SOURCE_EXPORT_CLAS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_526__CLASS_SOURCE_EXPORT_CLAS.val, "CLASS_SOURCE_EXPORT_CLASS", sizeof (meltcdat->dstr_526__CLASS_SOURCE_EXPORT_CLAS.val)-1); meltcdat->dstr_526__CLASS_SOURCE_EXPORT_CLAS.val[25] = (char)0 ; meltcdat->dstr_526__CLASS_SOURCE_EXPORT_CLAS.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:684:/ iniobj"); /*iniobj dobj_527__CLASS_SOURCE_EXPORT_CLASS*/ - /*_._VALDATA___V621*/ - meltfptr[620] = (melt_ptr_t )&meltcdat->dobj_527__CLASS_SOURCE_EXPORT_CLASS; + /*_._VALDATA___V621*/ meltfptr[620] = (melt_ptr_t )&meltcdat->dobj_527__CLASS_SOURCE_EXPORT_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_527__CLASS_SOURCE_EXPORT_CLASS", 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_527__CLASS_SOURCE_EXPORT_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_527__CLASS_SOURCE_EXPORT_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -16341,28 +14669,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_528__CLASS_SOURCE_EXPORT_CLAS*/ - /*_._VALSTR___V622*/ - meltfptr[621] = (melt_ptr_t) &meltcdat->dstr_528__CLASS_SOURCE_EXPORT_CLAS; + /*_._VALSTR___V622*/ meltfptr[621] = (melt_ptr_t) &meltcdat->dstr_528__CLASS_SOURCE_EXPORT_CLAS; meltcdat->dstr_528__CLASS_SOURCE_EXPORT_CLAS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_528__CLASS_SOURCE_EXPORT_CLAS.val, "CLASS_SOURCE_EXPORT_CLASS", sizeof (meltcdat->dstr_528__CLASS_SOURCE_EXPORT_CLAS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_528__CLASS_SOURCE_EXPORT_CLAS.val, "CLASS_SOURCE_EXPORT_CLASS", sizeof (meltcdat->dstr_528__CLASS_SOURCE_EXPORT_CLAS.val)-1); meltcdat->dstr_528__CLASS_SOURCE_EXPORT_CLAS.val[25] = (char)0 ; meltcdat->dstr_528__CLASS_SOURCE_EXPORT_CLAS.slen = 25 ; /*inimult dtup_529_syCLASS_SOURCE_EXPORT_CLASS*/ - /*_._VALTUP___V623*/ - meltfptr[622] = (melt_ptr_t) &meltcdat->dtup_529_syCLASS_SOURCE_EXPORT_CLASS; + /*_._VALTUP___V623*/ meltfptr[622] = (melt_ptr_t) &meltcdat->dtup_529_syCLASS_SOURCE_EXPORT_CLASS; meltcdat->dtup_529_syCLASS_SOURCE_EXPORT_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_529_syCLASS_SOURCE_EXPORT_CLASS.nbval = 5; /*inimult dtup_530_syCLASS_SOURCE_EXPORT_CLASS*/ - /*_._VALTUP___V624*/ - meltfptr[623] = (melt_ptr_t) &meltcdat->dtup_530_syCLASS_SOURCE_EXPORT_CLASS; + /*_._VALTUP___V624*/ meltfptr[623] = (melt_ptr_t) &meltcdat->dtup_530_syCLASS_SOURCE_EXPORT_CLASS; meltcdat->dtup_530_syCLASS_SOURCE_EXPORT_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_530_syCLASS_SOURCE_EXPORT_CLASS.nbval = 3; /*iniobj dsym_531__CLASS_SOURCE_EXPORT_ANY_MACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V625*/ meltfptr[624]) + /*uniqueobj*/ if (!/*_._VALDATA___V625*/ meltfptr[624]) /*_._VALDATA___V625*/ meltfptr[624] = (melt_ptr_t )&meltcdat->dsym_531__CLASS_SOURCE_EXPORT_ANY_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_531__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_531__CLASS_SOURCE_EXPORT_ANY_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16372,19 +14695,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_532__CLASS_SOURCE_EXPORT_ANY_*/ - /*_._VALSTR___V626*/ - meltfptr[625] = (melt_ptr_t) &meltcdat->dstr_532__CLASS_SOURCE_EXPORT_ANY_; + /*_._VALSTR___V626*/ meltfptr[625] = (melt_ptr_t) &meltcdat->dstr_532__CLASS_SOURCE_EXPORT_ANY_; meltcdat->dstr_532__CLASS_SOURCE_EXPORT_ANY_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_532__CLASS_SOURCE_EXPORT_ANY_.val, "CLASS_SOURCE_EXPORT_ANY_MACRO", sizeof (meltcdat->dstr_532__CLASS_SOURCE_EXPORT_ANY_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_532__CLASS_SOURCE_EXPORT_ANY_.val, "CLASS_SOURCE_EXPORT_ANY_MACRO", sizeof (meltcdat->dstr_532__CLASS_SOURCE_EXPORT_ANY_.val)-1); meltcdat->dstr_532__CLASS_SOURCE_EXPORT_ANY_.val[29] = (char)0 ; meltcdat->dstr_532__CLASS_SOURCE_EXPORT_ANY_.slen = 29 ; MELT_LOCATION("warmelt-macro.melt:692:/ iniobj"); /*iniobj dobj_533__CLASS_SOURCE_EXPORT_ANY_MACRO*/ - /*_._VALDATA___V627*/ - meltfptr[626] = (melt_ptr_t )&meltcdat->dobj_533__CLASS_SOURCE_EXPORT_ANY_MACRO; + /*_._VALDATA___V627*/ meltfptr[626] = (melt_ptr_t )&meltcdat->dobj_533__CLASS_SOURCE_EXPORT_ANY_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_533__CLASS_SOURCE_EXPORT_ANY_MACRO", 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_533__CLASS_SOURCE_EXPORT_ANY_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_533__CLASS_SOURCE_EXPORT_ANY_MACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -16394,28 +14714,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_534__CLASS_SOURCE_EXPORT_ANY_*/ - /*_._VALSTR___V628*/ - meltfptr[627] = (melt_ptr_t) &meltcdat->dstr_534__CLASS_SOURCE_EXPORT_ANY_; + /*_._VALSTR___V628*/ meltfptr[627] = (melt_ptr_t) &meltcdat->dstr_534__CLASS_SOURCE_EXPORT_ANY_; meltcdat->dstr_534__CLASS_SOURCE_EXPORT_ANY_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_534__CLASS_SOURCE_EXPORT_ANY_.val, "CLASS_SOURCE_EXPORT_ANY_MACRO", sizeof (meltcdat->dstr_534__CLASS_SOURCE_EXPORT_ANY_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_534__CLASS_SOURCE_EXPORT_ANY_.val, "CLASS_SOURCE_EXPORT_ANY_MACRO", sizeof (meltcdat->dstr_534__CLASS_SOURCE_EXPORT_ANY_.val)-1); meltcdat->dstr_534__CLASS_SOURCE_EXPORT_ANY_.val[29] = (char)0 ; meltcdat->dstr_534__CLASS_SOURCE_EXPORT_ANY_.slen = 29 ; /*inimult dtup_535_syCLASS_SOURCE_EXPORT_ANY_MACRO*/ - /*_._VALTUP___V629*/ - meltfptr[628] = (melt_ptr_t) &meltcdat->dtup_535_syCLASS_SOURCE_EXPORT_ANY_MACRO; + /*_._VALTUP___V629*/ meltfptr[628] = (melt_ptr_t) &meltcdat->dtup_535_syCLASS_SOURCE_EXPORT_ANY_MACRO; meltcdat->dtup_535_syCLASS_SOURCE_EXPORT_ANY_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_535_syCLASS_SOURCE_EXPORT_ANY_MACRO.nbval = 4; /*inimult dtup_536_syCLASS_SOURCE_EXPORT_ANY_MACRO*/ - /*_._VALTUP___V634*/ - meltfptr[633] = (melt_ptr_t) &meltcdat->dtup_536_syCLASS_SOURCE_EXPORT_ANY_MACRO; + /*_._VALTUP___V634*/ meltfptr[633] = (melt_ptr_t) &meltcdat->dtup_536_syCLASS_SOURCE_EXPORT_ANY_MACRO; meltcdat->dtup_536_syCLASS_SOURCE_EXPORT_ANY_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_536_syCLASS_SOURCE_EXPORT_ANY_MACRO.nbval = 4; /*iniobj dsym_537__SEXPMAC_MNAME*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V635*/ meltfptr[634]) + /*uniqueobj*/ if (!/*_._VALDATA___V635*/ meltfptr[634]) /*_._VALDATA___V635*/ meltfptr[634] = (melt_ptr_t )&meltcdat->dsym_537__SEXPMAC_MNAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_537__SEXPMAC_MNAME", 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_537__SEXPMAC_MNAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16425,19 +14740,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_538__SEXPMAC_MNAME*/ - /*_._VALSTR___V636*/ - meltfptr[635] = (melt_ptr_t) &meltcdat->dstr_538__SEXPMAC_MNAME; + /*_._VALSTR___V636*/ meltfptr[635] = (melt_ptr_t) &meltcdat->dstr_538__SEXPMAC_MNAME; meltcdat->dstr_538__SEXPMAC_MNAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_538__SEXPMAC_MNAME.val, "SEXPMAC_MNAME", sizeof (meltcdat->dstr_538__SEXPMAC_MNAME.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_538__SEXPMAC_MNAME.val, "SEXPMAC_MNAME", sizeof (meltcdat->dstr_538__SEXPMAC_MNAME.val)-1); meltcdat->dstr_538__SEXPMAC_MNAME.val[13] = (char)0 ; meltcdat->dstr_538__SEXPMAC_MNAME.slen = 13 ; /*^iniobj*/ /*iniobj dobj_539__SEXPMAC_MNAME*/ - /*_._VALDATA___V630*/ - meltfptr[629] = (melt_ptr_t )&meltcdat->dobj_539__SEXPMAC_MNAME; + /*_._VALDATA___V630*/ meltfptr[629] = (melt_ptr_t )&meltcdat->dobj_539__SEXPMAC_MNAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_539__SEXPMAC_MNAME", 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_539__SEXPMAC_MNAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_539__SEXPMAC_MNAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -16447,18 +14759,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_540__SEXPMAC_MNAME*/ - /*_._VALSTR___V631*/ - meltfptr[630] = (melt_ptr_t) &meltcdat->dstr_540__SEXPMAC_MNAME; + /*_._VALSTR___V631*/ meltfptr[630] = (melt_ptr_t) &meltcdat->dstr_540__SEXPMAC_MNAME; meltcdat->dstr_540__SEXPMAC_MNAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_540__SEXPMAC_MNAME.val, "SEXPMAC_MNAME", sizeof (meltcdat->dstr_540__SEXPMAC_MNAME.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_540__SEXPMAC_MNAME.val, "SEXPMAC_MNAME", sizeof (meltcdat->dstr_540__SEXPMAC_MNAME.val)-1); meltcdat->dstr_540__SEXPMAC_MNAME.val[13] = (char)0 ; meltcdat->dstr_540__SEXPMAC_MNAME.slen = 13 ; /*iniobj dsym_541__SEXPMAC_DOC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V637*/ meltfptr[636]) + /*uniqueobj*/ if (!/*_._VALDATA___V637*/ meltfptr[636]) /*_._VALDATA___V637*/ meltfptr[636] = (melt_ptr_t )&meltcdat->dsym_541__SEXPMAC_DOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_541__SEXPMAC_DOC", 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_541__SEXPMAC_DOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16468,19 +14777,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_542__SEXPMAC_DOC*/ - /*_._VALSTR___V638*/ - meltfptr[637] = (melt_ptr_t) &meltcdat->dstr_542__SEXPMAC_DOC; + /*_._VALSTR___V638*/ meltfptr[637] = (melt_ptr_t) &meltcdat->dstr_542__SEXPMAC_DOC; meltcdat->dstr_542__SEXPMAC_DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_542__SEXPMAC_DOC.val, "SEXPMAC_DOC", sizeof (meltcdat->dstr_542__SEXPMAC_DOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_542__SEXPMAC_DOC.val, "SEXPMAC_DOC", sizeof (meltcdat->dstr_542__SEXPMAC_DOC.val)-1); meltcdat->dstr_542__SEXPMAC_DOC.val[11] = (char)0 ; meltcdat->dstr_542__SEXPMAC_DOC.slen = 11 ; /*^iniobj*/ /*iniobj dobj_543__SEXPMAC_DOC*/ - /*_._VALDATA___V632*/ - meltfptr[631] = (melt_ptr_t )&meltcdat->dobj_543__SEXPMAC_DOC; + /*_._VALDATA___V632*/ meltfptr[631] = (melt_ptr_t )&meltcdat->dobj_543__SEXPMAC_DOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_543__SEXPMAC_DOC", 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_543__SEXPMAC_DOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_543__SEXPMAC_DOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -16490,18 +14796,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_544__SEXPMAC_DOC*/ - /*_._VALSTR___V633*/ - meltfptr[632] = (melt_ptr_t) &meltcdat->dstr_544__SEXPMAC_DOC; + /*_._VALSTR___V633*/ meltfptr[632] = (melt_ptr_t) &meltcdat->dstr_544__SEXPMAC_DOC; meltcdat->dstr_544__SEXPMAC_DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_544__SEXPMAC_DOC.val, "SEXPMAC_DOC", sizeof (meltcdat->dstr_544__SEXPMAC_DOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_544__SEXPMAC_DOC.val, "SEXPMAC_DOC", sizeof (meltcdat->dstr_544__SEXPMAC_DOC.val)-1); meltcdat->dstr_544__SEXPMAC_DOC.val[11] = (char)0 ; meltcdat->dstr_544__SEXPMAC_DOC.slen = 11 ; /*iniobj dsym_545__CLASS_SOURCE_EXPORT_MACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V639*/ meltfptr[638]) + /*uniqueobj*/ if (!/*_._VALDATA___V639*/ meltfptr[638]) /*_._VALDATA___V639*/ meltfptr[638] = (melt_ptr_t )&meltcdat->dsym_545__CLASS_SOURCE_EXPORT_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_545__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_545__CLASS_SOURCE_EXPORT_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16511,19 +14814,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_546__CLASS_SOURCE_EXPORT_MACR*/ - /*_._VALSTR___V640*/ - meltfptr[639] = (melt_ptr_t) &meltcdat->dstr_546__CLASS_SOURCE_EXPORT_MACR; + /*_._VALSTR___V640*/ meltfptr[639] = (melt_ptr_t) &meltcdat->dstr_546__CLASS_SOURCE_EXPORT_MACR; meltcdat->dstr_546__CLASS_SOURCE_EXPORT_MACR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_546__CLASS_SOURCE_EXPORT_MACR.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (meltcdat->dstr_546__CLASS_SOURCE_EXPORT_MACR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_546__CLASS_SOURCE_EXPORT_MACR.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (meltcdat->dstr_546__CLASS_SOURCE_EXPORT_MACR.val)-1); meltcdat->dstr_546__CLASS_SOURCE_EXPORT_MACR.val[25] = (char)0 ; meltcdat->dstr_546__CLASS_SOURCE_EXPORT_MACR.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:704:/ iniobj"); /*iniobj dobj_547__CLASS_SOURCE_EXPORT_MACRO*/ - /*_._VALDATA___V641*/ - meltfptr[640] = (melt_ptr_t )&meltcdat->dobj_547__CLASS_SOURCE_EXPORT_MACRO; + /*_._VALDATA___V641*/ meltfptr[640] = (melt_ptr_t )&meltcdat->dobj_547__CLASS_SOURCE_EXPORT_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_547__CLASS_SOURCE_EXPORT_MACRO", 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_547__CLASS_SOURCE_EXPORT_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_547__CLASS_SOURCE_EXPORT_MACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -16533,28 +14833,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_548__CLASS_SOURCE_EXPORT_MACR*/ - /*_._VALSTR___V642*/ - meltfptr[641] = (melt_ptr_t) &meltcdat->dstr_548__CLASS_SOURCE_EXPORT_MACR; + /*_._VALSTR___V642*/ meltfptr[641] = (melt_ptr_t) &meltcdat->dstr_548__CLASS_SOURCE_EXPORT_MACR; meltcdat->dstr_548__CLASS_SOURCE_EXPORT_MACR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_548__CLASS_SOURCE_EXPORT_MACR.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (meltcdat->dstr_548__CLASS_SOURCE_EXPORT_MACR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_548__CLASS_SOURCE_EXPORT_MACR.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (meltcdat->dstr_548__CLASS_SOURCE_EXPORT_MACR.val)-1); meltcdat->dstr_548__CLASS_SOURCE_EXPORT_MACR.val[25] = (char)0 ; meltcdat->dstr_548__CLASS_SOURCE_EXPORT_MACR.slen = 25 ; /*inimult dtup_549_syCLASS_SOURCE_EXPORT_MACRO*/ - /*_._VALTUP___V643*/ - meltfptr[642] = (melt_ptr_t) &meltcdat->dtup_549_syCLASS_SOURCE_EXPORT_MACRO; + /*_._VALTUP___V643*/ meltfptr[642] = (melt_ptr_t) &meltcdat->dtup_549_syCLASS_SOURCE_EXPORT_MACRO; meltcdat->dtup_549_syCLASS_SOURCE_EXPORT_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_549_syCLASS_SOURCE_EXPORT_MACRO.nbval = 5; /*inimult dtup_550_syCLASS_SOURCE_EXPORT_MACRO*/ - /*_._VALTUP___V646*/ - meltfptr[645] = (melt_ptr_t) &meltcdat->dtup_550_syCLASS_SOURCE_EXPORT_MACRO; + /*_._VALTUP___V646*/ meltfptr[645] = (melt_ptr_t) &meltcdat->dtup_550_syCLASS_SOURCE_EXPORT_MACRO; meltcdat->dtup_550_syCLASS_SOURCE_EXPORT_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_550_syCLASS_SOURCE_EXPORT_MACRO.nbval = 5; /*iniobj dsym_551__SEXPMAC_MVAL*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V647*/ meltfptr[646]) + /*uniqueobj*/ if (!/*_._VALDATA___V647*/ meltfptr[646]) /*_._VALDATA___V647*/ meltfptr[646] = (melt_ptr_t )&meltcdat->dsym_551__SEXPMAC_MVAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_551__SEXPMAC_MVAL", 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_551__SEXPMAC_MVAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16564,19 +14859,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_552__SEXPMAC_MVAL*/ - /*_._VALSTR___V648*/ - meltfptr[647] = (melt_ptr_t) &meltcdat->dstr_552__SEXPMAC_MVAL; + /*_._VALSTR___V648*/ meltfptr[647] = (melt_ptr_t) &meltcdat->dstr_552__SEXPMAC_MVAL; meltcdat->dstr_552__SEXPMAC_MVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_552__SEXPMAC_MVAL.val, "SEXPMAC_MVAL", sizeof (meltcdat->dstr_552__SEXPMAC_MVAL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_552__SEXPMAC_MVAL.val, "SEXPMAC_MVAL", sizeof (meltcdat->dstr_552__SEXPMAC_MVAL.val)-1); meltcdat->dstr_552__SEXPMAC_MVAL.val[12] = (char)0 ; meltcdat->dstr_552__SEXPMAC_MVAL.slen = 12 ; /*^iniobj*/ /*iniobj dobj_553__SEXPMAC_MVAL*/ - /*_._VALDATA___V644*/ - meltfptr[643] = (melt_ptr_t )&meltcdat->dobj_553__SEXPMAC_MVAL; + /*_._VALDATA___V644*/ meltfptr[643] = (melt_ptr_t )&meltcdat->dobj_553__SEXPMAC_MVAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_553__SEXPMAC_MVAL", 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_553__SEXPMAC_MVAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_553__SEXPMAC_MVAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -16586,18 +14878,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_554__SEXPMAC_MVAL*/ - /*_._VALSTR___V645*/ - meltfptr[644] = (melt_ptr_t) &meltcdat->dstr_554__SEXPMAC_MVAL; + /*_._VALSTR___V645*/ meltfptr[644] = (melt_ptr_t) &meltcdat->dstr_554__SEXPMAC_MVAL; meltcdat->dstr_554__SEXPMAC_MVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_554__SEXPMAC_MVAL.val, "SEXPMAC_MVAL", sizeof (meltcdat->dstr_554__SEXPMAC_MVAL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_554__SEXPMAC_MVAL.val, "SEXPMAC_MVAL", sizeof (meltcdat->dstr_554__SEXPMAC_MVAL.val)-1); meltcdat->dstr_554__SEXPMAC_MVAL.val[12] = (char)0 ; meltcdat->dstr_554__SEXPMAC_MVAL.slen = 12 ; /*iniobj dsym_555__CLASS_SOURCE_EXPORT_DEFMACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V649*/ meltfptr[648]) + /*uniqueobj*/ if (!/*_._VALDATA___V649*/ meltfptr[648]) /*_._VALDATA___V649*/ meltfptr[648] = (melt_ptr_t )&meltcdat->dsym_555__CLASS_SOURCE_EXPORT_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_555__CLASS_SOURCE_EXPORT_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_555__CLASS_SOURCE_EXPORT_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16607,19 +14896,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_556__CLASS_SOURCE_EXPORT_DEFM*/ - /*_._VALSTR___V650*/ - meltfptr[649] = (melt_ptr_t) &meltcdat->dstr_556__CLASS_SOURCE_EXPORT_DEFM; + /*_._VALSTR___V650*/ meltfptr[649] = (melt_ptr_t) &meltcdat->dstr_556__CLASS_SOURCE_EXPORT_DEFM; meltcdat->dstr_556__CLASS_SOURCE_EXPORT_DEFM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_556__CLASS_SOURCE_EXPORT_DEFM.val, "CLASS_SOURCE_EXPORT_DEFMACRO", sizeof (meltcdat->dstr_556__CLASS_SOURCE_EXPORT_DEFM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_556__CLASS_SOURCE_EXPORT_DEFM.val, "CLASS_SOURCE_EXPORT_DEFMACRO", sizeof (meltcdat->dstr_556__CLASS_SOURCE_EXPORT_DEFM.val)-1); meltcdat->dstr_556__CLASS_SOURCE_EXPORT_DEFM.val[28] = (char)0 ; meltcdat->dstr_556__CLASS_SOURCE_EXPORT_DEFM.slen = 28 ; MELT_LOCATION("warmelt-macro.melt:714:/ iniobj"); /*iniobj dobj_557__CLASS_SOURCE_EXPORT_DEFMACRO*/ - /*_._VALDATA___V651*/ - meltfptr[650] = (melt_ptr_t )&meltcdat->dobj_557__CLASS_SOURCE_EXPORT_DEFMACRO; + /*_._VALDATA___V651*/ meltfptr[650] = (melt_ptr_t )&meltcdat->dobj_557__CLASS_SOURCE_EXPORT_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_557__CLASS_SOURCE_EXPORT_DEFMACRO", 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_557__CLASS_SOURCE_EXPORT_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_557__CLASS_SOURCE_EXPORT_DEFMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -16629,28 +14915,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_558__CLASS_SOURCE_EXPORT_DEFM*/ - /*_._VALSTR___V652*/ - meltfptr[651] = (melt_ptr_t) &meltcdat->dstr_558__CLASS_SOURCE_EXPORT_DEFM; + /*_._VALSTR___V652*/ meltfptr[651] = (melt_ptr_t) &meltcdat->dstr_558__CLASS_SOURCE_EXPORT_DEFM; meltcdat->dstr_558__CLASS_SOURCE_EXPORT_DEFM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_558__CLASS_SOURCE_EXPORT_DEFM.val, "CLASS_SOURCE_EXPORT_DEFMACRO", sizeof (meltcdat->dstr_558__CLASS_SOURCE_EXPORT_DEFM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_558__CLASS_SOURCE_EXPORT_DEFM.val, "CLASS_SOURCE_EXPORT_DEFMACRO", sizeof (meltcdat->dstr_558__CLASS_SOURCE_EXPORT_DEFM.val)-1); meltcdat->dstr_558__CLASS_SOURCE_EXPORT_DEFM.val[28] = (char)0 ; meltcdat->dstr_558__CLASS_SOURCE_EXPORT_DEFM.slen = 28 ; /*inimult dtup_559_syCLASS_SOURCE_EXPORT_DEFMACRO*/ - /*_._VALTUP___V653*/ - meltfptr[652] = (melt_ptr_t) &meltcdat->dtup_559_syCLASS_SOURCE_EXPORT_DEFMACRO; + /*_._VALTUP___V653*/ meltfptr[652] = (melt_ptr_t) &meltcdat->dtup_559_syCLASS_SOURCE_EXPORT_DEFMACRO; meltcdat->dtup_559_syCLASS_SOURCE_EXPORT_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_559_syCLASS_SOURCE_EXPORT_DEFMACRO.nbval = 5; /*inimult dtup_560_syCLASS_SOURCE_EXPORT_DEFMACRO*/ - /*_._VALTUP___V654*/ - meltfptr[653] = (melt_ptr_t) &meltcdat->dtup_560_syCLASS_SOURCE_EXPORT_DEFMACRO; + /*_._VALTUP___V654*/ meltfptr[653] = (melt_ptr_t) &meltcdat->dtup_560_syCLASS_SOURCE_EXPORT_DEFMACRO; meltcdat->dtup_560_syCLASS_SOURCE_EXPORT_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_560_syCLASS_SOURCE_EXPORT_DEFMACRO.nbval = 4; /*iniobj dsym_561__CLASS_SOURCE_EXPORT_PATMACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V655*/ meltfptr[654]) + /*uniqueobj*/ if (!/*_._VALDATA___V655*/ meltfptr[654]) /*_._VALDATA___V655*/ meltfptr[654] = (melt_ptr_t )&meltcdat->dsym_561__CLASS_SOURCE_EXPORT_PATMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_561__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_561__CLASS_SOURCE_EXPORT_PATMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16660,19 +14941,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_562__CLASS_SOURCE_EXPORT_PATM*/ - /*_._VALSTR___V656*/ - meltfptr[655] = (melt_ptr_t) &meltcdat->dstr_562__CLASS_SOURCE_EXPORT_PATM; + /*_._VALSTR___V656*/ meltfptr[655] = (melt_ptr_t) &meltcdat->dstr_562__CLASS_SOURCE_EXPORT_PATM; meltcdat->dstr_562__CLASS_SOURCE_EXPORT_PATM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_562__CLASS_SOURCE_EXPORT_PATM.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (meltcdat->dstr_562__CLASS_SOURCE_EXPORT_PATM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_562__CLASS_SOURCE_EXPORT_PATM.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (meltcdat->dstr_562__CLASS_SOURCE_EXPORT_PATM.val)-1); meltcdat->dstr_562__CLASS_SOURCE_EXPORT_PATM.val[28] = (char)0 ; meltcdat->dstr_562__CLASS_SOURCE_EXPORT_PATM.slen = 28 ; MELT_LOCATION("warmelt-macro.melt:723:/ iniobj"); /*iniobj dobj_563__CLASS_SOURCE_EXPORT_PATMACRO*/ - /*_._VALDATA___V657*/ - meltfptr[656] = (melt_ptr_t )&meltcdat->dobj_563__CLASS_SOURCE_EXPORT_PATMACRO; + /*_._VALDATA___V657*/ meltfptr[656] = (melt_ptr_t )&meltcdat->dobj_563__CLASS_SOURCE_EXPORT_PATMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_563__CLASS_SOURCE_EXPORT_PATMACRO", 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_563__CLASS_SOURCE_EXPORT_PATMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_563__CLASS_SOURCE_EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -16682,28 +14960,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_564__CLASS_SOURCE_EXPORT_PATM*/ - /*_._VALSTR___V658*/ - meltfptr[657] = (melt_ptr_t) &meltcdat->dstr_564__CLASS_SOURCE_EXPORT_PATM; + /*_._VALSTR___V658*/ meltfptr[657] = (melt_ptr_t) &meltcdat->dstr_564__CLASS_SOURCE_EXPORT_PATM; meltcdat->dstr_564__CLASS_SOURCE_EXPORT_PATM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_564__CLASS_SOURCE_EXPORT_PATM.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (meltcdat->dstr_564__CLASS_SOURCE_EXPORT_PATM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_564__CLASS_SOURCE_EXPORT_PATM.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (meltcdat->dstr_564__CLASS_SOURCE_EXPORT_PATM.val)-1); meltcdat->dstr_564__CLASS_SOURCE_EXPORT_PATM.val[28] = (char)0 ; meltcdat->dstr_564__CLASS_SOURCE_EXPORT_PATM.slen = 28 ; /*inimult dtup_565_syCLASS_SOURCE_EXPORT_PATMACRO*/ - /*_._VALTUP___V659*/ - meltfptr[658] = (melt_ptr_t) &meltcdat->dtup_565_syCLASS_SOURCE_EXPORT_PATMACRO; + /*_._VALTUP___V659*/ meltfptr[658] = (melt_ptr_t) &meltcdat->dtup_565_syCLASS_SOURCE_EXPORT_PATMACRO; meltcdat->dtup_565_syCLASS_SOURCE_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_565_syCLASS_SOURCE_EXPORT_PATMACRO.nbval = 6; /*inimult dtup_566_syCLASS_SOURCE_EXPORT_PATMACRO*/ - /*_._VALTUP___V662*/ - meltfptr[661] = (melt_ptr_t) &meltcdat->dtup_566_syCLASS_SOURCE_EXPORT_PATMACRO; + /*_._VALTUP___V662*/ meltfptr[661] = (melt_ptr_t) &meltcdat->dtup_566_syCLASS_SOURCE_EXPORT_PATMACRO; meltcdat->dtup_566_syCLASS_SOURCE_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_566_syCLASS_SOURCE_EXPORT_PATMACRO.nbval = 6; /*iniobj dsym_567__SEXPPAT_PVAL*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V663*/ meltfptr[662]) + /*uniqueobj*/ if (!/*_._VALDATA___V663*/ meltfptr[662]) /*_._VALDATA___V663*/ meltfptr[662] = (melt_ptr_t )&meltcdat->dsym_567__SEXPPAT_PVAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_567__SEXPPAT_PVAL", 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_567__SEXPPAT_PVAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16713,19 +14986,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_568__SEXPPAT_PVAL*/ - /*_._VALSTR___V664*/ - meltfptr[663] = (melt_ptr_t) &meltcdat->dstr_568__SEXPPAT_PVAL; + /*_._VALSTR___V664*/ meltfptr[663] = (melt_ptr_t) &meltcdat->dstr_568__SEXPPAT_PVAL; meltcdat->dstr_568__SEXPPAT_PVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_568__SEXPPAT_PVAL.val, "SEXPPAT_PVAL", sizeof (meltcdat->dstr_568__SEXPPAT_PVAL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_568__SEXPPAT_PVAL.val, "SEXPPAT_PVAL", sizeof (meltcdat->dstr_568__SEXPPAT_PVAL.val)-1); meltcdat->dstr_568__SEXPPAT_PVAL.val[12] = (char)0 ; meltcdat->dstr_568__SEXPPAT_PVAL.slen = 12 ; /*^iniobj*/ /*iniobj dobj_569__SEXPPAT_PVAL*/ - /*_._VALDATA___V660*/ - meltfptr[659] = (melt_ptr_t )&meltcdat->dobj_569__SEXPPAT_PVAL; + /*_._VALDATA___V660*/ meltfptr[659] = (melt_ptr_t )&meltcdat->dobj_569__SEXPPAT_PVAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_569__SEXPPAT_PVAL", 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_569__SEXPPAT_PVAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_569__SEXPPAT_PVAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -16735,18 +15005,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_570__SEXPPAT_PVAL*/ - /*_._VALSTR___V661*/ - meltfptr[660] = (melt_ptr_t) &meltcdat->dstr_570__SEXPPAT_PVAL; + /*_._VALSTR___V661*/ meltfptr[660] = (melt_ptr_t) &meltcdat->dstr_570__SEXPPAT_PVAL; meltcdat->dstr_570__SEXPPAT_PVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_570__SEXPPAT_PVAL.val, "SEXPPAT_PVAL", sizeof (meltcdat->dstr_570__SEXPPAT_PVAL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_570__SEXPPAT_PVAL.val, "SEXPPAT_PVAL", sizeof (meltcdat->dstr_570__SEXPPAT_PVAL.val)-1); meltcdat->dstr_570__SEXPPAT_PVAL.val[12] = (char)0 ; meltcdat->dstr_570__SEXPPAT_PVAL.slen = 12 ; /*iniobj dsym_571__CLASS_SOURCE_EXPORT_SYNONYM*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V665*/ meltfptr[664]) + /*uniqueobj*/ if (!/*_._VALDATA___V665*/ meltfptr[664]) /*_._VALDATA___V665*/ meltfptr[664] = (melt_ptr_t )&meltcdat->dsym_571__CLASS_SOURCE_EXPORT_SYNONYM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_571__CLASS_SOURCE_EXPORT_SYNONYM", 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_571__CLASS_SOURCE_EXPORT_SYNONYM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16756,19 +15023,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_572__CLASS_SOURCE_EXPORT_SYNO*/ - /*_._VALSTR___V666*/ - meltfptr[665] = (melt_ptr_t) &meltcdat->dstr_572__CLASS_SOURCE_EXPORT_SYNO; + /*_._VALSTR___V666*/ meltfptr[665] = (melt_ptr_t) &meltcdat->dstr_572__CLASS_SOURCE_EXPORT_SYNO; meltcdat->dstr_572__CLASS_SOURCE_EXPORT_SYNO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_572__CLASS_SOURCE_EXPORT_SYNO.val, "CLASS_SOURCE_EXPORT_SYNONYM", sizeof (meltcdat->dstr_572__CLASS_SOURCE_EXPORT_SYNO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_572__CLASS_SOURCE_EXPORT_SYNO.val, "CLASS_SOURCE_EXPORT_SYNONYM", sizeof (meltcdat->dstr_572__CLASS_SOURCE_EXPORT_SYNO.val)-1); meltcdat->dstr_572__CLASS_SOURCE_EXPORT_SYNO.val[27] = (char)0 ; meltcdat->dstr_572__CLASS_SOURCE_EXPORT_SYNO.slen = 27 ; MELT_LOCATION("warmelt-macro.melt:735:/ iniobj"); /*iniobj dobj_573__CLASS_SOURCE_EXPORT_SYNONYM*/ - /*_._VALDATA___V667*/ - meltfptr[666] = (melt_ptr_t )&meltcdat->dobj_573__CLASS_SOURCE_EXPORT_SYNONYM; + /*_._VALDATA___V667*/ meltfptr[666] = (melt_ptr_t )&meltcdat->dobj_573__CLASS_SOURCE_EXPORT_SYNONYM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_573__CLASS_SOURCE_EXPORT_SYNONYM", 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_573__CLASS_SOURCE_EXPORT_SYNONYM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_573__CLASS_SOURCE_EXPORT_SYNONYM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -16778,28 +15042,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_574__CLASS_SOURCE_EXPORT_SYNO*/ - /*_._VALSTR___V668*/ - meltfptr[667] = (melt_ptr_t) &meltcdat->dstr_574__CLASS_SOURCE_EXPORT_SYNO; + /*_._VALSTR___V668*/ meltfptr[667] = (melt_ptr_t) &meltcdat->dstr_574__CLASS_SOURCE_EXPORT_SYNO; meltcdat->dstr_574__CLASS_SOURCE_EXPORT_SYNO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_574__CLASS_SOURCE_EXPORT_SYNO.val, "CLASS_SOURCE_EXPORT_SYNONYM", sizeof (meltcdat->dstr_574__CLASS_SOURCE_EXPORT_SYNO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_574__CLASS_SOURCE_EXPORT_SYNO.val, "CLASS_SOURCE_EXPORT_SYNONYM", sizeof (meltcdat->dstr_574__CLASS_SOURCE_EXPORT_SYNO.val)-1); meltcdat->dstr_574__CLASS_SOURCE_EXPORT_SYNO.val[27] = (char)0 ; meltcdat->dstr_574__CLASS_SOURCE_EXPORT_SYNO.slen = 27 ; /*inimult dtup_575_syCLASS_SOURCE_EXPORT_SYNONYM*/ - /*_._VALTUP___V669*/ - meltfptr[668] = (melt_ptr_t) &meltcdat->dtup_575_syCLASS_SOURCE_EXPORT_SYNONYM; + /*_._VALTUP___V669*/ meltfptr[668] = (melt_ptr_t) &meltcdat->dtup_575_syCLASS_SOURCE_EXPORT_SYNONYM; meltcdat->dtup_575_syCLASS_SOURCE_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_575_syCLASS_SOURCE_EXPORT_SYNONYM.nbval = 4; /*inimult dtup_576_syCLASS_SOURCE_EXPORT_SYNONYM*/ - /*_._VALTUP___V676*/ - meltfptr[675] = (melt_ptr_t) &meltcdat->dtup_576_syCLASS_SOURCE_EXPORT_SYNONYM; + /*_._VALTUP___V676*/ meltfptr[675] = (melt_ptr_t) &meltcdat->dtup_576_syCLASS_SOURCE_EXPORT_SYNONYM; meltcdat->dtup_576_syCLASS_SOURCE_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_576_syCLASS_SOURCE_EXPORT_SYNONYM.nbval = 5; /*iniobj dsym_577__SEXPSYN_NEWNAME*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V677*/ meltfptr[676]) + /*uniqueobj*/ if (!/*_._VALDATA___V677*/ meltfptr[676]) /*_._VALDATA___V677*/ meltfptr[676] = (melt_ptr_t )&meltcdat->dsym_577__SEXPSYN_NEWNAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_577__SEXPSYN_NEWNAME", 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_577__SEXPSYN_NEWNAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16809,19 +15068,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_578__SEXPSYN_NEWNAME*/ - /*_._VALSTR___V678*/ - meltfptr[677] = (melt_ptr_t) &meltcdat->dstr_578__SEXPSYN_NEWNAME; + /*_._VALSTR___V678*/ meltfptr[677] = (melt_ptr_t) &meltcdat->dstr_578__SEXPSYN_NEWNAME; meltcdat->dstr_578__SEXPSYN_NEWNAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_578__SEXPSYN_NEWNAME.val, "SEXPSYN_NEWNAME", sizeof (meltcdat->dstr_578__SEXPSYN_NEWNAME.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_578__SEXPSYN_NEWNAME.val, "SEXPSYN_NEWNAME", sizeof (meltcdat->dstr_578__SEXPSYN_NEWNAME.val)-1); meltcdat->dstr_578__SEXPSYN_NEWNAME.val[15] = (char)0 ; meltcdat->dstr_578__SEXPSYN_NEWNAME.slen = 15 ; /*^iniobj*/ /*iniobj dobj_579__SEXPSYN_NEWNAME*/ - /*_._VALDATA___V670*/ - meltfptr[669] = (melt_ptr_t )&meltcdat->dobj_579__SEXPSYN_NEWNAME; + /*_._VALDATA___V670*/ meltfptr[669] = (melt_ptr_t )&meltcdat->dobj_579__SEXPSYN_NEWNAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_579__SEXPSYN_NEWNAME", 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_579__SEXPSYN_NEWNAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_579__SEXPSYN_NEWNAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -16831,18 +15087,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_580__SEXPSYN_NEWNAME*/ - /*_._VALSTR___V671*/ - meltfptr[670] = (melt_ptr_t) &meltcdat->dstr_580__SEXPSYN_NEWNAME; + /*_._VALSTR___V671*/ meltfptr[670] = (melt_ptr_t) &meltcdat->dstr_580__SEXPSYN_NEWNAME; meltcdat->dstr_580__SEXPSYN_NEWNAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_580__SEXPSYN_NEWNAME.val, "SEXPSYN_NEWNAME", sizeof (meltcdat->dstr_580__SEXPSYN_NEWNAME.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_580__SEXPSYN_NEWNAME.val, "SEXPSYN_NEWNAME", sizeof (meltcdat->dstr_580__SEXPSYN_NEWNAME.val)-1); meltcdat->dstr_580__SEXPSYN_NEWNAME.val[15] = (char)0 ; meltcdat->dstr_580__SEXPSYN_NEWNAME.slen = 15 ; /*iniobj dsym_581__SEXPSYN_OLDNAME*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V679*/ meltfptr[678]) + /*uniqueobj*/ if (!/*_._VALDATA___V679*/ meltfptr[678]) /*_._VALDATA___V679*/ meltfptr[678] = (melt_ptr_t )&meltcdat->dsym_581__SEXPSYN_OLDNAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_581__SEXPSYN_OLDNAME", 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_581__SEXPSYN_OLDNAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16852,19 +15105,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_582__SEXPSYN_OLDNAME*/ - /*_._VALSTR___V680*/ - meltfptr[679] = (melt_ptr_t) &meltcdat->dstr_582__SEXPSYN_OLDNAME; + /*_._VALSTR___V680*/ meltfptr[679] = (melt_ptr_t) &meltcdat->dstr_582__SEXPSYN_OLDNAME; meltcdat->dstr_582__SEXPSYN_OLDNAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_582__SEXPSYN_OLDNAME.val, "SEXPSYN_OLDNAME", sizeof (meltcdat->dstr_582__SEXPSYN_OLDNAME.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_582__SEXPSYN_OLDNAME.val, "SEXPSYN_OLDNAME", sizeof (meltcdat->dstr_582__SEXPSYN_OLDNAME.val)-1); meltcdat->dstr_582__SEXPSYN_OLDNAME.val[15] = (char)0 ; meltcdat->dstr_582__SEXPSYN_OLDNAME.slen = 15 ; /*^iniobj*/ /*iniobj dobj_583__SEXPSYN_OLDNAME*/ - /*_._VALDATA___V672*/ - meltfptr[671] = (melt_ptr_t )&meltcdat->dobj_583__SEXPSYN_OLDNAME; + /*_._VALDATA___V672*/ meltfptr[671] = (melt_ptr_t )&meltcdat->dobj_583__SEXPSYN_OLDNAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_583__SEXPSYN_OLDNAME", 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_583__SEXPSYN_OLDNAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_583__SEXPSYN_OLDNAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -16874,18 +15124,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_584__SEXPSYN_OLDNAME*/ - /*_._VALSTR___V673*/ - meltfptr[672] = (melt_ptr_t) &meltcdat->dstr_584__SEXPSYN_OLDNAME; + /*_._VALSTR___V673*/ meltfptr[672] = (melt_ptr_t) &meltcdat->dstr_584__SEXPSYN_OLDNAME; meltcdat->dstr_584__SEXPSYN_OLDNAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_584__SEXPSYN_OLDNAME.val, "SEXPSYN_OLDNAME", sizeof (meltcdat->dstr_584__SEXPSYN_OLDNAME.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_584__SEXPSYN_OLDNAME.val, "SEXPSYN_OLDNAME", sizeof (meltcdat->dstr_584__SEXPSYN_OLDNAME.val)-1); meltcdat->dstr_584__SEXPSYN_OLDNAME.val[15] = (char)0 ; meltcdat->dstr_584__SEXPSYN_OLDNAME.slen = 15 ; /*iniobj dsym_585__SEXPSYN_DOC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V681*/ meltfptr[680]) + /*uniqueobj*/ if (!/*_._VALDATA___V681*/ meltfptr[680]) /*_._VALDATA___V681*/ meltfptr[680] = (melt_ptr_t )&meltcdat->dsym_585__SEXPSYN_DOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_585__SEXPSYN_DOC", 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_585__SEXPSYN_DOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16895,19 +15142,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_586__SEXPSYN_DOC*/ - /*_._VALSTR___V682*/ - meltfptr[681] = (melt_ptr_t) &meltcdat->dstr_586__SEXPSYN_DOC; + /*_._VALSTR___V682*/ meltfptr[681] = (melt_ptr_t) &meltcdat->dstr_586__SEXPSYN_DOC; meltcdat->dstr_586__SEXPSYN_DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_586__SEXPSYN_DOC.val, "SEXPSYN_DOC", sizeof (meltcdat->dstr_586__SEXPSYN_DOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_586__SEXPSYN_DOC.val, "SEXPSYN_DOC", sizeof (meltcdat->dstr_586__SEXPSYN_DOC.val)-1); meltcdat->dstr_586__SEXPSYN_DOC.val[11] = (char)0 ; meltcdat->dstr_586__SEXPSYN_DOC.slen = 11 ; /*^iniobj*/ /*iniobj dobj_587__SEXPSYN_DOC*/ - /*_._VALDATA___V674*/ - meltfptr[673] = (melt_ptr_t )&meltcdat->dobj_587__SEXPSYN_DOC; + /*_._VALDATA___V674*/ meltfptr[673] = (melt_ptr_t )&meltcdat->dobj_587__SEXPSYN_DOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_587__SEXPSYN_DOC", 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_587__SEXPSYN_DOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_587__SEXPSYN_DOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -16917,18 +15161,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_588__SEXPSYN_DOC*/ - /*_._VALSTR___V675*/ - meltfptr[674] = (melt_ptr_t) &meltcdat->dstr_588__SEXPSYN_DOC; + /*_._VALSTR___V675*/ meltfptr[674] = (melt_ptr_t) &meltcdat->dstr_588__SEXPSYN_DOC; meltcdat->dstr_588__SEXPSYN_DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_588__SEXPSYN_DOC.val, "SEXPSYN_DOC", sizeof (meltcdat->dstr_588__SEXPSYN_DOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_588__SEXPSYN_DOC.val, "SEXPSYN_DOC", sizeof (meltcdat->dstr_588__SEXPSYN_DOC.val)-1); meltcdat->dstr_588__SEXPSYN_DOC.val[11] = (char)0 ; meltcdat->dstr_588__SEXPSYN_DOC.slen = 11 ; /*iniobj dsym_589__CLASS_SOURCE_DEFINITION*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V683*/ meltfptr[682]) + /*uniqueobj*/ if (!/*_._VALDATA___V683*/ meltfptr[682]) /*_._VALDATA___V683*/ meltfptr[682] = (melt_ptr_t )&meltcdat->dsym_589__CLASS_SOURCE_DEFINITION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_589__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_589__CLASS_SOURCE_DEFINITION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16938,19 +15179,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_590__CLASS_SOURCE_DEFINITION*/ - /*_._VALSTR___V684*/ - meltfptr[683] = (melt_ptr_t) &meltcdat->dstr_590__CLASS_SOURCE_DEFINITION; + /*_._VALSTR___V684*/ meltfptr[683] = (melt_ptr_t) &meltcdat->dstr_590__CLASS_SOURCE_DEFINITION; meltcdat->dstr_590__CLASS_SOURCE_DEFINITION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_590__CLASS_SOURCE_DEFINITION.val, "CLASS_SOURCE_DEFINITION", sizeof (meltcdat->dstr_590__CLASS_SOURCE_DEFINITION.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_590__CLASS_SOURCE_DEFINITION.val, "CLASS_SOURCE_DEFINITION", sizeof (meltcdat->dstr_590__CLASS_SOURCE_DEFINITION.val)-1); meltcdat->dstr_590__CLASS_SOURCE_DEFINITION.val[23] = (char)0 ; meltcdat->dstr_590__CLASS_SOURCE_DEFINITION.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:746:/ iniobj"); /*iniobj dobj_591__CLASS_SOURCE_DEFINITION*/ - /*_._VALDATA___V685*/ - meltfptr[684] = (melt_ptr_t )&meltcdat->dobj_591__CLASS_SOURCE_DEFINITION; + /*_._VALDATA___V685*/ meltfptr[684] = (melt_ptr_t )&meltcdat->dobj_591__CLASS_SOURCE_DEFINITION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_591__CLASS_SOURCE_DEFINITION", 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_591__CLASS_SOURCE_DEFINITION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_591__CLASS_SOURCE_DEFINITION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -16960,28 +15198,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_592__CLASS_SOURCE_DEFINITION*/ - /*_._VALSTR___V686*/ - meltfptr[685] = (melt_ptr_t) &meltcdat->dstr_592__CLASS_SOURCE_DEFINITION; + /*_._VALSTR___V686*/ meltfptr[685] = (melt_ptr_t) &meltcdat->dstr_592__CLASS_SOURCE_DEFINITION; meltcdat->dstr_592__CLASS_SOURCE_DEFINITION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_592__CLASS_SOURCE_DEFINITION.val, "CLASS_SOURCE_DEFINITION", sizeof (meltcdat->dstr_592__CLASS_SOURCE_DEFINITION.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_592__CLASS_SOURCE_DEFINITION.val, "CLASS_SOURCE_DEFINITION", sizeof (meltcdat->dstr_592__CLASS_SOURCE_DEFINITION.val)-1); meltcdat->dstr_592__CLASS_SOURCE_DEFINITION.val[23] = (char)0 ; meltcdat->dstr_592__CLASS_SOURCE_DEFINITION.slen = 23 ; /*inimult dtup_593_syCLASS_SOURCE_DEFINITION*/ - /*_._VALTUP___V687*/ - meltfptr[686] = (melt_ptr_t) &meltcdat->dtup_593_syCLASS_SOURCE_DEFINITION; + /*_._VALTUP___V687*/ meltfptr[686] = (melt_ptr_t) &meltcdat->dtup_593_syCLASS_SOURCE_DEFINITION; meltcdat->dtup_593_syCLASS_SOURCE_DEFINITION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_593_syCLASS_SOURCE_DEFINITION.nbval = 4; /*inimult dtup_594_syCLASS_SOURCE_DEFINITION*/ - /*_._VALTUP___V692*/ - meltfptr[691] = (melt_ptr_t) &meltcdat->dtup_594_syCLASS_SOURCE_DEFINITION; + /*_._VALTUP___V692*/ meltfptr[691] = (melt_ptr_t) &meltcdat->dtup_594_syCLASS_SOURCE_DEFINITION; meltcdat->dtup_594_syCLASS_SOURCE_DEFINITION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_594_syCLASS_SOURCE_DEFINITION.nbval = 4; /*iniobj dsym_595__SDEF_NAME*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V693*/ meltfptr[692]) + /*uniqueobj*/ if (!/*_._VALDATA___V693*/ meltfptr[692]) /*_._VALDATA___V693*/ meltfptr[692] = (melt_ptr_t )&meltcdat->dsym_595__SDEF_NAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_595__SDEF_NAME", 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_595__SDEF_NAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -16991,19 +15224,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_596__SDEF_NAME*/ - /*_._VALSTR___V694*/ - meltfptr[693] = (melt_ptr_t) &meltcdat->dstr_596__SDEF_NAME; + /*_._VALSTR___V694*/ meltfptr[693] = (melt_ptr_t) &meltcdat->dstr_596__SDEF_NAME; meltcdat->dstr_596__SDEF_NAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_596__SDEF_NAME.val, "SDEF_NAME", sizeof (meltcdat->dstr_596__SDEF_NAME.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_596__SDEF_NAME.val, "SDEF_NAME", sizeof (meltcdat->dstr_596__SDEF_NAME.val)-1); meltcdat->dstr_596__SDEF_NAME.val[9] = (char)0 ; meltcdat->dstr_596__SDEF_NAME.slen = 9 ; /*^iniobj*/ /*iniobj dobj_597__SDEF_NAME*/ - /*_._VALDATA___V688*/ - meltfptr[687] = (melt_ptr_t )&meltcdat->dobj_597__SDEF_NAME; + /*_._VALDATA___V688*/ meltfptr[687] = (melt_ptr_t )&meltcdat->dobj_597__SDEF_NAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_597__SDEF_NAME", 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_597__SDEF_NAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_597__SDEF_NAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -17013,18 +15243,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_598__SDEF_NAME*/ - /*_._VALSTR___V689*/ - meltfptr[688] = (melt_ptr_t) &meltcdat->dstr_598__SDEF_NAME; + /*_._VALSTR___V689*/ meltfptr[688] = (melt_ptr_t) &meltcdat->dstr_598__SDEF_NAME; meltcdat->dstr_598__SDEF_NAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_598__SDEF_NAME.val, "SDEF_NAME", sizeof (meltcdat->dstr_598__SDEF_NAME.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_598__SDEF_NAME.val, "SDEF_NAME", sizeof (meltcdat->dstr_598__SDEF_NAME.val)-1); meltcdat->dstr_598__SDEF_NAME.val[9] = (char)0 ; meltcdat->dstr_598__SDEF_NAME.slen = 9 ; /*iniobj dsym_599__SDEF_DOC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V695*/ meltfptr[694]) + /*uniqueobj*/ if (!/*_._VALDATA___V695*/ meltfptr[694]) /*_._VALDATA___V695*/ meltfptr[694] = (melt_ptr_t )&meltcdat->dsym_599__SDEF_DOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_599__SDEF_DOC", 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_599__SDEF_DOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17034,19 +15261,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_600__SDEF_DOC*/ - /*_._VALSTR___V696*/ - meltfptr[695] = (melt_ptr_t) &meltcdat->dstr_600__SDEF_DOC; + /*_._VALSTR___V696*/ meltfptr[695] = (melt_ptr_t) &meltcdat->dstr_600__SDEF_DOC; meltcdat->dstr_600__SDEF_DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_600__SDEF_DOC.val, "SDEF_DOC", sizeof (meltcdat->dstr_600__SDEF_DOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_600__SDEF_DOC.val, "SDEF_DOC", sizeof (meltcdat->dstr_600__SDEF_DOC.val)-1); meltcdat->dstr_600__SDEF_DOC.val[8] = (char)0 ; meltcdat->dstr_600__SDEF_DOC.slen = 8 ; /*^iniobj*/ /*iniobj dobj_601__SDEF_DOC*/ - /*_._VALDATA___V690*/ - meltfptr[689] = (melt_ptr_t )&meltcdat->dobj_601__SDEF_DOC; + /*_._VALDATA___V690*/ meltfptr[689] = (melt_ptr_t )&meltcdat->dobj_601__SDEF_DOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_601__SDEF_DOC", 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_601__SDEF_DOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_601__SDEF_DOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -17056,18 +15280,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_602__SDEF_DOC*/ - /*_._VALSTR___V691*/ - meltfptr[690] = (melt_ptr_t) &meltcdat->dstr_602__SDEF_DOC; + /*_._VALSTR___V691*/ meltfptr[690] = (melt_ptr_t) &meltcdat->dstr_602__SDEF_DOC; meltcdat->dstr_602__SDEF_DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_602__SDEF_DOC.val, "SDEF_DOC", sizeof (meltcdat->dstr_602__SDEF_DOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_602__SDEF_DOC.val, "SDEF_DOC", sizeof (meltcdat->dstr_602__SDEF_DOC.val)-1); meltcdat->dstr_602__SDEF_DOC.val[8] = (char)0 ; meltcdat->dstr_602__SDEF_DOC.slen = 8 ; /*iniobj dsym_603__CLASS_SOURCE_DEFVAR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V697*/ meltfptr[696]) + /*uniqueobj*/ if (!/*_._VALDATA___V697*/ meltfptr[696]) /*_._VALDATA___V697*/ meltfptr[696] = (melt_ptr_t )&meltcdat->dsym_603__CLASS_SOURCE_DEFVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_603__CLASS_SOURCE_DEFVAR", 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_603__CLASS_SOURCE_DEFVAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17077,19 +15298,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_604__CLASS_SOURCE_DEFVAR*/ - /*_._VALSTR___V698*/ - meltfptr[697] = (melt_ptr_t) &meltcdat->dstr_604__CLASS_SOURCE_DEFVAR; + /*_._VALSTR___V698*/ meltfptr[697] = (melt_ptr_t) &meltcdat->dstr_604__CLASS_SOURCE_DEFVAR; meltcdat->dstr_604__CLASS_SOURCE_DEFVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_604__CLASS_SOURCE_DEFVAR.val, "CLASS_SOURCE_DEFVAR", sizeof (meltcdat->dstr_604__CLASS_SOURCE_DEFVAR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_604__CLASS_SOURCE_DEFVAR.val, "CLASS_SOURCE_DEFVAR", sizeof (meltcdat->dstr_604__CLASS_SOURCE_DEFVAR.val)-1); meltcdat->dstr_604__CLASS_SOURCE_DEFVAR.val[19] = (char)0 ; meltcdat->dstr_604__CLASS_SOURCE_DEFVAR.slen = 19 ; MELT_LOCATION("warmelt-macro.melt:756:/ iniobj"); /*iniobj dobj_605__CLASS_SOURCE_DEFVAR*/ - /*_._VALDATA___V699*/ - meltfptr[698] = (melt_ptr_t )&meltcdat->dobj_605__CLASS_SOURCE_DEFVAR; + /*_._VALDATA___V699*/ meltfptr[698] = (melt_ptr_t )&meltcdat->dobj_605__CLASS_SOURCE_DEFVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_605__CLASS_SOURCE_DEFVAR", 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_605__CLASS_SOURCE_DEFVAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_605__CLASS_SOURCE_DEFVAR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -17099,28 +15317,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_606__CLASS_SOURCE_DEFVAR*/ - /*_._VALSTR___V700*/ - meltfptr[699] = (melt_ptr_t) &meltcdat->dstr_606__CLASS_SOURCE_DEFVAR; + /*_._VALSTR___V700*/ meltfptr[699] = (melt_ptr_t) &meltcdat->dstr_606__CLASS_SOURCE_DEFVAR; meltcdat->dstr_606__CLASS_SOURCE_DEFVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_606__CLASS_SOURCE_DEFVAR.val, "CLASS_SOURCE_DEFVAR", sizeof (meltcdat->dstr_606__CLASS_SOURCE_DEFVAR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_606__CLASS_SOURCE_DEFVAR.val, "CLASS_SOURCE_DEFVAR", sizeof (meltcdat->dstr_606__CLASS_SOURCE_DEFVAR.val)-1); meltcdat->dstr_606__CLASS_SOURCE_DEFVAR.val[19] = (char)0 ; meltcdat->dstr_606__CLASS_SOURCE_DEFVAR.slen = 19 ; /*inimult dtup_607_syCLASS_SOURCE_DEFVAR*/ - /*_._VALTUP___V701*/ - meltfptr[700] = (melt_ptr_t) &meltcdat->dtup_607_syCLASS_SOURCE_DEFVAR; + /*_._VALTUP___V701*/ meltfptr[700] = (melt_ptr_t) &meltcdat->dtup_607_syCLASS_SOURCE_DEFVAR; meltcdat->dtup_607_syCLASS_SOURCE_DEFVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_607_syCLASS_SOURCE_DEFVAR.nbval = 5; /*inimult dtup_608_syCLASS_SOURCE_DEFVAR*/ - /*_._VALTUP___V702*/ - meltfptr[701] = (melt_ptr_t) &meltcdat->dtup_608_syCLASS_SOURCE_DEFVAR; + /*_._VALTUP___V702*/ meltfptr[701] = (melt_ptr_t) &meltcdat->dtup_608_syCLASS_SOURCE_DEFVAR; meltcdat->dtup_608_syCLASS_SOURCE_DEFVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_608_syCLASS_SOURCE_DEFVAR.nbval = 4; /*iniobj dsym_609__CLASS_SOURCE_DEFINE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V703*/ meltfptr[702]) + /*uniqueobj*/ if (!/*_._VALDATA___V703*/ meltfptr[702]) /*_._VALDATA___V703*/ meltfptr[702] = (melt_ptr_t )&meltcdat->dsym_609__CLASS_SOURCE_DEFINE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_609__CLASS_SOURCE_DEFINE", 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_609__CLASS_SOURCE_DEFINE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17130,19 +15343,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_610__CLASS_SOURCE_DEFINE*/ - /*_._VALSTR___V704*/ - meltfptr[703] = (melt_ptr_t) &meltcdat->dstr_610__CLASS_SOURCE_DEFINE; + /*_._VALSTR___V704*/ meltfptr[703] = (melt_ptr_t) &meltcdat->dstr_610__CLASS_SOURCE_DEFINE; meltcdat->dstr_610__CLASS_SOURCE_DEFINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_610__CLASS_SOURCE_DEFINE.val, "CLASS_SOURCE_DEFINE", sizeof (meltcdat->dstr_610__CLASS_SOURCE_DEFINE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_610__CLASS_SOURCE_DEFINE.val, "CLASS_SOURCE_DEFINE", sizeof (meltcdat->dstr_610__CLASS_SOURCE_DEFINE.val)-1); meltcdat->dstr_610__CLASS_SOURCE_DEFINE.val[19] = (char)0 ; meltcdat->dstr_610__CLASS_SOURCE_DEFINE.slen = 19 ; MELT_LOCATION("warmelt-macro.melt:762:/ iniobj"); /*iniobj dobj_611__CLASS_SOURCE_DEFINE*/ - /*_._VALDATA___V705*/ - meltfptr[704] = (melt_ptr_t )&meltcdat->dobj_611__CLASS_SOURCE_DEFINE; + /*_._VALDATA___V705*/ meltfptr[704] = (melt_ptr_t )&meltcdat->dobj_611__CLASS_SOURCE_DEFINE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_611__CLASS_SOURCE_DEFINE", 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_611__CLASS_SOURCE_DEFINE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_611__CLASS_SOURCE_DEFINE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -17152,28 +15362,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_612__CLASS_SOURCE_DEFINE*/ - /*_._VALSTR___V706*/ - meltfptr[705] = (melt_ptr_t) &meltcdat->dstr_612__CLASS_SOURCE_DEFINE; + /*_._VALSTR___V706*/ meltfptr[705] = (melt_ptr_t) &meltcdat->dstr_612__CLASS_SOURCE_DEFINE; meltcdat->dstr_612__CLASS_SOURCE_DEFINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_612__CLASS_SOURCE_DEFINE.val, "CLASS_SOURCE_DEFINE", sizeof (meltcdat->dstr_612__CLASS_SOURCE_DEFINE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_612__CLASS_SOURCE_DEFINE.val, "CLASS_SOURCE_DEFINE", sizeof (meltcdat->dstr_612__CLASS_SOURCE_DEFINE.val)-1); meltcdat->dstr_612__CLASS_SOURCE_DEFINE.val[19] = (char)0 ; meltcdat->dstr_612__CLASS_SOURCE_DEFINE.slen = 19 ; /*inimult dtup_613_syCLASS_SOURCE_DEFINE*/ - /*_._VALTUP___V707*/ - meltfptr[706] = (melt_ptr_t) &meltcdat->dtup_613_syCLASS_SOURCE_DEFINE; + /*_._VALTUP___V707*/ meltfptr[706] = (melt_ptr_t) &meltcdat->dtup_613_syCLASS_SOURCE_DEFINE; meltcdat->dtup_613_syCLASS_SOURCE_DEFINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_613_syCLASS_SOURCE_DEFINE.nbval = 5; /*inimult dtup_614_syCLASS_SOURCE_DEFINE*/ - /*_._VALTUP___V710*/ - meltfptr[709] = (melt_ptr_t) &meltcdat->dtup_614_syCLASS_SOURCE_DEFINE; + /*_._VALTUP___V710*/ meltfptr[709] = (melt_ptr_t) &meltcdat->dtup_614_syCLASS_SOURCE_DEFINE; meltcdat->dtup_614_syCLASS_SOURCE_DEFINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_614_syCLASS_SOURCE_DEFINE.nbval = 5; /*iniobj dsym_615__SDEFINE_BODY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V711*/ meltfptr[710]) + /*uniqueobj*/ if (!/*_._VALDATA___V711*/ meltfptr[710]) /*_._VALDATA___V711*/ meltfptr[710] = (melt_ptr_t )&meltcdat->dsym_615__SDEFINE_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_615__SDEFINE_BODY", 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_615__SDEFINE_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17183,19 +15388,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_616__SDEFINE_BODY*/ - /*_._VALSTR___V712*/ - meltfptr[711] = (melt_ptr_t) &meltcdat->dstr_616__SDEFINE_BODY; + /*_._VALSTR___V712*/ meltfptr[711] = (melt_ptr_t) &meltcdat->dstr_616__SDEFINE_BODY; meltcdat->dstr_616__SDEFINE_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_616__SDEFINE_BODY.val, "SDEFINE_BODY", sizeof (meltcdat->dstr_616__SDEFINE_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_616__SDEFINE_BODY.val, "SDEFINE_BODY", sizeof (meltcdat->dstr_616__SDEFINE_BODY.val)-1); meltcdat->dstr_616__SDEFINE_BODY.val[12] = (char)0 ; meltcdat->dstr_616__SDEFINE_BODY.slen = 12 ; /*^iniobj*/ /*iniobj dobj_617__SDEFINE_BODY*/ - /*_._VALDATA___V708*/ - meltfptr[707] = (melt_ptr_t )&meltcdat->dobj_617__SDEFINE_BODY; + /*_._VALDATA___V708*/ meltfptr[707] = (melt_ptr_t )&meltcdat->dobj_617__SDEFINE_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_617__SDEFINE_BODY", 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_617__SDEFINE_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_617__SDEFINE_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -17205,18 +15407,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_618__SDEFINE_BODY*/ - /*_._VALSTR___V709*/ - meltfptr[708] = (melt_ptr_t) &meltcdat->dstr_618__SDEFINE_BODY; + /*_._VALSTR___V709*/ meltfptr[708] = (melt_ptr_t) &meltcdat->dstr_618__SDEFINE_BODY; meltcdat->dstr_618__SDEFINE_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_618__SDEFINE_BODY.val, "SDEFINE_BODY", sizeof (meltcdat->dstr_618__SDEFINE_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_618__SDEFINE_BODY.val, "SDEFINE_BODY", sizeof (meltcdat->dstr_618__SDEFINE_BODY.val)-1); meltcdat->dstr_618__SDEFINE_BODY.val[12] = (char)0 ; meltcdat->dstr_618__SDEFINE_BODY.slen = 12 ; /*iniobj dsym_619__CLASS_SOURCE_DEFINITION_FORMAL*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V713*/ meltfptr[712]) + /*uniqueobj*/ if (!/*_._VALDATA___V713*/ meltfptr[712]) /*_._VALDATA___V713*/ meltfptr[712] = (melt_ptr_t )&meltcdat->dsym_619__CLASS_SOURCE_DEFINITION_FORMAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_619__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_619__CLASS_SOURCE_DEFINITION_FORMAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17226,19 +15425,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_620__CLASS_SOURCE_DEFINITION_*/ - /*_._VALSTR___V714*/ - meltfptr[713] = (melt_ptr_t) &meltcdat->dstr_620__CLASS_SOURCE_DEFINITION_; + /*_._VALSTR___V714*/ meltfptr[713] = (melt_ptr_t) &meltcdat->dstr_620__CLASS_SOURCE_DEFINITION_; meltcdat->dstr_620__CLASS_SOURCE_DEFINITION_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_620__CLASS_SOURCE_DEFINITION_.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (meltcdat->dstr_620__CLASS_SOURCE_DEFINITION_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_620__CLASS_SOURCE_DEFINITION_.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (meltcdat->dstr_620__CLASS_SOURCE_DEFINITION_.val)-1); meltcdat->dstr_620__CLASS_SOURCE_DEFINITION_.val[30] = (char)0 ; meltcdat->dstr_620__CLASS_SOURCE_DEFINITION_.slen = 30 ; MELT_LOCATION("warmelt-macro.melt:770:/ iniobj"); /*iniobj dobj_621__CLASS_SOURCE_DEFINITION_FORMAL*/ - /*_._VALDATA___V715*/ - meltfptr[714] = (melt_ptr_t )&meltcdat->dobj_621__CLASS_SOURCE_DEFINITION_FORMAL; + /*_._VALDATA___V715*/ meltfptr[714] = (melt_ptr_t )&meltcdat->dobj_621__CLASS_SOURCE_DEFINITION_FORMAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_621__CLASS_SOURCE_DEFINITION_FORMAL", 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_621__CLASS_SOURCE_DEFINITION_FORMAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_621__CLASS_SOURCE_DEFINITION_FORMAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -17248,28 +15444,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_622__CLASS_SOURCE_DEFINITION_*/ - /*_._VALSTR___V716*/ - meltfptr[715] = (melt_ptr_t) &meltcdat->dstr_622__CLASS_SOURCE_DEFINITION_; + /*_._VALSTR___V716*/ meltfptr[715] = (melt_ptr_t) &meltcdat->dstr_622__CLASS_SOURCE_DEFINITION_; meltcdat->dstr_622__CLASS_SOURCE_DEFINITION_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_622__CLASS_SOURCE_DEFINITION_.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (meltcdat->dstr_622__CLASS_SOURCE_DEFINITION_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_622__CLASS_SOURCE_DEFINITION_.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (meltcdat->dstr_622__CLASS_SOURCE_DEFINITION_.val)-1); meltcdat->dstr_622__CLASS_SOURCE_DEFINITION_.val[30] = (char)0 ; meltcdat->dstr_622__CLASS_SOURCE_DEFINITION_.slen = 30 ; /*inimult dtup_623_syCLASS_SOURCE_DEFINITION_FORMAL*/ - /*_._VALTUP___V717*/ - meltfptr[716] = (melt_ptr_t) &meltcdat->dtup_623_syCLASS_SOURCE_DEFINITION_FORMAL; + /*_._VALTUP___V717*/ meltfptr[716] = (melt_ptr_t) &meltcdat->dtup_623_syCLASS_SOURCE_DEFINITION_FORMAL; meltcdat->dtup_623_syCLASS_SOURCE_DEFINITION_FORMAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_623_syCLASS_SOURCE_DEFINITION_FORMAL.nbval = 5; /*inimult dtup_624_syCLASS_SOURCE_DEFINITION_FORMAL*/ - /*_._VALTUP___V720*/ - meltfptr[719] = (melt_ptr_t) &meltcdat->dtup_624_syCLASS_SOURCE_DEFINITION_FORMAL; + /*_._VALTUP___V720*/ meltfptr[719] = (melt_ptr_t) &meltcdat->dtup_624_syCLASS_SOURCE_DEFINITION_FORMAL; meltcdat->dtup_624_syCLASS_SOURCE_DEFINITION_FORMAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_624_syCLASS_SOURCE_DEFINITION_FORMAL.nbval = 5; /*iniobj dsym_625__SFORMAL_ARGS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V721*/ meltfptr[720]) + /*uniqueobj*/ if (!/*_._VALDATA___V721*/ meltfptr[720]) /*_._VALDATA___V721*/ meltfptr[720] = (melt_ptr_t )&meltcdat->dsym_625__SFORMAL_ARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_625__SFORMAL_ARGS", 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_625__SFORMAL_ARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17279,19 +15470,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_626__SFORMAL_ARGS*/ - /*_._VALSTR___V722*/ - meltfptr[721] = (melt_ptr_t) &meltcdat->dstr_626__SFORMAL_ARGS; + /*_._VALSTR___V722*/ meltfptr[721] = (melt_ptr_t) &meltcdat->dstr_626__SFORMAL_ARGS; meltcdat->dstr_626__SFORMAL_ARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_626__SFORMAL_ARGS.val, "SFORMAL_ARGS", sizeof (meltcdat->dstr_626__SFORMAL_ARGS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_626__SFORMAL_ARGS.val, "SFORMAL_ARGS", sizeof (meltcdat->dstr_626__SFORMAL_ARGS.val)-1); meltcdat->dstr_626__SFORMAL_ARGS.val[12] = (char)0 ; meltcdat->dstr_626__SFORMAL_ARGS.slen = 12 ; /*^iniobj*/ /*iniobj dobj_627__SFORMAL_ARGS*/ - /*_._VALDATA___V718*/ - meltfptr[717] = (melt_ptr_t )&meltcdat->dobj_627__SFORMAL_ARGS; + /*_._VALDATA___V718*/ meltfptr[717] = (melt_ptr_t )&meltcdat->dobj_627__SFORMAL_ARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_627__SFORMAL_ARGS", 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_627__SFORMAL_ARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_627__SFORMAL_ARGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -17301,18 +15489,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_628__SFORMAL_ARGS*/ - /*_._VALSTR___V719*/ - meltfptr[718] = (melt_ptr_t) &meltcdat->dstr_628__SFORMAL_ARGS; + /*_._VALSTR___V719*/ meltfptr[718] = (melt_ptr_t) &meltcdat->dstr_628__SFORMAL_ARGS; meltcdat->dstr_628__SFORMAL_ARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_628__SFORMAL_ARGS.val, "SFORMAL_ARGS", sizeof (meltcdat->dstr_628__SFORMAL_ARGS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_628__SFORMAL_ARGS.val, "SFORMAL_ARGS", sizeof (meltcdat->dstr_628__SFORMAL_ARGS.val)-1); meltcdat->dstr_628__SFORMAL_ARGS.val[12] = (char)0 ; meltcdat->dstr_628__SFORMAL_ARGS.slen = 12 ; /*iniobj dsym_629__CLASS_SOURCE_DEFUN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V723*/ meltfptr[722]) + /*uniqueobj*/ if (!/*_._VALDATA___V723*/ meltfptr[722]) /*_._VALDATA___V723*/ meltfptr[722] = (melt_ptr_t )&meltcdat->dsym_629__CLASS_SOURCE_DEFUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_629__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_629__CLASS_SOURCE_DEFUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17322,19 +15507,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_630__CLASS_SOURCE_DEFUN*/ - /*_._VALSTR___V724*/ - meltfptr[723] = (melt_ptr_t) &meltcdat->dstr_630__CLASS_SOURCE_DEFUN; + /*_._VALSTR___V724*/ meltfptr[723] = (melt_ptr_t) &meltcdat->dstr_630__CLASS_SOURCE_DEFUN; meltcdat->dstr_630__CLASS_SOURCE_DEFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_630__CLASS_SOURCE_DEFUN.val, "CLASS_SOURCE_DEFUN", sizeof (meltcdat->dstr_630__CLASS_SOURCE_DEFUN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_630__CLASS_SOURCE_DEFUN.val, "CLASS_SOURCE_DEFUN", sizeof (meltcdat->dstr_630__CLASS_SOURCE_DEFUN.val)-1); meltcdat->dstr_630__CLASS_SOURCE_DEFUN.val[18] = (char)0 ; meltcdat->dstr_630__CLASS_SOURCE_DEFUN.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:778:/ iniobj"); /*iniobj dobj_631__CLASS_SOURCE_DEFUN*/ - /*_._VALDATA___V725*/ - meltfptr[724] = (melt_ptr_t )&meltcdat->dobj_631__CLASS_SOURCE_DEFUN; + /*_._VALDATA___V725*/ meltfptr[724] = (melt_ptr_t )&meltcdat->dobj_631__CLASS_SOURCE_DEFUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_631__CLASS_SOURCE_DEFUN", 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_631__CLASS_SOURCE_DEFUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_631__CLASS_SOURCE_DEFUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -17344,28 +15526,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_632__CLASS_SOURCE_DEFUN*/ - /*_._VALSTR___V726*/ - meltfptr[725] = (melt_ptr_t) &meltcdat->dstr_632__CLASS_SOURCE_DEFUN; + /*_._VALSTR___V726*/ meltfptr[725] = (melt_ptr_t) &meltcdat->dstr_632__CLASS_SOURCE_DEFUN; meltcdat->dstr_632__CLASS_SOURCE_DEFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_632__CLASS_SOURCE_DEFUN.val, "CLASS_SOURCE_DEFUN", sizeof (meltcdat->dstr_632__CLASS_SOURCE_DEFUN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_632__CLASS_SOURCE_DEFUN.val, "CLASS_SOURCE_DEFUN", sizeof (meltcdat->dstr_632__CLASS_SOURCE_DEFUN.val)-1); meltcdat->dstr_632__CLASS_SOURCE_DEFUN.val[18] = (char)0 ; meltcdat->dstr_632__CLASS_SOURCE_DEFUN.slen = 18 ; /*inimult dtup_633_syCLASS_SOURCE_DEFUN*/ - /*_._VALTUP___V727*/ - meltfptr[726] = (melt_ptr_t) &meltcdat->dtup_633_syCLASS_SOURCE_DEFUN; + /*_._VALTUP___V727*/ meltfptr[726] = (melt_ptr_t) &meltcdat->dtup_633_syCLASS_SOURCE_DEFUN; meltcdat->dtup_633_syCLASS_SOURCE_DEFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_633_syCLASS_SOURCE_DEFUN.nbval = 6; /*inimult dtup_634_syCLASS_SOURCE_DEFUN*/ - /*_._VALTUP___V730*/ - meltfptr[729] = (melt_ptr_t) &meltcdat->dtup_634_syCLASS_SOURCE_DEFUN; + /*_._VALTUP___V730*/ meltfptr[729] = (melt_ptr_t) &meltcdat->dtup_634_syCLASS_SOURCE_DEFUN; meltcdat->dtup_634_syCLASS_SOURCE_DEFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_634_syCLASS_SOURCE_DEFUN.nbval = 6; /*iniobj dsym_635__SFUN_BODY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V731*/ meltfptr[730]) + /*uniqueobj*/ if (!/*_._VALDATA___V731*/ meltfptr[730]) /*_._VALDATA___V731*/ meltfptr[730] = (melt_ptr_t )&meltcdat->dsym_635__SFUN_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_635__SFUN_BODY", 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_635__SFUN_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17375,19 +15552,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_636__SFUN_BODY*/ - /*_._VALSTR___V732*/ - meltfptr[731] = (melt_ptr_t) &meltcdat->dstr_636__SFUN_BODY; + /*_._VALSTR___V732*/ meltfptr[731] = (melt_ptr_t) &meltcdat->dstr_636__SFUN_BODY; meltcdat->dstr_636__SFUN_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_636__SFUN_BODY.val, "SFUN_BODY", sizeof (meltcdat->dstr_636__SFUN_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_636__SFUN_BODY.val, "SFUN_BODY", sizeof (meltcdat->dstr_636__SFUN_BODY.val)-1); meltcdat->dstr_636__SFUN_BODY.val[9] = (char)0 ; meltcdat->dstr_636__SFUN_BODY.slen = 9 ; /*^iniobj*/ /*iniobj dobj_637__SFUN_BODY*/ - /*_._VALDATA___V728*/ - meltfptr[727] = (melt_ptr_t )&meltcdat->dobj_637__SFUN_BODY; + /*_._VALDATA___V728*/ meltfptr[727] = (melt_ptr_t )&meltcdat->dobj_637__SFUN_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_637__SFUN_BODY", 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_637__SFUN_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_637__SFUN_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -17397,18 +15571,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_638__SFUN_BODY*/ - /*_._VALSTR___V729*/ - meltfptr[728] = (melt_ptr_t) &meltcdat->dstr_638__SFUN_BODY; + /*_._VALSTR___V729*/ meltfptr[728] = (melt_ptr_t) &meltcdat->dstr_638__SFUN_BODY; meltcdat->dstr_638__SFUN_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_638__SFUN_BODY.val, "SFUN_BODY", sizeof (meltcdat->dstr_638__SFUN_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_638__SFUN_BODY.val, "SFUN_BODY", sizeof (meltcdat->dstr_638__SFUN_BODY.val)-1); meltcdat->dstr_638__SFUN_BODY.val[9] = (char)0 ; meltcdat->dstr_638__SFUN_BODY.slen = 9 ; /*iniobj dsym_639__CLASS_SOURCE_DEFMACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V733*/ meltfptr[732]) + /*uniqueobj*/ if (!/*_._VALDATA___V733*/ meltfptr[732]) /*_._VALDATA___V733*/ meltfptr[732] = (melt_ptr_t )&meltcdat->dsym_639__CLASS_SOURCE_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_639__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_639__CLASS_SOURCE_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17418,19 +15589,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_640__CLASS_SOURCE_DEFMACRO*/ - /*_._VALSTR___V734*/ - meltfptr[733] = (melt_ptr_t) &meltcdat->dstr_640__CLASS_SOURCE_DEFMACRO; + /*_._VALSTR___V734*/ meltfptr[733] = (melt_ptr_t) &meltcdat->dstr_640__CLASS_SOURCE_DEFMACRO; meltcdat->dstr_640__CLASS_SOURCE_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_640__CLASS_SOURCE_DEFMACRO.val, "CLASS_SOURCE_DEFMACRO", sizeof (meltcdat->dstr_640__CLASS_SOURCE_DEFMACRO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_640__CLASS_SOURCE_DEFMACRO.val, "CLASS_SOURCE_DEFMACRO", sizeof (meltcdat->dstr_640__CLASS_SOURCE_DEFMACRO.val)-1); meltcdat->dstr_640__CLASS_SOURCE_DEFMACRO.val[21] = (char)0 ; meltcdat->dstr_640__CLASS_SOURCE_DEFMACRO.slen = 21 ; MELT_LOCATION("warmelt-macro.melt:788:/ iniobj"); /*iniobj dobj_641__CLASS_SOURCE_DEFMACRO*/ - /*_._VALDATA___V735*/ - meltfptr[734] = (melt_ptr_t )&meltcdat->dobj_641__CLASS_SOURCE_DEFMACRO; + /*_._VALDATA___V735*/ meltfptr[734] = (melt_ptr_t )&meltcdat->dobj_641__CLASS_SOURCE_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_641__CLASS_SOURCE_DEFMACRO", 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_641__CLASS_SOURCE_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_641__CLASS_SOURCE_DEFMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -17440,28 +15608,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_642__CLASS_SOURCE_DEFMACRO*/ - /*_._VALSTR___V736*/ - meltfptr[735] = (melt_ptr_t) &meltcdat->dstr_642__CLASS_SOURCE_DEFMACRO; + /*_._VALSTR___V736*/ meltfptr[735] = (melt_ptr_t) &meltcdat->dstr_642__CLASS_SOURCE_DEFMACRO; meltcdat->dstr_642__CLASS_SOURCE_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_642__CLASS_SOURCE_DEFMACRO.val, "CLASS_SOURCE_DEFMACRO", sizeof (meltcdat->dstr_642__CLASS_SOURCE_DEFMACRO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_642__CLASS_SOURCE_DEFMACRO.val, "CLASS_SOURCE_DEFMACRO", sizeof (meltcdat->dstr_642__CLASS_SOURCE_DEFMACRO.val)-1); meltcdat->dstr_642__CLASS_SOURCE_DEFMACRO.val[21] = (char)0 ; meltcdat->dstr_642__CLASS_SOURCE_DEFMACRO.slen = 21 ; /*inimult dtup_643_syCLASS_SOURCE_DEFMACRO*/ - /*_._VALTUP___V737*/ - meltfptr[736] = (melt_ptr_t) &meltcdat->dtup_643_syCLASS_SOURCE_DEFMACRO; + /*_._VALTUP___V737*/ meltfptr[736] = (melt_ptr_t) &meltcdat->dtup_643_syCLASS_SOURCE_DEFMACRO; meltcdat->dtup_643_syCLASS_SOURCE_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_643_syCLASS_SOURCE_DEFMACRO.nbval = 7; /*inimult dtup_644_syCLASS_SOURCE_DEFMACRO*/ - /*_._VALTUP___V740*/ - meltfptr[739] = (melt_ptr_t) &meltcdat->dtup_644_syCLASS_SOURCE_DEFMACRO; + /*_._VALTUP___V740*/ meltfptr[739] = (melt_ptr_t) &meltcdat->dtup_644_syCLASS_SOURCE_DEFMACRO; meltcdat->dtup_644_syCLASS_SOURCE_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_644_syCLASS_SOURCE_DEFMACRO.nbval = 7; /*iniobj dsym_645__SMACRO_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V741*/ meltfptr[740]) + /*uniqueobj*/ if (!/*_._VALDATA___V741*/ meltfptr[740]) /*_._VALDATA___V741*/ meltfptr[740] = (melt_ptr_t )&meltcdat->dsym_645__SMACRO_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_645__SMACRO_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_645__SMACRO_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17471,19 +15634,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_646__SMACRO_BINDING*/ - /*_._VALSTR___V742*/ - meltfptr[741] = (melt_ptr_t) &meltcdat->dstr_646__SMACRO_BINDING; + /*_._VALSTR___V742*/ meltfptr[741] = (melt_ptr_t) &meltcdat->dstr_646__SMACRO_BINDING; meltcdat->dstr_646__SMACRO_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_646__SMACRO_BINDING.val, "SMACRO_BINDING", sizeof (meltcdat->dstr_646__SMACRO_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_646__SMACRO_BINDING.val, "SMACRO_BINDING", sizeof (meltcdat->dstr_646__SMACRO_BINDING.val)-1); meltcdat->dstr_646__SMACRO_BINDING.val[14] = (char)0 ; meltcdat->dstr_646__SMACRO_BINDING.slen = 14 ; /*^iniobj*/ /*iniobj dobj_647__SMACRO_BINDING*/ - /*_._VALDATA___V738*/ - meltfptr[737] = (melt_ptr_t )&meltcdat->dobj_647__SMACRO_BINDING; + /*_._VALDATA___V738*/ meltfptr[737] = (melt_ptr_t )&meltcdat->dobj_647__SMACRO_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_647__SMACRO_BINDING", 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_647__SMACRO_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_647__SMACRO_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -17493,18 +15653,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_648__SMACRO_BINDING*/ - /*_._VALSTR___V739*/ - meltfptr[738] = (melt_ptr_t) &meltcdat->dstr_648__SMACRO_BINDING; + /*_._VALSTR___V739*/ meltfptr[738] = (melt_ptr_t) &meltcdat->dstr_648__SMACRO_BINDING; meltcdat->dstr_648__SMACRO_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_648__SMACRO_BINDING.val, "SMACRO_BINDING", sizeof (meltcdat->dstr_648__SMACRO_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_648__SMACRO_BINDING.val, "SMACRO_BINDING", sizeof (meltcdat->dstr_648__SMACRO_BINDING.val)-1); meltcdat->dstr_648__SMACRO_BINDING.val[14] = (char)0 ; meltcdat->dstr_648__SMACRO_BINDING.slen = 14 ; /*iniobj dsym_649__CLASS_DEFINED_MACRO_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V743*/ meltfptr[742]) + /*uniqueobj*/ if (!/*_._VALDATA___V743*/ meltfptr[742]) /*_._VALDATA___V743*/ meltfptr[742] = (melt_ptr_t )&meltcdat->dsym_649__CLASS_DEFINED_MACRO_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_649__CLASS_DEFINED_MACRO_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_649__CLASS_DEFINED_MACRO_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17514,18 +15671,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_650__CLASS_DEFINED_MACRO_BIND*/ - /*_._VALSTR___V744*/ - meltfptr[743] = (melt_ptr_t) &meltcdat->dstr_650__CLASS_DEFINED_MACRO_BIND; + /*_._VALSTR___V744*/ meltfptr[743] = (melt_ptr_t) &meltcdat->dstr_650__CLASS_DEFINED_MACRO_BIND; meltcdat->dstr_650__CLASS_DEFINED_MACRO_BIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_650__CLASS_DEFINED_MACRO_BIND.val, "CLASS_DEFINED_MACRO_BINDING", sizeof (meltcdat->dstr_650__CLASS_DEFINED_MACRO_BIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_650__CLASS_DEFINED_MACRO_BIND.val, "CLASS_DEFINED_MACRO_BINDING", sizeof (meltcdat->dstr_650__CLASS_DEFINED_MACRO_BIND.val)-1); meltcdat->dstr_650__CLASS_DEFINED_MACRO_BIND.val[27] = (char)0 ; meltcdat->dstr_650__CLASS_DEFINED_MACRO_BIND.slen = 27 ; /*iniobj dsym_651__CLASS_MACRO_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V745*/ meltfptr[744]) + /*uniqueobj*/ if (!/*_._VALDATA___V745*/ meltfptr[744]) /*_._VALDATA___V745*/ meltfptr[744] = (melt_ptr_t )&meltcdat->dsym_651__CLASS_MACRO_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_651__CLASS_MACRO_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_651__CLASS_MACRO_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17535,19 +15689,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_652__CLASS_MACRO_BINDING*/ - /*_._VALSTR___V746*/ - meltfptr[745] = (melt_ptr_t) &meltcdat->dstr_652__CLASS_MACRO_BINDING; + /*_._VALSTR___V746*/ meltfptr[745] = (melt_ptr_t) &meltcdat->dstr_652__CLASS_MACRO_BINDING; meltcdat->dstr_652__CLASS_MACRO_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_652__CLASS_MACRO_BINDING.val, "CLASS_MACRO_BINDING", sizeof (meltcdat->dstr_652__CLASS_MACRO_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_652__CLASS_MACRO_BINDING.val, "CLASS_MACRO_BINDING", sizeof (meltcdat->dstr_652__CLASS_MACRO_BINDING.val)-1); meltcdat->dstr_652__CLASS_MACRO_BINDING.val[19] = (char)0 ; meltcdat->dstr_652__CLASS_MACRO_BINDING.slen = 19 ; MELT_LOCATION("warmelt-macro.melt:794:/ iniobj"); /*iniobj dobj_653__CLASS_DEFINED_MACRO_BINDING*/ - /*_._VALDATA___V747*/ - meltfptr[746] = (melt_ptr_t )&meltcdat->dobj_653__CLASS_DEFINED_MACRO_BINDING; + /*_._VALDATA___V747*/ meltfptr[746] = (melt_ptr_t )&meltcdat->dobj_653__CLASS_DEFINED_MACRO_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_653__CLASS_DEFINED_MACRO_BINDING", 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_653__CLASS_DEFINED_MACRO_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_653__CLASS_DEFINED_MACRO_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -17557,28 +15708,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_654__CLASS_DEFINED_MACRO_BIND*/ - /*_._VALSTR___V748*/ - meltfptr[747] = (melt_ptr_t) &meltcdat->dstr_654__CLASS_DEFINED_MACRO_BIND; + /*_._VALSTR___V748*/ meltfptr[747] = (melt_ptr_t) &meltcdat->dstr_654__CLASS_DEFINED_MACRO_BIND; meltcdat->dstr_654__CLASS_DEFINED_MACRO_BIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_654__CLASS_DEFINED_MACRO_BIND.val, "CLASS_DEFINED_MACRO_BINDING", sizeof (meltcdat->dstr_654__CLASS_DEFINED_MACRO_BIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_654__CLASS_DEFINED_MACRO_BIND.val, "CLASS_DEFINED_MACRO_BINDING", sizeof (meltcdat->dstr_654__CLASS_DEFINED_MACRO_BIND.val)-1); meltcdat->dstr_654__CLASS_DEFINED_MACRO_BIND.val[27] = (char)0 ; meltcdat->dstr_654__CLASS_DEFINED_MACRO_BIND.slen = 27 ; /*inimult dtup_655_syCLASS_DEFINED_MACRO_BINDING*/ - /*_._VALTUP___V749*/ - meltfptr[748] = (melt_ptr_t) &meltcdat->dtup_655_syCLASS_DEFINED_MACRO_BINDING; + /*_._VALTUP___V749*/ meltfptr[748] = (melt_ptr_t) &meltcdat->dtup_655_syCLASS_DEFINED_MACRO_BINDING; meltcdat->dtup_655_syCLASS_DEFINED_MACRO_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_655_syCLASS_DEFINED_MACRO_BINDING.nbval = 4; /*inimult dtup_656_syCLASS_DEFINED_MACRO_BINDING*/ - /*_._VALTUP___V754*/ - meltfptr[753] = (melt_ptr_t) &meltcdat->dtup_656_syCLASS_DEFINED_MACRO_BINDING; + /*_._VALTUP___V754*/ meltfptr[753] = (melt_ptr_t) &meltcdat->dtup_656_syCLASS_DEFINED_MACRO_BINDING; meltcdat->dtup_656_syCLASS_DEFINED_MACRO_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_656_syCLASS_DEFINED_MACRO_BINDING.nbval = 4; /*iniobj dsym_657__MBIND_DEFMACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V755*/ meltfptr[754]) + /*uniqueobj*/ if (!/*_._VALDATA___V755*/ meltfptr[754]) /*_._VALDATA___V755*/ meltfptr[754] = (melt_ptr_t )&meltcdat->dsym_657__MBIND_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_657__MBIND_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_657__MBIND_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17588,19 +15734,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_658__MBIND_DEFMACRO*/ - /*_._VALSTR___V756*/ - meltfptr[755] = (melt_ptr_t) &meltcdat->dstr_658__MBIND_DEFMACRO; + /*_._VALSTR___V756*/ meltfptr[755] = (melt_ptr_t) &meltcdat->dstr_658__MBIND_DEFMACRO; meltcdat->dstr_658__MBIND_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_658__MBIND_DEFMACRO.val, "MBIND_DEFMACRO", sizeof (meltcdat->dstr_658__MBIND_DEFMACRO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_658__MBIND_DEFMACRO.val, "MBIND_DEFMACRO", sizeof (meltcdat->dstr_658__MBIND_DEFMACRO.val)-1); meltcdat->dstr_658__MBIND_DEFMACRO.val[14] = (char)0 ; meltcdat->dstr_658__MBIND_DEFMACRO.slen = 14 ; /*^iniobj*/ /*iniobj dobj_659__MBIND_DEFMACRO*/ - /*_._VALDATA___V750*/ - meltfptr[749] = (melt_ptr_t )&meltcdat->dobj_659__MBIND_DEFMACRO; + /*_._VALDATA___V750*/ meltfptr[749] = (melt_ptr_t )&meltcdat->dobj_659__MBIND_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_659__MBIND_DEFMACRO", 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_659__MBIND_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_659__MBIND_DEFMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -17610,18 +15753,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_660__MBIND_DEFMACRO*/ - /*_._VALSTR___V751*/ - meltfptr[750] = (melt_ptr_t) &meltcdat->dstr_660__MBIND_DEFMACRO; + /*_._VALSTR___V751*/ meltfptr[750] = (melt_ptr_t) &meltcdat->dstr_660__MBIND_DEFMACRO; meltcdat->dstr_660__MBIND_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_660__MBIND_DEFMACRO.val, "MBIND_DEFMACRO", sizeof (meltcdat->dstr_660__MBIND_DEFMACRO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_660__MBIND_DEFMACRO.val, "MBIND_DEFMACRO", sizeof (meltcdat->dstr_660__MBIND_DEFMACRO.val)-1); meltcdat->dstr_660__MBIND_DEFMACRO.val[14] = (char)0 ; meltcdat->dstr_660__MBIND_DEFMACRO.slen = 14 ; /*iniobj dsym_661__MBIND_DATA*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V757*/ meltfptr[756]) + /*uniqueobj*/ if (!/*_._VALDATA___V757*/ meltfptr[756]) /*_._VALDATA___V757*/ meltfptr[756] = (melt_ptr_t )&meltcdat->dsym_661__MBIND_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_661__MBIND_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_661__MBIND_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17631,19 +15771,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_662__MBIND_DATA*/ - /*_._VALSTR___V758*/ - meltfptr[757] = (melt_ptr_t) &meltcdat->dstr_662__MBIND_DATA; + /*_._VALSTR___V758*/ meltfptr[757] = (melt_ptr_t) &meltcdat->dstr_662__MBIND_DATA; meltcdat->dstr_662__MBIND_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_662__MBIND_DATA.val, "MBIND_DATA", sizeof (meltcdat->dstr_662__MBIND_DATA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_662__MBIND_DATA.val, "MBIND_DATA", sizeof (meltcdat->dstr_662__MBIND_DATA.val)-1); meltcdat->dstr_662__MBIND_DATA.val[10] = (char)0 ; meltcdat->dstr_662__MBIND_DATA.slen = 10 ; /*^iniobj*/ /*iniobj dobj_663__MBIND_DATA*/ - /*_._VALDATA___V752*/ - meltfptr[751] = (melt_ptr_t )&meltcdat->dobj_663__MBIND_DATA; + /*_._VALDATA___V752*/ meltfptr[751] = (melt_ptr_t )&meltcdat->dobj_663__MBIND_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_663__MBIND_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_663__MBIND_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_663__MBIND_DATA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -17653,18 +15790,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_664__MBIND_DATA*/ - /*_._VALSTR___V753*/ - meltfptr[752] = (melt_ptr_t) &meltcdat->dstr_664__MBIND_DATA; + /*_._VALSTR___V753*/ meltfptr[752] = (melt_ptr_t) &meltcdat->dstr_664__MBIND_DATA; meltcdat->dstr_664__MBIND_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_664__MBIND_DATA.val, "MBIND_DATA", sizeof (meltcdat->dstr_664__MBIND_DATA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_664__MBIND_DATA.val, "MBIND_DATA", sizeof (meltcdat->dstr_664__MBIND_DATA.val)-1); meltcdat->dstr_664__MBIND_DATA.val[10] = (char)0 ; meltcdat->dstr_664__MBIND_DATA.slen = 10 ; /*iniobj dsym_665__CLASS_SOURCE_MACRO_INSTALLATION*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V759*/ meltfptr[758]) + /*uniqueobj*/ if (!/*_._VALDATA___V759*/ meltfptr[758]) /*_._VALDATA___V759*/ meltfptr[758] = (melt_ptr_t )&meltcdat->dsym_665__CLASS_SOURCE_MACRO_INSTALLATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_665__CLASS_SOURCE_MACRO_INSTALLATION", 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_665__CLASS_SOURCE_MACRO_INSTALLATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17674,19 +15808,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_666__CLASS_SOURCE_MACRO_INSTA*/ - /*_._VALSTR___V760*/ - meltfptr[759] = (melt_ptr_t) &meltcdat->dstr_666__CLASS_SOURCE_MACRO_INSTA; + /*_._VALSTR___V760*/ meltfptr[759] = (melt_ptr_t) &meltcdat->dstr_666__CLASS_SOURCE_MACRO_INSTA; meltcdat->dstr_666__CLASS_SOURCE_MACRO_INSTA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_666__CLASS_SOURCE_MACRO_INSTA.val, "CLASS_SOURCE_MACRO_INSTALLATION", sizeof (meltcdat->dstr_666__CLASS_SOURCE_MACRO_INSTA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_666__CLASS_SOURCE_MACRO_INSTA.val, "CLASS_SOURCE_MACRO_INSTALLATION", sizeof (meltcdat->dstr_666__CLASS_SOURCE_MACRO_INSTA.val)-1); meltcdat->dstr_666__CLASS_SOURCE_MACRO_INSTA.val[31] = (char)0 ; meltcdat->dstr_666__CLASS_SOURCE_MACRO_INSTA.slen = 31 ; MELT_LOCATION("warmelt-macro.melt:802:/ iniobj"); /*iniobj dobj_667__CLASS_SOURCE_MACRO_INSTALLATION*/ - /*_._VALDATA___V761*/ - meltfptr[760] = (melt_ptr_t )&meltcdat->dobj_667__CLASS_SOURCE_MACRO_INSTALLATION; + /*_._VALDATA___V761*/ meltfptr[760] = (melt_ptr_t )&meltcdat->dobj_667__CLASS_SOURCE_MACRO_INSTALLATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_667__CLASS_SOURCE_MACRO_INSTALLATION", 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_667__CLASS_SOURCE_MACRO_INSTALLATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_667__CLASS_SOURCE_MACRO_INSTALLATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -17696,28 +15827,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_668__CLASS_SOURCE_MACRO_INSTA*/ - /*_._VALSTR___V762*/ - meltfptr[761] = (melt_ptr_t) &meltcdat->dstr_668__CLASS_SOURCE_MACRO_INSTA; + /*_._VALSTR___V762*/ meltfptr[761] = (melt_ptr_t) &meltcdat->dstr_668__CLASS_SOURCE_MACRO_INSTA; meltcdat->dstr_668__CLASS_SOURCE_MACRO_INSTA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_668__CLASS_SOURCE_MACRO_INSTA.val, "CLASS_SOURCE_MACRO_INSTALLATION", sizeof (meltcdat->dstr_668__CLASS_SOURCE_MACRO_INSTA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_668__CLASS_SOURCE_MACRO_INSTA.val, "CLASS_SOURCE_MACRO_INSTALLATION", sizeof (meltcdat->dstr_668__CLASS_SOURCE_MACRO_INSTA.val)-1); meltcdat->dstr_668__CLASS_SOURCE_MACRO_INSTA.val[31] = (char)0 ; meltcdat->dstr_668__CLASS_SOURCE_MACRO_INSTA.slen = 31 ; /*inimult dtup_669_syCLASS_SOURCE_MACRO_INSTALLATION*/ - /*_._VALTUP___V763*/ - meltfptr[762] = (melt_ptr_t) &meltcdat->dtup_669_syCLASS_SOURCE_MACRO_INSTALLATION; + /*_._VALTUP___V763*/ meltfptr[762] = (melt_ptr_t) &meltcdat->dtup_669_syCLASS_SOURCE_MACRO_INSTALLATION; meltcdat->dtup_669_syCLASS_SOURCE_MACRO_INSTALLATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_669_syCLASS_SOURCE_MACRO_INSTALLATION.nbval = 4; /*inimult dtup_670_syCLASS_SOURCE_MACRO_INSTALLATION*/ - /*_._VALTUP___V766*/ - meltfptr[765] = (melt_ptr_t) &meltcdat->dtup_670_syCLASS_SOURCE_MACRO_INSTALLATION; + /*_._VALTUP___V766*/ meltfptr[765] = (melt_ptr_t) &meltcdat->dtup_670_syCLASS_SOURCE_MACRO_INSTALLATION; meltcdat->dtup_670_syCLASS_SOURCE_MACRO_INSTALLATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_670_syCLASS_SOURCE_MACRO_INSTALLATION.nbval = 3; /*iniobj dsym_671__SMACINST_DEFMACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V767*/ meltfptr[766]) + /*uniqueobj*/ if (!/*_._VALDATA___V767*/ meltfptr[766]) /*_._VALDATA___V767*/ meltfptr[766] = (melt_ptr_t )&meltcdat->dsym_671__SMACINST_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_671__SMACINST_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_671__SMACINST_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17727,19 +15853,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_672__SMACINST_DEFMACRO*/ - /*_._VALSTR___V768*/ - meltfptr[767] = (melt_ptr_t) &meltcdat->dstr_672__SMACINST_DEFMACRO; + /*_._VALSTR___V768*/ meltfptr[767] = (melt_ptr_t) &meltcdat->dstr_672__SMACINST_DEFMACRO; meltcdat->dstr_672__SMACINST_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_672__SMACINST_DEFMACRO.val, "SMACINST_DEFMACRO", sizeof (meltcdat->dstr_672__SMACINST_DEFMACRO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_672__SMACINST_DEFMACRO.val, "SMACINST_DEFMACRO", sizeof (meltcdat->dstr_672__SMACINST_DEFMACRO.val)-1); meltcdat->dstr_672__SMACINST_DEFMACRO.val[17] = (char)0 ; meltcdat->dstr_672__SMACINST_DEFMACRO.slen = 17 ; /*^iniobj*/ /*iniobj dobj_673__SMACINST_DEFMACRO*/ - /*_._VALDATA___V764*/ - meltfptr[763] = (melt_ptr_t )&meltcdat->dobj_673__SMACINST_DEFMACRO; + /*_._VALDATA___V764*/ meltfptr[763] = (melt_ptr_t )&meltcdat->dobj_673__SMACINST_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_673__SMACINST_DEFMACRO", 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_673__SMACINST_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_673__SMACINST_DEFMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -17749,18 +15872,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_674__SMACINST_DEFMACRO*/ - /*_._VALSTR___V765*/ - meltfptr[764] = (melt_ptr_t) &meltcdat->dstr_674__SMACINST_DEFMACRO; + /*_._VALSTR___V765*/ meltfptr[764] = (melt_ptr_t) &meltcdat->dstr_674__SMACINST_DEFMACRO; meltcdat->dstr_674__SMACINST_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_674__SMACINST_DEFMACRO.val, "SMACINST_DEFMACRO", sizeof (meltcdat->dstr_674__SMACINST_DEFMACRO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_674__SMACINST_DEFMACRO.val, "SMACINST_DEFMACRO", sizeof (meltcdat->dstr_674__SMACINST_DEFMACRO.val)-1); meltcdat->dstr_674__SMACINST_DEFMACRO.val[17] = (char)0 ; meltcdat->dstr_674__SMACINST_DEFMACRO.slen = 17 ; /*iniobj dsym_675__CLASS_SOURCE_DEFPRIMITIVE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V769*/ meltfptr[768]) + /*uniqueobj*/ if (!/*_._VALDATA___V769*/ meltfptr[768]) /*_._VALDATA___V769*/ meltfptr[768] = (melt_ptr_t )&meltcdat->dsym_675__CLASS_SOURCE_DEFPRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_675__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_675__CLASS_SOURCE_DEFPRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17770,19 +15890,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_676__CLASS_SOURCE_DEFPRIMITIV*/ - /*_._VALSTR___V770*/ - meltfptr[769] = (melt_ptr_t) &meltcdat->dstr_676__CLASS_SOURCE_DEFPRIMITIV; + /*_._VALSTR___V770*/ meltfptr[769] = (melt_ptr_t) &meltcdat->dstr_676__CLASS_SOURCE_DEFPRIMITIV; meltcdat->dstr_676__CLASS_SOURCE_DEFPRIMITIV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_676__CLASS_SOURCE_DEFPRIMITIV.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (meltcdat->dstr_676__CLASS_SOURCE_DEFPRIMITIV.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_676__CLASS_SOURCE_DEFPRIMITIV.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (meltcdat->dstr_676__CLASS_SOURCE_DEFPRIMITIV.val)-1); meltcdat->dstr_676__CLASS_SOURCE_DEFPRIMITIV.val[25] = (char)0 ; meltcdat->dstr_676__CLASS_SOURCE_DEFPRIMITIV.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:807:/ iniobj"); /*iniobj dobj_677__CLASS_SOURCE_DEFPRIMITIVE*/ - /*_._VALDATA___V771*/ - meltfptr[770] = (melt_ptr_t )&meltcdat->dobj_677__CLASS_SOURCE_DEFPRIMITIVE; + /*_._VALDATA___V771*/ meltfptr[770] = (melt_ptr_t )&meltcdat->dobj_677__CLASS_SOURCE_DEFPRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_677__CLASS_SOURCE_DEFPRIMITIVE", 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_677__CLASS_SOURCE_DEFPRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_677__CLASS_SOURCE_DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -17792,28 +15909,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_678__CLASS_SOURCE_DEFPRIMITIV*/ - /*_._VALSTR___V772*/ - meltfptr[771] = (melt_ptr_t) &meltcdat->dstr_678__CLASS_SOURCE_DEFPRIMITIV; + /*_._VALSTR___V772*/ meltfptr[771] = (melt_ptr_t) &meltcdat->dstr_678__CLASS_SOURCE_DEFPRIMITIV; meltcdat->dstr_678__CLASS_SOURCE_DEFPRIMITIV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_678__CLASS_SOURCE_DEFPRIMITIV.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (meltcdat->dstr_678__CLASS_SOURCE_DEFPRIMITIV.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_678__CLASS_SOURCE_DEFPRIMITIV.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (meltcdat->dstr_678__CLASS_SOURCE_DEFPRIMITIV.val)-1); meltcdat->dstr_678__CLASS_SOURCE_DEFPRIMITIV.val[25] = (char)0 ; meltcdat->dstr_678__CLASS_SOURCE_DEFPRIMITIV.slen = 25 ; /*inimult dtup_679_syCLASS_SOURCE_DEFPRIMITIVE*/ - /*_._VALTUP___V773*/ - meltfptr[772] = (melt_ptr_t) &meltcdat->dtup_679_syCLASS_SOURCE_DEFPRIMITIVE; + /*_._VALTUP___V773*/ meltfptr[772] = (melt_ptr_t) &meltcdat->dtup_679_syCLASS_SOURCE_DEFPRIMITIVE; meltcdat->dtup_679_syCLASS_SOURCE_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_679_syCLASS_SOURCE_DEFPRIMITIVE.nbval = 6; /*inimult dtup_680_syCLASS_SOURCE_DEFPRIMITIVE*/ - /*_._VALTUP___V780*/ - meltfptr[779] = (melt_ptr_t) &meltcdat->dtup_680_syCLASS_SOURCE_DEFPRIMITIVE; + /*_._VALTUP___V780*/ meltfptr[779] = (melt_ptr_t) &meltcdat->dtup_680_syCLASS_SOURCE_DEFPRIMITIVE; meltcdat->dtup_680_syCLASS_SOURCE_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_680_syCLASS_SOURCE_DEFPRIMITIVE.nbval = 8; /*iniobj dsym_681__SPRIM_TYPE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V781*/ meltfptr[780]) + /*uniqueobj*/ if (!/*_._VALDATA___V781*/ meltfptr[780]) /*_._VALDATA___V781*/ meltfptr[780] = (melt_ptr_t )&meltcdat->dsym_681__SPRIM_TYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_681__SPRIM_TYPE", 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_681__SPRIM_TYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17823,19 +15935,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_682__SPRIM_TYPE*/ - /*_._VALSTR___V782*/ - meltfptr[781] = (melt_ptr_t) &meltcdat->dstr_682__SPRIM_TYPE; + /*_._VALSTR___V782*/ meltfptr[781] = (melt_ptr_t) &meltcdat->dstr_682__SPRIM_TYPE; meltcdat->dstr_682__SPRIM_TYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_682__SPRIM_TYPE.val, "SPRIM_TYPE", sizeof (meltcdat->dstr_682__SPRIM_TYPE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_682__SPRIM_TYPE.val, "SPRIM_TYPE", sizeof (meltcdat->dstr_682__SPRIM_TYPE.val)-1); meltcdat->dstr_682__SPRIM_TYPE.val[10] = (char)0 ; meltcdat->dstr_682__SPRIM_TYPE.slen = 10 ; /*^iniobj*/ /*iniobj dobj_683__SPRIM_TYPE*/ - /*_._VALDATA___V774*/ - meltfptr[773] = (melt_ptr_t )&meltcdat->dobj_683__SPRIM_TYPE; + /*_._VALDATA___V774*/ meltfptr[773] = (melt_ptr_t )&meltcdat->dobj_683__SPRIM_TYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_683__SPRIM_TYPE", 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_683__SPRIM_TYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_683__SPRIM_TYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -17845,18 +15954,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_684__SPRIM_TYPE*/ - /*_._VALSTR___V775*/ - meltfptr[774] = (melt_ptr_t) &meltcdat->dstr_684__SPRIM_TYPE; + /*_._VALSTR___V775*/ meltfptr[774] = (melt_ptr_t) &meltcdat->dstr_684__SPRIM_TYPE; meltcdat->dstr_684__SPRIM_TYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_684__SPRIM_TYPE.val, "SPRIM_TYPE", sizeof (meltcdat->dstr_684__SPRIM_TYPE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_684__SPRIM_TYPE.val, "SPRIM_TYPE", sizeof (meltcdat->dstr_684__SPRIM_TYPE.val)-1); meltcdat->dstr_684__SPRIM_TYPE.val[10] = (char)0 ; meltcdat->dstr_684__SPRIM_TYPE.slen = 10 ; /*iniobj dsym_685__SPRIM_EXPANSION*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V783*/ meltfptr[782]) + /*uniqueobj*/ if (!/*_._VALDATA___V783*/ meltfptr[782]) /*_._VALDATA___V783*/ meltfptr[782] = (melt_ptr_t )&meltcdat->dsym_685__SPRIM_EXPANSION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_685__SPRIM_EXPANSION", 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_685__SPRIM_EXPANSION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17866,19 +15972,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_686__SPRIM_EXPANSION*/ - /*_._VALSTR___V784*/ - meltfptr[783] = (melt_ptr_t) &meltcdat->dstr_686__SPRIM_EXPANSION; + /*_._VALSTR___V784*/ meltfptr[783] = (melt_ptr_t) &meltcdat->dstr_686__SPRIM_EXPANSION; meltcdat->dstr_686__SPRIM_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_686__SPRIM_EXPANSION.val, "SPRIM_EXPANSION", sizeof (meltcdat->dstr_686__SPRIM_EXPANSION.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_686__SPRIM_EXPANSION.val, "SPRIM_EXPANSION", sizeof (meltcdat->dstr_686__SPRIM_EXPANSION.val)-1); meltcdat->dstr_686__SPRIM_EXPANSION.val[15] = (char)0 ; meltcdat->dstr_686__SPRIM_EXPANSION.slen = 15 ; /*^iniobj*/ /*iniobj dobj_687__SPRIM_EXPANSION*/ - /*_._VALDATA___V776*/ - meltfptr[775] = (melt_ptr_t )&meltcdat->dobj_687__SPRIM_EXPANSION; + /*_._VALDATA___V776*/ meltfptr[775] = (melt_ptr_t )&meltcdat->dobj_687__SPRIM_EXPANSION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_687__SPRIM_EXPANSION", 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_687__SPRIM_EXPANSION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_687__SPRIM_EXPANSION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -17888,18 +15991,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_688__SPRIM_EXPANSION*/ - /*_._VALSTR___V777*/ - meltfptr[776] = (melt_ptr_t) &meltcdat->dstr_688__SPRIM_EXPANSION; + /*_._VALSTR___V777*/ meltfptr[776] = (melt_ptr_t) &meltcdat->dstr_688__SPRIM_EXPANSION; meltcdat->dstr_688__SPRIM_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_688__SPRIM_EXPANSION.val, "SPRIM_EXPANSION", sizeof (meltcdat->dstr_688__SPRIM_EXPANSION.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_688__SPRIM_EXPANSION.val, "SPRIM_EXPANSION", sizeof (meltcdat->dstr_688__SPRIM_EXPANSION.val)-1); meltcdat->dstr_688__SPRIM_EXPANSION.val[15] = (char)0 ; meltcdat->dstr_688__SPRIM_EXPANSION.slen = 15 ; /*iniobj dsym_689__SPRIM_EXPLOC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V785*/ meltfptr[784]) + /*uniqueobj*/ if (!/*_._VALDATA___V785*/ meltfptr[784]) /*_._VALDATA___V785*/ meltfptr[784] = (melt_ptr_t )&meltcdat->dsym_689__SPRIM_EXPLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_689__SPRIM_EXPLOC", 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_689__SPRIM_EXPLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17909,19 +16009,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_690__SPRIM_EXPLOC*/ - /*_._VALSTR___V786*/ - meltfptr[785] = (melt_ptr_t) &meltcdat->dstr_690__SPRIM_EXPLOC; + /*_._VALSTR___V786*/ meltfptr[785] = (melt_ptr_t) &meltcdat->dstr_690__SPRIM_EXPLOC; meltcdat->dstr_690__SPRIM_EXPLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_690__SPRIM_EXPLOC.val, "SPRIM_EXPLOC", sizeof (meltcdat->dstr_690__SPRIM_EXPLOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_690__SPRIM_EXPLOC.val, "SPRIM_EXPLOC", sizeof (meltcdat->dstr_690__SPRIM_EXPLOC.val)-1); meltcdat->dstr_690__SPRIM_EXPLOC.val[12] = (char)0 ; meltcdat->dstr_690__SPRIM_EXPLOC.slen = 12 ; /*^iniobj*/ /*iniobj dobj_691__SPRIM_EXPLOC*/ - /*_._VALDATA___V778*/ - meltfptr[777] = (melt_ptr_t )&meltcdat->dobj_691__SPRIM_EXPLOC; + /*_._VALDATA___V778*/ meltfptr[777] = (melt_ptr_t )&meltcdat->dobj_691__SPRIM_EXPLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_691__SPRIM_EXPLOC", 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_691__SPRIM_EXPLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_691__SPRIM_EXPLOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -17931,18 +16028,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_692__SPRIM_EXPLOC*/ - /*_._VALSTR___V779*/ - meltfptr[778] = (melt_ptr_t) &meltcdat->dstr_692__SPRIM_EXPLOC; + /*_._VALSTR___V779*/ meltfptr[778] = (melt_ptr_t) &meltcdat->dstr_692__SPRIM_EXPLOC; meltcdat->dstr_692__SPRIM_EXPLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_692__SPRIM_EXPLOC.val, "SPRIM_EXPLOC", sizeof (meltcdat->dstr_692__SPRIM_EXPLOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_692__SPRIM_EXPLOC.val, "SPRIM_EXPLOC", sizeof (meltcdat->dstr_692__SPRIM_EXPLOC.val)-1); meltcdat->dstr_692__SPRIM_EXPLOC.val[12] = (char)0 ; meltcdat->dstr_692__SPRIM_EXPLOC.slen = 12 ; /*iniobj dsym_693__CLASS_SOURCE_DEFHOOK*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V787*/ meltfptr[786]) + /*uniqueobj*/ if (!/*_._VALDATA___V787*/ meltfptr[786]) /*_._VALDATA___V787*/ meltfptr[786] = (melt_ptr_t )&meltcdat->dsym_693__CLASS_SOURCE_DEFHOOK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_693__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_693__CLASS_SOURCE_DEFHOOK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -17952,19 +16046,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_694__CLASS_SOURCE_DEFHOOK*/ - /*_._VALSTR___V788*/ - meltfptr[787] = (melt_ptr_t) &meltcdat->dstr_694__CLASS_SOURCE_DEFHOOK; + /*_._VALSTR___V788*/ meltfptr[787] = (melt_ptr_t) &meltcdat->dstr_694__CLASS_SOURCE_DEFHOOK; meltcdat->dstr_694__CLASS_SOURCE_DEFHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_694__CLASS_SOURCE_DEFHOOK.val, "CLASS_SOURCE_DEFHOOK", sizeof (meltcdat->dstr_694__CLASS_SOURCE_DEFHOOK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_694__CLASS_SOURCE_DEFHOOK.val, "CLASS_SOURCE_DEFHOOK", sizeof (meltcdat->dstr_694__CLASS_SOURCE_DEFHOOK.val)-1); meltcdat->dstr_694__CLASS_SOURCE_DEFHOOK.val[20] = (char)0 ; meltcdat->dstr_694__CLASS_SOURCE_DEFHOOK.slen = 20 ; MELT_LOCATION("warmelt-macro.melt:819:/ iniobj"); /*iniobj dobj_695__CLASS_SOURCE_DEFHOOK*/ - /*_._VALDATA___V789*/ - meltfptr[788] = (melt_ptr_t )&meltcdat->dobj_695__CLASS_SOURCE_DEFHOOK; + /*_._VALDATA___V789*/ meltfptr[788] = (melt_ptr_t )&meltcdat->dobj_695__CLASS_SOURCE_DEFHOOK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_695__CLASS_SOURCE_DEFHOOK", 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_695__CLASS_SOURCE_DEFHOOK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_695__CLASS_SOURCE_DEFHOOK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -17974,28 +16065,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_696__CLASS_SOURCE_DEFHOOK*/ - /*_._VALSTR___V790*/ - meltfptr[789] = (melt_ptr_t) &meltcdat->dstr_696__CLASS_SOURCE_DEFHOOK; + /*_._VALSTR___V790*/ meltfptr[789] = (melt_ptr_t) &meltcdat->dstr_696__CLASS_SOURCE_DEFHOOK; meltcdat->dstr_696__CLASS_SOURCE_DEFHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_696__CLASS_SOURCE_DEFHOOK.val, "CLASS_SOURCE_DEFHOOK", sizeof (meltcdat->dstr_696__CLASS_SOURCE_DEFHOOK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_696__CLASS_SOURCE_DEFHOOK.val, "CLASS_SOURCE_DEFHOOK", sizeof (meltcdat->dstr_696__CLASS_SOURCE_DEFHOOK.val)-1); meltcdat->dstr_696__CLASS_SOURCE_DEFHOOK.val[20] = (char)0 ; meltcdat->dstr_696__CLASS_SOURCE_DEFHOOK.slen = 20 ; /*inimult dtup_697_syCLASS_SOURCE_DEFHOOK*/ - /*_._VALTUP___V791*/ - meltfptr[790] = (melt_ptr_t) &meltcdat->dtup_697_syCLASS_SOURCE_DEFHOOK; + /*_._VALTUP___V791*/ meltfptr[790] = (melt_ptr_t) &meltcdat->dtup_697_syCLASS_SOURCE_DEFHOOK; meltcdat->dtup_697_syCLASS_SOURCE_DEFHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_697_syCLASS_SOURCE_DEFHOOK.nbval = 6; /*inimult dtup_698_syCLASS_SOURCE_DEFHOOK*/ - /*_._VALTUP___V802*/ - meltfptr[801] = (melt_ptr_t) &meltcdat->dtup_698_syCLASS_SOURCE_DEFHOOK; + /*_._VALTUP___V802*/ meltfptr[801] = (melt_ptr_t) &meltcdat->dtup_698_syCLASS_SOURCE_DEFHOOK; meltcdat->dtup_698_syCLASS_SOURCE_DEFHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_698_syCLASS_SOURCE_DEFHOOK.nbval = 10; /*iniobj dsym_699__SHOOK_OUT_FORMALS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V803*/ meltfptr[802]) + /*uniqueobj*/ if (!/*_._VALDATA___V803*/ meltfptr[802]) /*_._VALDATA___V803*/ meltfptr[802] = (melt_ptr_t )&meltcdat->dsym_699__SHOOK_OUT_FORMALS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_699__SHOOK_OUT_FORMALS", 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_699__SHOOK_OUT_FORMALS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18005,19 +16091,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_700__SHOOK_OUT_FORMALS*/ - /*_._VALSTR___V804*/ - meltfptr[803] = (melt_ptr_t) &meltcdat->dstr_700__SHOOK_OUT_FORMALS; + /*_._VALSTR___V804*/ meltfptr[803] = (melt_ptr_t) &meltcdat->dstr_700__SHOOK_OUT_FORMALS; meltcdat->dstr_700__SHOOK_OUT_FORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_700__SHOOK_OUT_FORMALS.val, "SHOOK_OUT_FORMALS", sizeof (meltcdat->dstr_700__SHOOK_OUT_FORMALS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_700__SHOOK_OUT_FORMALS.val, "SHOOK_OUT_FORMALS", sizeof (meltcdat->dstr_700__SHOOK_OUT_FORMALS.val)-1); meltcdat->dstr_700__SHOOK_OUT_FORMALS.val[17] = (char)0 ; meltcdat->dstr_700__SHOOK_OUT_FORMALS.slen = 17 ; /*^iniobj*/ /*iniobj dobj_701__SHOOK_OUT_FORMALS*/ - /*_._VALDATA___V792*/ - meltfptr[791] = (melt_ptr_t )&meltcdat->dobj_701__SHOOK_OUT_FORMALS; + /*_._VALDATA___V792*/ meltfptr[791] = (melt_ptr_t )&meltcdat->dobj_701__SHOOK_OUT_FORMALS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_701__SHOOK_OUT_FORMALS", 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_701__SHOOK_OUT_FORMALS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_701__SHOOK_OUT_FORMALS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18027,18 +16110,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_702__SHOOK_OUT_FORMALS*/ - /*_._VALSTR___V793*/ - meltfptr[792] = (melt_ptr_t) &meltcdat->dstr_702__SHOOK_OUT_FORMALS; + /*_._VALSTR___V793*/ meltfptr[792] = (melt_ptr_t) &meltcdat->dstr_702__SHOOK_OUT_FORMALS; meltcdat->dstr_702__SHOOK_OUT_FORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_702__SHOOK_OUT_FORMALS.val, "SHOOK_OUT_FORMALS", sizeof (meltcdat->dstr_702__SHOOK_OUT_FORMALS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_702__SHOOK_OUT_FORMALS.val, "SHOOK_OUT_FORMALS", sizeof (meltcdat->dstr_702__SHOOK_OUT_FORMALS.val)-1); meltcdat->dstr_702__SHOOK_OUT_FORMALS.val[17] = (char)0 ; meltcdat->dstr_702__SHOOK_OUT_FORMALS.slen = 17 ; /*iniobj dsym_703__SHOOK_CTYPE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V805*/ meltfptr[804]) + /*uniqueobj*/ if (!/*_._VALDATA___V805*/ meltfptr[804]) /*_._VALDATA___V805*/ meltfptr[804] = (melt_ptr_t )&meltcdat->dsym_703__SHOOK_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_703__SHOOK_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_703__SHOOK_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18048,19 +16128,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_704__SHOOK_CTYPE*/ - /*_._VALSTR___V806*/ - meltfptr[805] = (melt_ptr_t) &meltcdat->dstr_704__SHOOK_CTYPE; + /*_._VALSTR___V806*/ meltfptr[805] = (melt_ptr_t) &meltcdat->dstr_704__SHOOK_CTYPE; meltcdat->dstr_704__SHOOK_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_704__SHOOK_CTYPE.val, "SHOOK_CTYPE", sizeof (meltcdat->dstr_704__SHOOK_CTYPE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_704__SHOOK_CTYPE.val, "SHOOK_CTYPE", sizeof (meltcdat->dstr_704__SHOOK_CTYPE.val)-1); meltcdat->dstr_704__SHOOK_CTYPE.val[11] = (char)0 ; meltcdat->dstr_704__SHOOK_CTYPE.slen = 11 ; /*^iniobj*/ /*iniobj dobj_705__SHOOK_CTYPE*/ - /*_._VALDATA___V794*/ - meltfptr[793] = (melt_ptr_t )&meltcdat->dobj_705__SHOOK_CTYPE; + /*_._VALDATA___V794*/ meltfptr[793] = (melt_ptr_t )&meltcdat->dobj_705__SHOOK_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_705__SHOOK_CTYPE", 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_705__SHOOK_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_705__SHOOK_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18070,18 +16147,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_706__SHOOK_CTYPE*/ - /*_._VALSTR___V795*/ - meltfptr[794] = (melt_ptr_t) &meltcdat->dstr_706__SHOOK_CTYPE; + /*_._VALSTR___V795*/ meltfptr[794] = (melt_ptr_t) &meltcdat->dstr_706__SHOOK_CTYPE; meltcdat->dstr_706__SHOOK_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_706__SHOOK_CTYPE.val, "SHOOK_CTYPE", sizeof (meltcdat->dstr_706__SHOOK_CTYPE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_706__SHOOK_CTYPE.val, "SHOOK_CTYPE", sizeof (meltcdat->dstr_706__SHOOK_CTYPE.val)-1); meltcdat->dstr_706__SHOOK_CTYPE.val[11] = (char)0 ; meltcdat->dstr_706__SHOOK_CTYPE.slen = 11 ; /*iniobj dsym_707__SHOOK_PREDEF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V807*/ meltfptr[806]) + /*uniqueobj*/ if (!/*_._VALDATA___V807*/ meltfptr[806]) /*_._VALDATA___V807*/ meltfptr[806] = (melt_ptr_t )&meltcdat->dsym_707__SHOOK_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_707__SHOOK_PREDEF", 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_707__SHOOK_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18091,19 +16165,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_708__SHOOK_PREDEF*/ - /*_._VALSTR___V808*/ - meltfptr[807] = (melt_ptr_t) &meltcdat->dstr_708__SHOOK_PREDEF; + /*_._VALSTR___V808*/ meltfptr[807] = (melt_ptr_t) &meltcdat->dstr_708__SHOOK_PREDEF; meltcdat->dstr_708__SHOOK_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_708__SHOOK_PREDEF.val, "SHOOK_PREDEF", sizeof (meltcdat->dstr_708__SHOOK_PREDEF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_708__SHOOK_PREDEF.val, "SHOOK_PREDEF", sizeof (meltcdat->dstr_708__SHOOK_PREDEF.val)-1); meltcdat->dstr_708__SHOOK_PREDEF.val[12] = (char)0 ; meltcdat->dstr_708__SHOOK_PREDEF.slen = 12 ; /*^iniobj*/ /*iniobj dobj_709__SHOOK_PREDEF*/ - /*_._VALDATA___V796*/ - meltfptr[795] = (melt_ptr_t )&meltcdat->dobj_709__SHOOK_PREDEF; + /*_._VALDATA___V796*/ meltfptr[795] = (melt_ptr_t )&meltcdat->dobj_709__SHOOK_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_709__SHOOK_PREDEF", 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_709__SHOOK_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_709__SHOOK_PREDEF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18113,18 +16184,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_710__SHOOK_PREDEF*/ - /*_._VALSTR___V797*/ - meltfptr[796] = (melt_ptr_t) &meltcdat->dstr_710__SHOOK_PREDEF; + /*_._VALSTR___V797*/ meltfptr[796] = (melt_ptr_t) &meltcdat->dstr_710__SHOOK_PREDEF; meltcdat->dstr_710__SHOOK_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_710__SHOOK_PREDEF.val, "SHOOK_PREDEF", sizeof (meltcdat->dstr_710__SHOOK_PREDEF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_710__SHOOK_PREDEF.val, "SHOOK_PREDEF", sizeof (meltcdat->dstr_710__SHOOK_PREDEF.val)-1); meltcdat->dstr_710__SHOOK_PREDEF.val[12] = (char)0 ; meltcdat->dstr_710__SHOOK_PREDEF.slen = 12 ; /*iniobj dsym_711__SHOOK_VARIABLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V809*/ meltfptr[808]) + /*uniqueobj*/ if (!/*_._VALDATA___V809*/ meltfptr[808]) /*_._VALDATA___V809*/ meltfptr[808] = (melt_ptr_t )&meltcdat->dsym_711__SHOOK_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_711__SHOOK_VARIABLE", 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_711__SHOOK_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18134,19 +16202,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_712__SHOOK_VARIABLE*/ - /*_._VALSTR___V810*/ - meltfptr[809] = (melt_ptr_t) &meltcdat->dstr_712__SHOOK_VARIABLE; + /*_._VALSTR___V810*/ meltfptr[809] = (melt_ptr_t) &meltcdat->dstr_712__SHOOK_VARIABLE; meltcdat->dstr_712__SHOOK_VARIABLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_712__SHOOK_VARIABLE.val, "SHOOK_VARIABLE", sizeof (meltcdat->dstr_712__SHOOK_VARIABLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_712__SHOOK_VARIABLE.val, "SHOOK_VARIABLE", sizeof (meltcdat->dstr_712__SHOOK_VARIABLE.val)-1); meltcdat->dstr_712__SHOOK_VARIABLE.val[14] = (char)0 ; meltcdat->dstr_712__SHOOK_VARIABLE.slen = 14 ; /*^iniobj*/ /*iniobj dobj_713__SHOOK_VARIABLE*/ - /*_._VALDATA___V798*/ - meltfptr[797] = (melt_ptr_t )&meltcdat->dobj_713__SHOOK_VARIABLE; + /*_._VALDATA___V798*/ meltfptr[797] = (melt_ptr_t )&meltcdat->dobj_713__SHOOK_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_713__SHOOK_VARIABLE", 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_713__SHOOK_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_713__SHOOK_VARIABLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18156,18 +16221,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_714__SHOOK_VARIABLE*/ - /*_._VALSTR___V799*/ - meltfptr[798] = (melt_ptr_t) &meltcdat->dstr_714__SHOOK_VARIABLE; + /*_._VALSTR___V799*/ meltfptr[798] = (melt_ptr_t) &meltcdat->dstr_714__SHOOK_VARIABLE; meltcdat->dstr_714__SHOOK_VARIABLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_714__SHOOK_VARIABLE.val, "SHOOK_VARIABLE", sizeof (meltcdat->dstr_714__SHOOK_VARIABLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_714__SHOOK_VARIABLE.val, "SHOOK_VARIABLE", sizeof (meltcdat->dstr_714__SHOOK_VARIABLE.val)-1); meltcdat->dstr_714__SHOOK_VARIABLE.val[14] = (char)0 ; meltcdat->dstr_714__SHOOK_VARIABLE.slen = 14 ; /*iniobj dsym_715__SHOOK_BODY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V811*/ meltfptr[810]) + /*uniqueobj*/ if (!/*_._VALDATA___V811*/ meltfptr[810]) /*_._VALDATA___V811*/ meltfptr[810] = (melt_ptr_t )&meltcdat->dsym_715__SHOOK_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_715__SHOOK_BODY", 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_715__SHOOK_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18177,19 +16239,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_716__SHOOK_BODY*/ - /*_._VALSTR___V812*/ - meltfptr[811] = (melt_ptr_t) &meltcdat->dstr_716__SHOOK_BODY; + /*_._VALSTR___V812*/ meltfptr[811] = (melt_ptr_t) &meltcdat->dstr_716__SHOOK_BODY; meltcdat->dstr_716__SHOOK_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_716__SHOOK_BODY.val, "SHOOK_BODY", sizeof (meltcdat->dstr_716__SHOOK_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_716__SHOOK_BODY.val, "SHOOK_BODY", sizeof (meltcdat->dstr_716__SHOOK_BODY.val)-1); meltcdat->dstr_716__SHOOK_BODY.val[10] = (char)0 ; meltcdat->dstr_716__SHOOK_BODY.slen = 10 ; /*^iniobj*/ /*iniobj dobj_717__SHOOK_BODY*/ - /*_._VALDATA___V800*/ - meltfptr[799] = (melt_ptr_t )&meltcdat->dobj_717__SHOOK_BODY; + /*_._VALDATA___V800*/ meltfptr[799] = (melt_ptr_t )&meltcdat->dobj_717__SHOOK_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_717__SHOOK_BODY", 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_717__SHOOK_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_717__SHOOK_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18199,18 +16258,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_718__SHOOK_BODY*/ - /*_._VALSTR___V801*/ - meltfptr[800] = (melt_ptr_t) &meltcdat->dstr_718__SHOOK_BODY; + /*_._VALSTR___V801*/ meltfptr[800] = (melt_ptr_t) &meltcdat->dstr_718__SHOOK_BODY; meltcdat->dstr_718__SHOOK_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_718__SHOOK_BODY.val, "SHOOK_BODY", sizeof (meltcdat->dstr_718__SHOOK_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_718__SHOOK_BODY.val, "SHOOK_BODY", sizeof (meltcdat->dstr_718__SHOOK_BODY.val)-1); meltcdat->dstr_718__SHOOK_BODY.val[10] = (char)0 ; meltcdat->dstr_718__SHOOK_BODY.slen = 10 ; /*iniobj dsym_719__CLASS_SOURCE_DEFCITERATOR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V813*/ meltfptr[812]) + /*uniqueobj*/ if (!/*_._VALDATA___V813*/ meltfptr[812]) /*_._VALDATA___V813*/ meltfptr[812] = (melt_ptr_t )&meltcdat->dsym_719__CLASS_SOURCE_DEFCITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_719__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_719__CLASS_SOURCE_DEFCITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18220,19 +16276,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_720__CLASS_SOURCE_DEFCITERATO*/ - /*_._VALSTR___V814*/ - meltfptr[813] = (melt_ptr_t) &meltcdat->dstr_720__CLASS_SOURCE_DEFCITERATO; + /*_._VALSTR___V814*/ meltfptr[813] = (melt_ptr_t) &meltcdat->dstr_720__CLASS_SOURCE_DEFCITERATO; meltcdat->dstr_720__CLASS_SOURCE_DEFCITERATO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_720__CLASS_SOURCE_DEFCITERATO.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (meltcdat->dstr_720__CLASS_SOURCE_DEFCITERATO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_720__CLASS_SOURCE_DEFCITERATO.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (meltcdat->dstr_720__CLASS_SOURCE_DEFCITERATO.val)-1); meltcdat->dstr_720__CLASS_SOURCE_DEFCITERATO.val[25] = (char)0 ; meltcdat->dstr_720__CLASS_SOURCE_DEFCITERATO.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:830:/ iniobj"); /*iniobj dobj_721__CLASS_SOURCE_DEFCITERATOR*/ - /*_._VALDATA___V815*/ - meltfptr[814] = (melt_ptr_t )&meltcdat->dobj_721__CLASS_SOURCE_DEFCITERATOR; + /*_._VALDATA___V815*/ meltfptr[814] = (melt_ptr_t )&meltcdat->dobj_721__CLASS_SOURCE_DEFCITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_721__CLASS_SOURCE_DEFCITERATOR", 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_721__CLASS_SOURCE_DEFCITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_721__CLASS_SOURCE_DEFCITERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -18242,28 +16295,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_722__CLASS_SOURCE_DEFCITERATO*/ - /*_._VALSTR___V816*/ - meltfptr[815] = (melt_ptr_t) &meltcdat->dstr_722__CLASS_SOURCE_DEFCITERATO; + /*_._VALSTR___V816*/ meltfptr[815] = (melt_ptr_t) &meltcdat->dstr_722__CLASS_SOURCE_DEFCITERATO; meltcdat->dstr_722__CLASS_SOURCE_DEFCITERATO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_722__CLASS_SOURCE_DEFCITERATO.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (meltcdat->dstr_722__CLASS_SOURCE_DEFCITERATO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_722__CLASS_SOURCE_DEFCITERATO.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (meltcdat->dstr_722__CLASS_SOURCE_DEFCITERATO.val)-1); meltcdat->dstr_722__CLASS_SOURCE_DEFCITERATO.val[25] = (char)0 ; meltcdat->dstr_722__CLASS_SOURCE_DEFCITERATO.slen = 25 ; /*inimult dtup_723_syCLASS_SOURCE_DEFCITERATOR*/ - /*_._VALTUP___V817*/ - meltfptr[816] = (melt_ptr_t) &meltcdat->dtup_723_syCLASS_SOURCE_DEFCITERATOR; + /*_._VALTUP___V817*/ meltfptr[816] = (melt_ptr_t) &meltcdat->dtup_723_syCLASS_SOURCE_DEFCITERATOR; meltcdat->dtup_723_syCLASS_SOURCE_DEFCITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_723_syCLASS_SOURCE_DEFCITERATOR.nbval = 6; /*inimult dtup_724_syCLASS_SOURCE_DEFCITERATOR*/ - /*_._VALTUP___V824*/ - meltfptr[823] = (melt_ptr_t) &meltcdat->dtup_724_syCLASS_SOURCE_DEFCITERATOR; + /*_._VALTUP___V824*/ meltfptr[823] = (melt_ptr_t) &meltcdat->dtup_724_syCLASS_SOURCE_DEFCITERATOR; meltcdat->dtup_724_syCLASS_SOURCE_DEFCITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_724_syCLASS_SOURCE_DEFCITERATOR.nbval = 8; /*iniobj dsym_725__SCITERDEF_CITERATOR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V825*/ meltfptr[824]) + /*uniqueobj*/ if (!/*_._VALDATA___V825*/ meltfptr[824]) /*_._VALDATA___V825*/ meltfptr[824] = (melt_ptr_t )&meltcdat->dsym_725__SCITERDEF_CITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_725__SCITERDEF_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_725__SCITERDEF_CITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18273,19 +16321,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_726__SCITERDEF_CITERATOR*/ - /*_._VALSTR___V826*/ - meltfptr[825] = (melt_ptr_t) &meltcdat->dstr_726__SCITERDEF_CITERATOR; + /*_._VALSTR___V826*/ meltfptr[825] = (melt_ptr_t) &meltcdat->dstr_726__SCITERDEF_CITERATOR; meltcdat->dstr_726__SCITERDEF_CITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_726__SCITERDEF_CITERATOR.val, "SCITERDEF_CITERATOR", sizeof (meltcdat->dstr_726__SCITERDEF_CITERATOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_726__SCITERDEF_CITERATOR.val, "SCITERDEF_CITERATOR", sizeof (meltcdat->dstr_726__SCITERDEF_CITERATOR.val)-1); meltcdat->dstr_726__SCITERDEF_CITERATOR.val[19] = (char)0 ; meltcdat->dstr_726__SCITERDEF_CITERATOR.slen = 19 ; /*^iniobj*/ /*iniobj dobj_727__SCITERDEF_CITERATOR*/ - /*_._VALDATA___V818*/ - meltfptr[817] = (melt_ptr_t )&meltcdat->dobj_727__SCITERDEF_CITERATOR; + /*_._VALDATA___V818*/ meltfptr[817] = (melt_ptr_t )&meltcdat->dobj_727__SCITERDEF_CITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_727__SCITERDEF_CITERATOR", 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_727__SCITERDEF_CITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_727__SCITERDEF_CITERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18295,18 +16340,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_728__SCITERDEF_CITERATOR*/ - /*_._VALSTR___V819*/ - meltfptr[818] = (melt_ptr_t) &meltcdat->dstr_728__SCITERDEF_CITERATOR; + /*_._VALSTR___V819*/ meltfptr[818] = (melt_ptr_t) &meltcdat->dstr_728__SCITERDEF_CITERATOR; meltcdat->dstr_728__SCITERDEF_CITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_728__SCITERDEF_CITERATOR.val, "SCITERDEF_CITERATOR", sizeof (meltcdat->dstr_728__SCITERDEF_CITERATOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_728__SCITERDEF_CITERATOR.val, "SCITERDEF_CITERATOR", sizeof (meltcdat->dstr_728__SCITERDEF_CITERATOR.val)-1); meltcdat->dstr_728__SCITERDEF_CITERATOR.val[19] = (char)0 ; meltcdat->dstr_728__SCITERDEF_CITERATOR.slen = 19 ; /*iniobj dsym_729__SCITERDEF_BEFORELOC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V827*/ meltfptr[826]) + /*uniqueobj*/ if (!/*_._VALDATA___V827*/ meltfptr[826]) /*_._VALDATA___V827*/ meltfptr[826] = (melt_ptr_t )&meltcdat->dsym_729__SCITERDEF_BEFORELOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_729__SCITERDEF_BEFORELOC", 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_729__SCITERDEF_BEFORELOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18316,19 +16358,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_730__SCITERDEF_BEFORELOC*/ - /*_._VALSTR___V828*/ - meltfptr[827] = (melt_ptr_t) &meltcdat->dstr_730__SCITERDEF_BEFORELOC; + /*_._VALSTR___V828*/ meltfptr[827] = (melt_ptr_t) &meltcdat->dstr_730__SCITERDEF_BEFORELOC; meltcdat->dstr_730__SCITERDEF_BEFORELOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_730__SCITERDEF_BEFORELOC.val, "SCITERDEF_BEFORELOC", sizeof (meltcdat->dstr_730__SCITERDEF_BEFORELOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_730__SCITERDEF_BEFORELOC.val, "SCITERDEF_BEFORELOC", sizeof (meltcdat->dstr_730__SCITERDEF_BEFORELOC.val)-1); meltcdat->dstr_730__SCITERDEF_BEFORELOC.val[19] = (char)0 ; meltcdat->dstr_730__SCITERDEF_BEFORELOC.slen = 19 ; /*^iniobj*/ /*iniobj dobj_731__SCITERDEF_BEFORELOC*/ - /*_._VALDATA___V820*/ - meltfptr[819] = (melt_ptr_t )&meltcdat->dobj_731__SCITERDEF_BEFORELOC; + /*_._VALDATA___V820*/ meltfptr[819] = (melt_ptr_t )&meltcdat->dobj_731__SCITERDEF_BEFORELOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_731__SCITERDEF_BEFORELOC", 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_731__SCITERDEF_BEFORELOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_731__SCITERDEF_BEFORELOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18338,18 +16377,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_732__SCITERDEF_BEFORELOC*/ - /*_._VALSTR___V821*/ - meltfptr[820] = (melt_ptr_t) &meltcdat->dstr_732__SCITERDEF_BEFORELOC; + /*_._VALSTR___V821*/ meltfptr[820] = (melt_ptr_t) &meltcdat->dstr_732__SCITERDEF_BEFORELOC; meltcdat->dstr_732__SCITERDEF_BEFORELOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_732__SCITERDEF_BEFORELOC.val, "SCITERDEF_BEFORELOC", sizeof (meltcdat->dstr_732__SCITERDEF_BEFORELOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_732__SCITERDEF_BEFORELOC.val, "SCITERDEF_BEFORELOC", sizeof (meltcdat->dstr_732__SCITERDEF_BEFORELOC.val)-1); meltcdat->dstr_732__SCITERDEF_BEFORELOC.val[19] = (char)0 ; meltcdat->dstr_732__SCITERDEF_BEFORELOC.slen = 19 ; /*iniobj dsym_733__SCITERDEF_AFTERLOC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V829*/ meltfptr[828]) + /*uniqueobj*/ if (!/*_._VALDATA___V829*/ meltfptr[828]) /*_._VALDATA___V829*/ meltfptr[828] = (melt_ptr_t )&meltcdat->dsym_733__SCITERDEF_AFTERLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_733__SCITERDEF_AFTERLOC", 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_733__SCITERDEF_AFTERLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18359,19 +16395,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_734__SCITERDEF_AFTERLOC*/ - /*_._VALSTR___V830*/ - meltfptr[829] = (melt_ptr_t) &meltcdat->dstr_734__SCITERDEF_AFTERLOC; + /*_._VALSTR___V830*/ meltfptr[829] = (melt_ptr_t) &meltcdat->dstr_734__SCITERDEF_AFTERLOC; meltcdat->dstr_734__SCITERDEF_AFTERLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_734__SCITERDEF_AFTERLOC.val, "SCITERDEF_AFTERLOC", sizeof (meltcdat->dstr_734__SCITERDEF_AFTERLOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_734__SCITERDEF_AFTERLOC.val, "SCITERDEF_AFTERLOC", sizeof (meltcdat->dstr_734__SCITERDEF_AFTERLOC.val)-1); meltcdat->dstr_734__SCITERDEF_AFTERLOC.val[18] = (char)0 ; meltcdat->dstr_734__SCITERDEF_AFTERLOC.slen = 18 ; /*^iniobj*/ /*iniobj dobj_735__SCITERDEF_AFTERLOC*/ - /*_._VALDATA___V822*/ - meltfptr[821] = (melt_ptr_t )&meltcdat->dobj_735__SCITERDEF_AFTERLOC; + /*_._VALDATA___V822*/ meltfptr[821] = (melt_ptr_t )&meltcdat->dobj_735__SCITERDEF_AFTERLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_735__SCITERDEF_AFTERLOC", 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_735__SCITERDEF_AFTERLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_735__SCITERDEF_AFTERLOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18381,18 +16414,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_736__SCITERDEF_AFTERLOC*/ - /*_._VALSTR___V823*/ - meltfptr[822] = (melt_ptr_t) &meltcdat->dstr_736__SCITERDEF_AFTERLOC; + /*_._VALSTR___V823*/ meltfptr[822] = (melt_ptr_t) &meltcdat->dstr_736__SCITERDEF_AFTERLOC; meltcdat->dstr_736__SCITERDEF_AFTERLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_736__SCITERDEF_AFTERLOC.val, "SCITERDEF_AFTERLOC", sizeof (meltcdat->dstr_736__SCITERDEF_AFTERLOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_736__SCITERDEF_AFTERLOC.val, "SCITERDEF_AFTERLOC", sizeof (meltcdat->dstr_736__SCITERDEF_AFTERLOC.val)-1); meltcdat->dstr_736__SCITERDEF_AFTERLOC.val[18] = (char)0 ; meltcdat->dstr_736__SCITERDEF_AFTERLOC.slen = 18 ; /*iniobj dsym_737__CLASS_SOURCE_DEFCMATCHER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V831*/ meltfptr[830]) + /*uniqueobj*/ if (!/*_._VALDATA___V831*/ meltfptr[830]) /*_._VALDATA___V831*/ meltfptr[830] = (melt_ptr_t )&meltcdat->dsym_737__CLASS_SOURCE_DEFCMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_737__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_737__CLASS_SOURCE_DEFCMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18402,19 +16432,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_738__CLASS_SOURCE_DEFCMATCHER*/ - /*_._VALSTR___V832*/ - meltfptr[831] = (melt_ptr_t) &meltcdat->dstr_738__CLASS_SOURCE_DEFCMATCHER; + /*_._VALSTR___V832*/ meltfptr[831] = (melt_ptr_t) &meltcdat->dstr_738__CLASS_SOURCE_DEFCMATCHER; meltcdat->dstr_738__CLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_738__CLASS_SOURCE_DEFCMATCHER.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (meltcdat->dstr_738__CLASS_SOURCE_DEFCMATCHER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_738__CLASS_SOURCE_DEFCMATCHER.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (meltcdat->dstr_738__CLASS_SOURCE_DEFCMATCHER.val)-1); meltcdat->dstr_738__CLASS_SOURCE_DEFCMATCHER.val[24] = (char)0 ; meltcdat->dstr_738__CLASS_SOURCE_DEFCMATCHER.slen = 24 ; MELT_LOCATION("warmelt-macro.melt:840:/ iniobj"); /*iniobj dobj_739__CLASS_SOURCE_DEFCMATCHER*/ - /*_._VALDATA___V833*/ - meltfptr[832] = (melt_ptr_t )&meltcdat->dobj_739__CLASS_SOURCE_DEFCMATCHER; + /*_._VALDATA___V833*/ meltfptr[832] = (melt_ptr_t )&meltcdat->dobj_739__CLASS_SOURCE_DEFCMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_739__CLASS_SOURCE_DEFCMATCHER", 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_739__CLASS_SOURCE_DEFCMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_739__CLASS_SOURCE_DEFCMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -18424,28 +16451,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_740__CLASS_SOURCE_DEFCMATCHER*/ - /*_._VALSTR___V834*/ - meltfptr[833] = (melt_ptr_t) &meltcdat->dstr_740__CLASS_SOURCE_DEFCMATCHER; + /*_._VALSTR___V834*/ meltfptr[833] = (melt_ptr_t) &meltcdat->dstr_740__CLASS_SOURCE_DEFCMATCHER; meltcdat->dstr_740__CLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_740__CLASS_SOURCE_DEFCMATCHER.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (meltcdat->dstr_740__CLASS_SOURCE_DEFCMATCHER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_740__CLASS_SOURCE_DEFCMATCHER.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (meltcdat->dstr_740__CLASS_SOURCE_DEFCMATCHER.val)-1); meltcdat->dstr_740__CLASS_SOURCE_DEFCMATCHER.val[24] = (char)0 ; meltcdat->dstr_740__CLASS_SOURCE_DEFCMATCHER.slen = 24 ; /*inimult dtup_741_syCLASS_SOURCE_DEFCMATCHER*/ - /*_._VALTUP___V835*/ - meltfptr[834] = (melt_ptr_t) &meltcdat->dtup_741_syCLASS_SOURCE_DEFCMATCHER; + /*_._VALTUP___V835*/ meltfptr[834] = (melt_ptr_t) &meltcdat->dtup_741_syCLASS_SOURCE_DEFCMATCHER; meltcdat->dtup_741_syCLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_741_syCLASS_SOURCE_DEFCMATCHER.nbval = 6; /*inimult dtup_742_syCLASS_SOURCE_DEFCMATCHER*/ - /*_._VALTUP___V844*/ - meltfptr[843] = (melt_ptr_t) &meltcdat->dtup_742_syCLASS_SOURCE_DEFCMATCHER; + /*_._VALTUP___V844*/ meltfptr[843] = (melt_ptr_t) &meltcdat->dtup_742_syCLASS_SOURCE_DEFCMATCHER; meltcdat->dtup_742_syCLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_742_syCLASS_SOURCE_DEFCMATCHER.nbval = 9; /*iniobj dsym_743__SCMATDEF_CMATCHER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V845*/ meltfptr[844]) + /*uniqueobj*/ if (!/*_._VALDATA___V845*/ meltfptr[844]) /*_._VALDATA___V845*/ meltfptr[844] = (melt_ptr_t )&meltcdat->dsym_743__SCMATDEF_CMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_743__SCMATDEF_CMATCHER", 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_743__SCMATDEF_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18455,19 +16477,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_744__SCMATDEF_CMATCHER*/ - /*_._VALSTR___V846*/ - meltfptr[845] = (melt_ptr_t) &meltcdat->dstr_744__SCMATDEF_CMATCHER; + /*_._VALSTR___V846*/ meltfptr[845] = (melt_ptr_t) &meltcdat->dstr_744__SCMATDEF_CMATCHER; meltcdat->dstr_744__SCMATDEF_CMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_744__SCMATDEF_CMATCHER.val, "SCMATDEF_CMATCHER", sizeof (meltcdat->dstr_744__SCMATDEF_CMATCHER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_744__SCMATDEF_CMATCHER.val, "SCMATDEF_CMATCHER", sizeof (meltcdat->dstr_744__SCMATDEF_CMATCHER.val)-1); meltcdat->dstr_744__SCMATDEF_CMATCHER.val[17] = (char)0 ; meltcdat->dstr_744__SCMATDEF_CMATCHER.slen = 17 ; /*^iniobj*/ /*iniobj dobj_745__SCMATDEF_CMATCHER*/ - /*_._VALDATA___V836*/ - meltfptr[835] = (melt_ptr_t )&meltcdat->dobj_745__SCMATDEF_CMATCHER; + /*_._VALDATA___V836*/ meltfptr[835] = (melt_ptr_t )&meltcdat->dobj_745__SCMATDEF_CMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_745__SCMATDEF_CMATCHER", 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_745__SCMATDEF_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_745__SCMATDEF_CMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18477,18 +16496,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_746__SCMATDEF_CMATCHER*/ - /*_._VALSTR___V837*/ - meltfptr[836] = (melt_ptr_t) &meltcdat->dstr_746__SCMATDEF_CMATCHER; + /*_._VALSTR___V837*/ meltfptr[836] = (melt_ptr_t) &meltcdat->dstr_746__SCMATDEF_CMATCHER; meltcdat->dstr_746__SCMATDEF_CMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_746__SCMATDEF_CMATCHER.val, "SCMATDEF_CMATCHER", sizeof (meltcdat->dstr_746__SCMATDEF_CMATCHER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_746__SCMATDEF_CMATCHER.val, "SCMATDEF_CMATCHER", sizeof (meltcdat->dstr_746__SCMATDEF_CMATCHER.val)-1); meltcdat->dstr_746__SCMATDEF_CMATCHER.val[17] = (char)0 ; meltcdat->dstr_746__SCMATDEF_CMATCHER.slen = 17 ; /*iniobj dsym_747__SCMATDEF_TESTLOC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V847*/ meltfptr[846]) + /*uniqueobj*/ if (!/*_._VALDATA___V847*/ meltfptr[846]) /*_._VALDATA___V847*/ meltfptr[846] = (melt_ptr_t )&meltcdat->dsym_747__SCMATDEF_TESTLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_747__SCMATDEF_TESTLOC", 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_747__SCMATDEF_TESTLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18498,19 +16514,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_748__SCMATDEF_TESTLOC*/ - /*_._VALSTR___V848*/ - meltfptr[847] = (melt_ptr_t) &meltcdat->dstr_748__SCMATDEF_TESTLOC; + /*_._VALSTR___V848*/ meltfptr[847] = (melt_ptr_t) &meltcdat->dstr_748__SCMATDEF_TESTLOC; meltcdat->dstr_748__SCMATDEF_TESTLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_748__SCMATDEF_TESTLOC.val, "SCMATDEF_TESTLOC", sizeof (meltcdat->dstr_748__SCMATDEF_TESTLOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_748__SCMATDEF_TESTLOC.val, "SCMATDEF_TESTLOC", sizeof (meltcdat->dstr_748__SCMATDEF_TESTLOC.val)-1); meltcdat->dstr_748__SCMATDEF_TESTLOC.val[16] = (char)0 ; meltcdat->dstr_748__SCMATDEF_TESTLOC.slen = 16 ; /*^iniobj*/ /*iniobj dobj_749__SCMATDEF_TESTLOC*/ - /*_._VALDATA___V838*/ - meltfptr[837] = (melt_ptr_t )&meltcdat->dobj_749__SCMATDEF_TESTLOC; + /*_._VALDATA___V838*/ meltfptr[837] = (melt_ptr_t )&meltcdat->dobj_749__SCMATDEF_TESTLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_749__SCMATDEF_TESTLOC", 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_749__SCMATDEF_TESTLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_749__SCMATDEF_TESTLOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18520,18 +16533,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_750__SCMATDEF_TESTLOC*/ - /*_._VALSTR___V839*/ - meltfptr[838] = (melt_ptr_t) &meltcdat->dstr_750__SCMATDEF_TESTLOC; + /*_._VALSTR___V839*/ meltfptr[838] = (melt_ptr_t) &meltcdat->dstr_750__SCMATDEF_TESTLOC; meltcdat->dstr_750__SCMATDEF_TESTLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_750__SCMATDEF_TESTLOC.val, "SCMATDEF_TESTLOC", sizeof (meltcdat->dstr_750__SCMATDEF_TESTLOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_750__SCMATDEF_TESTLOC.val, "SCMATDEF_TESTLOC", sizeof (meltcdat->dstr_750__SCMATDEF_TESTLOC.val)-1); meltcdat->dstr_750__SCMATDEF_TESTLOC.val[16] = (char)0 ; meltcdat->dstr_750__SCMATDEF_TESTLOC.slen = 16 ; /*iniobj dsym_751__SCMATDEF_FILLLOC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V849*/ meltfptr[848]) + /*uniqueobj*/ if (!/*_._VALDATA___V849*/ meltfptr[848]) /*_._VALDATA___V849*/ meltfptr[848] = (melt_ptr_t )&meltcdat->dsym_751__SCMATDEF_FILLLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_751__SCMATDEF_FILLLOC", 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_751__SCMATDEF_FILLLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18541,19 +16551,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_752__SCMATDEF_FILLLOC*/ - /*_._VALSTR___V850*/ - meltfptr[849] = (melt_ptr_t) &meltcdat->dstr_752__SCMATDEF_FILLLOC; + /*_._VALSTR___V850*/ meltfptr[849] = (melt_ptr_t) &meltcdat->dstr_752__SCMATDEF_FILLLOC; meltcdat->dstr_752__SCMATDEF_FILLLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_752__SCMATDEF_FILLLOC.val, "SCMATDEF_FILLLOC", sizeof (meltcdat->dstr_752__SCMATDEF_FILLLOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_752__SCMATDEF_FILLLOC.val, "SCMATDEF_FILLLOC", sizeof (meltcdat->dstr_752__SCMATDEF_FILLLOC.val)-1); meltcdat->dstr_752__SCMATDEF_FILLLOC.val[16] = (char)0 ; meltcdat->dstr_752__SCMATDEF_FILLLOC.slen = 16 ; /*^iniobj*/ /*iniobj dobj_753__SCMATDEF_FILLLOC*/ - /*_._VALDATA___V840*/ - meltfptr[839] = (melt_ptr_t )&meltcdat->dobj_753__SCMATDEF_FILLLOC; + /*_._VALDATA___V840*/ meltfptr[839] = (melt_ptr_t )&meltcdat->dobj_753__SCMATDEF_FILLLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_753__SCMATDEF_FILLLOC", 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_753__SCMATDEF_FILLLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_753__SCMATDEF_FILLLOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18563,18 +16570,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_754__SCMATDEF_FILLLOC*/ - /*_._VALSTR___V841*/ - meltfptr[840] = (melt_ptr_t) &meltcdat->dstr_754__SCMATDEF_FILLLOC; + /*_._VALSTR___V841*/ meltfptr[840] = (melt_ptr_t) &meltcdat->dstr_754__SCMATDEF_FILLLOC; meltcdat->dstr_754__SCMATDEF_FILLLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_754__SCMATDEF_FILLLOC.val, "SCMATDEF_FILLLOC", sizeof (meltcdat->dstr_754__SCMATDEF_FILLLOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_754__SCMATDEF_FILLLOC.val, "SCMATDEF_FILLLOC", sizeof (meltcdat->dstr_754__SCMATDEF_FILLLOC.val)-1); meltcdat->dstr_754__SCMATDEF_FILLLOC.val[16] = (char)0 ; meltcdat->dstr_754__SCMATDEF_FILLLOC.slen = 16 ; /*iniobj dsym_755__SCMATDEF_OPERLOC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V851*/ meltfptr[850]) + /*uniqueobj*/ if (!/*_._VALDATA___V851*/ meltfptr[850]) /*_._VALDATA___V851*/ meltfptr[850] = (melt_ptr_t )&meltcdat->dsym_755__SCMATDEF_OPERLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_755__SCMATDEF_OPERLOC", 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_755__SCMATDEF_OPERLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18584,19 +16588,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_756__SCMATDEF_OPERLOC*/ - /*_._VALSTR___V852*/ - meltfptr[851] = (melt_ptr_t) &meltcdat->dstr_756__SCMATDEF_OPERLOC; + /*_._VALSTR___V852*/ meltfptr[851] = (melt_ptr_t) &meltcdat->dstr_756__SCMATDEF_OPERLOC; meltcdat->dstr_756__SCMATDEF_OPERLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_756__SCMATDEF_OPERLOC.val, "SCMATDEF_OPERLOC", sizeof (meltcdat->dstr_756__SCMATDEF_OPERLOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_756__SCMATDEF_OPERLOC.val, "SCMATDEF_OPERLOC", sizeof (meltcdat->dstr_756__SCMATDEF_OPERLOC.val)-1); meltcdat->dstr_756__SCMATDEF_OPERLOC.val[16] = (char)0 ; meltcdat->dstr_756__SCMATDEF_OPERLOC.slen = 16 ; /*^iniobj*/ /*iniobj dobj_757__SCMATDEF_OPERLOC*/ - /*_._VALDATA___V842*/ - meltfptr[841] = (melt_ptr_t )&meltcdat->dobj_757__SCMATDEF_OPERLOC; + /*_._VALDATA___V842*/ meltfptr[841] = (melt_ptr_t )&meltcdat->dobj_757__SCMATDEF_OPERLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_757__SCMATDEF_OPERLOC", 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_757__SCMATDEF_OPERLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_757__SCMATDEF_OPERLOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18606,18 +16607,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_758__SCMATDEF_OPERLOC*/ - /*_._VALSTR___V843*/ - meltfptr[842] = (melt_ptr_t) &meltcdat->dstr_758__SCMATDEF_OPERLOC; + /*_._VALSTR___V843*/ meltfptr[842] = (melt_ptr_t) &meltcdat->dstr_758__SCMATDEF_OPERLOC; meltcdat->dstr_758__SCMATDEF_OPERLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_758__SCMATDEF_OPERLOC.val, "SCMATDEF_OPERLOC", sizeof (meltcdat->dstr_758__SCMATDEF_OPERLOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_758__SCMATDEF_OPERLOC.val, "SCMATDEF_OPERLOC", sizeof (meltcdat->dstr_758__SCMATDEF_OPERLOC.val)-1); meltcdat->dstr_758__SCMATDEF_OPERLOC.val[16] = (char)0 ; meltcdat->dstr_758__SCMATDEF_OPERLOC.slen = 16 ; /*iniobj dsym_759__CLASS_SOURCE_DEFUNMATCHER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V853*/ meltfptr[852]) + /*uniqueobj*/ if (!/*_._VALDATA___V853*/ meltfptr[852]) /*_._VALDATA___V853*/ meltfptr[852] = (melt_ptr_t )&meltcdat->dsym_759__CLASS_SOURCE_DEFUNMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_759__CLASS_SOURCE_DEFUNMATCHER", 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_759__CLASS_SOURCE_DEFUNMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18627,19 +16625,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_760__CLASS_SOURCE_DEFUNMATCHE*/ - /*_._VALSTR___V854*/ - meltfptr[853] = (melt_ptr_t) &meltcdat->dstr_760__CLASS_SOURCE_DEFUNMATCHE; + /*_._VALSTR___V854*/ meltfptr[853] = (melt_ptr_t) &meltcdat->dstr_760__CLASS_SOURCE_DEFUNMATCHE; meltcdat->dstr_760__CLASS_SOURCE_DEFUNMATCHE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_760__CLASS_SOURCE_DEFUNMATCHE.val, "CLASS_SOURCE_DEFUNMATCHER", sizeof (meltcdat->dstr_760__CLASS_SOURCE_DEFUNMATCHE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_760__CLASS_SOURCE_DEFUNMATCHE.val, "CLASS_SOURCE_DEFUNMATCHER", sizeof (meltcdat->dstr_760__CLASS_SOURCE_DEFUNMATCHE.val)-1); meltcdat->dstr_760__CLASS_SOURCE_DEFUNMATCHE.val[25] = (char)0 ; meltcdat->dstr_760__CLASS_SOURCE_DEFUNMATCHE.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:859:/ iniobj"); /*iniobj dobj_761__CLASS_SOURCE_DEFUNMATCHER*/ - /*_._VALDATA___V855*/ - meltfptr[854] = (melt_ptr_t )&meltcdat->dobj_761__CLASS_SOURCE_DEFUNMATCHER; + /*_._VALDATA___V855*/ meltfptr[854] = (melt_ptr_t )&meltcdat->dobj_761__CLASS_SOURCE_DEFUNMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_761__CLASS_SOURCE_DEFUNMATCHER", 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_761__CLASS_SOURCE_DEFUNMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_761__CLASS_SOURCE_DEFUNMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -18649,28 +16644,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_762__CLASS_SOURCE_DEFUNMATCHE*/ - /*_._VALSTR___V856*/ - meltfptr[855] = (melt_ptr_t) &meltcdat->dstr_762__CLASS_SOURCE_DEFUNMATCHE; + /*_._VALSTR___V856*/ meltfptr[855] = (melt_ptr_t) &meltcdat->dstr_762__CLASS_SOURCE_DEFUNMATCHE; meltcdat->dstr_762__CLASS_SOURCE_DEFUNMATCHE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_762__CLASS_SOURCE_DEFUNMATCHE.val, "CLASS_SOURCE_DEFUNMATCHER", sizeof (meltcdat->dstr_762__CLASS_SOURCE_DEFUNMATCHE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_762__CLASS_SOURCE_DEFUNMATCHE.val, "CLASS_SOURCE_DEFUNMATCHER", sizeof (meltcdat->dstr_762__CLASS_SOURCE_DEFUNMATCHE.val)-1); meltcdat->dstr_762__CLASS_SOURCE_DEFUNMATCHE.val[25] = (char)0 ; meltcdat->dstr_762__CLASS_SOURCE_DEFUNMATCHE.slen = 25 ; /*inimult dtup_763_syCLASS_SOURCE_DEFUNMATCHER*/ - /*_._VALTUP___V857*/ - meltfptr[856] = (melt_ptr_t) &meltcdat->dtup_763_syCLASS_SOURCE_DEFUNMATCHER; + /*_._VALTUP___V857*/ meltfptr[856] = (melt_ptr_t) &meltcdat->dtup_763_syCLASS_SOURCE_DEFUNMATCHER; meltcdat->dtup_763_syCLASS_SOURCE_DEFUNMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_763_syCLASS_SOURCE_DEFUNMATCHER.nbval = 6; /*inimult dtup_764_syCLASS_SOURCE_DEFUNMATCHER*/ - /*_._VALTUP___V868*/ - meltfptr[867] = (melt_ptr_t) &meltcdat->dtup_764_syCLASS_SOURCE_DEFUNMATCHER; + /*_._VALTUP___V868*/ meltfptr[867] = (melt_ptr_t) &meltcdat->dtup_764_syCLASS_SOURCE_DEFUNMATCHER; meltcdat->dtup_764_syCLASS_SOURCE_DEFUNMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_764_syCLASS_SOURCE_DEFUNMATCHER.nbval = 10; /*iniobj dsym_765__SFUMATDEF_INS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V869*/ meltfptr[868]) + /*uniqueobj*/ if (!/*_._VALDATA___V869*/ meltfptr[868]) /*_._VALDATA___V869*/ meltfptr[868] = (melt_ptr_t )&meltcdat->dsym_765__SFUMATDEF_INS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_765__SFUMATDEF_INS", 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_765__SFUMATDEF_INS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18680,19 +16670,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_766__SFUMATDEF_INS*/ - /*_._VALSTR___V870*/ - meltfptr[869] = (melt_ptr_t) &meltcdat->dstr_766__SFUMATDEF_INS; + /*_._VALSTR___V870*/ meltfptr[869] = (melt_ptr_t) &meltcdat->dstr_766__SFUMATDEF_INS; meltcdat->dstr_766__SFUMATDEF_INS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_766__SFUMATDEF_INS.val, "SFUMATDEF_INS", sizeof (meltcdat->dstr_766__SFUMATDEF_INS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_766__SFUMATDEF_INS.val, "SFUMATDEF_INS", sizeof (meltcdat->dstr_766__SFUMATDEF_INS.val)-1); meltcdat->dstr_766__SFUMATDEF_INS.val[13] = (char)0 ; meltcdat->dstr_766__SFUMATDEF_INS.slen = 13 ; /*^iniobj*/ /*iniobj dobj_767__SFUMATDEF_INS*/ - /*_._VALDATA___V858*/ - meltfptr[857] = (melt_ptr_t )&meltcdat->dobj_767__SFUMATDEF_INS; + /*_._VALDATA___V858*/ meltfptr[857] = (melt_ptr_t )&meltcdat->dobj_767__SFUMATDEF_INS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_767__SFUMATDEF_INS", 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_767__SFUMATDEF_INS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_767__SFUMATDEF_INS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18702,18 +16689,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_768__SFUMATDEF_INS*/ - /*_._VALSTR___V859*/ - meltfptr[858] = (melt_ptr_t) &meltcdat->dstr_768__SFUMATDEF_INS; + /*_._VALSTR___V859*/ meltfptr[858] = (melt_ptr_t) &meltcdat->dstr_768__SFUMATDEF_INS; meltcdat->dstr_768__SFUMATDEF_INS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_768__SFUMATDEF_INS.val, "SFUMATDEF_INS", sizeof (meltcdat->dstr_768__SFUMATDEF_INS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_768__SFUMATDEF_INS.val, "SFUMATDEF_INS", sizeof (meltcdat->dstr_768__SFUMATDEF_INS.val)-1); meltcdat->dstr_768__SFUMATDEF_INS.val[13] = (char)0 ; meltcdat->dstr_768__SFUMATDEF_INS.slen = 13 ; /*iniobj dsym_769__SFUMATDEF_OUTS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V871*/ meltfptr[870]) + /*uniqueobj*/ if (!/*_._VALDATA___V871*/ meltfptr[870]) /*_._VALDATA___V871*/ meltfptr[870] = (melt_ptr_t )&meltcdat->dsym_769__SFUMATDEF_OUTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_769__SFUMATDEF_OUTS", 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_769__SFUMATDEF_OUTS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18723,19 +16707,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_770__SFUMATDEF_OUTS*/ - /*_._VALSTR___V872*/ - meltfptr[871] = (melt_ptr_t) &meltcdat->dstr_770__SFUMATDEF_OUTS; + /*_._VALSTR___V872*/ meltfptr[871] = (melt_ptr_t) &meltcdat->dstr_770__SFUMATDEF_OUTS; meltcdat->dstr_770__SFUMATDEF_OUTS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_770__SFUMATDEF_OUTS.val, "SFUMATDEF_OUTS", sizeof (meltcdat->dstr_770__SFUMATDEF_OUTS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_770__SFUMATDEF_OUTS.val, "SFUMATDEF_OUTS", sizeof (meltcdat->dstr_770__SFUMATDEF_OUTS.val)-1); meltcdat->dstr_770__SFUMATDEF_OUTS.val[14] = (char)0 ; meltcdat->dstr_770__SFUMATDEF_OUTS.slen = 14 ; /*^iniobj*/ /*iniobj dobj_771__SFUMATDEF_OUTS*/ - /*_._VALDATA___V860*/ - meltfptr[859] = (melt_ptr_t )&meltcdat->dobj_771__SFUMATDEF_OUTS; + /*_._VALDATA___V860*/ meltfptr[859] = (melt_ptr_t )&meltcdat->dobj_771__SFUMATDEF_OUTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_771__SFUMATDEF_OUTS", 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_771__SFUMATDEF_OUTS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_771__SFUMATDEF_OUTS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18745,18 +16726,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_772__SFUMATDEF_OUTS*/ - /*_._VALSTR___V861*/ - meltfptr[860] = (melt_ptr_t) &meltcdat->dstr_772__SFUMATDEF_OUTS; + /*_._VALSTR___V861*/ meltfptr[860] = (melt_ptr_t) &meltcdat->dstr_772__SFUMATDEF_OUTS; meltcdat->dstr_772__SFUMATDEF_OUTS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_772__SFUMATDEF_OUTS.val, "SFUMATDEF_OUTS", sizeof (meltcdat->dstr_772__SFUMATDEF_OUTS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_772__SFUMATDEF_OUTS.val, "SFUMATDEF_OUTS", sizeof (meltcdat->dstr_772__SFUMATDEF_OUTS.val)-1); meltcdat->dstr_772__SFUMATDEF_OUTS.val[14] = (char)0 ; meltcdat->dstr_772__SFUMATDEF_OUTS.slen = 14 ; /*iniobj dsym_773__SFUMATDEF_MATCHF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V873*/ meltfptr[872]) + /*uniqueobj*/ if (!/*_._VALDATA___V873*/ meltfptr[872]) /*_._VALDATA___V873*/ meltfptr[872] = (melt_ptr_t )&meltcdat->dsym_773__SFUMATDEF_MATCHF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_773__SFUMATDEF_MATCHF", 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_773__SFUMATDEF_MATCHF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18766,19 +16744,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_774__SFUMATDEF_MATCHF*/ - /*_._VALSTR___V874*/ - meltfptr[873] = (melt_ptr_t) &meltcdat->dstr_774__SFUMATDEF_MATCHF; + /*_._VALSTR___V874*/ meltfptr[873] = (melt_ptr_t) &meltcdat->dstr_774__SFUMATDEF_MATCHF; meltcdat->dstr_774__SFUMATDEF_MATCHF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_774__SFUMATDEF_MATCHF.val, "SFUMATDEF_MATCHF", sizeof (meltcdat->dstr_774__SFUMATDEF_MATCHF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_774__SFUMATDEF_MATCHF.val, "SFUMATDEF_MATCHF", sizeof (meltcdat->dstr_774__SFUMATDEF_MATCHF.val)-1); meltcdat->dstr_774__SFUMATDEF_MATCHF.val[16] = (char)0 ; meltcdat->dstr_774__SFUMATDEF_MATCHF.slen = 16 ; /*^iniobj*/ /*iniobj dobj_775__SFUMATDEF_MATCHF*/ - /*_._VALDATA___V862*/ - meltfptr[861] = (melt_ptr_t )&meltcdat->dobj_775__SFUMATDEF_MATCHF; + /*_._VALDATA___V862*/ meltfptr[861] = (melt_ptr_t )&meltcdat->dobj_775__SFUMATDEF_MATCHF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_775__SFUMATDEF_MATCHF", 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_775__SFUMATDEF_MATCHF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_775__SFUMATDEF_MATCHF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18788,18 +16763,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_776__SFUMATDEF_MATCHF*/ - /*_._VALSTR___V863*/ - meltfptr[862] = (melt_ptr_t) &meltcdat->dstr_776__SFUMATDEF_MATCHF; + /*_._VALSTR___V863*/ meltfptr[862] = (melt_ptr_t) &meltcdat->dstr_776__SFUMATDEF_MATCHF; meltcdat->dstr_776__SFUMATDEF_MATCHF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_776__SFUMATDEF_MATCHF.val, "SFUMATDEF_MATCHF", sizeof (meltcdat->dstr_776__SFUMATDEF_MATCHF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_776__SFUMATDEF_MATCHF.val, "SFUMATDEF_MATCHF", sizeof (meltcdat->dstr_776__SFUMATDEF_MATCHF.val)-1); meltcdat->dstr_776__SFUMATDEF_MATCHF.val[16] = (char)0 ; meltcdat->dstr_776__SFUMATDEF_MATCHF.slen = 16 ; /*iniobj dsym_777__SFUMATDEF_APPLYF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V875*/ meltfptr[874]) + /*uniqueobj*/ if (!/*_._VALDATA___V875*/ meltfptr[874]) /*_._VALDATA___V875*/ meltfptr[874] = (melt_ptr_t )&meltcdat->dsym_777__SFUMATDEF_APPLYF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_777__SFUMATDEF_APPLYF", 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_777__SFUMATDEF_APPLYF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18809,19 +16781,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_778__SFUMATDEF_APPLYF*/ - /*_._VALSTR___V876*/ - meltfptr[875] = (melt_ptr_t) &meltcdat->dstr_778__SFUMATDEF_APPLYF; + /*_._VALSTR___V876*/ meltfptr[875] = (melt_ptr_t) &meltcdat->dstr_778__SFUMATDEF_APPLYF; meltcdat->dstr_778__SFUMATDEF_APPLYF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_778__SFUMATDEF_APPLYF.val, "SFUMATDEF_APPLYF", sizeof (meltcdat->dstr_778__SFUMATDEF_APPLYF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_778__SFUMATDEF_APPLYF.val, "SFUMATDEF_APPLYF", sizeof (meltcdat->dstr_778__SFUMATDEF_APPLYF.val)-1); meltcdat->dstr_778__SFUMATDEF_APPLYF.val[16] = (char)0 ; meltcdat->dstr_778__SFUMATDEF_APPLYF.slen = 16 ; /*^iniobj*/ /*iniobj dobj_779__SFUMATDEF_APPLYF*/ - /*_._VALDATA___V864*/ - meltfptr[863] = (melt_ptr_t )&meltcdat->dobj_779__SFUMATDEF_APPLYF; + /*_._VALDATA___V864*/ meltfptr[863] = (melt_ptr_t )&meltcdat->dobj_779__SFUMATDEF_APPLYF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_779__SFUMATDEF_APPLYF", 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_779__SFUMATDEF_APPLYF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_779__SFUMATDEF_APPLYF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18831,18 +16800,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_780__SFUMATDEF_APPLYF*/ - /*_._VALSTR___V865*/ - meltfptr[864] = (melt_ptr_t) &meltcdat->dstr_780__SFUMATDEF_APPLYF; + /*_._VALSTR___V865*/ meltfptr[864] = (melt_ptr_t) &meltcdat->dstr_780__SFUMATDEF_APPLYF; meltcdat->dstr_780__SFUMATDEF_APPLYF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_780__SFUMATDEF_APPLYF.val, "SFUMATDEF_APPLYF", sizeof (meltcdat->dstr_780__SFUMATDEF_APPLYF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_780__SFUMATDEF_APPLYF.val, "SFUMATDEF_APPLYF", sizeof (meltcdat->dstr_780__SFUMATDEF_APPLYF.val)-1); meltcdat->dstr_780__SFUMATDEF_APPLYF.val[16] = (char)0 ; meltcdat->dstr_780__SFUMATDEF_APPLYF.slen = 16 ; /*iniobj dsym_781__SFUMATDEF_DATA*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V877*/ meltfptr[876]) + /*uniqueobj*/ if (!/*_._VALDATA___V877*/ meltfptr[876]) /*_._VALDATA___V877*/ meltfptr[876] = (melt_ptr_t )&meltcdat->dsym_781__SFUMATDEF_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_781__SFUMATDEF_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_781__SFUMATDEF_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18852,19 +16818,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_782__SFUMATDEF_DATA*/ - /*_._VALSTR___V878*/ - meltfptr[877] = (melt_ptr_t) &meltcdat->dstr_782__SFUMATDEF_DATA; + /*_._VALSTR___V878*/ meltfptr[877] = (melt_ptr_t) &meltcdat->dstr_782__SFUMATDEF_DATA; meltcdat->dstr_782__SFUMATDEF_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_782__SFUMATDEF_DATA.val, "SFUMATDEF_DATA", sizeof (meltcdat->dstr_782__SFUMATDEF_DATA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_782__SFUMATDEF_DATA.val, "SFUMATDEF_DATA", sizeof (meltcdat->dstr_782__SFUMATDEF_DATA.val)-1); meltcdat->dstr_782__SFUMATDEF_DATA.val[14] = (char)0 ; meltcdat->dstr_782__SFUMATDEF_DATA.slen = 14 ; /*^iniobj*/ /*iniobj dobj_783__SFUMATDEF_DATA*/ - /*_._VALDATA___V866*/ - meltfptr[865] = (melt_ptr_t )&meltcdat->dobj_783__SFUMATDEF_DATA; + /*_._VALDATA___V866*/ meltfptr[865] = (melt_ptr_t )&meltcdat->dobj_783__SFUMATDEF_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_783__SFUMATDEF_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_783__SFUMATDEF_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_783__SFUMATDEF_DATA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18874,18 +16837,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_784__SFUMATDEF_DATA*/ - /*_._VALSTR___V867*/ - meltfptr[866] = (melt_ptr_t) &meltcdat->dstr_784__SFUMATDEF_DATA; + /*_._VALSTR___V867*/ meltfptr[866] = (melt_ptr_t) &meltcdat->dstr_784__SFUMATDEF_DATA; meltcdat->dstr_784__SFUMATDEF_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_784__SFUMATDEF_DATA.val, "SFUMATDEF_DATA", sizeof (meltcdat->dstr_784__SFUMATDEF_DATA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_784__SFUMATDEF_DATA.val, "SFUMATDEF_DATA", sizeof (meltcdat->dstr_784__SFUMATDEF_DATA.val)-1); meltcdat->dstr_784__SFUMATDEF_DATA.val[14] = (char)0 ; meltcdat->dstr_784__SFUMATDEF_DATA.slen = 14 ; /*iniobj dsym_785__CLASS_SOURCE_DEFOBJCOMMON*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V879*/ meltfptr[878]) + /*uniqueobj*/ if (!/*_._VALDATA___V879*/ meltfptr[878]) /*_._VALDATA___V879*/ meltfptr[878] = (melt_ptr_t )&meltcdat->dsym_785__CLASS_SOURCE_DEFOBJCOMMON; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_785__CLASS_SOURCE_DEFOBJCOMMON", 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_785__CLASS_SOURCE_DEFOBJCOMMON", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18895,19 +16855,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_786__CLASS_SOURCE_DEFOBJCOMMO*/ - /*_._VALSTR___V880*/ - meltfptr[879] = (melt_ptr_t) &meltcdat->dstr_786__CLASS_SOURCE_DEFOBJCOMMO; + /*_._VALSTR___V880*/ meltfptr[879] = (melt_ptr_t) &meltcdat->dstr_786__CLASS_SOURCE_DEFOBJCOMMO; meltcdat->dstr_786__CLASS_SOURCE_DEFOBJCOMMO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_786__CLASS_SOURCE_DEFOBJCOMMO.val, "CLASS_SOURCE_DEFOBJCOMMON", sizeof (meltcdat->dstr_786__CLASS_SOURCE_DEFOBJCOMMO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_786__CLASS_SOURCE_DEFOBJCOMMO.val, "CLASS_SOURCE_DEFOBJCOMMON", sizeof (meltcdat->dstr_786__CLASS_SOURCE_DEFOBJCOMMO.val)-1); meltcdat->dstr_786__CLASS_SOURCE_DEFOBJCOMMO.val[25] = (char)0 ; meltcdat->dstr_786__CLASS_SOURCE_DEFOBJCOMMO.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:879:/ iniobj"); /*iniobj dobj_787__CLASS_SOURCE_DEFOBJCOMMON*/ - /*_._VALDATA___V881*/ - meltfptr[880] = (melt_ptr_t )&meltcdat->dobj_787__CLASS_SOURCE_DEFOBJCOMMON; + /*_._VALDATA___V881*/ meltfptr[880] = (melt_ptr_t )&meltcdat->dobj_787__CLASS_SOURCE_DEFOBJCOMMON; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_787__CLASS_SOURCE_DEFOBJCOMMON", 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_787__CLASS_SOURCE_DEFOBJCOMMON", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_787__CLASS_SOURCE_DEFOBJCOMMON.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -18917,28 +16874,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_788__CLASS_SOURCE_DEFOBJCOMMO*/ - /*_._VALSTR___V882*/ - meltfptr[881] = (melt_ptr_t) &meltcdat->dstr_788__CLASS_SOURCE_DEFOBJCOMMO; + /*_._VALSTR___V882*/ meltfptr[881] = (melt_ptr_t) &meltcdat->dstr_788__CLASS_SOURCE_DEFOBJCOMMO; meltcdat->dstr_788__CLASS_SOURCE_DEFOBJCOMMO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_788__CLASS_SOURCE_DEFOBJCOMMO.val, "CLASS_SOURCE_DEFOBJCOMMON", sizeof (meltcdat->dstr_788__CLASS_SOURCE_DEFOBJCOMMO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_788__CLASS_SOURCE_DEFOBJCOMMO.val, "CLASS_SOURCE_DEFOBJCOMMON", sizeof (meltcdat->dstr_788__CLASS_SOURCE_DEFOBJCOMMO.val)-1); meltcdat->dstr_788__CLASS_SOURCE_DEFOBJCOMMO.val[25] = (char)0 ; meltcdat->dstr_788__CLASS_SOURCE_DEFOBJCOMMO.slen = 25 ; /*inimult dtup_789_syCLASS_SOURCE_DEFOBJCOMMON*/ - /*_._VALTUP___V883*/ - meltfptr[882] = (melt_ptr_t) &meltcdat->dtup_789_syCLASS_SOURCE_DEFOBJCOMMON; + /*_._VALTUP___V883*/ meltfptr[882] = (melt_ptr_t) &meltcdat->dtup_789_syCLASS_SOURCE_DEFOBJCOMMON; meltcdat->dtup_789_syCLASS_SOURCE_DEFOBJCOMMON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_789_syCLASS_SOURCE_DEFOBJCOMMON.nbval = 5; /*inimult dtup_790_syCLASS_SOURCE_DEFOBJCOMMON*/ - /*_._VALTUP___V886*/ - meltfptr[885] = (melt_ptr_t) &meltcdat->dtup_790_syCLASS_SOURCE_DEFOBJCOMMON; + /*_._VALTUP___V886*/ meltfptr[885] = (melt_ptr_t) &meltcdat->dtup_790_syCLASS_SOURCE_DEFOBJCOMMON; meltcdat->dtup_790_syCLASS_SOURCE_DEFOBJCOMMON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_790_syCLASS_SOURCE_DEFOBJCOMMON.nbval = 5; /*iniobj dsym_791__SOBJ_PREDEF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V887*/ meltfptr[886]) + /*uniqueobj*/ if (!/*_._VALDATA___V887*/ meltfptr[886]) /*_._VALDATA___V887*/ meltfptr[886] = (melt_ptr_t )&meltcdat->dsym_791__SOBJ_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_791__SOBJ_PREDEF", 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_791__SOBJ_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18948,19 +16900,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_792__SOBJ_PREDEF*/ - /*_._VALSTR___V888*/ - meltfptr[887] = (melt_ptr_t) &meltcdat->dstr_792__SOBJ_PREDEF; + /*_._VALSTR___V888*/ meltfptr[887] = (melt_ptr_t) &meltcdat->dstr_792__SOBJ_PREDEF; meltcdat->dstr_792__SOBJ_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_792__SOBJ_PREDEF.val, "SOBJ_PREDEF", sizeof (meltcdat->dstr_792__SOBJ_PREDEF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_792__SOBJ_PREDEF.val, "SOBJ_PREDEF", sizeof (meltcdat->dstr_792__SOBJ_PREDEF.val)-1); meltcdat->dstr_792__SOBJ_PREDEF.val[11] = (char)0 ; meltcdat->dstr_792__SOBJ_PREDEF.slen = 11 ; /*^iniobj*/ /*iniobj dobj_793__SOBJ_PREDEF*/ - /*_._VALDATA___V884*/ - meltfptr[883] = (melt_ptr_t )&meltcdat->dobj_793__SOBJ_PREDEF; + /*_._VALDATA___V884*/ meltfptr[883] = (melt_ptr_t )&meltcdat->dobj_793__SOBJ_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_793__SOBJ_PREDEF", 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_793__SOBJ_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_793__SOBJ_PREDEF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -18970,18 +16919,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_794__SOBJ_PREDEF*/ - /*_._VALSTR___V885*/ - meltfptr[884] = (melt_ptr_t) &meltcdat->dstr_794__SOBJ_PREDEF; + /*_._VALSTR___V885*/ meltfptr[884] = (melt_ptr_t) &meltcdat->dstr_794__SOBJ_PREDEF; meltcdat->dstr_794__SOBJ_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_794__SOBJ_PREDEF.val, "SOBJ_PREDEF", sizeof (meltcdat->dstr_794__SOBJ_PREDEF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_794__SOBJ_PREDEF.val, "SOBJ_PREDEF", sizeof (meltcdat->dstr_794__SOBJ_PREDEF.val)-1); meltcdat->dstr_794__SOBJ_PREDEF.val[11] = (char)0 ; meltcdat->dstr_794__SOBJ_PREDEF.slen = 11 ; /*iniobj dsym_795__CLASS_SOURCE_DEFCLASS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V889*/ meltfptr[888]) + /*uniqueobj*/ if (!/*_._VALDATA___V889*/ meltfptr[888]) /*_._VALDATA___V889*/ meltfptr[888] = (melt_ptr_t )&meltcdat->dsym_795__CLASS_SOURCE_DEFCLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_795__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_795__CLASS_SOURCE_DEFCLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -18991,19 +16937,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_796__CLASS_SOURCE_DEFCLASS*/ - /*_._VALSTR___V890*/ - meltfptr[889] = (melt_ptr_t) &meltcdat->dstr_796__CLASS_SOURCE_DEFCLASS; + /*_._VALSTR___V890*/ meltfptr[889] = (melt_ptr_t) &meltcdat->dstr_796__CLASS_SOURCE_DEFCLASS; meltcdat->dstr_796__CLASS_SOURCE_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_796__CLASS_SOURCE_DEFCLASS.val, "CLASS_SOURCE_DEFCLASS", sizeof (meltcdat->dstr_796__CLASS_SOURCE_DEFCLASS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_796__CLASS_SOURCE_DEFCLASS.val, "CLASS_SOURCE_DEFCLASS", sizeof (meltcdat->dstr_796__CLASS_SOURCE_DEFCLASS.val)-1); meltcdat->dstr_796__CLASS_SOURCE_DEFCLASS.val[21] = (char)0 ; meltcdat->dstr_796__CLASS_SOURCE_DEFCLASS.slen = 21 ; MELT_LOCATION("warmelt-macro.melt:889:/ iniobj"); /*iniobj dobj_797__CLASS_SOURCE_DEFCLASS*/ - /*_._VALDATA___V891*/ - meltfptr[890] = (melt_ptr_t )&meltcdat->dobj_797__CLASS_SOURCE_DEFCLASS; + /*_._VALDATA___V891*/ meltfptr[890] = (melt_ptr_t )&meltcdat->dobj_797__CLASS_SOURCE_DEFCLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_797__CLASS_SOURCE_DEFCLASS", 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_797__CLASS_SOURCE_DEFCLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_797__CLASS_SOURCE_DEFCLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -19013,28 +16956,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_798__CLASS_SOURCE_DEFCLASS*/ - /*_._VALSTR___V892*/ - meltfptr[891] = (melt_ptr_t) &meltcdat->dstr_798__CLASS_SOURCE_DEFCLASS; + /*_._VALSTR___V892*/ meltfptr[891] = (melt_ptr_t) &meltcdat->dstr_798__CLASS_SOURCE_DEFCLASS; meltcdat->dstr_798__CLASS_SOURCE_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_798__CLASS_SOURCE_DEFCLASS.val, "CLASS_SOURCE_DEFCLASS", sizeof (meltcdat->dstr_798__CLASS_SOURCE_DEFCLASS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_798__CLASS_SOURCE_DEFCLASS.val, "CLASS_SOURCE_DEFCLASS", sizeof (meltcdat->dstr_798__CLASS_SOURCE_DEFCLASS.val)-1); meltcdat->dstr_798__CLASS_SOURCE_DEFCLASS.val[21] = (char)0 ; meltcdat->dstr_798__CLASS_SOURCE_DEFCLASS.slen = 21 ; /*inimult dtup_799_syCLASS_SOURCE_DEFCLASS*/ - /*_._VALTUP___V893*/ - meltfptr[892] = (melt_ptr_t) &meltcdat->dtup_799_syCLASS_SOURCE_DEFCLASS; + /*_._VALTUP___V893*/ meltfptr[892] = (melt_ptr_t) &meltcdat->dtup_799_syCLASS_SOURCE_DEFCLASS; meltcdat->dtup_799_syCLASS_SOURCE_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_799_syCLASS_SOURCE_DEFCLASS.nbval = 6; /*inimult dtup_800_syCLASS_SOURCE_DEFCLASS*/ - /*_._VALTUP___V900*/ - meltfptr[899] = (melt_ptr_t) &meltcdat->dtup_800_syCLASS_SOURCE_DEFCLASS; + /*_._VALTUP___V900*/ meltfptr[899] = (melt_ptr_t) &meltcdat->dtup_800_syCLASS_SOURCE_DEFCLASS; meltcdat->dtup_800_syCLASS_SOURCE_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_800_syCLASS_SOURCE_DEFCLASS.nbval = 8; /*iniobj dsym_801__SCLASS_CLABIND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V901*/ meltfptr[900]) + /*uniqueobj*/ if (!/*_._VALDATA___V901*/ meltfptr[900]) /*_._VALDATA___V901*/ meltfptr[900] = (melt_ptr_t )&meltcdat->dsym_801__SCLASS_CLABIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_801__SCLASS_CLABIND", 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_801__SCLASS_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19044,19 +16982,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_802__SCLASS_CLABIND*/ - /*_._VALSTR___V902*/ - meltfptr[901] = (melt_ptr_t) &meltcdat->dstr_802__SCLASS_CLABIND; + /*_._VALSTR___V902*/ meltfptr[901] = (melt_ptr_t) &meltcdat->dstr_802__SCLASS_CLABIND; meltcdat->dstr_802__SCLASS_CLABIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_802__SCLASS_CLABIND.val, "SCLASS_CLABIND", sizeof (meltcdat->dstr_802__SCLASS_CLABIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_802__SCLASS_CLABIND.val, "SCLASS_CLABIND", sizeof (meltcdat->dstr_802__SCLASS_CLABIND.val)-1); meltcdat->dstr_802__SCLASS_CLABIND.val[14] = (char)0 ; meltcdat->dstr_802__SCLASS_CLABIND.slen = 14 ; /*^iniobj*/ /*iniobj dobj_803__SCLASS_CLABIND*/ - /*_._VALDATA___V894*/ - meltfptr[893] = (melt_ptr_t )&meltcdat->dobj_803__SCLASS_CLABIND; + /*_._VALDATA___V894*/ meltfptr[893] = (melt_ptr_t )&meltcdat->dobj_803__SCLASS_CLABIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_803__SCLASS_CLABIND", 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_803__SCLASS_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_803__SCLASS_CLABIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -19066,18 +17001,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_804__SCLASS_CLABIND*/ - /*_._VALSTR___V895*/ - meltfptr[894] = (melt_ptr_t) &meltcdat->dstr_804__SCLASS_CLABIND; + /*_._VALSTR___V895*/ meltfptr[894] = (melt_ptr_t) &meltcdat->dstr_804__SCLASS_CLABIND; meltcdat->dstr_804__SCLASS_CLABIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_804__SCLASS_CLABIND.val, "SCLASS_CLABIND", sizeof (meltcdat->dstr_804__SCLASS_CLABIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_804__SCLASS_CLABIND.val, "SCLASS_CLABIND", sizeof (meltcdat->dstr_804__SCLASS_CLABIND.val)-1); meltcdat->dstr_804__SCLASS_CLABIND.val[14] = (char)0 ; meltcdat->dstr_804__SCLASS_CLABIND.slen = 14 ; /*iniobj dsym_805__SCLASS_SUPERBIND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V903*/ meltfptr[902]) + /*uniqueobj*/ if (!/*_._VALDATA___V903*/ meltfptr[902]) /*_._VALDATA___V903*/ meltfptr[902] = (melt_ptr_t )&meltcdat->dsym_805__SCLASS_SUPERBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_805__SCLASS_SUPERBIND", 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_805__SCLASS_SUPERBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19087,19 +17019,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_806__SCLASS_SUPERBIND*/ - /*_._VALSTR___V904*/ - meltfptr[903] = (melt_ptr_t) &meltcdat->dstr_806__SCLASS_SUPERBIND; + /*_._VALSTR___V904*/ meltfptr[903] = (melt_ptr_t) &meltcdat->dstr_806__SCLASS_SUPERBIND; meltcdat->dstr_806__SCLASS_SUPERBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_806__SCLASS_SUPERBIND.val, "SCLASS_SUPERBIND", sizeof (meltcdat->dstr_806__SCLASS_SUPERBIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_806__SCLASS_SUPERBIND.val, "SCLASS_SUPERBIND", sizeof (meltcdat->dstr_806__SCLASS_SUPERBIND.val)-1); meltcdat->dstr_806__SCLASS_SUPERBIND.val[16] = (char)0 ; meltcdat->dstr_806__SCLASS_SUPERBIND.slen = 16 ; /*^iniobj*/ /*iniobj dobj_807__SCLASS_SUPERBIND*/ - /*_._VALDATA___V896*/ - meltfptr[895] = (melt_ptr_t )&meltcdat->dobj_807__SCLASS_SUPERBIND; + /*_._VALDATA___V896*/ meltfptr[895] = (melt_ptr_t )&meltcdat->dobj_807__SCLASS_SUPERBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_807__SCLASS_SUPERBIND", 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_807__SCLASS_SUPERBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_807__SCLASS_SUPERBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -19109,18 +17038,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_808__SCLASS_SUPERBIND*/ - /*_._VALSTR___V897*/ - meltfptr[896] = (melt_ptr_t) &meltcdat->dstr_808__SCLASS_SUPERBIND; + /*_._VALSTR___V897*/ meltfptr[896] = (melt_ptr_t) &meltcdat->dstr_808__SCLASS_SUPERBIND; meltcdat->dstr_808__SCLASS_SUPERBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_808__SCLASS_SUPERBIND.val, "SCLASS_SUPERBIND", sizeof (meltcdat->dstr_808__SCLASS_SUPERBIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_808__SCLASS_SUPERBIND.val, "SCLASS_SUPERBIND", sizeof (meltcdat->dstr_808__SCLASS_SUPERBIND.val)-1); meltcdat->dstr_808__SCLASS_SUPERBIND.val[16] = (char)0 ; meltcdat->dstr_808__SCLASS_SUPERBIND.slen = 16 ; /*iniobj dsym_809__SCLASS_FLDBINDS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V905*/ meltfptr[904]) + /*uniqueobj*/ if (!/*_._VALDATA___V905*/ meltfptr[904]) /*_._VALDATA___V905*/ meltfptr[904] = (melt_ptr_t )&meltcdat->dsym_809__SCLASS_FLDBINDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_809__SCLASS_FLDBINDS", 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_809__SCLASS_FLDBINDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19130,19 +17056,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_810__SCLASS_FLDBINDS*/ - /*_._VALSTR___V906*/ - meltfptr[905] = (melt_ptr_t) &meltcdat->dstr_810__SCLASS_FLDBINDS; + /*_._VALSTR___V906*/ meltfptr[905] = (melt_ptr_t) &meltcdat->dstr_810__SCLASS_FLDBINDS; meltcdat->dstr_810__SCLASS_FLDBINDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_810__SCLASS_FLDBINDS.val, "SCLASS_FLDBINDS", sizeof (meltcdat->dstr_810__SCLASS_FLDBINDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_810__SCLASS_FLDBINDS.val, "SCLASS_FLDBINDS", sizeof (meltcdat->dstr_810__SCLASS_FLDBINDS.val)-1); meltcdat->dstr_810__SCLASS_FLDBINDS.val[15] = (char)0 ; meltcdat->dstr_810__SCLASS_FLDBINDS.slen = 15 ; /*^iniobj*/ /*iniobj dobj_811__SCLASS_FLDBINDS*/ - /*_._VALDATA___V898*/ - meltfptr[897] = (melt_ptr_t )&meltcdat->dobj_811__SCLASS_FLDBINDS; + /*_._VALDATA___V898*/ meltfptr[897] = (melt_ptr_t )&meltcdat->dobj_811__SCLASS_FLDBINDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_811__SCLASS_FLDBINDS", 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_811__SCLASS_FLDBINDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_811__SCLASS_FLDBINDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -19152,18 +17075,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_812__SCLASS_FLDBINDS*/ - /*_._VALSTR___V899*/ - meltfptr[898] = (melt_ptr_t) &meltcdat->dstr_812__SCLASS_FLDBINDS; + /*_._VALSTR___V899*/ meltfptr[898] = (melt_ptr_t) &meltcdat->dstr_812__SCLASS_FLDBINDS; meltcdat->dstr_812__SCLASS_FLDBINDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_812__SCLASS_FLDBINDS.val, "SCLASS_FLDBINDS", sizeof (meltcdat->dstr_812__SCLASS_FLDBINDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_812__SCLASS_FLDBINDS.val, "SCLASS_FLDBINDS", sizeof (meltcdat->dstr_812__SCLASS_FLDBINDS.val)-1); meltcdat->dstr_812__SCLASS_FLDBINDS.val[15] = (char)0 ; meltcdat->dstr_812__SCLASS_FLDBINDS.slen = 15 ; /*iniobj dsym_813__CLASS_SOURCE_DEFINSTANCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V907*/ meltfptr[906]) + /*uniqueobj*/ if (!/*_._VALDATA___V907*/ meltfptr[906]) /*_._VALDATA___V907*/ meltfptr[906] = (melt_ptr_t )&meltcdat->dsym_813__CLASS_SOURCE_DEFINSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_813__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_813__CLASS_SOURCE_DEFINSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19173,19 +17093,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_814__CLASS_SOURCE_DEFINSTANCE*/ - /*_._VALSTR___V908*/ - meltfptr[907] = (melt_ptr_t) &meltcdat->dstr_814__CLASS_SOURCE_DEFINSTANCE; + /*_._VALSTR___V908*/ meltfptr[907] = (melt_ptr_t) &meltcdat->dstr_814__CLASS_SOURCE_DEFINSTANCE; meltcdat->dstr_814__CLASS_SOURCE_DEFINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_814__CLASS_SOURCE_DEFINSTANCE.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (meltcdat->dstr_814__CLASS_SOURCE_DEFINSTANCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_814__CLASS_SOURCE_DEFINSTANCE.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (meltcdat->dstr_814__CLASS_SOURCE_DEFINSTANCE.val)-1); meltcdat->dstr_814__CLASS_SOURCE_DEFINSTANCE.val[24] = (char)0 ; meltcdat->dstr_814__CLASS_SOURCE_DEFINSTANCE.slen = 24 ; MELT_LOCATION("warmelt-macro.melt:902:/ iniobj"); /*iniobj dobj_815__CLASS_SOURCE_DEFINSTANCE*/ - /*_._VALDATA___V909*/ - meltfptr[908] = (melt_ptr_t )&meltcdat->dobj_815__CLASS_SOURCE_DEFINSTANCE; + /*_._VALDATA___V909*/ meltfptr[908] = (melt_ptr_t )&meltcdat->dobj_815__CLASS_SOURCE_DEFINSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_815__CLASS_SOURCE_DEFINSTANCE", 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_815__CLASS_SOURCE_DEFINSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_815__CLASS_SOURCE_DEFINSTANCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -19195,28 +17112,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_816__CLASS_SOURCE_DEFINSTANCE*/ - /*_._VALSTR___V910*/ - meltfptr[909] = (melt_ptr_t) &meltcdat->dstr_816__CLASS_SOURCE_DEFINSTANCE; + /*_._VALSTR___V910*/ meltfptr[909] = (melt_ptr_t) &meltcdat->dstr_816__CLASS_SOURCE_DEFINSTANCE; meltcdat->dstr_816__CLASS_SOURCE_DEFINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_816__CLASS_SOURCE_DEFINSTANCE.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (meltcdat->dstr_816__CLASS_SOURCE_DEFINSTANCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_816__CLASS_SOURCE_DEFINSTANCE.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (meltcdat->dstr_816__CLASS_SOURCE_DEFINSTANCE.val)-1); meltcdat->dstr_816__CLASS_SOURCE_DEFINSTANCE.val[24] = (char)0 ; meltcdat->dstr_816__CLASS_SOURCE_DEFINSTANCE.slen = 24 ; /*inimult dtup_817_syCLASS_SOURCE_DEFINSTANCE*/ - /*_._VALTUP___V911*/ - meltfptr[910] = (melt_ptr_t) &meltcdat->dtup_817_syCLASS_SOURCE_DEFINSTANCE; + /*_._VALTUP___V911*/ meltfptr[910] = (melt_ptr_t) &meltcdat->dtup_817_syCLASS_SOURCE_DEFINSTANCE; meltcdat->dtup_817_syCLASS_SOURCE_DEFINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_817_syCLASS_SOURCE_DEFINSTANCE.nbval = 6; /*inimult dtup_818_syCLASS_SOURCE_DEFINSTANCE*/ - /*_._VALTUP___V920*/ - meltfptr[919] = (melt_ptr_t) &meltcdat->dtup_818_syCLASS_SOURCE_DEFINSTANCE; + /*_._VALTUP___V920*/ meltfptr[919] = (melt_ptr_t) &meltcdat->dtup_818_syCLASS_SOURCE_DEFINSTANCE; meltcdat->dtup_818_syCLASS_SOURCE_DEFINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_818_syCLASS_SOURCE_DEFINSTANCE.nbval = 9; /*iniobj dsym_819__SINST_CLASS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V921*/ meltfptr[920]) + /*uniqueobj*/ if (!/*_._VALDATA___V921*/ meltfptr[920]) /*_._VALDATA___V921*/ meltfptr[920] = (melt_ptr_t )&meltcdat->dsym_819__SINST_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_819__SINST_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_819__SINST_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19226,19 +17138,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_820__SINST_CLASS*/ - /*_._VALSTR___V922*/ - meltfptr[921] = (melt_ptr_t) &meltcdat->dstr_820__SINST_CLASS; + /*_._VALSTR___V922*/ meltfptr[921] = (melt_ptr_t) &meltcdat->dstr_820__SINST_CLASS; meltcdat->dstr_820__SINST_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_820__SINST_CLASS.val, "SINST_CLASS", sizeof (meltcdat->dstr_820__SINST_CLASS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_820__SINST_CLASS.val, "SINST_CLASS", sizeof (meltcdat->dstr_820__SINST_CLASS.val)-1); meltcdat->dstr_820__SINST_CLASS.val[11] = (char)0 ; meltcdat->dstr_820__SINST_CLASS.slen = 11 ; /*^iniobj*/ /*iniobj dobj_821__SINST_CLASS*/ - /*_._VALDATA___V912*/ - meltfptr[911] = (melt_ptr_t )&meltcdat->dobj_821__SINST_CLASS; + /*_._VALDATA___V912*/ meltfptr[911] = (melt_ptr_t )&meltcdat->dobj_821__SINST_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_821__SINST_CLASS", 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_821__SINST_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_821__SINST_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -19248,18 +17157,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_822__SINST_CLASS*/ - /*_._VALSTR___V913*/ - meltfptr[912] = (melt_ptr_t) &meltcdat->dstr_822__SINST_CLASS; + /*_._VALSTR___V913*/ meltfptr[912] = (melt_ptr_t) &meltcdat->dstr_822__SINST_CLASS; meltcdat->dstr_822__SINST_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_822__SINST_CLASS.val, "SINST_CLASS", sizeof (meltcdat->dstr_822__SINST_CLASS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_822__SINST_CLASS.val, "SINST_CLASS", sizeof (meltcdat->dstr_822__SINST_CLASS.val)-1); meltcdat->dstr_822__SINST_CLASS.val[11] = (char)0 ; meltcdat->dstr_822__SINST_CLASS.slen = 11 ; /*iniobj dsym_823__SINST_CLABIND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V923*/ meltfptr[922]) + /*uniqueobj*/ if (!/*_._VALDATA___V923*/ meltfptr[922]) /*_._VALDATA___V923*/ meltfptr[922] = (melt_ptr_t )&meltcdat->dsym_823__SINST_CLABIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_823__SINST_CLABIND", 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_823__SINST_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19269,19 +17175,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_824__SINST_CLABIND*/ - /*_._VALSTR___V924*/ - meltfptr[923] = (melt_ptr_t) &meltcdat->dstr_824__SINST_CLABIND; + /*_._VALSTR___V924*/ meltfptr[923] = (melt_ptr_t) &meltcdat->dstr_824__SINST_CLABIND; meltcdat->dstr_824__SINST_CLABIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_824__SINST_CLABIND.val, "SINST_CLABIND", sizeof (meltcdat->dstr_824__SINST_CLABIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_824__SINST_CLABIND.val, "SINST_CLABIND", sizeof (meltcdat->dstr_824__SINST_CLABIND.val)-1); meltcdat->dstr_824__SINST_CLABIND.val[13] = (char)0 ; meltcdat->dstr_824__SINST_CLABIND.slen = 13 ; /*^iniobj*/ /*iniobj dobj_825__SINST_CLABIND*/ - /*_._VALDATA___V914*/ - meltfptr[913] = (melt_ptr_t )&meltcdat->dobj_825__SINST_CLABIND; + /*_._VALDATA___V914*/ meltfptr[913] = (melt_ptr_t )&meltcdat->dobj_825__SINST_CLABIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_825__SINST_CLABIND", 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_825__SINST_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_825__SINST_CLABIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -19291,18 +17194,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_826__SINST_CLABIND*/ - /*_._VALSTR___V915*/ - meltfptr[914] = (melt_ptr_t) &meltcdat->dstr_826__SINST_CLABIND; + /*_._VALSTR___V915*/ meltfptr[914] = (melt_ptr_t) &meltcdat->dstr_826__SINST_CLABIND; meltcdat->dstr_826__SINST_CLABIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_826__SINST_CLABIND.val, "SINST_CLABIND", sizeof (meltcdat->dstr_826__SINST_CLABIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_826__SINST_CLABIND.val, "SINST_CLABIND", sizeof (meltcdat->dstr_826__SINST_CLABIND.val)-1); meltcdat->dstr_826__SINST_CLABIND.val[13] = (char)0 ; meltcdat->dstr_826__SINST_CLABIND.slen = 13 ; /*iniobj dsym_827__SINST_OBJNUM*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V925*/ meltfptr[924]) + /*uniqueobj*/ if (!/*_._VALDATA___V925*/ meltfptr[924]) /*_._VALDATA___V925*/ meltfptr[924] = (melt_ptr_t )&meltcdat->dsym_827__SINST_OBJNUM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_827__SINST_OBJNUM", 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_827__SINST_OBJNUM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19312,19 +17212,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_828__SINST_OBJNUM*/ - /*_._VALSTR___V926*/ - meltfptr[925] = (melt_ptr_t) &meltcdat->dstr_828__SINST_OBJNUM; + /*_._VALSTR___V926*/ meltfptr[925] = (melt_ptr_t) &meltcdat->dstr_828__SINST_OBJNUM; meltcdat->dstr_828__SINST_OBJNUM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_828__SINST_OBJNUM.val, "SINST_OBJNUM", sizeof (meltcdat->dstr_828__SINST_OBJNUM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_828__SINST_OBJNUM.val, "SINST_OBJNUM", sizeof (meltcdat->dstr_828__SINST_OBJNUM.val)-1); meltcdat->dstr_828__SINST_OBJNUM.val[12] = (char)0 ; meltcdat->dstr_828__SINST_OBJNUM.slen = 12 ; /*^iniobj*/ /*iniobj dobj_829__SINST_OBJNUM*/ - /*_._VALDATA___V916*/ - meltfptr[915] = (melt_ptr_t )&meltcdat->dobj_829__SINST_OBJNUM; + /*_._VALDATA___V916*/ meltfptr[915] = (melt_ptr_t )&meltcdat->dobj_829__SINST_OBJNUM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_829__SINST_OBJNUM", 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_829__SINST_OBJNUM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_829__SINST_OBJNUM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -19334,18 +17231,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_830__SINST_OBJNUM*/ - /*_._VALSTR___V917*/ - meltfptr[916] = (melt_ptr_t) &meltcdat->dstr_830__SINST_OBJNUM; + /*_._VALSTR___V917*/ meltfptr[916] = (melt_ptr_t) &meltcdat->dstr_830__SINST_OBJNUM; meltcdat->dstr_830__SINST_OBJNUM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_830__SINST_OBJNUM.val, "SINST_OBJNUM", sizeof (meltcdat->dstr_830__SINST_OBJNUM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_830__SINST_OBJNUM.val, "SINST_OBJNUM", sizeof (meltcdat->dstr_830__SINST_OBJNUM.val)-1); meltcdat->dstr_830__SINST_OBJNUM.val[12] = (char)0 ; meltcdat->dstr_830__SINST_OBJNUM.slen = 12 ; /*iniobj dsym_831__SINST_FIELDS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V927*/ meltfptr[926]) + /*uniqueobj*/ if (!/*_._VALDATA___V927*/ meltfptr[926]) /*_._VALDATA___V927*/ meltfptr[926] = (melt_ptr_t )&meltcdat->dsym_831__SINST_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_831__SINST_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_831__SINST_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19355,19 +17249,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_832__SINST_FIELDS*/ - /*_._VALSTR___V928*/ - meltfptr[927] = (melt_ptr_t) &meltcdat->dstr_832__SINST_FIELDS; + /*_._VALSTR___V928*/ meltfptr[927] = (melt_ptr_t) &meltcdat->dstr_832__SINST_FIELDS; meltcdat->dstr_832__SINST_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_832__SINST_FIELDS.val, "SINST_FIELDS", sizeof (meltcdat->dstr_832__SINST_FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_832__SINST_FIELDS.val, "SINST_FIELDS", sizeof (meltcdat->dstr_832__SINST_FIELDS.val)-1); meltcdat->dstr_832__SINST_FIELDS.val[12] = (char)0 ; meltcdat->dstr_832__SINST_FIELDS.slen = 12 ; /*^iniobj*/ /*iniobj dobj_833__SINST_FIELDS*/ - /*_._VALDATA___V918*/ - meltfptr[917] = (melt_ptr_t )&meltcdat->dobj_833__SINST_FIELDS; + /*_._VALDATA___V918*/ meltfptr[917] = (melt_ptr_t )&meltcdat->dobj_833__SINST_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_833__SINST_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_833__SINST_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_833__SINST_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -19377,18 +17268,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_834__SINST_FIELDS*/ - /*_._VALSTR___V919*/ - meltfptr[918] = (melt_ptr_t) &meltcdat->dstr_834__SINST_FIELDS; + /*_._VALSTR___V919*/ meltfptr[918] = (melt_ptr_t) &meltcdat->dstr_834__SINST_FIELDS; meltcdat->dstr_834__SINST_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_834__SINST_FIELDS.val, "SINST_FIELDS", sizeof (meltcdat->dstr_834__SINST_FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_834__SINST_FIELDS.val, "SINST_FIELDS", sizeof (meltcdat->dstr_834__SINST_FIELDS.val)-1); meltcdat->dstr_834__SINST_FIELDS.val[12] = (char)0 ; meltcdat->dstr_834__SINST_FIELDS.slen = 12 ; /*iniobj dsym_835__CLASS_SOURCE_DEFSELECTOR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V929*/ meltfptr[928]) + /*uniqueobj*/ if (!/*_._VALDATA___V929*/ meltfptr[928]) /*_._VALDATA___V929*/ meltfptr[928] = (melt_ptr_t )&meltcdat->dsym_835__CLASS_SOURCE_DEFSELECTOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_835__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_835__CLASS_SOURCE_DEFSELECTOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19398,19 +17286,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_836__CLASS_SOURCE_DEFSELECTOR*/ - /*_._VALSTR___V930*/ - meltfptr[929] = (melt_ptr_t) &meltcdat->dstr_836__CLASS_SOURCE_DEFSELECTOR; + /*_._VALSTR___V930*/ meltfptr[929] = (melt_ptr_t) &meltcdat->dstr_836__CLASS_SOURCE_DEFSELECTOR; meltcdat->dstr_836__CLASS_SOURCE_DEFSELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_836__CLASS_SOURCE_DEFSELECTOR.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (meltcdat->dstr_836__CLASS_SOURCE_DEFSELECTOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_836__CLASS_SOURCE_DEFSELECTOR.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (meltcdat->dstr_836__CLASS_SOURCE_DEFSELECTOR.val)-1); meltcdat->dstr_836__CLASS_SOURCE_DEFSELECTOR.val[24] = (char)0 ; meltcdat->dstr_836__CLASS_SOURCE_DEFSELECTOR.slen = 24 ; MELT_LOCATION("warmelt-macro.melt:916:/ iniobj"); /*iniobj dobj_837__CLASS_SOURCE_DEFSELECTOR*/ - /*_._VALDATA___V931*/ - meltfptr[930] = (melt_ptr_t )&meltcdat->dobj_837__CLASS_SOURCE_DEFSELECTOR; + /*_._VALDATA___V931*/ meltfptr[930] = (melt_ptr_t )&meltcdat->dobj_837__CLASS_SOURCE_DEFSELECTOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_837__CLASS_SOURCE_DEFSELECTOR", 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_837__CLASS_SOURCE_DEFSELECTOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_837__CLASS_SOURCE_DEFSELECTOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -19420,28 +17305,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_838__CLASS_SOURCE_DEFSELECTOR*/ - /*_._VALSTR___V932*/ - meltfptr[931] = (melt_ptr_t) &meltcdat->dstr_838__CLASS_SOURCE_DEFSELECTOR; + /*_._VALSTR___V932*/ meltfptr[931] = (melt_ptr_t) &meltcdat->dstr_838__CLASS_SOURCE_DEFSELECTOR; meltcdat->dstr_838__CLASS_SOURCE_DEFSELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_838__CLASS_SOURCE_DEFSELECTOR.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (meltcdat->dstr_838__CLASS_SOURCE_DEFSELECTOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_838__CLASS_SOURCE_DEFSELECTOR.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (meltcdat->dstr_838__CLASS_SOURCE_DEFSELECTOR.val)-1); meltcdat->dstr_838__CLASS_SOURCE_DEFSELECTOR.val[24] = (char)0 ; meltcdat->dstr_838__CLASS_SOURCE_DEFSELECTOR.slen = 24 ; /*inimult dtup_839_syCLASS_SOURCE_DEFSELECTOR*/ - /*_._VALTUP___V933*/ - meltfptr[932] = (melt_ptr_t) &meltcdat->dtup_839_syCLASS_SOURCE_DEFSELECTOR; + /*_._VALTUP___V933*/ meltfptr[932] = (melt_ptr_t) &meltcdat->dtup_839_syCLASS_SOURCE_DEFSELECTOR; meltcdat->dtup_839_syCLASS_SOURCE_DEFSELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_839_syCLASS_SOURCE_DEFSELECTOR.nbval = 7; /*inimult dtup_840_syCLASS_SOURCE_DEFSELECTOR*/ - /*_._VALTUP___V936*/ - meltfptr[935] = (melt_ptr_t) &meltcdat->dtup_840_syCLASS_SOURCE_DEFSELECTOR; + /*_._VALTUP___V936*/ meltfptr[935] = (melt_ptr_t) &meltcdat->dtup_840_syCLASS_SOURCE_DEFSELECTOR; meltcdat->dtup_840_syCLASS_SOURCE_DEFSELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_840_syCLASS_SOURCE_DEFSELECTOR.nbval = 10; /*iniobj dsym_841__SDEFSEL_FORMALS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V937*/ meltfptr[936]) + /*uniqueobj*/ if (!/*_._VALDATA___V937*/ meltfptr[936]) /*_._VALDATA___V937*/ meltfptr[936] = (melt_ptr_t )&meltcdat->dsym_841__SDEFSEL_FORMALS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_841__SDEFSEL_FORMALS", 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_841__SDEFSEL_FORMALS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19451,19 +17331,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_842__SDEFSEL_FORMALS*/ - /*_._VALSTR___V938*/ - meltfptr[937] = (melt_ptr_t) &meltcdat->dstr_842__SDEFSEL_FORMALS; + /*_._VALSTR___V938*/ meltfptr[937] = (melt_ptr_t) &meltcdat->dstr_842__SDEFSEL_FORMALS; meltcdat->dstr_842__SDEFSEL_FORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_842__SDEFSEL_FORMALS.val, "SDEFSEL_FORMALS", sizeof (meltcdat->dstr_842__SDEFSEL_FORMALS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_842__SDEFSEL_FORMALS.val, "SDEFSEL_FORMALS", sizeof (meltcdat->dstr_842__SDEFSEL_FORMALS.val)-1); meltcdat->dstr_842__SDEFSEL_FORMALS.val[15] = (char)0 ; meltcdat->dstr_842__SDEFSEL_FORMALS.slen = 15 ; /*^iniobj*/ /*iniobj dobj_843__SDEFSEL_FORMALS*/ - /*_._VALDATA___V934*/ - meltfptr[933] = (melt_ptr_t )&meltcdat->dobj_843__SDEFSEL_FORMALS; + /*_._VALDATA___V934*/ meltfptr[933] = (melt_ptr_t )&meltcdat->dobj_843__SDEFSEL_FORMALS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_843__SDEFSEL_FORMALS", 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_843__SDEFSEL_FORMALS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_843__SDEFSEL_FORMALS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -19473,18 +17350,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_844__SDEFSEL_FORMALS*/ - /*_._VALSTR___V935*/ - meltfptr[934] = (melt_ptr_t) &meltcdat->dstr_844__SDEFSEL_FORMALS; + /*_._VALSTR___V935*/ meltfptr[934] = (melt_ptr_t) &meltcdat->dstr_844__SDEFSEL_FORMALS; meltcdat->dstr_844__SDEFSEL_FORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_844__SDEFSEL_FORMALS.val, "SDEFSEL_FORMALS", sizeof (meltcdat->dstr_844__SDEFSEL_FORMALS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_844__SDEFSEL_FORMALS.val, "SDEFSEL_FORMALS", sizeof (meltcdat->dstr_844__SDEFSEL_FORMALS.val)-1); meltcdat->dstr_844__SDEFSEL_FORMALS.val[15] = (char)0 ; meltcdat->dstr_844__SDEFSEL_FORMALS.slen = 15 ; /*iniobj dsym_845__CLASS_SOURCE_FIELDASSIGN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V939*/ meltfptr[938]) + /*uniqueobj*/ if (!/*_._VALDATA___V939*/ meltfptr[938]) /*_._VALDATA___V939*/ meltfptr[938] = (melt_ptr_t )&meltcdat->dsym_845__CLASS_SOURCE_FIELDASSIGN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_845__CLASS_SOURCE_FIELDASSIGN", 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_845__CLASS_SOURCE_FIELDASSIGN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19494,19 +17368,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_846__CLASS_SOURCE_FIELDASSIGN*/ - /*_._VALSTR___V940*/ - meltfptr[939] = (melt_ptr_t) &meltcdat->dstr_846__CLASS_SOURCE_FIELDASSIGN; + /*_._VALSTR___V940*/ meltfptr[939] = (melt_ptr_t) &meltcdat->dstr_846__CLASS_SOURCE_FIELDASSIGN; meltcdat->dstr_846__CLASS_SOURCE_FIELDASSIGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_846__CLASS_SOURCE_FIELDASSIGN.val, "CLASS_SOURCE_FIELDASSIGN", sizeof (meltcdat->dstr_846__CLASS_SOURCE_FIELDASSIGN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_846__CLASS_SOURCE_FIELDASSIGN.val, "CLASS_SOURCE_FIELDASSIGN", sizeof (meltcdat->dstr_846__CLASS_SOURCE_FIELDASSIGN.val)-1); meltcdat->dstr_846__CLASS_SOURCE_FIELDASSIGN.val[24] = (char)0 ; meltcdat->dstr_846__CLASS_SOURCE_FIELDASSIGN.slen = 24 ; MELT_LOCATION("warmelt-macro.melt:925:/ iniobj"); /*iniobj dobj_847__CLASS_SOURCE_FIELDASSIGN*/ - /*_._VALDATA___V941*/ - meltfptr[940] = (melt_ptr_t )&meltcdat->dobj_847__CLASS_SOURCE_FIELDASSIGN; + /*_._VALDATA___V941*/ meltfptr[940] = (melt_ptr_t )&meltcdat->dobj_847__CLASS_SOURCE_FIELDASSIGN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_847__CLASS_SOURCE_FIELDASSIGN", 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_847__CLASS_SOURCE_FIELDASSIGN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_847__CLASS_SOURCE_FIELDASSIGN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -19516,28 +17387,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_848__CLASS_SOURCE_FIELDASSIGN*/ - /*_._VALSTR___V942*/ - meltfptr[941] = (melt_ptr_t) &meltcdat->dstr_848__CLASS_SOURCE_FIELDASSIGN; + /*_._VALSTR___V942*/ meltfptr[941] = (melt_ptr_t) &meltcdat->dstr_848__CLASS_SOURCE_FIELDASSIGN; meltcdat->dstr_848__CLASS_SOURCE_FIELDASSIGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_848__CLASS_SOURCE_FIELDASSIGN.val, "CLASS_SOURCE_FIELDASSIGN", sizeof (meltcdat->dstr_848__CLASS_SOURCE_FIELDASSIGN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_848__CLASS_SOURCE_FIELDASSIGN.val, "CLASS_SOURCE_FIELDASSIGN", sizeof (meltcdat->dstr_848__CLASS_SOURCE_FIELDASSIGN.val)-1); meltcdat->dstr_848__CLASS_SOURCE_FIELDASSIGN.val[24] = (char)0 ; meltcdat->dstr_848__CLASS_SOURCE_FIELDASSIGN.slen = 24 ; /*inimult dtup_849_syCLASS_SOURCE_FIELDASSIGN*/ - /*_._VALTUP___V943*/ - meltfptr[942] = (melt_ptr_t) &meltcdat->dtup_849_syCLASS_SOURCE_FIELDASSIGN; + /*_._VALTUP___V943*/ meltfptr[942] = (melt_ptr_t) &meltcdat->dtup_849_syCLASS_SOURCE_FIELDASSIGN; meltcdat->dtup_849_syCLASS_SOURCE_FIELDASSIGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_849_syCLASS_SOURCE_FIELDASSIGN.nbval = 4; /*inimult dtup_850_syCLASS_SOURCE_FIELDASSIGN*/ - /*_._VALTUP___V948*/ - meltfptr[947] = (melt_ptr_t) &meltcdat->dtup_850_syCLASS_SOURCE_FIELDASSIGN; + /*_._VALTUP___V948*/ meltfptr[947] = (melt_ptr_t) &meltcdat->dtup_850_syCLASS_SOURCE_FIELDASSIGN; meltcdat->dtup_850_syCLASS_SOURCE_FIELDASSIGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_850_syCLASS_SOURCE_FIELDASSIGN.nbval = 4; /*iniobj dsym_851__SFLA_FIELD*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V949*/ meltfptr[948]) + /*uniqueobj*/ if (!/*_._VALDATA___V949*/ meltfptr[948]) /*_._VALDATA___V949*/ meltfptr[948] = (melt_ptr_t )&meltcdat->dsym_851__SFLA_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_851__SFLA_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_851__SFLA_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19547,19 +17413,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_852__SFLA_FIELD*/ - /*_._VALSTR___V950*/ - meltfptr[949] = (melt_ptr_t) &meltcdat->dstr_852__SFLA_FIELD; + /*_._VALSTR___V950*/ meltfptr[949] = (melt_ptr_t) &meltcdat->dstr_852__SFLA_FIELD; meltcdat->dstr_852__SFLA_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_852__SFLA_FIELD.val, "SFLA_FIELD", sizeof (meltcdat->dstr_852__SFLA_FIELD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_852__SFLA_FIELD.val, "SFLA_FIELD", sizeof (meltcdat->dstr_852__SFLA_FIELD.val)-1); meltcdat->dstr_852__SFLA_FIELD.val[10] = (char)0 ; meltcdat->dstr_852__SFLA_FIELD.slen = 10 ; /*^iniobj*/ /*iniobj dobj_853__SFLA_FIELD*/ - /*_._VALDATA___V944*/ - meltfptr[943] = (melt_ptr_t )&meltcdat->dobj_853__SFLA_FIELD; + /*_._VALDATA___V944*/ meltfptr[943] = (melt_ptr_t )&meltcdat->dobj_853__SFLA_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_853__SFLA_FIELD", 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_853__SFLA_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_853__SFLA_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -19569,18 +17432,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_854__SFLA_FIELD*/ - /*_._VALSTR___V945*/ - meltfptr[944] = (melt_ptr_t) &meltcdat->dstr_854__SFLA_FIELD; + /*_._VALSTR___V945*/ meltfptr[944] = (melt_ptr_t) &meltcdat->dstr_854__SFLA_FIELD; meltcdat->dstr_854__SFLA_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_854__SFLA_FIELD.val, "SFLA_FIELD", sizeof (meltcdat->dstr_854__SFLA_FIELD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_854__SFLA_FIELD.val, "SFLA_FIELD", sizeof (meltcdat->dstr_854__SFLA_FIELD.val)-1); meltcdat->dstr_854__SFLA_FIELD.val[10] = (char)0 ; meltcdat->dstr_854__SFLA_FIELD.slen = 10 ; /*iniobj dsym_855__SFLA_EXPR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V951*/ meltfptr[950]) + /*uniqueobj*/ if (!/*_._VALDATA___V951*/ meltfptr[950]) /*_._VALDATA___V951*/ meltfptr[950] = (melt_ptr_t )&meltcdat->dsym_855__SFLA_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_855__SFLA_EXPR", 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_855__SFLA_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19590,19 +17450,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_856__SFLA_EXPR*/ - /*_._VALSTR___V952*/ - meltfptr[951] = (melt_ptr_t) &meltcdat->dstr_856__SFLA_EXPR; + /*_._VALSTR___V952*/ meltfptr[951] = (melt_ptr_t) &meltcdat->dstr_856__SFLA_EXPR; meltcdat->dstr_856__SFLA_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_856__SFLA_EXPR.val, "SFLA_EXPR", sizeof (meltcdat->dstr_856__SFLA_EXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_856__SFLA_EXPR.val, "SFLA_EXPR", sizeof (meltcdat->dstr_856__SFLA_EXPR.val)-1); meltcdat->dstr_856__SFLA_EXPR.val[9] = (char)0 ; meltcdat->dstr_856__SFLA_EXPR.slen = 9 ; /*^iniobj*/ /*iniobj dobj_857__SFLA_EXPR*/ - /*_._VALDATA___V946*/ - meltfptr[945] = (melt_ptr_t )&meltcdat->dobj_857__SFLA_EXPR; + /*_._VALDATA___V946*/ meltfptr[945] = (melt_ptr_t )&meltcdat->dobj_857__SFLA_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_857__SFLA_EXPR", 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_857__SFLA_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_857__SFLA_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -19612,18 +17469,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_858__SFLA_EXPR*/ - /*_._VALSTR___V947*/ - meltfptr[946] = (melt_ptr_t) &meltcdat->dstr_858__SFLA_EXPR; + /*_._VALSTR___V947*/ meltfptr[946] = (melt_ptr_t) &meltcdat->dstr_858__SFLA_EXPR; meltcdat->dstr_858__SFLA_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_858__SFLA_EXPR.val, "SFLA_EXPR", sizeof (meltcdat->dstr_858__SFLA_EXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_858__SFLA_EXPR.val, "SFLA_EXPR", sizeof (meltcdat->dstr_858__SFLA_EXPR.val)-1); meltcdat->dstr_858__SFLA_EXPR.val[9] = (char)0 ; meltcdat->dstr_858__SFLA_EXPR.slen = 9 ; /*iniobj dsym_859__CLASS_SOURCE_INSTANCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V953*/ meltfptr[952]) + /*uniqueobj*/ if (!/*_._VALDATA___V953*/ meltfptr[952]) /*_._VALDATA___V953*/ meltfptr[952] = (melt_ptr_t )&meltcdat->dsym_859__CLASS_SOURCE_INSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_859__CLASS_SOURCE_INSTANCE", 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_859__CLASS_SOURCE_INSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19633,19 +17487,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_860__CLASS_SOURCE_INSTANCE*/ - /*_._VALSTR___V954*/ - meltfptr[953] = (melt_ptr_t) &meltcdat->dstr_860__CLASS_SOURCE_INSTANCE; + /*_._VALSTR___V954*/ meltfptr[953] = (melt_ptr_t) &meltcdat->dstr_860__CLASS_SOURCE_INSTANCE; meltcdat->dstr_860__CLASS_SOURCE_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_860__CLASS_SOURCE_INSTANCE.val, "CLASS_SOURCE_INSTANCE", sizeof (meltcdat->dstr_860__CLASS_SOURCE_INSTANCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_860__CLASS_SOURCE_INSTANCE.val, "CLASS_SOURCE_INSTANCE", sizeof (meltcdat->dstr_860__CLASS_SOURCE_INSTANCE.val)-1); meltcdat->dstr_860__CLASS_SOURCE_INSTANCE.val[21] = (char)0 ; meltcdat->dstr_860__CLASS_SOURCE_INSTANCE.slen = 21 ; MELT_LOCATION("warmelt-macro.melt:936:/ iniobj"); /*iniobj dobj_861__CLASS_SOURCE_INSTANCE*/ - /*_._VALDATA___V955*/ - meltfptr[954] = (melt_ptr_t )&meltcdat->dobj_861__CLASS_SOURCE_INSTANCE; + /*_._VALDATA___V955*/ meltfptr[954] = (melt_ptr_t )&meltcdat->dobj_861__CLASS_SOURCE_INSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_861__CLASS_SOURCE_INSTANCE", 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_861__CLASS_SOURCE_INSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_861__CLASS_SOURCE_INSTANCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -19655,28 +17506,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_862__CLASS_SOURCE_INSTANCE*/ - /*_._VALSTR___V956*/ - meltfptr[955] = (melt_ptr_t) &meltcdat->dstr_862__CLASS_SOURCE_INSTANCE; + /*_._VALSTR___V956*/ meltfptr[955] = (melt_ptr_t) &meltcdat->dstr_862__CLASS_SOURCE_INSTANCE; meltcdat->dstr_862__CLASS_SOURCE_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_862__CLASS_SOURCE_INSTANCE.val, "CLASS_SOURCE_INSTANCE", sizeof (meltcdat->dstr_862__CLASS_SOURCE_INSTANCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_862__CLASS_SOURCE_INSTANCE.val, "CLASS_SOURCE_INSTANCE", sizeof (meltcdat->dstr_862__CLASS_SOURCE_INSTANCE.val)-1); meltcdat->dstr_862__CLASS_SOURCE_INSTANCE.val[21] = (char)0 ; meltcdat->dstr_862__CLASS_SOURCE_INSTANCE.slen = 21 ; /*inimult dtup_863_syCLASS_SOURCE_INSTANCE*/ - /*_._VALTUP___V957*/ - meltfptr[956] = (melt_ptr_t) &meltcdat->dtup_863_syCLASS_SOURCE_INSTANCE; + /*_._VALTUP___V957*/ meltfptr[956] = (melt_ptr_t) &meltcdat->dtup_863_syCLASS_SOURCE_INSTANCE; meltcdat->dtup_863_syCLASS_SOURCE_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_863_syCLASS_SOURCE_INSTANCE.nbval = 4; /*inimult dtup_864_syCLASS_SOURCE_INSTANCE*/ - /*_._VALTUP___V964*/ - meltfptr[963] = (melt_ptr_t) &meltcdat->dtup_864_syCLASS_SOURCE_INSTANCE; + /*_._VALTUP___V964*/ meltfptr[963] = (melt_ptr_t) &meltcdat->dtup_864_syCLASS_SOURCE_INSTANCE; meltcdat->dtup_864_syCLASS_SOURCE_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_864_syCLASS_SOURCE_INSTANCE.nbval = 5; /*iniobj dsym_865__SMINS_CLASS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V965*/ meltfptr[964]) + /*uniqueobj*/ if (!/*_._VALDATA___V965*/ meltfptr[964]) /*_._VALDATA___V965*/ meltfptr[964] = (melt_ptr_t )&meltcdat->dsym_865__SMINS_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_865__SMINS_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_865__SMINS_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19686,19 +17532,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_866__SMINS_CLASS*/ - /*_._VALSTR___V966*/ - meltfptr[965] = (melt_ptr_t) &meltcdat->dstr_866__SMINS_CLASS; + /*_._VALSTR___V966*/ meltfptr[965] = (melt_ptr_t) &meltcdat->dstr_866__SMINS_CLASS; meltcdat->dstr_866__SMINS_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_866__SMINS_CLASS.val, "SMINS_CLASS", sizeof (meltcdat->dstr_866__SMINS_CLASS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_866__SMINS_CLASS.val, "SMINS_CLASS", sizeof (meltcdat->dstr_866__SMINS_CLASS.val)-1); meltcdat->dstr_866__SMINS_CLASS.val[11] = (char)0 ; meltcdat->dstr_866__SMINS_CLASS.slen = 11 ; /*^iniobj*/ /*iniobj dobj_867__SMINS_CLASS*/ - /*_._VALDATA___V958*/ - meltfptr[957] = (melt_ptr_t )&meltcdat->dobj_867__SMINS_CLASS; + /*_._VALDATA___V958*/ meltfptr[957] = (melt_ptr_t )&meltcdat->dobj_867__SMINS_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_867__SMINS_CLASS", 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_867__SMINS_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_867__SMINS_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -19708,18 +17551,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_868__SMINS_CLASS*/ - /*_._VALSTR___V959*/ - meltfptr[958] = (melt_ptr_t) &meltcdat->dstr_868__SMINS_CLASS; + /*_._VALSTR___V959*/ meltfptr[958] = (melt_ptr_t) &meltcdat->dstr_868__SMINS_CLASS; meltcdat->dstr_868__SMINS_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_868__SMINS_CLASS.val, "SMINS_CLASS", sizeof (meltcdat->dstr_868__SMINS_CLASS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_868__SMINS_CLASS.val, "SMINS_CLASS", sizeof (meltcdat->dstr_868__SMINS_CLASS.val)-1); meltcdat->dstr_868__SMINS_CLASS.val[11] = (char)0 ; meltcdat->dstr_868__SMINS_CLASS.slen = 11 ; /*iniobj dsym_869__SMINS_CLABIND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V967*/ meltfptr[966]) + /*uniqueobj*/ if (!/*_._VALDATA___V967*/ meltfptr[966]) /*_._VALDATA___V967*/ meltfptr[966] = (melt_ptr_t )&meltcdat->dsym_869__SMINS_CLABIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_869__SMINS_CLABIND", 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_869__SMINS_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19729,19 +17569,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_870__SMINS_CLABIND*/ - /*_._VALSTR___V968*/ - meltfptr[967] = (melt_ptr_t) &meltcdat->dstr_870__SMINS_CLABIND; + /*_._VALSTR___V968*/ meltfptr[967] = (melt_ptr_t) &meltcdat->dstr_870__SMINS_CLABIND; meltcdat->dstr_870__SMINS_CLABIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_870__SMINS_CLABIND.val, "SMINS_CLABIND", sizeof (meltcdat->dstr_870__SMINS_CLABIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_870__SMINS_CLABIND.val, "SMINS_CLABIND", sizeof (meltcdat->dstr_870__SMINS_CLABIND.val)-1); meltcdat->dstr_870__SMINS_CLABIND.val[13] = (char)0 ; meltcdat->dstr_870__SMINS_CLABIND.slen = 13 ; /*^iniobj*/ /*iniobj dobj_871__SMINS_CLABIND*/ - /*_._VALDATA___V960*/ - meltfptr[959] = (melt_ptr_t )&meltcdat->dobj_871__SMINS_CLABIND; + /*_._VALDATA___V960*/ meltfptr[959] = (melt_ptr_t )&meltcdat->dobj_871__SMINS_CLABIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_871__SMINS_CLABIND", 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_871__SMINS_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_871__SMINS_CLABIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -19751,18 +17588,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_872__SMINS_CLABIND*/ - /*_._VALSTR___V961*/ - meltfptr[960] = (melt_ptr_t) &meltcdat->dstr_872__SMINS_CLABIND; + /*_._VALSTR___V961*/ meltfptr[960] = (melt_ptr_t) &meltcdat->dstr_872__SMINS_CLABIND; meltcdat->dstr_872__SMINS_CLABIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_872__SMINS_CLABIND.val, "SMINS_CLABIND", sizeof (meltcdat->dstr_872__SMINS_CLABIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_872__SMINS_CLABIND.val, "SMINS_CLABIND", sizeof (meltcdat->dstr_872__SMINS_CLABIND.val)-1); meltcdat->dstr_872__SMINS_CLABIND.val[13] = (char)0 ; meltcdat->dstr_872__SMINS_CLABIND.slen = 13 ; /*iniobj dsym_873__SMINS_FIELDS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V969*/ meltfptr[968]) + /*uniqueobj*/ if (!/*_._VALDATA___V969*/ meltfptr[968]) /*_._VALDATA___V969*/ meltfptr[968] = (melt_ptr_t )&meltcdat->dsym_873__SMINS_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_873__SMINS_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_873__SMINS_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19772,19 +17606,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_874__SMINS_FIELDS*/ - /*_._VALSTR___V970*/ - meltfptr[969] = (melt_ptr_t) &meltcdat->dstr_874__SMINS_FIELDS; + /*_._VALSTR___V970*/ meltfptr[969] = (melt_ptr_t) &meltcdat->dstr_874__SMINS_FIELDS; meltcdat->dstr_874__SMINS_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_874__SMINS_FIELDS.val, "SMINS_FIELDS", sizeof (meltcdat->dstr_874__SMINS_FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_874__SMINS_FIELDS.val, "SMINS_FIELDS", sizeof (meltcdat->dstr_874__SMINS_FIELDS.val)-1); meltcdat->dstr_874__SMINS_FIELDS.val[12] = (char)0 ; meltcdat->dstr_874__SMINS_FIELDS.slen = 12 ; /*^iniobj*/ /*iniobj dobj_875__SMINS_FIELDS*/ - /*_._VALDATA___V962*/ - meltfptr[961] = (melt_ptr_t )&meltcdat->dobj_875__SMINS_FIELDS; + /*_._VALDATA___V962*/ meltfptr[961] = (melt_ptr_t )&meltcdat->dobj_875__SMINS_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_875__SMINS_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_875__SMINS_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_875__SMINS_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -19794,18 +17625,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_876__SMINS_FIELDS*/ - /*_._VALSTR___V963*/ - meltfptr[962] = (melt_ptr_t) &meltcdat->dstr_876__SMINS_FIELDS; + /*_._VALSTR___V963*/ meltfptr[962] = (melt_ptr_t) &meltcdat->dstr_876__SMINS_FIELDS; meltcdat->dstr_876__SMINS_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_876__SMINS_FIELDS.val, "SMINS_FIELDS", sizeof (meltcdat->dstr_876__SMINS_FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_876__SMINS_FIELDS.val, "SMINS_FIELDS", sizeof (meltcdat->dstr_876__SMINS_FIELDS.val)-1); meltcdat->dstr_876__SMINS_FIELDS.val[12] = (char)0 ; meltcdat->dstr_876__SMINS_FIELDS.slen = 12 ; /*iniobj dsym_877__CLASS_SOURCE_GET_FIELD*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V971*/ meltfptr[970]) + /*uniqueobj*/ if (!/*_._VALDATA___V971*/ meltfptr[970]) /*_._VALDATA___V971*/ meltfptr[970] = (melt_ptr_t )&meltcdat->dsym_877__CLASS_SOURCE_GET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_877__CLASS_SOURCE_GET_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_877__CLASS_SOURCE_GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19815,19 +17643,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_878__CLASS_SOURCE_GET_FIELD*/ - /*_._VALSTR___V972*/ - meltfptr[971] = (melt_ptr_t) &meltcdat->dstr_878__CLASS_SOURCE_GET_FIELD; + /*_._VALSTR___V972*/ meltfptr[971] = (melt_ptr_t) &meltcdat->dstr_878__CLASS_SOURCE_GET_FIELD; meltcdat->dstr_878__CLASS_SOURCE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_878__CLASS_SOURCE_GET_FIELD.val, "CLASS_SOURCE_GET_FIELD", sizeof (meltcdat->dstr_878__CLASS_SOURCE_GET_FIELD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_878__CLASS_SOURCE_GET_FIELD.val, "CLASS_SOURCE_GET_FIELD", sizeof (meltcdat->dstr_878__CLASS_SOURCE_GET_FIELD.val)-1); meltcdat->dstr_878__CLASS_SOURCE_GET_FIELD.val[22] = (char)0 ; meltcdat->dstr_878__CLASS_SOURCE_GET_FIELD.slen = 22 ; MELT_LOCATION("warmelt-macro.melt:948:/ iniobj"); /*iniobj dobj_879__CLASS_SOURCE_GET_FIELD*/ - /*_._VALDATA___V973*/ - meltfptr[972] = (melt_ptr_t )&meltcdat->dobj_879__CLASS_SOURCE_GET_FIELD; + /*_._VALDATA___V973*/ meltfptr[972] = (melt_ptr_t )&meltcdat->dobj_879__CLASS_SOURCE_GET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_879__CLASS_SOURCE_GET_FIELD", 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_879__CLASS_SOURCE_GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_879__CLASS_SOURCE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -19837,28 +17662,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_880__CLASS_SOURCE_GET_FIELD*/ - /*_._VALSTR___V974*/ - meltfptr[973] = (melt_ptr_t) &meltcdat->dstr_880__CLASS_SOURCE_GET_FIELD; + /*_._VALSTR___V974*/ meltfptr[973] = (melt_ptr_t) &meltcdat->dstr_880__CLASS_SOURCE_GET_FIELD; meltcdat->dstr_880__CLASS_SOURCE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_880__CLASS_SOURCE_GET_FIELD.val, "CLASS_SOURCE_GET_FIELD", sizeof (meltcdat->dstr_880__CLASS_SOURCE_GET_FIELD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_880__CLASS_SOURCE_GET_FIELD.val, "CLASS_SOURCE_GET_FIELD", sizeof (meltcdat->dstr_880__CLASS_SOURCE_GET_FIELD.val)-1); meltcdat->dstr_880__CLASS_SOURCE_GET_FIELD.val[22] = (char)0 ; meltcdat->dstr_880__CLASS_SOURCE_GET_FIELD.slen = 22 ; /*inimult dtup_881_syCLASS_SOURCE_GET_FIELD*/ - /*_._VALTUP___V975*/ - meltfptr[974] = (melt_ptr_t) &meltcdat->dtup_881_syCLASS_SOURCE_GET_FIELD; + /*_._VALTUP___V975*/ meltfptr[974] = (melt_ptr_t) &meltcdat->dtup_881_syCLASS_SOURCE_GET_FIELD; meltcdat->dtup_881_syCLASS_SOURCE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_881_syCLASS_SOURCE_GET_FIELD.nbval = 4; /*inimult dtup_882_syCLASS_SOURCE_GET_FIELD*/ - /*_._VALTUP___V980*/ - meltfptr[979] = (melt_ptr_t) &meltcdat->dtup_882_syCLASS_SOURCE_GET_FIELD; + /*_._VALTUP___V980*/ meltfptr[979] = (melt_ptr_t) &meltcdat->dtup_882_syCLASS_SOURCE_GET_FIELD; meltcdat->dtup_882_syCLASS_SOURCE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_882_syCLASS_SOURCE_GET_FIELD.nbval = 4; /*iniobj dsym_883__SUGET_OBJ*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V981*/ meltfptr[980]) + /*uniqueobj*/ if (!/*_._VALDATA___V981*/ meltfptr[980]) /*_._VALDATA___V981*/ meltfptr[980] = (melt_ptr_t )&meltcdat->dsym_883__SUGET_OBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_883__SUGET_OBJ", 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_883__SUGET_OBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19868,19 +17688,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_884__SUGET_OBJ*/ - /*_._VALSTR___V982*/ - meltfptr[981] = (melt_ptr_t) &meltcdat->dstr_884__SUGET_OBJ; + /*_._VALSTR___V982*/ meltfptr[981] = (melt_ptr_t) &meltcdat->dstr_884__SUGET_OBJ; meltcdat->dstr_884__SUGET_OBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_884__SUGET_OBJ.val, "SUGET_OBJ", sizeof (meltcdat->dstr_884__SUGET_OBJ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_884__SUGET_OBJ.val, "SUGET_OBJ", sizeof (meltcdat->dstr_884__SUGET_OBJ.val)-1); meltcdat->dstr_884__SUGET_OBJ.val[9] = (char)0 ; meltcdat->dstr_884__SUGET_OBJ.slen = 9 ; /*^iniobj*/ /*iniobj dobj_885__SUGET_OBJ*/ - /*_._VALDATA___V976*/ - meltfptr[975] = (melt_ptr_t )&meltcdat->dobj_885__SUGET_OBJ; + /*_._VALDATA___V976*/ meltfptr[975] = (melt_ptr_t )&meltcdat->dobj_885__SUGET_OBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_885__SUGET_OBJ", 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_885__SUGET_OBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_885__SUGET_OBJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -19890,18 +17707,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_886__SUGET_OBJ*/ - /*_._VALSTR___V977*/ - meltfptr[976] = (melt_ptr_t) &meltcdat->dstr_886__SUGET_OBJ; + /*_._VALSTR___V977*/ meltfptr[976] = (melt_ptr_t) &meltcdat->dstr_886__SUGET_OBJ; meltcdat->dstr_886__SUGET_OBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_886__SUGET_OBJ.val, "SUGET_OBJ", sizeof (meltcdat->dstr_886__SUGET_OBJ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_886__SUGET_OBJ.val, "SUGET_OBJ", sizeof (meltcdat->dstr_886__SUGET_OBJ.val)-1); meltcdat->dstr_886__SUGET_OBJ.val[9] = (char)0 ; meltcdat->dstr_886__SUGET_OBJ.slen = 9 ; /*iniobj dsym_887__SUGET_FIELD*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V983*/ meltfptr[982]) + /*uniqueobj*/ if (!/*_._VALDATA___V983*/ meltfptr[982]) /*_._VALDATA___V983*/ meltfptr[982] = (melt_ptr_t )&meltcdat->dsym_887__SUGET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_887__SUGET_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_887__SUGET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19911,19 +17725,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_888__SUGET_FIELD*/ - /*_._VALSTR___V984*/ - meltfptr[983] = (melt_ptr_t) &meltcdat->dstr_888__SUGET_FIELD; + /*_._VALSTR___V984*/ meltfptr[983] = (melt_ptr_t) &meltcdat->dstr_888__SUGET_FIELD; meltcdat->dstr_888__SUGET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_888__SUGET_FIELD.val, "SUGET_FIELD", sizeof (meltcdat->dstr_888__SUGET_FIELD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_888__SUGET_FIELD.val, "SUGET_FIELD", sizeof (meltcdat->dstr_888__SUGET_FIELD.val)-1); meltcdat->dstr_888__SUGET_FIELD.val[11] = (char)0 ; meltcdat->dstr_888__SUGET_FIELD.slen = 11 ; /*^iniobj*/ /*iniobj dobj_889__SUGET_FIELD*/ - /*_._VALDATA___V978*/ - meltfptr[977] = (melt_ptr_t )&meltcdat->dobj_889__SUGET_FIELD; + /*_._VALDATA___V978*/ meltfptr[977] = (melt_ptr_t )&meltcdat->dobj_889__SUGET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_889__SUGET_FIELD", 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_889__SUGET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_889__SUGET_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -19933,18 +17744,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_890__SUGET_FIELD*/ - /*_._VALSTR___V979*/ - meltfptr[978] = (melt_ptr_t) &meltcdat->dstr_890__SUGET_FIELD; + /*_._VALSTR___V979*/ meltfptr[978] = (melt_ptr_t) &meltcdat->dstr_890__SUGET_FIELD; meltcdat->dstr_890__SUGET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_890__SUGET_FIELD.val, "SUGET_FIELD", sizeof (meltcdat->dstr_890__SUGET_FIELD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_890__SUGET_FIELD.val, "SUGET_FIELD", sizeof (meltcdat->dstr_890__SUGET_FIELD.val)-1); meltcdat->dstr_890__SUGET_FIELD.val[11] = (char)0 ; meltcdat->dstr_890__SUGET_FIELD.slen = 11 ; /*iniobj dsym_891__CLASS_SOURCE_UNSAFE_GET_FIELD*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V985*/ meltfptr[984]) + /*uniqueobj*/ if (!/*_._VALDATA___V985*/ meltfptr[984]) /*_._VALDATA___V985*/ meltfptr[984] = (melt_ptr_t )&meltcdat->dsym_891__CLASS_SOURCE_UNSAFE_GET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_891__CLASS_SOURCE_UNSAFE_GET_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_891__CLASS_SOURCE_UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -19954,19 +17762,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_892__CLASS_SOURCE_UNSAFE_GET_*/ - /*_._VALSTR___V986*/ - meltfptr[985] = (melt_ptr_t) &meltcdat->dstr_892__CLASS_SOURCE_UNSAFE_GET_; + /*_._VALSTR___V986*/ meltfptr[985] = (melt_ptr_t) &meltcdat->dstr_892__CLASS_SOURCE_UNSAFE_GET_; meltcdat->dstr_892__CLASS_SOURCE_UNSAFE_GET_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_892__CLASS_SOURCE_UNSAFE_GET_.val, "CLASS_SOURCE_UNSAFE_GET_FIELD", sizeof (meltcdat->dstr_892__CLASS_SOURCE_UNSAFE_GET_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_892__CLASS_SOURCE_UNSAFE_GET_.val, "CLASS_SOURCE_UNSAFE_GET_FIELD", sizeof (meltcdat->dstr_892__CLASS_SOURCE_UNSAFE_GET_.val)-1); meltcdat->dstr_892__CLASS_SOURCE_UNSAFE_GET_.val[29] = (char)0 ; meltcdat->dstr_892__CLASS_SOURCE_UNSAFE_GET_.slen = 29 ; MELT_LOCATION("warmelt-macro.melt:959:/ iniobj"); /*iniobj dobj_893__CLASS_SOURCE_UNSAFE_GET_FIELD*/ - /*_._VALDATA___V987*/ - meltfptr[986] = (melt_ptr_t )&meltcdat->dobj_893__CLASS_SOURCE_UNSAFE_GET_FIELD; + /*_._VALDATA___V987*/ meltfptr[986] = (melt_ptr_t )&meltcdat->dobj_893__CLASS_SOURCE_UNSAFE_GET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_893__CLASS_SOURCE_UNSAFE_GET_FIELD", 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_893__CLASS_SOURCE_UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_893__CLASS_SOURCE_UNSAFE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -19976,28 +17781,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_894__CLASS_SOURCE_UNSAFE_GET_*/ - /*_._VALSTR___V988*/ - meltfptr[987] = (melt_ptr_t) &meltcdat->dstr_894__CLASS_SOURCE_UNSAFE_GET_; + /*_._VALSTR___V988*/ meltfptr[987] = (melt_ptr_t) &meltcdat->dstr_894__CLASS_SOURCE_UNSAFE_GET_; meltcdat->dstr_894__CLASS_SOURCE_UNSAFE_GET_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_894__CLASS_SOURCE_UNSAFE_GET_.val, "CLASS_SOURCE_UNSAFE_GET_FIELD", sizeof (meltcdat->dstr_894__CLASS_SOURCE_UNSAFE_GET_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_894__CLASS_SOURCE_UNSAFE_GET_.val, "CLASS_SOURCE_UNSAFE_GET_FIELD", sizeof (meltcdat->dstr_894__CLASS_SOURCE_UNSAFE_GET_.val)-1); meltcdat->dstr_894__CLASS_SOURCE_UNSAFE_GET_.val[29] = (char)0 ; meltcdat->dstr_894__CLASS_SOURCE_UNSAFE_GET_.slen = 29 ; /*inimult dtup_895_syCLASS_SOURCE_UNSAFE_GET_FIELD*/ - /*_._VALTUP___V989*/ - meltfptr[988] = (melt_ptr_t) &meltcdat->dtup_895_syCLASS_SOURCE_UNSAFE_GET_FIELD; + /*_._VALTUP___V989*/ meltfptr[988] = (melt_ptr_t) &meltcdat->dtup_895_syCLASS_SOURCE_UNSAFE_GET_FIELD; meltcdat->dtup_895_syCLASS_SOURCE_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_895_syCLASS_SOURCE_UNSAFE_GET_FIELD.nbval = 5; /*inimult dtup_896_syCLASS_SOURCE_UNSAFE_GET_FIELD*/ - /*_._VALTUP___V990*/ - meltfptr[989] = (melt_ptr_t) &meltcdat->dtup_896_syCLASS_SOURCE_UNSAFE_GET_FIELD; + /*_._VALTUP___V990*/ meltfptr[989] = (melt_ptr_t) &meltcdat->dtup_896_syCLASS_SOURCE_UNSAFE_GET_FIELD; meltcdat->dtup_896_syCLASS_SOURCE_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_896_syCLASS_SOURCE_UNSAFE_GET_FIELD.nbval = 4; /*iniobj dsym_897__CLASS_SOURCE_PUT_FIELDS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V991*/ meltfptr[990]) + /*uniqueobj*/ if (!/*_._VALDATA___V991*/ meltfptr[990]) /*_._VALDATA___V991*/ meltfptr[990] = (melt_ptr_t )&meltcdat->dsym_897__CLASS_SOURCE_PUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_897__CLASS_SOURCE_PUT_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_897__CLASS_SOURCE_PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20007,19 +17807,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_898__CLASS_SOURCE_PUT_FIELDS*/ - /*_._VALSTR___V992*/ - meltfptr[991] = (melt_ptr_t) &meltcdat->dstr_898__CLASS_SOURCE_PUT_FIELDS; + /*_._VALSTR___V992*/ meltfptr[991] = (melt_ptr_t) &meltcdat->dstr_898__CLASS_SOURCE_PUT_FIELDS; meltcdat->dstr_898__CLASS_SOURCE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_898__CLASS_SOURCE_PUT_FIELDS.val, "CLASS_SOURCE_PUT_FIELDS", sizeof (meltcdat->dstr_898__CLASS_SOURCE_PUT_FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_898__CLASS_SOURCE_PUT_FIELDS.val, "CLASS_SOURCE_PUT_FIELDS", sizeof (meltcdat->dstr_898__CLASS_SOURCE_PUT_FIELDS.val)-1); meltcdat->dstr_898__CLASS_SOURCE_PUT_FIELDS.val[23] = (char)0 ; meltcdat->dstr_898__CLASS_SOURCE_PUT_FIELDS.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:968:/ iniobj"); /*iniobj dobj_899__CLASS_SOURCE_PUT_FIELDS*/ - /*_._VALDATA___V993*/ - meltfptr[992] = (melt_ptr_t )&meltcdat->dobj_899__CLASS_SOURCE_PUT_FIELDS; + /*_._VALDATA___V993*/ meltfptr[992] = (melt_ptr_t )&meltcdat->dobj_899__CLASS_SOURCE_PUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_899__CLASS_SOURCE_PUT_FIELDS", 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_899__CLASS_SOURCE_PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_899__CLASS_SOURCE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -20029,28 +17826,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_900__CLASS_SOURCE_PUT_FIELDS*/ - /*_._VALSTR___V994*/ - meltfptr[993] = (melt_ptr_t) &meltcdat->dstr_900__CLASS_SOURCE_PUT_FIELDS; + /*_._VALSTR___V994*/ meltfptr[993] = (melt_ptr_t) &meltcdat->dstr_900__CLASS_SOURCE_PUT_FIELDS; meltcdat->dstr_900__CLASS_SOURCE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_900__CLASS_SOURCE_PUT_FIELDS.val, "CLASS_SOURCE_PUT_FIELDS", sizeof (meltcdat->dstr_900__CLASS_SOURCE_PUT_FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_900__CLASS_SOURCE_PUT_FIELDS.val, "CLASS_SOURCE_PUT_FIELDS", sizeof (meltcdat->dstr_900__CLASS_SOURCE_PUT_FIELDS.val)-1); meltcdat->dstr_900__CLASS_SOURCE_PUT_FIELDS.val[23] = (char)0 ; meltcdat->dstr_900__CLASS_SOURCE_PUT_FIELDS.slen = 23 ; /*inimult dtup_901_syCLASS_SOURCE_PUT_FIELDS*/ - /*_._VALTUP___V995*/ - meltfptr[994] = (melt_ptr_t) &meltcdat->dtup_901_syCLASS_SOURCE_PUT_FIELDS; + /*_._VALTUP___V995*/ meltfptr[994] = (melt_ptr_t) &meltcdat->dtup_901_syCLASS_SOURCE_PUT_FIELDS; meltcdat->dtup_901_syCLASS_SOURCE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_901_syCLASS_SOURCE_PUT_FIELDS.nbval = 4; /*inimult dtup_902_syCLASS_SOURCE_PUT_FIELDS*/ - /*_._VALTUP___V1000*/ - meltfptr[999] = (melt_ptr_t) &meltcdat->dtup_902_syCLASS_SOURCE_PUT_FIELDS; + /*_._VALTUP___V1000*/ meltfptr[999] = (melt_ptr_t) &meltcdat->dtup_902_syCLASS_SOURCE_PUT_FIELDS; meltcdat->dtup_902_syCLASS_SOURCE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_902_syCLASS_SOURCE_PUT_FIELDS.nbval = 4; /*iniobj dsym_903__SUPUT_OBJ*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1001*/ meltfptr[1000]) + /*uniqueobj*/ if (!/*_._VALDATA___V1001*/ meltfptr[1000]) /*_._VALDATA___V1001*/ meltfptr[1000] = (melt_ptr_t )&meltcdat->dsym_903__SUPUT_OBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_903__SUPUT_OBJ", 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_903__SUPUT_OBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20060,19 +17852,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_904__SUPUT_OBJ*/ - /*_._VALSTR___V1002*/ - meltfptr[1001] = (melt_ptr_t) &meltcdat->dstr_904__SUPUT_OBJ; + /*_._VALSTR___V1002*/ meltfptr[1001] = (melt_ptr_t) &meltcdat->dstr_904__SUPUT_OBJ; meltcdat->dstr_904__SUPUT_OBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_904__SUPUT_OBJ.val, "SUPUT_OBJ", sizeof (meltcdat->dstr_904__SUPUT_OBJ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_904__SUPUT_OBJ.val, "SUPUT_OBJ", sizeof (meltcdat->dstr_904__SUPUT_OBJ.val)-1); meltcdat->dstr_904__SUPUT_OBJ.val[9] = (char)0 ; meltcdat->dstr_904__SUPUT_OBJ.slen = 9 ; /*^iniobj*/ /*iniobj dobj_905__SUPUT_OBJ*/ - /*_._VALDATA___V996*/ - meltfptr[995] = (melt_ptr_t )&meltcdat->dobj_905__SUPUT_OBJ; + /*_._VALDATA___V996*/ meltfptr[995] = (melt_ptr_t )&meltcdat->dobj_905__SUPUT_OBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_905__SUPUT_OBJ", 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_905__SUPUT_OBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_905__SUPUT_OBJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -20082,18 +17871,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_906__SUPUT_OBJ*/ - /*_._VALSTR___V997*/ - meltfptr[996] = (melt_ptr_t) &meltcdat->dstr_906__SUPUT_OBJ; + /*_._VALSTR___V997*/ meltfptr[996] = (melt_ptr_t) &meltcdat->dstr_906__SUPUT_OBJ; meltcdat->dstr_906__SUPUT_OBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_906__SUPUT_OBJ.val, "SUPUT_OBJ", sizeof (meltcdat->dstr_906__SUPUT_OBJ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_906__SUPUT_OBJ.val, "SUPUT_OBJ", sizeof (meltcdat->dstr_906__SUPUT_OBJ.val)-1); meltcdat->dstr_906__SUPUT_OBJ.val[9] = (char)0 ; meltcdat->dstr_906__SUPUT_OBJ.slen = 9 ; /*iniobj dsym_907__SUPUT_FIELDS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1003*/ meltfptr[1002]) + /*uniqueobj*/ if (!/*_._VALDATA___V1003*/ meltfptr[1002]) /*_._VALDATA___V1003*/ meltfptr[1002] = (melt_ptr_t )&meltcdat->dsym_907__SUPUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_907__SUPUT_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_907__SUPUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20103,19 +17889,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_908__SUPUT_FIELDS*/ - /*_._VALSTR___V1004*/ - meltfptr[1003] = (melt_ptr_t) &meltcdat->dstr_908__SUPUT_FIELDS; + /*_._VALSTR___V1004*/ meltfptr[1003] = (melt_ptr_t) &meltcdat->dstr_908__SUPUT_FIELDS; meltcdat->dstr_908__SUPUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_908__SUPUT_FIELDS.val, "SUPUT_FIELDS", sizeof (meltcdat->dstr_908__SUPUT_FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_908__SUPUT_FIELDS.val, "SUPUT_FIELDS", sizeof (meltcdat->dstr_908__SUPUT_FIELDS.val)-1); meltcdat->dstr_908__SUPUT_FIELDS.val[12] = (char)0 ; meltcdat->dstr_908__SUPUT_FIELDS.slen = 12 ; /*^iniobj*/ /*iniobj dobj_909__SUPUT_FIELDS*/ - /*_._VALDATA___V998*/ - meltfptr[997] = (melt_ptr_t )&meltcdat->dobj_909__SUPUT_FIELDS; + /*_._VALDATA___V998*/ meltfptr[997] = (melt_ptr_t )&meltcdat->dobj_909__SUPUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_909__SUPUT_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_909__SUPUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_909__SUPUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -20125,18 +17908,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_910__SUPUT_FIELDS*/ - /*_._VALSTR___V999*/ - meltfptr[998] = (melt_ptr_t) &meltcdat->dstr_910__SUPUT_FIELDS; + /*_._VALSTR___V999*/ meltfptr[998] = (melt_ptr_t) &meltcdat->dstr_910__SUPUT_FIELDS; meltcdat->dstr_910__SUPUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_910__SUPUT_FIELDS.val, "SUPUT_FIELDS", sizeof (meltcdat->dstr_910__SUPUT_FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_910__SUPUT_FIELDS.val, "SUPUT_FIELDS", sizeof (meltcdat->dstr_910__SUPUT_FIELDS.val)-1); meltcdat->dstr_910__SUPUT_FIELDS.val[12] = (char)0 ; meltcdat->dstr_910__SUPUT_FIELDS.slen = 12 ; /*iniobj dsym_911__CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1005*/ meltfptr[1004]) + /*uniqueobj*/ if (!/*_._VALDATA___V1005*/ meltfptr[1004]) /*_._VALDATA___V1005*/ meltfptr[1004] = (melt_ptr_t )&meltcdat->dsym_911__CLASS_SOURCE_UNSAFE_PUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_911__CLASS_SOURCE_UNSAFE_PUT_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_911__CLASS_SOURCE_UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20146,19 +17926,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_912__CLASS_SOURCE_UNSAFE_PUT_*/ - /*_._VALSTR___V1006*/ - meltfptr[1005] = (melt_ptr_t) &meltcdat->dstr_912__CLASS_SOURCE_UNSAFE_PUT_; + /*_._VALSTR___V1006*/ meltfptr[1005] = (melt_ptr_t) &meltcdat->dstr_912__CLASS_SOURCE_UNSAFE_PUT_; meltcdat->dstr_912__CLASS_SOURCE_UNSAFE_PUT_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_912__CLASS_SOURCE_UNSAFE_PUT_.val, "CLASS_SOURCE_UNSAFE_PUT_FIELDS", sizeof (meltcdat->dstr_912__CLASS_SOURCE_UNSAFE_PUT_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_912__CLASS_SOURCE_UNSAFE_PUT_.val, "CLASS_SOURCE_UNSAFE_PUT_FIELDS", sizeof (meltcdat->dstr_912__CLASS_SOURCE_UNSAFE_PUT_.val)-1); meltcdat->dstr_912__CLASS_SOURCE_UNSAFE_PUT_.val[30] = (char)0 ; meltcdat->dstr_912__CLASS_SOURCE_UNSAFE_PUT_.slen = 30 ; MELT_LOCATION("warmelt-macro.melt:978:/ iniobj"); /*iniobj dobj_913__CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ - /*_._VALDATA___V1007*/ - meltfptr[1006] = (melt_ptr_t )&meltcdat->dobj_913__CLASS_SOURCE_UNSAFE_PUT_FIELDS; + /*_._VALDATA___V1007*/ meltfptr[1006] = (melt_ptr_t )&meltcdat->dobj_913__CLASS_SOURCE_UNSAFE_PUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_913__CLASS_SOURCE_UNSAFE_PUT_FIELDS", 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_913__CLASS_SOURCE_UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_913__CLASS_SOURCE_UNSAFE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -20168,28 +17945,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_914__CLASS_SOURCE_UNSAFE_PUT_*/ - /*_._VALSTR___V1008*/ - meltfptr[1007] = (melt_ptr_t) &meltcdat->dstr_914__CLASS_SOURCE_UNSAFE_PUT_; + /*_._VALSTR___V1008*/ meltfptr[1007] = (melt_ptr_t) &meltcdat->dstr_914__CLASS_SOURCE_UNSAFE_PUT_; meltcdat->dstr_914__CLASS_SOURCE_UNSAFE_PUT_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_914__CLASS_SOURCE_UNSAFE_PUT_.val, "CLASS_SOURCE_UNSAFE_PUT_FIELDS", sizeof (meltcdat->dstr_914__CLASS_SOURCE_UNSAFE_PUT_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_914__CLASS_SOURCE_UNSAFE_PUT_.val, "CLASS_SOURCE_UNSAFE_PUT_FIELDS", sizeof (meltcdat->dstr_914__CLASS_SOURCE_UNSAFE_PUT_.val)-1); meltcdat->dstr_914__CLASS_SOURCE_UNSAFE_PUT_.val[30] = (char)0 ; meltcdat->dstr_914__CLASS_SOURCE_UNSAFE_PUT_.slen = 30 ; /*inimult dtup_915_syCLASS_SOURCE_UNSAFE_PUT_FIELDS*/ - /*_._VALTUP___V1009*/ - meltfptr[1008] = (melt_ptr_t) &meltcdat->dtup_915_syCLASS_SOURCE_UNSAFE_PUT_FIELDS; + /*_._VALTUP___V1009*/ meltfptr[1008] = (melt_ptr_t) &meltcdat->dtup_915_syCLASS_SOURCE_UNSAFE_PUT_FIELDS; meltcdat->dtup_915_syCLASS_SOURCE_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_915_syCLASS_SOURCE_UNSAFE_PUT_FIELDS.nbval = 5; /*inimult dtup_916_syCLASS_SOURCE_UNSAFE_PUT_FIELDS*/ - /*_._VALTUP___V1010*/ - meltfptr[1009] = (melt_ptr_t) &meltcdat->dtup_916_syCLASS_SOURCE_UNSAFE_PUT_FIELDS; + /*_._VALTUP___V1010*/ meltfptr[1009] = (melt_ptr_t) &meltcdat->dtup_916_syCLASS_SOURCE_UNSAFE_PUT_FIELDS; meltcdat->dtup_916_syCLASS_SOURCE_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_916_syCLASS_SOURCE_UNSAFE_PUT_FIELDS.nbval = 4; /*iniobj dsym_917__CLASS_SOURCE_IF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1011*/ meltfptr[1010]) + /*uniqueobj*/ if (!/*_._VALDATA___V1011*/ meltfptr[1010]) /*_._VALDATA___V1011*/ meltfptr[1010] = (melt_ptr_t )&meltcdat->dsym_917__CLASS_SOURCE_IF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_917__CLASS_SOURCE_IF", 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_917__CLASS_SOURCE_IF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20199,19 +17971,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_918__CLASS_SOURCE_IF*/ - /*_._VALSTR___V1012*/ - meltfptr[1011] = (melt_ptr_t) &meltcdat->dstr_918__CLASS_SOURCE_IF; + /*_._VALSTR___V1012*/ meltfptr[1011] = (melt_ptr_t) &meltcdat->dstr_918__CLASS_SOURCE_IF; meltcdat->dstr_918__CLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_918__CLASS_SOURCE_IF.val, "CLASS_SOURCE_IF", sizeof (meltcdat->dstr_918__CLASS_SOURCE_IF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_918__CLASS_SOURCE_IF.val, "CLASS_SOURCE_IF", sizeof (meltcdat->dstr_918__CLASS_SOURCE_IF.val)-1); meltcdat->dstr_918__CLASS_SOURCE_IF.val[15] = (char)0 ; meltcdat->dstr_918__CLASS_SOURCE_IF.slen = 15 ; MELT_LOCATION("warmelt-macro.melt:987:/ iniobj"); /*iniobj dobj_919__CLASS_SOURCE_IF*/ - /*_._VALDATA___V1013*/ - meltfptr[1012] = (melt_ptr_t )&meltcdat->dobj_919__CLASS_SOURCE_IF; + /*_._VALDATA___V1013*/ meltfptr[1012] = (melt_ptr_t )&meltcdat->dobj_919__CLASS_SOURCE_IF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_919__CLASS_SOURCE_IF", 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_919__CLASS_SOURCE_IF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_919__CLASS_SOURCE_IF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -20221,28 +17990,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_920__CLASS_SOURCE_IF*/ - /*_._VALSTR___V1014*/ - meltfptr[1013] = (melt_ptr_t) &meltcdat->dstr_920__CLASS_SOURCE_IF; + /*_._VALSTR___V1014*/ meltfptr[1013] = (melt_ptr_t) &meltcdat->dstr_920__CLASS_SOURCE_IF; meltcdat->dstr_920__CLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_920__CLASS_SOURCE_IF.val, "CLASS_SOURCE_IF", sizeof (meltcdat->dstr_920__CLASS_SOURCE_IF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_920__CLASS_SOURCE_IF.val, "CLASS_SOURCE_IF", sizeof (meltcdat->dstr_920__CLASS_SOURCE_IF.val)-1); meltcdat->dstr_920__CLASS_SOURCE_IF.val[15] = (char)0 ; meltcdat->dstr_920__CLASS_SOURCE_IF.slen = 15 ; /*inimult dtup_921_syCLASS_SOURCE_IF*/ - /*_._VALTUP___V1015*/ - meltfptr[1014] = (melt_ptr_t) &meltcdat->dtup_921_syCLASS_SOURCE_IF; + /*_._VALTUP___V1015*/ meltfptr[1014] = (melt_ptr_t) &meltcdat->dtup_921_syCLASS_SOURCE_IF; meltcdat->dtup_921_syCLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_921_syCLASS_SOURCE_IF.nbval = 4; /*inimult dtup_922_syCLASS_SOURCE_IF*/ - /*_._VALTUP___V1020*/ - meltfptr[1019] = (melt_ptr_t) &meltcdat->dtup_922_syCLASS_SOURCE_IF; + /*_._VALTUP___V1020*/ meltfptr[1019] = (melt_ptr_t) &meltcdat->dtup_922_syCLASS_SOURCE_IF; meltcdat->dtup_922_syCLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_922_syCLASS_SOURCE_IF.nbval = 4; /*iniobj dsym_923__SIF_TEST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1021*/ meltfptr[1020]) + /*uniqueobj*/ if (!/*_._VALDATA___V1021*/ meltfptr[1020]) /*_._VALDATA___V1021*/ meltfptr[1020] = (melt_ptr_t )&meltcdat->dsym_923__SIF_TEST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_923__SIF_TEST", 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_923__SIF_TEST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20252,19 +18016,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_924__SIF_TEST*/ - /*_._VALSTR___V1022*/ - meltfptr[1021] = (melt_ptr_t) &meltcdat->dstr_924__SIF_TEST; + /*_._VALSTR___V1022*/ meltfptr[1021] = (melt_ptr_t) &meltcdat->dstr_924__SIF_TEST; meltcdat->dstr_924__SIF_TEST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_924__SIF_TEST.val, "SIF_TEST", sizeof (meltcdat->dstr_924__SIF_TEST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_924__SIF_TEST.val, "SIF_TEST", sizeof (meltcdat->dstr_924__SIF_TEST.val)-1); meltcdat->dstr_924__SIF_TEST.val[8] = (char)0 ; meltcdat->dstr_924__SIF_TEST.slen = 8 ; /*^iniobj*/ /*iniobj dobj_925__SIF_TEST*/ - /*_._VALDATA___V1016*/ - meltfptr[1015] = (melt_ptr_t )&meltcdat->dobj_925__SIF_TEST; + /*_._VALDATA___V1016*/ meltfptr[1015] = (melt_ptr_t )&meltcdat->dobj_925__SIF_TEST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_925__SIF_TEST", 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_925__SIF_TEST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_925__SIF_TEST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -20274,18 +18035,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_926__SIF_TEST*/ - /*_._VALSTR___V1017*/ - meltfptr[1016] = (melt_ptr_t) &meltcdat->dstr_926__SIF_TEST; + /*_._VALSTR___V1017*/ meltfptr[1016] = (melt_ptr_t) &meltcdat->dstr_926__SIF_TEST; meltcdat->dstr_926__SIF_TEST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_926__SIF_TEST.val, "SIF_TEST", sizeof (meltcdat->dstr_926__SIF_TEST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_926__SIF_TEST.val, "SIF_TEST", sizeof (meltcdat->dstr_926__SIF_TEST.val)-1); meltcdat->dstr_926__SIF_TEST.val[8] = (char)0 ; meltcdat->dstr_926__SIF_TEST.slen = 8 ; /*iniobj dsym_927__SIF_THEN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1023*/ meltfptr[1022]) + /*uniqueobj*/ if (!/*_._VALDATA___V1023*/ meltfptr[1022]) /*_._VALDATA___V1023*/ meltfptr[1022] = (melt_ptr_t )&meltcdat->dsym_927__SIF_THEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_927__SIF_THEN", 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_927__SIF_THEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20295,19 +18053,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_928__SIF_THEN*/ - /*_._VALSTR___V1024*/ - meltfptr[1023] = (melt_ptr_t) &meltcdat->dstr_928__SIF_THEN; + /*_._VALSTR___V1024*/ meltfptr[1023] = (melt_ptr_t) &meltcdat->dstr_928__SIF_THEN; meltcdat->dstr_928__SIF_THEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_928__SIF_THEN.val, "SIF_THEN", sizeof (meltcdat->dstr_928__SIF_THEN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_928__SIF_THEN.val, "SIF_THEN", sizeof (meltcdat->dstr_928__SIF_THEN.val)-1); meltcdat->dstr_928__SIF_THEN.val[8] = (char)0 ; meltcdat->dstr_928__SIF_THEN.slen = 8 ; /*^iniobj*/ /*iniobj dobj_929__SIF_THEN*/ - /*_._VALDATA___V1018*/ - meltfptr[1017] = (melt_ptr_t )&meltcdat->dobj_929__SIF_THEN; + /*_._VALDATA___V1018*/ meltfptr[1017] = (melt_ptr_t )&meltcdat->dobj_929__SIF_THEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_929__SIF_THEN", 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_929__SIF_THEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_929__SIF_THEN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -20317,18 +18072,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_930__SIF_THEN*/ - /*_._VALSTR___V1019*/ - meltfptr[1018] = (melt_ptr_t) &meltcdat->dstr_930__SIF_THEN; + /*_._VALSTR___V1019*/ meltfptr[1018] = (melt_ptr_t) &meltcdat->dstr_930__SIF_THEN; meltcdat->dstr_930__SIF_THEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_930__SIF_THEN.val, "SIF_THEN", sizeof (meltcdat->dstr_930__SIF_THEN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_930__SIF_THEN.val, "SIF_THEN", sizeof (meltcdat->dstr_930__SIF_THEN.val)-1); meltcdat->dstr_930__SIF_THEN.val[8] = (char)0 ; meltcdat->dstr_930__SIF_THEN.slen = 8 ; /*iniobj dsym_931__CLASS_SOURCE_IFELSE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1025*/ meltfptr[1024]) + /*uniqueobj*/ if (!/*_._VALDATA___V1025*/ meltfptr[1024]) /*_._VALDATA___V1025*/ meltfptr[1024] = (melt_ptr_t )&meltcdat->dsym_931__CLASS_SOURCE_IFELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_931__CLASS_SOURCE_IFELSE", 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_931__CLASS_SOURCE_IFELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20338,19 +18090,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_932__CLASS_SOURCE_IFELSE*/ - /*_._VALSTR___V1026*/ - meltfptr[1025] = (melt_ptr_t) &meltcdat->dstr_932__CLASS_SOURCE_IFELSE; + /*_._VALSTR___V1026*/ meltfptr[1025] = (melt_ptr_t) &meltcdat->dstr_932__CLASS_SOURCE_IFELSE; meltcdat->dstr_932__CLASS_SOURCE_IFELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_932__CLASS_SOURCE_IFELSE.val, "CLASS_SOURCE_IFELSE", sizeof (meltcdat->dstr_932__CLASS_SOURCE_IFELSE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_932__CLASS_SOURCE_IFELSE.val, "CLASS_SOURCE_IFELSE", sizeof (meltcdat->dstr_932__CLASS_SOURCE_IFELSE.val)-1); meltcdat->dstr_932__CLASS_SOURCE_IFELSE.val[19] = (char)0 ; meltcdat->dstr_932__CLASS_SOURCE_IFELSE.slen = 19 ; MELT_LOCATION("warmelt-macro.melt:996:/ iniobj"); /*iniobj dobj_933__CLASS_SOURCE_IFELSE*/ - /*_._VALDATA___V1027*/ - meltfptr[1026] = (melt_ptr_t )&meltcdat->dobj_933__CLASS_SOURCE_IFELSE; + /*_._VALDATA___V1027*/ meltfptr[1026] = (melt_ptr_t )&meltcdat->dobj_933__CLASS_SOURCE_IFELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_933__CLASS_SOURCE_IFELSE", 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_933__CLASS_SOURCE_IFELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_933__CLASS_SOURCE_IFELSE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -20360,28 +18109,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_934__CLASS_SOURCE_IFELSE*/ - /*_._VALSTR___V1028*/ - meltfptr[1027] = (melt_ptr_t) &meltcdat->dstr_934__CLASS_SOURCE_IFELSE; + /*_._VALSTR___V1028*/ meltfptr[1027] = (melt_ptr_t) &meltcdat->dstr_934__CLASS_SOURCE_IFELSE; meltcdat->dstr_934__CLASS_SOURCE_IFELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_934__CLASS_SOURCE_IFELSE.val, "CLASS_SOURCE_IFELSE", sizeof (meltcdat->dstr_934__CLASS_SOURCE_IFELSE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_934__CLASS_SOURCE_IFELSE.val, "CLASS_SOURCE_IFELSE", sizeof (meltcdat->dstr_934__CLASS_SOURCE_IFELSE.val)-1); meltcdat->dstr_934__CLASS_SOURCE_IFELSE.val[19] = (char)0 ; meltcdat->dstr_934__CLASS_SOURCE_IFELSE.slen = 19 ; /*inimult dtup_935_syCLASS_SOURCE_IFELSE*/ - /*_._VALTUP___V1029*/ - meltfptr[1028] = (melt_ptr_t) &meltcdat->dtup_935_syCLASS_SOURCE_IFELSE; + /*_._VALTUP___V1029*/ meltfptr[1028] = (melt_ptr_t) &meltcdat->dtup_935_syCLASS_SOURCE_IFELSE; meltcdat->dtup_935_syCLASS_SOURCE_IFELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_935_syCLASS_SOURCE_IFELSE.nbval = 5; /*inimult dtup_936_syCLASS_SOURCE_IFELSE*/ - /*_._VALTUP___V1032*/ - meltfptr[1031] = (melt_ptr_t) &meltcdat->dtup_936_syCLASS_SOURCE_IFELSE; + /*_._VALTUP___V1032*/ meltfptr[1031] = (melt_ptr_t) &meltcdat->dtup_936_syCLASS_SOURCE_IFELSE; meltcdat->dtup_936_syCLASS_SOURCE_IFELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_936_syCLASS_SOURCE_IFELSE.nbval = 5; /*iniobj dsym_937__SIF_ELSE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1033*/ meltfptr[1032]) + /*uniqueobj*/ if (!/*_._VALDATA___V1033*/ meltfptr[1032]) /*_._VALDATA___V1033*/ meltfptr[1032] = (melt_ptr_t )&meltcdat->dsym_937__SIF_ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_937__SIF_ELSE", 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_937__SIF_ELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20391,19 +18135,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_938__SIF_ELSE*/ - /*_._VALSTR___V1034*/ - meltfptr[1033] = (melt_ptr_t) &meltcdat->dstr_938__SIF_ELSE; + /*_._VALSTR___V1034*/ meltfptr[1033] = (melt_ptr_t) &meltcdat->dstr_938__SIF_ELSE; meltcdat->dstr_938__SIF_ELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_938__SIF_ELSE.val, "SIF_ELSE", sizeof (meltcdat->dstr_938__SIF_ELSE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_938__SIF_ELSE.val, "SIF_ELSE", sizeof (meltcdat->dstr_938__SIF_ELSE.val)-1); meltcdat->dstr_938__SIF_ELSE.val[8] = (char)0 ; meltcdat->dstr_938__SIF_ELSE.slen = 8 ; /*^iniobj*/ /*iniobj dobj_939__SIF_ELSE*/ - /*_._VALDATA___V1030*/ - meltfptr[1029] = (melt_ptr_t )&meltcdat->dobj_939__SIF_ELSE; + /*_._VALDATA___V1030*/ meltfptr[1029] = (melt_ptr_t )&meltcdat->dobj_939__SIF_ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_939__SIF_ELSE", 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_939__SIF_ELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_939__SIF_ELSE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -20413,18 +18154,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_940__SIF_ELSE*/ - /*_._VALSTR___V1031*/ - meltfptr[1030] = (melt_ptr_t) &meltcdat->dstr_940__SIF_ELSE; + /*_._VALSTR___V1031*/ meltfptr[1030] = (melt_ptr_t) &meltcdat->dstr_940__SIF_ELSE; meltcdat->dstr_940__SIF_ELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_940__SIF_ELSE.val, "SIF_ELSE", sizeof (meltcdat->dstr_940__SIF_ELSE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_940__SIF_ELSE.val, "SIF_ELSE", sizeof (meltcdat->dstr_940__SIF_ELSE.val)-1); meltcdat->dstr_940__SIF_ELSE.val[8] = (char)0 ; meltcdat->dstr_940__SIF_ELSE.slen = 8 ; /*iniobj dsym_941__CLASS_SOURCE_OR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1035*/ meltfptr[1034]) + /*uniqueobj*/ if (!/*_._VALDATA___V1035*/ meltfptr[1034]) /*_._VALDATA___V1035*/ meltfptr[1034] = (melt_ptr_t )&meltcdat->dsym_941__CLASS_SOURCE_OR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_941__CLASS_SOURCE_OR", 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_941__CLASS_SOURCE_OR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20434,19 +18172,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_942__CLASS_SOURCE_OR*/ - /*_._VALSTR___V1036*/ - meltfptr[1035] = (melt_ptr_t) &meltcdat->dstr_942__CLASS_SOURCE_OR; + /*_._VALSTR___V1036*/ meltfptr[1035] = (melt_ptr_t) &meltcdat->dstr_942__CLASS_SOURCE_OR; meltcdat->dstr_942__CLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_942__CLASS_SOURCE_OR.val, "CLASS_SOURCE_OR", sizeof (meltcdat->dstr_942__CLASS_SOURCE_OR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_942__CLASS_SOURCE_OR.val, "CLASS_SOURCE_OR", sizeof (meltcdat->dstr_942__CLASS_SOURCE_OR.val)-1); meltcdat->dstr_942__CLASS_SOURCE_OR.val[15] = (char)0 ; meltcdat->dstr_942__CLASS_SOURCE_OR.slen = 15 ; MELT_LOCATION("warmelt-macro.melt:1007:/ iniobj"); /*iniobj dobj_943__CLASS_SOURCE_OR*/ - /*_._VALDATA___V1037*/ - meltfptr[1036] = (melt_ptr_t )&meltcdat->dobj_943__CLASS_SOURCE_OR; + /*_._VALDATA___V1037*/ meltfptr[1036] = (melt_ptr_t )&meltcdat->dobj_943__CLASS_SOURCE_OR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_943__CLASS_SOURCE_OR", 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_943__CLASS_SOURCE_OR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_943__CLASS_SOURCE_OR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -20456,28 +18191,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_944__CLASS_SOURCE_OR*/ - /*_._VALSTR___V1038*/ - meltfptr[1037] = (melt_ptr_t) &meltcdat->dstr_944__CLASS_SOURCE_OR; + /*_._VALSTR___V1038*/ meltfptr[1037] = (melt_ptr_t) &meltcdat->dstr_944__CLASS_SOURCE_OR; meltcdat->dstr_944__CLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_944__CLASS_SOURCE_OR.val, "CLASS_SOURCE_OR", sizeof (meltcdat->dstr_944__CLASS_SOURCE_OR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_944__CLASS_SOURCE_OR.val, "CLASS_SOURCE_OR", sizeof (meltcdat->dstr_944__CLASS_SOURCE_OR.val)-1); meltcdat->dstr_944__CLASS_SOURCE_OR.val[15] = (char)0 ; meltcdat->dstr_944__CLASS_SOURCE_OR.slen = 15 ; /*inimult dtup_945_syCLASS_SOURCE_OR*/ - /*_._VALTUP___V1039*/ - meltfptr[1038] = (melt_ptr_t) &meltcdat->dtup_945_syCLASS_SOURCE_OR; + /*_._VALTUP___V1039*/ meltfptr[1038] = (melt_ptr_t) &meltcdat->dtup_945_syCLASS_SOURCE_OR; meltcdat->dtup_945_syCLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_945_syCLASS_SOURCE_OR.nbval = 4; /*inimult dtup_946_syCLASS_SOURCE_OR*/ - /*_._VALTUP___V1042*/ - meltfptr[1041] = (melt_ptr_t) &meltcdat->dtup_946_syCLASS_SOURCE_OR; + /*_._VALTUP___V1042*/ meltfptr[1041] = (melt_ptr_t) &meltcdat->dtup_946_syCLASS_SOURCE_OR; meltcdat->dtup_946_syCLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_946_syCLASS_SOURCE_OR.nbval = 3; /*iniobj dsym_947__SOR_DISJ*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1043*/ meltfptr[1042]) + /*uniqueobj*/ if (!/*_._VALDATA___V1043*/ meltfptr[1042]) /*_._VALDATA___V1043*/ meltfptr[1042] = (melt_ptr_t )&meltcdat->dsym_947__SOR_DISJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_947__SOR_DISJ", 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_947__SOR_DISJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20487,19 +18217,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_948__SOR_DISJ*/ - /*_._VALSTR___V1044*/ - meltfptr[1043] = (melt_ptr_t) &meltcdat->dstr_948__SOR_DISJ; + /*_._VALSTR___V1044*/ meltfptr[1043] = (melt_ptr_t) &meltcdat->dstr_948__SOR_DISJ; meltcdat->dstr_948__SOR_DISJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_948__SOR_DISJ.val, "SOR_DISJ", sizeof (meltcdat->dstr_948__SOR_DISJ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_948__SOR_DISJ.val, "SOR_DISJ", sizeof (meltcdat->dstr_948__SOR_DISJ.val)-1); meltcdat->dstr_948__SOR_DISJ.val[8] = (char)0 ; meltcdat->dstr_948__SOR_DISJ.slen = 8 ; /*^iniobj*/ /*iniobj dobj_949__SOR_DISJ*/ - /*_._VALDATA___V1040*/ - meltfptr[1039] = (melt_ptr_t )&meltcdat->dobj_949__SOR_DISJ; + /*_._VALDATA___V1040*/ meltfptr[1039] = (melt_ptr_t )&meltcdat->dobj_949__SOR_DISJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_949__SOR_DISJ", 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_949__SOR_DISJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_949__SOR_DISJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -20509,18 +18236,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_950__SOR_DISJ*/ - /*_._VALSTR___V1041*/ - meltfptr[1040] = (melt_ptr_t) &meltcdat->dstr_950__SOR_DISJ; + /*_._VALSTR___V1041*/ meltfptr[1040] = (melt_ptr_t) &meltcdat->dstr_950__SOR_DISJ; meltcdat->dstr_950__SOR_DISJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_950__SOR_DISJ.val, "SOR_DISJ", sizeof (meltcdat->dstr_950__SOR_DISJ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_950__SOR_DISJ.val, "SOR_DISJ", sizeof (meltcdat->dstr_950__SOR_DISJ.val)-1); meltcdat->dstr_950__SOR_DISJ.val[8] = (char)0 ; meltcdat->dstr_950__SOR_DISJ.slen = 8 ; /*iniobj dsym_951__CLASS_SOURCE_CPPIF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1045*/ meltfptr[1044]) + /*uniqueobj*/ if (!/*_._VALDATA___V1045*/ meltfptr[1044]) /*_._VALDATA___V1045*/ meltfptr[1044] = (melt_ptr_t )&meltcdat->dsym_951__CLASS_SOURCE_CPPIF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_951__CLASS_SOURCE_CPPIF", 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_951__CLASS_SOURCE_CPPIF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20530,19 +18254,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_952__CLASS_SOURCE_CPPIF*/ - /*_._VALSTR___V1046*/ - meltfptr[1045] = (melt_ptr_t) &meltcdat->dstr_952__CLASS_SOURCE_CPPIF; + /*_._VALSTR___V1046*/ meltfptr[1045] = (melt_ptr_t) &meltcdat->dstr_952__CLASS_SOURCE_CPPIF; meltcdat->dstr_952__CLASS_SOURCE_CPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_952__CLASS_SOURCE_CPPIF.val, "CLASS_SOURCE_CPPIF", sizeof (meltcdat->dstr_952__CLASS_SOURCE_CPPIF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_952__CLASS_SOURCE_CPPIF.val, "CLASS_SOURCE_CPPIF", sizeof (meltcdat->dstr_952__CLASS_SOURCE_CPPIF.val)-1); meltcdat->dstr_952__CLASS_SOURCE_CPPIF.val[18] = (char)0 ; meltcdat->dstr_952__CLASS_SOURCE_CPPIF.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:1019:/ iniobj"); /*iniobj dobj_953__CLASS_SOURCE_CPPIF*/ - /*_._VALDATA___V1047*/ - meltfptr[1046] = (melt_ptr_t )&meltcdat->dobj_953__CLASS_SOURCE_CPPIF; + /*_._VALDATA___V1047*/ meltfptr[1046] = (melt_ptr_t )&meltcdat->dobj_953__CLASS_SOURCE_CPPIF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_953__CLASS_SOURCE_CPPIF", 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_953__CLASS_SOURCE_CPPIF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_953__CLASS_SOURCE_CPPIF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -20552,28 +18273,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_954__CLASS_SOURCE_CPPIF*/ - /*_._VALSTR___V1048*/ - meltfptr[1047] = (melt_ptr_t) &meltcdat->dstr_954__CLASS_SOURCE_CPPIF; + /*_._VALSTR___V1048*/ meltfptr[1047] = (melt_ptr_t) &meltcdat->dstr_954__CLASS_SOURCE_CPPIF; meltcdat->dstr_954__CLASS_SOURCE_CPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_954__CLASS_SOURCE_CPPIF.val, "CLASS_SOURCE_CPPIF", sizeof (meltcdat->dstr_954__CLASS_SOURCE_CPPIF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_954__CLASS_SOURCE_CPPIF.val, "CLASS_SOURCE_CPPIF", sizeof (meltcdat->dstr_954__CLASS_SOURCE_CPPIF.val)-1); meltcdat->dstr_954__CLASS_SOURCE_CPPIF.val[18] = (char)0 ; meltcdat->dstr_954__CLASS_SOURCE_CPPIF.slen = 18 ; /*inimult dtup_955_syCLASS_SOURCE_CPPIF*/ - /*_._VALTUP___V1049*/ - meltfptr[1048] = (melt_ptr_t) &meltcdat->dtup_955_syCLASS_SOURCE_CPPIF; + /*_._VALTUP___V1049*/ meltfptr[1048] = (melt_ptr_t) &meltcdat->dtup_955_syCLASS_SOURCE_CPPIF; meltcdat->dtup_955_syCLASS_SOURCE_CPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_955_syCLASS_SOURCE_CPPIF.nbval = 4; /*inimult dtup_956_syCLASS_SOURCE_CPPIF*/ - /*_._VALTUP___V1056*/ - meltfptr[1055] = (melt_ptr_t) &meltcdat->dtup_956_syCLASS_SOURCE_CPPIF; + /*_._VALTUP___V1056*/ meltfptr[1055] = (melt_ptr_t) &meltcdat->dtup_956_syCLASS_SOURCE_CPPIF; meltcdat->dtup_956_syCLASS_SOURCE_CPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_956_syCLASS_SOURCE_CPPIF.nbval = 5; /*iniobj dsym_957__SIFP_COND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1057*/ meltfptr[1056]) + /*uniqueobj*/ if (!/*_._VALDATA___V1057*/ meltfptr[1056]) /*_._VALDATA___V1057*/ meltfptr[1056] = (melt_ptr_t )&meltcdat->dsym_957__SIFP_COND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_957__SIFP_COND", 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_957__SIFP_COND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20583,19 +18299,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_958__SIFP_COND*/ - /*_._VALSTR___V1058*/ - meltfptr[1057] = (melt_ptr_t) &meltcdat->dstr_958__SIFP_COND; + /*_._VALSTR___V1058*/ meltfptr[1057] = (melt_ptr_t) &meltcdat->dstr_958__SIFP_COND; meltcdat->dstr_958__SIFP_COND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_958__SIFP_COND.val, "SIFP_COND", sizeof (meltcdat->dstr_958__SIFP_COND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_958__SIFP_COND.val, "SIFP_COND", sizeof (meltcdat->dstr_958__SIFP_COND.val)-1); meltcdat->dstr_958__SIFP_COND.val[9] = (char)0 ; meltcdat->dstr_958__SIFP_COND.slen = 9 ; /*^iniobj*/ /*iniobj dobj_959__SIFP_COND*/ - /*_._VALDATA___V1050*/ - meltfptr[1049] = (melt_ptr_t )&meltcdat->dobj_959__SIFP_COND; + /*_._VALDATA___V1050*/ meltfptr[1049] = (melt_ptr_t )&meltcdat->dobj_959__SIFP_COND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_959__SIFP_COND", 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_959__SIFP_COND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_959__SIFP_COND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -20605,18 +18318,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_960__SIFP_COND*/ - /*_._VALSTR___V1051*/ - meltfptr[1050] = (melt_ptr_t) &meltcdat->dstr_960__SIFP_COND; + /*_._VALSTR___V1051*/ meltfptr[1050] = (melt_ptr_t) &meltcdat->dstr_960__SIFP_COND; meltcdat->dstr_960__SIFP_COND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_960__SIFP_COND.val, "SIFP_COND", sizeof (meltcdat->dstr_960__SIFP_COND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_960__SIFP_COND.val, "SIFP_COND", sizeof (meltcdat->dstr_960__SIFP_COND.val)-1); meltcdat->dstr_960__SIFP_COND.val[9] = (char)0 ; meltcdat->dstr_960__SIFP_COND.slen = 9 ; /*iniobj dsym_961__SIFP_THEN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1059*/ meltfptr[1058]) + /*uniqueobj*/ if (!/*_._VALDATA___V1059*/ meltfptr[1058]) /*_._VALDATA___V1059*/ meltfptr[1058] = (melt_ptr_t )&meltcdat->dsym_961__SIFP_THEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_961__SIFP_THEN", 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_961__SIFP_THEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20626,19 +18336,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_962__SIFP_THEN*/ - /*_._VALSTR___V1060*/ - meltfptr[1059] = (melt_ptr_t) &meltcdat->dstr_962__SIFP_THEN; + /*_._VALSTR___V1060*/ meltfptr[1059] = (melt_ptr_t) &meltcdat->dstr_962__SIFP_THEN; meltcdat->dstr_962__SIFP_THEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_962__SIFP_THEN.val, "SIFP_THEN", sizeof (meltcdat->dstr_962__SIFP_THEN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_962__SIFP_THEN.val, "SIFP_THEN", sizeof (meltcdat->dstr_962__SIFP_THEN.val)-1); meltcdat->dstr_962__SIFP_THEN.val[9] = (char)0 ; meltcdat->dstr_962__SIFP_THEN.slen = 9 ; /*^iniobj*/ /*iniobj dobj_963__SIFP_THEN*/ - /*_._VALDATA___V1052*/ - meltfptr[1051] = (melt_ptr_t )&meltcdat->dobj_963__SIFP_THEN; + /*_._VALDATA___V1052*/ meltfptr[1051] = (melt_ptr_t )&meltcdat->dobj_963__SIFP_THEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_963__SIFP_THEN", 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_963__SIFP_THEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_963__SIFP_THEN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -20648,18 +18355,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_964__SIFP_THEN*/ - /*_._VALSTR___V1053*/ - meltfptr[1052] = (melt_ptr_t) &meltcdat->dstr_964__SIFP_THEN; + /*_._VALSTR___V1053*/ meltfptr[1052] = (melt_ptr_t) &meltcdat->dstr_964__SIFP_THEN; meltcdat->dstr_964__SIFP_THEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_964__SIFP_THEN.val, "SIFP_THEN", sizeof (meltcdat->dstr_964__SIFP_THEN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_964__SIFP_THEN.val, "SIFP_THEN", sizeof (meltcdat->dstr_964__SIFP_THEN.val)-1); meltcdat->dstr_964__SIFP_THEN.val[9] = (char)0 ; meltcdat->dstr_964__SIFP_THEN.slen = 9 ; /*iniobj dsym_965__SIFP_ELSE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1061*/ meltfptr[1060]) + /*uniqueobj*/ if (!/*_._VALDATA___V1061*/ meltfptr[1060]) /*_._VALDATA___V1061*/ meltfptr[1060] = (melt_ptr_t )&meltcdat->dsym_965__SIFP_ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_965__SIFP_ELSE", 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_965__SIFP_ELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20669,19 +18373,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_966__SIFP_ELSE*/ - /*_._VALSTR___V1062*/ - meltfptr[1061] = (melt_ptr_t) &meltcdat->dstr_966__SIFP_ELSE; + /*_._VALSTR___V1062*/ meltfptr[1061] = (melt_ptr_t) &meltcdat->dstr_966__SIFP_ELSE; meltcdat->dstr_966__SIFP_ELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_966__SIFP_ELSE.val, "SIFP_ELSE", sizeof (meltcdat->dstr_966__SIFP_ELSE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_966__SIFP_ELSE.val, "SIFP_ELSE", sizeof (meltcdat->dstr_966__SIFP_ELSE.val)-1); meltcdat->dstr_966__SIFP_ELSE.val[9] = (char)0 ; meltcdat->dstr_966__SIFP_ELSE.slen = 9 ; /*^iniobj*/ /*iniobj dobj_967__SIFP_ELSE*/ - /*_._VALDATA___V1054*/ - meltfptr[1053] = (melt_ptr_t )&meltcdat->dobj_967__SIFP_ELSE; + /*_._VALDATA___V1054*/ meltfptr[1053] = (melt_ptr_t )&meltcdat->dobj_967__SIFP_ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_967__SIFP_ELSE", 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_967__SIFP_ELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_967__SIFP_ELSE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -20691,18 +18392,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_968__SIFP_ELSE*/ - /*_._VALSTR___V1055*/ - meltfptr[1054] = (melt_ptr_t) &meltcdat->dstr_968__SIFP_ELSE; + /*_._VALSTR___V1055*/ meltfptr[1054] = (melt_ptr_t) &meltcdat->dstr_968__SIFP_ELSE; meltcdat->dstr_968__SIFP_ELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_968__SIFP_ELSE.val, "SIFP_ELSE", sizeof (meltcdat->dstr_968__SIFP_ELSE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_968__SIFP_ELSE.val, "SIFP_ELSE", sizeof (meltcdat->dstr_968__SIFP_ELSE.val)-1); meltcdat->dstr_968__SIFP_ELSE.val[9] = (char)0 ; meltcdat->dstr_968__SIFP_ELSE.slen = 9 ; /*iniobj dsym_969__CLASS_SOURCE_MATCH*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1063*/ meltfptr[1062]) + /*uniqueobj*/ if (!/*_._VALDATA___V1063*/ meltfptr[1062]) /*_._VALDATA___V1063*/ meltfptr[1062] = (melt_ptr_t )&meltcdat->dsym_969__CLASS_SOURCE_MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_969__CLASS_SOURCE_MATCH", 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_969__CLASS_SOURCE_MATCH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20712,19 +18410,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_970__CLASS_SOURCE_MATCH*/ - /*_._VALSTR___V1064*/ - meltfptr[1063] = (melt_ptr_t) &meltcdat->dstr_970__CLASS_SOURCE_MATCH; + /*_._VALSTR___V1064*/ meltfptr[1063] = (melt_ptr_t) &meltcdat->dstr_970__CLASS_SOURCE_MATCH; meltcdat->dstr_970__CLASS_SOURCE_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_970__CLASS_SOURCE_MATCH.val, "CLASS_SOURCE_MATCH", sizeof (meltcdat->dstr_970__CLASS_SOURCE_MATCH.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_970__CLASS_SOURCE_MATCH.val, "CLASS_SOURCE_MATCH", sizeof (meltcdat->dstr_970__CLASS_SOURCE_MATCH.val)-1); meltcdat->dstr_970__CLASS_SOURCE_MATCH.val[18] = (char)0 ; meltcdat->dstr_970__CLASS_SOURCE_MATCH.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:1030:/ iniobj"); /*iniobj dobj_971__CLASS_SOURCE_MATCH*/ - /*_._VALDATA___V1065*/ - meltfptr[1064] = (melt_ptr_t )&meltcdat->dobj_971__CLASS_SOURCE_MATCH; + /*_._VALDATA___V1065*/ meltfptr[1064] = (melt_ptr_t )&meltcdat->dobj_971__CLASS_SOURCE_MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_971__CLASS_SOURCE_MATCH", 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_971__CLASS_SOURCE_MATCH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_971__CLASS_SOURCE_MATCH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -20734,28 +18429,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_972__CLASS_SOURCE_MATCH*/ - /*_._VALSTR___V1066*/ - meltfptr[1065] = (melt_ptr_t) &meltcdat->dstr_972__CLASS_SOURCE_MATCH; + /*_._VALSTR___V1066*/ meltfptr[1065] = (melt_ptr_t) &meltcdat->dstr_972__CLASS_SOURCE_MATCH; meltcdat->dstr_972__CLASS_SOURCE_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_972__CLASS_SOURCE_MATCH.val, "CLASS_SOURCE_MATCH", sizeof (meltcdat->dstr_972__CLASS_SOURCE_MATCH.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_972__CLASS_SOURCE_MATCH.val, "CLASS_SOURCE_MATCH", sizeof (meltcdat->dstr_972__CLASS_SOURCE_MATCH.val)-1); meltcdat->dstr_972__CLASS_SOURCE_MATCH.val[18] = (char)0 ; meltcdat->dstr_972__CLASS_SOURCE_MATCH.slen = 18 ; /*inimult dtup_973_syCLASS_SOURCE_MATCH*/ - /*_._VALTUP___V1067*/ - meltfptr[1066] = (melt_ptr_t) &meltcdat->dtup_973_syCLASS_SOURCE_MATCH; + /*_._VALTUP___V1067*/ meltfptr[1066] = (melt_ptr_t) &meltcdat->dtup_973_syCLASS_SOURCE_MATCH; meltcdat->dtup_973_syCLASS_SOURCE_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_973_syCLASS_SOURCE_MATCH.nbval = 4; /*inimult dtup_974_syCLASS_SOURCE_MATCH*/ - /*_._VALTUP___V1072*/ - meltfptr[1071] = (melt_ptr_t) &meltcdat->dtup_974_syCLASS_SOURCE_MATCH; + /*_._VALTUP___V1072*/ meltfptr[1071] = (melt_ptr_t) &meltcdat->dtup_974_syCLASS_SOURCE_MATCH; meltcdat->dtup_974_syCLASS_SOURCE_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_974_syCLASS_SOURCE_MATCH.nbval = 4; /*iniobj dsym_975__SMAT_MATCHEDX*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1073*/ meltfptr[1072]) + /*uniqueobj*/ if (!/*_._VALDATA___V1073*/ meltfptr[1072]) /*_._VALDATA___V1073*/ meltfptr[1072] = (melt_ptr_t )&meltcdat->dsym_975__SMAT_MATCHEDX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_975__SMAT_MATCHEDX", 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_975__SMAT_MATCHEDX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20765,19 +18455,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_976__SMAT_MATCHEDX*/ - /*_._VALSTR___V1074*/ - meltfptr[1073] = (melt_ptr_t) &meltcdat->dstr_976__SMAT_MATCHEDX; + /*_._VALSTR___V1074*/ meltfptr[1073] = (melt_ptr_t) &meltcdat->dstr_976__SMAT_MATCHEDX; meltcdat->dstr_976__SMAT_MATCHEDX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_976__SMAT_MATCHEDX.val, "SMAT_MATCHEDX", sizeof (meltcdat->dstr_976__SMAT_MATCHEDX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_976__SMAT_MATCHEDX.val, "SMAT_MATCHEDX", sizeof (meltcdat->dstr_976__SMAT_MATCHEDX.val)-1); meltcdat->dstr_976__SMAT_MATCHEDX.val[13] = (char)0 ; meltcdat->dstr_976__SMAT_MATCHEDX.slen = 13 ; /*^iniobj*/ /*iniobj dobj_977__SMAT_MATCHEDX*/ - /*_._VALDATA___V1068*/ - meltfptr[1067] = (melt_ptr_t )&meltcdat->dobj_977__SMAT_MATCHEDX; + /*_._VALDATA___V1068*/ meltfptr[1067] = (melt_ptr_t )&meltcdat->dobj_977__SMAT_MATCHEDX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_977__SMAT_MATCHEDX", 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_977__SMAT_MATCHEDX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_977__SMAT_MATCHEDX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -20787,18 +18474,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_978__SMAT_MATCHEDX*/ - /*_._VALSTR___V1069*/ - meltfptr[1068] = (melt_ptr_t) &meltcdat->dstr_978__SMAT_MATCHEDX; + /*_._VALSTR___V1069*/ meltfptr[1068] = (melt_ptr_t) &meltcdat->dstr_978__SMAT_MATCHEDX; meltcdat->dstr_978__SMAT_MATCHEDX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_978__SMAT_MATCHEDX.val, "SMAT_MATCHEDX", sizeof (meltcdat->dstr_978__SMAT_MATCHEDX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_978__SMAT_MATCHEDX.val, "SMAT_MATCHEDX", sizeof (meltcdat->dstr_978__SMAT_MATCHEDX.val)-1); meltcdat->dstr_978__SMAT_MATCHEDX.val[13] = (char)0 ; meltcdat->dstr_978__SMAT_MATCHEDX.slen = 13 ; /*iniobj dsym_979__SMAT_CASES*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1075*/ meltfptr[1074]) + /*uniqueobj*/ if (!/*_._VALDATA___V1075*/ meltfptr[1074]) /*_._VALDATA___V1075*/ meltfptr[1074] = (melt_ptr_t )&meltcdat->dsym_979__SMAT_CASES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_979__SMAT_CASES", 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_979__SMAT_CASES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20808,19 +18492,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_980__SMAT_CASES*/ - /*_._VALSTR___V1076*/ - meltfptr[1075] = (melt_ptr_t) &meltcdat->dstr_980__SMAT_CASES; + /*_._VALSTR___V1076*/ meltfptr[1075] = (melt_ptr_t) &meltcdat->dstr_980__SMAT_CASES; meltcdat->dstr_980__SMAT_CASES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_980__SMAT_CASES.val, "SMAT_CASES", sizeof (meltcdat->dstr_980__SMAT_CASES.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_980__SMAT_CASES.val, "SMAT_CASES", sizeof (meltcdat->dstr_980__SMAT_CASES.val)-1); meltcdat->dstr_980__SMAT_CASES.val[10] = (char)0 ; meltcdat->dstr_980__SMAT_CASES.slen = 10 ; /*^iniobj*/ /*iniobj dobj_981__SMAT_CASES*/ - /*_._VALDATA___V1070*/ - meltfptr[1069] = (melt_ptr_t )&meltcdat->dobj_981__SMAT_CASES; + /*_._VALDATA___V1070*/ meltfptr[1069] = (melt_ptr_t )&meltcdat->dobj_981__SMAT_CASES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_981__SMAT_CASES", 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_981__SMAT_CASES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_981__SMAT_CASES.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -20830,18 +18511,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_982__SMAT_CASES*/ - /*_._VALSTR___V1071*/ - meltfptr[1070] = (melt_ptr_t) &meltcdat->dstr_982__SMAT_CASES; + /*_._VALSTR___V1071*/ meltfptr[1070] = (melt_ptr_t) &meltcdat->dstr_982__SMAT_CASES; meltcdat->dstr_982__SMAT_CASES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_982__SMAT_CASES.val, "SMAT_CASES", sizeof (meltcdat->dstr_982__SMAT_CASES.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_982__SMAT_CASES.val, "SMAT_CASES", sizeof (meltcdat->dstr_982__SMAT_CASES.val)-1); meltcdat->dstr_982__SMAT_CASES.val[10] = (char)0 ; meltcdat->dstr_982__SMAT_CASES.slen = 10 ; /*iniobj dsym_983__CLASS_SOURCE_MATCHALT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1077*/ meltfptr[1076]) + /*uniqueobj*/ if (!/*_._VALDATA___V1077*/ meltfptr[1076]) /*_._VALDATA___V1077*/ meltfptr[1076] = (melt_ptr_t )&meltcdat->dsym_983__CLASS_SOURCE_MATCHALT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_983__CLASS_SOURCE_MATCHALT", 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_983__CLASS_SOURCE_MATCHALT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20851,19 +18529,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_984__CLASS_SOURCE_MATCHALT*/ - /*_._VALSTR___V1078*/ - meltfptr[1077] = (melt_ptr_t) &meltcdat->dstr_984__CLASS_SOURCE_MATCHALT; + /*_._VALSTR___V1078*/ meltfptr[1077] = (melt_ptr_t) &meltcdat->dstr_984__CLASS_SOURCE_MATCHALT; meltcdat->dstr_984__CLASS_SOURCE_MATCHALT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_984__CLASS_SOURCE_MATCHALT.val, "CLASS_SOURCE_MATCHALT", sizeof (meltcdat->dstr_984__CLASS_SOURCE_MATCHALT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_984__CLASS_SOURCE_MATCHALT.val, "CLASS_SOURCE_MATCHALT", sizeof (meltcdat->dstr_984__CLASS_SOURCE_MATCHALT.val)-1); meltcdat->dstr_984__CLASS_SOURCE_MATCHALT.val[21] = (char)0 ; meltcdat->dstr_984__CLASS_SOURCE_MATCHALT.slen = 21 ; MELT_LOCATION("warmelt-macro.melt:1046:/ iniobj"); /*iniobj dobj_985__CLASS_SOURCE_MATCHALT*/ - /*_._VALDATA___V1079*/ - meltfptr[1078] = (melt_ptr_t )&meltcdat->dobj_985__CLASS_SOURCE_MATCHALT; + /*_._VALDATA___V1079*/ meltfptr[1078] = (melt_ptr_t )&meltcdat->dobj_985__CLASS_SOURCE_MATCHALT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_985__CLASS_SOURCE_MATCHALT", 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_985__CLASS_SOURCE_MATCHALT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_985__CLASS_SOURCE_MATCHALT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -20873,28 +18548,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_986__CLASS_SOURCE_MATCHALT*/ - /*_._VALSTR___V1080*/ - meltfptr[1079] = (melt_ptr_t) &meltcdat->dstr_986__CLASS_SOURCE_MATCHALT; + /*_._VALSTR___V1080*/ meltfptr[1079] = (melt_ptr_t) &meltcdat->dstr_986__CLASS_SOURCE_MATCHALT; meltcdat->dstr_986__CLASS_SOURCE_MATCHALT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_986__CLASS_SOURCE_MATCHALT.val, "CLASS_SOURCE_MATCHALT", sizeof (meltcdat->dstr_986__CLASS_SOURCE_MATCHALT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_986__CLASS_SOURCE_MATCHALT.val, "CLASS_SOURCE_MATCHALT", sizeof (meltcdat->dstr_986__CLASS_SOURCE_MATCHALT.val)-1); meltcdat->dstr_986__CLASS_SOURCE_MATCHALT.val[21] = (char)0 ; meltcdat->dstr_986__CLASS_SOURCE_MATCHALT.slen = 21 ; /*inimult dtup_987_syCLASS_SOURCE_MATCHALT*/ - /*_._VALTUP___V1081*/ - meltfptr[1080] = (melt_ptr_t) &meltcdat->dtup_987_syCLASS_SOURCE_MATCHALT; + /*_._VALTUP___V1081*/ meltfptr[1080] = (melt_ptr_t) &meltcdat->dtup_987_syCLASS_SOURCE_MATCHALT; meltcdat->dtup_987_syCLASS_SOURCE_MATCHALT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_987_syCLASS_SOURCE_MATCHALT.nbval = 5; /*inimult dtup_988_syCLASS_SOURCE_MATCHALT*/ - /*_._VALTUP___V1082*/ - meltfptr[1081] = (melt_ptr_t) &meltcdat->dtup_988_syCLASS_SOURCE_MATCHALT; + /*_._VALTUP___V1082*/ meltfptr[1081] = (melt_ptr_t) &meltcdat->dtup_988_syCLASS_SOURCE_MATCHALT; meltcdat->dtup_988_syCLASS_SOURCE_MATCHALT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_988_syCLASS_SOURCE_MATCHALT.nbval = 4; /*iniobj dsym_989__CLASS_SOURCE_MATCH_CASE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1083*/ meltfptr[1082]) + /*uniqueobj*/ if (!/*_._VALDATA___V1083*/ meltfptr[1082]) /*_._VALDATA___V1083*/ meltfptr[1082] = (melt_ptr_t )&meltcdat->dsym_989__CLASS_SOURCE_MATCH_CASE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_989__CLASS_SOURCE_MATCH_CASE", 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_989__CLASS_SOURCE_MATCH_CASE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20904,19 +18574,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_990__CLASS_SOURCE_MATCH_CASE*/ - /*_._VALSTR___V1084*/ - meltfptr[1083] = (melt_ptr_t) &meltcdat->dstr_990__CLASS_SOURCE_MATCH_CASE; + /*_._VALSTR___V1084*/ meltfptr[1083] = (melt_ptr_t) &meltcdat->dstr_990__CLASS_SOURCE_MATCH_CASE; meltcdat->dstr_990__CLASS_SOURCE_MATCH_CASE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_990__CLASS_SOURCE_MATCH_CASE.val, "CLASS_SOURCE_MATCH_CASE", sizeof (meltcdat->dstr_990__CLASS_SOURCE_MATCH_CASE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_990__CLASS_SOURCE_MATCH_CASE.val, "CLASS_SOURCE_MATCH_CASE", sizeof (meltcdat->dstr_990__CLASS_SOURCE_MATCH_CASE.val)-1); meltcdat->dstr_990__CLASS_SOURCE_MATCH_CASE.val[23] = (char)0 ; meltcdat->dstr_990__CLASS_SOURCE_MATCH_CASE.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:1056:/ iniobj"); /*iniobj dobj_991__CLASS_SOURCE_MATCH_CASE*/ - /*_._VALDATA___V1085*/ - meltfptr[1084] = (melt_ptr_t )&meltcdat->dobj_991__CLASS_SOURCE_MATCH_CASE; + /*_._VALDATA___V1085*/ meltfptr[1084] = (melt_ptr_t )&meltcdat->dobj_991__CLASS_SOURCE_MATCH_CASE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_991__CLASS_SOURCE_MATCH_CASE", 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_991__CLASS_SOURCE_MATCH_CASE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_991__CLASS_SOURCE_MATCH_CASE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -20926,28 +18593,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_992__CLASS_SOURCE_MATCH_CASE*/ - /*_._VALSTR___V1086*/ - meltfptr[1085] = (melt_ptr_t) &meltcdat->dstr_992__CLASS_SOURCE_MATCH_CASE; + /*_._VALSTR___V1086*/ meltfptr[1085] = (melt_ptr_t) &meltcdat->dstr_992__CLASS_SOURCE_MATCH_CASE; meltcdat->dstr_992__CLASS_SOURCE_MATCH_CASE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_992__CLASS_SOURCE_MATCH_CASE.val, "CLASS_SOURCE_MATCH_CASE", sizeof (meltcdat->dstr_992__CLASS_SOURCE_MATCH_CASE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_992__CLASS_SOURCE_MATCH_CASE.val, "CLASS_SOURCE_MATCH_CASE", sizeof (meltcdat->dstr_992__CLASS_SOURCE_MATCH_CASE.val)-1); meltcdat->dstr_992__CLASS_SOURCE_MATCH_CASE.val[23] = (char)0 ; meltcdat->dstr_992__CLASS_SOURCE_MATCH_CASE.slen = 23 ; /*inimult dtup_993_syCLASS_SOURCE_MATCH_CASE*/ - /*_._VALTUP___V1087*/ - meltfptr[1086] = (melt_ptr_t) &meltcdat->dtup_993_syCLASS_SOURCE_MATCH_CASE; + /*_._VALTUP___V1087*/ meltfptr[1086] = (melt_ptr_t) &meltcdat->dtup_993_syCLASS_SOURCE_MATCH_CASE; meltcdat->dtup_993_syCLASS_SOURCE_MATCH_CASE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_993_syCLASS_SOURCE_MATCH_CASE.nbval = 4; /*inimult dtup_994_syCLASS_SOURCE_MATCH_CASE*/ - /*_._VALTUP___V1092*/ - meltfptr[1091] = (melt_ptr_t) &meltcdat->dtup_994_syCLASS_SOURCE_MATCH_CASE; + /*_._VALTUP___V1092*/ meltfptr[1091] = (melt_ptr_t) &meltcdat->dtup_994_syCLASS_SOURCE_MATCH_CASE; meltcdat->dtup_994_syCLASS_SOURCE_MATCH_CASE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_994_syCLASS_SOURCE_MATCH_CASE.nbval = 4; /*iniobj dsym_995__SCAM_PATT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1093*/ meltfptr[1092]) + /*uniqueobj*/ if (!/*_._VALDATA___V1093*/ meltfptr[1092]) /*_._VALDATA___V1093*/ meltfptr[1092] = (melt_ptr_t )&meltcdat->dsym_995__SCAM_PATT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_995__SCAM_PATT", 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_995__SCAM_PATT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -20957,19 +18619,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_996__SCAM_PATT*/ - /*_._VALSTR___V1094*/ - meltfptr[1093] = (melt_ptr_t) &meltcdat->dstr_996__SCAM_PATT; + /*_._VALSTR___V1094*/ meltfptr[1093] = (melt_ptr_t) &meltcdat->dstr_996__SCAM_PATT; meltcdat->dstr_996__SCAM_PATT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_996__SCAM_PATT.val, "SCAM_PATT", sizeof (meltcdat->dstr_996__SCAM_PATT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_996__SCAM_PATT.val, "SCAM_PATT", sizeof (meltcdat->dstr_996__SCAM_PATT.val)-1); meltcdat->dstr_996__SCAM_PATT.val[9] = (char)0 ; meltcdat->dstr_996__SCAM_PATT.slen = 9 ; /*^iniobj*/ /*iniobj dobj_997__SCAM_PATT*/ - /*_._VALDATA___V1088*/ - meltfptr[1087] = (melt_ptr_t )&meltcdat->dobj_997__SCAM_PATT; + /*_._VALDATA___V1088*/ meltfptr[1087] = (melt_ptr_t )&meltcdat->dobj_997__SCAM_PATT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_997__SCAM_PATT", 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_997__SCAM_PATT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_997__SCAM_PATT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -20979,18 +18638,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_998__SCAM_PATT*/ - /*_._VALSTR___V1089*/ - meltfptr[1088] = (melt_ptr_t) &meltcdat->dstr_998__SCAM_PATT; + /*_._VALSTR___V1089*/ meltfptr[1088] = (melt_ptr_t) &meltcdat->dstr_998__SCAM_PATT; meltcdat->dstr_998__SCAM_PATT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_998__SCAM_PATT.val, "SCAM_PATT", sizeof (meltcdat->dstr_998__SCAM_PATT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_998__SCAM_PATT.val, "SCAM_PATT", sizeof (meltcdat->dstr_998__SCAM_PATT.val)-1); meltcdat->dstr_998__SCAM_PATT.val[9] = (char)0 ; meltcdat->dstr_998__SCAM_PATT.slen = 9 ; /*iniobj dsym_999__SCAM_BODY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1095*/ meltfptr[1094]) + /*uniqueobj*/ if (!/*_._VALDATA___V1095*/ meltfptr[1094]) /*_._VALDATA___V1095*/ meltfptr[1094] = (melt_ptr_t )&meltcdat->dsym_999__SCAM_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_999__SCAM_BODY", 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_999__SCAM_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21000,19 +18656,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1000__SCAM_BODY*/ - /*_._VALSTR___V1096*/ - meltfptr[1095] = (melt_ptr_t) &meltcdat->dstr_1000__SCAM_BODY; + /*_._VALSTR___V1096*/ meltfptr[1095] = (melt_ptr_t) &meltcdat->dstr_1000__SCAM_BODY; meltcdat->dstr_1000__SCAM_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1000__SCAM_BODY.val, "SCAM_BODY", sizeof (meltcdat->dstr_1000__SCAM_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1000__SCAM_BODY.val, "SCAM_BODY", sizeof (meltcdat->dstr_1000__SCAM_BODY.val)-1); meltcdat->dstr_1000__SCAM_BODY.val[9] = (char)0 ; meltcdat->dstr_1000__SCAM_BODY.slen = 9 ; /*^iniobj*/ /*iniobj dobj_1001__SCAM_BODY*/ - /*_._VALDATA___V1090*/ - meltfptr[1089] = (melt_ptr_t )&meltcdat->dobj_1001__SCAM_BODY; + /*_._VALDATA___V1090*/ meltfptr[1089] = (melt_ptr_t )&meltcdat->dobj_1001__SCAM_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1001__SCAM_BODY", 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_1001__SCAM_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1001__SCAM_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -21022,18 +18675,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1002__SCAM_BODY*/ - /*_._VALSTR___V1091*/ - meltfptr[1090] = (melt_ptr_t) &meltcdat->dstr_1002__SCAM_BODY; + /*_._VALSTR___V1091*/ meltfptr[1090] = (melt_ptr_t) &meltcdat->dstr_1002__SCAM_BODY; meltcdat->dstr_1002__SCAM_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1002__SCAM_BODY.val, "SCAM_BODY", sizeof (meltcdat->dstr_1002__SCAM_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1002__SCAM_BODY.val, "SCAM_BODY", sizeof (meltcdat->dstr_1002__SCAM_BODY.val)-1); meltcdat->dstr_1002__SCAM_BODY.val[9] = (char)0 ; meltcdat->dstr_1002__SCAM_BODY.slen = 9 ; /*iniobj dsym_1003__CLASS_SOURCE_ANY_LET_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1097*/ meltfptr[1096]) + /*uniqueobj*/ if (!/*_._VALDATA___V1097*/ meltfptr[1096]) /*_._VALDATA___V1097*/ meltfptr[1096] = (melt_ptr_t )&meltcdat->dsym_1003__CLASS_SOURCE_ANY_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1003__CLASS_SOURCE_ANY_LET_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_1003__CLASS_SOURCE_ANY_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21043,19 +18693,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1004__CLASS_SOURCE_ANY_LET_BIN*/ - /*_._VALSTR___V1098*/ - meltfptr[1097] = (melt_ptr_t) &meltcdat->dstr_1004__CLASS_SOURCE_ANY_LET_BIN; + /*_._VALSTR___V1098*/ meltfptr[1097] = (melt_ptr_t) &meltcdat->dstr_1004__CLASS_SOURCE_ANY_LET_BIN; meltcdat->dstr_1004__CLASS_SOURCE_ANY_LET_BIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1004__CLASS_SOURCE_ANY_LET_BIN.val, "CLASS_SOURCE_ANY_LET_BINDING", sizeof (meltcdat->dstr_1004__CLASS_SOURCE_ANY_LET_BIN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1004__CLASS_SOURCE_ANY_LET_BIN.val, "CLASS_SOURCE_ANY_LET_BINDING", sizeof (meltcdat->dstr_1004__CLASS_SOURCE_ANY_LET_BIN.val)-1); meltcdat->dstr_1004__CLASS_SOURCE_ANY_LET_BIN.val[28] = (char)0 ; meltcdat->dstr_1004__CLASS_SOURCE_ANY_LET_BIN.slen = 28 ; MELT_LOCATION("warmelt-macro.melt:1066:/ iniobj"); /*iniobj dobj_1005__CLASS_SOURCE_ANY_LET_BINDING*/ - /*_._VALDATA___V1099*/ - meltfptr[1098] = (melt_ptr_t )&meltcdat->dobj_1005__CLASS_SOURCE_ANY_LET_BINDING; + /*_._VALDATA___V1099*/ meltfptr[1098] = (melt_ptr_t )&meltcdat->dobj_1005__CLASS_SOURCE_ANY_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1005__CLASS_SOURCE_ANY_LET_BINDING", 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_1005__CLASS_SOURCE_ANY_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1005__CLASS_SOURCE_ANY_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -21065,28 +18712,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1006__CLASS_SOURCE_ANY_LET_BIN*/ - /*_._VALSTR___V1100*/ - meltfptr[1099] = (melt_ptr_t) &meltcdat->dstr_1006__CLASS_SOURCE_ANY_LET_BIN; + /*_._VALSTR___V1100*/ meltfptr[1099] = (melt_ptr_t) &meltcdat->dstr_1006__CLASS_SOURCE_ANY_LET_BIN; meltcdat->dstr_1006__CLASS_SOURCE_ANY_LET_BIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1006__CLASS_SOURCE_ANY_LET_BIN.val, "CLASS_SOURCE_ANY_LET_BINDING", sizeof (meltcdat->dstr_1006__CLASS_SOURCE_ANY_LET_BIN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1006__CLASS_SOURCE_ANY_LET_BIN.val, "CLASS_SOURCE_ANY_LET_BINDING", sizeof (meltcdat->dstr_1006__CLASS_SOURCE_ANY_LET_BIN.val)-1); meltcdat->dstr_1006__CLASS_SOURCE_ANY_LET_BIN.val[28] = (char)0 ; meltcdat->dstr_1006__CLASS_SOURCE_ANY_LET_BIN.slen = 28 ; /*inimult dtup_1007_syCLASS_SOURCE_ANY_LET_BINDING*/ - /*_._VALTUP___V1101*/ - meltfptr[1100] = (melt_ptr_t) &meltcdat->dtup_1007_syCLASS_SOURCE_ANY_LET_BINDING; + /*_._VALTUP___V1101*/ meltfptr[1100] = (melt_ptr_t) &meltcdat->dtup_1007_syCLASS_SOURCE_ANY_LET_BINDING; meltcdat->dtup_1007_syCLASS_SOURCE_ANY_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1007_syCLASS_SOURCE_ANY_LET_BINDING.nbval = 4; /*inimult dtup_1008_syCLASS_SOURCE_ANY_LET_BINDING*/ - /*_._VALTUP___V1104*/ - meltfptr[1103] = (melt_ptr_t) &meltcdat->dtup_1008_syCLASS_SOURCE_ANY_LET_BINDING; + /*_._VALTUP___V1104*/ meltfptr[1103] = (melt_ptr_t) &meltcdat->dtup_1008_syCLASS_SOURCE_ANY_LET_BINDING; meltcdat->dtup_1008_syCLASS_SOURCE_ANY_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1008_syCLASS_SOURCE_ANY_LET_BINDING.nbval = 3; /*iniobj dsym_1009__SLETB_BINDER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1105*/ meltfptr[1104]) + /*uniqueobj*/ if (!/*_._VALDATA___V1105*/ meltfptr[1104]) /*_._VALDATA___V1105*/ meltfptr[1104] = (melt_ptr_t )&meltcdat->dsym_1009__SLETB_BINDER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1009__SLETB_BINDER", 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_1009__SLETB_BINDER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21096,19 +18738,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1010__SLETB_BINDER*/ - /*_._VALSTR___V1106*/ - meltfptr[1105] = (melt_ptr_t) &meltcdat->dstr_1010__SLETB_BINDER; + /*_._VALSTR___V1106*/ meltfptr[1105] = (melt_ptr_t) &meltcdat->dstr_1010__SLETB_BINDER; meltcdat->dstr_1010__SLETB_BINDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1010__SLETB_BINDER.val, "SLETB_BINDER", sizeof (meltcdat->dstr_1010__SLETB_BINDER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1010__SLETB_BINDER.val, "SLETB_BINDER", sizeof (meltcdat->dstr_1010__SLETB_BINDER.val)-1); meltcdat->dstr_1010__SLETB_BINDER.val[12] = (char)0 ; meltcdat->dstr_1010__SLETB_BINDER.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1011__SLETB_BINDER*/ - /*_._VALDATA___V1102*/ - meltfptr[1101] = (melt_ptr_t )&meltcdat->dobj_1011__SLETB_BINDER; + /*_._VALDATA___V1102*/ meltfptr[1101] = (melt_ptr_t )&meltcdat->dobj_1011__SLETB_BINDER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1011__SLETB_BINDER", 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_1011__SLETB_BINDER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1011__SLETB_BINDER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -21118,18 +18757,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1012__SLETB_BINDER*/ - /*_._VALSTR___V1103*/ - meltfptr[1102] = (melt_ptr_t) &meltcdat->dstr_1012__SLETB_BINDER; + /*_._VALSTR___V1103*/ meltfptr[1102] = (melt_ptr_t) &meltcdat->dstr_1012__SLETB_BINDER; meltcdat->dstr_1012__SLETB_BINDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1012__SLETB_BINDER.val, "SLETB_BINDER", sizeof (meltcdat->dstr_1012__SLETB_BINDER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1012__SLETB_BINDER.val, "SLETB_BINDER", sizeof (meltcdat->dstr_1012__SLETB_BINDER.val)-1); meltcdat->dstr_1012__SLETB_BINDER.val[12] = (char)0 ; meltcdat->dstr_1012__SLETB_BINDER.slen = 12 ; /*iniobj dsym_1013__CLASS_SOURCE_MACRO_LET_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1107*/ meltfptr[1106]) + /*uniqueobj*/ if (!/*_._VALDATA___V1107*/ meltfptr[1106]) /*_._VALDATA___V1107*/ meltfptr[1106] = (melt_ptr_t )&meltcdat->dsym_1013__CLASS_SOURCE_MACRO_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1013__CLASS_SOURCE_MACRO_LET_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_1013__CLASS_SOURCE_MACRO_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21139,19 +18775,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1014__CLASS_SOURCE_MACRO_LET_B*/ - /*_._VALSTR___V1108*/ - meltfptr[1107] = (melt_ptr_t) &meltcdat->dstr_1014__CLASS_SOURCE_MACRO_LET_B; + /*_._VALSTR___V1108*/ meltfptr[1107] = (melt_ptr_t) &meltcdat->dstr_1014__CLASS_SOURCE_MACRO_LET_B; meltcdat->dstr_1014__CLASS_SOURCE_MACRO_LET_B.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1014__CLASS_SOURCE_MACRO_LET_B.val, "CLASS_SOURCE_MACRO_LET_BINDING", sizeof (meltcdat->dstr_1014__CLASS_SOURCE_MACRO_LET_B.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1014__CLASS_SOURCE_MACRO_LET_B.val, "CLASS_SOURCE_MACRO_LET_BINDING", sizeof (meltcdat->dstr_1014__CLASS_SOURCE_MACRO_LET_B.val)-1); meltcdat->dstr_1014__CLASS_SOURCE_MACRO_LET_B.val[30] = (char)0 ; meltcdat->dstr_1014__CLASS_SOURCE_MACRO_LET_B.slen = 30 ; MELT_LOCATION("warmelt-macro.melt:1073:/ iniobj"); /*iniobj dobj_1015__CLASS_SOURCE_MACRO_LET_BINDING*/ - /*_._VALDATA___V1109*/ - meltfptr[1108] = (melt_ptr_t )&meltcdat->dobj_1015__CLASS_SOURCE_MACRO_LET_BINDING; + /*_._VALDATA___V1109*/ meltfptr[1108] = (melt_ptr_t )&meltcdat->dobj_1015__CLASS_SOURCE_MACRO_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1015__CLASS_SOURCE_MACRO_LET_BINDING", 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_1015__CLASS_SOURCE_MACRO_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1015__CLASS_SOURCE_MACRO_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -21161,28 +18794,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1016__CLASS_SOURCE_MACRO_LET_B*/ - /*_._VALSTR___V1110*/ - meltfptr[1109] = (melt_ptr_t) &meltcdat->dstr_1016__CLASS_SOURCE_MACRO_LET_B; + /*_._VALSTR___V1110*/ meltfptr[1109] = (melt_ptr_t) &meltcdat->dstr_1016__CLASS_SOURCE_MACRO_LET_B; meltcdat->dstr_1016__CLASS_SOURCE_MACRO_LET_B.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1016__CLASS_SOURCE_MACRO_LET_B.val, "CLASS_SOURCE_MACRO_LET_BINDING", sizeof (meltcdat->dstr_1016__CLASS_SOURCE_MACRO_LET_B.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1016__CLASS_SOURCE_MACRO_LET_B.val, "CLASS_SOURCE_MACRO_LET_BINDING", sizeof (meltcdat->dstr_1016__CLASS_SOURCE_MACRO_LET_B.val)-1); meltcdat->dstr_1016__CLASS_SOURCE_MACRO_LET_B.val[30] = (char)0 ; meltcdat->dstr_1016__CLASS_SOURCE_MACRO_LET_B.slen = 30 ; /*inimult dtup_1017_syCLASS_SOURCE_MACRO_LET_BINDING*/ - /*_._VALTUP___V1111*/ - meltfptr[1110] = (melt_ptr_t) &meltcdat->dtup_1017_syCLASS_SOURCE_MACRO_LET_BINDING; + /*_._VALTUP___V1111*/ meltfptr[1110] = (melt_ptr_t) &meltcdat->dtup_1017_syCLASS_SOURCE_MACRO_LET_BINDING; meltcdat->dtup_1017_syCLASS_SOURCE_MACRO_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1017_syCLASS_SOURCE_MACRO_LET_BINDING.nbval = 5; /*inimult dtup_1018_syCLASS_SOURCE_MACRO_LET_BINDING*/ - /*_._VALTUP___V1116*/ - meltfptr[1115] = (melt_ptr_t) &meltcdat->dtup_1018_syCLASS_SOURCE_MACRO_LET_BINDING; + /*_._VALTUP___V1116*/ meltfptr[1115] = (melt_ptr_t) &meltcdat->dtup_1018_syCLASS_SOURCE_MACRO_LET_BINDING; meltcdat->dtup_1018_syCLASS_SOURCE_MACRO_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1018_syCLASS_SOURCE_MACRO_LET_BINDING.nbval = 5; /*iniobj dsym_1019__SLETM_MACRO_FORMALS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1117*/ meltfptr[1116]) + /*uniqueobj*/ if (!/*_._VALDATA___V1117*/ meltfptr[1116]) /*_._VALDATA___V1117*/ meltfptr[1116] = (melt_ptr_t )&meltcdat->dsym_1019__SLETM_MACRO_FORMALS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1019__SLETM_MACRO_FORMALS", 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_1019__SLETM_MACRO_FORMALS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21192,19 +18820,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1020__SLETM_MACRO_FORMALS*/ - /*_._VALSTR___V1118*/ - meltfptr[1117] = (melt_ptr_t) &meltcdat->dstr_1020__SLETM_MACRO_FORMALS; + /*_._VALSTR___V1118*/ meltfptr[1117] = (melt_ptr_t) &meltcdat->dstr_1020__SLETM_MACRO_FORMALS; meltcdat->dstr_1020__SLETM_MACRO_FORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1020__SLETM_MACRO_FORMALS.val, "SLETM_MACRO_FORMALS", sizeof (meltcdat->dstr_1020__SLETM_MACRO_FORMALS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1020__SLETM_MACRO_FORMALS.val, "SLETM_MACRO_FORMALS", sizeof (meltcdat->dstr_1020__SLETM_MACRO_FORMALS.val)-1); meltcdat->dstr_1020__SLETM_MACRO_FORMALS.val[19] = (char)0 ; meltcdat->dstr_1020__SLETM_MACRO_FORMALS.slen = 19 ; /*^iniobj*/ /*iniobj dobj_1021__SLETM_MACRO_FORMALS*/ - /*_._VALDATA___V1112*/ - meltfptr[1111] = (melt_ptr_t )&meltcdat->dobj_1021__SLETM_MACRO_FORMALS; + /*_._VALDATA___V1112*/ meltfptr[1111] = (melt_ptr_t )&meltcdat->dobj_1021__SLETM_MACRO_FORMALS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1021__SLETM_MACRO_FORMALS", 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_1021__SLETM_MACRO_FORMALS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1021__SLETM_MACRO_FORMALS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -21214,18 +18839,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1022__SLETM_MACRO_FORMALS*/ - /*_._VALSTR___V1113*/ - meltfptr[1112] = (melt_ptr_t) &meltcdat->dstr_1022__SLETM_MACRO_FORMALS; + /*_._VALSTR___V1113*/ meltfptr[1112] = (melt_ptr_t) &meltcdat->dstr_1022__SLETM_MACRO_FORMALS; meltcdat->dstr_1022__SLETM_MACRO_FORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1022__SLETM_MACRO_FORMALS.val, "SLETM_MACRO_FORMALS", sizeof (meltcdat->dstr_1022__SLETM_MACRO_FORMALS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1022__SLETM_MACRO_FORMALS.val, "SLETM_MACRO_FORMALS", sizeof (meltcdat->dstr_1022__SLETM_MACRO_FORMALS.val)-1); meltcdat->dstr_1022__SLETM_MACRO_FORMALS.val[19] = (char)0 ; meltcdat->dstr_1022__SLETM_MACRO_FORMALS.slen = 19 ; /*iniobj dsym_1023__SLETM_MACRO_BODY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1119*/ meltfptr[1118]) + /*uniqueobj*/ if (!/*_._VALDATA___V1119*/ meltfptr[1118]) /*_._VALDATA___V1119*/ meltfptr[1118] = (melt_ptr_t )&meltcdat->dsym_1023__SLETM_MACRO_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1023__SLETM_MACRO_BODY", 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_1023__SLETM_MACRO_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21235,19 +18857,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1024__SLETM_MACRO_BODY*/ - /*_._VALSTR___V1120*/ - meltfptr[1119] = (melt_ptr_t) &meltcdat->dstr_1024__SLETM_MACRO_BODY; + /*_._VALSTR___V1120*/ meltfptr[1119] = (melt_ptr_t) &meltcdat->dstr_1024__SLETM_MACRO_BODY; meltcdat->dstr_1024__SLETM_MACRO_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1024__SLETM_MACRO_BODY.val, "SLETM_MACRO_BODY", sizeof (meltcdat->dstr_1024__SLETM_MACRO_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1024__SLETM_MACRO_BODY.val, "SLETM_MACRO_BODY", sizeof (meltcdat->dstr_1024__SLETM_MACRO_BODY.val)-1); meltcdat->dstr_1024__SLETM_MACRO_BODY.val[16] = (char)0 ; meltcdat->dstr_1024__SLETM_MACRO_BODY.slen = 16 ; /*^iniobj*/ /*iniobj dobj_1025__SLETM_MACRO_BODY*/ - /*_._VALDATA___V1114*/ - meltfptr[1113] = (melt_ptr_t )&meltcdat->dobj_1025__SLETM_MACRO_BODY; + /*_._VALDATA___V1114*/ meltfptr[1113] = (melt_ptr_t )&meltcdat->dobj_1025__SLETM_MACRO_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1025__SLETM_MACRO_BODY", 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_1025__SLETM_MACRO_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1025__SLETM_MACRO_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -21257,18 +18876,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1026__SLETM_MACRO_BODY*/ - /*_._VALSTR___V1115*/ - meltfptr[1114] = (melt_ptr_t) &meltcdat->dstr_1026__SLETM_MACRO_BODY; + /*_._VALSTR___V1115*/ meltfptr[1114] = (melt_ptr_t) &meltcdat->dstr_1026__SLETM_MACRO_BODY; meltcdat->dstr_1026__SLETM_MACRO_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1026__SLETM_MACRO_BODY.val, "SLETM_MACRO_BODY", sizeof (meltcdat->dstr_1026__SLETM_MACRO_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1026__SLETM_MACRO_BODY.val, "SLETM_MACRO_BODY", sizeof (meltcdat->dstr_1026__SLETM_MACRO_BODY.val)-1); meltcdat->dstr_1026__SLETM_MACRO_BODY.val[16] = (char)0 ; meltcdat->dstr_1026__SLETM_MACRO_BODY.slen = 16 ; /*iniobj dsym_1027__CLASS_SOURCE_LET_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1121*/ meltfptr[1120]) + /*uniqueobj*/ if (!/*_._VALDATA___V1121*/ meltfptr[1120]) /*_._VALDATA___V1121*/ meltfptr[1120] = (melt_ptr_t )&meltcdat->dsym_1027__CLASS_SOURCE_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1027__CLASS_SOURCE_LET_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_1027__CLASS_SOURCE_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21278,19 +18894,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1028__CLASS_SOURCE_LET_BINDING*/ - /*_._VALSTR___V1122*/ - meltfptr[1121] = (melt_ptr_t) &meltcdat->dstr_1028__CLASS_SOURCE_LET_BINDING; + /*_._VALSTR___V1122*/ meltfptr[1121] = (melt_ptr_t) &meltcdat->dstr_1028__CLASS_SOURCE_LET_BINDING; meltcdat->dstr_1028__CLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1028__CLASS_SOURCE_LET_BINDING.val, "CLASS_SOURCE_LET_BINDING", sizeof (meltcdat->dstr_1028__CLASS_SOURCE_LET_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1028__CLASS_SOURCE_LET_BINDING.val, "CLASS_SOURCE_LET_BINDING", sizeof (meltcdat->dstr_1028__CLASS_SOURCE_LET_BINDING.val)-1); meltcdat->dstr_1028__CLASS_SOURCE_LET_BINDING.val[24] = (char)0 ; meltcdat->dstr_1028__CLASS_SOURCE_LET_BINDING.slen = 24 ; MELT_LOCATION("warmelt-macro.melt:1080:/ iniobj"); /*iniobj dobj_1029__CLASS_SOURCE_LET_BINDING*/ - /*_._VALDATA___V1123*/ - meltfptr[1122] = (melt_ptr_t )&meltcdat->dobj_1029__CLASS_SOURCE_LET_BINDING; + /*_._VALDATA___V1123*/ meltfptr[1122] = (melt_ptr_t )&meltcdat->dobj_1029__CLASS_SOURCE_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1029__CLASS_SOURCE_LET_BINDING", 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_1029__CLASS_SOURCE_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1029__CLASS_SOURCE_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -21300,28 +18913,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1030__CLASS_SOURCE_LET_BINDING*/ - /*_._VALSTR___V1124*/ - meltfptr[1123] = (melt_ptr_t) &meltcdat->dstr_1030__CLASS_SOURCE_LET_BINDING; + /*_._VALSTR___V1124*/ meltfptr[1123] = (melt_ptr_t) &meltcdat->dstr_1030__CLASS_SOURCE_LET_BINDING; meltcdat->dstr_1030__CLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1030__CLASS_SOURCE_LET_BINDING.val, "CLASS_SOURCE_LET_BINDING", sizeof (meltcdat->dstr_1030__CLASS_SOURCE_LET_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1030__CLASS_SOURCE_LET_BINDING.val, "CLASS_SOURCE_LET_BINDING", sizeof (meltcdat->dstr_1030__CLASS_SOURCE_LET_BINDING.val)-1); meltcdat->dstr_1030__CLASS_SOURCE_LET_BINDING.val[24] = (char)0 ; meltcdat->dstr_1030__CLASS_SOURCE_LET_BINDING.slen = 24 ; /*inimult dtup_1031_syCLASS_SOURCE_LET_BINDING*/ - /*_._VALTUP___V1125*/ - meltfptr[1124] = (melt_ptr_t) &meltcdat->dtup_1031_syCLASS_SOURCE_LET_BINDING; + /*_._VALTUP___V1125*/ meltfptr[1124] = (melt_ptr_t) &meltcdat->dtup_1031_syCLASS_SOURCE_LET_BINDING; meltcdat->dtup_1031_syCLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1031_syCLASS_SOURCE_LET_BINDING.nbval = 5; /*inimult dtup_1032_syCLASS_SOURCE_LET_BINDING*/ - /*_._VALTUP___V1130*/ - meltfptr[1129] = (melt_ptr_t) &meltcdat->dtup_1032_syCLASS_SOURCE_LET_BINDING; + /*_._VALTUP___V1130*/ meltfptr[1129] = (melt_ptr_t) &meltcdat->dtup_1032_syCLASS_SOURCE_LET_BINDING; meltcdat->dtup_1032_syCLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1032_syCLASS_SOURCE_LET_BINDING.nbval = 5; /*iniobj dsym_1033__SLETB_TYPE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1131*/ meltfptr[1130]) + /*uniqueobj*/ if (!/*_._VALDATA___V1131*/ meltfptr[1130]) /*_._VALDATA___V1131*/ meltfptr[1130] = (melt_ptr_t )&meltcdat->dsym_1033__SLETB_TYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1033__SLETB_TYPE", 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_1033__SLETB_TYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21331,19 +18939,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1034__SLETB_TYPE*/ - /*_._VALSTR___V1132*/ - meltfptr[1131] = (melt_ptr_t) &meltcdat->dstr_1034__SLETB_TYPE; + /*_._VALSTR___V1132*/ meltfptr[1131] = (melt_ptr_t) &meltcdat->dstr_1034__SLETB_TYPE; meltcdat->dstr_1034__SLETB_TYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1034__SLETB_TYPE.val, "SLETB_TYPE", sizeof (meltcdat->dstr_1034__SLETB_TYPE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1034__SLETB_TYPE.val, "SLETB_TYPE", sizeof (meltcdat->dstr_1034__SLETB_TYPE.val)-1); meltcdat->dstr_1034__SLETB_TYPE.val[10] = (char)0 ; meltcdat->dstr_1034__SLETB_TYPE.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1035__SLETB_TYPE*/ - /*_._VALDATA___V1126*/ - meltfptr[1125] = (melt_ptr_t )&meltcdat->dobj_1035__SLETB_TYPE; + /*_._VALDATA___V1126*/ meltfptr[1125] = (melt_ptr_t )&meltcdat->dobj_1035__SLETB_TYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1035__SLETB_TYPE", 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_1035__SLETB_TYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1035__SLETB_TYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -21353,18 +18958,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1036__SLETB_TYPE*/ - /*_._VALSTR___V1127*/ - meltfptr[1126] = (melt_ptr_t) &meltcdat->dstr_1036__SLETB_TYPE; + /*_._VALSTR___V1127*/ meltfptr[1126] = (melt_ptr_t) &meltcdat->dstr_1036__SLETB_TYPE; meltcdat->dstr_1036__SLETB_TYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1036__SLETB_TYPE.val, "SLETB_TYPE", sizeof (meltcdat->dstr_1036__SLETB_TYPE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1036__SLETB_TYPE.val, "SLETB_TYPE", sizeof (meltcdat->dstr_1036__SLETB_TYPE.val)-1); meltcdat->dstr_1036__SLETB_TYPE.val[10] = (char)0 ; meltcdat->dstr_1036__SLETB_TYPE.slen = 10 ; /*iniobj dsym_1037__SLETB_EXPR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1133*/ meltfptr[1132]) + /*uniqueobj*/ if (!/*_._VALDATA___V1133*/ meltfptr[1132]) /*_._VALDATA___V1133*/ meltfptr[1132] = (melt_ptr_t )&meltcdat->dsym_1037__SLETB_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1037__SLETB_EXPR", 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_1037__SLETB_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21374,19 +18976,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1038__SLETB_EXPR*/ - /*_._VALSTR___V1134*/ - meltfptr[1133] = (melt_ptr_t) &meltcdat->dstr_1038__SLETB_EXPR; + /*_._VALSTR___V1134*/ meltfptr[1133] = (melt_ptr_t) &meltcdat->dstr_1038__SLETB_EXPR; meltcdat->dstr_1038__SLETB_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1038__SLETB_EXPR.val, "SLETB_EXPR", sizeof (meltcdat->dstr_1038__SLETB_EXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1038__SLETB_EXPR.val, "SLETB_EXPR", sizeof (meltcdat->dstr_1038__SLETB_EXPR.val)-1); meltcdat->dstr_1038__SLETB_EXPR.val[10] = (char)0 ; meltcdat->dstr_1038__SLETB_EXPR.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1039__SLETB_EXPR*/ - /*_._VALDATA___V1128*/ - meltfptr[1127] = (melt_ptr_t )&meltcdat->dobj_1039__SLETB_EXPR; + /*_._VALDATA___V1128*/ meltfptr[1127] = (melt_ptr_t )&meltcdat->dobj_1039__SLETB_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1039__SLETB_EXPR", 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_1039__SLETB_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1039__SLETB_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -21396,18 +18995,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1040__SLETB_EXPR*/ - /*_._VALSTR___V1129*/ - meltfptr[1128] = (melt_ptr_t) &meltcdat->dstr_1040__SLETB_EXPR; + /*_._VALSTR___V1129*/ meltfptr[1128] = (melt_ptr_t) &meltcdat->dstr_1040__SLETB_EXPR; meltcdat->dstr_1040__SLETB_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1040__SLETB_EXPR.val, "SLETB_EXPR", sizeof (meltcdat->dstr_1040__SLETB_EXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1040__SLETB_EXPR.val, "SLETB_EXPR", sizeof (meltcdat->dstr_1040__SLETB_EXPR.val)-1); meltcdat->dstr_1040__SLETB_EXPR.val[10] = (char)0 ; meltcdat->dstr_1040__SLETB_EXPR.slen = 10 ; /*iniobj dsym_1041__CLASS_SOURCE_LETREC_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1135*/ meltfptr[1134]) + /*uniqueobj*/ if (!/*_._VALDATA___V1135*/ meltfptr[1134]) /*_._VALDATA___V1135*/ meltfptr[1134] = (melt_ptr_t )&meltcdat->dsym_1041__CLASS_SOURCE_LETREC_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1041__CLASS_SOURCE_LETREC_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_1041__CLASS_SOURCE_LETREC_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21417,19 +19013,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1042__CLASS_SOURCE_LETREC_BIND*/ - /*_._VALSTR___V1136*/ - meltfptr[1135] = (melt_ptr_t) &meltcdat->dstr_1042__CLASS_SOURCE_LETREC_BIND; + /*_._VALSTR___V1136*/ meltfptr[1135] = (melt_ptr_t) &meltcdat->dstr_1042__CLASS_SOURCE_LETREC_BIND; meltcdat->dstr_1042__CLASS_SOURCE_LETREC_BIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1042__CLASS_SOURCE_LETREC_BIND.val, "CLASS_SOURCE_LETREC_BINDING", sizeof (meltcdat->dstr_1042__CLASS_SOURCE_LETREC_BIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1042__CLASS_SOURCE_LETREC_BIND.val, "CLASS_SOURCE_LETREC_BINDING", sizeof (meltcdat->dstr_1042__CLASS_SOURCE_LETREC_BIND.val)-1); meltcdat->dstr_1042__CLASS_SOURCE_LETREC_BIND.val[27] = (char)0 ; meltcdat->dstr_1042__CLASS_SOURCE_LETREC_BIND.slen = 27 ; MELT_LOCATION("warmelt-macro.melt:1090:/ iniobj"); /*iniobj dobj_1043__CLASS_SOURCE_LETREC_BINDING*/ - /*_._VALDATA___V1137*/ - meltfptr[1136] = (melt_ptr_t )&meltcdat->dobj_1043__CLASS_SOURCE_LETREC_BINDING; + /*_._VALDATA___V1137*/ meltfptr[1136] = (melt_ptr_t )&meltcdat->dobj_1043__CLASS_SOURCE_LETREC_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1043__CLASS_SOURCE_LETREC_BINDING", 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_1043__CLASS_SOURCE_LETREC_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1043__CLASS_SOURCE_LETREC_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -21439,28 +19032,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1044__CLASS_SOURCE_LETREC_BIND*/ - /*_._VALSTR___V1138*/ - meltfptr[1137] = (melt_ptr_t) &meltcdat->dstr_1044__CLASS_SOURCE_LETREC_BIND; + /*_._VALSTR___V1138*/ meltfptr[1137] = (melt_ptr_t) &meltcdat->dstr_1044__CLASS_SOURCE_LETREC_BIND; meltcdat->dstr_1044__CLASS_SOURCE_LETREC_BIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1044__CLASS_SOURCE_LETREC_BIND.val, "CLASS_SOURCE_LETREC_BINDING", sizeof (meltcdat->dstr_1044__CLASS_SOURCE_LETREC_BIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1044__CLASS_SOURCE_LETREC_BIND.val, "CLASS_SOURCE_LETREC_BINDING", sizeof (meltcdat->dstr_1044__CLASS_SOURCE_LETREC_BIND.val)-1); meltcdat->dstr_1044__CLASS_SOURCE_LETREC_BIND.val[27] = (char)0 ; meltcdat->dstr_1044__CLASS_SOURCE_LETREC_BIND.slen = 27 ; /*inimult dtup_1045_syCLASS_SOURCE_LETREC_BINDING*/ - /*_._VALTUP___V1139*/ - meltfptr[1138] = (melt_ptr_t) &meltcdat->dtup_1045_syCLASS_SOURCE_LETREC_BINDING; + /*_._VALTUP___V1139*/ meltfptr[1138] = (melt_ptr_t) &meltcdat->dtup_1045_syCLASS_SOURCE_LETREC_BINDING; meltcdat->dtup_1045_syCLASS_SOURCE_LETREC_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1045_syCLASS_SOURCE_LETREC_BINDING.nbval = 6; /*inimult dtup_1046_syCLASS_SOURCE_LETREC_BINDING*/ - /*_._VALTUP___V1140*/ - meltfptr[1139] = (melt_ptr_t) &meltcdat->dtup_1046_syCLASS_SOURCE_LETREC_BINDING; + /*_._VALTUP___V1140*/ meltfptr[1139] = (melt_ptr_t) &meltcdat->dtup_1046_syCLASS_SOURCE_LETREC_BINDING; meltcdat->dtup_1046_syCLASS_SOURCE_LETREC_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1046_syCLASS_SOURCE_LETREC_BINDING.nbval = 5; /*iniobj dsym_1047__CLASS_SOURCE_LET*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1141*/ meltfptr[1140]) + /*uniqueobj*/ if (!/*_._VALDATA___V1141*/ meltfptr[1140]) /*_._VALDATA___V1141*/ meltfptr[1140] = (melt_ptr_t )&meltcdat->dsym_1047__CLASS_SOURCE_LET; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1047__CLASS_SOURCE_LET", 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_1047__CLASS_SOURCE_LET", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21470,19 +19058,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1048__CLASS_SOURCE_LET*/ - /*_._VALSTR___V1142*/ - meltfptr[1141] = (melt_ptr_t) &meltcdat->dstr_1048__CLASS_SOURCE_LET; + /*_._VALSTR___V1142*/ meltfptr[1141] = (melt_ptr_t) &meltcdat->dstr_1048__CLASS_SOURCE_LET; meltcdat->dstr_1048__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1048__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET", sizeof (meltcdat->dstr_1048__CLASS_SOURCE_LET.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1048__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET", sizeof (meltcdat->dstr_1048__CLASS_SOURCE_LET.val)-1); meltcdat->dstr_1048__CLASS_SOURCE_LET.val[16] = (char)0 ; meltcdat->dstr_1048__CLASS_SOURCE_LET.slen = 16 ; MELT_LOCATION("warmelt-macro.melt:1096:/ iniobj"); /*iniobj dobj_1049__CLASS_SOURCE_LET*/ - /*_._VALDATA___V1143*/ - meltfptr[1142] = (melt_ptr_t )&meltcdat->dobj_1049__CLASS_SOURCE_LET; + /*_._VALDATA___V1143*/ meltfptr[1142] = (melt_ptr_t )&meltcdat->dobj_1049__CLASS_SOURCE_LET; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1049__CLASS_SOURCE_LET", 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_1049__CLASS_SOURCE_LET", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1049__CLASS_SOURCE_LET.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -21492,28 +19077,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1050__CLASS_SOURCE_LET*/ - /*_._VALSTR___V1144*/ - meltfptr[1143] = (melt_ptr_t) &meltcdat->dstr_1050__CLASS_SOURCE_LET; + /*_._VALSTR___V1144*/ meltfptr[1143] = (melt_ptr_t) &meltcdat->dstr_1050__CLASS_SOURCE_LET; meltcdat->dstr_1050__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1050__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET", sizeof (meltcdat->dstr_1050__CLASS_SOURCE_LET.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1050__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET", sizeof (meltcdat->dstr_1050__CLASS_SOURCE_LET.val)-1); meltcdat->dstr_1050__CLASS_SOURCE_LET.val[16] = (char)0 ; meltcdat->dstr_1050__CLASS_SOURCE_LET.slen = 16 ; /*inimult dtup_1051_syCLASS_SOURCE_LET*/ - /*_._VALTUP___V1145*/ - meltfptr[1144] = (melt_ptr_t) &meltcdat->dtup_1051_syCLASS_SOURCE_LET; + /*_._VALTUP___V1145*/ meltfptr[1144] = (melt_ptr_t) &meltcdat->dtup_1051_syCLASS_SOURCE_LET; meltcdat->dtup_1051_syCLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1051_syCLASS_SOURCE_LET.nbval = 4; /*inimult dtup_1052_syCLASS_SOURCE_LET*/ - /*_._VALTUP___V1150*/ - meltfptr[1149] = (melt_ptr_t) &meltcdat->dtup_1052_syCLASS_SOURCE_LET; + /*_._VALTUP___V1150*/ meltfptr[1149] = (melt_ptr_t) &meltcdat->dtup_1052_syCLASS_SOURCE_LET; meltcdat->dtup_1052_syCLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1052_syCLASS_SOURCE_LET.nbval = 4; /*iniobj dsym_1053__SLET_BINDINGS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1151*/ meltfptr[1150]) + /*uniqueobj*/ if (!/*_._VALDATA___V1151*/ meltfptr[1150]) /*_._VALDATA___V1151*/ meltfptr[1150] = (melt_ptr_t )&meltcdat->dsym_1053__SLET_BINDINGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1053__SLET_BINDINGS", 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_1053__SLET_BINDINGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21523,19 +19103,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1054__SLET_BINDINGS*/ - /*_._VALSTR___V1152*/ - meltfptr[1151] = (melt_ptr_t) &meltcdat->dstr_1054__SLET_BINDINGS; + /*_._VALSTR___V1152*/ meltfptr[1151] = (melt_ptr_t) &meltcdat->dstr_1054__SLET_BINDINGS; meltcdat->dstr_1054__SLET_BINDINGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1054__SLET_BINDINGS.val, "SLET_BINDINGS", sizeof (meltcdat->dstr_1054__SLET_BINDINGS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1054__SLET_BINDINGS.val, "SLET_BINDINGS", sizeof (meltcdat->dstr_1054__SLET_BINDINGS.val)-1); meltcdat->dstr_1054__SLET_BINDINGS.val[13] = (char)0 ; meltcdat->dstr_1054__SLET_BINDINGS.slen = 13 ; /*^iniobj*/ /*iniobj dobj_1055__SLET_BINDINGS*/ - /*_._VALDATA___V1146*/ - meltfptr[1145] = (melt_ptr_t )&meltcdat->dobj_1055__SLET_BINDINGS; + /*_._VALDATA___V1146*/ meltfptr[1145] = (melt_ptr_t )&meltcdat->dobj_1055__SLET_BINDINGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1055__SLET_BINDINGS", 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_1055__SLET_BINDINGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1055__SLET_BINDINGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -21545,18 +19122,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1056__SLET_BINDINGS*/ - /*_._VALSTR___V1147*/ - meltfptr[1146] = (melt_ptr_t) &meltcdat->dstr_1056__SLET_BINDINGS; + /*_._VALSTR___V1147*/ meltfptr[1146] = (melt_ptr_t) &meltcdat->dstr_1056__SLET_BINDINGS; meltcdat->dstr_1056__SLET_BINDINGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1056__SLET_BINDINGS.val, "SLET_BINDINGS", sizeof (meltcdat->dstr_1056__SLET_BINDINGS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1056__SLET_BINDINGS.val, "SLET_BINDINGS", sizeof (meltcdat->dstr_1056__SLET_BINDINGS.val)-1); meltcdat->dstr_1056__SLET_BINDINGS.val[13] = (char)0 ; meltcdat->dstr_1056__SLET_BINDINGS.slen = 13 ; /*iniobj dsym_1057__SLET_BODY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1153*/ meltfptr[1152]) + /*uniqueobj*/ if (!/*_._VALDATA___V1153*/ meltfptr[1152]) /*_._VALDATA___V1153*/ meltfptr[1152] = (melt_ptr_t )&meltcdat->dsym_1057__SLET_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1057__SLET_BODY", 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_1057__SLET_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21566,19 +19140,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1058__SLET_BODY*/ - /*_._VALSTR___V1154*/ - meltfptr[1153] = (melt_ptr_t) &meltcdat->dstr_1058__SLET_BODY; + /*_._VALSTR___V1154*/ meltfptr[1153] = (melt_ptr_t) &meltcdat->dstr_1058__SLET_BODY; meltcdat->dstr_1058__SLET_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1058__SLET_BODY.val, "SLET_BODY", sizeof (meltcdat->dstr_1058__SLET_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1058__SLET_BODY.val, "SLET_BODY", sizeof (meltcdat->dstr_1058__SLET_BODY.val)-1); meltcdat->dstr_1058__SLET_BODY.val[9] = (char)0 ; meltcdat->dstr_1058__SLET_BODY.slen = 9 ; /*^iniobj*/ /*iniobj dobj_1059__SLET_BODY*/ - /*_._VALDATA___V1148*/ - meltfptr[1147] = (melt_ptr_t )&meltcdat->dobj_1059__SLET_BODY; + /*_._VALDATA___V1148*/ meltfptr[1147] = (melt_ptr_t )&meltcdat->dobj_1059__SLET_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1059__SLET_BODY", 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_1059__SLET_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1059__SLET_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -21588,18 +19159,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1060__SLET_BODY*/ - /*_._VALSTR___V1149*/ - meltfptr[1148] = (melt_ptr_t) &meltcdat->dstr_1060__SLET_BODY; + /*_._VALSTR___V1149*/ meltfptr[1148] = (melt_ptr_t) &meltcdat->dstr_1060__SLET_BODY; meltcdat->dstr_1060__SLET_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1060__SLET_BODY.val, "SLET_BODY", sizeof (meltcdat->dstr_1060__SLET_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1060__SLET_BODY.val, "SLET_BODY", sizeof (meltcdat->dstr_1060__SLET_BODY.val)-1); meltcdat->dstr_1060__SLET_BODY.val[9] = (char)0 ; meltcdat->dstr_1060__SLET_BODY.slen = 9 ; /*iniobj dsym_1061__CLASS_SOURCE_LETREC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1155*/ meltfptr[1154]) + /*uniqueobj*/ if (!/*_._VALDATA___V1155*/ meltfptr[1154]) /*_._VALDATA___V1155*/ meltfptr[1154] = (melt_ptr_t )&meltcdat->dsym_1061__CLASS_SOURCE_LETREC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1061__CLASS_SOURCE_LETREC", 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_1061__CLASS_SOURCE_LETREC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21609,19 +19177,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1062__CLASS_SOURCE_LETREC*/ - /*_._VALSTR___V1156*/ - meltfptr[1155] = (melt_ptr_t) &meltcdat->dstr_1062__CLASS_SOURCE_LETREC; + /*_._VALSTR___V1156*/ meltfptr[1155] = (melt_ptr_t) &meltcdat->dstr_1062__CLASS_SOURCE_LETREC; meltcdat->dstr_1062__CLASS_SOURCE_LETREC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1062__CLASS_SOURCE_LETREC.val, "CLASS_SOURCE_LETREC", sizeof (meltcdat->dstr_1062__CLASS_SOURCE_LETREC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1062__CLASS_SOURCE_LETREC.val, "CLASS_SOURCE_LETREC", sizeof (meltcdat->dstr_1062__CLASS_SOURCE_LETREC.val)-1); meltcdat->dstr_1062__CLASS_SOURCE_LETREC.val[19] = (char)0 ; meltcdat->dstr_1062__CLASS_SOURCE_LETREC.slen = 19 ; MELT_LOCATION("warmelt-macro.melt:1106:/ iniobj"); /*iniobj dobj_1063__CLASS_SOURCE_LETREC*/ - /*_._VALDATA___V1157*/ - meltfptr[1156] = (melt_ptr_t )&meltcdat->dobj_1063__CLASS_SOURCE_LETREC; + /*_._VALDATA___V1157*/ meltfptr[1156] = (melt_ptr_t )&meltcdat->dobj_1063__CLASS_SOURCE_LETREC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1063__CLASS_SOURCE_LETREC", 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_1063__CLASS_SOURCE_LETREC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1063__CLASS_SOURCE_LETREC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -21631,28 +19196,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1064__CLASS_SOURCE_LETREC*/ - /*_._VALSTR___V1158*/ - meltfptr[1157] = (melt_ptr_t) &meltcdat->dstr_1064__CLASS_SOURCE_LETREC; + /*_._VALSTR___V1158*/ meltfptr[1157] = (melt_ptr_t) &meltcdat->dstr_1064__CLASS_SOURCE_LETREC; meltcdat->dstr_1064__CLASS_SOURCE_LETREC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1064__CLASS_SOURCE_LETREC.val, "CLASS_SOURCE_LETREC", sizeof (meltcdat->dstr_1064__CLASS_SOURCE_LETREC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1064__CLASS_SOURCE_LETREC.val, "CLASS_SOURCE_LETREC", sizeof (meltcdat->dstr_1064__CLASS_SOURCE_LETREC.val)-1); meltcdat->dstr_1064__CLASS_SOURCE_LETREC.val[19] = (char)0 ; meltcdat->dstr_1064__CLASS_SOURCE_LETREC.slen = 19 ; /*inimult dtup_1065_syCLASS_SOURCE_LETREC*/ - /*_._VALTUP___V1159*/ - meltfptr[1158] = (melt_ptr_t) &meltcdat->dtup_1065_syCLASS_SOURCE_LETREC; + /*_._VALTUP___V1159*/ meltfptr[1158] = (melt_ptr_t) &meltcdat->dtup_1065_syCLASS_SOURCE_LETREC; meltcdat->dtup_1065_syCLASS_SOURCE_LETREC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1065_syCLASS_SOURCE_LETREC.nbval = 5; /*inimult dtup_1066_syCLASS_SOURCE_LETREC*/ - /*_._VALTUP___V1160*/ - meltfptr[1159] = (melt_ptr_t) &meltcdat->dtup_1066_syCLASS_SOURCE_LETREC; + /*_._VALTUP___V1160*/ meltfptr[1159] = (melt_ptr_t) &meltcdat->dtup_1066_syCLASS_SOURCE_LETREC; meltcdat->dtup_1066_syCLASS_SOURCE_LETREC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1066_syCLASS_SOURCE_LETREC.nbval = 4; /*iniobj dsym_1067__CLASS_SOURCE_LAMBDA*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1161*/ meltfptr[1160]) + /*uniqueobj*/ if (!/*_._VALDATA___V1161*/ meltfptr[1160]) /*_._VALDATA___V1161*/ meltfptr[1160] = (melt_ptr_t )&meltcdat->dsym_1067__CLASS_SOURCE_LAMBDA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1067__CLASS_SOURCE_LAMBDA", 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_1067__CLASS_SOURCE_LAMBDA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21662,19 +19222,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1068__CLASS_SOURCE_LAMBDA*/ - /*_._VALSTR___V1162*/ - meltfptr[1161] = (melt_ptr_t) &meltcdat->dstr_1068__CLASS_SOURCE_LAMBDA; + /*_._VALSTR___V1162*/ meltfptr[1161] = (melt_ptr_t) &meltcdat->dstr_1068__CLASS_SOURCE_LAMBDA; meltcdat->dstr_1068__CLASS_SOURCE_LAMBDA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1068__CLASS_SOURCE_LAMBDA.val, "CLASS_SOURCE_LAMBDA", sizeof (meltcdat->dstr_1068__CLASS_SOURCE_LAMBDA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1068__CLASS_SOURCE_LAMBDA.val, "CLASS_SOURCE_LAMBDA", sizeof (meltcdat->dstr_1068__CLASS_SOURCE_LAMBDA.val)-1); meltcdat->dstr_1068__CLASS_SOURCE_LAMBDA.val[19] = (char)0 ; meltcdat->dstr_1068__CLASS_SOURCE_LAMBDA.slen = 19 ; MELT_LOCATION("warmelt-macro.melt:1114:/ iniobj"); /*iniobj dobj_1069__CLASS_SOURCE_LAMBDA*/ - /*_._VALDATA___V1163*/ - meltfptr[1162] = (melt_ptr_t )&meltcdat->dobj_1069__CLASS_SOURCE_LAMBDA; + /*_._VALDATA___V1163*/ meltfptr[1162] = (melt_ptr_t )&meltcdat->dobj_1069__CLASS_SOURCE_LAMBDA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1069__CLASS_SOURCE_LAMBDA", 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_1069__CLASS_SOURCE_LAMBDA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1069__CLASS_SOURCE_LAMBDA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -21684,28 +19241,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1070__CLASS_SOURCE_LAMBDA*/ - /*_._VALSTR___V1164*/ - meltfptr[1163] = (melt_ptr_t) &meltcdat->dstr_1070__CLASS_SOURCE_LAMBDA; + /*_._VALSTR___V1164*/ meltfptr[1163] = (melt_ptr_t) &meltcdat->dstr_1070__CLASS_SOURCE_LAMBDA; meltcdat->dstr_1070__CLASS_SOURCE_LAMBDA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1070__CLASS_SOURCE_LAMBDA.val, "CLASS_SOURCE_LAMBDA", sizeof (meltcdat->dstr_1070__CLASS_SOURCE_LAMBDA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1070__CLASS_SOURCE_LAMBDA.val, "CLASS_SOURCE_LAMBDA", sizeof (meltcdat->dstr_1070__CLASS_SOURCE_LAMBDA.val)-1); meltcdat->dstr_1070__CLASS_SOURCE_LAMBDA.val[19] = (char)0 ; meltcdat->dstr_1070__CLASS_SOURCE_LAMBDA.slen = 19 ; /*inimult dtup_1071_syCLASS_SOURCE_LAMBDA*/ - /*_._VALTUP___V1165*/ - meltfptr[1164] = (melt_ptr_t) &meltcdat->dtup_1071_syCLASS_SOURCE_LAMBDA; + /*_._VALTUP___V1165*/ meltfptr[1164] = (melt_ptr_t) &meltcdat->dtup_1071_syCLASS_SOURCE_LAMBDA; meltcdat->dtup_1071_syCLASS_SOURCE_LAMBDA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1071_syCLASS_SOURCE_LAMBDA.nbval = 4; /*inimult dtup_1072_syCLASS_SOURCE_LAMBDA*/ - /*_._VALTUP___V1170*/ - meltfptr[1169] = (melt_ptr_t) &meltcdat->dtup_1072_syCLASS_SOURCE_LAMBDA; + /*_._VALTUP___V1170*/ meltfptr[1169] = (melt_ptr_t) &meltcdat->dtup_1072_syCLASS_SOURCE_LAMBDA; meltcdat->dtup_1072_syCLASS_SOURCE_LAMBDA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1072_syCLASS_SOURCE_LAMBDA.nbval = 4; /*iniobj dsym_1073__SLAM_ARGBIND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1171*/ meltfptr[1170]) + /*uniqueobj*/ if (!/*_._VALDATA___V1171*/ meltfptr[1170]) /*_._VALDATA___V1171*/ meltfptr[1170] = (melt_ptr_t )&meltcdat->dsym_1073__SLAM_ARGBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1073__SLAM_ARGBIND", 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_1073__SLAM_ARGBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21715,19 +19267,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1074__SLAM_ARGBIND*/ - /*_._VALSTR___V1172*/ - meltfptr[1171] = (melt_ptr_t) &meltcdat->dstr_1074__SLAM_ARGBIND; + /*_._VALSTR___V1172*/ meltfptr[1171] = (melt_ptr_t) &meltcdat->dstr_1074__SLAM_ARGBIND; meltcdat->dstr_1074__SLAM_ARGBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1074__SLAM_ARGBIND.val, "SLAM_ARGBIND", sizeof (meltcdat->dstr_1074__SLAM_ARGBIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1074__SLAM_ARGBIND.val, "SLAM_ARGBIND", sizeof (meltcdat->dstr_1074__SLAM_ARGBIND.val)-1); meltcdat->dstr_1074__SLAM_ARGBIND.val[12] = (char)0 ; meltcdat->dstr_1074__SLAM_ARGBIND.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1075__SLAM_ARGBIND*/ - /*_._VALDATA___V1166*/ - meltfptr[1165] = (melt_ptr_t )&meltcdat->dobj_1075__SLAM_ARGBIND; + /*_._VALDATA___V1166*/ meltfptr[1165] = (melt_ptr_t )&meltcdat->dobj_1075__SLAM_ARGBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1075__SLAM_ARGBIND", 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_1075__SLAM_ARGBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1075__SLAM_ARGBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -21737,18 +19286,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1076__SLAM_ARGBIND*/ - /*_._VALSTR___V1167*/ - meltfptr[1166] = (melt_ptr_t) &meltcdat->dstr_1076__SLAM_ARGBIND; + /*_._VALSTR___V1167*/ meltfptr[1166] = (melt_ptr_t) &meltcdat->dstr_1076__SLAM_ARGBIND; meltcdat->dstr_1076__SLAM_ARGBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1076__SLAM_ARGBIND.val, "SLAM_ARGBIND", sizeof (meltcdat->dstr_1076__SLAM_ARGBIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1076__SLAM_ARGBIND.val, "SLAM_ARGBIND", sizeof (meltcdat->dstr_1076__SLAM_ARGBIND.val)-1); meltcdat->dstr_1076__SLAM_ARGBIND.val[12] = (char)0 ; meltcdat->dstr_1076__SLAM_ARGBIND.slen = 12 ; /*iniobj dsym_1077__SLAM_BODY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1173*/ meltfptr[1172]) + /*uniqueobj*/ if (!/*_._VALDATA___V1173*/ meltfptr[1172]) /*_._VALDATA___V1173*/ meltfptr[1172] = (melt_ptr_t )&meltcdat->dsym_1077__SLAM_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1077__SLAM_BODY", 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_1077__SLAM_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21758,19 +19304,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1078__SLAM_BODY*/ - /*_._VALSTR___V1174*/ - meltfptr[1173] = (melt_ptr_t) &meltcdat->dstr_1078__SLAM_BODY; + /*_._VALSTR___V1174*/ meltfptr[1173] = (melt_ptr_t) &meltcdat->dstr_1078__SLAM_BODY; meltcdat->dstr_1078__SLAM_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1078__SLAM_BODY.val, "SLAM_BODY", sizeof (meltcdat->dstr_1078__SLAM_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1078__SLAM_BODY.val, "SLAM_BODY", sizeof (meltcdat->dstr_1078__SLAM_BODY.val)-1); meltcdat->dstr_1078__SLAM_BODY.val[9] = (char)0 ; meltcdat->dstr_1078__SLAM_BODY.slen = 9 ; /*^iniobj*/ /*iniobj dobj_1079__SLAM_BODY*/ - /*_._VALDATA___V1168*/ - meltfptr[1167] = (melt_ptr_t )&meltcdat->dobj_1079__SLAM_BODY; + /*_._VALDATA___V1168*/ meltfptr[1167] = (melt_ptr_t )&meltcdat->dobj_1079__SLAM_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1079__SLAM_BODY", 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_1079__SLAM_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1079__SLAM_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -21780,18 +19323,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1080__SLAM_BODY*/ - /*_._VALSTR___V1169*/ - meltfptr[1168] = (melt_ptr_t) &meltcdat->dstr_1080__SLAM_BODY; + /*_._VALSTR___V1169*/ meltfptr[1168] = (melt_ptr_t) &meltcdat->dstr_1080__SLAM_BODY; meltcdat->dstr_1080__SLAM_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1080__SLAM_BODY.val, "SLAM_BODY", sizeof (meltcdat->dstr_1080__SLAM_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1080__SLAM_BODY.val, "SLAM_BODY", sizeof (meltcdat->dstr_1080__SLAM_BODY.val)-1); meltcdat->dstr_1080__SLAM_BODY.val[9] = (char)0 ; meltcdat->dstr_1080__SLAM_BODY.slen = 9 ; /*iniobj dsym_1081__CLASS_SOURCE_IFVARIADIC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1175*/ meltfptr[1174]) + /*uniqueobj*/ if (!/*_._VALDATA___V1175*/ meltfptr[1174]) /*_._VALDATA___V1175*/ meltfptr[1174] = (melt_ptr_t )&meltcdat->dsym_1081__CLASS_SOURCE_IFVARIADIC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1081__CLASS_SOURCE_IFVARIADIC", 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_1081__CLASS_SOURCE_IFVARIADIC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21801,19 +19341,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1082__CLASS_SOURCE_IFVARIADIC*/ - /*_._VALSTR___V1176*/ - meltfptr[1175] = (melt_ptr_t) &meltcdat->dstr_1082__CLASS_SOURCE_IFVARIADIC; + /*_._VALSTR___V1176*/ meltfptr[1175] = (melt_ptr_t) &meltcdat->dstr_1082__CLASS_SOURCE_IFVARIADIC; meltcdat->dstr_1082__CLASS_SOURCE_IFVARIADIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1082__CLASS_SOURCE_IFVARIADIC.val, "CLASS_SOURCE_IFVARIADIC", sizeof (meltcdat->dstr_1082__CLASS_SOURCE_IFVARIADIC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1082__CLASS_SOURCE_IFVARIADIC.val, "CLASS_SOURCE_IFVARIADIC", sizeof (meltcdat->dstr_1082__CLASS_SOURCE_IFVARIADIC.val)-1); meltcdat->dstr_1082__CLASS_SOURCE_IFVARIADIC.val[23] = (char)0 ; meltcdat->dstr_1082__CLASS_SOURCE_IFVARIADIC.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:1124:/ iniobj"); /*iniobj dobj_1083__CLASS_SOURCE_IFVARIADIC*/ - /*_._VALDATA___V1177*/ - meltfptr[1176] = (melt_ptr_t )&meltcdat->dobj_1083__CLASS_SOURCE_IFVARIADIC; + /*_._VALDATA___V1177*/ meltfptr[1176] = (melt_ptr_t )&meltcdat->dobj_1083__CLASS_SOURCE_IFVARIADIC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1083__CLASS_SOURCE_IFVARIADIC", 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_1083__CLASS_SOURCE_IFVARIADIC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1083__CLASS_SOURCE_IFVARIADIC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -21823,28 +19360,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1084__CLASS_SOURCE_IFVARIADIC*/ - /*_._VALSTR___V1178*/ - meltfptr[1177] = (melt_ptr_t) &meltcdat->dstr_1084__CLASS_SOURCE_IFVARIADIC; + /*_._VALSTR___V1178*/ meltfptr[1177] = (melt_ptr_t) &meltcdat->dstr_1084__CLASS_SOURCE_IFVARIADIC; meltcdat->dstr_1084__CLASS_SOURCE_IFVARIADIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1084__CLASS_SOURCE_IFVARIADIC.val, "CLASS_SOURCE_IFVARIADIC", sizeof (meltcdat->dstr_1084__CLASS_SOURCE_IFVARIADIC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1084__CLASS_SOURCE_IFVARIADIC.val, "CLASS_SOURCE_IFVARIADIC", sizeof (meltcdat->dstr_1084__CLASS_SOURCE_IFVARIADIC.val)-1); meltcdat->dstr_1084__CLASS_SOURCE_IFVARIADIC.val[23] = (char)0 ; meltcdat->dstr_1084__CLASS_SOURCE_IFVARIADIC.slen = 23 ; /*inimult dtup_1085_syCLASS_SOURCE_IFVARIADIC*/ - /*_._VALTUP___V1179*/ - meltfptr[1178] = (melt_ptr_t) &meltcdat->dtup_1085_syCLASS_SOURCE_IFVARIADIC; + /*_._VALTUP___V1179*/ meltfptr[1178] = (melt_ptr_t) &meltcdat->dtup_1085_syCLASS_SOURCE_IFVARIADIC; meltcdat->dtup_1085_syCLASS_SOURCE_IFVARIADIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1085_syCLASS_SOURCE_IFVARIADIC.nbval = 4; /*inimult dtup_1086_syCLASS_SOURCE_IFVARIADIC*/ - /*_._VALTUP___V1186*/ - meltfptr[1185] = (melt_ptr_t) &meltcdat->dtup_1086_syCLASS_SOURCE_IFVARIADIC; + /*_._VALTUP___V1186*/ meltfptr[1185] = (melt_ptr_t) &meltcdat->dtup_1086_syCLASS_SOURCE_IFVARIADIC; meltcdat->dtup_1086_syCLASS_SOURCE_IFVARIADIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1086_syCLASS_SOURCE_IFVARIADIC.nbval = 5; /*iniobj dsym_1087__SIFVARIADIC_ARGBIND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1187*/ meltfptr[1186]) + /*uniqueobj*/ if (!/*_._VALDATA___V1187*/ meltfptr[1186]) /*_._VALDATA___V1187*/ meltfptr[1186] = (melt_ptr_t )&meltcdat->dsym_1087__SIFVARIADIC_ARGBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1087__SIFVARIADIC_ARGBIND", 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_1087__SIFVARIADIC_ARGBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21854,19 +19386,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1088__SIFVARIADIC_ARGBIND*/ - /*_._VALSTR___V1188*/ - meltfptr[1187] = (melt_ptr_t) &meltcdat->dstr_1088__SIFVARIADIC_ARGBIND; + /*_._VALSTR___V1188*/ meltfptr[1187] = (melt_ptr_t) &meltcdat->dstr_1088__SIFVARIADIC_ARGBIND; meltcdat->dstr_1088__SIFVARIADIC_ARGBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1088__SIFVARIADIC_ARGBIND.val, "SIFVARIADIC_ARGBIND", sizeof (meltcdat->dstr_1088__SIFVARIADIC_ARGBIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1088__SIFVARIADIC_ARGBIND.val, "SIFVARIADIC_ARGBIND", sizeof (meltcdat->dstr_1088__SIFVARIADIC_ARGBIND.val)-1); meltcdat->dstr_1088__SIFVARIADIC_ARGBIND.val[19] = (char)0 ; meltcdat->dstr_1088__SIFVARIADIC_ARGBIND.slen = 19 ; /*^iniobj*/ /*iniobj dobj_1089__SIFVARIADIC_ARGBIND*/ - /*_._VALDATA___V1180*/ - meltfptr[1179] = (melt_ptr_t )&meltcdat->dobj_1089__SIFVARIADIC_ARGBIND; + /*_._VALDATA___V1180*/ meltfptr[1179] = (melt_ptr_t )&meltcdat->dobj_1089__SIFVARIADIC_ARGBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1089__SIFVARIADIC_ARGBIND", 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_1089__SIFVARIADIC_ARGBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1089__SIFVARIADIC_ARGBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -21876,18 +19405,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1090__SIFVARIADIC_ARGBIND*/ - /*_._VALSTR___V1181*/ - meltfptr[1180] = (melt_ptr_t) &meltcdat->dstr_1090__SIFVARIADIC_ARGBIND; + /*_._VALSTR___V1181*/ meltfptr[1180] = (melt_ptr_t) &meltcdat->dstr_1090__SIFVARIADIC_ARGBIND; meltcdat->dstr_1090__SIFVARIADIC_ARGBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1090__SIFVARIADIC_ARGBIND.val, "SIFVARIADIC_ARGBIND", sizeof (meltcdat->dstr_1090__SIFVARIADIC_ARGBIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1090__SIFVARIADIC_ARGBIND.val, "SIFVARIADIC_ARGBIND", sizeof (meltcdat->dstr_1090__SIFVARIADIC_ARGBIND.val)-1); meltcdat->dstr_1090__SIFVARIADIC_ARGBIND.val[19] = (char)0 ; meltcdat->dstr_1090__SIFVARIADIC_ARGBIND.slen = 19 ; /*iniobj dsym_1091__SIFVARIADIC_THEN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1189*/ meltfptr[1188]) + /*uniqueobj*/ if (!/*_._VALDATA___V1189*/ meltfptr[1188]) /*_._VALDATA___V1189*/ meltfptr[1188] = (melt_ptr_t )&meltcdat->dsym_1091__SIFVARIADIC_THEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1091__SIFVARIADIC_THEN", 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_1091__SIFVARIADIC_THEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21897,19 +19423,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1092__SIFVARIADIC_THEN*/ - /*_._VALSTR___V1190*/ - meltfptr[1189] = (melt_ptr_t) &meltcdat->dstr_1092__SIFVARIADIC_THEN; + /*_._VALSTR___V1190*/ meltfptr[1189] = (melt_ptr_t) &meltcdat->dstr_1092__SIFVARIADIC_THEN; meltcdat->dstr_1092__SIFVARIADIC_THEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1092__SIFVARIADIC_THEN.val, "SIFVARIADIC_THEN", sizeof (meltcdat->dstr_1092__SIFVARIADIC_THEN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1092__SIFVARIADIC_THEN.val, "SIFVARIADIC_THEN", sizeof (meltcdat->dstr_1092__SIFVARIADIC_THEN.val)-1); meltcdat->dstr_1092__SIFVARIADIC_THEN.val[16] = (char)0 ; meltcdat->dstr_1092__SIFVARIADIC_THEN.slen = 16 ; /*^iniobj*/ /*iniobj dobj_1093__SIFVARIADIC_THEN*/ - /*_._VALDATA___V1182*/ - meltfptr[1181] = (melt_ptr_t )&meltcdat->dobj_1093__SIFVARIADIC_THEN; + /*_._VALDATA___V1182*/ meltfptr[1181] = (melt_ptr_t )&meltcdat->dobj_1093__SIFVARIADIC_THEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1093__SIFVARIADIC_THEN", 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_1093__SIFVARIADIC_THEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1093__SIFVARIADIC_THEN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -21919,18 +19442,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1094__SIFVARIADIC_THEN*/ - /*_._VALSTR___V1183*/ - meltfptr[1182] = (melt_ptr_t) &meltcdat->dstr_1094__SIFVARIADIC_THEN; + /*_._VALSTR___V1183*/ meltfptr[1182] = (melt_ptr_t) &meltcdat->dstr_1094__SIFVARIADIC_THEN; meltcdat->dstr_1094__SIFVARIADIC_THEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1094__SIFVARIADIC_THEN.val, "SIFVARIADIC_THEN", sizeof (meltcdat->dstr_1094__SIFVARIADIC_THEN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1094__SIFVARIADIC_THEN.val, "SIFVARIADIC_THEN", sizeof (meltcdat->dstr_1094__SIFVARIADIC_THEN.val)-1); meltcdat->dstr_1094__SIFVARIADIC_THEN.val[16] = (char)0 ; meltcdat->dstr_1094__SIFVARIADIC_THEN.slen = 16 ; /*iniobj dsym_1095__SIFVARIADIC_ELSE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1191*/ meltfptr[1190]) + /*uniqueobj*/ if (!/*_._VALDATA___V1191*/ meltfptr[1190]) /*_._VALDATA___V1191*/ meltfptr[1190] = (melt_ptr_t )&meltcdat->dsym_1095__SIFVARIADIC_ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1095__SIFVARIADIC_ELSE", 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_1095__SIFVARIADIC_ELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21940,19 +19460,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1096__SIFVARIADIC_ELSE*/ - /*_._VALSTR___V1192*/ - meltfptr[1191] = (melt_ptr_t) &meltcdat->dstr_1096__SIFVARIADIC_ELSE; + /*_._VALSTR___V1192*/ meltfptr[1191] = (melt_ptr_t) &meltcdat->dstr_1096__SIFVARIADIC_ELSE; meltcdat->dstr_1096__SIFVARIADIC_ELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1096__SIFVARIADIC_ELSE.val, "SIFVARIADIC_ELSE", sizeof (meltcdat->dstr_1096__SIFVARIADIC_ELSE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1096__SIFVARIADIC_ELSE.val, "SIFVARIADIC_ELSE", sizeof (meltcdat->dstr_1096__SIFVARIADIC_ELSE.val)-1); meltcdat->dstr_1096__SIFVARIADIC_ELSE.val[16] = (char)0 ; meltcdat->dstr_1096__SIFVARIADIC_ELSE.slen = 16 ; /*^iniobj*/ /*iniobj dobj_1097__SIFVARIADIC_ELSE*/ - /*_._VALDATA___V1184*/ - meltfptr[1183] = (melt_ptr_t )&meltcdat->dobj_1097__SIFVARIADIC_ELSE; + /*_._VALDATA___V1184*/ meltfptr[1183] = (melt_ptr_t )&meltcdat->dobj_1097__SIFVARIADIC_ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1097__SIFVARIADIC_ELSE", 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_1097__SIFVARIADIC_ELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1097__SIFVARIADIC_ELSE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -21962,18 +19479,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1098__SIFVARIADIC_ELSE*/ - /*_._VALSTR___V1185*/ - meltfptr[1184] = (melt_ptr_t) &meltcdat->dstr_1098__SIFVARIADIC_ELSE; + /*_._VALSTR___V1185*/ meltfptr[1184] = (melt_ptr_t) &meltcdat->dstr_1098__SIFVARIADIC_ELSE; meltcdat->dstr_1098__SIFVARIADIC_ELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1098__SIFVARIADIC_ELSE.val, "SIFVARIADIC_ELSE", sizeof (meltcdat->dstr_1098__SIFVARIADIC_ELSE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1098__SIFVARIADIC_ELSE.val, "SIFVARIADIC_ELSE", sizeof (meltcdat->dstr_1098__SIFVARIADIC_ELSE.val)-1); meltcdat->dstr_1098__SIFVARIADIC_ELSE.val[16] = (char)0 ; meltcdat->dstr_1098__SIFVARIADIC_ELSE.slen = 16 ; /*iniobj dsym_1099__CLASS_SOURCE_MULTICALL*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1193*/ meltfptr[1192]) + /*uniqueobj*/ if (!/*_._VALDATA___V1193*/ meltfptr[1192]) /*_._VALDATA___V1193*/ meltfptr[1192] = (melt_ptr_t )&meltcdat->dsym_1099__CLASS_SOURCE_MULTICALL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1099__CLASS_SOURCE_MULTICALL", 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_1099__CLASS_SOURCE_MULTICALL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -21983,19 +19497,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1100__CLASS_SOURCE_MULTICALL*/ - /*_._VALSTR___V1194*/ - meltfptr[1193] = (melt_ptr_t) &meltcdat->dstr_1100__CLASS_SOURCE_MULTICALL; + /*_._VALSTR___V1194*/ meltfptr[1193] = (melt_ptr_t) &meltcdat->dstr_1100__CLASS_SOURCE_MULTICALL; meltcdat->dstr_1100__CLASS_SOURCE_MULTICALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1100__CLASS_SOURCE_MULTICALL.val, "CLASS_SOURCE_MULTICALL", sizeof (meltcdat->dstr_1100__CLASS_SOURCE_MULTICALL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1100__CLASS_SOURCE_MULTICALL.val, "CLASS_SOURCE_MULTICALL", sizeof (meltcdat->dstr_1100__CLASS_SOURCE_MULTICALL.val)-1); meltcdat->dstr_1100__CLASS_SOURCE_MULTICALL.val[22] = (char)0 ; meltcdat->dstr_1100__CLASS_SOURCE_MULTICALL.slen = 22 ; MELT_LOCATION("warmelt-macro.melt:1136:/ iniobj"); /*iniobj dobj_1101__CLASS_SOURCE_MULTICALL*/ - /*_._VALDATA___V1195*/ - meltfptr[1194] = (melt_ptr_t )&meltcdat->dobj_1101__CLASS_SOURCE_MULTICALL; + /*_._VALDATA___V1195*/ meltfptr[1194] = (melt_ptr_t )&meltcdat->dobj_1101__CLASS_SOURCE_MULTICALL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1101__CLASS_SOURCE_MULTICALL", 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_1101__CLASS_SOURCE_MULTICALL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1101__CLASS_SOURCE_MULTICALL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -22005,28 +19516,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1102__CLASS_SOURCE_MULTICALL*/ - /*_._VALSTR___V1196*/ - meltfptr[1195] = (melt_ptr_t) &meltcdat->dstr_1102__CLASS_SOURCE_MULTICALL; + /*_._VALSTR___V1196*/ meltfptr[1195] = (melt_ptr_t) &meltcdat->dstr_1102__CLASS_SOURCE_MULTICALL; meltcdat->dstr_1102__CLASS_SOURCE_MULTICALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1102__CLASS_SOURCE_MULTICALL.val, "CLASS_SOURCE_MULTICALL", sizeof (meltcdat->dstr_1102__CLASS_SOURCE_MULTICALL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1102__CLASS_SOURCE_MULTICALL.val, "CLASS_SOURCE_MULTICALL", sizeof (meltcdat->dstr_1102__CLASS_SOURCE_MULTICALL.val)-1); meltcdat->dstr_1102__CLASS_SOURCE_MULTICALL.val[22] = (char)0 ; meltcdat->dstr_1102__CLASS_SOURCE_MULTICALL.slen = 22 ; /*inimult dtup_1103_syCLASS_SOURCE_MULTICALL*/ - /*_._VALTUP___V1197*/ - meltfptr[1196] = (melt_ptr_t) &meltcdat->dtup_1103_syCLASS_SOURCE_MULTICALL; + /*_._VALTUP___V1197*/ meltfptr[1196] = (melt_ptr_t) &meltcdat->dtup_1103_syCLASS_SOURCE_MULTICALL; meltcdat->dtup_1103_syCLASS_SOURCE_MULTICALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1103_syCLASS_SOURCE_MULTICALL.nbval = 4; /*inimult dtup_1104_syCLASS_SOURCE_MULTICALL*/ - /*_._VALTUP___V1204*/ - meltfptr[1203] = (melt_ptr_t) &meltcdat->dtup_1104_syCLASS_SOURCE_MULTICALL; + /*_._VALTUP___V1204*/ meltfptr[1203] = (melt_ptr_t) &meltcdat->dtup_1104_syCLASS_SOURCE_MULTICALL; meltcdat->dtup_1104_syCLASS_SOURCE_MULTICALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1104_syCLASS_SOURCE_MULTICALL.nbval = 5; /*iniobj dsym_1105__SMULC_RESBIND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1205*/ meltfptr[1204]) + /*uniqueobj*/ if (!/*_._VALDATA___V1205*/ meltfptr[1204]) /*_._VALDATA___V1205*/ meltfptr[1204] = (melt_ptr_t )&meltcdat->dsym_1105__SMULC_RESBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1105__SMULC_RESBIND", 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_1105__SMULC_RESBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22036,19 +19542,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1106__SMULC_RESBIND*/ - /*_._VALSTR___V1206*/ - meltfptr[1205] = (melt_ptr_t) &meltcdat->dstr_1106__SMULC_RESBIND; + /*_._VALSTR___V1206*/ meltfptr[1205] = (melt_ptr_t) &meltcdat->dstr_1106__SMULC_RESBIND; meltcdat->dstr_1106__SMULC_RESBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1106__SMULC_RESBIND.val, "SMULC_RESBIND", sizeof (meltcdat->dstr_1106__SMULC_RESBIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1106__SMULC_RESBIND.val, "SMULC_RESBIND", sizeof (meltcdat->dstr_1106__SMULC_RESBIND.val)-1); meltcdat->dstr_1106__SMULC_RESBIND.val[13] = (char)0 ; meltcdat->dstr_1106__SMULC_RESBIND.slen = 13 ; /*^iniobj*/ /*iniobj dobj_1107__SMULC_RESBIND*/ - /*_._VALDATA___V1198*/ - meltfptr[1197] = (melt_ptr_t )&meltcdat->dobj_1107__SMULC_RESBIND; + /*_._VALDATA___V1198*/ meltfptr[1197] = (melt_ptr_t )&meltcdat->dobj_1107__SMULC_RESBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1107__SMULC_RESBIND", 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_1107__SMULC_RESBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1107__SMULC_RESBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -22058,18 +19561,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1108__SMULC_RESBIND*/ - /*_._VALSTR___V1199*/ - meltfptr[1198] = (melt_ptr_t) &meltcdat->dstr_1108__SMULC_RESBIND; + /*_._VALSTR___V1199*/ meltfptr[1198] = (melt_ptr_t) &meltcdat->dstr_1108__SMULC_RESBIND; meltcdat->dstr_1108__SMULC_RESBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1108__SMULC_RESBIND.val, "SMULC_RESBIND", sizeof (meltcdat->dstr_1108__SMULC_RESBIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1108__SMULC_RESBIND.val, "SMULC_RESBIND", sizeof (meltcdat->dstr_1108__SMULC_RESBIND.val)-1); meltcdat->dstr_1108__SMULC_RESBIND.val[13] = (char)0 ; meltcdat->dstr_1108__SMULC_RESBIND.slen = 13 ; /*iniobj dsym_1109__SMULC_CALL*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1207*/ meltfptr[1206]) + /*uniqueobj*/ if (!/*_._VALDATA___V1207*/ meltfptr[1206]) /*_._VALDATA___V1207*/ meltfptr[1206] = (melt_ptr_t )&meltcdat->dsym_1109__SMULC_CALL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1109__SMULC_CALL", 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_1109__SMULC_CALL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22079,19 +19579,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1110__SMULC_CALL*/ - /*_._VALSTR___V1208*/ - meltfptr[1207] = (melt_ptr_t) &meltcdat->dstr_1110__SMULC_CALL; + /*_._VALSTR___V1208*/ meltfptr[1207] = (melt_ptr_t) &meltcdat->dstr_1110__SMULC_CALL; meltcdat->dstr_1110__SMULC_CALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1110__SMULC_CALL.val, "SMULC_CALL", sizeof (meltcdat->dstr_1110__SMULC_CALL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1110__SMULC_CALL.val, "SMULC_CALL", sizeof (meltcdat->dstr_1110__SMULC_CALL.val)-1); meltcdat->dstr_1110__SMULC_CALL.val[10] = (char)0 ; meltcdat->dstr_1110__SMULC_CALL.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1111__SMULC_CALL*/ - /*_._VALDATA___V1200*/ - meltfptr[1199] = (melt_ptr_t )&meltcdat->dobj_1111__SMULC_CALL; + /*_._VALDATA___V1200*/ meltfptr[1199] = (melt_ptr_t )&meltcdat->dobj_1111__SMULC_CALL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1111__SMULC_CALL", 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_1111__SMULC_CALL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1111__SMULC_CALL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -22101,18 +19598,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1112__SMULC_CALL*/ - /*_._VALSTR___V1201*/ - meltfptr[1200] = (melt_ptr_t) &meltcdat->dstr_1112__SMULC_CALL; + /*_._VALSTR___V1201*/ meltfptr[1200] = (melt_ptr_t) &meltcdat->dstr_1112__SMULC_CALL; meltcdat->dstr_1112__SMULC_CALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1112__SMULC_CALL.val, "SMULC_CALL", sizeof (meltcdat->dstr_1112__SMULC_CALL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1112__SMULC_CALL.val, "SMULC_CALL", sizeof (meltcdat->dstr_1112__SMULC_CALL.val)-1); meltcdat->dstr_1112__SMULC_CALL.val[10] = (char)0 ; meltcdat->dstr_1112__SMULC_CALL.slen = 10 ; /*iniobj dsym_1113__SMULC_BODY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1209*/ meltfptr[1208]) + /*uniqueobj*/ if (!/*_._VALDATA___V1209*/ meltfptr[1208]) /*_._VALDATA___V1209*/ meltfptr[1208] = (melt_ptr_t )&meltcdat->dsym_1113__SMULC_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1113__SMULC_BODY", 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_1113__SMULC_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22122,19 +19616,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1114__SMULC_BODY*/ - /*_._VALSTR___V1210*/ - meltfptr[1209] = (melt_ptr_t) &meltcdat->dstr_1114__SMULC_BODY; + /*_._VALSTR___V1210*/ meltfptr[1209] = (melt_ptr_t) &meltcdat->dstr_1114__SMULC_BODY; meltcdat->dstr_1114__SMULC_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1114__SMULC_BODY.val, "SMULC_BODY", sizeof (meltcdat->dstr_1114__SMULC_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1114__SMULC_BODY.val, "SMULC_BODY", sizeof (meltcdat->dstr_1114__SMULC_BODY.val)-1); meltcdat->dstr_1114__SMULC_BODY.val[10] = (char)0 ; meltcdat->dstr_1114__SMULC_BODY.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1115__SMULC_BODY*/ - /*_._VALDATA___V1202*/ - meltfptr[1201] = (melt_ptr_t )&meltcdat->dobj_1115__SMULC_BODY; + /*_._VALDATA___V1202*/ meltfptr[1201] = (melt_ptr_t )&meltcdat->dobj_1115__SMULC_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1115__SMULC_BODY", 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_1115__SMULC_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1115__SMULC_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -22144,18 +19635,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1116__SMULC_BODY*/ - /*_._VALSTR___V1203*/ - meltfptr[1202] = (melt_ptr_t) &meltcdat->dstr_1116__SMULC_BODY; + /*_._VALSTR___V1203*/ meltfptr[1202] = (melt_ptr_t) &meltcdat->dstr_1116__SMULC_BODY; meltcdat->dstr_1116__SMULC_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1116__SMULC_BODY.val, "SMULC_BODY", sizeof (meltcdat->dstr_1116__SMULC_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1116__SMULC_BODY.val, "SMULC_BODY", sizeof (meltcdat->dstr_1116__SMULC_BODY.val)-1); meltcdat->dstr_1116__SMULC_BODY.val[10] = (char)0 ; meltcdat->dstr_1116__SMULC_BODY.slen = 10 ; /*iniobj dsym_1117__CLASS_SOURCE_LABELLED*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1211*/ meltfptr[1210]) + /*uniqueobj*/ if (!/*_._VALDATA___V1211*/ meltfptr[1210]) /*_._VALDATA___V1211*/ meltfptr[1210] = (melt_ptr_t )&meltcdat->dsym_1117__CLASS_SOURCE_LABELLED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1117__CLASS_SOURCE_LABELLED", 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_1117__CLASS_SOURCE_LABELLED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22165,19 +19653,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1118__CLASS_SOURCE_LABELLED*/ - /*_._VALSTR___V1212*/ - meltfptr[1211] = (melt_ptr_t) &meltcdat->dstr_1118__CLASS_SOURCE_LABELLED; + /*_._VALSTR___V1212*/ meltfptr[1211] = (melt_ptr_t) &meltcdat->dstr_1118__CLASS_SOURCE_LABELLED; meltcdat->dstr_1118__CLASS_SOURCE_LABELLED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1118__CLASS_SOURCE_LABELLED.val, "CLASS_SOURCE_LABELLED", sizeof (meltcdat->dstr_1118__CLASS_SOURCE_LABELLED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1118__CLASS_SOURCE_LABELLED.val, "CLASS_SOURCE_LABELLED", sizeof (meltcdat->dstr_1118__CLASS_SOURCE_LABELLED.val)-1); meltcdat->dstr_1118__CLASS_SOURCE_LABELLED.val[21] = (char)0 ; meltcdat->dstr_1118__CLASS_SOURCE_LABELLED.slen = 21 ; MELT_LOCATION("warmelt-macro.melt:1148:/ iniobj"); /*iniobj dobj_1119__CLASS_SOURCE_LABELLED*/ - /*_._VALDATA___V1213*/ - meltfptr[1212] = (melt_ptr_t )&meltcdat->dobj_1119__CLASS_SOURCE_LABELLED; + /*_._VALDATA___V1213*/ meltfptr[1212] = (melt_ptr_t )&meltcdat->dobj_1119__CLASS_SOURCE_LABELLED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1119__CLASS_SOURCE_LABELLED", 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_1119__CLASS_SOURCE_LABELLED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1119__CLASS_SOURCE_LABELLED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -22187,28 +19672,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1120__CLASS_SOURCE_LABELLED*/ - /*_._VALSTR___V1214*/ - meltfptr[1213] = (melt_ptr_t) &meltcdat->dstr_1120__CLASS_SOURCE_LABELLED; + /*_._VALSTR___V1214*/ meltfptr[1213] = (melt_ptr_t) &meltcdat->dstr_1120__CLASS_SOURCE_LABELLED; meltcdat->dstr_1120__CLASS_SOURCE_LABELLED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1120__CLASS_SOURCE_LABELLED.val, "CLASS_SOURCE_LABELLED", sizeof (meltcdat->dstr_1120__CLASS_SOURCE_LABELLED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1120__CLASS_SOURCE_LABELLED.val, "CLASS_SOURCE_LABELLED", sizeof (meltcdat->dstr_1120__CLASS_SOURCE_LABELLED.val)-1); meltcdat->dstr_1120__CLASS_SOURCE_LABELLED.val[21] = (char)0 ; meltcdat->dstr_1120__CLASS_SOURCE_LABELLED.slen = 21 ; /*inimult dtup_1121_syCLASS_SOURCE_LABELLED*/ - /*_._VALTUP___V1215*/ - meltfptr[1214] = (melt_ptr_t) &meltcdat->dtup_1121_syCLASS_SOURCE_LABELLED; + /*_._VALTUP___V1215*/ meltfptr[1214] = (melt_ptr_t) &meltcdat->dtup_1121_syCLASS_SOURCE_LABELLED; meltcdat->dtup_1121_syCLASS_SOURCE_LABELLED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1121_syCLASS_SOURCE_LABELLED.nbval = 4; /*inimult dtup_1122_syCLASS_SOURCE_LABELLED*/ - /*_._VALTUP___V1218*/ - meltfptr[1217] = (melt_ptr_t) &meltcdat->dtup_1122_syCLASS_SOURCE_LABELLED; + /*_._VALTUP___V1218*/ meltfptr[1217] = (melt_ptr_t) &meltcdat->dtup_1122_syCLASS_SOURCE_LABELLED; meltcdat->dtup_1122_syCLASS_SOURCE_LABELLED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1122_syCLASS_SOURCE_LABELLED.nbval = 3; /*iniobj dsym_1123__SLABEL_BIND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1219*/ meltfptr[1218]) + /*uniqueobj*/ if (!/*_._VALDATA___V1219*/ meltfptr[1218]) /*_._VALDATA___V1219*/ meltfptr[1218] = (melt_ptr_t )&meltcdat->dsym_1123__SLABEL_BIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1123__SLABEL_BIND", 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_1123__SLABEL_BIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22218,19 +19698,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1124__SLABEL_BIND*/ - /*_._VALSTR___V1220*/ - meltfptr[1219] = (melt_ptr_t) &meltcdat->dstr_1124__SLABEL_BIND; + /*_._VALSTR___V1220*/ meltfptr[1219] = (melt_ptr_t) &meltcdat->dstr_1124__SLABEL_BIND; meltcdat->dstr_1124__SLABEL_BIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1124__SLABEL_BIND.val, "SLABEL_BIND", sizeof (meltcdat->dstr_1124__SLABEL_BIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1124__SLABEL_BIND.val, "SLABEL_BIND", sizeof (meltcdat->dstr_1124__SLABEL_BIND.val)-1); meltcdat->dstr_1124__SLABEL_BIND.val[11] = (char)0 ; meltcdat->dstr_1124__SLABEL_BIND.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1125__SLABEL_BIND*/ - /*_._VALDATA___V1216*/ - meltfptr[1215] = (melt_ptr_t )&meltcdat->dobj_1125__SLABEL_BIND; + /*_._VALDATA___V1216*/ meltfptr[1215] = (melt_ptr_t )&meltcdat->dobj_1125__SLABEL_BIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1125__SLABEL_BIND", 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_1125__SLABEL_BIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1125__SLABEL_BIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -22240,18 +19717,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1126__SLABEL_BIND*/ - /*_._VALSTR___V1217*/ - meltfptr[1216] = (melt_ptr_t) &meltcdat->dstr_1126__SLABEL_BIND; + /*_._VALSTR___V1217*/ meltfptr[1216] = (melt_ptr_t) &meltcdat->dstr_1126__SLABEL_BIND; meltcdat->dstr_1126__SLABEL_BIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1126__SLABEL_BIND.val, "SLABEL_BIND", sizeof (meltcdat->dstr_1126__SLABEL_BIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1126__SLABEL_BIND.val, "SLABEL_BIND", sizeof (meltcdat->dstr_1126__SLABEL_BIND.val)-1); meltcdat->dstr_1126__SLABEL_BIND.val[11] = (char)0 ; meltcdat->dstr_1126__SLABEL_BIND.slen = 11 ; /*iniobj dsym_1127__CLASS_SOURCE_FOREVER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1221*/ meltfptr[1220]) + /*uniqueobj*/ if (!/*_._VALDATA___V1221*/ meltfptr[1220]) /*_._VALDATA___V1221*/ meltfptr[1220] = (melt_ptr_t )&meltcdat->dsym_1127__CLASS_SOURCE_FOREVER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1127__CLASS_SOURCE_FOREVER", 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_1127__CLASS_SOURCE_FOREVER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22261,19 +19735,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1128__CLASS_SOURCE_FOREVER*/ - /*_._VALSTR___V1222*/ - meltfptr[1221] = (melt_ptr_t) &meltcdat->dstr_1128__CLASS_SOURCE_FOREVER; + /*_._VALSTR___V1222*/ meltfptr[1221] = (melt_ptr_t) &meltcdat->dstr_1128__CLASS_SOURCE_FOREVER; meltcdat->dstr_1128__CLASS_SOURCE_FOREVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1128__CLASS_SOURCE_FOREVER.val, "CLASS_SOURCE_FOREVER", sizeof (meltcdat->dstr_1128__CLASS_SOURCE_FOREVER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1128__CLASS_SOURCE_FOREVER.val, "CLASS_SOURCE_FOREVER", sizeof (meltcdat->dstr_1128__CLASS_SOURCE_FOREVER.val)-1); meltcdat->dstr_1128__CLASS_SOURCE_FOREVER.val[20] = (char)0 ; meltcdat->dstr_1128__CLASS_SOURCE_FOREVER.slen = 20 ; MELT_LOCATION("warmelt-macro.melt:1157:/ iniobj"); /*iniobj dobj_1129__CLASS_SOURCE_FOREVER*/ - /*_._VALDATA___V1223*/ - meltfptr[1222] = (melt_ptr_t )&meltcdat->dobj_1129__CLASS_SOURCE_FOREVER; + /*_._VALDATA___V1223*/ meltfptr[1222] = (melt_ptr_t )&meltcdat->dobj_1129__CLASS_SOURCE_FOREVER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1129__CLASS_SOURCE_FOREVER", 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_1129__CLASS_SOURCE_FOREVER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1129__CLASS_SOURCE_FOREVER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -22283,28 +19754,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1130__CLASS_SOURCE_FOREVER*/ - /*_._VALSTR___V1224*/ - meltfptr[1223] = (melt_ptr_t) &meltcdat->dstr_1130__CLASS_SOURCE_FOREVER; + /*_._VALSTR___V1224*/ meltfptr[1223] = (melt_ptr_t) &meltcdat->dstr_1130__CLASS_SOURCE_FOREVER; meltcdat->dstr_1130__CLASS_SOURCE_FOREVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1130__CLASS_SOURCE_FOREVER.val, "CLASS_SOURCE_FOREVER", sizeof (meltcdat->dstr_1130__CLASS_SOURCE_FOREVER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1130__CLASS_SOURCE_FOREVER.val, "CLASS_SOURCE_FOREVER", sizeof (meltcdat->dstr_1130__CLASS_SOURCE_FOREVER.val)-1); meltcdat->dstr_1130__CLASS_SOURCE_FOREVER.val[20] = (char)0 ; meltcdat->dstr_1130__CLASS_SOURCE_FOREVER.slen = 20 ; /*inimult dtup_1131_syCLASS_SOURCE_FOREVER*/ - /*_._VALTUP___V1225*/ - meltfptr[1224] = (melt_ptr_t) &meltcdat->dtup_1131_syCLASS_SOURCE_FOREVER; + /*_._VALTUP___V1225*/ meltfptr[1224] = (melt_ptr_t) &meltcdat->dtup_1131_syCLASS_SOURCE_FOREVER; meltcdat->dtup_1131_syCLASS_SOURCE_FOREVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1131_syCLASS_SOURCE_FOREVER.nbval = 5; /*inimult dtup_1132_syCLASS_SOURCE_FOREVER*/ - /*_._VALTUP___V1228*/ - meltfptr[1227] = (melt_ptr_t) &meltcdat->dtup_1132_syCLASS_SOURCE_FOREVER; + /*_._VALTUP___V1228*/ meltfptr[1227] = (melt_ptr_t) &meltcdat->dtup_1132_syCLASS_SOURCE_FOREVER; meltcdat->dtup_1132_syCLASS_SOURCE_FOREVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1132_syCLASS_SOURCE_FOREVER.nbval = 4; /*iniobj dsym_1133__SFRV_BODY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1229*/ meltfptr[1228]) + /*uniqueobj*/ if (!/*_._VALDATA___V1229*/ meltfptr[1228]) /*_._VALDATA___V1229*/ meltfptr[1228] = (melt_ptr_t )&meltcdat->dsym_1133__SFRV_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1133__SFRV_BODY", 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_1133__SFRV_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22314,19 +19780,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1134__SFRV_BODY*/ - /*_._VALSTR___V1230*/ - meltfptr[1229] = (melt_ptr_t) &meltcdat->dstr_1134__SFRV_BODY; + /*_._VALSTR___V1230*/ meltfptr[1229] = (melt_ptr_t) &meltcdat->dstr_1134__SFRV_BODY; meltcdat->dstr_1134__SFRV_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1134__SFRV_BODY.val, "SFRV_BODY", sizeof (meltcdat->dstr_1134__SFRV_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1134__SFRV_BODY.val, "SFRV_BODY", sizeof (meltcdat->dstr_1134__SFRV_BODY.val)-1); meltcdat->dstr_1134__SFRV_BODY.val[9] = (char)0 ; meltcdat->dstr_1134__SFRV_BODY.slen = 9 ; /*^iniobj*/ /*iniobj dobj_1135__SFRV_BODY*/ - /*_._VALDATA___V1226*/ - meltfptr[1225] = (melt_ptr_t )&meltcdat->dobj_1135__SFRV_BODY; + /*_._VALDATA___V1226*/ meltfptr[1225] = (melt_ptr_t )&meltcdat->dobj_1135__SFRV_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1135__SFRV_BODY", 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_1135__SFRV_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1135__SFRV_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -22336,18 +19799,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1136__SFRV_BODY*/ - /*_._VALSTR___V1227*/ - meltfptr[1226] = (melt_ptr_t) &meltcdat->dstr_1136__SFRV_BODY; + /*_._VALSTR___V1227*/ meltfptr[1226] = (melt_ptr_t) &meltcdat->dstr_1136__SFRV_BODY; meltcdat->dstr_1136__SFRV_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1136__SFRV_BODY.val, "SFRV_BODY", sizeof (meltcdat->dstr_1136__SFRV_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1136__SFRV_BODY.val, "SFRV_BODY", sizeof (meltcdat->dstr_1136__SFRV_BODY.val)-1); meltcdat->dstr_1136__SFRV_BODY.val[9] = (char)0 ; meltcdat->dstr_1136__SFRV_BODY.slen = 9 ; /*iniobj dsym_1137__CLASS_SOURCE_AGAIN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1231*/ meltfptr[1230]) + /*uniqueobj*/ if (!/*_._VALDATA___V1231*/ meltfptr[1230]) /*_._VALDATA___V1231*/ meltfptr[1230] = (melt_ptr_t )&meltcdat->dsym_1137__CLASS_SOURCE_AGAIN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1137__CLASS_SOURCE_AGAIN", 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_1137__CLASS_SOURCE_AGAIN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22357,19 +19817,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1138__CLASS_SOURCE_AGAIN*/ - /*_._VALSTR___V1232*/ - meltfptr[1231] = (melt_ptr_t) &meltcdat->dstr_1138__CLASS_SOURCE_AGAIN; + /*_._VALSTR___V1232*/ meltfptr[1231] = (melt_ptr_t) &meltcdat->dstr_1138__CLASS_SOURCE_AGAIN; meltcdat->dstr_1138__CLASS_SOURCE_AGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1138__CLASS_SOURCE_AGAIN.val, "CLASS_SOURCE_AGAIN", sizeof (meltcdat->dstr_1138__CLASS_SOURCE_AGAIN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1138__CLASS_SOURCE_AGAIN.val, "CLASS_SOURCE_AGAIN", sizeof (meltcdat->dstr_1138__CLASS_SOURCE_AGAIN.val)-1); meltcdat->dstr_1138__CLASS_SOURCE_AGAIN.val[18] = (char)0 ; meltcdat->dstr_1138__CLASS_SOURCE_AGAIN.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:1165:/ iniobj"); /*iniobj dobj_1139__CLASS_SOURCE_AGAIN*/ - /*_._VALDATA___V1233*/ - meltfptr[1232] = (melt_ptr_t )&meltcdat->dobj_1139__CLASS_SOURCE_AGAIN; + /*_._VALDATA___V1233*/ meltfptr[1232] = (melt_ptr_t )&meltcdat->dobj_1139__CLASS_SOURCE_AGAIN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1139__CLASS_SOURCE_AGAIN", 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_1139__CLASS_SOURCE_AGAIN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1139__CLASS_SOURCE_AGAIN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -22379,28 +19836,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1140__CLASS_SOURCE_AGAIN*/ - /*_._VALSTR___V1234*/ - meltfptr[1233] = (melt_ptr_t) &meltcdat->dstr_1140__CLASS_SOURCE_AGAIN; + /*_._VALSTR___V1234*/ meltfptr[1233] = (melt_ptr_t) &meltcdat->dstr_1140__CLASS_SOURCE_AGAIN; meltcdat->dstr_1140__CLASS_SOURCE_AGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1140__CLASS_SOURCE_AGAIN.val, "CLASS_SOURCE_AGAIN", sizeof (meltcdat->dstr_1140__CLASS_SOURCE_AGAIN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1140__CLASS_SOURCE_AGAIN.val, "CLASS_SOURCE_AGAIN", sizeof (meltcdat->dstr_1140__CLASS_SOURCE_AGAIN.val)-1); meltcdat->dstr_1140__CLASS_SOURCE_AGAIN.val[18] = (char)0 ; meltcdat->dstr_1140__CLASS_SOURCE_AGAIN.slen = 18 ; /*inimult dtup_1141_syCLASS_SOURCE_AGAIN*/ - /*_._VALTUP___V1235*/ - meltfptr[1234] = (melt_ptr_t) &meltcdat->dtup_1141_syCLASS_SOURCE_AGAIN; + /*_._VALTUP___V1235*/ meltfptr[1234] = (melt_ptr_t) &meltcdat->dtup_1141_syCLASS_SOURCE_AGAIN; meltcdat->dtup_1141_syCLASS_SOURCE_AGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1141_syCLASS_SOURCE_AGAIN.nbval = 5; /*inimult dtup_1142_syCLASS_SOURCE_AGAIN*/ - /*_._VALTUP___V1236*/ - meltfptr[1235] = (melt_ptr_t) &meltcdat->dtup_1142_syCLASS_SOURCE_AGAIN; + /*_._VALTUP___V1236*/ meltfptr[1235] = (melt_ptr_t) &meltcdat->dtup_1142_syCLASS_SOURCE_AGAIN; meltcdat->dtup_1142_syCLASS_SOURCE_AGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1142_syCLASS_SOURCE_AGAIN.nbval = 3; /*iniobj dsym_1143__CLASS_SOURCE_EXIT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1237*/ meltfptr[1236]) + /*uniqueobj*/ if (!/*_._VALDATA___V1237*/ meltfptr[1236]) /*_._VALDATA___V1237*/ meltfptr[1236] = (melt_ptr_t )&meltcdat->dsym_1143__CLASS_SOURCE_EXIT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1143__CLASS_SOURCE_EXIT", 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_1143__CLASS_SOURCE_EXIT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22410,19 +19862,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1144__CLASS_SOURCE_EXIT*/ - /*_._VALSTR___V1238*/ - meltfptr[1237] = (melt_ptr_t) &meltcdat->dstr_1144__CLASS_SOURCE_EXIT; + /*_._VALSTR___V1238*/ meltfptr[1237] = (melt_ptr_t) &meltcdat->dstr_1144__CLASS_SOURCE_EXIT; meltcdat->dstr_1144__CLASS_SOURCE_EXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1144__CLASS_SOURCE_EXIT.val, "CLASS_SOURCE_EXIT", sizeof (meltcdat->dstr_1144__CLASS_SOURCE_EXIT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1144__CLASS_SOURCE_EXIT.val, "CLASS_SOURCE_EXIT", sizeof (meltcdat->dstr_1144__CLASS_SOURCE_EXIT.val)-1); meltcdat->dstr_1144__CLASS_SOURCE_EXIT.val[17] = (char)0 ; meltcdat->dstr_1144__CLASS_SOURCE_EXIT.slen = 17 ; MELT_LOCATION("warmelt-macro.melt:1172:/ iniobj"); /*iniobj dobj_1145__CLASS_SOURCE_EXIT*/ - /*_._VALDATA___V1239*/ - meltfptr[1238] = (melt_ptr_t )&meltcdat->dobj_1145__CLASS_SOURCE_EXIT; + /*_._VALDATA___V1239*/ meltfptr[1238] = (melt_ptr_t )&meltcdat->dobj_1145__CLASS_SOURCE_EXIT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1145__CLASS_SOURCE_EXIT", 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_1145__CLASS_SOURCE_EXIT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1145__CLASS_SOURCE_EXIT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -22432,28 +19881,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1146__CLASS_SOURCE_EXIT*/ - /*_._VALSTR___V1240*/ - meltfptr[1239] = (melt_ptr_t) &meltcdat->dstr_1146__CLASS_SOURCE_EXIT; + /*_._VALSTR___V1240*/ meltfptr[1239] = (melt_ptr_t) &meltcdat->dstr_1146__CLASS_SOURCE_EXIT; meltcdat->dstr_1146__CLASS_SOURCE_EXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1146__CLASS_SOURCE_EXIT.val, "CLASS_SOURCE_EXIT", sizeof (meltcdat->dstr_1146__CLASS_SOURCE_EXIT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1146__CLASS_SOURCE_EXIT.val, "CLASS_SOURCE_EXIT", sizeof (meltcdat->dstr_1146__CLASS_SOURCE_EXIT.val)-1); meltcdat->dstr_1146__CLASS_SOURCE_EXIT.val[17] = (char)0 ; meltcdat->dstr_1146__CLASS_SOURCE_EXIT.slen = 17 ; /*inimult dtup_1147_syCLASS_SOURCE_EXIT*/ - /*_._VALTUP___V1241*/ - meltfptr[1240] = (melt_ptr_t) &meltcdat->dtup_1147_syCLASS_SOURCE_EXIT; + /*_._VALTUP___V1241*/ meltfptr[1240] = (melt_ptr_t) &meltcdat->dtup_1147_syCLASS_SOURCE_EXIT; meltcdat->dtup_1147_syCLASS_SOURCE_EXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1147_syCLASS_SOURCE_EXIT.nbval = 5; /*inimult dtup_1148_syCLASS_SOURCE_EXIT*/ - /*_._VALTUP___V1244*/ - meltfptr[1243] = (melt_ptr_t) &meltcdat->dtup_1148_syCLASS_SOURCE_EXIT; + /*_._VALTUP___V1244*/ meltfptr[1243] = (melt_ptr_t) &meltcdat->dtup_1148_syCLASS_SOURCE_EXIT; meltcdat->dtup_1148_syCLASS_SOURCE_EXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1148_syCLASS_SOURCE_EXIT.nbval = 4; /*iniobj dsym_1149__SEXI_BODY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1245*/ meltfptr[1244]) + /*uniqueobj*/ if (!/*_._VALDATA___V1245*/ meltfptr[1244]) /*_._VALDATA___V1245*/ meltfptr[1244] = (melt_ptr_t )&meltcdat->dsym_1149__SEXI_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1149__SEXI_BODY", 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_1149__SEXI_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22463,19 +19907,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1150__SEXI_BODY*/ - /*_._VALSTR___V1246*/ - meltfptr[1245] = (melt_ptr_t) &meltcdat->dstr_1150__SEXI_BODY; + /*_._VALSTR___V1246*/ meltfptr[1245] = (melt_ptr_t) &meltcdat->dstr_1150__SEXI_BODY; meltcdat->dstr_1150__SEXI_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1150__SEXI_BODY.val, "SEXI_BODY", sizeof (meltcdat->dstr_1150__SEXI_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1150__SEXI_BODY.val, "SEXI_BODY", sizeof (meltcdat->dstr_1150__SEXI_BODY.val)-1); meltcdat->dstr_1150__SEXI_BODY.val[9] = (char)0 ; meltcdat->dstr_1150__SEXI_BODY.slen = 9 ; /*^iniobj*/ /*iniobj dobj_1151__SEXI_BODY*/ - /*_._VALDATA___V1242*/ - meltfptr[1241] = (melt_ptr_t )&meltcdat->dobj_1151__SEXI_BODY; + /*_._VALDATA___V1242*/ meltfptr[1241] = (melt_ptr_t )&meltcdat->dobj_1151__SEXI_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1151__SEXI_BODY", 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_1151__SEXI_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1151__SEXI_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -22485,18 +19926,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1152__SEXI_BODY*/ - /*_._VALSTR___V1243*/ - meltfptr[1242] = (melt_ptr_t) &meltcdat->dstr_1152__SEXI_BODY; + /*_._VALSTR___V1243*/ meltfptr[1242] = (melt_ptr_t) &meltcdat->dstr_1152__SEXI_BODY; meltcdat->dstr_1152__SEXI_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1152__SEXI_BODY.val, "SEXI_BODY", sizeof (meltcdat->dstr_1152__SEXI_BODY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1152__SEXI_BODY.val, "SEXI_BODY", sizeof (meltcdat->dstr_1152__SEXI_BODY.val)-1); meltcdat->dstr_1152__SEXI_BODY.val[9] = (char)0 ; meltcdat->dstr_1152__SEXI_BODY.slen = 9 ; /*iniobj dsym_1153__CLASS_SOURCE_COMPILEWARNING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1247*/ meltfptr[1246]) + /*uniqueobj*/ if (!/*_._VALDATA___V1247*/ meltfptr[1246]) /*_._VALDATA___V1247*/ meltfptr[1246] = (melt_ptr_t )&meltcdat->dsym_1153__CLASS_SOURCE_COMPILEWARNING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1153__CLASS_SOURCE_COMPILEWARNING", 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_1153__CLASS_SOURCE_COMPILEWARNING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22506,19 +19944,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1154__CLASS_SOURCE_COMPILEWARN*/ - /*_._VALSTR___V1248*/ - meltfptr[1247] = (melt_ptr_t) &meltcdat->dstr_1154__CLASS_SOURCE_COMPILEWARN; + /*_._VALSTR___V1248*/ meltfptr[1247] = (melt_ptr_t) &meltcdat->dstr_1154__CLASS_SOURCE_COMPILEWARN; meltcdat->dstr_1154__CLASS_SOURCE_COMPILEWARN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1154__CLASS_SOURCE_COMPILEWARN.val, "CLASS_SOURCE_COMPILEWARNING", sizeof (meltcdat->dstr_1154__CLASS_SOURCE_COMPILEWARN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1154__CLASS_SOURCE_COMPILEWARN.val, "CLASS_SOURCE_COMPILEWARNING", sizeof (meltcdat->dstr_1154__CLASS_SOURCE_COMPILEWARN.val)-1); meltcdat->dstr_1154__CLASS_SOURCE_COMPILEWARN.val[27] = (char)0 ; meltcdat->dstr_1154__CLASS_SOURCE_COMPILEWARN.slen = 27 ; MELT_LOCATION("warmelt-macro.melt:1181:/ iniobj"); /*iniobj dobj_1155__CLASS_SOURCE_COMPILEWARNING*/ - /*_._VALDATA___V1249*/ - meltfptr[1248] = (melt_ptr_t )&meltcdat->dobj_1155__CLASS_SOURCE_COMPILEWARNING; + /*_._VALDATA___V1249*/ meltfptr[1248] = (melt_ptr_t )&meltcdat->dobj_1155__CLASS_SOURCE_COMPILEWARNING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1155__CLASS_SOURCE_COMPILEWARNING", 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_1155__CLASS_SOURCE_COMPILEWARNING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1155__CLASS_SOURCE_COMPILEWARNING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -22528,28 +19963,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1156__CLASS_SOURCE_COMPILEWARN*/ - /*_._VALSTR___V1250*/ - meltfptr[1249] = (melt_ptr_t) &meltcdat->dstr_1156__CLASS_SOURCE_COMPILEWARN; + /*_._VALSTR___V1250*/ meltfptr[1249] = (melt_ptr_t) &meltcdat->dstr_1156__CLASS_SOURCE_COMPILEWARN; meltcdat->dstr_1156__CLASS_SOURCE_COMPILEWARN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1156__CLASS_SOURCE_COMPILEWARN.val, "CLASS_SOURCE_COMPILEWARNING", sizeof (meltcdat->dstr_1156__CLASS_SOURCE_COMPILEWARN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1156__CLASS_SOURCE_COMPILEWARN.val, "CLASS_SOURCE_COMPILEWARNING", sizeof (meltcdat->dstr_1156__CLASS_SOURCE_COMPILEWARN.val)-1); meltcdat->dstr_1156__CLASS_SOURCE_COMPILEWARN.val[27] = (char)0 ; meltcdat->dstr_1156__CLASS_SOURCE_COMPILEWARN.slen = 27 ; /*inimult dtup_1157_syCLASS_SOURCE_COMPILEWARNING*/ - /*_._VALTUP___V1251*/ - meltfptr[1250] = (melt_ptr_t) &meltcdat->dtup_1157_syCLASS_SOURCE_COMPILEWARNING; + /*_._VALTUP___V1251*/ meltfptr[1250] = (melt_ptr_t) &meltcdat->dtup_1157_syCLASS_SOURCE_COMPILEWARNING; meltcdat->dtup_1157_syCLASS_SOURCE_COMPILEWARNING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1157_syCLASS_SOURCE_COMPILEWARNING.nbval = 4; /*inimult dtup_1158_syCLASS_SOURCE_COMPILEWARNING*/ - /*_._VALTUP___V1256*/ - meltfptr[1255] = (melt_ptr_t) &meltcdat->dtup_1158_syCLASS_SOURCE_COMPILEWARNING; + /*_._VALTUP___V1256*/ meltfptr[1255] = (melt_ptr_t) &meltcdat->dtup_1158_syCLASS_SOURCE_COMPILEWARNING; meltcdat->dtup_1158_syCLASS_SOURCE_COMPILEWARNING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1158_syCLASS_SOURCE_COMPILEWARNING.nbval = 4; /*iniobj dsym_1159__SCWARN_MSG*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1257*/ meltfptr[1256]) + /*uniqueobj*/ if (!/*_._VALDATA___V1257*/ meltfptr[1256]) /*_._VALDATA___V1257*/ meltfptr[1256] = (melt_ptr_t )&meltcdat->dsym_1159__SCWARN_MSG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1159__SCWARN_MSG", 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_1159__SCWARN_MSG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22559,19 +19989,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1160__SCWARN_MSG*/ - /*_._VALSTR___V1258*/ - meltfptr[1257] = (melt_ptr_t) &meltcdat->dstr_1160__SCWARN_MSG; + /*_._VALSTR___V1258*/ meltfptr[1257] = (melt_ptr_t) &meltcdat->dstr_1160__SCWARN_MSG; meltcdat->dstr_1160__SCWARN_MSG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1160__SCWARN_MSG.val, "SCWARN_MSG", sizeof (meltcdat->dstr_1160__SCWARN_MSG.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1160__SCWARN_MSG.val, "SCWARN_MSG", sizeof (meltcdat->dstr_1160__SCWARN_MSG.val)-1); meltcdat->dstr_1160__SCWARN_MSG.val[10] = (char)0 ; meltcdat->dstr_1160__SCWARN_MSG.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1161__SCWARN_MSG*/ - /*_._VALDATA___V1252*/ - meltfptr[1251] = (melt_ptr_t )&meltcdat->dobj_1161__SCWARN_MSG; + /*_._VALDATA___V1252*/ meltfptr[1251] = (melt_ptr_t )&meltcdat->dobj_1161__SCWARN_MSG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1161__SCWARN_MSG", 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_1161__SCWARN_MSG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1161__SCWARN_MSG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -22581,18 +20008,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1162__SCWARN_MSG*/ - /*_._VALSTR___V1253*/ - meltfptr[1252] = (melt_ptr_t) &meltcdat->dstr_1162__SCWARN_MSG; + /*_._VALSTR___V1253*/ meltfptr[1252] = (melt_ptr_t) &meltcdat->dstr_1162__SCWARN_MSG; meltcdat->dstr_1162__SCWARN_MSG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1162__SCWARN_MSG.val, "SCWARN_MSG", sizeof (meltcdat->dstr_1162__SCWARN_MSG.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1162__SCWARN_MSG.val, "SCWARN_MSG", sizeof (meltcdat->dstr_1162__SCWARN_MSG.val)-1); meltcdat->dstr_1162__SCWARN_MSG.val[10] = (char)0 ; meltcdat->dstr_1162__SCWARN_MSG.slen = 10 ; /*iniobj dsym_1163__SCWARN_EXPR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1259*/ meltfptr[1258]) + /*uniqueobj*/ if (!/*_._VALDATA___V1259*/ meltfptr[1258]) /*_._VALDATA___V1259*/ meltfptr[1258] = (melt_ptr_t )&meltcdat->dsym_1163__SCWARN_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1163__SCWARN_EXPR", 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_1163__SCWARN_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22602,19 +20026,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1164__SCWARN_EXPR*/ - /*_._VALSTR___V1260*/ - meltfptr[1259] = (melt_ptr_t) &meltcdat->dstr_1164__SCWARN_EXPR; + /*_._VALSTR___V1260*/ meltfptr[1259] = (melt_ptr_t) &meltcdat->dstr_1164__SCWARN_EXPR; meltcdat->dstr_1164__SCWARN_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1164__SCWARN_EXPR.val, "SCWARN_EXPR", sizeof (meltcdat->dstr_1164__SCWARN_EXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1164__SCWARN_EXPR.val, "SCWARN_EXPR", sizeof (meltcdat->dstr_1164__SCWARN_EXPR.val)-1); meltcdat->dstr_1164__SCWARN_EXPR.val[11] = (char)0 ; meltcdat->dstr_1164__SCWARN_EXPR.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1165__SCWARN_EXPR*/ - /*_._VALDATA___V1254*/ - meltfptr[1253] = (melt_ptr_t )&meltcdat->dobj_1165__SCWARN_EXPR; + /*_._VALDATA___V1254*/ meltfptr[1253] = (melt_ptr_t )&meltcdat->dobj_1165__SCWARN_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1165__SCWARN_EXPR", 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_1165__SCWARN_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1165__SCWARN_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -22624,18 +20045,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1166__SCWARN_EXPR*/ - /*_._VALSTR___V1255*/ - meltfptr[1254] = (melt_ptr_t) &meltcdat->dstr_1166__SCWARN_EXPR; + /*_._VALSTR___V1255*/ meltfptr[1254] = (melt_ptr_t) &meltcdat->dstr_1166__SCWARN_EXPR; meltcdat->dstr_1166__SCWARN_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1166__SCWARN_EXPR.val, "SCWARN_EXPR", sizeof (meltcdat->dstr_1166__SCWARN_EXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1166__SCWARN_EXPR.val, "SCWARN_EXPR", sizeof (meltcdat->dstr_1166__SCWARN_EXPR.val)-1); meltcdat->dstr_1166__SCWARN_EXPR.val[11] = (char)0 ; meltcdat->dstr_1166__SCWARN_EXPR.slen = 11 ; /*iniobj dsym_1167__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1261*/ meltfptr[1260]) + /*uniqueobj*/ if (!/*_._VALDATA___V1261*/ meltfptr[1260]) /*_._VALDATA___V1261*/ meltfptr[1260] = (melt_ptr_t )&meltcdat->dsym_1167__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1167__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_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_1167__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22645,19 +20063,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1168__CLASS_SOURCE_CURRENT_MOD*/ - /*_._VALSTR___V1262*/ - meltfptr[1261] = (melt_ptr_t) &meltcdat->dstr_1168__CLASS_SOURCE_CURRENT_MOD; + /*_._VALSTR___V1262*/ meltfptr[1261] = (melt_ptr_t) &meltcdat->dstr_1168__CLASS_SOURCE_CURRENT_MOD; meltcdat->dstr_1168__CLASS_SOURCE_CURRENT_MOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1168__CLASS_SOURCE_CURRENT_MOD.val, "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_1168__CLASS_SOURCE_CURRENT_MOD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1168__CLASS_SOURCE_CURRENT_MOD.val, "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_1168__CLASS_SOURCE_CURRENT_MOD.val)-1); meltcdat->dstr_1168__CLASS_SOURCE_CURRENT_MOD.val[49] = (char)0 ; meltcdat->dstr_1168__CLASS_SOURCE_CURRENT_MOD.slen = 49 ; MELT_LOCATION("warmelt-macro.melt:1188:/ iniobj"); /*iniobj dobj_1169__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /*_._VALDATA___V1263*/ - meltfptr[1262] = (melt_ptr_t )&meltcdat->dobj_1169__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; + /*_._VALDATA___V1263*/ meltfptr[1262] = (melt_ptr_t )&meltcdat->dobj_1169__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1169__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", 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_1169__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1169__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -22667,28 +20082,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1170__CLASS_SOURCE_CURRENT_MOD*/ - /*_._VALSTR___V1264*/ - meltfptr[1263] = (melt_ptr_t) &meltcdat->dstr_1170__CLASS_SOURCE_CURRENT_MOD; + /*_._VALSTR___V1264*/ meltfptr[1263] = (melt_ptr_t) &meltcdat->dstr_1170__CLASS_SOURCE_CURRENT_MOD; meltcdat->dstr_1170__CLASS_SOURCE_CURRENT_MOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1170__CLASS_SOURCE_CURRENT_MOD.val, "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_1170__CLASS_SOURCE_CURRENT_MOD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1170__CLASS_SOURCE_CURRENT_MOD.val, "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_1170__CLASS_SOURCE_CURRENT_MOD.val)-1); meltcdat->dstr_1170__CLASS_SOURCE_CURRENT_MOD.val[49] = (char)0 ; meltcdat->dstr_1170__CLASS_SOURCE_CURRENT_MOD.slen = 49 ; /*inimult dtup_1171_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /*_._VALTUP___V1265*/ - meltfptr[1264] = (melt_ptr_t) &meltcdat->dtup_1171_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; + /*_._VALTUP___V1265*/ meltfptr[1264] = (melt_ptr_t) &meltcdat->dtup_1171_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->dtup_1171_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1171_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 4; /*inimult dtup_1172_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /*_._VALTUP___V1268*/ - meltfptr[1267] = (melt_ptr_t) &meltcdat->dtup_1172_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; + /*_._VALTUP___V1268*/ meltfptr[1267] = (melt_ptr_t) &meltcdat->dtup_1172_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->dtup_1172_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1172_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 3; /*iniobj dsym_1173__CMEC_COMMENT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1269*/ meltfptr[1268]) + /*uniqueobj*/ if (!/*_._VALDATA___V1269*/ meltfptr[1268]) /*_._VALDATA___V1269*/ meltfptr[1268] = (melt_ptr_t )&meltcdat->dsym_1173__CMEC_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1173__CMEC_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_1173__CMEC_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22698,19 +20108,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1174__CMEC_COMMENT*/ - /*_._VALSTR___V1270*/ - meltfptr[1269] = (melt_ptr_t) &meltcdat->dstr_1174__CMEC_COMMENT; + /*_._VALSTR___V1270*/ meltfptr[1269] = (melt_ptr_t) &meltcdat->dstr_1174__CMEC_COMMENT; meltcdat->dstr_1174__CMEC_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1174__CMEC_COMMENT.val, "CMEC_COMMENT", sizeof (meltcdat->dstr_1174__CMEC_COMMENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1174__CMEC_COMMENT.val, "CMEC_COMMENT", sizeof (meltcdat->dstr_1174__CMEC_COMMENT.val)-1); meltcdat->dstr_1174__CMEC_COMMENT.val[12] = (char)0 ; meltcdat->dstr_1174__CMEC_COMMENT.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1175__CMEC_COMMENT*/ - /*_._VALDATA___V1266*/ - meltfptr[1265] = (melt_ptr_t )&meltcdat->dobj_1175__CMEC_COMMENT; + /*_._VALDATA___V1266*/ meltfptr[1265] = (melt_ptr_t )&meltcdat->dobj_1175__CMEC_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1175__CMEC_COMMENT", 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_1175__CMEC_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1175__CMEC_COMMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -22720,18 +20127,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1176__CMEC_COMMENT*/ - /*_._VALSTR___V1267*/ - meltfptr[1266] = (melt_ptr_t) &meltcdat->dstr_1176__CMEC_COMMENT; + /*_._VALSTR___V1267*/ meltfptr[1266] = (melt_ptr_t) &meltcdat->dstr_1176__CMEC_COMMENT; meltcdat->dstr_1176__CMEC_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1176__CMEC_COMMENT.val, "CMEC_COMMENT", sizeof (meltcdat->dstr_1176__CMEC_COMMENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1176__CMEC_COMMENT.val, "CMEC_COMMENT", sizeof (meltcdat->dstr_1176__CMEC_COMMENT.val)-1); meltcdat->dstr_1176__CMEC_COMMENT.val[12] = (char)0 ; meltcdat->dstr_1176__CMEC_COMMENT.slen = 12 ; /*iniobj dsym_1177__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1271*/ meltfptr[1270]) + /*uniqueobj*/ if (!/*_._VALDATA___V1271*/ meltfptr[1270]) /*_._VALDATA___V1271*/ meltfptr[1270] = (melt_ptr_t )&meltcdat->dsym_1177__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1177__CLASS_SOURCE_PARENT_MODULE_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_1177__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22741,19 +20145,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1178__CLASS_SOURCE_PARENT_MODU*/ - /*_._VALSTR___V1272*/ - meltfptr[1271] = (melt_ptr_t) &meltcdat->dstr_1178__CLASS_SOURCE_PARENT_MODU; + /*_._VALSTR___V1272*/ meltfptr[1271] = (melt_ptr_t) &meltcdat->dstr_1178__CLASS_SOURCE_PARENT_MODU; meltcdat->dstr_1178__CLASS_SOURCE_PARENT_MODU.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1178__CLASS_SOURCE_PARENT_MODU.val, "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", sizeof (meltcdat->dstr_1178__CLASS_SOURCE_PARENT_MODU.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1178__CLASS_SOURCE_PARENT_MODU.val, "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", sizeof (meltcdat->dstr_1178__CLASS_SOURCE_PARENT_MODU.val)-1); meltcdat->dstr_1178__CLASS_SOURCE_PARENT_MODU.val[38] = (char)0 ; meltcdat->dstr_1178__CLASS_SOURCE_PARENT_MODU.slen = 38 ; MELT_LOCATION("warmelt-macro.melt:1196:/ iniobj"); /*iniobj dobj_1179__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ - /*_._VALDATA___V1273*/ - meltfptr[1272] = (melt_ptr_t )&meltcdat->dobj_1179__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; + /*_._VALDATA___V1273*/ meltfptr[1272] = (melt_ptr_t )&meltcdat->dobj_1179__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1179__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", 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_1179__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1179__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -22763,28 +20164,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1180__CLASS_SOURCE_PARENT_MODU*/ - /*_._VALSTR___V1274*/ - meltfptr[1273] = (melt_ptr_t) &meltcdat->dstr_1180__CLASS_SOURCE_PARENT_MODU; + /*_._VALSTR___V1274*/ meltfptr[1273] = (melt_ptr_t) &meltcdat->dstr_1180__CLASS_SOURCE_PARENT_MODU; meltcdat->dstr_1180__CLASS_SOURCE_PARENT_MODU.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1180__CLASS_SOURCE_PARENT_MODU.val, "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", sizeof (meltcdat->dstr_1180__CLASS_SOURCE_PARENT_MODU.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1180__CLASS_SOURCE_PARENT_MODU.val, "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", sizeof (meltcdat->dstr_1180__CLASS_SOURCE_PARENT_MODU.val)-1); meltcdat->dstr_1180__CLASS_SOURCE_PARENT_MODU.val[38] = (char)0 ; meltcdat->dstr_1180__CLASS_SOURCE_PARENT_MODU.slen = 38 ; /*inimult dtup_1181_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ - /*_._VALTUP___V1275*/ - meltfptr[1274] = (melt_ptr_t) &meltcdat->dtup_1181_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; + /*_._VALTUP___V1275*/ meltfptr[1274] = (melt_ptr_t) &meltcdat->dtup_1181_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; meltcdat->dtup_1181_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1181_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.nbval = 4; /*inimult dtup_1182_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ - /*_._VALTUP___V1276*/ - meltfptr[1275] = (melt_ptr_t) &meltcdat->dtup_1182_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; + /*_._VALTUP___V1276*/ meltfptr[1275] = (melt_ptr_t) &meltcdat->dtup_1182_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; meltcdat->dtup_1182_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1182_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.nbval = 2; /*iniobj dsym_1183__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1277*/ meltfptr[1276]) + /*uniqueobj*/ if (!/*_._VALDATA___V1277*/ meltfptr[1276]) /*_._VALDATA___V1277*/ meltfptr[1276] = (melt_ptr_t )&meltcdat->dsym_1183__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1183__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_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_1183__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22794,19 +20190,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1184__CLASS_SOURCE_UPDATE_CURR*/ - /*_._VALSTR___V1278*/ - meltfptr[1277] = (melt_ptr_t) &meltcdat->dstr_1184__CLASS_SOURCE_UPDATE_CURR; + /*_._VALSTR___V1278*/ meltfptr[1277] = (melt_ptr_t) &meltcdat->dstr_1184__CLASS_SOURCE_UPDATE_CURR; meltcdat->dstr_1184__CLASS_SOURCE_UPDATE_CURR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1184__CLASS_SOURCE_UPDATE_CURR.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_1184__CLASS_SOURCE_UPDATE_CURR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1184__CLASS_SOURCE_UPDATE_CURR.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_1184__CLASS_SOURCE_UPDATE_CURR.val)-1); meltcdat->dstr_1184__CLASS_SOURCE_UPDATE_CURR.val[56] = (char)0 ; meltcdat->dstr_1184__CLASS_SOURCE_UPDATE_CURR.slen = 56 ; MELT_LOCATION("warmelt-macro.melt:1204:/ iniobj"); /*iniobj dobj_1185__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /*_._VALDATA___V1279*/ - meltfptr[1278] = (melt_ptr_t )&meltcdat->dobj_1185__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; + /*_._VALDATA___V1279*/ meltfptr[1278] = (melt_ptr_t )&meltcdat->dobj_1185__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1185__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", 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_1185__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1185__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -22816,28 +20209,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1186__CLASS_SOURCE_UPDATE_CURR*/ - /*_._VALSTR___V1280*/ - meltfptr[1279] = (melt_ptr_t) &meltcdat->dstr_1186__CLASS_SOURCE_UPDATE_CURR; + /*_._VALSTR___V1280*/ meltfptr[1279] = (melt_ptr_t) &meltcdat->dstr_1186__CLASS_SOURCE_UPDATE_CURR; meltcdat->dstr_1186__CLASS_SOURCE_UPDATE_CURR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1186__CLASS_SOURCE_UPDATE_CURR.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_1186__CLASS_SOURCE_UPDATE_CURR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1186__CLASS_SOURCE_UPDATE_CURR.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_1186__CLASS_SOURCE_UPDATE_CURR.val)-1); meltcdat->dstr_1186__CLASS_SOURCE_UPDATE_CURR.val[56] = (char)0 ; meltcdat->dstr_1186__CLASS_SOURCE_UPDATE_CURR.slen = 56 ; /*inimult dtup_1187_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /*_._VALTUP___V1281*/ - meltfptr[1280] = (melt_ptr_t) &meltcdat->dtup_1187_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; + /*_._VALTUP___V1281*/ meltfptr[1280] = (melt_ptr_t) &meltcdat->dtup_1187_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->dtup_1187_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1187_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 4; /*inimult dtup_1188_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /*_._VALTUP___V1284*/ - meltfptr[1283] = (melt_ptr_t) &meltcdat->dtup_1188_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; + /*_._VALTUP___V1284*/ meltfptr[1283] = (melt_ptr_t) &meltcdat->dtup_1188_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->dtup_1188_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1188_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 3; /*iniobj dsym_1189__SUCME_COMMENT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1285*/ meltfptr[1284]) + /*uniqueobj*/ if (!/*_._VALDATA___V1285*/ meltfptr[1284]) /*_._VALDATA___V1285*/ meltfptr[1284] = (melt_ptr_t )&meltcdat->dsym_1189__SUCME_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1189__SUCME_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_1189__SUCME_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22847,19 +20235,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1190__SUCME_COMMENT*/ - /*_._VALSTR___V1286*/ - meltfptr[1285] = (melt_ptr_t) &meltcdat->dstr_1190__SUCME_COMMENT; + /*_._VALSTR___V1286*/ meltfptr[1285] = (melt_ptr_t) &meltcdat->dstr_1190__SUCME_COMMENT; meltcdat->dstr_1190__SUCME_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1190__SUCME_COMMENT.val, "SUCME_COMMENT", sizeof (meltcdat->dstr_1190__SUCME_COMMENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1190__SUCME_COMMENT.val, "SUCME_COMMENT", sizeof (meltcdat->dstr_1190__SUCME_COMMENT.val)-1); meltcdat->dstr_1190__SUCME_COMMENT.val[13] = (char)0 ; meltcdat->dstr_1190__SUCME_COMMENT.slen = 13 ; /*^iniobj*/ /*iniobj dobj_1191__SUCME_COMMENT*/ - /*_._VALDATA___V1282*/ - meltfptr[1281] = (melt_ptr_t )&meltcdat->dobj_1191__SUCME_COMMENT; + /*_._VALDATA___V1282*/ meltfptr[1281] = (melt_ptr_t )&meltcdat->dobj_1191__SUCME_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1191__SUCME_COMMENT", 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_1191__SUCME_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1191__SUCME_COMMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -22869,18 +20254,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1192__SUCME_COMMENT*/ - /*_._VALSTR___V1283*/ - meltfptr[1282] = (melt_ptr_t) &meltcdat->dstr_1192__SUCME_COMMENT; + /*_._VALSTR___V1283*/ meltfptr[1282] = (melt_ptr_t) &meltcdat->dstr_1192__SUCME_COMMENT; meltcdat->dstr_1192__SUCME_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1192__SUCME_COMMENT.val, "SUCME_COMMENT", sizeof (meltcdat->dstr_1192__SUCME_COMMENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1192__SUCME_COMMENT.val, "SUCME_COMMENT", sizeof (meltcdat->dstr_1192__SUCME_COMMENT.val)-1); meltcdat->dstr_1192__SUCME_COMMENT.val[13] = (char)0 ; meltcdat->dstr_1192__SUCME_COMMENT.slen = 13 ; /*iniobj dsym_1193__CLASS_SOURCE_FETCH_PREDEFINED*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1287*/ meltfptr[1286]) + /*uniqueobj*/ if (!/*_._VALDATA___V1287*/ meltfptr[1286]) /*_._VALDATA___V1287*/ meltfptr[1286] = (melt_ptr_t )&meltcdat->dsym_1193__CLASS_SOURCE_FETCH_PREDEFINED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1193__CLASS_SOURCE_FETCH_PREDEFINED", 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_1193__CLASS_SOURCE_FETCH_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22890,19 +20272,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1194__CLASS_SOURCE_FETCH_PREDE*/ - /*_._VALSTR___V1288*/ - meltfptr[1287] = (melt_ptr_t) &meltcdat->dstr_1194__CLASS_SOURCE_FETCH_PREDE; + /*_._VALSTR___V1288*/ meltfptr[1287] = (melt_ptr_t) &meltcdat->dstr_1194__CLASS_SOURCE_FETCH_PREDE; meltcdat->dstr_1194__CLASS_SOURCE_FETCH_PREDE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1194__CLASS_SOURCE_FETCH_PREDE.val, "CLASS_SOURCE_FETCH_PREDEFINED", sizeof (meltcdat->dstr_1194__CLASS_SOURCE_FETCH_PREDE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1194__CLASS_SOURCE_FETCH_PREDE.val, "CLASS_SOURCE_FETCH_PREDEFINED", sizeof (meltcdat->dstr_1194__CLASS_SOURCE_FETCH_PREDE.val)-1); meltcdat->dstr_1194__CLASS_SOURCE_FETCH_PREDE.val[29] = (char)0 ; meltcdat->dstr_1194__CLASS_SOURCE_FETCH_PREDE.slen = 29 ; MELT_LOCATION("warmelt-macro.melt:1213:/ iniobj"); /*iniobj dobj_1195__CLASS_SOURCE_FETCH_PREDEFINED*/ - /*_._VALDATA___V1289*/ - meltfptr[1288] = (melt_ptr_t )&meltcdat->dobj_1195__CLASS_SOURCE_FETCH_PREDEFINED; + /*_._VALDATA___V1289*/ meltfptr[1288] = (melt_ptr_t )&meltcdat->dobj_1195__CLASS_SOURCE_FETCH_PREDEFINED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1195__CLASS_SOURCE_FETCH_PREDEFINED", 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_1195__CLASS_SOURCE_FETCH_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1195__CLASS_SOURCE_FETCH_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -22912,28 +20291,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1196__CLASS_SOURCE_FETCH_PREDE*/ - /*_._VALSTR___V1290*/ - meltfptr[1289] = (melt_ptr_t) &meltcdat->dstr_1196__CLASS_SOURCE_FETCH_PREDE; + /*_._VALSTR___V1290*/ meltfptr[1289] = (melt_ptr_t) &meltcdat->dstr_1196__CLASS_SOURCE_FETCH_PREDE; meltcdat->dstr_1196__CLASS_SOURCE_FETCH_PREDE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1196__CLASS_SOURCE_FETCH_PREDE.val, "CLASS_SOURCE_FETCH_PREDEFINED", sizeof (meltcdat->dstr_1196__CLASS_SOURCE_FETCH_PREDE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1196__CLASS_SOURCE_FETCH_PREDE.val, "CLASS_SOURCE_FETCH_PREDEFINED", sizeof (meltcdat->dstr_1196__CLASS_SOURCE_FETCH_PREDE.val)-1); meltcdat->dstr_1196__CLASS_SOURCE_FETCH_PREDE.val[29] = (char)0 ; meltcdat->dstr_1196__CLASS_SOURCE_FETCH_PREDE.slen = 29 ; /*inimult dtup_1197_syCLASS_SOURCE_FETCH_PREDEFINED*/ - /*_._VALTUP___V1291*/ - meltfptr[1290] = (melt_ptr_t) &meltcdat->dtup_1197_syCLASS_SOURCE_FETCH_PREDEFINED; + /*_._VALTUP___V1291*/ meltfptr[1290] = (melt_ptr_t) &meltcdat->dtup_1197_syCLASS_SOURCE_FETCH_PREDEFINED; meltcdat->dtup_1197_syCLASS_SOURCE_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1197_syCLASS_SOURCE_FETCH_PREDEFINED.nbval = 4; /*inimult dtup_1198_syCLASS_SOURCE_FETCH_PREDEFINED*/ - /*_._VALTUP___V1294*/ - meltfptr[1293] = (melt_ptr_t) &meltcdat->dtup_1198_syCLASS_SOURCE_FETCH_PREDEFINED; + /*_._VALTUP___V1294*/ meltfptr[1293] = (melt_ptr_t) &meltcdat->dtup_1198_syCLASS_SOURCE_FETCH_PREDEFINED; meltcdat->dtup_1198_syCLASS_SOURCE_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1198_syCLASS_SOURCE_FETCH_PREDEFINED.nbval = 3; /*iniobj dsym_1199__SFEPD_PREDEF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1295*/ meltfptr[1294]) + /*uniqueobj*/ if (!/*_._VALDATA___V1295*/ meltfptr[1294]) /*_._VALDATA___V1295*/ meltfptr[1294] = (melt_ptr_t )&meltcdat->dsym_1199__SFEPD_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1199__SFEPD_PREDEF", 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_1199__SFEPD_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22943,19 +20317,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1200__SFEPD_PREDEF*/ - /*_._VALSTR___V1296*/ - meltfptr[1295] = (melt_ptr_t) &meltcdat->dstr_1200__SFEPD_PREDEF; + /*_._VALSTR___V1296*/ meltfptr[1295] = (melt_ptr_t) &meltcdat->dstr_1200__SFEPD_PREDEF; meltcdat->dstr_1200__SFEPD_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1200__SFEPD_PREDEF.val, "SFEPD_PREDEF", sizeof (meltcdat->dstr_1200__SFEPD_PREDEF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1200__SFEPD_PREDEF.val, "SFEPD_PREDEF", sizeof (meltcdat->dstr_1200__SFEPD_PREDEF.val)-1); meltcdat->dstr_1200__SFEPD_PREDEF.val[12] = (char)0 ; meltcdat->dstr_1200__SFEPD_PREDEF.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1201__SFEPD_PREDEF*/ - /*_._VALDATA___V1292*/ - meltfptr[1291] = (melt_ptr_t )&meltcdat->dobj_1201__SFEPD_PREDEF; + /*_._VALDATA___V1292*/ meltfptr[1291] = (melt_ptr_t )&meltcdat->dobj_1201__SFEPD_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1201__SFEPD_PREDEF", 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_1201__SFEPD_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1201__SFEPD_PREDEF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -22965,18 +20336,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1202__SFEPD_PREDEF*/ - /*_._VALSTR___V1293*/ - meltfptr[1292] = (melt_ptr_t) &meltcdat->dstr_1202__SFEPD_PREDEF; + /*_._VALSTR___V1293*/ meltfptr[1292] = (melt_ptr_t) &meltcdat->dstr_1202__SFEPD_PREDEF; meltcdat->dstr_1202__SFEPD_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1202__SFEPD_PREDEF.val, "SFEPD_PREDEF", sizeof (meltcdat->dstr_1202__SFEPD_PREDEF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1202__SFEPD_PREDEF.val, "SFEPD_PREDEF", sizeof (meltcdat->dstr_1202__SFEPD_PREDEF.val)-1); meltcdat->dstr_1202__SFEPD_PREDEF.val[12] = (char)0 ; meltcdat->dstr_1202__SFEPD_PREDEF.slen = 12 ; /*iniobj dsym_1203__CLASS_SOURCE_STORE_PREDEFINED*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1297*/ meltfptr[1296]) + /*uniqueobj*/ if (!/*_._VALDATA___V1297*/ meltfptr[1296]) /*_._VALDATA___V1297*/ meltfptr[1296] = (melt_ptr_t )&meltcdat->dsym_1203__CLASS_SOURCE_STORE_PREDEFINED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1203__CLASS_SOURCE_STORE_PREDEFINED", 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_1203__CLASS_SOURCE_STORE_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -22986,19 +20354,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1204__CLASS_SOURCE_STORE_PREDE*/ - /*_._VALSTR___V1298*/ - meltfptr[1297] = (melt_ptr_t) &meltcdat->dstr_1204__CLASS_SOURCE_STORE_PREDE; + /*_._VALSTR___V1298*/ meltfptr[1297] = (melt_ptr_t) &meltcdat->dstr_1204__CLASS_SOURCE_STORE_PREDE; meltcdat->dstr_1204__CLASS_SOURCE_STORE_PREDE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1204__CLASS_SOURCE_STORE_PREDE.val, "CLASS_SOURCE_STORE_PREDEFINED", sizeof (meltcdat->dstr_1204__CLASS_SOURCE_STORE_PREDE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1204__CLASS_SOURCE_STORE_PREDE.val, "CLASS_SOURCE_STORE_PREDEFINED", sizeof (meltcdat->dstr_1204__CLASS_SOURCE_STORE_PREDE.val)-1); meltcdat->dstr_1204__CLASS_SOURCE_STORE_PREDE.val[29] = (char)0 ; meltcdat->dstr_1204__CLASS_SOURCE_STORE_PREDE.slen = 29 ; MELT_LOCATION("warmelt-macro.melt:1219:/ iniobj"); /*iniobj dobj_1205__CLASS_SOURCE_STORE_PREDEFINED*/ - /*_._VALDATA___V1299*/ - meltfptr[1298] = (melt_ptr_t )&meltcdat->dobj_1205__CLASS_SOURCE_STORE_PREDEFINED; + /*_._VALDATA___V1299*/ meltfptr[1298] = (melt_ptr_t )&meltcdat->dobj_1205__CLASS_SOURCE_STORE_PREDEFINED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1205__CLASS_SOURCE_STORE_PREDEFINED", 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_1205__CLASS_SOURCE_STORE_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1205__CLASS_SOURCE_STORE_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -23008,28 +20373,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1206__CLASS_SOURCE_STORE_PREDE*/ - /*_._VALSTR___V1300*/ - meltfptr[1299] = (melt_ptr_t) &meltcdat->dstr_1206__CLASS_SOURCE_STORE_PREDE; + /*_._VALSTR___V1300*/ meltfptr[1299] = (melt_ptr_t) &meltcdat->dstr_1206__CLASS_SOURCE_STORE_PREDE; meltcdat->dstr_1206__CLASS_SOURCE_STORE_PREDE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1206__CLASS_SOURCE_STORE_PREDE.val, "CLASS_SOURCE_STORE_PREDEFINED", sizeof (meltcdat->dstr_1206__CLASS_SOURCE_STORE_PREDE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1206__CLASS_SOURCE_STORE_PREDE.val, "CLASS_SOURCE_STORE_PREDEFINED", sizeof (meltcdat->dstr_1206__CLASS_SOURCE_STORE_PREDE.val)-1); meltcdat->dstr_1206__CLASS_SOURCE_STORE_PREDE.val[29] = (char)0 ; meltcdat->dstr_1206__CLASS_SOURCE_STORE_PREDE.slen = 29 ; /*inimult dtup_1207_syCLASS_SOURCE_STORE_PREDEFINED*/ - /*_._VALTUP___V1301*/ - meltfptr[1300] = (melt_ptr_t) &meltcdat->dtup_1207_syCLASS_SOURCE_STORE_PREDEFINED; + /*_._VALTUP___V1301*/ meltfptr[1300] = (melt_ptr_t) &meltcdat->dtup_1207_syCLASS_SOURCE_STORE_PREDEFINED; meltcdat->dtup_1207_syCLASS_SOURCE_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1207_syCLASS_SOURCE_STORE_PREDEFINED.nbval = 4; /*inimult dtup_1208_syCLASS_SOURCE_STORE_PREDEFINED*/ - /*_._VALTUP___V1306*/ - meltfptr[1305] = (melt_ptr_t) &meltcdat->dtup_1208_syCLASS_SOURCE_STORE_PREDEFINED; + /*_._VALTUP___V1306*/ meltfptr[1305] = (melt_ptr_t) &meltcdat->dtup_1208_syCLASS_SOURCE_STORE_PREDEFINED; meltcdat->dtup_1208_syCLASS_SOURCE_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1208_syCLASS_SOURCE_STORE_PREDEFINED.nbval = 4; /*iniobj dsym_1209__SSTPD_PREDEF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1307*/ meltfptr[1306]) + /*uniqueobj*/ if (!/*_._VALDATA___V1307*/ meltfptr[1306]) /*_._VALDATA___V1307*/ meltfptr[1306] = (melt_ptr_t )&meltcdat->dsym_1209__SSTPD_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1209__SSTPD_PREDEF", 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_1209__SSTPD_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23039,19 +20399,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1210__SSTPD_PREDEF*/ - /*_._VALSTR___V1308*/ - meltfptr[1307] = (melt_ptr_t) &meltcdat->dstr_1210__SSTPD_PREDEF; + /*_._VALSTR___V1308*/ meltfptr[1307] = (melt_ptr_t) &meltcdat->dstr_1210__SSTPD_PREDEF; meltcdat->dstr_1210__SSTPD_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1210__SSTPD_PREDEF.val, "SSTPD_PREDEF", sizeof (meltcdat->dstr_1210__SSTPD_PREDEF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1210__SSTPD_PREDEF.val, "SSTPD_PREDEF", sizeof (meltcdat->dstr_1210__SSTPD_PREDEF.val)-1); meltcdat->dstr_1210__SSTPD_PREDEF.val[12] = (char)0 ; meltcdat->dstr_1210__SSTPD_PREDEF.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1211__SSTPD_PREDEF*/ - /*_._VALDATA___V1302*/ - meltfptr[1301] = (melt_ptr_t )&meltcdat->dobj_1211__SSTPD_PREDEF; + /*_._VALDATA___V1302*/ meltfptr[1301] = (melt_ptr_t )&meltcdat->dobj_1211__SSTPD_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1211__SSTPD_PREDEF", 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_1211__SSTPD_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1211__SSTPD_PREDEF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -23061,18 +20418,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1212__SSTPD_PREDEF*/ - /*_._VALSTR___V1303*/ - meltfptr[1302] = (melt_ptr_t) &meltcdat->dstr_1212__SSTPD_PREDEF; + /*_._VALSTR___V1303*/ meltfptr[1302] = (melt_ptr_t) &meltcdat->dstr_1212__SSTPD_PREDEF; meltcdat->dstr_1212__SSTPD_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1212__SSTPD_PREDEF.val, "SSTPD_PREDEF", sizeof (meltcdat->dstr_1212__SSTPD_PREDEF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1212__SSTPD_PREDEF.val, "SSTPD_PREDEF", sizeof (meltcdat->dstr_1212__SSTPD_PREDEF.val)-1); meltcdat->dstr_1212__SSTPD_PREDEF.val[12] = (char)0 ; meltcdat->dstr_1212__SSTPD_PREDEF.slen = 12 ; /*iniobj dsym_1213__SSTPD_VALUE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1309*/ meltfptr[1308]) + /*uniqueobj*/ if (!/*_._VALDATA___V1309*/ meltfptr[1308]) /*_._VALDATA___V1309*/ meltfptr[1308] = (melt_ptr_t )&meltcdat->dsym_1213__SSTPD_VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1213__SSTPD_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_1213__SSTPD_VALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23082,19 +20436,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1214__SSTPD_VALUE*/ - /*_._VALSTR___V1310*/ - meltfptr[1309] = (melt_ptr_t) &meltcdat->dstr_1214__SSTPD_VALUE; + /*_._VALSTR___V1310*/ meltfptr[1309] = (melt_ptr_t) &meltcdat->dstr_1214__SSTPD_VALUE; meltcdat->dstr_1214__SSTPD_VALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1214__SSTPD_VALUE.val, "SSTPD_VALUE", sizeof (meltcdat->dstr_1214__SSTPD_VALUE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1214__SSTPD_VALUE.val, "SSTPD_VALUE", sizeof (meltcdat->dstr_1214__SSTPD_VALUE.val)-1); meltcdat->dstr_1214__SSTPD_VALUE.val[11] = (char)0 ; meltcdat->dstr_1214__SSTPD_VALUE.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1215__SSTPD_VALUE*/ - /*_._VALDATA___V1304*/ - meltfptr[1303] = (melt_ptr_t )&meltcdat->dobj_1215__SSTPD_VALUE; + /*_._VALDATA___V1304*/ meltfptr[1303] = (melt_ptr_t )&meltcdat->dobj_1215__SSTPD_VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1215__SSTPD_VALUE", 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_1215__SSTPD_VALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1215__SSTPD_VALUE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -23104,18 +20455,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1216__SSTPD_VALUE*/ - /*_._VALSTR___V1305*/ - meltfptr[1304] = (melt_ptr_t) &meltcdat->dstr_1216__SSTPD_VALUE; + /*_._VALSTR___V1305*/ meltfptr[1304] = (melt_ptr_t) &meltcdat->dstr_1216__SSTPD_VALUE; meltcdat->dstr_1216__SSTPD_VALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1216__SSTPD_VALUE.val, "SSTPD_VALUE", sizeof (meltcdat->dstr_1216__SSTPD_VALUE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1216__SSTPD_VALUE.val, "SSTPD_VALUE", sizeof (meltcdat->dstr_1216__SSTPD_VALUE.val)-1); meltcdat->dstr_1216__SSTPD_VALUE.val[11] = (char)0 ; meltcdat->dstr_1216__SSTPD_VALUE.slen = 11 ; /*iniobj dsym_1217__CLASS_SOURCE_PROTOCHUNK*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1311*/ meltfptr[1310]) + /*uniqueobj*/ if (!/*_._VALDATA___V1311*/ meltfptr[1310]) /*_._VALDATA___V1311*/ meltfptr[1310] = (melt_ptr_t )&meltcdat->dsym_1217__CLASS_SOURCE_PROTOCHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1217__CLASS_SOURCE_PROTOCHUNK", 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_1217__CLASS_SOURCE_PROTOCHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23125,19 +20473,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1218__CLASS_SOURCE_PROTOCHUNK*/ - /*_._VALSTR___V1312*/ - meltfptr[1311] = (melt_ptr_t) &meltcdat->dstr_1218__CLASS_SOURCE_PROTOCHUNK; + /*_._VALSTR___V1312*/ meltfptr[1311] = (melt_ptr_t) &meltcdat->dstr_1218__CLASS_SOURCE_PROTOCHUNK; meltcdat->dstr_1218__CLASS_SOURCE_PROTOCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1218__CLASS_SOURCE_PROTOCHUNK.val, "CLASS_SOURCE_PROTOCHUNK", sizeof (meltcdat->dstr_1218__CLASS_SOURCE_PROTOCHUNK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1218__CLASS_SOURCE_PROTOCHUNK.val, "CLASS_SOURCE_PROTOCHUNK", sizeof (meltcdat->dstr_1218__CLASS_SOURCE_PROTOCHUNK.val)-1); meltcdat->dstr_1218__CLASS_SOURCE_PROTOCHUNK.val[23] = (char)0 ; meltcdat->dstr_1218__CLASS_SOURCE_PROTOCHUNK.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:1227:/ iniobj"); /*iniobj dobj_1219__CLASS_SOURCE_PROTOCHUNK*/ - /*_._VALDATA___V1313*/ - meltfptr[1312] = (melt_ptr_t )&meltcdat->dobj_1219__CLASS_SOURCE_PROTOCHUNK; + /*_._VALDATA___V1313*/ meltfptr[1312] = (melt_ptr_t )&meltcdat->dobj_1219__CLASS_SOURCE_PROTOCHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1219__CLASS_SOURCE_PROTOCHUNK", 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_1219__CLASS_SOURCE_PROTOCHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1219__CLASS_SOURCE_PROTOCHUNK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -23147,28 +20492,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1220__CLASS_SOURCE_PROTOCHUNK*/ - /*_._VALSTR___V1314*/ - meltfptr[1313] = (melt_ptr_t) &meltcdat->dstr_1220__CLASS_SOURCE_PROTOCHUNK; + /*_._VALSTR___V1314*/ meltfptr[1313] = (melt_ptr_t) &meltcdat->dstr_1220__CLASS_SOURCE_PROTOCHUNK; meltcdat->dstr_1220__CLASS_SOURCE_PROTOCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1220__CLASS_SOURCE_PROTOCHUNK.val, "CLASS_SOURCE_PROTOCHUNK", sizeof (meltcdat->dstr_1220__CLASS_SOURCE_PROTOCHUNK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1220__CLASS_SOURCE_PROTOCHUNK.val, "CLASS_SOURCE_PROTOCHUNK", sizeof (meltcdat->dstr_1220__CLASS_SOURCE_PROTOCHUNK.val)-1); meltcdat->dstr_1220__CLASS_SOURCE_PROTOCHUNK.val[23] = (char)0 ; meltcdat->dstr_1220__CLASS_SOURCE_PROTOCHUNK.slen = 23 ; /*inimult dtup_1221_syCLASS_SOURCE_PROTOCHUNK*/ - /*_._VALTUP___V1315*/ - meltfptr[1314] = (melt_ptr_t) &meltcdat->dtup_1221_syCLASS_SOURCE_PROTOCHUNK; + /*_._VALTUP___V1315*/ meltfptr[1314] = (melt_ptr_t) &meltcdat->dtup_1221_syCLASS_SOURCE_PROTOCHUNK; meltcdat->dtup_1221_syCLASS_SOURCE_PROTOCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1221_syCLASS_SOURCE_PROTOCHUNK.nbval = 4; /*inimult dtup_1222_syCLASS_SOURCE_PROTOCHUNK*/ - /*_._VALTUP___V1320*/ - meltfptr[1319] = (melt_ptr_t) &meltcdat->dtup_1222_syCLASS_SOURCE_PROTOCHUNK; + /*_._VALTUP___V1320*/ meltfptr[1319] = (melt_ptr_t) &meltcdat->dtup_1222_syCLASS_SOURCE_PROTOCHUNK; meltcdat->dtup_1222_syCLASS_SOURCE_PROTOCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1222_syCLASS_SOURCE_PROTOCHUNK.nbval = 4; /*iniobj dsym_1223__SCH_GENSYM*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1321*/ meltfptr[1320]) + /*uniqueobj*/ if (!/*_._VALDATA___V1321*/ meltfptr[1320]) /*_._VALDATA___V1321*/ meltfptr[1320] = (melt_ptr_t )&meltcdat->dsym_1223__SCH_GENSYM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1223__SCH_GENSYM", 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_1223__SCH_GENSYM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23178,19 +20518,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1224__SCH_GENSYM*/ - /*_._VALSTR___V1322*/ - meltfptr[1321] = (melt_ptr_t) &meltcdat->dstr_1224__SCH_GENSYM; + /*_._VALSTR___V1322*/ meltfptr[1321] = (melt_ptr_t) &meltcdat->dstr_1224__SCH_GENSYM; meltcdat->dstr_1224__SCH_GENSYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1224__SCH_GENSYM.val, "SCH_GENSYM", sizeof (meltcdat->dstr_1224__SCH_GENSYM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1224__SCH_GENSYM.val, "SCH_GENSYM", sizeof (meltcdat->dstr_1224__SCH_GENSYM.val)-1); meltcdat->dstr_1224__SCH_GENSYM.val[10] = (char)0 ; meltcdat->dstr_1224__SCH_GENSYM.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1225__SCH_GENSYM*/ - /*_._VALDATA___V1316*/ - meltfptr[1315] = (melt_ptr_t )&meltcdat->dobj_1225__SCH_GENSYM; + /*_._VALDATA___V1316*/ meltfptr[1315] = (melt_ptr_t )&meltcdat->dobj_1225__SCH_GENSYM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1225__SCH_GENSYM", 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_1225__SCH_GENSYM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1225__SCH_GENSYM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -23200,18 +20537,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1226__SCH_GENSYM*/ - /*_._VALSTR___V1317*/ - meltfptr[1316] = (melt_ptr_t) &meltcdat->dstr_1226__SCH_GENSYM; + /*_._VALSTR___V1317*/ meltfptr[1316] = (melt_ptr_t) &meltcdat->dstr_1226__SCH_GENSYM; meltcdat->dstr_1226__SCH_GENSYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1226__SCH_GENSYM.val, "SCH_GENSYM", sizeof (meltcdat->dstr_1226__SCH_GENSYM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1226__SCH_GENSYM.val, "SCH_GENSYM", sizeof (meltcdat->dstr_1226__SCH_GENSYM.val)-1); meltcdat->dstr_1226__SCH_GENSYM.val[10] = (char)0 ; meltcdat->dstr_1226__SCH_GENSYM.slen = 10 ; /*iniobj dsym_1227__SCH_CHUNKS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1323*/ meltfptr[1322]) + /*uniqueobj*/ if (!/*_._VALDATA___V1323*/ meltfptr[1322]) /*_._VALDATA___V1323*/ meltfptr[1322] = (melt_ptr_t )&meltcdat->dsym_1227__SCH_CHUNKS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1227__SCH_CHUNKS", 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_1227__SCH_CHUNKS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23221,19 +20555,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1228__SCH_CHUNKS*/ - /*_._VALSTR___V1324*/ - meltfptr[1323] = (melt_ptr_t) &meltcdat->dstr_1228__SCH_CHUNKS; + /*_._VALSTR___V1324*/ meltfptr[1323] = (melt_ptr_t) &meltcdat->dstr_1228__SCH_CHUNKS; meltcdat->dstr_1228__SCH_CHUNKS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1228__SCH_CHUNKS.val, "SCH_CHUNKS", sizeof (meltcdat->dstr_1228__SCH_CHUNKS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1228__SCH_CHUNKS.val, "SCH_CHUNKS", sizeof (meltcdat->dstr_1228__SCH_CHUNKS.val)-1); meltcdat->dstr_1228__SCH_CHUNKS.val[10] = (char)0 ; meltcdat->dstr_1228__SCH_CHUNKS.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1229__SCH_CHUNKS*/ - /*_._VALDATA___V1318*/ - meltfptr[1317] = (melt_ptr_t )&meltcdat->dobj_1229__SCH_CHUNKS; + /*_._VALDATA___V1318*/ meltfptr[1317] = (melt_ptr_t )&meltcdat->dobj_1229__SCH_CHUNKS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1229__SCH_CHUNKS", 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_1229__SCH_CHUNKS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1229__SCH_CHUNKS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -23243,18 +20574,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1230__SCH_CHUNKS*/ - /*_._VALSTR___V1319*/ - meltfptr[1318] = (melt_ptr_t) &meltcdat->dstr_1230__SCH_CHUNKS; + /*_._VALSTR___V1319*/ meltfptr[1318] = (melt_ptr_t) &meltcdat->dstr_1230__SCH_CHUNKS; meltcdat->dstr_1230__SCH_CHUNKS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1230__SCH_CHUNKS.val, "SCH_CHUNKS", sizeof (meltcdat->dstr_1230__SCH_CHUNKS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1230__SCH_CHUNKS.val, "SCH_CHUNKS", sizeof (meltcdat->dstr_1230__SCH_CHUNKS.val)-1); meltcdat->dstr_1230__SCH_CHUNKS.val[10] = (char)0 ; meltcdat->dstr_1230__SCH_CHUNKS.slen = 10 ; /*iniobj dsym_1231__CLASS_SOURCE_CODECHUNK*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1325*/ meltfptr[1324]) + /*uniqueobj*/ if (!/*_._VALDATA___V1325*/ meltfptr[1324]) /*_._VALDATA___V1325*/ meltfptr[1324] = (melt_ptr_t )&meltcdat->dsym_1231__CLASS_SOURCE_CODECHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1231__CLASS_SOURCE_CODECHUNK", 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_1231__CLASS_SOURCE_CODECHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23264,19 +20592,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1232__CLASS_SOURCE_CODECHUNK*/ - /*_._VALSTR___V1326*/ - meltfptr[1325] = (melt_ptr_t) &meltcdat->dstr_1232__CLASS_SOURCE_CODECHUNK; + /*_._VALSTR___V1326*/ meltfptr[1325] = (melt_ptr_t) &meltcdat->dstr_1232__CLASS_SOURCE_CODECHUNK; meltcdat->dstr_1232__CLASS_SOURCE_CODECHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1232__CLASS_SOURCE_CODECHUNK.val, "CLASS_SOURCE_CODECHUNK", sizeof (meltcdat->dstr_1232__CLASS_SOURCE_CODECHUNK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1232__CLASS_SOURCE_CODECHUNK.val, "CLASS_SOURCE_CODECHUNK", sizeof (meltcdat->dstr_1232__CLASS_SOURCE_CODECHUNK.val)-1); meltcdat->dstr_1232__CLASS_SOURCE_CODECHUNK.val[22] = (char)0 ; meltcdat->dstr_1232__CLASS_SOURCE_CODECHUNK.slen = 22 ; MELT_LOCATION("warmelt-macro.melt:1235:/ iniobj"); /*iniobj dobj_1233__CLASS_SOURCE_CODECHUNK*/ - /*_._VALDATA___V1327*/ - meltfptr[1326] = (melt_ptr_t )&meltcdat->dobj_1233__CLASS_SOURCE_CODECHUNK; + /*_._VALDATA___V1327*/ meltfptr[1326] = (melt_ptr_t )&meltcdat->dobj_1233__CLASS_SOURCE_CODECHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1233__CLASS_SOURCE_CODECHUNK", 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_1233__CLASS_SOURCE_CODECHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1233__CLASS_SOURCE_CODECHUNK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -23286,28 +20611,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1234__CLASS_SOURCE_CODECHUNK*/ - /*_._VALSTR___V1328*/ - meltfptr[1327] = (melt_ptr_t) &meltcdat->dstr_1234__CLASS_SOURCE_CODECHUNK; + /*_._VALSTR___V1328*/ meltfptr[1327] = (melt_ptr_t) &meltcdat->dstr_1234__CLASS_SOURCE_CODECHUNK; meltcdat->dstr_1234__CLASS_SOURCE_CODECHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1234__CLASS_SOURCE_CODECHUNK.val, "CLASS_SOURCE_CODECHUNK", sizeof (meltcdat->dstr_1234__CLASS_SOURCE_CODECHUNK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1234__CLASS_SOURCE_CODECHUNK.val, "CLASS_SOURCE_CODECHUNK", sizeof (meltcdat->dstr_1234__CLASS_SOURCE_CODECHUNK.val)-1); meltcdat->dstr_1234__CLASS_SOURCE_CODECHUNK.val[22] = (char)0 ; meltcdat->dstr_1234__CLASS_SOURCE_CODECHUNK.slen = 22 ; /*inimult dtup_1235_syCLASS_SOURCE_CODECHUNK*/ - /*_._VALTUP___V1329*/ - meltfptr[1328] = (melt_ptr_t) &meltcdat->dtup_1235_syCLASS_SOURCE_CODECHUNK; + /*_._VALTUP___V1329*/ meltfptr[1328] = (melt_ptr_t) &meltcdat->dtup_1235_syCLASS_SOURCE_CODECHUNK; meltcdat->dtup_1235_syCLASS_SOURCE_CODECHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1235_syCLASS_SOURCE_CODECHUNK.nbval = 5; /*inimult dtup_1236_syCLASS_SOURCE_CODECHUNK*/ - /*_._VALTUP___V1330*/ - meltfptr[1329] = (melt_ptr_t) &meltcdat->dtup_1236_syCLASS_SOURCE_CODECHUNK; + /*_._VALTUP___V1330*/ meltfptr[1329] = (melt_ptr_t) &meltcdat->dtup_1236_syCLASS_SOURCE_CODECHUNK; meltcdat->dtup_1236_syCLASS_SOURCE_CODECHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1236_syCLASS_SOURCE_CODECHUNK.nbval = 4; /*iniobj dsym_1237__CLASS_SOURCE_EXPRCHUNK*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1331*/ meltfptr[1330]) + /*uniqueobj*/ if (!/*_._VALDATA___V1331*/ meltfptr[1330]) /*_._VALDATA___V1331*/ meltfptr[1330] = (melt_ptr_t )&meltcdat->dsym_1237__CLASS_SOURCE_EXPRCHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1237__CLASS_SOURCE_EXPRCHUNK", 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_1237__CLASS_SOURCE_EXPRCHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23317,19 +20637,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1238__CLASS_SOURCE_EXPRCHUNK*/ - /*_._VALSTR___V1332*/ - meltfptr[1331] = (melt_ptr_t) &meltcdat->dstr_1238__CLASS_SOURCE_EXPRCHUNK; + /*_._VALSTR___V1332*/ meltfptr[1331] = (melt_ptr_t) &meltcdat->dstr_1238__CLASS_SOURCE_EXPRCHUNK; meltcdat->dstr_1238__CLASS_SOURCE_EXPRCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1238__CLASS_SOURCE_EXPRCHUNK.val, "CLASS_SOURCE_EXPRCHUNK", sizeof (meltcdat->dstr_1238__CLASS_SOURCE_EXPRCHUNK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1238__CLASS_SOURCE_EXPRCHUNK.val, "CLASS_SOURCE_EXPRCHUNK", sizeof (meltcdat->dstr_1238__CLASS_SOURCE_EXPRCHUNK.val)-1); meltcdat->dstr_1238__CLASS_SOURCE_EXPRCHUNK.val[22] = (char)0 ; meltcdat->dstr_1238__CLASS_SOURCE_EXPRCHUNK.slen = 22 ; MELT_LOCATION("warmelt-macro.melt:1241:/ iniobj"); /*iniobj dobj_1239__CLASS_SOURCE_EXPRCHUNK*/ - /*_._VALDATA___V1333*/ - meltfptr[1332] = (melt_ptr_t )&meltcdat->dobj_1239__CLASS_SOURCE_EXPRCHUNK; + /*_._VALDATA___V1333*/ meltfptr[1332] = (melt_ptr_t )&meltcdat->dobj_1239__CLASS_SOURCE_EXPRCHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1239__CLASS_SOURCE_EXPRCHUNK", 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_1239__CLASS_SOURCE_EXPRCHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1239__CLASS_SOURCE_EXPRCHUNK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -23339,28 +20656,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1240__CLASS_SOURCE_EXPRCHUNK*/ - /*_._VALSTR___V1334*/ - meltfptr[1333] = (melt_ptr_t) &meltcdat->dstr_1240__CLASS_SOURCE_EXPRCHUNK; + /*_._VALSTR___V1334*/ meltfptr[1333] = (melt_ptr_t) &meltcdat->dstr_1240__CLASS_SOURCE_EXPRCHUNK; meltcdat->dstr_1240__CLASS_SOURCE_EXPRCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1240__CLASS_SOURCE_EXPRCHUNK.val, "CLASS_SOURCE_EXPRCHUNK", sizeof (meltcdat->dstr_1240__CLASS_SOURCE_EXPRCHUNK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1240__CLASS_SOURCE_EXPRCHUNK.val, "CLASS_SOURCE_EXPRCHUNK", sizeof (meltcdat->dstr_1240__CLASS_SOURCE_EXPRCHUNK.val)-1); meltcdat->dstr_1240__CLASS_SOURCE_EXPRCHUNK.val[22] = (char)0 ; meltcdat->dstr_1240__CLASS_SOURCE_EXPRCHUNK.slen = 22 ; /*inimult dtup_1241_syCLASS_SOURCE_EXPRCHUNK*/ - /*_._VALTUP___V1335*/ - meltfptr[1334] = (melt_ptr_t) &meltcdat->dtup_1241_syCLASS_SOURCE_EXPRCHUNK; + /*_._VALTUP___V1335*/ meltfptr[1334] = (melt_ptr_t) &meltcdat->dtup_1241_syCLASS_SOURCE_EXPRCHUNK; meltcdat->dtup_1241_syCLASS_SOURCE_EXPRCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1241_syCLASS_SOURCE_EXPRCHUNK.nbval = 5; /*inimult dtup_1242_syCLASS_SOURCE_EXPRCHUNK*/ - /*_._VALTUP___V1338*/ - meltfptr[1337] = (melt_ptr_t) &meltcdat->dtup_1242_syCLASS_SOURCE_EXPRCHUNK; + /*_._VALTUP___V1338*/ meltfptr[1337] = (melt_ptr_t) &meltcdat->dtup_1242_syCLASS_SOURCE_EXPRCHUNK; meltcdat->dtup_1242_syCLASS_SOURCE_EXPRCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1242_syCLASS_SOURCE_EXPRCHUNK.nbval = 5; /*iniobj dsym_1243__SXCH_CTYPE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1339*/ meltfptr[1338]) + /*uniqueobj*/ if (!/*_._VALDATA___V1339*/ meltfptr[1338]) /*_._VALDATA___V1339*/ meltfptr[1338] = (melt_ptr_t )&meltcdat->dsym_1243__SXCH_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1243__SXCH_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_1243__SXCH_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23370,19 +20682,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1244__SXCH_CTYPE*/ - /*_._VALSTR___V1340*/ - meltfptr[1339] = (melt_ptr_t) &meltcdat->dstr_1244__SXCH_CTYPE; + /*_._VALSTR___V1340*/ meltfptr[1339] = (melt_ptr_t) &meltcdat->dstr_1244__SXCH_CTYPE; meltcdat->dstr_1244__SXCH_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1244__SXCH_CTYPE.val, "SXCH_CTYPE", sizeof (meltcdat->dstr_1244__SXCH_CTYPE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1244__SXCH_CTYPE.val, "SXCH_CTYPE", sizeof (meltcdat->dstr_1244__SXCH_CTYPE.val)-1); meltcdat->dstr_1244__SXCH_CTYPE.val[10] = (char)0 ; meltcdat->dstr_1244__SXCH_CTYPE.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1245__SXCH_CTYPE*/ - /*_._VALDATA___V1336*/ - meltfptr[1335] = (melt_ptr_t )&meltcdat->dobj_1245__SXCH_CTYPE; + /*_._VALDATA___V1336*/ meltfptr[1335] = (melt_ptr_t )&meltcdat->dobj_1245__SXCH_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1245__SXCH_CTYPE", 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_1245__SXCH_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1245__SXCH_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -23392,18 +20701,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1246__SXCH_CTYPE*/ - /*_._VALSTR___V1337*/ - meltfptr[1336] = (melt_ptr_t) &meltcdat->dstr_1246__SXCH_CTYPE; + /*_._VALSTR___V1337*/ meltfptr[1336] = (melt_ptr_t) &meltcdat->dstr_1246__SXCH_CTYPE; meltcdat->dstr_1246__SXCH_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1246__SXCH_CTYPE.val, "SXCH_CTYPE", sizeof (meltcdat->dstr_1246__SXCH_CTYPE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1246__SXCH_CTYPE.val, "SXCH_CTYPE", sizeof (meltcdat->dstr_1246__SXCH_CTYPE.val)-1); meltcdat->dstr_1246__SXCH_CTYPE.val[10] = (char)0 ; meltcdat->dstr_1246__SXCH_CTYPE.slen = 10 ; /*iniobj dsym_1247__CLASS_SOURCE_PATTERN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1341*/ meltfptr[1340]) + /*uniqueobj*/ if (!/*_._VALDATA___V1341*/ meltfptr[1340]) /*_._VALDATA___V1341*/ meltfptr[1340] = (melt_ptr_t )&meltcdat->dsym_1247__CLASS_SOURCE_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1247__CLASS_SOURCE_PATTERN", 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_1247__CLASS_SOURCE_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23413,19 +20719,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1248__CLASS_SOURCE_PATTERN*/ - /*_._VALSTR___V1342*/ - meltfptr[1341] = (melt_ptr_t) &meltcdat->dstr_1248__CLASS_SOURCE_PATTERN; + /*_._VALSTR___V1342*/ meltfptr[1341] = (melt_ptr_t) &meltcdat->dstr_1248__CLASS_SOURCE_PATTERN; meltcdat->dstr_1248__CLASS_SOURCE_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1248__CLASS_SOURCE_PATTERN.val, "CLASS_SOURCE_PATTERN", sizeof (meltcdat->dstr_1248__CLASS_SOURCE_PATTERN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1248__CLASS_SOURCE_PATTERN.val, "CLASS_SOURCE_PATTERN", sizeof (meltcdat->dstr_1248__CLASS_SOURCE_PATTERN.val)-1); meltcdat->dstr_1248__CLASS_SOURCE_PATTERN.val[20] = (char)0 ; meltcdat->dstr_1248__CLASS_SOURCE_PATTERN.slen = 20 ; MELT_LOCATION("warmelt-macro.melt:1248:/ iniobj"); /*iniobj dobj_1249__CLASS_SOURCE_PATTERN*/ - /*_._VALDATA___V1343*/ - meltfptr[1342] = (melt_ptr_t )&meltcdat->dobj_1249__CLASS_SOURCE_PATTERN; + /*_._VALDATA___V1343*/ meltfptr[1342] = (melt_ptr_t )&meltcdat->dobj_1249__CLASS_SOURCE_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1249__CLASS_SOURCE_PATTERN", 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_1249__CLASS_SOURCE_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1249__CLASS_SOURCE_PATTERN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -23435,28 +20738,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1250__CLASS_SOURCE_PATTERN*/ - /*_._VALSTR___V1344*/ - meltfptr[1343] = (melt_ptr_t) &meltcdat->dstr_1250__CLASS_SOURCE_PATTERN; + /*_._VALSTR___V1344*/ meltfptr[1343] = (melt_ptr_t) &meltcdat->dstr_1250__CLASS_SOURCE_PATTERN; meltcdat->dstr_1250__CLASS_SOURCE_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1250__CLASS_SOURCE_PATTERN.val, "CLASS_SOURCE_PATTERN", sizeof (meltcdat->dstr_1250__CLASS_SOURCE_PATTERN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1250__CLASS_SOURCE_PATTERN.val, "CLASS_SOURCE_PATTERN", sizeof (meltcdat->dstr_1250__CLASS_SOURCE_PATTERN.val)-1); meltcdat->dstr_1250__CLASS_SOURCE_PATTERN.val[20] = (char)0 ; meltcdat->dstr_1250__CLASS_SOURCE_PATTERN.slen = 20 ; /*inimult dtup_1251_syCLASS_SOURCE_PATTERN*/ - /*_._VALTUP___V1345*/ - meltfptr[1344] = (melt_ptr_t) &meltcdat->dtup_1251_syCLASS_SOURCE_PATTERN; + /*_._VALTUP___V1345*/ meltfptr[1344] = (melt_ptr_t) &meltcdat->dtup_1251_syCLASS_SOURCE_PATTERN; meltcdat->dtup_1251_syCLASS_SOURCE_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1251_syCLASS_SOURCE_PATTERN.nbval = 4; /*inimult dtup_1252_syCLASS_SOURCE_PATTERN*/ - /*_._VALTUP___V1348*/ - meltfptr[1347] = (melt_ptr_t) &meltcdat->dtup_1252_syCLASS_SOURCE_PATTERN; + /*_._VALTUP___V1348*/ meltfptr[1347] = (melt_ptr_t) &meltcdat->dtup_1252_syCLASS_SOURCE_PATTERN; meltcdat->dtup_1252_syCLASS_SOURCE_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1252_syCLASS_SOURCE_PATTERN.nbval = 3; /*iniobj dsym_1253__PAT_WEIGHT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1349*/ meltfptr[1348]) + /*uniqueobj*/ if (!/*_._VALDATA___V1349*/ meltfptr[1348]) /*_._VALDATA___V1349*/ meltfptr[1348] = (melt_ptr_t )&meltcdat->dsym_1253__PAT_WEIGHT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1253__PAT_WEIGHT", 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_1253__PAT_WEIGHT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23466,19 +20764,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1254__PAT_WEIGHT*/ - /*_._VALSTR___V1350*/ - meltfptr[1349] = (melt_ptr_t) &meltcdat->dstr_1254__PAT_WEIGHT; + /*_._VALSTR___V1350*/ meltfptr[1349] = (melt_ptr_t) &meltcdat->dstr_1254__PAT_WEIGHT; meltcdat->dstr_1254__PAT_WEIGHT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1254__PAT_WEIGHT.val, "PAT_WEIGHT", sizeof (meltcdat->dstr_1254__PAT_WEIGHT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1254__PAT_WEIGHT.val, "PAT_WEIGHT", sizeof (meltcdat->dstr_1254__PAT_WEIGHT.val)-1); meltcdat->dstr_1254__PAT_WEIGHT.val[10] = (char)0 ; meltcdat->dstr_1254__PAT_WEIGHT.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1255__PAT_WEIGHT*/ - /*_._VALDATA___V1346*/ - meltfptr[1345] = (melt_ptr_t )&meltcdat->dobj_1255__PAT_WEIGHT; + /*_._VALDATA___V1346*/ meltfptr[1345] = (melt_ptr_t )&meltcdat->dobj_1255__PAT_WEIGHT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1255__PAT_WEIGHT", 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_1255__PAT_WEIGHT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1255__PAT_WEIGHT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -23488,18 +20783,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1256__PAT_WEIGHT*/ - /*_._VALSTR___V1347*/ - meltfptr[1346] = (melt_ptr_t) &meltcdat->dstr_1256__PAT_WEIGHT; + /*_._VALSTR___V1347*/ meltfptr[1346] = (melt_ptr_t) &meltcdat->dstr_1256__PAT_WEIGHT; meltcdat->dstr_1256__PAT_WEIGHT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1256__PAT_WEIGHT.val, "PAT_WEIGHT", sizeof (meltcdat->dstr_1256__PAT_WEIGHT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1256__PAT_WEIGHT.val, "PAT_WEIGHT", sizeof (meltcdat->dstr_1256__PAT_WEIGHT.val)-1); meltcdat->dstr_1256__PAT_WEIGHT.val[10] = (char)0 ; meltcdat->dstr_1256__PAT_WEIGHT.slen = 10 ; /*iniobj dsym_1257__CLASS_SOURCE_PATTERN_OR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1351*/ meltfptr[1350]) + /*uniqueobj*/ if (!/*_._VALDATA___V1351*/ meltfptr[1350]) /*_._VALDATA___V1351*/ meltfptr[1350] = (melt_ptr_t )&meltcdat->dsym_1257__CLASS_SOURCE_PATTERN_OR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1257__CLASS_SOURCE_PATTERN_OR", 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_1257__CLASS_SOURCE_PATTERN_OR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23509,19 +20801,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1258__CLASS_SOURCE_PATTERN_OR*/ - /*_._VALSTR___V1352*/ - meltfptr[1351] = (melt_ptr_t) &meltcdat->dstr_1258__CLASS_SOURCE_PATTERN_OR; + /*_._VALSTR___V1352*/ meltfptr[1351] = (melt_ptr_t) &meltcdat->dstr_1258__CLASS_SOURCE_PATTERN_OR; meltcdat->dstr_1258__CLASS_SOURCE_PATTERN_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1258__CLASS_SOURCE_PATTERN_OR.val, "CLASS_SOURCE_PATTERN_OR", sizeof (meltcdat->dstr_1258__CLASS_SOURCE_PATTERN_OR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1258__CLASS_SOURCE_PATTERN_OR.val, "CLASS_SOURCE_PATTERN_OR", sizeof (meltcdat->dstr_1258__CLASS_SOURCE_PATTERN_OR.val)-1); meltcdat->dstr_1258__CLASS_SOURCE_PATTERN_OR.val[23] = (char)0 ; meltcdat->dstr_1258__CLASS_SOURCE_PATTERN_OR.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:1257:/ iniobj"); /*iniobj dobj_1259__CLASS_SOURCE_PATTERN_OR*/ - /*_._VALDATA___V1353*/ - meltfptr[1352] = (melt_ptr_t )&meltcdat->dobj_1259__CLASS_SOURCE_PATTERN_OR; + /*_._VALDATA___V1353*/ meltfptr[1352] = (melt_ptr_t )&meltcdat->dobj_1259__CLASS_SOURCE_PATTERN_OR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1259__CLASS_SOURCE_PATTERN_OR", 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_1259__CLASS_SOURCE_PATTERN_OR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1259__CLASS_SOURCE_PATTERN_OR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -23531,28 +20820,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1260__CLASS_SOURCE_PATTERN_OR*/ - /*_._VALSTR___V1354*/ - meltfptr[1353] = (melt_ptr_t) &meltcdat->dstr_1260__CLASS_SOURCE_PATTERN_OR; + /*_._VALSTR___V1354*/ meltfptr[1353] = (melt_ptr_t) &meltcdat->dstr_1260__CLASS_SOURCE_PATTERN_OR; meltcdat->dstr_1260__CLASS_SOURCE_PATTERN_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1260__CLASS_SOURCE_PATTERN_OR.val, "CLASS_SOURCE_PATTERN_OR", sizeof (meltcdat->dstr_1260__CLASS_SOURCE_PATTERN_OR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1260__CLASS_SOURCE_PATTERN_OR.val, "CLASS_SOURCE_PATTERN_OR", sizeof (meltcdat->dstr_1260__CLASS_SOURCE_PATTERN_OR.val)-1); meltcdat->dstr_1260__CLASS_SOURCE_PATTERN_OR.val[23] = (char)0 ; meltcdat->dstr_1260__CLASS_SOURCE_PATTERN_OR.slen = 23 ; /*inimult dtup_1261_syCLASS_SOURCE_PATTERN_OR*/ - /*_._VALTUP___V1355*/ - meltfptr[1354] = (melt_ptr_t) &meltcdat->dtup_1261_syCLASS_SOURCE_PATTERN_OR; + /*_._VALTUP___V1355*/ meltfptr[1354] = (melt_ptr_t) &meltcdat->dtup_1261_syCLASS_SOURCE_PATTERN_OR; meltcdat->dtup_1261_syCLASS_SOURCE_PATTERN_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1261_syCLASS_SOURCE_PATTERN_OR.nbval = 5; /*inimult dtup_1262_syCLASS_SOURCE_PATTERN_OR*/ - /*_._VALTUP___V1358*/ - meltfptr[1357] = (melt_ptr_t) &meltcdat->dtup_1262_syCLASS_SOURCE_PATTERN_OR; + /*_._VALTUP___V1358*/ meltfptr[1357] = (melt_ptr_t) &meltcdat->dtup_1262_syCLASS_SOURCE_PATTERN_OR; meltcdat->dtup_1262_syCLASS_SOURCE_PATTERN_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1262_syCLASS_SOURCE_PATTERN_OR.nbval = 4; /*iniobj dsym_1263__ORPAT_DISJ*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1359*/ meltfptr[1358]) + /*uniqueobj*/ if (!/*_._VALDATA___V1359*/ meltfptr[1358]) /*_._VALDATA___V1359*/ meltfptr[1358] = (melt_ptr_t )&meltcdat->dsym_1263__ORPAT_DISJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1263__ORPAT_DISJ", 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_1263__ORPAT_DISJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23562,19 +20846,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1264__ORPAT_DISJ*/ - /*_._VALSTR___V1360*/ - meltfptr[1359] = (melt_ptr_t) &meltcdat->dstr_1264__ORPAT_DISJ; + /*_._VALSTR___V1360*/ meltfptr[1359] = (melt_ptr_t) &meltcdat->dstr_1264__ORPAT_DISJ; meltcdat->dstr_1264__ORPAT_DISJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1264__ORPAT_DISJ.val, "ORPAT_DISJ", sizeof (meltcdat->dstr_1264__ORPAT_DISJ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1264__ORPAT_DISJ.val, "ORPAT_DISJ", sizeof (meltcdat->dstr_1264__ORPAT_DISJ.val)-1); meltcdat->dstr_1264__ORPAT_DISJ.val[10] = (char)0 ; meltcdat->dstr_1264__ORPAT_DISJ.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1265__ORPAT_DISJ*/ - /*_._VALDATA___V1356*/ - meltfptr[1355] = (melt_ptr_t )&meltcdat->dobj_1265__ORPAT_DISJ; + /*_._VALDATA___V1356*/ meltfptr[1355] = (melt_ptr_t )&meltcdat->dobj_1265__ORPAT_DISJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1265__ORPAT_DISJ", 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_1265__ORPAT_DISJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1265__ORPAT_DISJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -23584,18 +20865,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1266__ORPAT_DISJ*/ - /*_._VALSTR___V1357*/ - meltfptr[1356] = (melt_ptr_t) &meltcdat->dstr_1266__ORPAT_DISJ; + /*_._VALSTR___V1357*/ meltfptr[1356] = (melt_ptr_t) &meltcdat->dstr_1266__ORPAT_DISJ; meltcdat->dstr_1266__ORPAT_DISJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1266__ORPAT_DISJ.val, "ORPAT_DISJ", sizeof (meltcdat->dstr_1266__ORPAT_DISJ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1266__ORPAT_DISJ.val, "ORPAT_DISJ", sizeof (meltcdat->dstr_1266__ORPAT_DISJ.val)-1); meltcdat->dstr_1266__ORPAT_DISJ.val[10] = (char)0 ; meltcdat->dstr_1266__ORPAT_DISJ.slen = 10 ; /*iniobj dsym_1267__CLASS_SOURCE_PATTERN_AND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1361*/ meltfptr[1360]) + /*uniqueobj*/ if (!/*_._VALDATA___V1361*/ meltfptr[1360]) /*_._VALDATA___V1361*/ meltfptr[1360] = (melt_ptr_t )&meltcdat->dsym_1267__CLASS_SOURCE_PATTERN_AND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1267__CLASS_SOURCE_PATTERN_AND", 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_1267__CLASS_SOURCE_PATTERN_AND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23605,19 +20883,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1268__CLASS_SOURCE_PATTERN_AND*/ - /*_._VALSTR___V1362*/ - meltfptr[1361] = (melt_ptr_t) &meltcdat->dstr_1268__CLASS_SOURCE_PATTERN_AND; + /*_._VALSTR___V1362*/ meltfptr[1361] = (melt_ptr_t) &meltcdat->dstr_1268__CLASS_SOURCE_PATTERN_AND; meltcdat->dstr_1268__CLASS_SOURCE_PATTERN_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1268__CLASS_SOURCE_PATTERN_AND.val, "CLASS_SOURCE_PATTERN_AND", sizeof (meltcdat->dstr_1268__CLASS_SOURCE_PATTERN_AND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1268__CLASS_SOURCE_PATTERN_AND.val, "CLASS_SOURCE_PATTERN_AND", sizeof (meltcdat->dstr_1268__CLASS_SOURCE_PATTERN_AND.val)-1); meltcdat->dstr_1268__CLASS_SOURCE_PATTERN_AND.val[24] = (char)0 ; meltcdat->dstr_1268__CLASS_SOURCE_PATTERN_AND.slen = 24 ; MELT_LOCATION("warmelt-macro.melt:1266:/ iniobj"); /*iniobj dobj_1269__CLASS_SOURCE_PATTERN_AND*/ - /*_._VALDATA___V1363*/ - meltfptr[1362] = (melt_ptr_t )&meltcdat->dobj_1269__CLASS_SOURCE_PATTERN_AND; + /*_._VALDATA___V1363*/ meltfptr[1362] = (melt_ptr_t )&meltcdat->dobj_1269__CLASS_SOURCE_PATTERN_AND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1269__CLASS_SOURCE_PATTERN_AND", 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_1269__CLASS_SOURCE_PATTERN_AND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1269__CLASS_SOURCE_PATTERN_AND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -23627,28 +20902,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1270__CLASS_SOURCE_PATTERN_AND*/ - /*_._VALSTR___V1364*/ - meltfptr[1363] = (melt_ptr_t) &meltcdat->dstr_1270__CLASS_SOURCE_PATTERN_AND; + /*_._VALSTR___V1364*/ meltfptr[1363] = (melt_ptr_t) &meltcdat->dstr_1270__CLASS_SOURCE_PATTERN_AND; meltcdat->dstr_1270__CLASS_SOURCE_PATTERN_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1270__CLASS_SOURCE_PATTERN_AND.val, "CLASS_SOURCE_PATTERN_AND", sizeof (meltcdat->dstr_1270__CLASS_SOURCE_PATTERN_AND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1270__CLASS_SOURCE_PATTERN_AND.val, "CLASS_SOURCE_PATTERN_AND", sizeof (meltcdat->dstr_1270__CLASS_SOURCE_PATTERN_AND.val)-1); meltcdat->dstr_1270__CLASS_SOURCE_PATTERN_AND.val[24] = (char)0 ; meltcdat->dstr_1270__CLASS_SOURCE_PATTERN_AND.slen = 24 ; /*inimult dtup_1271_syCLASS_SOURCE_PATTERN_AND*/ - /*_._VALTUP___V1365*/ - meltfptr[1364] = (melt_ptr_t) &meltcdat->dtup_1271_syCLASS_SOURCE_PATTERN_AND; + /*_._VALTUP___V1365*/ meltfptr[1364] = (melt_ptr_t) &meltcdat->dtup_1271_syCLASS_SOURCE_PATTERN_AND; meltcdat->dtup_1271_syCLASS_SOURCE_PATTERN_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1271_syCLASS_SOURCE_PATTERN_AND.nbval = 5; /*inimult dtup_1272_syCLASS_SOURCE_PATTERN_AND*/ - /*_._VALTUP___V1368*/ - meltfptr[1367] = (melt_ptr_t) &meltcdat->dtup_1272_syCLASS_SOURCE_PATTERN_AND; + /*_._VALTUP___V1368*/ meltfptr[1367] = (melt_ptr_t) &meltcdat->dtup_1272_syCLASS_SOURCE_PATTERN_AND; meltcdat->dtup_1272_syCLASS_SOURCE_PATTERN_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1272_syCLASS_SOURCE_PATTERN_AND.nbval = 4; /*iniobj dsym_1273__ANDPAT_CONJ*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1369*/ meltfptr[1368]) + /*uniqueobj*/ if (!/*_._VALDATA___V1369*/ meltfptr[1368]) /*_._VALDATA___V1369*/ meltfptr[1368] = (melt_ptr_t )&meltcdat->dsym_1273__ANDPAT_CONJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1273__ANDPAT_CONJ", 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_1273__ANDPAT_CONJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23658,19 +20928,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1274__ANDPAT_CONJ*/ - /*_._VALSTR___V1370*/ - meltfptr[1369] = (melt_ptr_t) &meltcdat->dstr_1274__ANDPAT_CONJ; + /*_._VALSTR___V1370*/ meltfptr[1369] = (melt_ptr_t) &meltcdat->dstr_1274__ANDPAT_CONJ; meltcdat->dstr_1274__ANDPAT_CONJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1274__ANDPAT_CONJ.val, "ANDPAT_CONJ", sizeof (meltcdat->dstr_1274__ANDPAT_CONJ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1274__ANDPAT_CONJ.val, "ANDPAT_CONJ", sizeof (meltcdat->dstr_1274__ANDPAT_CONJ.val)-1); meltcdat->dstr_1274__ANDPAT_CONJ.val[11] = (char)0 ; meltcdat->dstr_1274__ANDPAT_CONJ.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1275__ANDPAT_CONJ*/ - /*_._VALDATA___V1366*/ - meltfptr[1365] = (melt_ptr_t )&meltcdat->dobj_1275__ANDPAT_CONJ; + /*_._VALDATA___V1366*/ meltfptr[1365] = (melt_ptr_t )&meltcdat->dobj_1275__ANDPAT_CONJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1275__ANDPAT_CONJ", 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_1275__ANDPAT_CONJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1275__ANDPAT_CONJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -23680,18 +20947,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1276__ANDPAT_CONJ*/ - /*_._VALSTR___V1367*/ - meltfptr[1366] = (melt_ptr_t) &meltcdat->dstr_1276__ANDPAT_CONJ; + /*_._VALSTR___V1367*/ meltfptr[1366] = (melt_ptr_t) &meltcdat->dstr_1276__ANDPAT_CONJ; meltcdat->dstr_1276__ANDPAT_CONJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1276__ANDPAT_CONJ.val, "ANDPAT_CONJ", sizeof (meltcdat->dstr_1276__ANDPAT_CONJ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1276__ANDPAT_CONJ.val, "ANDPAT_CONJ", sizeof (meltcdat->dstr_1276__ANDPAT_CONJ.val)-1); meltcdat->dstr_1276__ANDPAT_CONJ.val[11] = (char)0 ; meltcdat->dstr_1276__ANDPAT_CONJ.slen = 11 ; /*iniobj dsym_1277__CLASS_SOURCE_PATTERN_WHEN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1371*/ meltfptr[1370]) + /*uniqueobj*/ if (!/*_._VALDATA___V1371*/ meltfptr[1370]) /*_._VALDATA___V1371*/ meltfptr[1370] = (melt_ptr_t )&meltcdat->dsym_1277__CLASS_SOURCE_PATTERN_WHEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1277__CLASS_SOURCE_PATTERN_WHEN", 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_1277__CLASS_SOURCE_PATTERN_WHEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23701,19 +20965,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1278__CLASS_SOURCE_PATTERN_WHE*/ - /*_._VALSTR___V1372*/ - meltfptr[1371] = (melt_ptr_t) &meltcdat->dstr_1278__CLASS_SOURCE_PATTERN_WHE; + /*_._VALSTR___V1372*/ meltfptr[1371] = (melt_ptr_t) &meltcdat->dstr_1278__CLASS_SOURCE_PATTERN_WHE; meltcdat->dstr_1278__CLASS_SOURCE_PATTERN_WHE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1278__CLASS_SOURCE_PATTERN_WHE.val, "CLASS_SOURCE_PATTERN_WHEN", sizeof (meltcdat->dstr_1278__CLASS_SOURCE_PATTERN_WHE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1278__CLASS_SOURCE_PATTERN_WHE.val, "CLASS_SOURCE_PATTERN_WHEN", sizeof (meltcdat->dstr_1278__CLASS_SOURCE_PATTERN_WHE.val)-1); meltcdat->dstr_1278__CLASS_SOURCE_PATTERN_WHE.val[25] = (char)0 ; meltcdat->dstr_1278__CLASS_SOURCE_PATTERN_WHE.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:1275:/ iniobj"); /*iniobj dobj_1279__CLASS_SOURCE_PATTERN_WHEN*/ - /*_._VALDATA___V1373*/ - meltfptr[1372] = (melt_ptr_t )&meltcdat->dobj_1279__CLASS_SOURCE_PATTERN_WHEN; + /*_._VALDATA___V1373*/ meltfptr[1372] = (melt_ptr_t )&meltcdat->dobj_1279__CLASS_SOURCE_PATTERN_WHEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1279__CLASS_SOURCE_PATTERN_WHEN", 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_1279__CLASS_SOURCE_PATTERN_WHEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1279__CLASS_SOURCE_PATTERN_WHEN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -23723,28 +20984,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1280__CLASS_SOURCE_PATTERN_WHE*/ - /*_._VALSTR___V1374*/ - meltfptr[1373] = (melt_ptr_t) &meltcdat->dstr_1280__CLASS_SOURCE_PATTERN_WHE; + /*_._VALSTR___V1374*/ meltfptr[1373] = (melt_ptr_t) &meltcdat->dstr_1280__CLASS_SOURCE_PATTERN_WHE; meltcdat->dstr_1280__CLASS_SOURCE_PATTERN_WHE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1280__CLASS_SOURCE_PATTERN_WHE.val, "CLASS_SOURCE_PATTERN_WHEN", sizeof (meltcdat->dstr_1280__CLASS_SOURCE_PATTERN_WHE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1280__CLASS_SOURCE_PATTERN_WHE.val, "CLASS_SOURCE_PATTERN_WHEN", sizeof (meltcdat->dstr_1280__CLASS_SOURCE_PATTERN_WHE.val)-1); meltcdat->dstr_1280__CLASS_SOURCE_PATTERN_WHE.val[25] = (char)0 ; meltcdat->dstr_1280__CLASS_SOURCE_PATTERN_WHE.slen = 25 ; /*inimult dtup_1281_syCLASS_SOURCE_PATTERN_WHEN*/ - /*_._VALTUP___V1375*/ - meltfptr[1374] = (melt_ptr_t) &meltcdat->dtup_1281_syCLASS_SOURCE_PATTERN_WHEN; + /*_._VALTUP___V1375*/ meltfptr[1374] = (melt_ptr_t) &meltcdat->dtup_1281_syCLASS_SOURCE_PATTERN_WHEN; meltcdat->dtup_1281_syCLASS_SOURCE_PATTERN_WHEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1281_syCLASS_SOURCE_PATTERN_WHEN.nbval = 5; /*inimult dtup_1282_syCLASS_SOURCE_PATTERN_WHEN*/ - /*_._VALTUP___V1380*/ - meltfptr[1379] = (melt_ptr_t) &meltcdat->dtup_1282_syCLASS_SOURCE_PATTERN_WHEN; + /*_._VALTUP___V1380*/ meltfptr[1379] = (melt_ptr_t) &meltcdat->dtup_1282_syCLASS_SOURCE_PATTERN_WHEN; meltcdat->dtup_1282_syCLASS_SOURCE_PATTERN_WHEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1282_syCLASS_SOURCE_PATTERN_WHEN.nbval = 5; /*iniobj dsym_1283__WHENPAT_SUBPAT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1381*/ meltfptr[1380]) + /*uniqueobj*/ if (!/*_._VALDATA___V1381*/ meltfptr[1380]) /*_._VALDATA___V1381*/ meltfptr[1380] = (melt_ptr_t )&meltcdat->dsym_1283__WHENPAT_SUBPAT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1283__WHENPAT_SUBPAT", 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_1283__WHENPAT_SUBPAT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23754,19 +21010,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1284__WHENPAT_SUBPAT*/ - /*_._VALSTR___V1382*/ - meltfptr[1381] = (melt_ptr_t) &meltcdat->dstr_1284__WHENPAT_SUBPAT; + /*_._VALSTR___V1382*/ meltfptr[1381] = (melt_ptr_t) &meltcdat->dstr_1284__WHENPAT_SUBPAT; meltcdat->dstr_1284__WHENPAT_SUBPAT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1284__WHENPAT_SUBPAT.val, "WHENPAT_SUBPAT", sizeof (meltcdat->dstr_1284__WHENPAT_SUBPAT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1284__WHENPAT_SUBPAT.val, "WHENPAT_SUBPAT", sizeof (meltcdat->dstr_1284__WHENPAT_SUBPAT.val)-1); meltcdat->dstr_1284__WHENPAT_SUBPAT.val[14] = (char)0 ; meltcdat->dstr_1284__WHENPAT_SUBPAT.slen = 14 ; /*^iniobj*/ /*iniobj dobj_1285__WHENPAT_SUBPAT*/ - /*_._VALDATA___V1376*/ - meltfptr[1375] = (melt_ptr_t )&meltcdat->dobj_1285__WHENPAT_SUBPAT; + /*_._VALDATA___V1376*/ meltfptr[1375] = (melt_ptr_t )&meltcdat->dobj_1285__WHENPAT_SUBPAT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1285__WHENPAT_SUBPAT", 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_1285__WHENPAT_SUBPAT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1285__WHENPAT_SUBPAT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -23776,18 +21029,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1286__WHENPAT_SUBPAT*/ - /*_._VALSTR___V1377*/ - meltfptr[1376] = (melt_ptr_t) &meltcdat->dstr_1286__WHENPAT_SUBPAT; + /*_._VALSTR___V1377*/ meltfptr[1376] = (melt_ptr_t) &meltcdat->dstr_1286__WHENPAT_SUBPAT; meltcdat->dstr_1286__WHENPAT_SUBPAT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1286__WHENPAT_SUBPAT.val, "WHENPAT_SUBPAT", sizeof (meltcdat->dstr_1286__WHENPAT_SUBPAT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1286__WHENPAT_SUBPAT.val, "WHENPAT_SUBPAT", sizeof (meltcdat->dstr_1286__WHENPAT_SUBPAT.val)-1); meltcdat->dstr_1286__WHENPAT_SUBPAT.val[14] = (char)0 ; meltcdat->dstr_1286__WHENPAT_SUBPAT.slen = 14 ; /*iniobj dsym_1287__WHENPAT_COND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1383*/ meltfptr[1382]) + /*uniqueobj*/ if (!/*_._VALDATA___V1383*/ meltfptr[1382]) /*_._VALDATA___V1383*/ meltfptr[1382] = (melt_ptr_t )&meltcdat->dsym_1287__WHENPAT_COND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1287__WHENPAT_COND", 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_1287__WHENPAT_COND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23797,19 +21047,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1288__WHENPAT_COND*/ - /*_._VALSTR___V1384*/ - meltfptr[1383] = (melt_ptr_t) &meltcdat->dstr_1288__WHENPAT_COND; + /*_._VALSTR___V1384*/ meltfptr[1383] = (melt_ptr_t) &meltcdat->dstr_1288__WHENPAT_COND; meltcdat->dstr_1288__WHENPAT_COND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1288__WHENPAT_COND.val, "WHENPAT_COND", sizeof (meltcdat->dstr_1288__WHENPAT_COND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1288__WHENPAT_COND.val, "WHENPAT_COND", sizeof (meltcdat->dstr_1288__WHENPAT_COND.val)-1); meltcdat->dstr_1288__WHENPAT_COND.val[12] = (char)0 ; meltcdat->dstr_1288__WHENPAT_COND.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1289__WHENPAT_COND*/ - /*_._VALDATA___V1378*/ - meltfptr[1377] = (melt_ptr_t )&meltcdat->dobj_1289__WHENPAT_COND; + /*_._VALDATA___V1378*/ meltfptr[1377] = (melt_ptr_t )&meltcdat->dobj_1289__WHENPAT_COND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1289__WHENPAT_COND", 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_1289__WHENPAT_COND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1289__WHENPAT_COND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -23819,18 +21066,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1290__WHENPAT_COND*/ - /*_._VALSTR___V1379*/ - meltfptr[1378] = (melt_ptr_t) &meltcdat->dstr_1290__WHENPAT_COND; + /*_._VALSTR___V1379*/ meltfptr[1378] = (melt_ptr_t) &meltcdat->dstr_1290__WHENPAT_COND; meltcdat->dstr_1290__WHENPAT_COND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1290__WHENPAT_COND.val, "WHENPAT_COND", sizeof (meltcdat->dstr_1290__WHENPAT_COND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1290__WHENPAT_COND.val, "WHENPAT_COND", sizeof (meltcdat->dstr_1290__WHENPAT_COND.val)-1); meltcdat->dstr_1290__WHENPAT_COND.val[12] = (char)0 ; meltcdat->dstr_1290__WHENPAT_COND.slen = 12 ; /*iniobj dsym_1291__CLASS_SOURCE_PATTERN_VARIABLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1385*/ meltfptr[1384]) + /*uniqueobj*/ if (!/*_._VALDATA___V1385*/ meltfptr[1384]) /*_._VALDATA___V1385*/ meltfptr[1384] = (melt_ptr_t )&meltcdat->dsym_1291__CLASS_SOURCE_PATTERN_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1291__CLASS_SOURCE_PATTERN_VARIABLE", 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_1291__CLASS_SOURCE_PATTERN_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23840,19 +21084,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1292__CLASS_SOURCE_PATTERN_VAR*/ - /*_._VALSTR___V1386*/ - meltfptr[1385] = (melt_ptr_t) &meltcdat->dstr_1292__CLASS_SOURCE_PATTERN_VAR; + /*_._VALSTR___V1386*/ meltfptr[1385] = (melt_ptr_t) &meltcdat->dstr_1292__CLASS_SOURCE_PATTERN_VAR; meltcdat->dstr_1292__CLASS_SOURCE_PATTERN_VAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1292__CLASS_SOURCE_PATTERN_VAR.val, "CLASS_SOURCE_PATTERN_VARIABLE", sizeof (meltcdat->dstr_1292__CLASS_SOURCE_PATTERN_VAR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1292__CLASS_SOURCE_PATTERN_VAR.val, "CLASS_SOURCE_PATTERN_VARIABLE", sizeof (meltcdat->dstr_1292__CLASS_SOURCE_PATTERN_VAR.val)-1); meltcdat->dstr_1292__CLASS_SOURCE_PATTERN_VAR.val[29] = (char)0 ; meltcdat->dstr_1292__CLASS_SOURCE_PATTERN_VAR.slen = 29 ; MELT_LOCATION("warmelt-macro.melt:1287:/ iniobj"); /*iniobj dobj_1293__CLASS_SOURCE_PATTERN_VARIABLE*/ - /*_._VALDATA___V1387*/ - meltfptr[1386] = (melt_ptr_t )&meltcdat->dobj_1293__CLASS_SOURCE_PATTERN_VARIABLE; + /*_._VALDATA___V1387*/ meltfptr[1386] = (melt_ptr_t )&meltcdat->dobj_1293__CLASS_SOURCE_PATTERN_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1293__CLASS_SOURCE_PATTERN_VARIABLE", 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_1293__CLASS_SOURCE_PATTERN_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1293__CLASS_SOURCE_PATTERN_VARIABLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -23862,28 +21103,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1294__CLASS_SOURCE_PATTERN_VAR*/ - /*_._VALSTR___V1388*/ - meltfptr[1387] = (melt_ptr_t) &meltcdat->dstr_1294__CLASS_SOURCE_PATTERN_VAR; + /*_._VALSTR___V1388*/ meltfptr[1387] = (melt_ptr_t) &meltcdat->dstr_1294__CLASS_SOURCE_PATTERN_VAR; meltcdat->dstr_1294__CLASS_SOURCE_PATTERN_VAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1294__CLASS_SOURCE_PATTERN_VAR.val, "CLASS_SOURCE_PATTERN_VARIABLE", sizeof (meltcdat->dstr_1294__CLASS_SOURCE_PATTERN_VAR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1294__CLASS_SOURCE_PATTERN_VAR.val, "CLASS_SOURCE_PATTERN_VARIABLE", sizeof (meltcdat->dstr_1294__CLASS_SOURCE_PATTERN_VAR.val)-1); meltcdat->dstr_1294__CLASS_SOURCE_PATTERN_VAR.val[29] = (char)0 ; meltcdat->dstr_1294__CLASS_SOURCE_PATTERN_VAR.slen = 29 ; /*inimult dtup_1295_syCLASS_SOURCE_PATTERN_VARIABLE*/ - /*_._VALTUP___V1389*/ - meltfptr[1388] = (melt_ptr_t) &meltcdat->dtup_1295_syCLASS_SOURCE_PATTERN_VARIABLE; + /*_._VALTUP___V1389*/ meltfptr[1388] = (melt_ptr_t) &meltcdat->dtup_1295_syCLASS_SOURCE_PATTERN_VARIABLE; meltcdat->dtup_1295_syCLASS_SOURCE_PATTERN_VARIABLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1295_syCLASS_SOURCE_PATTERN_VARIABLE.nbval = 5; /*inimult dtup_1296_syCLASS_SOURCE_PATTERN_VARIABLE*/ - /*_._VALTUP___V1394*/ - meltfptr[1393] = (melt_ptr_t) &meltcdat->dtup_1296_syCLASS_SOURCE_PATTERN_VARIABLE; + /*_._VALTUP___V1394*/ meltfptr[1393] = (melt_ptr_t) &meltcdat->dtup_1296_syCLASS_SOURCE_PATTERN_VARIABLE; meltcdat->dtup_1296_syCLASS_SOURCE_PATTERN_VARIABLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1296_syCLASS_SOURCE_PATTERN_VARIABLE.nbval = 5; /*iniobj dsym_1297__SPATVAR_SYMB*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1395*/ meltfptr[1394]) + /*uniqueobj*/ if (!/*_._VALDATA___V1395*/ meltfptr[1394]) /*_._VALDATA___V1395*/ meltfptr[1394] = (melt_ptr_t )&meltcdat->dsym_1297__SPATVAR_SYMB; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1297__SPATVAR_SYMB", 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_1297__SPATVAR_SYMB", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23893,19 +21129,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1298__SPATVAR_SYMB*/ - /*_._VALSTR___V1396*/ - meltfptr[1395] = (melt_ptr_t) &meltcdat->dstr_1298__SPATVAR_SYMB; + /*_._VALSTR___V1396*/ meltfptr[1395] = (melt_ptr_t) &meltcdat->dstr_1298__SPATVAR_SYMB; meltcdat->dstr_1298__SPATVAR_SYMB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1298__SPATVAR_SYMB.val, "SPATVAR_SYMB", sizeof (meltcdat->dstr_1298__SPATVAR_SYMB.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1298__SPATVAR_SYMB.val, "SPATVAR_SYMB", sizeof (meltcdat->dstr_1298__SPATVAR_SYMB.val)-1); meltcdat->dstr_1298__SPATVAR_SYMB.val[12] = (char)0 ; meltcdat->dstr_1298__SPATVAR_SYMB.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1299__SPATVAR_SYMB*/ - /*_._VALDATA___V1390*/ - meltfptr[1389] = (melt_ptr_t )&meltcdat->dobj_1299__SPATVAR_SYMB; + /*_._VALDATA___V1390*/ meltfptr[1389] = (melt_ptr_t )&meltcdat->dobj_1299__SPATVAR_SYMB; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1299__SPATVAR_SYMB", 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_1299__SPATVAR_SYMB", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1299__SPATVAR_SYMB.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -23915,18 +21148,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1300__SPATVAR_SYMB*/ - /*_._VALSTR___V1391*/ - meltfptr[1390] = (melt_ptr_t) &meltcdat->dstr_1300__SPATVAR_SYMB; + /*_._VALSTR___V1391*/ meltfptr[1390] = (melt_ptr_t) &meltcdat->dstr_1300__SPATVAR_SYMB; meltcdat->dstr_1300__SPATVAR_SYMB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1300__SPATVAR_SYMB.val, "SPATVAR_SYMB", sizeof (meltcdat->dstr_1300__SPATVAR_SYMB.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1300__SPATVAR_SYMB.val, "SPATVAR_SYMB", sizeof (meltcdat->dstr_1300__SPATVAR_SYMB.val)-1); meltcdat->dstr_1300__SPATVAR_SYMB.val[12] = (char)0 ; meltcdat->dstr_1300__SPATVAR_SYMB.slen = 12 ; /*iniobj dsym_1301__SPATVAR_NBOCC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1397*/ meltfptr[1396]) + /*uniqueobj*/ if (!/*_._VALDATA___V1397*/ meltfptr[1396]) /*_._VALDATA___V1397*/ meltfptr[1396] = (melt_ptr_t )&meltcdat->dsym_1301__SPATVAR_NBOCC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1301__SPATVAR_NBOCC", 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_1301__SPATVAR_NBOCC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23936,19 +21166,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1302__SPATVAR_NBOCC*/ - /*_._VALSTR___V1398*/ - meltfptr[1397] = (melt_ptr_t) &meltcdat->dstr_1302__SPATVAR_NBOCC; + /*_._VALSTR___V1398*/ meltfptr[1397] = (melt_ptr_t) &meltcdat->dstr_1302__SPATVAR_NBOCC; meltcdat->dstr_1302__SPATVAR_NBOCC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1302__SPATVAR_NBOCC.val, "SPATVAR_NBOCC", sizeof (meltcdat->dstr_1302__SPATVAR_NBOCC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1302__SPATVAR_NBOCC.val, "SPATVAR_NBOCC", sizeof (meltcdat->dstr_1302__SPATVAR_NBOCC.val)-1); meltcdat->dstr_1302__SPATVAR_NBOCC.val[13] = (char)0 ; meltcdat->dstr_1302__SPATVAR_NBOCC.slen = 13 ; /*^iniobj*/ /*iniobj dobj_1303__SPATVAR_NBOCC*/ - /*_._VALDATA___V1392*/ - meltfptr[1391] = (melt_ptr_t )&meltcdat->dobj_1303__SPATVAR_NBOCC; + /*_._VALDATA___V1392*/ meltfptr[1391] = (melt_ptr_t )&meltcdat->dobj_1303__SPATVAR_NBOCC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1303__SPATVAR_NBOCC", 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_1303__SPATVAR_NBOCC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1303__SPATVAR_NBOCC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -23958,18 +21185,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1304__SPATVAR_NBOCC*/ - /*_._VALSTR___V1393*/ - meltfptr[1392] = (melt_ptr_t) &meltcdat->dstr_1304__SPATVAR_NBOCC; + /*_._VALSTR___V1393*/ meltfptr[1392] = (melt_ptr_t) &meltcdat->dstr_1304__SPATVAR_NBOCC; meltcdat->dstr_1304__SPATVAR_NBOCC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1304__SPATVAR_NBOCC.val, "SPATVAR_NBOCC", sizeof (meltcdat->dstr_1304__SPATVAR_NBOCC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1304__SPATVAR_NBOCC.val, "SPATVAR_NBOCC", sizeof (meltcdat->dstr_1304__SPATVAR_NBOCC.val)-1); meltcdat->dstr_1304__SPATVAR_NBOCC.val[13] = (char)0 ; meltcdat->dstr_1304__SPATVAR_NBOCC.slen = 13 ; /*iniobj dsym_1305__SPAT_VAR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1399*/ meltfptr[1398]) + /*uniqueobj*/ if (!/*_._VALDATA___V1399*/ meltfptr[1398]) /*_._VALDATA___V1399*/ meltfptr[1398] = (melt_ptr_t )&meltcdat->dsym_1305__SPAT_VAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1305__SPAT_VAR", 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_1305__SPAT_VAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -23979,18 +21203,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1306__SPAT_VAR*/ - /*_._VALSTR___V1400*/ - meltfptr[1399] = (melt_ptr_t) &meltcdat->dstr_1306__SPAT_VAR; + /*_._VALSTR___V1400*/ meltfptr[1399] = (melt_ptr_t) &meltcdat->dstr_1306__SPAT_VAR; meltcdat->dstr_1306__SPAT_VAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1306__SPAT_VAR.val, "SPAT_VAR", sizeof (meltcdat->dstr_1306__SPAT_VAR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1306__SPAT_VAR.val, "SPAT_VAR", sizeof (meltcdat->dstr_1306__SPAT_VAR.val)-1); meltcdat->dstr_1306__SPAT_VAR.val[8] = (char)0 ; meltcdat->dstr_1306__SPAT_VAR.slen = 8 ; /*iniobj dsym_1307__CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1401*/ meltfptr[1400]) + /*uniqueobj*/ if (!/*_._VALDATA___V1401*/ meltfptr[1400]) /*_._VALDATA___V1401*/ meltfptr[1400] = (melt_ptr_t )&meltcdat->dsym_1307__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1307__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", 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_1307__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24000,19 +21221,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1308__CLASS_SOURCE_PATTERN_JOK*/ - /*_._VALSTR___V1402*/ - meltfptr[1401] = (melt_ptr_t) &meltcdat->dstr_1308__CLASS_SOURCE_PATTERN_JOK; + /*_._VALSTR___V1402*/ meltfptr[1401] = (melt_ptr_t) &meltcdat->dstr_1308__CLASS_SOURCE_PATTERN_JOK; meltcdat->dstr_1308__CLASS_SOURCE_PATTERN_JOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1308__CLASS_SOURCE_PATTERN_JOK.val, "CLASS_SOURCE_PATTERN_JOKER_VARIABLE", sizeof (meltcdat->dstr_1308__CLASS_SOURCE_PATTERN_JOK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1308__CLASS_SOURCE_PATTERN_JOK.val, "CLASS_SOURCE_PATTERN_JOKER_VARIABLE", sizeof (meltcdat->dstr_1308__CLASS_SOURCE_PATTERN_JOK.val)-1); meltcdat->dstr_1308__CLASS_SOURCE_PATTERN_JOK.val[35] = (char)0 ; meltcdat->dstr_1308__CLASS_SOURCE_PATTERN_JOK.slen = 35 ; MELT_LOCATION("warmelt-macro.melt:1298:/ iniobj"); /*iniobj dobj_1309__CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ - /*_._VALDATA___V1403*/ - meltfptr[1402] = (melt_ptr_t )&meltcdat->dobj_1309__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; + /*_._VALDATA___V1403*/ meltfptr[1402] = (melt_ptr_t )&meltcdat->dobj_1309__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1309__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", 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_1309__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1309__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -24022,28 +21240,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1310__CLASS_SOURCE_PATTERN_JOK*/ - /*_._VALSTR___V1404*/ - meltfptr[1403] = (melt_ptr_t) &meltcdat->dstr_1310__CLASS_SOURCE_PATTERN_JOK; + /*_._VALSTR___V1404*/ meltfptr[1403] = (melt_ptr_t) &meltcdat->dstr_1310__CLASS_SOURCE_PATTERN_JOK; meltcdat->dstr_1310__CLASS_SOURCE_PATTERN_JOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1310__CLASS_SOURCE_PATTERN_JOK.val, "CLASS_SOURCE_PATTERN_JOKER_VARIABLE", sizeof (meltcdat->dstr_1310__CLASS_SOURCE_PATTERN_JOK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1310__CLASS_SOURCE_PATTERN_JOK.val, "CLASS_SOURCE_PATTERN_JOKER_VARIABLE", sizeof (meltcdat->dstr_1310__CLASS_SOURCE_PATTERN_JOK.val)-1); meltcdat->dstr_1310__CLASS_SOURCE_PATTERN_JOK.val[35] = (char)0 ; meltcdat->dstr_1310__CLASS_SOURCE_PATTERN_JOK.slen = 35 ; /*inimult dtup_1311_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ - /*_._VALTUP___V1405*/ - meltfptr[1404] = (melt_ptr_t) &meltcdat->dtup_1311_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE; + /*_._VALTUP___V1405*/ meltfptr[1404] = (melt_ptr_t) &meltcdat->dtup_1311_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE; meltcdat->dtup_1311_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1311_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE.nbval = 6; /*inimult dtup_1312_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ - /*_._VALTUP___V1406*/ - meltfptr[1405] = (melt_ptr_t) &meltcdat->dtup_1312_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE; + /*_._VALTUP___V1406*/ meltfptr[1405] = (melt_ptr_t) &meltcdat->dtup_1312_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE; meltcdat->dtup_1312_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1312_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE.nbval = 5; /*iniobj dsym_1313__CLASS_SOURCE_PATTERN_CONSTANT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1407*/ meltfptr[1406]) + /*uniqueobj*/ if (!/*_._VALDATA___V1407*/ meltfptr[1406]) /*_._VALDATA___V1407*/ meltfptr[1406] = (melt_ptr_t )&meltcdat->dsym_1313__CLASS_SOURCE_PATTERN_CONSTANT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1313__CLASS_SOURCE_PATTERN_CONSTANT", 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_1313__CLASS_SOURCE_PATTERN_CONSTANT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24053,19 +21266,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1314__CLASS_SOURCE_PATTERN_CON*/ - /*_._VALSTR___V1408*/ - meltfptr[1407] = (melt_ptr_t) &meltcdat->dstr_1314__CLASS_SOURCE_PATTERN_CON; + /*_._VALSTR___V1408*/ meltfptr[1407] = (melt_ptr_t) &meltcdat->dstr_1314__CLASS_SOURCE_PATTERN_CON; meltcdat->dstr_1314__CLASS_SOURCE_PATTERN_CON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1314__CLASS_SOURCE_PATTERN_CON.val, "CLASS_SOURCE_PATTERN_CONSTANT", sizeof (meltcdat->dstr_1314__CLASS_SOURCE_PATTERN_CON.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1314__CLASS_SOURCE_PATTERN_CON.val, "CLASS_SOURCE_PATTERN_CONSTANT", sizeof (meltcdat->dstr_1314__CLASS_SOURCE_PATTERN_CON.val)-1); meltcdat->dstr_1314__CLASS_SOURCE_PATTERN_CON.val[29] = (char)0 ; meltcdat->dstr_1314__CLASS_SOURCE_PATTERN_CON.slen = 29 ; MELT_LOCATION("warmelt-macro.melt:1305:/ iniobj"); /*iniobj dobj_1315__CLASS_SOURCE_PATTERN_CONSTANT*/ - /*_._VALDATA___V1409*/ - meltfptr[1408] = (melt_ptr_t )&meltcdat->dobj_1315__CLASS_SOURCE_PATTERN_CONSTANT; + /*_._VALDATA___V1409*/ meltfptr[1408] = (melt_ptr_t )&meltcdat->dobj_1315__CLASS_SOURCE_PATTERN_CONSTANT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1315__CLASS_SOURCE_PATTERN_CONSTANT", 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_1315__CLASS_SOURCE_PATTERN_CONSTANT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1315__CLASS_SOURCE_PATTERN_CONSTANT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -24075,28 +21285,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1316__CLASS_SOURCE_PATTERN_CON*/ - /*_._VALSTR___V1410*/ - meltfptr[1409] = (melt_ptr_t) &meltcdat->dstr_1316__CLASS_SOURCE_PATTERN_CON; + /*_._VALSTR___V1410*/ meltfptr[1409] = (melt_ptr_t) &meltcdat->dstr_1316__CLASS_SOURCE_PATTERN_CON; meltcdat->dstr_1316__CLASS_SOURCE_PATTERN_CON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1316__CLASS_SOURCE_PATTERN_CON.val, "CLASS_SOURCE_PATTERN_CONSTANT", sizeof (meltcdat->dstr_1316__CLASS_SOURCE_PATTERN_CON.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1316__CLASS_SOURCE_PATTERN_CON.val, "CLASS_SOURCE_PATTERN_CONSTANT", sizeof (meltcdat->dstr_1316__CLASS_SOURCE_PATTERN_CON.val)-1); meltcdat->dstr_1316__CLASS_SOURCE_PATTERN_CON.val[29] = (char)0 ; meltcdat->dstr_1316__CLASS_SOURCE_PATTERN_CON.slen = 29 ; /*inimult dtup_1317_syCLASS_SOURCE_PATTERN_CONSTANT*/ - /*_._VALTUP___V1411*/ - meltfptr[1410] = (melt_ptr_t) &meltcdat->dtup_1317_syCLASS_SOURCE_PATTERN_CONSTANT; + /*_._VALTUP___V1411*/ meltfptr[1410] = (melt_ptr_t) &meltcdat->dtup_1317_syCLASS_SOURCE_PATTERN_CONSTANT; meltcdat->dtup_1317_syCLASS_SOURCE_PATTERN_CONSTANT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1317_syCLASS_SOURCE_PATTERN_CONSTANT.nbval = 5; /*inimult dtup_1318_syCLASS_SOURCE_PATTERN_CONSTANT*/ - /*_._VALTUP___V1414*/ - meltfptr[1413] = (melt_ptr_t) &meltcdat->dtup_1318_syCLASS_SOURCE_PATTERN_CONSTANT; + /*_._VALTUP___V1414*/ meltfptr[1413] = (melt_ptr_t) &meltcdat->dtup_1318_syCLASS_SOURCE_PATTERN_CONSTANT; meltcdat->dtup_1318_syCLASS_SOURCE_PATTERN_CONSTANT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1318_syCLASS_SOURCE_PATTERN_CONSTANT.nbval = 4; /*iniobj dsym_1319__SPAT_CONSTX*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1415*/ meltfptr[1414]) + /*uniqueobj*/ if (!/*_._VALDATA___V1415*/ meltfptr[1414]) /*_._VALDATA___V1415*/ meltfptr[1414] = (melt_ptr_t )&meltcdat->dsym_1319__SPAT_CONSTX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1319__SPAT_CONSTX", 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_1319__SPAT_CONSTX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24106,19 +21311,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1320__SPAT_CONSTX*/ - /*_._VALSTR___V1416*/ - meltfptr[1415] = (melt_ptr_t) &meltcdat->dstr_1320__SPAT_CONSTX; + /*_._VALSTR___V1416*/ meltfptr[1415] = (melt_ptr_t) &meltcdat->dstr_1320__SPAT_CONSTX; meltcdat->dstr_1320__SPAT_CONSTX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1320__SPAT_CONSTX.val, "SPAT_CONSTX", sizeof (meltcdat->dstr_1320__SPAT_CONSTX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1320__SPAT_CONSTX.val, "SPAT_CONSTX", sizeof (meltcdat->dstr_1320__SPAT_CONSTX.val)-1); meltcdat->dstr_1320__SPAT_CONSTX.val[11] = (char)0 ; meltcdat->dstr_1320__SPAT_CONSTX.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1321__SPAT_CONSTX*/ - /*_._VALDATA___V1412*/ - meltfptr[1411] = (melt_ptr_t )&meltcdat->dobj_1321__SPAT_CONSTX; + /*_._VALDATA___V1412*/ meltfptr[1411] = (melt_ptr_t )&meltcdat->dobj_1321__SPAT_CONSTX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1321__SPAT_CONSTX", 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_1321__SPAT_CONSTX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1321__SPAT_CONSTX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -24128,18 +21330,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1322__SPAT_CONSTX*/ - /*_._VALSTR___V1413*/ - meltfptr[1412] = (melt_ptr_t) &meltcdat->dstr_1322__SPAT_CONSTX; + /*_._VALSTR___V1413*/ meltfptr[1412] = (melt_ptr_t) &meltcdat->dstr_1322__SPAT_CONSTX; meltcdat->dstr_1322__SPAT_CONSTX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1322__SPAT_CONSTX.val, "SPAT_CONSTX", sizeof (meltcdat->dstr_1322__SPAT_CONSTX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1322__SPAT_CONSTX.val, "SPAT_CONSTX", sizeof (meltcdat->dstr_1322__SPAT_CONSTX.val)-1); meltcdat->dstr_1322__SPAT_CONSTX.val[11] = (char)0 ; meltcdat->dstr_1322__SPAT_CONSTX.slen = 11 ; /*iniobj dsym_1323__CLASS_SOURCE_PATTERN_CONSTRUCT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1417*/ meltfptr[1416]) + /*uniqueobj*/ if (!/*_._VALDATA___V1417*/ meltfptr[1416]) /*_._VALDATA___V1417*/ meltfptr[1416] = (melt_ptr_t )&meltcdat->dsym_1323__CLASS_SOURCE_PATTERN_CONSTRUCT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1323__CLASS_SOURCE_PATTERN_CONSTRUCT", 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_1323__CLASS_SOURCE_PATTERN_CONSTRUCT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24149,19 +21348,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1324__CLASS_SOURCE_PATTERN_CON*/ - /*_._VALSTR___V1418*/ - meltfptr[1417] = (melt_ptr_t) &meltcdat->dstr_1324__CLASS_SOURCE_PATTERN_CON; + /*_._VALSTR___V1418*/ meltfptr[1417] = (melt_ptr_t) &meltcdat->dstr_1324__CLASS_SOURCE_PATTERN_CON; meltcdat->dstr_1324__CLASS_SOURCE_PATTERN_CON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1324__CLASS_SOURCE_PATTERN_CON.val, "CLASS_SOURCE_PATTERN_CONSTRUCT", sizeof (meltcdat->dstr_1324__CLASS_SOURCE_PATTERN_CON.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1324__CLASS_SOURCE_PATTERN_CON.val, "CLASS_SOURCE_PATTERN_CONSTRUCT", sizeof (meltcdat->dstr_1324__CLASS_SOURCE_PATTERN_CON.val)-1); meltcdat->dstr_1324__CLASS_SOURCE_PATTERN_CON.val[30] = (char)0 ; meltcdat->dstr_1324__CLASS_SOURCE_PATTERN_CON.slen = 30 ; MELT_LOCATION("warmelt-macro.melt:1314:/ iniobj"); /*iniobj dobj_1325__CLASS_SOURCE_PATTERN_CONSTRUCT*/ - /*_._VALDATA___V1419*/ - meltfptr[1418] = (melt_ptr_t )&meltcdat->dobj_1325__CLASS_SOURCE_PATTERN_CONSTRUCT; + /*_._VALDATA___V1419*/ meltfptr[1418] = (melt_ptr_t )&meltcdat->dobj_1325__CLASS_SOURCE_PATTERN_CONSTRUCT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1325__CLASS_SOURCE_PATTERN_CONSTRUCT", 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_1325__CLASS_SOURCE_PATTERN_CONSTRUCT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1325__CLASS_SOURCE_PATTERN_CONSTRUCT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -24171,28 +21367,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1326__CLASS_SOURCE_PATTERN_CON*/ - /*_._VALSTR___V1420*/ - meltfptr[1419] = (melt_ptr_t) &meltcdat->dstr_1326__CLASS_SOURCE_PATTERN_CON; + /*_._VALSTR___V1420*/ meltfptr[1419] = (melt_ptr_t) &meltcdat->dstr_1326__CLASS_SOURCE_PATTERN_CON; meltcdat->dstr_1326__CLASS_SOURCE_PATTERN_CON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1326__CLASS_SOURCE_PATTERN_CON.val, "CLASS_SOURCE_PATTERN_CONSTRUCT", sizeof (meltcdat->dstr_1326__CLASS_SOURCE_PATTERN_CON.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1326__CLASS_SOURCE_PATTERN_CON.val, "CLASS_SOURCE_PATTERN_CONSTRUCT", sizeof (meltcdat->dstr_1326__CLASS_SOURCE_PATTERN_CON.val)-1); meltcdat->dstr_1326__CLASS_SOURCE_PATTERN_CON.val[30] = (char)0 ; meltcdat->dstr_1326__CLASS_SOURCE_PATTERN_CON.slen = 30 ; /*inimult dtup_1327_syCLASS_SOURCE_PATTERN_CONSTRUCT*/ - /*_._VALTUP___V1421*/ - meltfptr[1420] = (melt_ptr_t) &meltcdat->dtup_1327_syCLASS_SOURCE_PATTERN_CONSTRUCT; + /*_._VALTUP___V1421*/ meltfptr[1420] = (melt_ptr_t) &meltcdat->dtup_1327_syCLASS_SOURCE_PATTERN_CONSTRUCT; meltcdat->dtup_1327_syCLASS_SOURCE_PATTERN_CONSTRUCT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1327_syCLASS_SOURCE_PATTERN_CONSTRUCT.nbval = 5; /*inimult dtup_1328_syCLASS_SOURCE_PATTERN_CONSTRUCT*/ - /*_._VALTUP___V1424*/ - meltfptr[1423] = (melt_ptr_t) &meltcdat->dtup_1328_syCLASS_SOURCE_PATTERN_CONSTRUCT; + /*_._VALTUP___V1424*/ meltfptr[1423] = (melt_ptr_t) &meltcdat->dtup_1328_syCLASS_SOURCE_PATTERN_CONSTRUCT; meltcdat->dtup_1328_syCLASS_SOURCE_PATTERN_CONSTRUCT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1328_syCLASS_SOURCE_PATTERN_CONSTRUCT.nbval = 4; /*iniobj dsym_1329__CTPAT_SUBPA*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1425*/ meltfptr[1424]) + /*uniqueobj*/ if (!/*_._VALDATA___V1425*/ meltfptr[1424]) /*_._VALDATA___V1425*/ meltfptr[1424] = (melt_ptr_t )&meltcdat->dsym_1329__CTPAT_SUBPA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1329__CTPAT_SUBPA", 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_1329__CTPAT_SUBPA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24202,19 +21393,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1330__CTPAT_SUBPA*/ - /*_._VALSTR___V1426*/ - meltfptr[1425] = (melt_ptr_t) &meltcdat->dstr_1330__CTPAT_SUBPA; + /*_._VALSTR___V1426*/ meltfptr[1425] = (melt_ptr_t) &meltcdat->dstr_1330__CTPAT_SUBPA; meltcdat->dstr_1330__CTPAT_SUBPA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1330__CTPAT_SUBPA.val, "CTPAT_SUBPA", sizeof (meltcdat->dstr_1330__CTPAT_SUBPA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1330__CTPAT_SUBPA.val, "CTPAT_SUBPA", sizeof (meltcdat->dstr_1330__CTPAT_SUBPA.val)-1); meltcdat->dstr_1330__CTPAT_SUBPA.val[11] = (char)0 ; meltcdat->dstr_1330__CTPAT_SUBPA.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1331__CTPAT_SUBPA*/ - /*_._VALDATA___V1422*/ - meltfptr[1421] = (melt_ptr_t )&meltcdat->dobj_1331__CTPAT_SUBPA; + /*_._VALDATA___V1422*/ meltfptr[1421] = (melt_ptr_t )&meltcdat->dobj_1331__CTPAT_SUBPA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1331__CTPAT_SUBPA", 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_1331__CTPAT_SUBPA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1331__CTPAT_SUBPA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -24224,18 +21412,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1332__CTPAT_SUBPA*/ - /*_._VALSTR___V1423*/ - meltfptr[1422] = (melt_ptr_t) &meltcdat->dstr_1332__CTPAT_SUBPA; + /*_._VALSTR___V1423*/ meltfptr[1422] = (melt_ptr_t) &meltcdat->dstr_1332__CTPAT_SUBPA; meltcdat->dstr_1332__CTPAT_SUBPA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1332__CTPAT_SUBPA.val, "CTPAT_SUBPA", sizeof (meltcdat->dstr_1332__CTPAT_SUBPA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1332__CTPAT_SUBPA.val, "CTPAT_SUBPA", sizeof (meltcdat->dstr_1332__CTPAT_SUBPA.val)-1); meltcdat->dstr_1332__CTPAT_SUBPA.val[11] = (char)0 ; meltcdat->dstr_1332__CTPAT_SUBPA.slen = 11 ; /*iniobj dsym_1333__CLASS_SOURCE_PATTERN_TUPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1427*/ meltfptr[1426]) + /*uniqueobj*/ if (!/*_._VALDATA___V1427*/ meltfptr[1426]) /*_._VALDATA___V1427*/ meltfptr[1426] = (melt_ptr_t )&meltcdat->dsym_1333__CLASS_SOURCE_PATTERN_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1333__CLASS_SOURCE_PATTERN_TUPLE", 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_1333__CLASS_SOURCE_PATTERN_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24245,19 +21430,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1334__CLASS_SOURCE_PATTERN_TUP*/ - /*_._VALSTR___V1428*/ - meltfptr[1427] = (melt_ptr_t) &meltcdat->dstr_1334__CLASS_SOURCE_PATTERN_TUP; + /*_._VALSTR___V1428*/ meltfptr[1427] = (melt_ptr_t) &meltcdat->dstr_1334__CLASS_SOURCE_PATTERN_TUP; meltcdat->dstr_1334__CLASS_SOURCE_PATTERN_TUP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1334__CLASS_SOURCE_PATTERN_TUP.val, "CLASS_SOURCE_PATTERN_TUPLE", sizeof (meltcdat->dstr_1334__CLASS_SOURCE_PATTERN_TUP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1334__CLASS_SOURCE_PATTERN_TUP.val, "CLASS_SOURCE_PATTERN_TUPLE", sizeof (meltcdat->dstr_1334__CLASS_SOURCE_PATTERN_TUP.val)-1); meltcdat->dstr_1334__CLASS_SOURCE_PATTERN_TUP.val[26] = (char)0 ; meltcdat->dstr_1334__CLASS_SOURCE_PATTERN_TUP.slen = 26 ; MELT_LOCATION("warmelt-macro.melt:1323:/ iniobj"); /*iniobj dobj_1335__CLASS_SOURCE_PATTERN_TUPLE*/ - /*_._VALDATA___V1429*/ - meltfptr[1428] = (melt_ptr_t )&meltcdat->dobj_1335__CLASS_SOURCE_PATTERN_TUPLE; + /*_._VALDATA___V1429*/ meltfptr[1428] = (melt_ptr_t )&meltcdat->dobj_1335__CLASS_SOURCE_PATTERN_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1335__CLASS_SOURCE_PATTERN_TUPLE", 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_1335__CLASS_SOURCE_PATTERN_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1335__CLASS_SOURCE_PATTERN_TUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -24267,28 +21449,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1336__CLASS_SOURCE_PATTERN_TUP*/ - /*_._VALSTR___V1430*/ - meltfptr[1429] = (melt_ptr_t) &meltcdat->dstr_1336__CLASS_SOURCE_PATTERN_TUP; + /*_._VALSTR___V1430*/ meltfptr[1429] = (melt_ptr_t) &meltcdat->dstr_1336__CLASS_SOURCE_PATTERN_TUP; meltcdat->dstr_1336__CLASS_SOURCE_PATTERN_TUP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1336__CLASS_SOURCE_PATTERN_TUP.val, "CLASS_SOURCE_PATTERN_TUPLE", sizeof (meltcdat->dstr_1336__CLASS_SOURCE_PATTERN_TUP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1336__CLASS_SOURCE_PATTERN_TUP.val, "CLASS_SOURCE_PATTERN_TUPLE", sizeof (meltcdat->dstr_1336__CLASS_SOURCE_PATTERN_TUP.val)-1); meltcdat->dstr_1336__CLASS_SOURCE_PATTERN_TUP.val[26] = (char)0 ; meltcdat->dstr_1336__CLASS_SOURCE_PATTERN_TUP.slen = 26 ; /*inimult dtup_1337_syCLASS_SOURCE_PATTERN_TUPLE*/ - /*_._VALTUP___V1431*/ - meltfptr[1430] = (melt_ptr_t) &meltcdat->dtup_1337_syCLASS_SOURCE_PATTERN_TUPLE; + /*_._VALTUP___V1431*/ meltfptr[1430] = (melt_ptr_t) &meltcdat->dtup_1337_syCLASS_SOURCE_PATTERN_TUPLE; meltcdat->dtup_1337_syCLASS_SOURCE_PATTERN_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1337_syCLASS_SOURCE_PATTERN_TUPLE.nbval = 6; /*inimult dtup_1338_syCLASS_SOURCE_PATTERN_TUPLE*/ - /*_._VALTUP___V1432*/ - meltfptr[1431] = (melt_ptr_t) &meltcdat->dtup_1338_syCLASS_SOURCE_PATTERN_TUPLE; + /*_._VALTUP___V1432*/ meltfptr[1431] = (melt_ptr_t) &meltcdat->dtup_1338_syCLASS_SOURCE_PATTERN_TUPLE; meltcdat->dtup_1338_syCLASS_SOURCE_PATTERN_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1338_syCLASS_SOURCE_PATTERN_TUPLE.nbval = 4; /*iniobj dsym_1339__CLASS_SOURCE_PATTERN_LIST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1433*/ meltfptr[1432]) + /*uniqueobj*/ if (!/*_._VALDATA___V1433*/ meltfptr[1432]) /*_._VALDATA___V1433*/ meltfptr[1432] = (melt_ptr_t )&meltcdat->dsym_1339__CLASS_SOURCE_PATTERN_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1339__CLASS_SOURCE_PATTERN_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_1339__CLASS_SOURCE_PATTERN_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24298,19 +21475,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1340__CLASS_SOURCE_PATTERN_LIS*/ - /*_._VALSTR___V1434*/ - meltfptr[1433] = (melt_ptr_t) &meltcdat->dstr_1340__CLASS_SOURCE_PATTERN_LIS; + /*_._VALSTR___V1434*/ meltfptr[1433] = (melt_ptr_t) &meltcdat->dstr_1340__CLASS_SOURCE_PATTERN_LIS; meltcdat->dstr_1340__CLASS_SOURCE_PATTERN_LIS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1340__CLASS_SOURCE_PATTERN_LIS.val, "CLASS_SOURCE_PATTERN_LIST", sizeof (meltcdat->dstr_1340__CLASS_SOURCE_PATTERN_LIS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1340__CLASS_SOURCE_PATTERN_LIS.val, "CLASS_SOURCE_PATTERN_LIST", sizeof (meltcdat->dstr_1340__CLASS_SOURCE_PATTERN_LIS.val)-1); meltcdat->dstr_1340__CLASS_SOURCE_PATTERN_LIS.val[25] = (char)0 ; meltcdat->dstr_1340__CLASS_SOURCE_PATTERN_LIS.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:1330:/ iniobj"); /*iniobj dobj_1341__CLASS_SOURCE_PATTERN_LIST*/ - /*_._VALDATA___V1435*/ - meltfptr[1434] = (melt_ptr_t )&meltcdat->dobj_1341__CLASS_SOURCE_PATTERN_LIST; + /*_._VALDATA___V1435*/ meltfptr[1434] = (melt_ptr_t )&meltcdat->dobj_1341__CLASS_SOURCE_PATTERN_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1341__CLASS_SOURCE_PATTERN_LIST", 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_1341__CLASS_SOURCE_PATTERN_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1341__CLASS_SOURCE_PATTERN_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -24320,28 +21494,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1342__CLASS_SOURCE_PATTERN_LIS*/ - /*_._VALSTR___V1436*/ - meltfptr[1435] = (melt_ptr_t) &meltcdat->dstr_1342__CLASS_SOURCE_PATTERN_LIS; + /*_._VALSTR___V1436*/ meltfptr[1435] = (melt_ptr_t) &meltcdat->dstr_1342__CLASS_SOURCE_PATTERN_LIS; meltcdat->dstr_1342__CLASS_SOURCE_PATTERN_LIS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1342__CLASS_SOURCE_PATTERN_LIS.val, "CLASS_SOURCE_PATTERN_LIST", sizeof (meltcdat->dstr_1342__CLASS_SOURCE_PATTERN_LIS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1342__CLASS_SOURCE_PATTERN_LIS.val, "CLASS_SOURCE_PATTERN_LIST", sizeof (meltcdat->dstr_1342__CLASS_SOURCE_PATTERN_LIS.val)-1); meltcdat->dstr_1342__CLASS_SOURCE_PATTERN_LIS.val[25] = (char)0 ; meltcdat->dstr_1342__CLASS_SOURCE_PATTERN_LIS.slen = 25 ; /*inimult dtup_1343_syCLASS_SOURCE_PATTERN_LIST*/ - /*_._VALTUP___V1437*/ - meltfptr[1436] = (melt_ptr_t) &meltcdat->dtup_1343_syCLASS_SOURCE_PATTERN_LIST; + /*_._VALTUP___V1437*/ meltfptr[1436] = (melt_ptr_t) &meltcdat->dtup_1343_syCLASS_SOURCE_PATTERN_LIST; meltcdat->dtup_1343_syCLASS_SOURCE_PATTERN_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1343_syCLASS_SOURCE_PATTERN_LIST.nbval = 6; /*inimult dtup_1344_syCLASS_SOURCE_PATTERN_LIST*/ - /*_._VALTUP___V1438*/ - meltfptr[1437] = (melt_ptr_t) &meltcdat->dtup_1344_syCLASS_SOURCE_PATTERN_LIST; + /*_._VALTUP___V1438*/ meltfptr[1437] = (melt_ptr_t) &meltcdat->dtup_1344_syCLASS_SOURCE_PATTERN_LIST; meltcdat->dtup_1344_syCLASS_SOURCE_PATTERN_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1344_syCLASS_SOURCE_PATTERN_LIST.nbval = 4; /*iniobj dsym_1345__CLASS_SOURCE_PATTERN_OBJECT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1439*/ meltfptr[1438]) + /*uniqueobj*/ if (!/*_._VALDATA___V1439*/ meltfptr[1438]) /*_._VALDATA___V1439*/ meltfptr[1438] = (melt_ptr_t )&meltcdat->dsym_1345__CLASS_SOURCE_PATTERN_OBJECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1345__CLASS_SOURCE_PATTERN_OBJECT", 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_1345__CLASS_SOURCE_PATTERN_OBJECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24351,19 +21520,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1346__CLASS_SOURCE_PATTERN_OBJ*/ - /*_._VALSTR___V1440*/ - meltfptr[1439] = (melt_ptr_t) &meltcdat->dstr_1346__CLASS_SOURCE_PATTERN_OBJ; + /*_._VALSTR___V1440*/ meltfptr[1439] = (melt_ptr_t) &meltcdat->dstr_1346__CLASS_SOURCE_PATTERN_OBJ; meltcdat->dstr_1346__CLASS_SOURCE_PATTERN_OBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1346__CLASS_SOURCE_PATTERN_OBJ.val, "CLASS_SOURCE_PATTERN_OBJECT", sizeof (meltcdat->dstr_1346__CLASS_SOURCE_PATTERN_OBJ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1346__CLASS_SOURCE_PATTERN_OBJ.val, "CLASS_SOURCE_PATTERN_OBJECT", sizeof (meltcdat->dstr_1346__CLASS_SOURCE_PATTERN_OBJ.val)-1); meltcdat->dstr_1346__CLASS_SOURCE_PATTERN_OBJ.val[27] = (char)0 ; meltcdat->dstr_1346__CLASS_SOURCE_PATTERN_OBJ.slen = 27 ; MELT_LOCATION("warmelt-macro.melt:1338:/ iniobj"); /*iniobj dobj_1347__CLASS_SOURCE_PATTERN_OBJECT*/ - /*_._VALDATA___V1441*/ - meltfptr[1440] = (melt_ptr_t )&meltcdat->dobj_1347__CLASS_SOURCE_PATTERN_OBJECT; + /*_._VALDATA___V1441*/ meltfptr[1440] = (melt_ptr_t )&meltcdat->dobj_1347__CLASS_SOURCE_PATTERN_OBJECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1347__CLASS_SOURCE_PATTERN_OBJECT", 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_1347__CLASS_SOURCE_PATTERN_OBJECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1347__CLASS_SOURCE_PATTERN_OBJECT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -24373,28 +21539,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1348__CLASS_SOURCE_PATTERN_OBJ*/ - /*_._VALSTR___V1442*/ - meltfptr[1441] = (melt_ptr_t) &meltcdat->dstr_1348__CLASS_SOURCE_PATTERN_OBJ; + /*_._VALSTR___V1442*/ meltfptr[1441] = (melt_ptr_t) &meltcdat->dstr_1348__CLASS_SOURCE_PATTERN_OBJ; meltcdat->dstr_1348__CLASS_SOURCE_PATTERN_OBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1348__CLASS_SOURCE_PATTERN_OBJ.val, "CLASS_SOURCE_PATTERN_OBJECT", sizeof (meltcdat->dstr_1348__CLASS_SOURCE_PATTERN_OBJ.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1348__CLASS_SOURCE_PATTERN_OBJ.val, "CLASS_SOURCE_PATTERN_OBJECT", sizeof (meltcdat->dstr_1348__CLASS_SOURCE_PATTERN_OBJ.val)-1); meltcdat->dstr_1348__CLASS_SOURCE_PATTERN_OBJ.val[27] = (char)0 ; meltcdat->dstr_1348__CLASS_SOURCE_PATTERN_OBJ.slen = 27 ; /*inimult dtup_1349_syCLASS_SOURCE_PATTERN_OBJECT*/ - /*_._VALTUP___V1443*/ - meltfptr[1442] = (melt_ptr_t) &meltcdat->dtup_1349_syCLASS_SOURCE_PATTERN_OBJECT; + /*_._VALTUP___V1443*/ meltfptr[1442] = (melt_ptr_t) &meltcdat->dtup_1349_syCLASS_SOURCE_PATTERN_OBJECT; meltcdat->dtup_1349_syCLASS_SOURCE_PATTERN_OBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1349_syCLASS_SOURCE_PATTERN_OBJECT.nbval = 5; /*inimult dtup_1350_syCLASS_SOURCE_PATTERN_OBJECT*/ - /*_._VALTUP___V1448*/ - meltfptr[1447] = (melt_ptr_t) &meltcdat->dtup_1350_syCLASS_SOURCE_PATTERN_OBJECT; + /*_._VALTUP___V1448*/ meltfptr[1447] = (melt_ptr_t) &meltcdat->dtup_1350_syCLASS_SOURCE_PATTERN_OBJECT; meltcdat->dtup_1350_syCLASS_SOURCE_PATTERN_OBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1350_syCLASS_SOURCE_PATTERN_OBJECT.nbval = 5; /*iniobj dsym_1351__SPAT_CLASS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1449*/ meltfptr[1448]) + /*uniqueobj*/ if (!/*_._VALDATA___V1449*/ meltfptr[1448]) /*_._VALDATA___V1449*/ meltfptr[1448] = (melt_ptr_t )&meltcdat->dsym_1351__SPAT_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1351__SPAT_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_1351__SPAT_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24404,19 +21565,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1352__SPAT_CLASS*/ - /*_._VALSTR___V1450*/ - meltfptr[1449] = (melt_ptr_t) &meltcdat->dstr_1352__SPAT_CLASS; + /*_._VALSTR___V1450*/ meltfptr[1449] = (melt_ptr_t) &meltcdat->dstr_1352__SPAT_CLASS; meltcdat->dstr_1352__SPAT_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1352__SPAT_CLASS.val, "SPAT_CLASS", sizeof (meltcdat->dstr_1352__SPAT_CLASS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1352__SPAT_CLASS.val, "SPAT_CLASS", sizeof (meltcdat->dstr_1352__SPAT_CLASS.val)-1); meltcdat->dstr_1352__SPAT_CLASS.val[10] = (char)0 ; meltcdat->dstr_1352__SPAT_CLASS.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1353__SPAT_CLASS*/ - /*_._VALDATA___V1444*/ - meltfptr[1443] = (melt_ptr_t )&meltcdat->dobj_1353__SPAT_CLASS; + /*_._VALDATA___V1444*/ meltfptr[1443] = (melt_ptr_t )&meltcdat->dobj_1353__SPAT_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1353__SPAT_CLASS", 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_1353__SPAT_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1353__SPAT_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -24426,18 +21584,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1354__SPAT_CLASS*/ - /*_._VALSTR___V1445*/ - meltfptr[1444] = (melt_ptr_t) &meltcdat->dstr_1354__SPAT_CLASS; + /*_._VALSTR___V1445*/ meltfptr[1444] = (melt_ptr_t) &meltcdat->dstr_1354__SPAT_CLASS; meltcdat->dstr_1354__SPAT_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1354__SPAT_CLASS.val, "SPAT_CLASS", sizeof (meltcdat->dstr_1354__SPAT_CLASS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1354__SPAT_CLASS.val, "SPAT_CLASS", sizeof (meltcdat->dstr_1354__SPAT_CLASS.val)-1); meltcdat->dstr_1354__SPAT_CLASS.val[10] = (char)0 ; meltcdat->dstr_1354__SPAT_CLASS.slen = 10 ; /*iniobj dsym_1355__SPAT_FIELDS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1451*/ meltfptr[1450]) + /*uniqueobj*/ if (!/*_._VALDATA___V1451*/ meltfptr[1450]) /*_._VALDATA___V1451*/ meltfptr[1450] = (melt_ptr_t )&meltcdat->dsym_1355__SPAT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1355__SPAT_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_1355__SPAT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24447,19 +21602,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1356__SPAT_FIELDS*/ - /*_._VALSTR___V1452*/ - meltfptr[1451] = (melt_ptr_t) &meltcdat->dstr_1356__SPAT_FIELDS; + /*_._VALSTR___V1452*/ meltfptr[1451] = (melt_ptr_t) &meltcdat->dstr_1356__SPAT_FIELDS; meltcdat->dstr_1356__SPAT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1356__SPAT_FIELDS.val, "SPAT_FIELDS", sizeof (meltcdat->dstr_1356__SPAT_FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1356__SPAT_FIELDS.val, "SPAT_FIELDS", sizeof (meltcdat->dstr_1356__SPAT_FIELDS.val)-1); meltcdat->dstr_1356__SPAT_FIELDS.val[11] = (char)0 ; meltcdat->dstr_1356__SPAT_FIELDS.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1357__SPAT_FIELDS*/ - /*_._VALDATA___V1446*/ - meltfptr[1445] = (melt_ptr_t )&meltcdat->dobj_1357__SPAT_FIELDS; + /*_._VALDATA___V1446*/ meltfptr[1445] = (melt_ptr_t )&meltcdat->dobj_1357__SPAT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1357__SPAT_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_1357__SPAT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1357__SPAT_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -24469,18 +21621,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1358__SPAT_FIELDS*/ - /*_._VALSTR___V1447*/ - meltfptr[1446] = (melt_ptr_t) &meltcdat->dstr_1358__SPAT_FIELDS; + /*_._VALSTR___V1447*/ meltfptr[1446] = (melt_ptr_t) &meltcdat->dstr_1358__SPAT_FIELDS; meltcdat->dstr_1358__SPAT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1358__SPAT_FIELDS.val, "SPAT_FIELDS", sizeof (meltcdat->dstr_1358__SPAT_FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1358__SPAT_FIELDS.val, "SPAT_FIELDS", sizeof (meltcdat->dstr_1358__SPAT_FIELDS.val)-1); meltcdat->dstr_1358__SPAT_FIELDS.val[11] = (char)0 ; meltcdat->dstr_1358__SPAT_FIELDS.slen = 11 ; /*iniobj dsym_1359__CLASS_SOURCE_PATTERN_INSTANCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1453*/ meltfptr[1452]) + /*uniqueobj*/ if (!/*_._VALDATA___V1453*/ meltfptr[1452]) /*_._VALDATA___V1453*/ meltfptr[1452] = (melt_ptr_t )&meltcdat->dsym_1359__CLASS_SOURCE_PATTERN_INSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1359__CLASS_SOURCE_PATTERN_INSTANCE", 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_1359__CLASS_SOURCE_PATTERN_INSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24490,19 +21639,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1360__CLASS_SOURCE_PATTERN_INS*/ - /*_._VALSTR___V1454*/ - meltfptr[1453] = (melt_ptr_t) &meltcdat->dstr_1360__CLASS_SOURCE_PATTERN_INS; + /*_._VALSTR___V1454*/ meltfptr[1453] = (melt_ptr_t) &meltcdat->dstr_1360__CLASS_SOURCE_PATTERN_INS; meltcdat->dstr_1360__CLASS_SOURCE_PATTERN_INS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1360__CLASS_SOURCE_PATTERN_INS.val, "CLASS_SOURCE_PATTERN_INSTANCE", sizeof (meltcdat->dstr_1360__CLASS_SOURCE_PATTERN_INS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1360__CLASS_SOURCE_PATTERN_INS.val, "CLASS_SOURCE_PATTERN_INSTANCE", sizeof (meltcdat->dstr_1360__CLASS_SOURCE_PATTERN_INS.val)-1); meltcdat->dstr_1360__CLASS_SOURCE_PATTERN_INS.val[29] = (char)0 ; meltcdat->dstr_1360__CLASS_SOURCE_PATTERN_INS.slen = 29 ; MELT_LOCATION("warmelt-macro.melt:1350:/ iniobj"); /*iniobj dobj_1361__CLASS_SOURCE_PATTERN_INSTANCE*/ - /*_._VALDATA___V1455*/ - meltfptr[1454] = (melt_ptr_t )&meltcdat->dobj_1361__CLASS_SOURCE_PATTERN_INSTANCE; + /*_._VALDATA___V1455*/ meltfptr[1454] = (melt_ptr_t )&meltcdat->dobj_1361__CLASS_SOURCE_PATTERN_INSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1361__CLASS_SOURCE_PATTERN_INSTANCE", 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_1361__CLASS_SOURCE_PATTERN_INSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1361__CLASS_SOURCE_PATTERN_INSTANCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -24512,28 +21658,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1362__CLASS_SOURCE_PATTERN_INS*/ - /*_._VALSTR___V1456*/ - meltfptr[1455] = (melt_ptr_t) &meltcdat->dstr_1362__CLASS_SOURCE_PATTERN_INS; + /*_._VALSTR___V1456*/ meltfptr[1455] = (melt_ptr_t) &meltcdat->dstr_1362__CLASS_SOURCE_PATTERN_INS; meltcdat->dstr_1362__CLASS_SOURCE_PATTERN_INS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1362__CLASS_SOURCE_PATTERN_INS.val, "CLASS_SOURCE_PATTERN_INSTANCE", sizeof (meltcdat->dstr_1362__CLASS_SOURCE_PATTERN_INS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1362__CLASS_SOURCE_PATTERN_INS.val, "CLASS_SOURCE_PATTERN_INSTANCE", sizeof (meltcdat->dstr_1362__CLASS_SOURCE_PATTERN_INS.val)-1); meltcdat->dstr_1362__CLASS_SOURCE_PATTERN_INS.val[29] = (char)0 ; meltcdat->dstr_1362__CLASS_SOURCE_PATTERN_INS.slen = 29 ; /*inimult dtup_1363_syCLASS_SOURCE_PATTERN_INSTANCE*/ - /*_._VALTUP___V1457*/ - meltfptr[1456] = (melt_ptr_t) &meltcdat->dtup_1363_syCLASS_SOURCE_PATTERN_INSTANCE; + /*_._VALTUP___V1457*/ meltfptr[1456] = (melt_ptr_t) &meltcdat->dtup_1363_syCLASS_SOURCE_PATTERN_INSTANCE; meltcdat->dtup_1363_syCLASS_SOURCE_PATTERN_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1363_syCLASS_SOURCE_PATTERN_INSTANCE.nbval = 6; /*inimult dtup_1364_syCLASS_SOURCE_PATTERN_INSTANCE*/ - /*_._VALTUP___V1458*/ - meltfptr[1457] = (melt_ptr_t) &meltcdat->dtup_1364_syCLASS_SOURCE_PATTERN_INSTANCE; + /*_._VALTUP___V1458*/ meltfptr[1457] = (melt_ptr_t) &meltcdat->dtup_1364_syCLASS_SOURCE_PATTERN_INSTANCE; meltcdat->dtup_1364_syCLASS_SOURCE_PATTERN_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1364_syCLASS_SOURCE_PATTERN_INSTANCE.nbval = 5; /*iniobj dsym_1365__CLASS_SOURCE_FIELD_PATTERN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1459*/ meltfptr[1458]) + /*uniqueobj*/ if (!/*_._VALDATA___V1459*/ meltfptr[1458]) /*_._VALDATA___V1459*/ meltfptr[1458] = (melt_ptr_t )&meltcdat->dsym_1365__CLASS_SOURCE_FIELD_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1365__CLASS_SOURCE_FIELD_PATTERN", 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_1365__CLASS_SOURCE_FIELD_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24543,19 +21684,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1366__CLASS_SOURCE_FIELD_PATTE*/ - /*_._VALSTR___V1460*/ - meltfptr[1459] = (melt_ptr_t) &meltcdat->dstr_1366__CLASS_SOURCE_FIELD_PATTE; + /*_._VALSTR___V1460*/ meltfptr[1459] = (melt_ptr_t) &meltcdat->dstr_1366__CLASS_SOURCE_FIELD_PATTE; meltcdat->dstr_1366__CLASS_SOURCE_FIELD_PATTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1366__CLASS_SOURCE_FIELD_PATTE.val, "CLASS_SOURCE_FIELD_PATTERN", sizeof (meltcdat->dstr_1366__CLASS_SOURCE_FIELD_PATTE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1366__CLASS_SOURCE_FIELD_PATTE.val, "CLASS_SOURCE_FIELD_PATTERN", sizeof (meltcdat->dstr_1366__CLASS_SOURCE_FIELD_PATTE.val)-1); meltcdat->dstr_1366__CLASS_SOURCE_FIELD_PATTE.val[26] = (char)0 ; meltcdat->dstr_1366__CLASS_SOURCE_FIELD_PATTE.slen = 26 ; MELT_LOCATION("warmelt-macro.melt:1358:/ iniobj"); /*iniobj dobj_1367__CLASS_SOURCE_FIELD_PATTERN*/ - /*_._VALDATA___V1461*/ - meltfptr[1460] = (melt_ptr_t )&meltcdat->dobj_1367__CLASS_SOURCE_FIELD_PATTERN; + /*_._VALDATA___V1461*/ meltfptr[1460] = (melt_ptr_t )&meltcdat->dobj_1367__CLASS_SOURCE_FIELD_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1367__CLASS_SOURCE_FIELD_PATTERN", 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_1367__CLASS_SOURCE_FIELD_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1367__CLASS_SOURCE_FIELD_PATTERN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -24565,28 +21703,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1368__CLASS_SOURCE_FIELD_PATTE*/ - /*_._VALSTR___V1462*/ - meltfptr[1461] = (melt_ptr_t) &meltcdat->dstr_1368__CLASS_SOURCE_FIELD_PATTE; + /*_._VALSTR___V1462*/ meltfptr[1461] = (melt_ptr_t) &meltcdat->dstr_1368__CLASS_SOURCE_FIELD_PATTE; meltcdat->dstr_1368__CLASS_SOURCE_FIELD_PATTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1368__CLASS_SOURCE_FIELD_PATTE.val, "CLASS_SOURCE_FIELD_PATTERN", sizeof (meltcdat->dstr_1368__CLASS_SOURCE_FIELD_PATTE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1368__CLASS_SOURCE_FIELD_PATTE.val, "CLASS_SOURCE_FIELD_PATTERN", sizeof (meltcdat->dstr_1368__CLASS_SOURCE_FIELD_PATTE.val)-1); meltcdat->dstr_1368__CLASS_SOURCE_FIELD_PATTE.val[26] = (char)0 ; meltcdat->dstr_1368__CLASS_SOURCE_FIELD_PATTE.slen = 26 ; /*inimult dtup_1369_syCLASS_SOURCE_FIELD_PATTERN*/ - /*_._VALTUP___V1463*/ - meltfptr[1462] = (melt_ptr_t) &meltcdat->dtup_1369_syCLASS_SOURCE_FIELD_PATTERN; + /*_._VALTUP___V1463*/ meltfptr[1462] = (melt_ptr_t) &meltcdat->dtup_1369_syCLASS_SOURCE_FIELD_PATTERN; meltcdat->dtup_1369_syCLASS_SOURCE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1369_syCLASS_SOURCE_FIELD_PATTERN.nbval = 4; /*inimult dtup_1370_syCLASS_SOURCE_FIELD_PATTERN*/ - /*_._VALTUP___V1468*/ - meltfptr[1467] = (melt_ptr_t) &meltcdat->dtup_1370_syCLASS_SOURCE_FIELD_PATTERN; + /*_._VALTUP___V1468*/ meltfptr[1467] = (melt_ptr_t) &meltcdat->dtup_1370_syCLASS_SOURCE_FIELD_PATTERN; meltcdat->dtup_1370_syCLASS_SOURCE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1370_syCLASS_SOURCE_FIELD_PATTERN.nbval = 4; /*iniobj dsym_1371__SPAF_FIELD*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1469*/ meltfptr[1468]) + /*uniqueobj*/ if (!/*_._VALDATA___V1469*/ meltfptr[1468]) /*_._VALDATA___V1469*/ meltfptr[1468] = (melt_ptr_t )&meltcdat->dsym_1371__SPAF_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1371__SPAF_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_1371__SPAF_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24596,19 +21729,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1372__SPAF_FIELD*/ - /*_._VALSTR___V1470*/ - meltfptr[1469] = (melt_ptr_t) &meltcdat->dstr_1372__SPAF_FIELD; + /*_._VALSTR___V1470*/ meltfptr[1469] = (melt_ptr_t) &meltcdat->dstr_1372__SPAF_FIELD; meltcdat->dstr_1372__SPAF_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1372__SPAF_FIELD.val, "SPAF_FIELD", sizeof (meltcdat->dstr_1372__SPAF_FIELD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1372__SPAF_FIELD.val, "SPAF_FIELD", sizeof (meltcdat->dstr_1372__SPAF_FIELD.val)-1); meltcdat->dstr_1372__SPAF_FIELD.val[10] = (char)0 ; meltcdat->dstr_1372__SPAF_FIELD.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1373__SPAF_FIELD*/ - /*_._VALDATA___V1464*/ - meltfptr[1463] = (melt_ptr_t )&meltcdat->dobj_1373__SPAF_FIELD; + /*_._VALDATA___V1464*/ meltfptr[1463] = (melt_ptr_t )&meltcdat->dobj_1373__SPAF_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1373__SPAF_FIELD", 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_1373__SPAF_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1373__SPAF_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -24618,18 +21748,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1374__SPAF_FIELD*/ - /*_._VALSTR___V1465*/ - meltfptr[1464] = (melt_ptr_t) &meltcdat->dstr_1374__SPAF_FIELD; + /*_._VALSTR___V1465*/ meltfptr[1464] = (melt_ptr_t) &meltcdat->dstr_1374__SPAF_FIELD; meltcdat->dstr_1374__SPAF_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1374__SPAF_FIELD.val, "SPAF_FIELD", sizeof (meltcdat->dstr_1374__SPAF_FIELD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1374__SPAF_FIELD.val, "SPAF_FIELD", sizeof (meltcdat->dstr_1374__SPAF_FIELD.val)-1); meltcdat->dstr_1374__SPAF_FIELD.val[10] = (char)0 ; meltcdat->dstr_1374__SPAF_FIELD.slen = 10 ; /*iniobj dsym_1375__SPAF_PATTERN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1471*/ meltfptr[1470]) + /*uniqueobj*/ if (!/*_._VALDATA___V1471*/ meltfptr[1470]) /*_._VALDATA___V1471*/ meltfptr[1470] = (melt_ptr_t )&meltcdat->dsym_1375__SPAF_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1375__SPAF_PATTERN", 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_1375__SPAF_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24639,19 +21766,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1376__SPAF_PATTERN*/ - /*_._VALSTR___V1472*/ - meltfptr[1471] = (melt_ptr_t) &meltcdat->dstr_1376__SPAF_PATTERN; + /*_._VALSTR___V1472*/ meltfptr[1471] = (melt_ptr_t) &meltcdat->dstr_1376__SPAF_PATTERN; meltcdat->dstr_1376__SPAF_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1376__SPAF_PATTERN.val, "SPAF_PATTERN", sizeof (meltcdat->dstr_1376__SPAF_PATTERN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1376__SPAF_PATTERN.val, "SPAF_PATTERN", sizeof (meltcdat->dstr_1376__SPAF_PATTERN.val)-1); meltcdat->dstr_1376__SPAF_PATTERN.val[12] = (char)0 ; meltcdat->dstr_1376__SPAF_PATTERN.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1377__SPAF_PATTERN*/ - /*_._VALDATA___V1466*/ - meltfptr[1465] = (melt_ptr_t )&meltcdat->dobj_1377__SPAF_PATTERN; + /*_._VALDATA___V1466*/ meltfptr[1465] = (melt_ptr_t )&meltcdat->dobj_1377__SPAF_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1377__SPAF_PATTERN", 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_1377__SPAF_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1377__SPAF_PATTERN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -24661,18 +21785,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1378__SPAF_PATTERN*/ - /*_._VALSTR___V1467*/ - meltfptr[1466] = (melt_ptr_t) &meltcdat->dstr_1378__SPAF_PATTERN; + /*_._VALSTR___V1467*/ meltfptr[1466] = (melt_ptr_t) &meltcdat->dstr_1378__SPAF_PATTERN; meltcdat->dstr_1378__SPAF_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1378__SPAF_PATTERN.val, "SPAF_PATTERN", sizeof (meltcdat->dstr_1378__SPAF_PATTERN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1378__SPAF_PATTERN.val, "SPAF_PATTERN", sizeof (meltcdat->dstr_1378__SPAF_PATTERN.val)-1); meltcdat->dstr_1378__SPAF_PATTERN.val[12] = (char)0 ; meltcdat->dstr_1378__SPAF_PATTERN.slen = 12 ; /*iniobj dsym_1379__CLASS_SOURCE_PATTERN_COMPOSITE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1473*/ meltfptr[1472]) + /*uniqueobj*/ if (!/*_._VALDATA___V1473*/ meltfptr[1472]) /*_._VALDATA___V1473*/ meltfptr[1472] = (melt_ptr_t )&meltcdat->dsym_1379__CLASS_SOURCE_PATTERN_COMPOSITE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1379__CLASS_SOURCE_PATTERN_COMPOSITE", 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_1379__CLASS_SOURCE_PATTERN_COMPOSITE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24682,19 +21803,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1380__CLASS_SOURCE_PATTERN_COM*/ - /*_._VALSTR___V1474*/ - meltfptr[1473] = (melt_ptr_t) &meltcdat->dstr_1380__CLASS_SOURCE_PATTERN_COM; + /*_._VALSTR___V1474*/ meltfptr[1473] = (melt_ptr_t) &meltcdat->dstr_1380__CLASS_SOURCE_PATTERN_COM; meltcdat->dstr_1380__CLASS_SOURCE_PATTERN_COM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1380__CLASS_SOURCE_PATTERN_COM.val, "CLASS_SOURCE_PATTERN_COMPOSITE", sizeof (meltcdat->dstr_1380__CLASS_SOURCE_PATTERN_COM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1380__CLASS_SOURCE_PATTERN_COM.val, "CLASS_SOURCE_PATTERN_COMPOSITE", sizeof (meltcdat->dstr_1380__CLASS_SOURCE_PATTERN_COM.val)-1); meltcdat->dstr_1380__CLASS_SOURCE_PATTERN_COM.val[30] = (char)0 ; meltcdat->dstr_1380__CLASS_SOURCE_PATTERN_COM.slen = 30 ; MELT_LOCATION("warmelt-macro.melt:1369:/ iniobj"); /*iniobj dobj_1381__CLASS_SOURCE_PATTERN_COMPOSITE*/ - /*_._VALDATA___V1475*/ - meltfptr[1474] = (melt_ptr_t )&meltcdat->dobj_1381__CLASS_SOURCE_PATTERN_COMPOSITE; + /*_._VALDATA___V1475*/ meltfptr[1474] = (melt_ptr_t )&meltcdat->dobj_1381__CLASS_SOURCE_PATTERN_COMPOSITE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1381__CLASS_SOURCE_PATTERN_COMPOSITE", 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_1381__CLASS_SOURCE_PATTERN_COMPOSITE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1381__CLASS_SOURCE_PATTERN_COMPOSITE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -24704,28 +21822,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1382__CLASS_SOURCE_PATTERN_COM*/ - /*_._VALSTR___V1476*/ - meltfptr[1475] = (melt_ptr_t) &meltcdat->dstr_1382__CLASS_SOURCE_PATTERN_COM; + /*_._VALSTR___V1476*/ meltfptr[1475] = (melt_ptr_t) &meltcdat->dstr_1382__CLASS_SOURCE_PATTERN_COM; meltcdat->dstr_1382__CLASS_SOURCE_PATTERN_COM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1382__CLASS_SOURCE_PATTERN_COM.val, "CLASS_SOURCE_PATTERN_COMPOSITE", sizeof (meltcdat->dstr_1382__CLASS_SOURCE_PATTERN_COM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1382__CLASS_SOURCE_PATTERN_COM.val, "CLASS_SOURCE_PATTERN_COMPOSITE", sizeof (meltcdat->dstr_1382__CLASS_SOURCE_PATTERN_COM.val)-1); meltcdat->dstr_1382__CLASS_SOURCE_PATTERN_COM.val[30] = (char)0 ; meltcdat->dstr_1382__CLASS_SOURCE_PATTERN_COM.slen = 30 ; /*inimult dtup_1383_syCLASS_SOURCE_PATTERN_COMPOSITE*/ - /*_._VALTUP___V1477*/ - meltfptr[1476] = (melt_ptr_t) &meltcdat->dtup_1383_syCLASS_SOURCE_PATTERN_COMPOSITE; + /*_._VALTUP___V1477*/ meltfptr[1476] = (melt_ptr_t) &meltcdat->dtup_1383_syCLASS_SOURCE_PATTERN_COMPOSITE; meltcdat->dtup_1383_syCLASS_SOURCE_PATTERN_COMPOSITE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1383_syCLASS_SOURCE_PATTERN_COMPOSITE.nbval = 6; /*inimult dtup_1384_syCLASS_SOURCE_PATTERN_COMPOSITE*/ - /*_._VALTUP___V1486*/ - meltfptr[1485] = (melt_ptr_t) &meltcdat->dtup_1384_syCLASS_SOURCE_PATTERN_COMPOSITE; + /*_._VALTUP___V1486*/ meltfptr[1485] = (melt_ptr_t) &meltcdat->dtup_1384_syCLASS_SOURCE_PATTERN_COMPOSITE; meltcdat->dtup_1384_syCLASS_SOURCE_PATTERN_COMPOSITE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1384_syCLASS_SOURCE_PATTERN_COMPOSITE.nbval = 9; /*iniobj dsym_1385__SPAC_OPERATOR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1487*/ meltfptr[1486]) + /*uniqueobj*/ if (!/*_._VALDATA___V1487*/ meltfptr[1486]) /*_._VALDATA___V1487*/ meltfptr[1486] = (melt_ptr_t )&meltcdat->dsym_1385__SPAC_OPERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1385__SPAC_OPERATOR", 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_1385__SPAC_OPERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24735,19 +21848,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1386__SPAC_OPERATOR*/ - /*_._VALSTR___V1488*/ - meltfptr[1487] = (melt_ptr_t) &meltcdat->dstr_1386__SPAC_OPERATOR; + /*_._VALSTR___V1488*/ meltfptr[1487] = (melt_ptr_t) &meltcdat->dstr_1386__SPAC_OPERATOR; meltcdat->dstr_1386__SPAC_OPERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1386__SPAC_OPERATOR.val, "SPAC_OPERATOR", sizeof (meltcdat->dstr_1386__SPAC_OPERATOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1386__SPAC_OPERATOR.val, "SPAC_OPERATOR", sizeof (meltcdat->dstr_1386__SPAC_OPERATOR.val)-1); meltcdat->dstr_1386__SPAC_OPERATOR.val[13] = (char)0 ; meltcdat->dstr_1386__SPAC_OPERATOR.slen = 13 ; /*^iniobj*/ /*iniobj dobj_1387__SPAC_OPERATOR*/ - /*_._VALDATA___V1478*/ - meltfptr[1477] = (melt_ptr_t )&meltcdat->dobj_1387__SPAC_OPERATOR; + /*_._VALDATA___V1478*/ meltfptr[1477] = (melt_ptr_t )&meltcdat->dobj_1387__SPAC_OPERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1387__SPAC_OPERATOR", 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_1387__SPAC_OPERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1387__SPAC_OPERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -24757,18 +21867,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1388__SPAC_OPERATOR*/ - /*_._VALSTR___V1479*/ - meltfptr[1478] = (melt_ptr_t) &meltcdat->dstr_1388__SPAC_OPERATOR; + /*_._VALSTR___V1479*/ meltfptr[1478] = (melt_ptr_t) &meltcdat->dstr_1388__SPAC_OPERATOR; meltcdat->dstr_1388__SPAC_OPERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1388__SPAC_OPERATOR.val, "SPAC_OPERATOR", sizeof (meltcdat->dstr_1388__SPAC_OPERATOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1388__SPAC_OPERATOR.val, "SPAC_OPERATOR", sizeof (meltcdat->dstr_1388__SPAC_OPERATOR.val)-1); meltcdat->dstr_1388__SPAC_OPERATOR.val[13] = (char)0 ; meltcdat->dstr_1388__SPAC_OPERATOR.slen = 13 ; /*iniobj dsym_1389__SPAC_OPERBIND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1489*/ meltfptr[1488]) + /*uniqueobj*/ if (!/*_._VALDATA___V1489*/ meltfptr[1488]) /*_._VALDATA___V1489*/ meltfptr[1488] = (melt_ptr_t )&meltcdat->dsym_1389__SPAC_OPERBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1389__SPAC_OPERBIND", 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_1389__SPAC_OPERBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24778,19 +21885,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1390__SPAC_OPERBIND*/ - /*_._VALSTR___V1490*/ - meltfptr[1489] = (melt_ptr_t) &meltcdat->dstr_1390__SPAC_OPERBIND; + /*_._VALSTR___V1490*/ meltfptr[1489] = (melt_ptr_t) &meltcdat->dstr_1390__SPAC_OPERBIND; meltcdat->dstr_1390__SPAC_OPERBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1390__SPAC_OPERBIND.val, "SPAC_OPERBIND", sizeof (meltcdat->dstr_1390__SPAC_OPERBIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1390__SPAC_OPERBIND.val, "SPAC_OPERBIND", sizeof (meltcdat->dstr_1390__SPAC_OPERBIND.val)-1); meltcdat->dstr_1390__SPAC_OPERBIND.val[13] = (char)0 ; meltcdat->dstr_1390__SPAC_OPERBIND.slen = 13 ; /*^iniobj*/ /*iniobj dobj_1391__SPAC_OPERBIND*/ - /*_._VALDATA___V1480*/ - meltfptr[1479] = (melt_ptr_t )&meltcdat->dobj_1391__SPAC_OPERBIND; + /*_._VALDATA___V1480*/ meltfptr[1479] = (melt_ptr_t )&meltcdat->dobj_1391__SPAC_OPERBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1391__SPAC_OPERBIND", 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_1391__SPAC_OPERBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1391__SPAC_OPERBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -24800,18 +21904,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1392__SPAC_OPERBIND*/ - /*_._VALSTR___V1481*/ - meltfptr[1480] = (melt_ptr_t) &meltcdat->dstr_1392__SPAC_OPERBIND; + /*_._VALSTR___V1481*/ meltfptr[1480] = (melt_ptr_t) &meltcdat->dstr_1392__SPAC_OPERBIND; meltcdat->dstr_1392__SPAC_OPERBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1392__SPAC_OPERBIND.val, "SPAC_OPERBIND", sizeof (meltcdat->dstr_1392__SPAC_OPERBIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1392__SPAC_OPERBIND.val, "SPAC_OPERBIND", sizeof (meltcdat->dstr_1392__SPAC_OPERBIND.val)-1); meltcdat->dstr_1392__SPAC_OPERBIND.val[13] = (char)0 ; meltcdat->dstr_1392__SPAC_OPERBIND.slen = 13 ; /*iniobj dsym_1393__SPAC_INARGS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1491*/ meltfptr[1490]) + /*uniqueobj*/ if (!/*_._VALDATA___V1491*/ meltfptr[1490]) /*_._VALDATA___V1491*/ meltfptr[1490] = (melt_ptr_t )&meltcdat->dsym_1393__SPAC_INARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1393__SPAC_INARGS", 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_1393__SPAC_INARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24821,19 +21922,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1394__SPAC_INARGS*/ - /*_._VALSTR___V1492*/ - meltfptr[1491] = (melt_ptr_t) &meltcdat->dstr_1394__SPAC_INARGS; + /*_._VALSTR___V1492*/ meltfptr[1491] = (melt_ptr_t) &meltcdat->dstr_1394__SPAC_INARGS; meltcdat->dstr_1394__SPAC_INARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1394__SPAC_INARGS.val, "SPAC_INARGS", sizeof (meltcdat->dstr_1394__SPAC_INARGS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1394__SPAC_INARGS.val, "SPAC_INARGS", sizeof (meltcdat->dstr_1394__SPAC_INARGS.val)-1); meltcdat->dstr_1394__SPAC_INARGS.val[11] = (char)0 ; meltcdat->dstr_1394__SPAC_INARGS.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1395__SPAC_INARGS*/ - /*_._VALDATA___V1482*/ - meltfptr[1481] = (melt_ptr_t )&meltcdat->dobj_1395__SPAC_INARGS; + /*_._VALDATA___V1482*/ meltfptr[1481] = (melt_ptr_t )&meltcdat->dobj_1395__SPAC_INARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1395__SPAC_INARGS", 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_1395__SPAC_INARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1395__SPAC_INARGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -24843,18 +21941,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1396__SPAC_INARGS*/ - /*_._VALSTR___V1483*/ - meltfptr[1482] = (melt_ptr_t) &meltcdat->dstr_1396__SPAC_INARGS; + /*_._VALSTR___V1483*/ meltfptr[1482] = (melt_ptr_t) &meltcdat->dstr_1396__SPAC_INARGS; meltcdat->dstr_1396__SPAC_INARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1396__SPAC_INARGS.val, "SPAC_INARGS", sizeof (meltcdat->dstr_1396__SPAC_INARGS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1396__SPAC_INARGS.val, "SPAC_INARGS", sizeof (meltcdat->dstr_1396__SPAC_INARGS.val)-1); meltcdat->dstr_1396__SPAC_INARGS.val[11] = (char)0 ; meltcdat->dstr_1396__SPAC_INARGS.slen = 11 ; /*iniobj dsym_1397__SPAC_OUTARGS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1493*/ meltfptr[1492]) + /*uniqueobj*/ if (!/*_._VALDATA___V1493*/ meltfptr[1492]) /*_._VALDATA___V1493*/ meltfptr[1492] = (melt_ptr_t )&meltcdat->dsym_1397__SPAC_OUTARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1397__SPAC_OUTARGS", 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_1397__SPAC_OUTARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24864,19 +21959,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1398__SPAC_OUTARGS*/ - /*_._VALSTR___V1494*/ - meltfptr[1493] = (melt_ptr_t) &meltcdat->dstr_1398__SPAC_OUTARGS; + /*_._VALSTR___V1494*/ meltfptr[1493] = (melt_ptr_t) &meltcdat->dstr_1398__SPAC_OUTARGS; meltcdat->dstr_1398__SPAC_OUTARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1398__SPAC_OUTARGS.val, "SPAC_OUTARGS", sizeof (meltcdat->dstr_1398__SPAC_OUTARGS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1398__SPAC_OUTARGS.val, "SPAC_OUTARGS", sizeof (meltcdat->dstr_1398__SPAC_OUTARGS.val)-1); meltcdat->dstr_1398__SPAC_OUTARGS.val[12] = (char)0 ; meltcdat->dstr_1398__SPAC_OUTARGS.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1399__SPAC_OUTARGS*/ - /*_._VALDATA___V1484*/ - meltfptr[1483] = (melt_ptr_t )&meltcdat->dobj_1399__SPAC_OUTARGS; + /*_._VALDATA___V1484*/ meltfptr[1483] = (melt_ptr_t )&meltcdat->dobj_1399__SPAC_OUTARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1399__SPAC_OUTARGS", 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_1399__SPAC_OUTARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1399__SPAC_OUTARGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -24886,18 +21978,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1400__SPAC_OUTARGS*/ - /*_._VALSTR___V1485*/ - meltfptr[1484] = (melt_ptr_t) &meltcdat->dstr_1400__SPAC_OUTARGS; + /*_._VALSTR___V1485*/ meltfptr[1484] = (melt_ptr_t) &meltcdat->dstr_1400__SPAC_OUTARGS; meltcdat->dstr_1400__SPAC_OUTARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1400__SPAC_OUTARGS.val, "SPAC_OUTARGS", sizeof (meltcdat->dstr_1400__SPAC_OUTARGS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1400__SPAC_OUTARGS.val, "SPAC_OUTARGS", sizeof (meltcdat->dstr_1400__SPAC_OUTARGS.val)-1); meltcdat->dstr_1400__SPAC_OUTARGS.val[12] = (char)0 ; meltcdat->dstr_1400__SPAC_OUTARGS.slen = 12 ; /*iniobj dsym_1401__CLASS_SOURCE_PATTERN_MATCHER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1495*/ meltfptr[1494]) + /*uniqueobj*/ if (!/*_._VALDATA___V1495*/ meltfptr[1494]) /*_._VALDATA___V1495*/ meltfptr[1494] = (melt_ptr_t )&meltcdat->dsym_1401__CLASS_SOURCE_PATTERN_MATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1401__CLASS_SOURCE_PATTERN_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_1401__CLASS_SOURCE_PATTERN_MATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24907,19 +21996,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1402__CLASS_SOURCE_PATTERN_MAT*/ - /*_._VALSTR___V1496*/ - meltfptr[1495] = (melt_ptr_t) &meltcdat->dstr_1402__CLASS_SOURCE_PATTERN_MAT; + /*_._VALSTR___V1496*/ meltfptr[1495] = (melt_ptr_t) &meltcdat->dstr_1402__CLASS_SOURCE_PATTERN_MAT; meltcdat->dstr_1402__CLASS_SOURCE_PATTERN_MAT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1402__CLASS_SOURCE_PATTERN_MAT.val, "CLASS_SOURCE_PATTERN_MATCHER", sizeof (meltcdat->dstr_1402__CLASS_SOURCE_PATTERN_MAT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1402__CLASS_SOURCE_PATTERN_MAT.val, "CLASS_SOURCE_PATTERN_MATCHER", sizeof (meltcdat->dstr_1402__CLASS_SOURCE_PATTERN_MAT.val)-1); meltcdat->dstr_1402__CLASS_SOURCE_PATTERN_MAT.val[28] = (char)0 ; meltcdat->dstr_1402__CLASS_SOURCE_PATTERN_MAT.slen = 28 ; MELT_LOCATION("warmelt-macro.melt:1386:/ iniobj"); /*iniobj dobj_1403__CLASS_SOURCE_PATTERN_MATCHER*/ - /*_._VALDATA___V1497*/ - meltfptr[1496] = (melt_ptr_t )&meltcdat->dobj_1403__CLASS_SOURCE_PATTERN_MATCHER; + /*_._VALDATA___V1497*/ meltfptr[1496] = (melt_ptr_t )&meltcdat->dobj_1403__CLASS_SOURCE_PATTERN_MATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1403__CLASS_SOURCE_PATTERN_MATCHER", 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_1403__CLASS_SOURCE_PATTERN_MATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1403__CLASS_SOURCE_PATTERN_MATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -24929,28 +22015,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1404__CLASS_SOURCE_PATTERN_MAT*/ - /*_._VALSTR___V1498*/ - meltfptr[1497] = (melt_ptr_t) &meltcdat->dstr_1404__CLASS_SOURCE_PATTERN_MAT; + /*_._VALSTR___V1498*/ meltfptr[1497] = (melt_ptr_t) &meltcdat->dstr_1404__CLASS_SOURCE_PATTERN_MAT; meltcdat->dstr_1404__CLASS_SOURCE_PATTERN_MAT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1404__CLASS_SOURCE_PATTERN_MAT.val, "CLASS_SOURCE_PATTERN_MATCHER", sizeof (meltcdat->dstr_1404__CLASS_SOURCE_PATTERN_MAT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1404__CLASS_SOURCE_PATTERN_MAT.val, "CLASS_SOURCE_PATTERN_MATCHER", sizeof (meltcdat->dstr_1404__CLASS_SOURCE_PATTERN_MAT.val)-1); meltcdat->dstr_1404__CLASS_SOURCE_PATTERN_MAT.val[28] = (char)0 ; meltcdat->dstr_1404__CLASS_SOURCE_PATTERN_MAT.slen = 28 ; /*inimult dtup_1405_syCLASS_SOURCE_PATTERN_MATCHER*/ - /*_._VALTUP___V1499*/ - meltfptr[1498] = (melt_ptr_t) &meltcdat->dtup_1405_syCLASS_SOURCE_PATTERN_MATCHER; + /*_._VALTUP___V1499*/ meltfptr[1498] = (melt_ptr_t) &meltcdat->dtup_1405_syCLASS_SOURCE_PATTERN_MATCHER; meltcdat->dtup_1405_syCLASS_SOURCE_PATTERN_MATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1405_syCLASS_SOURCE_PATTERN_MATCHER.nbval = 7; /*inimult dtup_1406_syCLASS_SOURCE_PATTERN_MATCHER*/ - /*_._VALTUP___V1500*/ - meltfptr[1499] = (melt_ptr_t) &meltcdat->dtup_1406_syCLASS_SOURCE_PATTERN_MATCHER; + /*_._VALTUP___V1500*/ meltfptr[1499] = (melt_ptr_t) &meltcdat->dtup_1406_syCLASS_SOURCE_PATTERN_MATCHER; meltcdat->dtup_1406_syCLASS_SOURCE_PATTERN_MATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1406_syCLASS_SOURCE_PATTERN_MATCHER.nbval = 9; /*iniobj dsym_1407__CLASS_SOURCE_PATTERN_C_MATCH*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1501*/ meltfptr[1500]) + /*uniqueobj*/ if (!/*_._VALDATA___V1501*/ meltfptr[1500]) /*_._VALDATA___V1501*/ meltfptr[1500] = (melt_ptr_t )&meltcdat->dsym_1407__CLASS_SOURCE_PATTERN_C_MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1407__CLASS_SOURCE_PATTERN_C_MATCH", 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_1407__CLASS_SOURCE_PATTERN_C_MATCH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -24960,19 +22041,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1408__CLASS_SOURCE_PATTERN_C_M*/ - /*_._VALSTR___V1502*/ - meltfptr[1501] = (melt_ptr_t) &meltcdat->dstr_1408__CLASS_SOURCE_PATTERN_C_M; + /*_._VALSTR___V1502*/ meltfptr[1501] = (melt_ptr_t) &meltcdat->dstr_1408__CLASS_SOURCE_PATTERN_C_M; meltcdat->dstr_1408__CLASS_SOURCE_PATTERN_C_M.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1408__CLASS_SOURCE_PATTERN_C_M.val, "CLASS_SOURCE_PATTERN_C_MATCH", sizeof (meltcdat->dstr_1408__CLASS_SOURCE_PATTERN_C_M.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1408__CLASS_SOURCE_PATTERN_C_M.val, "CLASS_SOURCE_PATTERN_C_MATCH", sizeof (meltcdat->dstr_1408__CLASS_SOURCE_PATTERN_C_M.val)-1); meltcdat->dstr_1408__CLASS_SOURCE_PATTERN_C_M.val[28] = (char)0 ; meltcdat->dstr_1408__CLASS_SOURCE_PATTERN_C_M.slen = 28 ; MELT_LOCATION("warmelt-macro.melt:1392:/ iniobj"); /*iniobj dobj_1409__CLASS_SOURCE_PATTERN_C_MATCH*/ - /*_._VALDATA___V1503*/ - meltfptr[1502] = (melt_ptr_t )&meltcdat->dobj_1409__CLASS_SOURCE_PATTERN_C_MATCH; + /*_._VALDATA___V1503*/ meltfptr[1502] = (melt_ptr_t )&meltcdat->dobj_1409__CLASS_SOURCE_PATTERN_C_MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1409__CLASS_SOURCE_PATTERN_C_MATCH", 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_1409__CLASS_SOURCE_PATTERN_C_MATCH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1409__CLASS_SOURCE_PATTERN_C_MATCH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -24982,28 +22060,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1410__CLASS_SOURCE_PATTERN_C_M*/ - /*_._VALSTR___V1504*/ - meltfptr[1503] = (melt_ptr_t) &meltcdat->dstr_1410__CLASS_SOURCE_PATTERN_C_M; + /*_._VALSTR___V1504*/ meltfptr[1503] = (melt_ptr_t) &meltcdat->dstr_1410__CLASS_SOURCE_PATTERN_C_M; meltcdat->dstr_1410__CLASS_SOURCE_PATTERN_C_M.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1410__CLASS_SOURCE_PATTERN_C_M.val, "CLASS_SOURCE_PATTERN_C_MATCH", sizeof (meltcdat->dstr_1410__CLASS_SOURCE_PATTERN_C_M.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1410__CLASS_SOURCE_PATTERN_C_M.val, "CLASS_SOURCE_PATTERN_C_MATCH", sizeof (meltcdat->dstr_1410__CLASS_SOURCE_PATTERN_C_M.val)-1); meltcdat->dstr_1410__CLASS_SOURCE_PATTERN_C_M.val[28] = (char)0 ; meltcdat->dstr_1410__CLASS_SOURCE_PATTERN_C_M.slen = 28 ; /*inimult dtup_1411_syCLASS_SOURCE_PATTERN_C_MATCH*/ - /*_._VALTUP___V1505*/ - meltfptr[1504] = (melt_ptr_t) &meltcdat->dtup_1411_syCLASS_SOURCE_PATTERN_C_MATCH; + /*_._VALTUP___V1505*/ meltfptr[1504] = (melt_ptr_t) &meltcdat->dtup_1411_syCLASS_SOURCE_PATTERN_C_MATCH; meltcdat->dtup_1411_syCLASS_SOURCE_PATTERN_C_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1411_syCLASS_SOURCE_PATTERN_C_MATCH.nbval = 8; /*inimult dtup_1412_syCLASS_SOURCE_PATTERN_C_MATCH*/ - /*_._VALTUP___V1506*/ - meltfptr[1505] = (melt_ptr_t) &meltcdat->dtup_1412_syCLASS_SOURCE_PATTERN_C_MATCH; + /*_._VALTUP___V1506*/ meltfptr[1505] = (melt_ptr_t) &meltcdat->dtup_1412_syCLASS_SOURCE_PATTERN_C_MATCH; meltcdat->dtup_1412_syCLASS_SOURCE_PATTERN_C_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1412_syCLASS_SOURCE_PATTERN_C_MATCH.nbval = 9; /*iniobj dsym_1413__CLASS_SOURCE_PATTERN_FUN_MATCH*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1507*/ meltfptr[1506]) + /*uniqueobj*/ if (!/*_._VALDATA___V1507*/ meltfptr[1506]) /*_._VALDATA___V1507*/ meltfptr[1506] = (melt_ptr_t )&meltcdat->dsym_1413__CLASS_SOURCE_PATTERN_FUN_MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1413__CLASS_SOURCE_PATTERN_FUN_MATCH", 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_1413__CLASS_SOURCE_PATTERN_FUN_MATCH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25013,19 +22086,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1414__CLASS_SOURCE_PATTERN_FUN*/ - /*_._VALSTR___V1508*/ - meltfptr[1507] = (melt_ptr_t) &meltcdat->dstr_1414__CLASS_SOURCE_PATTERN_FUN; + /*_._VALSTR___V1508*/ meltfptr[1507] = (melt_ptr_t) &meltcdat->dstr_1414__CLASS_SOURCE_PATTERN_FUN; meltcdat->dstr_1414__CLASS_SOURCE_PATTERN_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1414__CLASS_SOURCE_PATTERN_FUN.val, "CLASS_SOURCE_PATTERN_FUN_MATCH", sizeof (meltcdat->dstr_1414__CLASS_SOURCE_PATTERN_FUN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1414__CLASS_SOURCE_PATTERN_FUN.val, "CLASS_SOURCE_PATTERN_FUN_MATCH", sizeof (meltcdat->dstr_1414__CLASS_SOURCE_PATTERN_FUN.val)-1); meltcdat->dstr_1414__CLASS_SOURCE_PATTERN_FUN.val[30] = (char)0 ; meltcdat->dstr_1414__CLASS_SOURCE_PATTERN_FUN.slen = 30 ; MELT_LOCATION("warmelt-macro.melt:1398:/ iniobj"); /*iniobj dobj_1415__CLASS_SOURCE_PATTERN_FUN_MATCH*/ - /*_._VALDATA___V1509*/ - meltfptr[1508] = (melt_ptr_t )&meltcdat->dobj_1415__CLASS_SOURCE_PATTERN_FUN_MATCH; + /*_._VALDATA___V1509*/ meltfptr[1508] = (melt_ptr_t )&meltcdat->dobj_1415__CLASS_SOURCE_PATTERN_FUN_MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1415__CLASS_SOURCE_PATTERN_FUN_MATCH", 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_1415__CLASS_SOURCE_PATTERN_FUN_MATCH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1415__CLASS_SOURCE_PATTERN_FUN_MATCH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -25035,41 +22105,34 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1416__CLASS_SOURCE_PATTERN_FUN*/ - /*_._VALSTR___V1510*/ - meltfptr[1509] = (melt_ptr_t) &meltcdat->dstr_1416__CLASS_SOURCE_PATTERN_FUN; + /*_._VALSTR___V1510*/ meltfptr[1509] = (melt_ptr_t) &meltcdat->dstr_1416__CLASS_SOURCE_PATTERN_FUN; meltcdat->dstr_1416__CLASS_SOURCE_PATTERN_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1416__CLASS_SOURCE_PATTERN_FUN.val, "CLASS_SOURCE_PATTERN_FUN_MATCH", sizeof (meltcdat->dstr_1416__CLASS_SOURCE_PATTERN_FUN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1416__CLASS_SOURCE_PATTERN_FUN.val, "CLASS_SOURCE_PATTERN_FUN_MATCH", sizeof (meltcdat->dstr_1416__CLASS_SOURCE_PATTERN_FUN.val)-1); meltcdat->dstr_1416__CLASS_SOURCE_PATTERN_FUN.val[30] = (char)0 ; meltcdat->dstr_1416__CLASS_SOURCE_PATTERN_FUN.slen = 30 ; /*inimult dtup_1417_syCLASS_SOURCE_PATTERN_FUN_MATCH*/ - /*_._VALTUP___V1511*/ - meltfptr[1510] = (melt_ptr_t) &meltcdat->dtup_1417_syCLASS_SOURCE_PATTERN_FUN_MATCH; + /*_._VALTUP___V1511*/ meltfptr[1510] = (melt_ptr_t) &meltcdat->dtup_1417_syCLASS_SOURCE_PATTERN_FUN_MATCH; meltcdat->dtup_1417_syCLASS_SOURCE_PATTERN_FUN_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1417_syCLASS_SOURCE_PATTERN_FUN_MATCH.nbval = 8; /*inimult dtup_1418_syCLASS_SOURCE_PATTERN_FUN_MATCH*/ - /*_._VALTUP___V1512*/ - meltfptr[1511] = (melt_ptr_t) &meltcdat->dtup_1418_syCLASS_SOURCE_PATTERN_FUN_MATCH; + /*_._VALTUP___V1512*/ meltfptr[1511] = (melt_ptr_t) &meltcdat->dtup_1418_syCLASS_SOURCE_PATTERN_FUN_MATCH; meltcdat->dtup_1418_syCLASS_SOURCE_PATTERN_FUN_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1418_syCLASS_SOURCE_PATTERN_FUN_MATCH.nbval = 9; /*inirout drout_1419__S_EXPR_WEIGHT*/ - /*iniroutlocvar*/ /*_._VALROUT___V1513*/ - meltfptr[1512] = (melt_ptr_t) &meltcdat->drout_1419__S_EXPR_WEIGHT; + /*iniroutlocvar*/ /*_._VALROUT___V1513*/ meltfptr[1512] = (melt_ptr_t) &meltcdat->drout_1419__S_EXPR_WEIGHT; meltcdat->drout_1419__S_EXPR_WEIGHT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1419__S_EXPR_WEIGHT.routdescr, "S_EXPR_WEIGHT @warmelt-macro.melt:1407", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1419__S_EXPR_WEIGHT.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1419__S_EXPR_WEIGHT, meltrout_11_WARMELTmiMACRO_S_EXPR_WEIGHT); /*iniclos dclo_1420__S_EXPR_WEIGHT*/ - /*_._VALCLO___V1517*/ - meltfptr[1516] = (melt_ptr_t) &meltcdat->dclo_1420__S_EXPR_WEIGHT; + /*_._VALCLO___V1517*/ meltfptr[1516] = (melt_ptr_t) &meltcdat->dclo_1420__S_EXPR_WEIGHT; meltcdat->dclo_1420__S_EXPR_WEIGHT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1420__S_EXPR_WEIGHT.nbval = 0; /*inirout drout_1421__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1514*/ - meltfptr[1513] = (melt_ptr_t) &meltcdat->drout_1421__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1514*/ meltfptr[1513] = (melt_ptr_t) &meltcdat->drout_1421__LAMBDA_; meltcdat->drout_1421__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1421__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1410", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1421__LAMBDA_.nbval = 2; @@ -25077,8 +22140,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*iniobj dsym_1422__TRUE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1515*/ meltfptr[1514]) + /*uniqueobj*/ if (!/*_._VALDATA___V1515*/ meltfptr[1514]) /*_._VALDATA___V1515*/ meltfptr[1514] = (melt_ptr_t )&meltcdat->dsym_1422__TRUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1422__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_1422__TRUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25088,18 +22150,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1423__TRUE*/ - /*_._VALSTR___V1516*/ - meltfptr[1515] = (melt_ptr_t) &meltcdat->dstr_1423__TRUE; + /*_._VALSTR___V1516*/ meltfptr[1515] = (melt_ptr_t) &meltcdat->dstr_1423__TRUE; meltcdat->dstr_1423__TRUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1423__TRUE.val, "TRUE", sizeof (meltcdat->dstr_1423__TRUE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1423__TRUE.val, "TRUE", sizeof (meltcdat->dstr_1423__TRUE.val)-1); meltcdat->dstr_1423__TRUE.val[4] = (char)0 ; meltcdat->dstr_1423__TRUE.slen = 4 ; /*iniobj dsym_1424__DISCR_CONSTANT_INTEGER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1518*/ meltfptr[1517]) + /*uniqueobj*/ if (!/*_._VALDATA___V1518*/ meltfptr[1517]) /*_._VALDATA___V1518*/ meltfptr[1517] = (melt_ptr_t )&meltcdat->dsym_1424__DISCR_CONSTANT_INTEGER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1424__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_1424__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25109,32 +22168,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1425__DISCR_CONSTANT_INTEGER*/ - /*_._VALSTR___V1519*/ - meltfptr[1518] = (melt_ptr_t) &meltcdat->dstr_1425__DISCR_CONSTANT_INTEGER; + /*_._VALSTR___V1519*/ meltfptr[1518] = (melt_ptr_t) &meltcdat->dstr_1425__DISCR_CONSTANT_INTEGER; meltcdat->dstr_1425__DISCR_CONSTANT_INTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1425__DISCR_CONSTANT_INTEGER.val, "DISCR_CONSTANT_INTEGER", sizeof (meltcdat->dstr_1425__DISCR_CONSTANT_INTEGER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1425__DISCR_CONSTANT_INTEGER.val, "DISCR_CONSTANT_INTEGER", sizeof (meltcdat->dstr_1425__DISCR_CONSTANT_INTEGER.val)-1); meltcdat->dstr_1425__DISCR_CONSTANT_INTEGER.val[22] = (char)0 ; meltcdat->dstr_1425__DISCR_CONSTANT_INTEGER.slen = 22 ; /*inirout drout_1426__EXPAND_RESTLIST_AS_LIST*/ - /*iniroutlocvar*/ /*_._VALROUT___V1520*/ - meltfptr[1519] = (melt_ptr_t) &meltcdat->drout_1426__EXPAND_RESTLIST_AS_LIST; + /*iniroutlocvar*/ /*_._VALROUT___V1520*/ meltfptr[1519] = (melt_ptr_t) &meltcdat->drout_1426__EXPAND_RESTLIST_AS_LIST; meltcdat->drout_1426__EXPAND_RESTLIST_AS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1426__EXPAND_RESTLIST_AS_LIST.routdescr, "EXPAND_RESTLIST_AS_LIST @warmelt-macro.melt:1442", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1426__EXPAND_RESTLIST_AS_LIST.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1426__EXPAND_RESTLIST_AS_LIST, meltrout_13_WARMELTmiMACRO_EXPAND_RESTLIST_AS_LIST); /*iniclos dclo_1427__EXPAND_RESTLIST_AS_LIST*/ - /*_._VALCLO___V1521*/ - meltfptr[1520] = (melt_ptr_t) &meltcdat->dclo_1427__EXPAND_RESTLIST_AS_LIST; + /*_._VALCLO___V1521*/ meltfptr[1520] = (melt_ptr_t) &meltcdat->dclo_1427__EXPAND_RESTLIST_AS_LIST; meltcdat->dclo_1427__EXPAND_RESTLIST_AS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1427__EXPAND_RESTLIST_AS_LIST.nbval = 0; /*iniobj dsym_1428__CLASS_ENVIRONMENT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1522*/ meltfptr[1521]) + /*uniqueobj*/ if (!/*_._VALDATA___V1522*/ meltfptr[1521]) /*_._VALDATA___V1522*/ meltfptr[1521] = (melt_ptr_t )&meltcdat->dsym_1428__CLASS_ENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1428__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_1428__CLASS_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25144,74 +22198,63 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1429__CLASS_ENVIRONMENT*/ - /*_._VALSTR___V1523*/ - meltfptr[1522] = (melt_ptr_t) &meltcdat->dstr_1429__CLASS_ENVIRONMENT; + /*_._VALSTR___V1523*/ meltfptr[1522] = (melt_ptr_t) &meltcdat->dstr_1429__CLASS_ENVIRONMENT; meltcdat->dstr_1429__CLASS_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1429__CLASS_ENVIRONMENT.val, "CLASS_ENVIRONMENT", sizeof (meltcdat->dstr_1429__CLASS_ENVIRONMENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1429__CLASS_ENVIRONMENT.val, "CLASS_ENVIRONMENT", sizeof (meltcdat->dstr_1429__CLASS_ENVIRONMENT.val)-1); meltcdat->dstr_1429__CLASS_ENVIRONMENT.val[17] = (char)0 ; meltcdat->dstr_1429__CLASS_ENVIRONMENT.slen = 17 ; /*inirout drout_1430__EXPAND_RESTLIST_AS_TUPLE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1524*/ - meltfptr[1523] = (melt_ptr_t) &meltcdat->drout_1430__EXPAND_RESTLIST_AS_TUPLE; + /*iniroutlocvar*/ /*_._VALROUT___V1524*/ meltfptr[1523] = (melt_ptr_t) &meltcdat->drout_1430__EXPAND_RESTLIST_AS_TUPLE; meltcdat->drout_1430__EXPAND_RESTLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1430__EXPAND_RESTLIST_AS_TUPLE.routdescr, "EXPAND_RESTLIST_AS_TUPLE @warmelt-macro.melt:1486", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1430__EXPAND_RESTLIST_AS_TUPLE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1430__EXPAND_RESTLIST_AS_TUPLE, meltrout_14_WARMELTmiMACRO_EXPAND_RESTLIST_AS_TUPLE); /*iniclos dclo_1431__EXPAND_RESTLIST_AS_TUPLE*/ - /*_._VALCLO___V1525*/ - meltfptr[1524] = (melt_ptr_t) &meltcdat->dclo_1431__EXPAND_RESTLIST_AS_TUPLE; + /*_._VALCLO___V1525*/ meltfptr[1524] = (melt_ptr_t) &meltcdat->dclo_1431__EXPAND_RESTLIST_AS_TUPLE; meltcdat->dclo_1431__EXPAND_RESTLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1431__EXPAND_RESTLIST_AS_TUPLE.nbval = 0; /*inirout drout_1432__EXPAND_PAIRLIST_AS_LIST*/ - /*iniroutlocvar*/ /*_._VALROUT___V1526*/ - meltfptr[1525] = (melt_ptr_t) &meltcdat->drout_1432__EXPAND_PAIRLIST_AS_LIST; + /*iniroutlocvar*/ /*_._VALROUT___V1526*/ meltfptr[1525] = (melt_ptr_t) &meltcdat->drout_1432__EXPAND_PAIRLIST_AS_LIST; meltcdat->drout_1432__EXPAND_PAIRLIST_AS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1432__EXPAND_PAIRLIST_AS_LIST.routdescr, "EXPAND_PAIRLIST_AS_LIST @warmelt-macro.melt:1499", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1432__EXPAND_PAIRLIST_AS_LIST.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1432__EXPAND_PAIRLIST_AS_LIST, meltrout_15_WARMELTmiMACRO_EXPAND_PAIRLIST_AS_LIST); /*iniclos dclo_1433__EXPAND_PAIRLIST_AS_LIST*/ - /*_._VALCLO___V1527*/ - meltfptr[1526] = (melt_ptr_t) &meltcdat->dclo_1433__EXPAND_PAIRLIST_AS_LIST; + /*_._VALCLO___V1527*/ meltfptr[1526] = (melt_ptr_t) &meltcdat->dclo_1433__EXPAND_PAIRLIST_AS_LIST; meltcdat->dclo_1433__EXPAND_PAIRLIST_AS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1433__EXPAND_PAIRLIST_AS_LIST.nbval = 0; /*inirout drout_1434__EXPAND_PAIRLIST_AS_TUPLE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1528*/ - meltfptr[1527] = (melt_ptr_t) &meltcdat->drout_1434__EXPAND_PAIRLIST_AS_TUPLE; + /*iniroutlocvar*/ /*_._VALROUT___V1528*/ meltfptr[1527] = (melt_ptr_t) &meltcdat->drout_1434__EXPAND_PAIRLIST_AS_TUPLE; meltcdat->drout_1434__EXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1434__EXPAND_PAIRLIST_AS_TUPLE.routdescr, "EXPAND_PAIRLIST_AS_TUPLE @warmelt-macro.melt:1539", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1434__EXPAND_PAIRLIST_AS_TUPLE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1434__EXPAND_PAIRLIST_AS_TUPLE, meltrout_16_WARMELTmiMACRO_EXPAND_PAIRLIST_AS_TUPLE); /*iniclos dclo_1435__EXPAND_PAIRLIST_AS_TUPLE*/ - /*_._VALCLO___V1529*/ - meltfptr[1528] = (melt_ptr_t) &meltcdat->dclo_1435__EXPAND_PAIRLIST_AS_TUPLE; + /*_._VALCLO___V1529*/ meltfptr[1528] = (melt_ptr_t) &meltcdat->dclo_1435__EXPAND_PAIRLIST_AS_TUPLE; meltcdat->dclo_1435__EXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1435__EXPAND_PAIRLIST_AS_TUPLE.nbval = 0; /*inirout drout_1436__EXPAND_TUPLE_SLICE_AS_TUPLE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1530*/ - meltfptr[1529] = (melt_ptr_t) &meltcdat->drout_1436__EXPAND_TUPLE_SLICE_AS_TUPLE; + /*iniroutlocvar*/ /*_._VALROUT___V1530*/ meltfptr[1529] = (melt_ptr_t) &meltcdat->drout_1436__EXPAND_TUPLE_SLICE_AS_TUPLE; meltcdat->drout_1436__EXPAND_TUPLE_SLICE_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1436__EXPAND_TUPLE_SLICE_AS_TUPLE.routdescr, "EXPAND_TUPLE_SLICE_AS_TUPLE @warmelt-macro.melt:1550", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1436__EXPAND_TUPLE_SLICE_AS_TUPLE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1436__EXPAND_TUPLE_SLICE_AS_TUPLE, meltrout_17_WARMELTmiMACRO_EXPAND_TUPLE_SLICE_AS_TUPLE); /*iniclos dclo_1437__EXPAND_TUPLE_SLICE_AS_TUPLE*/ - /*_._VALCLO___V1531*/ - meltfptr[1530] = (melt_ptr_t) &meltcdat->dclo_1437__EXPAND_TUPLE_SLICE_AS_TUPLE; + /*_._VALCLO___V1531*/ meltfptr[1530] = (melt_ptr_t) &meltcdat->dclo_1437__EXPAND_TUPLE_SLICE_AS_TUPLE; meltcdat->dclo_1437__EXPAND_TUPLE_SLICE_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1437__EXPAND_TUPLE_SLICE_AS_TUPLE.nbval = 0; /*iniobj dsym_1438__DISCR_LIST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1532*/ meltfptr[1531]) + /*uniqueobj*/ if (!/*_._VALDATA___V1532*/ meltfptr[1531]) /*_._VALDATA___V1532*/ meltfptr[1531] = (melt_ptr_t )&meltcdat->dsym_1438__DISCR_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1438__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_1438__DISCR_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25221,32 +22264,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1439__DISCR_LIST*/ - /*_._VALSTR___V1533*/ - meltfptr[1532] = (melt_ptr_t) &meltcdat->dstr_1439__DISCR_LIST; + /*_._VALSTR___V1533*/ meltfptr[1532] = (melt_ptr_t) &meltcdat->dstr_1439__DISCR_LIST; meltcdat->dstr_1439__DISCR_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1439__DISCR_LIST.val, "DISCR_LIST", sizeof (meltcdat->dstr_1439__DISCR_LIST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1439__DISCR_LIST.val, "DISCR_LIST", sizeof (meltcdat->dstr_1439__DISCR_LIST.val)-1); meltcdat->dstr_1439__DISCR_LIST.val[10] = (char)0 ; meltcdat->dstr_1439__DISCR_LIST.slen = 10 ; /*inirout drout_1440__REGISTER_GENERATOR_DEVICE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1534*/ - meltfptr[1533] = (melt_ptr_t) &meltcdat->drout_1440__REGISTER_GENERATOR_DEVICE; + /*iniroutlocvar*/ /*_._VALROUT___V1534*/ meltfptr[1533] = (melt_ptr_t) &meltcdat->drout_1440__REGISTER_GENERATOR_DEVICE; meltcdat->drout_1440__REGISTER_GENERATOR_DEVICE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1440__REGISTER_GENERATOR_DEVICE.routdescr, "REGISTER_GENERATOR_DEVICE @warmelt-macro.melt:1603", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1440__REGISTER_GENERATOR_DEVICE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1440__REGISTER_GENERATOR_DEVICE, meltrout_18_WARMELTmiMACRO_REGISTER_GENERATOR_DEVICE); /*iniclos dclo_1441__REGISTER_GENERATOR_DEVICE*/ - /*_._VALCLO___V1535*/ - meltfptr[1534] = (melt_ptr_t) &meltcdat->dclo_1441__REGISTER_GENERATOR_DEVICE; + /*_._VALCLO___V1535*/ meltfptr[1534] = (melt_ptr_t) &meltcdat->dclo_1441__REGISTER_GENERATOR_DEVICE; meltcdat->dclo_1441__REGISTER_GENERATOR_DEVICE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1441__REGISTER_GENERATOR_DEVICE.nbval = 0; /*iniobj dsym_1442__CLASS_ANY_MODULE_CONTEXT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1536*/ meltfptr[1535]) + /*uniqueobj*/ if (!/*_._VALDATA___V1536*/ meltfptr[1535]) /*_._VALDATA___V1536*/ meltfptr[1535] = (melt_ptr_t )&meltcdat->dsym_1442__CLASS_ANY_MODULE_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1442__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_1442__CLASS_ANY_MODULE_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25256,60 +22294,51 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1443__CLASS_ANY_MODULE_CONTEXT*/ - /*_._VALSTR___V1537*/ - meltfptr[1536] = (melt_ptr_t) &meltcdat->dstr_1443__CLASS_ANY_MODULE_CONTEXT; + /*_._VALSTR___V1537*/ meltfptr[1536] = (melt_ptr_t) &meltcdat->dstr_1443__CLASS_ANY_MODULE_CONTEXT; meltcdat->dstr_1443__CLASS_ANY_MODULE_CONTEXT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1443__CLASS_ANY_MODULE_CONTEXT.val, "CLASS_ANY_MODULE_CONTEXT", sizeof (meltcdat->dstr_1443__CLASS_ANY_MODULE_CONTEXT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1443__CLASS_ANY_MODULE_CONTEXT.val, "CLASS_ANY_MODULE_CONTEXT", sizeof (meltcdat->dstr_1443__CLASS_ANY_MODULE_CONTEXT.val)-1); meltcdat->dstr_1443__CLASS_ANY_MODULE_CONTEXT.val[24] = (char)0 ; meltcdat->dstr_1443__CLASS_ANY_MODULE_CONTEXT.slen = 24 ; /*inirout drout_1444__EXPAND_APPLY*/ - /*iniroutlocvar*/ /*_._VALROUT___V1538*/ - meltfptr[1537] = (melt_ptr_t) &meltcdat->drout_1444__EXPAND_APPLY; + /*iniroutlocvar*/ /*_._VALROUT___V1538*/ meltfptr[1537] = (melt_ptr_t) &meltcdat->drout_1444__EXPAND_APPLY; meltcdat->drout_1444__EXPAND_APPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1444__EXPAND_APPLY.routdescr, "EXPAND_APPLY @warmelt-macro.melt:1628", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1444__EXPAND_APPLY.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1444__EXPAND_APPLY, meltrout_19_WARMELTmiMACRO_EXPAND_APPLY); /*iniclos dclo_1445__EXPAND_APPLY*/ - /*_._VALCLO___V1539*/ - meltfptr[1538] = (melt_ptr_t) &meltcdat->dclo_1445__EXPAND_APPLY; + /*_._VALCLO___V1539*/ meltfptr[1538] = (melt_ptr_t) &meltcdat->dclo_1445__EXPAND_APPLY; meltcdat->dclo_1445__EXPAND_APPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1445__EXPAND_APPLY.nbval = 0; /*inirout drout_1446__EXPAND_MSEND*/ - /*iniroutlocvar*/ /*_._VALROUT___V1540*/ - meltfptr[1539] = (melt_ptr_t) &meltcdat->drout_1446__EXPAND_MSEND; + /*iniroutlocvar*/ /*_._VALROUT___V1540*/ meltfptr[1539] = (melt_ptr_t) &meltcdat->drout_1446__EXPAND_MSEND; meltcdat->drout_1446__EXPAND_MSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1446__EXPAND_MSEND.routdescr, "EXPAND_MSEND @warmelt-macro.melt:1648", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1446__EXPAND_MSEND.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1446__EXPAND_MSEND, meltrout_20_WARMELTmiMACRO_EXPAND_MSEND); /*iniclos dclo_1447__EXPAND_MSEND*/ - /*_._VALCLO___V1545*/ - meltfptr[1544] = (melt_ptr_t) &meltcdat->dclo_1447__EXPAND_MSEND; + /*_._VALCLO___V1545*/ meltfptr[1544] = (melt_ptr_t) &meltcdat->dclo_1447__EXPAND_MSEND; meltcdat->dclo_1447__EXPAND_MSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1447__EXPAND_MSEND.nbval = 0; /*inirout drout_1448__EXPAND_FIELDEXPR*/ - /*iniroutlocvar*/ /*_._VALROUT___V1563*/ - meltfptr[1562] = (melt_ptr_t) &meltcdat->drout_1448__EXPAND_FIELDEXPR; + /*iniroutlocvar*/ /*_._VALROUT___V1563*/ meltfptr[1562] = (melt_ptr_t) &meltcdat->drout_1448__EXPAND_FIELDEXPR; meltcdat->drout_1448__EXPAND_FIELDEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1448__EXPAND_FIELDEXPR.routdescr, "EXPAND_FIELDEXPR @warmelt-macro.melt:1680", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1448__EXPAND_FIELDEXPR.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1448__EXPAND_FIELDEXPR, meltrout_21_WARMELTmiMACRO_EXPAND_FIELDEXPR); /*iniclos dclo_1449__EXPAND_FIELDEXPR*/ - /*_._VALCLO___V1562*/ - meltfptr[1561] = (melt_ptr_t) &meltcdat->dclo_1449__EXPAND_FIELDEXPR; + /*_._VALCLO___V1562*/ meltfptr[1561] = (melt_ptr_t) &meltcdat->dclo_1449__EXPAND_FIELDEXPR; meltcdat->dclo_1449__EXPAND_FIELDEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1449__EXPAND_FIELDEXPR.nbval = 0; /*iniobj dsym_1450__CLASS_FIELD*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1565*/ meltfptr[1564]) + /*uniqueobj*/ if (!/*_._VALDATA___V1565*/ meltfptr[1564]) /*_._VALDATA___V1565*/ meltfptr[1564] = (melt_ptr_t )&meltcdat->dsym_1450__CLASS_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1450__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_1450__CLASS_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25319,32 +22348,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1451__CLASS_FIELD*/ - /*_._VALSTR___V1566*/ - meltfptr[1565] = (melt_ptr_t) &meltcdat->dstr_1451__CLASS_FIELD; + /*_._VALSTR___V1566*/ meltfptr[1565] = (melt_ptr_t) &meltcdat->dstr_1451__CLASS_FIELD; meltcdat->dstr_1451__CLASS_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1451__CLASS_FIELD.val, "CLASS_FIELD", sizeof (meltcdat->dstr_1451__CLASS_FIELD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1451__CLASS_FIELD.val, "CLASS_FIELD", sizeof (meltcdat->dstr_1451__CLASS_FIELD.val)-1); meltcdat->dstr_1451__CLASS_FIELD.val[11] = (char)0 ; meltcdat->dstr_1451__CLASS_FIELD.slen = 11 ; /*inirout drout_1452__EXPAND_CITERATION*/ - /*iniroutlocvar*/ /*_._VALROUT___V1549*/ - meltfptr[1548] = (melt_ptr_t) &meltcdat->drout_1452__EXPAND_CITERATION; + /*iniroutlocvar*/ /*_._VALROUT___V1549*/ meltfptr[1548] = (melt_ptr_t) &meltcdat->drout_1452__EXPAND_CITERATION; meltcdat->drout_1452__EXPAND_CITERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1452__EXPAND_CITERATION.routdescr, "EXPAND_CITERATION @warmelt-macro.melt:1739", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1452__EXPAND_CITERATION.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1452__EXPAND_CITERATION, meltrout_22_WARMELTmiMACRO_EXPAND_CITERATION); /*iniclos dclo_1453__EXPAND_CITERATION*/ - /*_._VALCLO___V1548*/ - meltfptr[1547] = (melt_ptr_t) &meltcdat->dclo_1453__EXPAND_CITERATION; + /*_._VALCLO___V1548*/ meltfptr[1547] = (melt_ptr_t) &meltcdat->dclo_1453__EXPAND_CITERATION; meltcdat->dclo_1453__EXPAND_CITERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1453__EXPAND_CITERATION.nbval = 0; /*iniobj dsym_1454__CLASS_CITERATOR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1567*/ meltfptr[1566]) + /*uniqueobj*/ if (!/*_._VALDATA___V1567*/ meltfptr[1566]) /*_._VALDATA___V1567*/ meltfptr[1566] = (melt_ptr_t )&meltcdat->dsym_1454__CLASS_CITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1454__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_1454__CLASS_CITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25354,18 +22378,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1455__CLASS_CITERATOR*/ - /*_._VALSTR___V1568*/ - meltfptr[1567] = (melt_ptr_t) &meltcdat->dstr_1455__CLASS_CITERATOR; + /*_._VALSTR___V1568*/ meltfptr[1567] = (melt_ptr_t) &meltcdat->dstr_1455__CLASS_CITERATOR; meltcdat->dstr_1455__CLASS_CITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1455__CLASS_CITERATOR.val, "CLASS_CITERATOR", sizeof (meltcdat->dstr_1455__CLASS_CITERATOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1455__CLASS_CITERATOR.val, "CLASS_CITERATOR", sizeof (meltcdat->dstr_1455__CLASS_CITERATOR.val)-1); meltcdat->dstr_1455__CLASS_CITERATOR.val[15] = (char)0 ; meltcdat->dstr_1455__CLASS_CITERATOR.slen = 15 ; /*iniobj dsym_1456__FRESH_ENV*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1569*/ meltfptr[1568]) + /*uniqueobj*/ if (!/*_._VALDATA___V1569*/ meltfptr[1568]) /*_._VALDATA___V1569*/ meltfptr[1568] = (melt_ptr_t )&meltcdat->dsym_1456__FRESH_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1456__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_1456__FRESH_ENV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25375,18 +22396,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1457__FRESH_ENV*/ - /*_._VALSTR___V1570*/ - meltfptr[1569] = (melt_ptr_t) &meltcdat->dstr_1457__FRESH_ENV; + /*_._VALSTR___V1570*/ meltfptr[1569] = (melt_ptr_t) &meltcdat->dstr_1457__FRESH_ENV; meltcdat->dstr_1457__FRESH_ENV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1457__FRESH_ENV.val, "FRESH_ENV", sizeof (meltcdat->dstr_1457__FRESH_ENV.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1457__FRESH_ENV.val, "FRESH_ENV", sizeof (meltcdat->dstr_1457__FRESH_ENV.val)-1); meltcdat->dstr_1457__FRESH_ENV.val[9] = (char)0 ; meltcdat->dstr_1457__FRESH_ENV.slen = 9 ; /*iniobj dsym_1458__PUT_ENV*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1571*/ meltfptr[1570]) + /*uniqueobj*/ if (!/*_._VALDATA___V1571*/ meltfptr[1570]) /*_._VALDATA___V1571*/ meltfptr[1570] = (melt_ptr_t )&meltcdat->dsym_1458__PUT_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1458__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_1458__PUT_ENV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25396,32 +22414,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1459__PUT_ENV*/ - /*_._VALSTR___V1572*/ - meltfptr[1571] = (melt_ptr_t) &meltcdat->dstr_1459__PUT_ENV; + /*_._VALSTR___V1572*/ meltfptr[1571] = (melt_ptr_t) &meltcdat->dstr_1459__PUT_ENV; meltcdat->dstr_1459__PUT_ENV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1459__PUT_ENV.val, "PUT_ENV", sizeof (meltcdat->dstr_1459__PUT_ENV.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1459__PUT_ENV.val, "PUT_ENV", sizeof (meltcdat->dstr_1459__PUT_ENV.val)-1); meltcdat->dstr_1459__PUT_ENV.val[7] = (char)0 ; meltcdat->dstr_1459__PUT_ENV.slen = 7 ; /*inirout drout_1460__EXPAND_CMATCHEXPR*/ - /*iniroutlocvar*/ /*_._VALROUT___V1559*/ - meltfptr[1558] = (melt_ptr_t) &meltcdat->drout_1460__EXPAND_CMATCHEXPR; + /*iniroutlocvar*/ /*_._VALROUT___V1559*/ meltfptr[1558] = (melt_ptr_t) &meltcdat->drout_1460__EXPAND_CMATCHEXPR; meltcdat->drout_1460__EXPAND_CMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1460__EXPAND_CMATCHEXPR.routdescr, "EXPAND_CMATCHEXPR @warmelt-macro.melt:1803", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1460__EXPAND_CMATCHEXPR.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1460__EXPAND_CMATCHEXPR, meltrout_23_WARMELTmiMACRO_EXPAND_CMATCHEXPR); /*iniclos dclo_1461__EXPAND_CMATCHEXPR*/ - /*_._VALCLO___V1558*/ - meltfptr[1557] = (melt_ptr_t) &meltcdat->dclo_1461__EXPAND_CMATCHEXPR; + /*_._VALCLO___V1558*/ meltfptr[1557] = (melt_ptr_t) &meltcdat->dclo_1461__EXPAND_CMATCHEXPR; meltcdat->dclo_1461__EXPAND_CMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1461__EXPAND_CMATCHEXPR.nbval = 0; /*iniobj dsym_1462__CLASS_CMATCHER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1573*/ meltfptr[1572]) + /*uniqueobj*/ if (!/*_._VALDATA___V1573*/ meltfptr[1572]) /*_._VALDATA___V1573*/ meltfptr[1572] = (melt_ptr_t )&meltcdat->dsym_1462__CLASS_CMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1462__CLASS_CMATCHER", 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_1462__CLASS_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25431,18 +22444,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1463__CLASS_CMATCHER*/ - /*_._VALSTR___V1574*/ - meltfptr[1573] = (melt_ptr_t) &meltcdat->dstr_1463__CLASS_CMATCHER; + /*_._VALSTR___V1574*/ meltfptr[1573] = (melt_ptr_t) &meltcdat->dstr_1463__CLASS_CMATCHER; meltcdat->dstr_1463__CLASS_CMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1463__CLASS_CMATCHER.val, "CLASS_CMATCHER", sizeof (meltcdat->dstr_1463__CLASS_CMATCHER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1463__CLASS_CMATCHER.val, "CLASS_CMATCHER", sizeof (meltcdat->dstr_1463__CLASS_CMATCHER.val)-1); meltcdat->dstr_1463__CLASS_CMATCHER.val[14] = (char)0 ; meltcdat->dstr_1463__CLASS_CMATCHER.slen = 14 ; /*iniobj dsym_1464__CLASS_ANY_MATCHER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1575*/ meltfptr[1574]) + /*uniqueobj*/ if (!/*_._VALDATA___V1575*/ meltfptr[1574]) /*_._VALDATA___V1575*/ meltfptr[1574] = (melt_ptr_t )&meltcdat->dsym_1464__CLASS_ANY_MATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1464__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_1464__CLASS_ANY_MATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25452,32 +22462,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1465__CLASS_ANY_MATCHER*/ - /*_._VALSTR___V1576*/ - meltfptr[1575] = (melt_ptr_t) &meltcdat->dstr_1465__CLASS_ANY_MATCHER; + /*_._VALSTR___V1576*/ meltfptr[1575] = (melt_ptr_t) &meltcdat->dstr_1465__CLASS_ANY_MATCHER; meltcdat->dstr_1465__CLASS_ANY_MATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1465__CLASS_ANY_MATCHER.val, "CLASS_ANY_MATCHER", sizeof (meltcdat->dstr_1465__CLASS_ANY_MATCHER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1465__CLASS_ANY_MATCHER.val, "CLASS_ANY_MATCHER", sizeof (meltcdat->dstr_1465__CLASS_ANY_MATCHER.val)-1); meltcdat->dstr_1465__CLASS_ANY_MATCHER.val[17] = (char)0 ; meltcdat->dstr_1465__CLASS_ANY_MATCHER.slen = 17 ; /*inirout drout_1466__EXPAND_FUNMATCHEXPR*/ - /*iniroutlocvar*/ /*_._VALROUT___V1561*/ - meltfptr[1560] = (melt_ptr_t) &meltcdat->drout_1466__EXPAND_FUNMATCHEXPR; + /*iniroutlocvar*/ /*_._VALROUT___V1561*/ meltfptr[1560] = (melt_ptr_t) &meltcdat->drout_1466__EXPAND_FUNMATCHEXPR; meltcdat->drout_1466__EXPAND_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1466__EXPAND_FUNMATCHEXPR.routdescr, "EXPAND_FUNMATCHEXPR @warmelt-macro.melt:1851", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1466__EXPAND_FUNMATCHEXPR.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1466__EXPAND_FUNMATCHEXPR, meltrout_24_WARMELTmiMACRO_EXPAND_FUNMATCHEXPR); /*iniclos dclo_1467__EXPAND_FUNMATCHEXPR*/ - /*_._VALCLO___V1560*/ - meltfptr[1559] = (melt_ptr_t) &meltcdat->dclo_1467__EXPAND_FUNMATCHEXPR; + /*_._VALCLO___V1560*/ meltfptr[1559] = (melt_ptr_t) &meltcdat->dclo_1467__EXPAND_FUNMATCHEXPR; meltcdat->dclo_1467__EXPAND_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1467__EXPAND_FUNMATCHEXPR.nbval = 0; /*iniobj dsym_1468__CLASS_FUNMATCHER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1577*/ meltfptr[1576]) + /*uniqueobj*/ if (!/*_._VALDATA___V1577*/ meltfptr[1576]) /*_._VALDATA___V1577*/ meltfptr[1576] = (melt_ptr_t )&meltcdat->dsym_1468__CLASS_FUNMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1468__CLASS_FUNMATCHER", 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_1468__CLASS_FUNMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25487,46 +22492,39 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1469__CLASS_FUNMATCHER*/ - /*_._VALSTR___V1578*/ - meltfptr[1577] = (melt_ptr_t) &meltcdat->dstr_1469__CLASS_FUNMATCHER; + /*_._VALSTR___V1578*/ meltfptr[1577] = (melt_ptr_t) &meltcdat->dstr_1469__CLASS_FUNMATCHER; meltcdat->dstr_1469__CLASS_FUNMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1469__CLASS_FUNMATCHER.val, "CLASS_FUNMATCHER", sizeof (meltcdat->dstr_1469__CLASS_FUNMATCHER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1469__CLASS_FUNMATCHER.val, "CLASS_FUNMATCHER", sizeof (meltcdat->dstr_1469__CLASS_FUNMATCHER.val)-1); meltcdat->dstr_1469__CLASS_FUNMATCHER.val[16] = (char)0 ; meltcdat->dstr_1469__CLASS_FUNMATCHER.slen = 16 ; /*inirout drout_1470__EXPAND_KEYWORDFUN*/ - /*iniroutlocvar*/ /*_._VALROUT___V1544*/ - meltfptr[1543] = (melt_ptr_t) &meltcdat->drout_1470__EXPAND_KEYWORDFUN; + /*iniroutlocvar*/ /*_._VALROUT___V1544*/ meltfptr[1543] = (melt_ptr_t) &meltcdat->drout_1470__EXPAND_KEYWORDFUN; meltcdat->drout_1470__EXPAND_KEYWORDFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1470__EXPAND_KEYWORDFUN.routdescr, "EXPAND_KEYWORDFUN @warmelt-macro.melt:1883", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1470__EXPAND_KEYWORDFUN.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1470__EXPAND_KEYWORDFUN, meltrout_25_WARMELTmiMACRO_EXPAND_KEYWORDFUN); /*iniclos dclo_1471__EXPAND_KEYWORDFUN*/ - /*_._VALCLO___V1543*/ - meltfptr[1542] = (melt_ptr_t) &meltcdat->dclo_1471__EXPAND_KEYWORDFUN; + /*_._VALCLO___V1543*/ meltfptr[1542] = (melt_ptr_t) &meltcdat->dclo_1471__EXPAND_KEYWORDFUN; meltcdat->dclo_1471__EXPAND_KEYWORDFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1471__EXPAND_KEYWORDFUN.nbval = 0; /*inirout drout_1472__MACROEXPAND_1*/ - /*iniroutlocvar*/ /*_._VALROUT___V1542*/ - meltfptr[1541] = (melt_ptr_t) &meltcdat->drout_1472__MACROEXPAND_1; + /*iniroutlocvar*/ /*_._VALROUT___V1542*/ meltfptr[1541] = (melt_ptr_t) &meltcdat->drout_1472__MACROEXPAND_1; meltcdat->drout_1472__MACROEXPAND_1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1472__MACROEXPAND_1.routdescr, "MACROEXPAND_1 @warmelt-macro.melt:1901", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1472__MACROEXPAND_1.nbval = 39; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1472__MACROEXPAND_1, meltrout_26_WARMELTmiMACRO_MACROEXPAND_1); /*iniclos dclo_1473__MACROEXPAND_1*/ - /*_._VALCLO___V1541*/ - meltfptr[1540] = (melt_ptr_t) &meltcdat->dclo_1473__MACROEXPAND_1; + /*_._VALCLO___V1541*/ meltfptr[1540] = (melt_ptr_t) &meltcdat->dclo_1473__MACROEXPAND_1; meltcdat->dclo_1473__MACROEXPAND_1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1473__MACROEXPAND_1.nbval = 0; /*iniobj dsym_1474__FIND_ENV*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1579*/ meltfptr[1578]) + /*uniqueobj*/ if (!/*_._VALDATA___V1579*/ meltfptr[1578]) /*_._VALDATA___V1579*/ meltfptr[1578] = (melt_ptr_t )&meltcdat->dsym_1474__FIND_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1474__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_1474__FIND_ENV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25536,18 +22534,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1475__FIND_ENV*/ - /*_._VALSTR___V1580*/ - meltfptr[1579] = (melt_ptr_t) &meltcdat->dstr_1475__FIND_ENV; + /*_._VALSTR___V1580*/ meltfptr[1579] = (melt_ptr_t) &meltcdat->dstr_1475__FIND_ENV; meltcdat->dstr_1475__FIND_ENV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1475__FIND_ENV.val, "FIND_ENV", sizeof (meltcdat->dstr_1475__FIND_ENV.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1475__FIND_ENV.val, "FIND_ENV", sizeof (meltcdat->dstr_1475__FIND_ENV.val)-1); meltcdat->dstr_1475__FIND_ENV.val[8] = (char)0 ; meltcdat->dstr_1475__FIND_ENV.slen = 8 ; /*iniobj dsym_1476__DEBUG_LESS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1581*/ meltfptr[1580]) + /*uniqueobj*/ if (!/*_._VALDATA___V1581*/ meltfptr[1580]) /*_._VALDATA___V1581*/ meltfptr[1580] = (melt_ptr_t )&meltcdat->dsym_1476__DEBUG_LESS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1476__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_1476__DEBUG_LESS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25557,18 +22552,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1477__DEBUG_LESS*/ - /*_._VALSTR___V1582*/ - meltfptr[1581] = (melt_ptr_t) &meltcdat->dstr_1477__DEBUG_LESS; + /*_._VALSTR___V1582*/ meltfptr[1581] = (melt_ptr_t) &meltcdat->dstr_1477__DEBUG_LESS; meltcdat->dstr_1477__DEBUG_LESS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1477__DEBUG_LESS.val, "DEBUG_LESS", sizeof (meltcdat->dstr_1477__DEBUG_LESS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1477__DEBUG_LESS.val, "DEBUG_LESS", sizeof (meltcdat->dstr_1477__DEBUG_LESS.val)-1); meltcdat->dstr_1477__DEBUG_LESS.val[10] = (char)0 ; meltcdat->dstr_1477__DEBUG_LESS.slen = 10 ; /*iniobj dsym_1478__CLASS_SELECTOR_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1583*/ meltfptr[1582]) + /*uniqueobj*/ if (!/*_._VALDATA___V1583*/ meltfptr[1582]) /*_._VALDATA___V1583*/ meltfptr[1582] = (melt_ptr_t )&meltcdat->dsym_1478__CLASS_SELECTOR_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1478__CLASS_SELECTOR_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_1478__CLASS_SELECTOR_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25578,18 +22570,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1479__CLASS_SELECTOR_BINDING*/ - /*_._VALSTR___V1584*/ - meltfptr[1583] = (melt_ptr_t) &meltcdat->dstr_1479__CLASS_SELECTOR_BINDING; + /*_._VALSTR___V1584*/ meltfptr[1583] = (melt_ptr_t) &meltcdat->dstr_1479__CLASS_SELECTOR_BINDING; meltcdat->dstr_1479__CLASS_SELECTOR_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1479__CLASS_SELECTOR_BINDING.val, "CLASS_SELECTOR_BINDING", sizeof (meltcdat->dstr_1479__CLASS_SELECTOR_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1479__CLASS_SELECTOR_BINDING.val, "CLASS_SELECTOR_BINDING", sizeof (meltcdat->dstr_1479__CLASS_SELECTOR_BINDING.val)-1); meltcdat->dstr_1479__CLASS_SELECTOR_BINDING.val[22] = (char)0 ; meltcdat->dstr_1479__CLASS_SELECTOR_BINDING.slen = 22 ; /*iniobj dsym_1480__CLASS_PRIMITIVE_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1585*/ meltfptr[1584]) + /*uniqueobj*/ if (!/*_._VALDATA___V1585*/ meltfptr[1584]) /*_._VALDATA___V1585*/ meltfptr[1584] = (melt_ptr_t )&meltcdat->dsym_1480__CLASS_PRIMITIVE_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1480__CLASS_PRIMITIVE_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_1480__CLASS_PRIMITIVE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25599,18 +22588,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1481__CLASS_PRIMITIVE_BINDING*/ - /*_._VALSTR___V1586*/ - meltfptr[1585] = (melt_ptr_t) &meltcdat->dstr_1481__CLASS_PRIMITIVE_BINDING; + /*_._VALSTR___V1586*/ meltfptr[1585] = (melt_ptr_t) &meltcdat->dstr_1481__CLASS_PRIMITIVE_BINDING; meltcdat->dstr_1481__CLASS_PRIMITIVE_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1481__CLASS_PRIMITIVE_BINDING.val, "CLASS_PRIMITIVE_BINDING", sizeof (meltcdat->dstr_1481__CLASS_PRIMITIVE_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1481__CLASS_PRIMITIVE_BINDING.val, "CLASS_PRIMITIVE_BINDING", sizeof (meltcdat->dstr_1481__CLASS_PRIMITIVE_BINDING.val)-1); meltcdat->dstr_1481__CLASS_PRIMITIVE_BINDING.val[23] = (char)0 ; meltcdat->dstr_1481__CLASS_PRIMITIVE_BINDING.slen = 23 ; /*iniobj dsym_1482__CLASS_CITERATOR_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1587*/ meltfptr[1586]) + /*uniqueobj*/ if (!/*_._VALDATA___V1587*/ meltfptr[1586]) /*_._VALDATA___V1587*/ meltfptr[1586] = (melt_ptr_t )&meltcdat->dsym_1482__CLASS_CITERATOR_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1482__CLASS_CITERATOR_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_1482__CLASS_CITERATOR_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25620,18 +22606,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1483__CLASS_CITERATOR_BINDING*/ - /*_._VALSTR___V1588*/ - meltfptr[1587] = (melt_ptr_t) &meltcdat->dstr_1483__CLASS_CITERATOR_BINDING; + /*_._VALSTR___V1588*/ meltfptr[1587] = (melt_ptr_t) &meltcdat->dstr_1483__CLASS_CITERATOR_BINDING; meltcdat->dstr_1483__CLASS_CITERATOR_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1483__CLASS_CITERATOR_BINDING.val, "CLASS_CITERATOR_BINDING", sizeof (meltcdat->dstr_1483__CLASS_CITERATOR_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1483__CLASS_CITERATOR_BINDING.val, "CLASS_CITERATOR_BINDING", sizeof (meltcdat->dstr_1483__CLASS_CITERATOR_BINDING.val)-1); meltcdat->dstr_1483__CLASS_CITERATOR_BINDING.val[23] = (char)0 ; meltcdat->dstr_1483__CLASS_CITERATOR_BINDING.slen = 23 ; /*iniobj dsym_1484__CLASS_HOOK_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1589*/ meltfptr[1588]) + /*uniqueobj*/ if (!/*_._VALDATA___V1589*/ meltfptr[1588]) /*_._VALDATA___V1589*/ meltfptr[1588] = (melt_ptr_t )&meltcdat->dsym_1484__CLASS_HOOK_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1484__CLASS_HOOK_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_1484__CLASS_HOOK_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25641,18 +22624,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1485__CLASS_HOOK_BINDING*/ - /*_._VALSTR___V1590*/ - meltfptr[1589] = (melt_ptr_t) &meltcdat->dstr_1485__CLASS_HOOK_BINDING; + /*_._VALSTR___V1590*/ meltfptr[1589] = (melt_ptr_t) &meltcdat->dstr_1485__CLASS_HOOK_BINDING; meltcdat->dstr_1485__CLASS_HOOK_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1485__CLASS_HOOK_BINDING.val, "CLASS_HOOK_BINDING", sizeof (meltcdat->dstr_1485__CLASS_HOOK_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1485__CLASS_HOOK_BINDING.val, "CLASS_HOOK_BINDING", sizeof (meltcdat->dstr_1485__CLASS_HOOK_BINDING.val)-1); meltcdat->dstr_1485__CLASS_HOOK_BINDING.val[18] = (char)0 ; meltcdat->dstr_1485__CLASS_HOOK_BINDING.slen = 18 ; /*iniobj dsym_1486__CLASS_CMATCHER_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1591*/ meltfptr[1590]) + /*uniqueobj*/ if (!/*_._VALDATA___V1591*/ meltfptr[1590]) /*_._VALDATA___V1591*/ meltfptr[1590] = (melt_ptr_t )&meltcdat->dsym_1486__CLASS_CMATCHER_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1486__CLASS_CMATCHER_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_1486__CLASS_CMATCHER_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25662,18 +22642,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1487__CLASS_CMATCHER_BINDING*/ - /*_._VALSTR___V1592*/ - meltfptr[1591] = (melt_ptr_t) &meltcdat->dstr_1487__CLASS_CMATCHER_BINDING; + /*_._VALSTR___V1592*/ meltfptr[1591] = (melt_ptr_t) &meltcdat->dstr_1487__CLASS_CMATCHER_BINDING; meltcdat->dstr_1487__CLASS_CMATCHER_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1487__CLASS_CMATCHER_BINDING.val, "CLASS_CMATCHER_BINDING", sizeof (meltcdat->dstr_1487__CLASS_CMATCHER_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1487__CLASS_CMATCHER_BINDING.val, "CLASS_CMATCHER_BINDING", sizeof (meltcdat->dstr_1487__CLASS_CMATCHER_BINDING.val)-1); meltcdat->dstr_1487__CLASS_CMATCHER_BINDING.val[22] = (char)0 ; meltcdat->dstr_1487__CLASS_CMATCHER_BINDING.slen = 22 ; /*iniobj dsym_1488__CLASS_FUNMATCHER_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1593*/ meltfptr[1592]) + /*uniqueobj*/ if (!/*_._VALDATA___V1593*/ meltfptr[1592]) /*_._VALDATA___V1593*/ meltfptr[1592] = (melt_ptr_t )&meltcdat->dsym_1488__CLASS_FUNMATCHER_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1488__CLASS_FUNMATCHER_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_1488__CLASS_FUNMATCHER_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25683,18 +22660,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1489__CLASS_FUNMATCHER_BINDING*/ - /*_._VALSTR___V1594*/ - meltfptr[1593] = (melt_ptr_t) &meltcdat->dstr_1489__CLASS_FUNMATCHER_BINDING; + /*_._VALSTR___V1594*/ meltfptr[1593] = (melt_ptr_t) &meltcdat->dstr_1489__CLASS_FUNMATCHER_BINDING; meltcdat->dstr_1489__CLASS_FUNMATCHER_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1489__CLASS_FUNMATCHER_BINDING.val, "CLASS_FUNMATCHER_BINDING", sizeof (meltcdat->dstr_1489__CLASS_FUNMATCHER_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1489__CLASS_FUNMATCHER_BINDING.val, "CLASS_FUNMATCHER_BINDING", sizeof (meltcdat->dstr_1489__CLASS_FUNMATCHER_BINDING.val)-1); meltcdat->dstr_1489__CLASS_FUNMATCHER_BINDING.val[24] = (char)0 ; meltcdat->dstr_1489__CLASS_FUNMATCHER_BINDING.slen = 24 ; /*iniobj dsym_1490__CLASS_FIELD_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1595*/ meltfptr[1594]) + /*uniqueobj*/ if (!/*_._VALDATA___V1595*/ meltfptr[1594]) /*_._VALDATA___V1595*/ meltfptr[1594] = (melt_ptr_t )&meltcdat->dsym_1490__CLASS_FIELD_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1490__CLASS_FIELD_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_1490__CLASS_FIELD_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25704,18 +22678,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1491__CLASS_FIELD_BINDING*/ - /*_._VALSTR___V1596*/ - meltfptr[1595] = (melt_ptr_t) &meltcdat->dstr_1491__CLASS_FIELD_BINDING; + /*_._VALSTR___V1596*/ meltfptr[1595] = (melt_ptr_t) &meltcdat->dstr_1491__CLASS_FIELD_BINDING; meltcdat->dstr_1491__CLASS_FIELD_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1491__CLASS_FIELD_BINDING.val, "CLASS_FIELD_BINDING", sizeof (meltcdat->dstr_1491__CLASS_FIELD_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1491__CLASS_FIELD_BINDING.val, "CLASS_FIELD_BINDING", sizeof (meltcdat->dstr_1491__CLASS_FIELD_BINDING.val)-1); meltcdat->dstr_1491__CLASS_FIELD_BINDING.val[19] = (char)0 ; meltcdat->dstr_1491__CLASS_FIELD_BINDING.slen = 19 ; /*iniobj dsym_1492__CLASS_FORMAL_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1597*/ meltfptr[1596]) + /*uniqueobj*/ if (!/*_._VALDATA___V1597*/ meltfptr[1596]) /*_._VALDATA___V1597*/ meltfptr[1596] = (melt_ptr_t )&meltcdat->dsym_1492__CLASS_FORMAL_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1492__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_1492__CLASS_FORMAL_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25725,18 +22696,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1493__CLASS_FORMAL_BINDING*/ - /*_._VALSTR___V1598*/ - meltfptr[1597] = (melt_ptr_t) &meltcdat->dstr_1493__CLASS_FORMAL_BINDING; + /*_._VALSTR___V1598*/ meltfptr[1597] = (melt_ptr_t) &meltcdat->dstr_1493__CLASS_FORMAL_BINDING; meltcdat->dstr_1493__CLASS_FORMAL_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1493__CLASS_FORMAL_BINDING.val, "CLASS_FORMAL_BINDING", sizeof (meltcdat->dstr_1493__CLASS_FORMAL_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1493__CLASS_FORMAL_BINDING.val, "CLASS_FORMAL_BINDING", sizeof (meltcdat->dstr_1493__CLASS_FORMAL_BINDING.val)-1); meltcdat->dstr_1493__CLASS_FORMAL_BINDING.val[20] = (char)0 ; meltcdat->dstr_1493__CLASS_FORMAL_BINDING.slen = 20 ; /*iniobj dsym_1494__CLASS_LET_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1599*/ meltfptr[1598]) + /*uniqueobj*/ if (!/*_._VALDATA___V1599*/ meltfptr[1598]) /*_._VALDATA___V1599*/ meltfptr[1598] = (melt_ptr_t )&meltcdat->dsym_1494__CLASS_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1494__CLASS_LET_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_1494__CLASS_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25746,18 +22714,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1495__CLASS_LET_BINDING*/ - /*_._VALSTR___V1600*/ - meltfptr[1599] = (melt_ptr_t) &meltcdat->dstr_1495__CLASS_LET_BINDING; + /*_._VALSTR___V1600*/ meltfptr[1599] = (melt_ptr_t) &meltcdat->dstr_1495__CLASS_LET_BINDING; meltcdat->dstr_1495__CLASS_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1495__CLASS_LET_BINDING.val, "CLASS_LET_BINDING", sizeof (meltcdat->dstr_1495__CLASS_LET_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1495__CLASS_LET_BINDING.val, "CLASS_LET_BINDING", sizeof (meltcdat->dstr_1495__CLASS_LET_BINDING.val)-1); meltcdat->dstr_1495__CLASS_LET_BINDING.val[17] = (char)0 ; meltcdat->dstr_1495__CLASS_LET_BINDING.slen = 17 ; /*iniobj dsym_1496__CLASS_VALUE_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1601*/ meltfptr[1600]) + /*uniqueobj*/ if (!/*_._VALDATA___V1601*/ meltfptr[1600]) /*_._VALDATA___V1601*/ meltfptr[1600] = (melt_ptr_t )&meltcdat->dsym_1496__CLASS_VALUE_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1496__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_1496__CLASS_VALUE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25767,18 +22732,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1497__CLASS_VALUE_BINDING*/ - /*_._VALSTR___V1602*/ - meltfptr[1601] = (melt_ptr_t) &meltcdat->dstr_1497__CLASS_VALUE_BINDING; + /*_._VALSTR___V1602*/ meltfptr[1601] = (melt_ptr_t) &meltcdat->dstr_1497__CLASS_VALUE_BINDING; meltcdat->dstr_1497__CLASS_VALUE_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1497__CLASS_VALUE_BINDING.val, "CLASS_VALUE_BINDING", sizeof (meltcdat->dstr_1497__CLASS_VALUE_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1497__CLASS_VALUE_BINDING.val, "CLASS_VALUE_BINDING", sizeof (meltcdat->dstr_1497__CLASS_VALUE_BINDING.val)-1); meltcdat->dstr_1497__CLASS_VALUE_BINDING.val[19] = (char)0 ; meltcdat->dstr_1497__CLASS_VALUE_BINDING.slen = 19 ; /*iniobj dsym_1498__CLASS_PRIMITIVE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1603*/ meltfptr[1602]) + /*uniqueobj*/ if (!/*_._VALDATA___V1603*/ meltfptr[1602]) /*_._VALDATA___V1603*/ meltfptr[1602] = (melt_ptr_t )&meltcdat->dsym_1498__CLASS_PRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1498__CLASS_PRIMITIVE", 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_1498__CLASS_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25788,54 +22750,46 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1499__CLASS_PRIMITIVE*/ - /*_._VALSTR___V1604*/ - meltfptr[1603] = (melt_ptr_t) &meltcdat->dstr_1499__CLASS_PRIMITIVE; + /*_._VALSTR___V1604*/ meltfptr[1603] = (melt_ptr_t) &meltcdat->dstr_1499__CLASS_PRIMITIVE; meltcdat->dstr_1499__CLASS_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1499__CLASS_PRIMITIVE.val, "CLASS_PRIMITIVE", sizeof (meltcdat->dstr_1499__CLASS_PRIMITIVE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1499__CLASS_PRIMITIVE.val, "CLASS_PRIMITIVE", sizeof (meltcdat->dstr_1499__CLASS_PRIMITIVE.val)-1); meltcdat->dstr_1499__CLASS_PRIMITIVE.val[15] = (char)0 ; meltcdat->dstr_1499__CLASS_PRIMITIVE.slen = 15 ; /*inirout drout_1500__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1564*/ - meltfptr[1563] = (melt_ptr_t) &meltcdat->drout_1500__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1564*/ meltfptr[1563] = (melt_ptr_t) &meltcdat->drout_1500__LAMBDA_; meltcdat->drout_1500__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1500__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2046", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1500__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1500__LAMBDA_, meltrout_27_WARMELTmiMACRO_LAMBDA_cl2); /*inirout drout_1501__EXPAND_PRIMITIVE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1547*/ - meltfptr[1546] = (melt_ptr_t) &meltcdat->drout_1501__EXPAND_PRIMITIVE; + /*iniroutlocvar*/ /*_._VALROUT___V1547*/ meltfptr[1546] = (melt_ptr_t) &meltcdat->drout_1501__EXPAND_PRIMITIVE; meltcdat->drout_1501__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1501__EXPAND_PRIMITIVE.routdescr, "EXPAND_PRIMITIVE @warmelt-macro.melt:2089", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1501__EXPAND_PRIMITIVE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1501__EXPAND_PRIMITIVE, meltrout_28_WARMELTmiMACRO_EXPAND_PRIMITIVE); /*iniclos dclo_1502__EXPAND_PRIMITIVE*/ - /*_._VALCLO___V1546*/ - meltfptr[1545] = (melt_ptr_t) &meltcdat->dclo_1502__EXPAND_PRIMITIVE; + /*_._VALCLO___V1546*/ meltfptr[1545] = (melt_ptr_t) &meltcdat->dclo_1502__EXPAND_PRIMITIVE; meltcdat->dclo_1502__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1502__EXPAND_PRIMITIVE.nbval = 0; /*inirout drout_1503__EXPAND_HOOK*/ - /*iniroutlocvar*/ /*_._VALROUT___V1557*/ - meltfptr[1556] = (melt_ptr_t) &meltcdat->drout_1503__EXPAND_HOOK; + /*iniroutlocvar*/ /*_._VALROUT___V1557*/ meltfptr[1556] = (melt_ptr_t) &meltcdat->drout_1503__EXPAND_HOOK; meltcdat->drout_1503__EXPAND_HOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1503__EXPAND_HOOK.routdescr, "EXPAND_HOOK @warmelt-macro.melt:2106", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1503__EXPAND_HOOK.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1503__EXPAND_HOOK, meltrout_29_WARMELTmiMACRO_EXPAND_HOOK); /*iniclos dclo_1504__EXPAND_HOOK*/ - /*_._VALCLO___V1556*/ - meltfptr[1555] = (melt_ptr_t) &meltcdat->dclo_1504__EXPAND_HOOK; + /*_._VALCLO___V1556*/ meltfptr[1555] = (melt_ptr_t) &meltcdat->dclo_1504__EXPAND_HOOK; meltcdat->dclo_1504__EXPAND_HOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1504__EXPAND_HOOK.nbval = 0; /*iniobj dsym_1505__CLASS_PATTERN_EXPANSION_CONTEXT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1605*/ meltfptr[1604]) + /*uniqueobj*/ if (!/*_._VALDATA___V1605*/ meltfptr[1604]) /*_._VALDATA___V1605*/ meltfptr[1604] = (melt_ptr_t )&meltcdat->dsym_1505__CLASS_PATTERN_EXPANSION_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1505__CLASS_PATTERN_EXPANSION_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_1505__CLASS_PATTERN_EXPANSION_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25845,18 +22799,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1506__CLASS_PATTERN_EXPANSION_*/ - /*_._VALSTR___V1606*/ - meltfptr[1605] = (melt_ptr_t) &meltcdat->dstr_1506__CLASS_PATTERN_EXPANSION_; + /*_._VALSTR___V1606*/ meltfptr[1605] = (melt_ptr_t) &meltcdat->dstr_1506__CLASS_PATTERN_EXPANSION_; meltcdat->dstr_1506__CLASS_PATTERN_EXPANSION_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1506__CLASS_PATTERN_EXPANSION_.val, "CLASS_PATTERN_EXPANSION_CONTEXT", sizeof (meltcdat->dstr_1506__CLASS_PATTERN_EXPANSION_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1506__CLASS_PATTERN_EXPANSION_.val, "CLASS_PATTERN_EXPANSION_CONTEXT", sizeof (meltcdat->dstr_1506__CLASS_PATTERN_EXPANSION_.val)-1); meltcdat->dstr_1506__CLASS_PATTERN_EXPANSION_.val[31] = (char)0 ; meltcdat->dstr_1506__CLASS_PATTERN_EXPANSION_.slen = 31 ; /*iniobj dsym_1507__CLASS_ROOT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1607*/ meltfptr[1606]) + /*uniqueobj*/ if (!/*_._VALDATA___V1607*/ meltfptr[1606]) /*_._VALDATA___V1607*/ meltfptr[1606] = (melt_ptr_t )&meltcdat->dsym_1507__CLASS_ROOT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1507__CLASS_ROOT", 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_1507__CLASS_ROOT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25866,19 +22817,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1508__CLASS_ROOT*/ - /*_._VALSTR___V1608*/ - meltfptr[1607] = (melt_ptr_t) &meltcdat->dstr_1508__CLASS_ROOT; + /*_._VALSTR___V1608*/ meltfptr[1607] = (melt_ptr_t) &meltcdat->dstr_1508__CLASS_ROOT; meltcdat->dstr_1508__CLASS_ROOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1508__CLASS_ROOT.val, "CLASS_ROOT", sizeof (meltcdat->dstr_1508__CLASS_ROOT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1508__CLASS_ROOT.val, "CLASS_ROOT", sizeof (meltcdat->dstr_1508__CLASS_ROOT.val)-1); meltcdat->dstr_1508__CLASS_ROOT.val[10] = (char)0 ; meltcdat->dstr_1508__CLASS_ROOT.slen = 10 ; MELT_LOCATION("warmelt-macro.melt:2128:/ iniobj"); /*iniobj dobj_1509__CLASS_PATTERN_EXPANSION_CONTEXT*/ - /*_._VALDATA___V1609*/ - meltfptr[1608] = (melt_ptr_t )&meltcdat->dobj_1509__CLASS_PATTERN_EXPANSION_CONTEXT; + /*_._VALDATA___V1609*/ meltfptr[1608] = (melt_ptr_t )&meltcdat->dobj_1509__CLASS_PATTERN_EXPANSION_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1509__CLASS_PATTERN_EXPANSION_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_1509__CLASS_PATTERN_EXPANSION_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1509__CLASS_PATTERN_EXPANSION_CONTEXT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -25888,28 +22836,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1510__CLASS_PATTERN_EXPANSION_*/ - /*_._VALSTR___V1610*/ - meltfptr[1609] = (melt_ptr_t) &meltcdat->dstr_1510__CLASS_PATTERN_EXPANSION_; + /*_._VALSTR___V1610*/ meltfptr[1609] = (melt_ptr_t) &meltcdat->dstr_1510__CLASS_PATTERN_EXPANSION_; meltcdat->dstr_1510__CLASS_PATTERN_EXPANSION_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1510__CLASS_PATTERN_EXPANSION_.val, "CLASS_PATTERN_EXPANSION_CONTEXT", sizeof (meltcdat->dstr_1510__CLASS_PATTERN_EXPANSION_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1510__CLASS_PATTERN_EXPANSION_.val, "CLASS_PATTERN_EXPANSION_CONTEXT", sizeof (meltcdat->dstr_1510__CLASS_PATTERN_EXPANSION_.val)-1); meltcdat->dstr_1510__CLASS_PATTERN_EXPANSION_.val[31] = (char)0 ; meltcdat->dstr_1510__CLASS_PATTERN_EXPANSION_.slen = 31 ; /*inimult dtup_1511_syCLASS_PATTERN_EXPANSION_CONTEXT*/ - /*_._VALTUP___V1611*/ - meltfptr[1610] = (melt_ptr_t) &meltcdat->dtup_1511_syCLASS_PATTERN_EXPANSION_CONTEXT; + /*_._VALTUP___V1611*/ meltfptr[1610] = (melt_ptr_t) &meltcdat->dtup_1511_syCLASS_PATTERN_EXPANSION_CONTEXT; meltcdat->dtup_1511_syCLASS_PATTERN_EXPANSION_CONTEXT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1511_syCLASS_PATTERN_EXPANSION_CONTEXT.nbval = 1; /*inimult dtup_1512_syCLASS_PATTERN_EXPANSION_CONTEXT*/ - /*_._VALTUP___V1620*/ - meltfptr[1619] = (melt_ptr_t) &meltcdat->dtup_1512_syCLASS_PATTERN_EXPANSION_CONTEXT; + /*_._VALTUP___V1620*/ meltfptr[1619] = (melt_ptr_t) &meltcdat->dtup_1512_syCLASS_PATTERN_EXPANSION_CONTEXT; meltcdat->dtup_1512_syCLASS_PATTERN_EXPANSION_CONTEXT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1512_syCLASS_PATTERN_EXPANSION_CONTEXT.nbval = 4; /*iniobj dsym_1513__PCTX_MEXPANDER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1621*/ meltfptr[1620]) + /*uniqueobj*/ if (!/*_._VALDATA___V1621*/ meltfptr[1620]) /*_._VALDATA___V1621*/ meltfptr[1620] = (melt_ptr_t )&meltcdat->dsym_1513__PCTX_MEXPANDER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1513__PCTX_MEXPANDER", 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_1513__PCTX_MEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25919,19 +22862,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1514__PCTX_MEXPANDER*/ - /*_._VALSTR___V1622*/ - meltfptr[1621] = (melt_ptr_t) &meltcdat->dstr_1514__PCTX_MEXPANDER; + /*_._VALSTR___V1622*/ meltfptr[1621] = (melt_ptr_t) &meltcdat->dstr_1514__PCTX_MEXPANDER; meltcdat->dstr_1514__PCTX_MEXPANDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1514__PCTX_MEXPANDER.val, "PCTX_MEXPANDER", sizeof (meltcdat->dstr_1514__PCTX_MEXPANDER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1514__PCTX_MEXPANDER.val, "PCTX_MEXPANDER", sizeof (meltcdat->dstr_1514__PCTX_MEXPANDER.val)-1); meltcdat->dstr_1514__PCTX_MEXPANDER.val[14] = (char)0 ; meltcdat->dstr_1514__PCTX_MEXPANDER.slen = 14 ; /*^iniobj*/ /*iniobj dobj_1515__PCTX_MEXPANDER*/ - /*_._VALDATA___V1612*/ - meltfptr[1611] = (melt_ptr_t )&meltcdat->dobj_1515__PCTX_MEXPANDER; + /*_._VALDATA___V1612*/ meltfptr[1611] = (melt_ptr_t )&meltcdat->dobj_1515__PCTX_MEXPANDER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1515__PCTX_MEXPANDER", 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_1515__PCTX_MEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1515__PCTX_MEXPANDER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -25941,18 +22881,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1516__PCTX_MEXPANDER*/ - /*_._VALSTR___V1613*/ - meltfptr[1612] = (melt_ptr_t) &meltcdat->dstr_1516__PCTX_MEXPANDER; + /*_._VALSTR___V1613*/ meltfptr[1612] = (melt_ptr_t) &meltcdat->dstr_1516__PCTX_MEXPANDER; meltcdat->dstr_1516__PCTX_MEXPANDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1516__PCTX_MEXPANDER.val, "PCTX_MEXPANDER", sizeof (meltcdat->dstr_1516__PCTX_MEXPANDER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1516__PCTX_MEXPANDER.val, "PCTX_MEXPANDER", sizeof (meltcdat->dstr_1516__PCTX_MEXPANDER.val)-1); meltcdat->dstr_1516__PCTX_MEXPANDER.val[14] = (char)0 ; meltcdat->dstr_1516__PCTX_MEXPANDER.slen = 14 ; /*iniobj dsym_1517__PCTX_PEXPANDER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1623*/ meltfptr[1622]) + /*uniqueobj*/ if (!/*_._VALDATA___V1623*/ meltfptr[1622]) /*_._VALDATA___V1623*/ meltfptr[1622] = (melt_ptr_t )&meltcdat->dsym_1517__PCTX_PEXPANDER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1517__PCTX_PEXPANDER", 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_1517__PCTX_PEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -25962,19 +22899,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1518__PCTX_PEXPANDER*/ - /*_._VALSTR___V1624*/ - meltfptr[1623] = (melt_ptr_t) &meltcdat->dstr_1518__PCTX_PEXPANDER; + /*_._VALSTR___V1624*/ meltfptr[1623] = (melt_ptr_t) &meltcdat->dstr_1518__PCTX_PEXPANDER; meltcdat->dstr_1518__PCTX_PEXPANDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1518__PCTX_PEXPANDER.val, "PCTX_PEXPANDER", sizeof (meltcdat->dstr_1518__PCTX_PEXPANDER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1518__PCTX_PEXPANDER.val, "PCTX_PEXPANDER", sizeof (meltcdat->dstr_1518__PCTX_PEXPANDER.val)-1); meltcdat->dstr_1518__PCTX_PEXPANDER.val[14] = (char)0 ; meltcdat->dstr_1518__PCTX_PEXPANDER.slen = 14 ; /*^iniobj*/ /*iniobj dobj_1519__PCTX_PEXPANDER*/ - /*_._VALDATA___V1614*/ - meltfptr[1613] = (melt_ptr_t )&meltcdat->dobj_1519__PCTX_PEXPANDER; + /*_._VALDATA___V1614*/ meltfptr[1613] = (melt_ptr_t )&meltcdat->dobj_1519__PCTX_PEXPANDER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1519__PCTX_PEXPANDER", 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_1519__PCTX_PEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1519__PCTX_PEXPANDER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -25984,18 +22918,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1520__PCTX_PEXPANDER*/ - /*_._VALSTR___V1615*/ - meltfptr[1614] = (melt_ptr_t) &meltcdat->dstr_1520__PCTX_PEXPANDER; + /*_._VALSTR___V1615*/ meltfptr[1614] = (melt_ptr_t) &meltcdat->dstr_1520__PCTX_PEXPANDER; meltcdat->dstr_1520__PCTX_PEXPANDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1520__PCTX_PEXPANDER.val, "PCTX_PEXPANDER", sizeof (meltcdat->dstr_1520__PCTX_PEXPANDER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1520__PCTX_PEXPANDER.val, "PCTX_PEXPANDER", sizeof (meltcdat->dstr_1520__PCTX_PEXPANDER.val)-1); meltcdat->dstr_1520__PCTX_PEXPANDER.val[14] = (char)0 ; meltcdat->dstr_1520__PCTX_PEXPANDER.slen = 14 ; /*iniobj dsym_1521__PCTX_VARMAP*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1625*/ meltfptr[1624]) + /*uniqueobj*/ if (!/*_._VALDATA___V1625*/ meltfptr[1624]) /*_._VALDATA___V1625*/ meltfptr[1624] = (melt_ptr_t )&meltcdat->dsym_1521__PCTX_VARMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1521__PCTX_VARMAP", 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_1521__PCTX_VARMAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26005,19 +22936,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1522__PCTX_VARMAP*/ - /*_._VALSTR___V1626*/ - meltfptr[1625] = (melt_ptr_t) &meltcdat->dstr_1522__PCTX_VARMAP; + /*_._VALSTR___V1626*/ meltfptr[1625] = (melt_ptr_t) &meltcdat->dstr_1522__PCTX_VARMAP; meltcdat->dstr_1522__PCTX_VARMAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1522__PCTX_VARMAP.val, "PCTX_VARMAP", sizeof (meltcdat->dstr_1522__PCTX_VARMAP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1522__PCTX_VARMAP.val, "PCTX_VARMAP", sizeof (meltcdat->dstr_1522__PCTX_VARMAP.val)-1); meltcdat->dstr_1522__PCTX_VARMAP.val[11] = (char)0 ; meltcdat->dstr_1522__PCTX_VARMAP.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1523__PCTX_VARMAP*/ - /*_._VALDATA___V1616*/ - meltfptr[1615] = (melt_ptr_t )&meltcdat->dobj_1523__PCTX_VARMAP; + /*_._VALDATA___V1616*/ meltfptr[1615] = (melt_ptr_t )&meltcdat->dobj_1523__PCTX_VARMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1523__PCTX_VARMAP", 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_1523__PCTX_VARMAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1523__PCTX_VARMAP.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -26027,18 +22955,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1524__PCTX_VARMAP*/ - /*_._VALSTR___V1617*/ - meltfptr[1616] = (melt_ptr_t) &meltcdat->dstr_1524__PCTX_VARMAP; + /*_._VALSTR___V1617*/ meltfptr[1616] = (melt_ptr_t) &meltcdat->dstr_1524__PCTX_VARMAP; meltcdat->dstr_1524__PCTX_VARMAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1524__PCTX_VARMAP.val, "PCTX_VARMAP", sizeof (meltcdat->dstr_1524__PCTX_VARMAP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1524__PCTX_VARMAP.val, "PCTX_VARMAP", sizeof (meltcdat->dstr_1524__PCTX_VARMAP.val)-1); meltcdat->dstr_1524__PCTX_VARMAP.val[11] = (char)0 ; meltcdat->dstr_1524__PCTX_VARMAP.slen = 11 ; /*iniobj dsym_1525__PCTX_MODCTX*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1627*/ meltfptr[1626]) + /*uniqueobj*/ if (!/*_._VALDATA___V1627*/ meltfptr[1626]) /*_._VALDATA___V1627*/ meltfptr[1626] = (melt_ptr_t )&meltcdat->dsym_1525__PCTX_MODCTX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1525__PCTX_MODCTX", 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_1525__PCTX_MODCTX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26048,19 +22973,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1526__PCTX_MODCTX*/ - /*_._VALSTR___V1628*/ - meltfptr[1627] = (melt_ptr_t) &meltcdat->dstr_1526__PCTX_MODCTX; + /*_._VALSTR___V1628*/ meltfptr[1627] = (melt_ptr_t) &meltcdat->dstr_1526__PCTX_MODCTX; meltcdat->dstr_1526__PCTX_MODCTX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1526__PCTX_MODCTX.val, "PCTX_MODCTX", sizeof (meltcdat->dstr_1526__PCTX_MODCTX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1526__PCTX_MODCTX.val, "PCTX_MODCTX", sizeof (meltcdat->dstr_1526__PCTX_MODCTX.val)-1); meltcdat->dstr_1526__PCTX_MODCTX.val[11] = (char)0 ; meltcdat->dstr_1526__PCTX_MODCTX.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1527__PCTX_MODCTX*/ - /*_._VALDATA___V1618*/ - meltfptr[1617] = (melt_ptr_t )&meltcdat->dobj_1527__PCTX_MODCTX; + /*_._VALDATA___V1618*/ meltfptr[1617] = (melt_ptr_t )&meltcdat->dobj_1527__PCTX_MODCTX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1527__PCTX_MODCTX", 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_1527__PCTX_MODCTX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1527__PCTX_MODCTX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -26070,32 +22992,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1528__PCTX_MODCTX*/ - /*_._VALSTR___V1619*/ - meltfptr[1618] = (melt_ptr_t) &meltcdat->dstr_1528__PCTX_MODCTX; + /*_._VALSTR___V1619*/ meltfptr[1618] = (melt_ptr_t) &meltcdat->dstr_1528__PCTX_MODCTX; meltcdat->dstr_1528__PCTX_MODCTX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1528__PCTX_MODCTX.val, "PCTX_MODCTX", sizeof (meltcdat->dstr_1528__PCTX_MODCTX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1528__PCTX_MODCTX.val, "PCTX_MODCTX", sizeof (meltcdat->dstr_1528__PCTX_MODCTX.val)-1); meltcdat->dstr_1528__PCTX_MODCTX.val[11] = (char)0 ; meltcdat->dstr_1528__PCTX_MODCTX.slen = 11 ; /*inirout drout_1529__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1629*/ - meltfptr[1628] = (melt_ptr_t) &meltcdat->drout_1529__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + /*iniroutlocvar*/ /*_._VALROUT___V1629*/ meltfptr[1628] = (melt_ptr_t) &meltcdat->drout_1529__PATTERNEXPAND_PAIRLIST_AS_TUPLE; meltcdat->drout_1529__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1529__PATTERNEXPAND_PAIRLIST_AS_TUPLE.routdescr, "PATTERNEXPAND_PAIRLIST_AS_TUPLE @warmelt-macro.melt:2141", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1529__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1529__PATTERNEXPAND_PAIRLIST_AS_TUPLE, meltrout_30_WARMELTmiMACRO_PATTERNEXPAND_PAIRLIST_AS_TUPLE); /*iniclos dclo_1530__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ - /*_._VALCLO___V1650*/ - meltfptr[1649] = (melt_ptr_t) &meltcdat->dclo_1530__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + /*_._VALCLO___V1650*/ meltfptr[1649] = (melt_ptr_t) &meltcdat->dclo_1530__PATTERNEXPAND_PAIRLIST_AS_TUPLE; meltcdat->dclo_1530__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1530__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 0; /*iniobj dsym_1531__PAIRLIST_TO_MULTIPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1651*/ meltfptr[1650]) + /*uniqueobj*/ if (!/*_._VALDATA___V1651*/ meltfptr[1650]) /*_._VALDATA___V1651*/ meltfptr[1650] = (melt_ptr_t )&meltcdat->dsym_1531__PAIRLIST_TO_MULTIPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1531__PAIRLIST_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_1531__PAIRLIST_TO_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26105,40 +23022,34 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1532__PAIRLIST_TO_MULTIPLE*/ - /*_._VALSTR___V1652*/ - meltfptr[1651] = (melt_ptr_t) &meltcdat->dstr_1532__PAIRLIST_TO_MULTIPLE; + /*_._VALSTR___V1652*/ meltfptr[1651] = (melt_ptr_t) &meltcdat->dstr_1532__PAIRLIST_TO_MULTIPLE; meltcdat->dstr_1532__PAIRLIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1532__PAIRLIST_TO_MULTIPLE.val, "PAIRLIST_TO_MULTIPLE", sizeof (meltcdat->dstr_1532__PAIRLIST_TO_MULTIPLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1532__PAIRLIST_TO_MULTIPLE.val, "PAIRLIST_TO_MULTIPLE", sizeof (meltcdat->dstr_1532__PAIRLIST_TO_MULTIPLE.val)-1); meltcdat->dstr_1532__PAIRLIST_TO_MULTIPLE.val[20] = (char)0 ; meltcdat->dstr_1532__PAIRLIST_TO_MULTIPLE.slen = 20 ; /*inirout drout_1533__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1649*/ - meltfptr[1648] = (melt_ptr_t) &meltcdat->drout_1533__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1649*/ meltfptr[1648] = (melt_ptr_t) &meltcdat->drout_1533__LAMBDA_; meltcdat->drout_1533__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1533__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2145", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1533__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1533__LAMBDA_, meltrout_31_WARMELTmiMACRO_LAMBDA_cl3); /*inirout drout_1534__PATMACEXPAND_FOR_MATCHER*/ - /*iniroutlocvar*/ /*_._VALROUT___V1642*/ - meltfptr[1641] = (melt_ptr_t) &meltcdat->drout_1534__PATMACEXPAND_FOR_MATCHER; + /*iniroutlocvar*/ /*_._VALROUT___V1642*/ meltfptr[1641] = (melt_ptr_t) &meltcdat->drout_1534__PATMACEXPAND_FOR_MATCHER; meltcdat->drout_1534__PATMACEXPAND_FOR_MATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1534__PATMACEXPAND_FOR_MATCHER.routdescr, "PATMACEXPAND_FOR_MATCHER @warmelt-macro.melt:2155", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1534__PATMACEXPAND_FOR_MATCHER.nbval = 18; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1534__PATMACEXPAND_FOR_MATCHER, meltrout_32_WARMELTmiMACRO_PATMACEXPAND_FOR_MATCHER); /*iniclos dclo_1535__PATMACEXPAND_FOR_MATCHER*/ - /*_._VALCLO___V1641*/ - meltfptr[1640] = (melt_ptr_t) &meltcdat->dclo_1535__PATMACEXPAND_FOR_MATCHER; + /*_._VALCLO___V1641*/ meltfptr[1640] = (melt_ptr_t) &meltcdat->dclo_1535__PATMACEXPAND_FOR_MATCHER; meltcdat->dclo_1535__PATMACEXPAND_FOR_MATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1535__PATMACEXPAND_FOR_MATCHER.nbval = 0; /*iniobj dsym_1536__CLASS_REFERENCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1653*/ meltfptr[1652]) + /*uniqueobj*/ if (!/*_._VALDATA___V1653*/ meltfptr[1652]) /*_._VALDATA___V1653*/ meltfptr[1652] = (melt_ptr_t )&meltcdat->dsym_1536__CLASS_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1536__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_1536__CLASS_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26148,18 +23059,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1537__CLASS_REFERENCE*/ - /*_._VALSTR___V1654*/ - meltfptr[1653] = (melt_ptr_t) &meltcdat->dstr_1537__CLASS_REFERENCE; + /*_._VALSTR___V1654*/ meltfptr[1653] = (melt_ptr_t) &meltcdat->dstr_1537__CLASS_REFERENCE; meltcdat->dstr_1537__CLASS_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1537__CLASS_REFERENCE.val, "CLASS_REFERENCE", sizeof (meltcdat->dstr_1537__CLASS_REFERENCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1537__CLASS_REFERENCE.val, "CLASS_REFERENCE", sizeof (meltcdat->dstr_1537__CLASS_REFERENCE.val)-1); meltcdat->dstr_1537__CLASS_REFERENCE.val[15] = (char)0 ; meltcdat->dstr_1537__CLASS_REFERENCE.slen = 15 ; /*iniobj dsym_1538__MULTIPLE_MAP*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1655*/ meltfptr[1654]) + /*uniqueobj*/ if (!/*_._VALDATA___V1655*/ meltfptr[1654]) /*_._VALDATA___V1655*/ meltfptr[1654] = (melt_ptr_t )&meltcdat->dsym_1538__MULTIPLE_MAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1538__MULTIPLE_MAP", 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_1538__MULTIPLE_MAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26169,48 +23077,41 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1539__MULTIPLE_MAP*/ - /*_._VALSTR___V1656*/ - meltfptr[1655] = (melt_ptr_t) &meltcdat->dstr_1539__MULTIPLE_MAP; + /*_._VALSTR___V1656*/ meltfptr[1655] = (melt_ptr_t) &meltcdat->dstr_1539__MULTIPLE_MAP; meltcdat->dstr_1539__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1539__MULTIPLE_MAP.val, "MULTIPLE_MAP", sizeof (meltcdat->dstr_1539__MULTIPLE_MAP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1539__MULTIPLE_MAP.val, "MULTIPLE_MAP", sizeof (meltcdat->dstr_1539__MULTIPLE_MAP.val)-1); meltcdat->dstr_1539__MULTIPLE_MAP.val[12] = (char)0 ; meltcdat->dstr_1539__MULTIPLE_MAP.slen = 12 ; /*inirout drout_1540__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1643*/ - meltfptr[1642] = (melt_ptr_t) &meltcdat->drout_1540__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1643*/ meltfptr[1642] = (melt_ptr_t) &meltcdat->drout_1540__LAMBDA_; meltcdat->drout_1540__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1540__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2169", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1540__LAMBDA_.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1540__LAMBDA_, meltrout_33_WARMELTmiMACRO_LAMBDA_cl4); /*inirout drout_1541__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1644*/ - meltfptr[1643] = (melt_ptr_t) &meltcdat->drout_1541__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1644*/ meltfptr[1643] = (melt_ptr_t) &meltcdat->drout_1541__LAMBDA_; meltcdat->drout_1541__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1541__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2181", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1541__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1541__LAMBDA_, meltrout_34_WARMELTmiMACRO_LAMBDA_cl5); /*inirout drout_1542__PATTERN_WEIGHT_TUPLE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1646*/ - meltfptr[1645] = (melt_ptr_t) &meltcdat->drout_1542__PATTERN_WEIGHT_TUPLE; + /*iniroutlocvar*/ /*_._VALROUT___V1646*/ meltfptr[1645] = (melt_ptr_t) &meltcdat->drout_1542__PATTERN_WEIGHT_TUPLE; meltcdat->drout_1542__PATTERN_WEIGHT_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1542__PATTERN_WEIGHT_TUPLE.routdescr, "PATTERN_WEIGHT_TUPLE @warmelt-macro.melt:2199", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1542__PATTERN_WEIGHT_TUPLE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1542__PATTERN_WEIGHT_TUPLE, meltrout_35_WARMELTmiMACRO_PATTERN_WEIGHT_TUPLE); /*iniclos dclo_1543__PATTERN_WEIGHT_TUPLE*/ - /*_._VALCLO___V1645*/ - meltfptr[1644] = (melt_ptr_t) &meltcdat->dclo_1543__PATTERN_WEIGHT_TUPLE; + /*_._VALCLO___V1645*/ meltfptr[1644] = (melt_ptr_t) &meltcdat->dclo_1543__PATTERN_WEIGHT_TUPLE; meltcdat->dclo_1543__PATTERN_WEIGHT_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1543__PATTERN_WEIGHT_TUPLE.nbval = 0; /*iniobj dsym_1544__DISCR_INTEGER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1657*/ meltfptr[1656]) + /*uniqueobj*/ if (!/*_._VALDATA___V1657*/ meltfptr[1656]) /*_._VALDATA___V1657*/ meltfptr[1656] = (melt_ptr_t )&meltcdat->dsym_1544__DISCR_INTEGER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1544__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_1544__DISCR_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26220,40 +23121,34 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1545__DISCR_INTEGER*/ - /*_._VALSTR___V1658*/ - meltfptr[1657] = (melt_ptr_t) &meltcdat->dstr_1545__DISCR_INTEGER; + /*_._VALSTR___V1658*/ meltfptr[1657] = (melt_ptr_t) &meltcdat->dstr_1545__DISCR_INTEGER; meltcdat->dstr_1545__DISCR_INTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1545__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (meltcdat->dstr_1545__DISCR_INTEGER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1545__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (meltcdat->dstr_1545__DISCR_INTEGER.val)-1); meltcdat->dstr_1545__DISCR_INTEGER.val[13] = (char)0 ; meltcdat->dstr_1545__DISCR_INTEGER.slen = 13 ; /*inirout drout_1546__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1647*/ - meltfptr[1646] = (melt_ptr_t) &meltcdat->drout_1546__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1647*/ meltfptr[1646] = (melt_ptr_t) &meltcdat->drout_1546__LAMBDA_; meltcdat->drout_1546__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1546__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2212", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1546__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1546__LAMBDA_, meltrout_36_WARMELTmiMACRO_LAMBDA_cl6); /*inirout drout_1547__PATTERNEXPAND_EXPR*/ - /*iniroutlocvar*/ /*_._VALROUT___V1640*/ - meltfptr[1639] = (melt_ptr_t) &meltcdat->drout_1547__PATTERNEXPAND_EXPR; + /*iniroutlocvar*/ /*_._VALROUT___V1640*/ meltfptr[1639] = (melt_ptr_t) &meltcdat->drout_1547__PATTERNEXPAND_EXPR; meltcdat->drout_1547__PATTERNEXPAND_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1547__PATTERNEXPAND_EXPR.routdescr, "PATTERNEXPAND_EXPR @warmelt-macro.melt:2233", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1547__PATTERNEXPAND_EXPR.nbval = 22; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1547__PATTERNEXPAND_EXPR, meltrout_37_WARMELTmiMACRO_PATTERNEXPAND_EXPR); /*iniclos dclo_1548__PATTERNEXPAND_EXPR*/ - /*_._VALCLO___V1639*/ - meltfptr[1638] = (melt_ptr_t) &meltcdat->dclo_1548__PATTERNEXPAND_EXPR; + /*_._VALCLO___V1639*/ meltfptr[1638] = (melt_ptr_t) &meltcdat->dclo_1548__PATTERNEXPAND_EXPR; meltcdat->dclo_1548__PATTERNEXPAND_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1548__PATTERNEXPAND_EXPR.nbval = 0; /*iniobj dsym_1549__CLASS_PATMACRO_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1659*/ meltfptr[1658]) + /*uniqueobj*/ if (!/*_._VALDATA___V1659*/ meltfptr[1658]) /*_._VALDATA___V1659*/ meltfptr[1658] = (melt_ptr_t )&meltcdat->dsym_1549__CLASS_PATMACRO_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1549__CLASS_PATMACRO_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_1549__CLASS_PATMACRO_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26263,32 +23158,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1550__CLASS_PATMACRO_BINDING*/ - /*_._VALSTR___V1660*/ - meltfptr[1659] = (melt_ptr_t) &meltcdat->dstr_1550__CLASS_PATMACRO_BINDING; + /*_._VALSTR___V1660*/ meltfptr[1659] = (melt_ptr_t) &meltcdat->dstr_1550__CLASS_PATMACRO_BINDING; meltcdat->dstr_1550__CLASS_PATMACRO_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1550__CLASS_PATMACRO_BINDING.val, "CLASS_PATMACRO_BINDING", sizeof (meltcdat->dstr_1550__CLASS_PATMACRO_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1550__CLASS_PATMACRO_BINDING.val, "CLASS_PATMACRO_BINDING", sizeof (meltcdat->dstr_1550__CLASS_PATMACRO_BINDING.val)-1); meltcdat->dstr_1550__CLASS_PATMACRO_BINDING.val[22] = (char)0 ; meltcdat->dstr_1550__CLASS_PATMACRO_BINDING.slen = 22 ; /*inirout drout_1551__PATTERNEXPAND_1*/ - /*iniroutlocvar*/ /*_._VALROUT___V1631*/ - meltfptr[1630] = (melt_ptr_t) &meltcdat->drout_1551__PATTERNEXPAND_1; + /*iniroutlocvar*/ /*_._VALROUT___V1631*/ meltfptr[1630] = (melt_ptr_t) &meltcdat->drout_1551__PATTERNEXPAND_1; meltcdat->drout_1551__PATTERNEXPAND_1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1551__PATTERNEXPAND_1.routdescr, "PATTERNEXPAND_1 @warmelt-macro.melt:2385", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1551__PATTERNEXPAND_1.nbval = 18; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1551__PATTERNEXPAND_1, meltrout_38_WARMELTmiMACRO_PATTERNEXPAND_1); /*iniclos dclo_1552__PATTERNEXPAND_1*/ - /*_._VALCLO___V1630*/ - meltfptr[1629] = (melt_ptr_t) &meltcdat->dclo_1552__PATTERNEXPAND_1; + /*_._VALCLO___V1630*/ meltfptr[1629] = (melt_ptr_t) &meltcdat->dclo_1552__PATTERNEXPAND_1; meltcdat->dclo_1552__PATTERNEXPAND_1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1552__PATTERNEXPAND_1.nbval = 0; /*iniobj dsym_1553__QUESTION*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1632*/ meltfptr[1631]) + /*uniqueobj*/ if (!/*_._VALDATA___V1632*/ meltfptr[1631]) /*_._VALDATA___V1632*/ meltfptr[1631] = (melt_ptr_t )&meltcdat->dsym_1553__QUESTION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1553__QUESTION", 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_1553__QUESTION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26298,24 +23188,20 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1554__QUESTION*/ - /*_._VALSTR___V1633*/ - meltfptr[1632] = (melt_ptr_t) &meltcdat->dstr_1554__QUESTION; + /*_._VALSTR___V1633*/ meltfptr[1632] = (melt_ptr_t) &meltcdat->dstr_1554__QUESTION; meltcdat->dstr_1554__QUESTION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1554__QUESTION.val, "QUESTION", sizeof (meltcdat->dstr_1554__QUESTION.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1554__QUESTION.val, "QUESTION", sizeof (meltcdat->dstr_1554__QUESTION.val)-1); meltcdat->dstr_1554__QUESTION.val[8] = (char)0 ; meltcdat->dstr_1554__QUESTION.slen = 8 ; /*iniboxint dint_1555__*/ - /*_._VALBXINT___V1634*/ - meltfptr[1633] = (melt_ptr_t) &meltcdat->dint_1555__; + /*_._VALBXINT___V1634*/ meltfptr[1633] = (melt_ptr_t) &meltcdat->dint_1555__; meltcdat->dint_1555__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1555__.val = 1; /*iniobj dsym_1556___*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1635*/ meltfptr[1634]) + /*uniqueobj*/ if (!/*_._VALDATA___V1635*/ meltfptr[1634]) /*_._VALDATA___V1635*/ meltfptr[1634] = (melt_ptr_t )&meltcdat->dsym_1556___; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1556___", 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_1556___", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26325,64 +23211,54 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1557__*/ - /*_._VALSTR___V1636*/ - meltfptr[1635] = (melt_ptr_t) &meltcdat->dstr_1557__; + /*_._VALSTR___V1636*/ meltfptr[1635] = (melt_ptr_t) &meltcdat->dstr_1557__; meltcdat->dstr_1557__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1557__.val, "_", sizeof (meltcdat->dstr_1557__.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1557__.val, "_", sizeof (meltcdat->dstr_1557__.val)-1); meltcdat->dstr_1557__.val[1] = (char)0 ; meltcdat->dstr_1557__.slen = 1 ; /*iniboxint dint_1558__*/ - /*_._VALBXINT___V1637*/ - meltfptr[1636] = (melt_ptr_t) &meltcdat->dint_1558__; + /*_._VALBXINT___V1637*/ meltfptr[1636] = (melt_ptr_t) &meltcdat->dint_1558__; meltcdat->dint_1558__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1558__.val = 1; /*iniboxint dint_1559__*/ - /*_._VALBXINT___V1638*/ - meltfptr[1637] = (melt_ptr_t) &meltcdat->dint_1559__; + /*_._VALBXINT___V1638*/ meltfptr[1637] = (melt_ptr_t) &meltcdat->dint_1559__; meltcdat->dint_1559__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1559__.val = 1; /*iniboxint dint_1560__*/ - /*_._VALBXINT___V1648*/ - meltfptr[1647] = (melt_ptr_t) &meltcdat->dint_1560__; + /*_._VALBXINT___V1648*/ meltfptr[1647] = (melt_ptr_t) &meltcdat->dint_1560__; meltcdat->dint_1560__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1560__.val = 1; /*inirout drout_1561__MACROEXPAND_TOPLEVEL_LIST*/ - /*iniroutlocvar*/ /*_._VALROUT___V1661*/ - meltfptr[1660] = (melt_ptr_t) &meltcdat->drout_1561__MACROEXPAND_TOPLEVEL_LIST; + /*iniroutlocvar*/ /*_._VALROUT___V1661*/ meltfptr[1660] = (melt_ptr_t) &meltcdat->drout_1561__MACROEXPAND_TOPLEVEL_LIST; meltcdat->drout_1561__MACROEXPAND_TOPLEVEL_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1561__MACROEXPAND_TOPLEVEL_LIST.routdescr, "MACROEXPAND_TOPLEVEL_LIST @warmelt-macro.melt:2477", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1561__MACROEXPAND_TOPLEVEL_LIST.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1561__MACROEXPAND_TOPLEVEL_LIST, meltrout_39_WARMELTmiMACRO_MACROEXPAND_TOPLEVEL_LIST); /*iniclos dclo_1562__MACROEXPAND_TOPLEVEL_LIST*/ - /*_._VALCLO___V1662*/ - meltfptr[1661] = (melt_ptr_t) &meltcdat->dclo_1562__MACROEXPAND_TOPLEVEL_LIST; + /*_._VALCLO___V1662*/ meltfptr[1661] = (melt_ptr_t) &meltcdat->dclo_1562__MACROEXPAND_TOPLEVEL_LIST; meltcdat->dclo_1562__MACROEXPAND_TOPLEVEL_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1562__MACROEXPAND_TOPLEVEL_LIST.nbval = 0; /*inirout drout_1563__LAMBDA_ARG_BINDINGS*/ - /*iniroutlocvar*/ /*_._VALROUT___V1551*/ - meltfptr[1550] = (melt_ptr_t) &meltcdat->drout_1563__LAMBDA_ARG_BINDINGS; + /*iniroutlocvar*/ /*_._VALROUT___V1551*/ meltfptr[1550] = (melt_ptr_t) &meltcdat->drout_1563__LAMBDA_ARG_BINDINGS; meltcdat->drout_1563__LAMBDA_ARG_BINDINGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1563__LAMBDA_ARG_BINDINGS.routdescr, "LAMBDA_ARG_BINDINGS @warmelt-macro.melt:2545", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1563__LAMBDA_ARG_BINDINGS.nbval = 19; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1563__LAMBDA_ARG_BINDINGS, meltrout_40_WARMELTmiMACRO_LAMBDA_ARG_BINDINGS); /*iniclos dclo_1564__LAMBDA_ARG_BINDINGS*/ - /*_._VALCLO___V1550*/ - meltfptr[1549] = (melt_ptr_t) &meltcdat->dclo_1564__LAMBDA_ARG_BINDINGS; + /*_._VALCLO___V1550*/ meltfptr[1549] = (melt_ptr_t) &meltcdat->dclo_1564__LAMBDA_ARG_BINDINGS; meltcdat->dclo_1564__LAMBDA_ARG_BINDINGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1564__LAMBDA_ARG_BINDINGS.nbval = 0; /*iniobj dsym_1565__CTYPE_VALUE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1663*/ meltfptr[1662]) + /*uniqueobj*/ if (!/*_._VALDATA___V1663*/ meltfptr[1662]) /*_._VALDATA___V1663*/ meltfptr[1662] = (melt_ptr_t )&meltcdat->dsym_1565__CTYPE_VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1565__CTYPE_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_1565__CTYPE_VALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26392,18 +23268,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1566__CTYPE_VALUE*/ - /*_._VALSTR___V1664*/ - meltfptr[1663] = (melt_ptr_t) &meltcdat->dstr_1566__CTYPE_VALUE; + /*_._VALSTR___V1664*/ meltfptr[1663] = (melt_ptr_t) &meltcdat->dstr_1566__CTYPE_VALUE; meltcdat->dstr_1566__CTYPE_VALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1566__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof (meltcdat->dstr_1566__CTYPE_VALUE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1566__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof (meltcdat->dstr_1566__CTYPE_VALUE.val)-1); meltcdat->dstr_1566__CTYPE_VALUE.val[11] = (char)0 ; meltcdat->dstr_1566__CTYPE_VALUE.slen = 11 ; /*iniobj dsym_1567__DISCR_FORMAL_SEQUENCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1665*/ meltfptr[1664]) + /*uniqueobj*/ if (!/*_._VALDATA___V1665*/ meltfptr[1664]) /*_._VALDATA___V1665*/ meltfptr[1664] = (melt_ptr_t )&meltcdat->dsym_1567__DISCR_FORMAL_SEQUENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1567__DISCR_FORMAL_SEQUENCE", 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_1567__DISCR_FORMAL_SEQUENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26413,18 +23286,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1568__DISCR_FORMAL_SEQUENCE*/ - /*_._VALSTR___V1666*/ - meltfptr[1665] = (melt_ptr_t) &meltcdat->dstr_1568__DISCR_FORMAL_SEQUENCE; + /*_._VALSTR___V1666*/ meltfptr[1665] = (melt_ptr_t) &meltcdat->dstr_1568__DISCR_FORMAL_SEQUENCE; meltcdat->dstr_1568__DISCR_FORMAL_SEQUENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1568__DISCR_FORMAL_SEQUENCE.val, "DISCR_FORMAL_SEQUENCE", sizeof (meltcdat->dstr_1568__DISCR_FORMAL_SEQUENCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1568__DISCR_FORMAL_SEQUENCE.val, "DISCR_FORMAL_SEQUENCE", sizeof (meltcdat->dstr_1568__DISCR_FORMAL_SEQUENCE.val)-1); meltcdat->dstr_1568__DISCR_FORMAL_SEQUENCE.val[21] = (char)0 ; meltcdat->dstr_1568__DISCR_FORMAL_SEQUENCE.slen = 21 ; /*iniobj dsym_1569__REST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1552*/ meltfptr[1551]) + /*uniqueobj*/ if (!/*_._VALDATA___V1552*/ meltfptr[1551]) /*_._VALDATA___V1552*/ meltfptr[1551] = (melt_ptr_t )&meltcdat->dsym_1569__REST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1569__REST", 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_1569__REST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26434,18 +23304,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1570__REST*/ - /*_._VALSTR___V1553*/ - meltfptr[1552] = (melt_ptr_t) &meltcdat->dstr_1570__REST; + /*_._VALSTR___V1553*/ meltfptr[1552] = (melt_ptr_t) &meltcdat->dstr_1570__REST; meltcdat->dstr_1570__REST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1570__REST.val, "REST", sizeof (meltcdat->dstr_1570__REST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1570__REST.val, "REST", sizeof (meltcdat->dstr_1570__REST.val)-1); meltcdat->dstr_1570__REST.val[4] = (char)0 ; meltcdat->dstr_1570__REST.slen = 4 ; /*iniobj dsym_1571__DISCR_VARIADIC_FORMAL_SEQUENCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1667*/ meltfptr[1666]) + /*uniqueobj*/ if (!/*_._VALDATA___V1667*/ meltfptr[1666]) /*_._VALDATA___V1667*/ meltfptr[1666] = (melt_ptr_t )&meltcdat->dsym_1571__DISCR_VARIADIC_FORMAL_SEQUENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1571__DISCR_VARIADIC_FORMAL_SEQUENCE", 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_1571__DISCR_VARIADIC_FORMAL_SEQUENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26455,18 +23322,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1572__DISCR_VARIADIC_FORMAL_SE*/ - /*_._VALSTR___V1668*/ - meltfptr[1667] = (melt_ptr_t) &meltcdat->dstr_1572__DISCR_VARIADIC_FORMAL_SE; + /*_._VALSTR___V1668*/ meltfptr[1667] = (melt_ptr_t) &meltcdat->dstr_1572__DISCR_VARIADIC_FORMAL_SE; meltcdat->dstr_1572__DISCR_VARIADIC_FORMAL_SE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1572__DISCR_VARIADIC_FORMAL_SE.val, "DISCR_VARIADIC_FORMAL_SEQUENCE", sizeof (meltcdat->dstr_1572__DISCR_VARIADIC_FORMAL_SE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1572__DISCR_VARIADIC_FORMAL_SE.val, "DISCR_VARIADIC_FORMAL_SEQUENCE", sizeof (meltcdat->dstr_1572__DISCR_VARIADIC_FORMAL_SE.val)-1); meltcdat->dstr_1572__DISCR_VARIADIC_FORMAL_SE.val[30] = (char)0 ; meltcdat->dstr_1572__DISCR_VARIADIC_FORMAL_SE.slen = 30 ; /*iniobj dsym_1573__AUTO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1554*/ meltfptr[1553]) + /*uniqueobj*/ if (!/*_._VALDATA___V1554*/ meltfptr[1553]) /*_._VALDATA___V1554*/ meltfptr[1553] = (melt_ptr_t )&meltcdat->dsym_1573__AUTO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1573__AUTO", 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_1573__AUTO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26476,18 +23340,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1574__AUTO*/ - /*_._VALSTR___V1555*/ - meltfptr[1554] = (melt_ptr_t) &meltcdat->dstr_1574__AUTO; + /*_._VALSTR___V1555*/ meltfptr[1554] = (melt_ptr_t) &meltcdat->dstr_1574__AUTO; meltcdat->dstr_1574__AUTO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1574__AUTO.val, "AUTO", sizeof (meltcdat->dstr_1574__AUTO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1574__AUTO.val, "AUTO", sizeof (meltcdat->dstr_1574__AUTO.val)-1); meltcdat->dstr_1574__AUTO.val[4] = (char)0 ; meltcdat->dstr_1574__AUTO.slen = 4 ; /*iniobj dsym_1575__CLASS_CTYPE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1669*/ meltfptr[1668]) + /*uniqueobj*/ if (!/*_._VALDATA___V1669*/ meltfptr[1668]) /*_._VALDATA___V1669*/ meltfptr[1668] = (melt_ptr_t )&meltcdat->dsym_1575__CLASS_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1575__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_1575__CLASS_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26497,18 +23358,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1576__CLASS_CTYPE*/ - /*_._VALSTR___V1670*/ - meltfptr[1669] = (melt_ptr_t) &meltcdat->dstr_1576__CLASS_CTYPE; + /*_._VALSTR___V1670*/ meltfptr[1669] = (melt_ptr_t) &meltcdat->dstr_1576__CLASS_CTYPE; meltcdat->dstr_1576__CLASS_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1576__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof (meltcdat->dstr_1576__CLASS_CTYPE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1576__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof (meltcdat->dstr_1576__CLASS_CTYPE.val)-1); meltcdat->dstr_1576__CLASS_CTYPE.val[11] = (char)0 ; meltcdat->dstr_1576__CLASS_CTYPE.slen = 11 ; /*iniobj dsym_1577__CLASS_QUASI_CTYPE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1671*/ meltfptr[1670]) + /*uniqueobj*/ if (!/*_._VALDATA___V1671*/ meltfptr[1670]) /*_._VALDATA___V1671*/ meltfptr[1670] = (melt_ptr_t )&meltcdat->dsym_1577__CLASS_QUASI_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1577__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_1577__CLASS_QUASI_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26518,18 +23376,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1578__CLASS_QUASI_CTYPE*/ - /*_._VALSTR___V1672*/ - meltfptr[1671] = (melt_ptr_t) &meltcdat->dstr_1578__CLASS_QUASI_CTYPE; + /*_._VALSTR___V1672*/ meltfptr[1671] = (melt_ptr_t) &meltcdat->dstr_1578__CLASS_QUASI_CTYPE; meltcdat->dstr_1578__CLASS_QUASI_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1578__CLASS_QUASI_CTYPE.val, "CLASS_QUASI_CTYPE", sizeof (meltcdat->dstr_1578__CLASS_QUASI_CTYPE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1578__CLASS_QUASI_CTYPE.val, "CLASS_QUASI_CTYPE", sizeof (meltcdat->dstr_1578__CLASS_QUASI_CTYPE.val)-1); meltcdat->dstr_1578__CLASS_QUASI_CTYPE.val[17] = (char)0 ; meltcdat->dstr_1578__CLASS_QUASI_CTYPE.slen = 17 ; /*iniobj dsym_1579__CLASS_ANY_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1673*/ meltfptr[1672]) + /*uniqueobj*/ if (!/*_._VALDATA___V1673*/ meltfptr[1672]) /*_._VALDATA___V1673*/ meltfptr[1672] = (melt_ptr_t )&meltcdat->dsym_1579__CLASS_ANY_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1579__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_1579__CLASS_ANY_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26539,32 +23394,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1580__CLASS_ANY_BINDING*/ - /*_._VALSTR___V1674*/ - meltfptr[1673] = (melt_ptr_t) &meltcdat->dstr_1580__CLASS_ANY_BINDING; + /*_._VALSTR___V1674*/ meltfptr[1673] = (melt_ptr_t) &meltcdat->dstr_1580__CLASS_ANY_BINDING; meltcdat->dstr_1580__CLASS_ANY_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1580__CLASS_ANY_BINDING.val, "CLASS_ANY_BINDING", sizeof (meltcdat->dstr_1580__CLASS_ANY_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1580__CLASS_ANY_BINDING.val, "CLASS_ANY_BINDING", sizeof (meltcdat->dstr_1580__CLASS_ANY_BINDING.val)-1); meltcdat->dstr_1580__CLASS_ANY_BINDING.val[17] = (char)0 ; meltcdat->dstr_1580__CLASS_ANY_BINDING.slen = 17 ; /*inirout drout_1581__INSTALL_INITIAL_MACRO*/ - /*iniroutlocvar*/ /*_._VALROUT___V1675*/ - meltfptr[1674] = (melt_ptr_t) &meltcdat->drout_1581__INSTALL_INITIAL_MACRO; + /*iniroutlocvar*/ /*_._VALROUT___V1675*/ meltfptr[1674] = (melt_ptr_t) &meltcdat->drout_1581__INSTALL_INITIAL_MACRO; meltcdat->drout_1581__INSTALL_INITIAL_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1581__INSTALL_INITIAL_MACRO.routdescr, "INSTALL_INITIAL_MACRO @warmelt-macro.melt:2653", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1581__INSTALL_INITIAL_MACRO.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1581__INSTALL_INITIAL_MACRO, meltrout_41_WARMELTmiMACRO_INSTALL_INITIAL_MACRO); /*iniclos dclo_1582__INSTALL_INITIAL_MACRO*/ - /*_._VALCLO___V1676*/ - meltfptr[1675] = (melt_ptr_t) &meltcdat->dclo_1582__INSTALL_INITIAL_MACRO; + /*_._VALCLO___V1676*/ meltfptr[1675] = (melt_ptr_t) &meltcdat->dclo_1582__INSTALL_INITIAL_MACRO; meltcdat->dclo_1582__INSTALL_INITIAL_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1582__INSTALL_INITIAL_MACRO.nbval = 0; /*iniobj dsym_1583__INITIAL_ENVIRONMENT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1677*/ meltfptr[1676]) + /*uniqueobj*/ if (!/*_._VALDATA___V1677*/ meltfptr[1676]) /*_._VALDATA___V1677*/ meltfptr[1676] = (melt_ptr_t )&meltcdat->dsym_1583__INITIAL_ENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1583__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_1583__INITIAL_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26574,32 +23424,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1584__INITIAL_ENVIRONMENT*/ - /*_._VALSTR___V1678*/ - meltfptr[1677] = (melt_ptr_t) &meltcdat->dstr_1584__INITIAL_ENVIRONMENT; + /*_._VALSTR___V1678*/ meltfptr[1677] = (melt_ptr_t) &meltcdat->dstr_1584__INITIAL_ENVIRONMENT; meltcdat->dstr_1584__INITIAL_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1584__INITIAL_ENVIRONMENT.val, "INITIAL_ENVIRONMENT", sizeof (meltcdat->dstr_1584__INITIAL_ENVIRONMENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1584__INITIAL_ENVIRONMENT.val, "INITIAL_ENVIRONMENT", sizeof (meltcdat->dstr_1584__INITIAL_ENVIRONMENT.val)-1); meltcdat->dstr_1584__INITIAL_ENVIRONMENT.val[19] = (char)0 ; meltcdat->dstr_1584__INITIAL_ENVIRONMENT.slen = 19 ; /*inirout drout_1585__INSTALL_INITIAL_PATMACRO*/ - /*iniroutlocvar*/ /*_._VALROUT___V1679*/ - meltfptr[1678] = (melt_ptr_t) &meltcdat->drout_1585__INSTALL_INITIAL_PATMACRO; + /*iniroutlocvar*/ /*_._VALROUT___V1679*/ meltfptr[1678] = (melt_ptr_t) &meltcdat->drout_1585__INSTALL_INITIAL_PATMACRO; meltcdat->drout_1585__INSTALL_INITIAL_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1585__INSTALL_INITIAL_PATMACRO.routdescr, "INSTALL_INITIAL_PATMACRO @warmelt-macro.melt:2666", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1585__INSTALL_INITIAL_PATMACRO.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1585__INSTALL_INITIAL_PATMACRO, meltrout_42_WARMELTmiMACRO_INSTALL_INITIAL_PATMACRO); /*iniclos dclo_1586__INSTALL_INITIAL_PATMACRO*/ - /*_._VALCLO___V1680*/ - meltfptr[1679] = (melt_ptr_t) &meltcdat->dclo_1586__INSTALL_INITIAL_PATMACRO; + /*_._VALCLO___V1680*/ meltfptr[1679] = (melt_ptr_t) &meltcdat->dclo_1586__INSTALL_INITIAL_PATMACRO; meltcdat->dclo_1586__INSTALL_INITIAL_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1586__INSTALL_INITIAL_PATMACRO.nbval = 0; /*iniobj dsym_1587__WARN_SHADOW*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1681*/ meltfptr[1680]) + /*uniqueobj*/ if (!/*_._VALDATA___V1681*/ meltfptr[1680]) /*_._VALDATA___V1681*/ meltfptr[1680] = (melt_ptr_t )&meltcdat->dsym_1587__WARN_SHADOW; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1587__WARN_SHADOW", 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_1587__WARN_SHADOW", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26609,19 +23454,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1588__WARN_SHADOW*/ - /*_._VALSTR___V1682*/ - meltfptr[1681] = (melt_ptr_t) &meltcdat->dstr_1588__WARN_SHADOW; + /*_._VALSTR___V1682*/ meltfptr[1681] = (melt_ptr_t) &meltcdat->dstr_1588__WARN_SHADOW; meltcdat->dstr_1588__WARN_SHADOW.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1588__WARN_SHADOW.val, "WARN_SHADOW", sizeof (meltcdat->dstr_1588__WARN_SHADOW.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1588__WARN_SHADOW.val, "WARN_SHADOW", sizeof (meltcdat->dstr_1588__WARN_SHADOW.val)-1); meltcdat->dstr_1588__WARN_SHADOW.val[11] = (char)0 ; meltcdat->dstr_1588__WARN_SHADOW.slen = 11 ; MELT_LOCATION("warmelt-macro.melt:2683:/ iniobj"); /*iniobj dobj_1589__WARN_SHADOW*/ - /*_._VALDATA___V1683*/ - meltfptr[1682] = (melt_ptr_t )&meltcdat->dobj_1589__WARN_SHADOW; + /*_._VALDATA___V1683*/ meltfptr[1682] = (melt_ptr_t )&meltcdat->dobj_1589__WARN_SHADOW; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1589__WARN_SHADOW", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1589__WARN_SHADOW", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1589__WARN_SHADOW.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE)))); @@ -26629,67 +23471,56 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t meltcdat->dobj_1589__WARN_SHADOW.obj_len = 5; /*inimult dtup_1590_syWARN_SHADOW*/ - /*_._VALTUP___V1687*/ - meltfptr[1686] = (melt_ptr_t) &meltcdat->dtup_1590_syWARN_SHADOW; + /*_._VALTUP___V1687*/ meltfptr[1686] = (melt_ptr_t) &meltcdat->dtup_1590_syWARN_SHADOW; meltcdat->dtup_1590_syWARN_SHADOW.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltcdat->dtup_1590_syWARN_SHADOW.nbval = 1; /*inimult dtup_1591_syWARN_SHADOW*/ - /*_._VALTUP___V1685*/ - meltfptr[1684] = (melt_ptr_t) &meltcdat->dtup_1591_syWARN_SHADOW; + /*_._VALTUP___V1685*/ meltfptr[1684] = (melt_ptr_t) &meltcdat->dtup_1591_syWARN_SHADOW; meltcdat->dtup_1591_syWARN_SHADOW.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltcdat->dtup_1591_syWARN_SHADOW.nbval = 0; /*inistring dstr_1592__warn_shadow*/ - /*_._VALSTR___V1686*/ - meltfptr[1685] = (melt_ptr_t) &meltcdat->dstr_1592__warn_shadow; + /*_._VALSTR___V1686*/ meltfptr[1685] = (melt_ptr_t) &meltcdat->dstr_1592__warn_shadow; meltcdat->dstr_1592__warn_shadow.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1592__warn_shadow.val, "warn_shadow", sizeof (meltcdat->dstr_1592__warn_shadow.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1592__warn_shadow.val, "warn_shadow", sizeof (meltcdat->dstr_1592__warn_shadow.val)-1); meltcdat->dstr_1592__warn_shadow.val[11] = (char)0 ; meltcdat->dstr_1592__warn_shadow.slen = 11 ; /*inistring dstr_1593__WARN_SHADOW*/ - /*_._VALSTR___V1684*/ - meltfptr[1683] = (melt_ptr_t) &meltcdat->dstr_1593__WARN_SHADOW; + /*_._VALSTR___V1684*/ meltfptr[1683] = (melt_ptr_t) &meltcdat->dstr_1593__WARN_SHADOW; meltcdat->dstr_1593__WARN_SHADOW.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1593__WARN_SHADOW.val, "WARN_SHADOW", sizeof (meltcdat->dstr_1593__WARN_SHADOW.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1593__WARN_SHADOW.val, "WARN_SHADOW", sizeof (meltcdat->dstr_1593__WARN_SHADOW.val)-1); meltcdat->dstr_1593__WARN_SHADOW.val[11] = (char)0 ; meltcdat->dstr_1593__WARN_SHADOW.slen = 11 ; /*inirout drout_1594__WARN_IF_REDEFINED*/ - /*iniroutlocvar*/ /*_._VALROUT___V1688*/ - meltfptr[1687] = (melt_ptr_t) &meltcdat->drout_1594__WARN_IF_REDEFINED; + /*iniroutlocvar*/ /*_._VALROUT___V1688*/ meltfptr[1687] = (melt_ptr_t) &meltcdat->drout_1594__WARN_IF_REDEFINED; meltcdat->drout_1594__WARN_IF_REDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1594__WARN_IF_REDEFINED.routdescr, "WARN_IF_REDEFINED @warmelt-macro.melt:2687", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1594__WARN_IF_REDEFINED.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1594__WARN_IF_REDEFINED, meltrout_43_WARMELTmiMACRO_WARN_IF_REDEFINED); /*iniclos dclo_1595__WARN_IF_REDEFINED*/ - /*_._VALCLO___V1689*/ - meltfptr[1688] = (melt_ptr_t) &meltcdat->dclo_1595__WARN_IF_REDEFINED; + /*_._VALCLO___V1689*/ meltfptr[1688] = (melt_ptr_t) &meltcdat->dclo_1595__WARN_IF_REDEFINED; meltcdat->dclo_1595__WARN_IF_REDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1595__WARN_IF_REDEFINED.nbval = 0; /*inirout drout_1596__FLATTEN_FOR_C_CODE_EXPANSION*/ - /*iniroutlocvar*/ /*_._VALROUT___V1690*/ - meltfptr[1689] = (melt_ptr_t) &meltcdat->drout_1596__FLATTEN_FOR_C_CODE_EXPANSION; + /*iniroutlocvar*/ /*_._VALROUT___V1690*/ meltfptr[1689] = (melt_ptr_t) &meltcdat->drout_1596__FLATTEN_FOR_C_CODE_EXPANSION; meltcdat->drout_1596__FLATTEN_FOR_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1596__FLATTEN_FOR_C_CODE_EXPANSION.routdescr, "FLATTEN_FOR_C_CODE_EXPANSION @warmelt-macro.melt:2700", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1596__FLATTEN_FOR_C_CODE_EXPANSION.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1596__FLATTEN_FOR_C_CODE_EXPANSION, meltrout_44_WARMELTmiMACRO_FLATTEN_FOR_C_CODE_EXPANSION); /*iniclos dclo_1597__FLATTEN_FOR_C_CODE_EXPANSION*/ - /*_._VALCLO___V1691*/ - meltfptr[1690] = (melt_ptr_t) &meltcdat->dclo_1597__FLATTEN_FOR_C_CODE_EXPANSION; + /*_._VALCLO___V1691*/ meltfptr[1690] = (melt_ptr_t) &meltcdat->dclo_1597__FLATTEN_FOR_C_CODE_EXPANSION; meltcdat->dclo_1597__FLATTEN_FOR_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1597__FLATTEN_FOR_C_CODE_EXPANSION.nbval = 0; /*iniobj dsym_1598__DISCR_VERBATIM_STRING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1692*/ meltfptr[1691]) + /*uniqueobj*/ if (!/*_._VALDATA___V1692*/ meltfptr[1691]) /*_._VALDATA___V1692*/ meltfptr[1691] = (melt_ptr_t )&meltcdat->dsym_1598__DISCR_VERBATIM_STRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1598__DISCR_VERBATIM_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_1598__DISCR_VERBATIM_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26699,88 +23530,75 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1599__DISCR_VERBATIM_STRING*/ - /*_._VALSTR___V1693*/ - meltfptr[1692] = (melt_ptr_t) &meltcdat->dstr_1599__DISCR_VERBATIM_STRING; + /*_._VALSTR___V1693*/ meltfptr[1692] = (melt_ptr_t) &meltcdat->dstr_1599__DISCR_VERBATIM_STRING; meltcdat->dstr_1599__DISCR_VERBATIM_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1599__DISCR_VERBATIM_STRING.val, "DISCR_VERBATIM_STRING", sizeof (meltcdat->dstr_1599__DISCR_VERBATIM_STRING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1599__DISCR_VERBATIM_STRING.val, "DISCR_VERBATIM_STRING", sizeof (meltcdat->dstr_1599__DISCR_VERBATIM_STRING.val)-1); meltcdat->dstr_1599__DISCR_VERBATIM_STRING.val[21] = (char)0 ; meltcdat->dstr_1599__DISCR_VERBATIM_STRING.slen = 21 ; /*inirout drout_1600__PARSE_PAIRLIST_C_CODE_EXPANSION*/ - /*iniroutlocvar*/ /*_._VALROUT___V1694*/ - meltfptr[1693] = (melt_ptr_t) &meltcdat->drout_1600__PARSE_PAIRLIST_C_CODE_EXPANSION; + /*iniroutlocvar*/ /*_._VALROUT___V1694*/ meltfptr[1693] = (melt_ptr_t) &meltcdat->drout_1600__PARSE_PAIRLIST_C_CODE_EXPANSION; meltcdat->drout_1600__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1600__PARSE_PAIRLIST_C_CODE_EXPANSION.routdescr, "PARSE_PAIRLIST_C_CODE_EXPANSION @warmelt-macro.melt:2746", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1600__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1600__PARSE_PAIRLIST_C_CODE_EXPANSION, meltrout_45_WARMELTmiMACRO_PARSE_PAIRLIST_C_CODE_EXPANSION); /*iniclos dclo_1601__PARSE_PAIRLIST_C_CODE_EXPANSION*/ - /*_._VALCLO___V1695*/ - meltfptr[1694] = (melt_ptr_t) &meltcdat->dclo_1601__PARSE_PAIRLIST_C_CODE_EXPANSION; + /*_._VALCLO___V1695*/ meltfptr[1694] = (melt_ptr_t) &meltcdat->dclo_1601__PARSE_PAIRLIST_C_CODE_EXPANSION; meltcdat->dclo_1601__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1601__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 0; /*inirout drout_1602__CHECK_C_EXPANSION*/ - /*iniroutlocvar*/ /*_._VALROUT___V1696*/ - meltfptr[1695] = (melt_ptr_t) &meltcdat->drout_1602__CHECK_C_EXPANSION; + /*iniroutlocvar*/ /*_._VALROUT___V1696*/ meltfptr[1695] = (melt_ptr_t) &meltcdat->drout_1602__CHECK_C_EXPANSION; meltcdat->drout_1602__CHECK_C_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1602__CHECK_C_EXPANSION.routdescr, "CHECK_C_EXPANSION @warmelt-macro.melt:2767", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1602__CHECK_C_EXPANSION.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1602__CHECK_C_EXPANSION, meltrout_46_WARMELTmiMACRO_CHECK_C_EXPANSION); /*iniclos dclo_1603__CHECK_C_EXPANSION*/ - /*_._VALCLO___V1697*/ - meltfptr[1696] = (melt_ptr_t) &meltcdat->dclo_1603__CHECK_C_EXPANSION; + /*_._VALCLO___V1697*/ meltfptr[1696] = (melt_ptr_t) &meltcdat->dclo_1603__CHECK_C_EXPANSION; meltcdat->dclo_1603__CHECK_C_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1603__CHECK_C_EXPANSION.nbval = 0; /*inirout drout_1604__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ - /*iniroutlocvar*/ /*_._VALROUT___V1698*/ - meltfptr[1697] = (melt_ptr_t) &meltcdat->drout_1604__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; + /*iniroutlocvar*/ /*_._VALROUT___V1698*/ meltfptr[1697] = (melt_ptr_t) &meltcdat->drout_1604__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; meltcdat->drout_1604__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1604__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.routdescr, "MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS @warmelt-macro.melt:2803", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1604__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1604__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS, meltrout_47_WARMELTmiMACRO_MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS); /*iniclos dclo_1605__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ - /*_._VALCLO___V1699*/ - meltfptr[1698] = (melt_ptr_t) &meltcdat->dclo_1605__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; + /*_._VALCLO___V1699*/ meltfptr[1698] = (melt_ptr_t) &meltcdat->dclo_1605__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; meltcdat->dclo_1605__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1605__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.nbval = 0; /*inirout drout_1606__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ - /*iniroutlocvar*/ /*_._VALROUT___V1700*/ - meltfptr[1699] = (melt_ptr_t) &meltcdat->drout_1606__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS; + /*iniroutlocvar*/ /*_._VALROUT___V1700*/ meltfptr[1699] = (melt_ptr_t) &meltcdat->drout_1606__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS; meltcdat->drout_1606__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1606__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS.routdescr, "MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS @warmelt-macro.melt:2816", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1606__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1606__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS, meltrout_48_WARMELTmiMACRO_MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS); /*iniclos dclo_1607__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ - /*_._VALCLO___V1701*/ - meltfptr[1700] = (melt_ptr_t) &meltcdat->dclo_1607__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS; + /*_._VALCLO___V1701*/ meltfptr[1700] = (melt_ptr_t) &meltcdat->dclo_1607__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS; meltcdat->dclo_1607__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1607__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS.nbval = 0; /*inirout drout_1608__MEXPAND_DEFPRIMITIVE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1702*/ - meltfptr[1701] = (melt_ptr_t) &meltcdat->drout_1608__MEXPAND_DEFPRIMITIVE; + /*iniroutlocvar*/ /*_._VALROUT___V1702*/ meltfptr[1701] = (melt_ptr_t) &meltcdat->drout_1608__MEXPAND_DEFPRIMITIVE; meltcdat->drout_1608__MEXPAND_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1608__MEXPAND_DEFPRIMITIVE.routdescr, "MEXPAND_DEFPRIMITIVE @warmelt-macro.melt:2835", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1608__MEXPAND_DEFPRIMITIVE.nbval = 25; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1608__MEXPAND_DEFPRIMITIVE, meltrout_49_WARMELTmiMACRO_MEXPAND_DEFPRIMITIVE); /*iniclos dclo_1609__MEXPAND_DEFPRIMITIVE*/ - /*_._VALCLO___V1705*/ - meltfptr[1704] = (melt_ptr_t) &meltcdat->dclo_1609__MEXPAND_DEFPRIMITIVE; + /*_._VALCLO___V1705*/ meltfptr[1704] = (melt_ptr_t) &meltcdat->dclo_1609__MEXPAND_DEFPRIMITIVE; meltcdat->dclo_1609__MEXPAND_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1609__MEXPAND_DEFPRIMITIVE.nbval = 0; /*iniobj dsym_1610__DOC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1703*/ meltfptr[1702]) + /*uniqueobj*/ if (!/*_._VALDATA___V1703*/ meltfptr[1702]) /*_._VALDATA___V1703*/ meltfptr[1702] = (melt_ptr_t )&meltcdat->dsym_1610__DOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1610__DOC", 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_1610__DOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26790,18 +23608,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1611__DOC*/ - /*_._VALSTR___V1704*/ - meltfptr[1703] = (melt_ptr_t) &meltcdat->dstr_1611__DOC; + /*_._VALSTR___V1704*/ meltfptr[1703] = (melt_ptr_t) &meltcdat->dstr_1611__DOC; meltcdat->dstr_1611__DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1611__DOC.val, "DOC", sizeof (meltcdat->dstr_1611__DOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1611__DOC.val, "DOC", sizeof (meltcdat->dstr_1611__DOC.val)-1); meltcdat->dstr_1611__DOC.val[3] = (char)0 ; meltcdat->dstr_1611__DOC.slen = 3 ; /*iniobj dsym_1612__DEFPRIMITIVE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1706*/ meltfptr[1705]) + /*uniqueobj*/ if (!/*_._VALDATA___V1706*/ meltfptr[1705]) /*_._VALDATA___V1706*/ meltfptr[1705] = (melt_ptr_t )&meltcdat->dsym_1612__DEFPRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1612__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_1612__DEFPRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26811,32 +23626,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1613__DEFPRIMITIVE*/ - /*_._VALSTR___V1707*/ - meltfptr[1706] = (melt_ptr_t) &meltcdat->dstr_1613__DEFPRIMITIVE; + /*_._VALSTR___V1707*/ meltfptr[1706] = (melt_ptr_t) &meltcdat->dstr_1613__DEFPRIMITIVE; meltcdat->dstr_1613__DEFPRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1613__DEFPRIMITIVE.val, "DEFPRIMITIVE", sizeof (meltcdat->dstr_1613__DEFPRIMITIVE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1613__DEFPRIMITIVE.val, "DEFPRIMITIVE", sizeof (meltcdat->dstr_1613__DEFPRIMITIVE.val)-1); meltcdat->dstr_1613__DEFPRIMITIVE.val[12] = (char)0 ; meltcdat->dstr_1613__DEFPRIMITIVE.slen = 12 ; /*inirout drout_1614__MEXPAND_DEFCITERATOR*/ - /*iniroutlocvar*/ /*_._VALROUT___V1708*/ - meltfptr[1707] = (melt_ptr_t) &meltcdat->drout_1614__MEXPAND_DEFCITERATOR; + /*iniroutlocvar*/ /*_._VALROUT___V1708*/ meltfptr[1707] = (melt_ptr_t) &meltcdat->drout_1614__MEXPAND_DEFCITERATOR; meltcdat->drout_1614__MEXPAND_DEFCITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1614__MEXPAND_DEFCITERATOR.routdescr, "MEXPAND_DEFCITERATOR @warmelt-macro.melt:2957", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1614__MEXPAND_DEFCITERATOR.nbval = 21; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1614__MEXPAND_DEFCITERATOR, meltrout_50_WARMELTmiMACRO_MEXPAND_DEFCITERATOR); /*iniclos dclo_1615__MEXPAND_DEFCITERATOR*/ - /*_._VALCLO___V1709*/ - meltfptr[1708] = (melt_ptr_t) &meltcdat->dclo_1615__MEXPAND_DEFCITERATOR; + /*_._VALCLO___V1709*/ meltfptr[1708] = (melt_ptr_t) &meltcdat->dclo_1615__MEXPAND_DEFCITERATOR; meltcdat->dclo_1615__MEXPAND_DEFCITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1615__MEXPAND_DEFCITERATOR.nbval = 0; /*iniobj dsym_1616__DEFCITERATOR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1710*/ meltfptr[1709]) + /*uniqueobj*/ if (!/*_._VALDATA___V1710*/ meltfptr[1709]) /*_._VALDATA___V1710*/ meltfptr[1709] = (melt_ptr_t )&meltcdat->dsym_1616__DEFCITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1616__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_1616__DEFCITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26846,32 +23656,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1617__DEFCITERATOR*/ - /*_._VALSTR___V1711*/ - meltfptr[1710] = (melt_ptr_t) &meltcdat->dstr_1617__DEFCITERATOR; + /*_._VALSTR___V1711*/ meltfptr[1710] = (melt_ptr_t) &meltcdat->dstr_1617__DEFCITERATOR; meltcdat->dstr_1617__DEFCITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1617__DEFCITERATOR.val, "DEFCITERATOR", sizeof (meltcdat->dstr_1617__DEFCITERATOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1617__DEFCITERATOR.val, "DEFCITERATOR", sizeof (meltcdat->dstr_1617__DEFCITERATOR.val)-1); meltcdat->dstr_1617__DEFCITERATOR.val[12] = (char)0 ; meltcdat->dstr_1617__DEFCITERATOR.slen = 12 ; /*inirout drout_1618__MEXPAND_DEFCMATCHER*/ - /*iniroutlocvar*/ /*_._VALROUT___V1712*/ - meltfptr[1711] = (melt_ptr_t) &meltcdat->drout_1618__MEXPAND_DEFCMATCHER; + /*iniroutlocvar*/ /*_._VALROUT___V1712*/ meltfptr[1711] = (melt_ptr_t) &meltcdat->drout_1618__MEXPAND_DEFCMATCHER; meltcdat->drout_1618__MEXPAND_DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1618__MEXPAND_DEFCMATCHER.routdescr, "MEXPAND_DEFCMATCHER @warmelt-macro.melt:3108", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1618__MEXPAND_DEFCMATCHER.nbval = 22; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1618__MEXPAND_DEFCMATCHER, meltrout_51_WARMELTmiMACRO_MEXPAND_DEFCMATCHER); /*iniclos dclo_1619__MEXPAND_DEFCMATCHER*/ - /*_._VALCLO___V1713*/ - meltfptr[1712] = (melt_ptr_t) &meltcdat->dclo_1619__MEXPAND_DEFCMATCHER; + /*_._VALCLO___V1713*/ meltfptr[1712] = (melt_ptr_t) &meltcdat->dclo_1619__MEXPAND_DEFCMATCHER; meltcdat->dclo_1619__MEXPAND_DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1619__MEXPAND_DEFCMATCHER.nbval = 0; /*iniobj dsym_1620__DEFCMATCHER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1714*/ meltfptr[1713]) + /*uniqueobj*/ if (!/*_._VALDATA___V1714*/ meltfptr[1713]) /*_._VALDATA___V1714*/ meltfptr[1713] = (melt_ptr_t )&meltcdat->dsym_1620__DEFCMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1620__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_1620__DEFCMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26881,32 +23686,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1621__DEFCMATCHER*/ - /*_._VALSTR___V1715*/ - meltfptr[1714] = (melt_ptr_t) &meltcdat->dstr_1621__DEFCMATCHER; + /*_._VALSTR___V1715*/ meltfptr[1714] = (melt_ptr_t) &meltcdat->dstr_1621__DEFCMATCHER; meltcdat->dstr_1621__DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1621__DEFCMATCHER.val, "DEFCMATCHER", sizeof (meltcdat->dstr_1621__DEFCMATCHER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1621__DEFCMATCHER.val, "DEFCMATCHER", sizeof (meltcdat->dstr_1621__DEFCMATCHER.val)-1); meltcdat->dstr_1621__DEFCMATCHER.val[11] = (char)0 ; meltcdat->dstr_1621__DEFCMATCHER.slen = 11 ; /*inirout drout_1622__MEXPAND_DEFUNMATCHER*/ - /*iniroutlocvar*/ /*_._VALROUT___V1716*/ - meltfptr[1715] = (melt_ptr_t) &meltcdat->drout_1622__MEXPAND_DEFUNMATCHER; + /*iniroutlocvar*/ /*_._VALROUT___V1716*/ meltfptr[1715] = (melt_ptr_t) &meltcdat->drout_1622__MEXPAND_DEFUNMATCHER; meltcdat->drout_1622__MEXPAND_DEFUNMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1622__MEXPAND_DEFUNMATCHER.routdescr, "MEXPAND_DEFUNMATCHER @warmelt-macro.melt:3298", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1622__MEXPAND_DEFUNMATCHER.nbval = 15; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1622__MEXPAND_DEFUNMATCHER, meltrout_52_WARMELTmiMACRO_MEXPAND_DEFUNMATCHER); /*iniclos dclo_1623__MEXPAND_DEFUNMATCHER*/ - /*_._VALCLO___V1717*/ - meltfptr[1716] = (melt_ptr_t) &meltcdat->dclo_1623__MEXPAND_DEFUNMATCHER; + /*_._VALCLO___V1717*/ meltfptr[1716] = (melt_ptr_t) &meltcdat->dclo_1623__MEXPAND_DEFUNMATCHER; meltcdat->dclo_1623__MEXPAND_DEFUNMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1623__MEXPAND_DEFUNMATCHER.nbval = 0; /*iniobj dsym_1624__DEFUNMATCHER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1718*/ meltfptr[1717]) + /*uniqueobj*/ if (!/*_._VALDATA___V1718*/ meltfptr[1717]) /*_._VALDATA___V1718*/ meltfptr[1717] = (melt_ptr_t )&meltcdat->dsym_1624__DEFUNMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1624__DEFUNMATCHER", 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_1624__DEFUNMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26916,32 +23716,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1625__DEFUNMATCHER*/ - /*_._VALSTR___V1719*/ - meltfptr[1718] = (melt_ptr_t) &meltcdat->dstr_1625__DEFUNMATCHER; + /*_._VALSTR___V1719*/ meltfptr[1718] = (melt_ptr_t) &meltcdat->dstr_1625__DEFUNMATCHER; meltcdat->dstr_1625__DEFUNMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1625__DEFUNMATCHER.val, "DEFUNMATCHER", sizeof (meltcdat->dstr_1625__DEFUNMATCHER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1625__DEFUNMATCHER.val, "DEFUNMATCHER", sizeof (meltcdat->dstr_1625__DEFUNMATCHER.val)-1); meltcdat->dstr_1625__DEFUNMATCHER.val[12] = (char)0 ; meltcdat->dstr_1625__DEFUNMATCHER.slen = 12 ; /*inirout drout_1626__MEXPAND_DEFUN*/ - /*iniroutlocvar*/ /*_._VALROUT___V1720*/ - meltfptr[1719] = (melt_ptr_t) &meltcdat->drout_1626__MEXPAND_DEFUN; + /*iniroutlocvar*/ /*_._VALROUT___V1720*/ meltfptr[1719] = (melt_ptr_t) &meltcdat->drout_1626__MEXPAND_DEFUN; meltcdat->drout_1626__MEXPAND_DEFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1626__MEXPAND_DEFUN.routdescr, "MEXPAND_DEFUN @warmelt-macro.melt:3441", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1626__MEXPAND_DEFUN.nbval = 16; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1626__MEXPAND_DEFUN, meltrout_53_WARMELTmiMACRO_MEXPAND_DEFUN); /*iniclos dclo_1627__MEXPAND_DEFUN*/ - /*_._VALCLO___V1721*/ - meltfptr[1720] = (melt_ptr_t) &meltcdat->dclo_1627__MEXPAND_DEFUN; + /*_._VALCLO___V1721*/ meltfptr[1720] = (melt_ptr_t) &meltcdat->dclo_1627__MEXPAND_DEFUN; meltcdat->dclo_1627__MEXPAND_DEFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1627__MEXPAND_DEFUN.nbval = 0; /*iniobj dsym_1628__CLASS_FUNCTION_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1722*/ meltfptr[1721]) + /*uniqueobj*/ if (!/*_._VALDATA___V1722*/ meltfptr[1721]) /*_._VALDATA___V1722*/ meltfptr[1721] = (melt_ptr_t )&meltcdat->dsym_1628__CLASS_FUNCTION_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1628__CLASS_FUNCTION_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_1628__CLASS_FUNCTION_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26951,18 +23746,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1629__CLASS_FUNCTION_BINDING*/ - /*_._VALSTR___V1723*/ - meltfptr[1722] = (melt_ptr_t) &meltcdat->dstr_1629__CLASS_FUNCTION_BINDING; + /*_._VALSTR___V1723*/ meltfptr[1722] = (melt_ptr_t) &meltcdat->dstr_1629__CLASS_FUNCTION_BINDING; meltcdat->dstr_1629__CLASS_FUNCTION_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1629__CLASS_FUNCTION_BINDING.val, "CLASS_FUNCTION_BINDING", sizeof (meltcdat->dstr_1629__CLASS_FUNCTION_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1629__CLASS_FUNCTION_BINDING.val, "CLASS_FUNCTION_BINDING", sizeof (meltcdat->dstr_1629__CLASS_FUNCTION_BINDING.val)-1); meltcdat->dstr_1629__CLASS_FUNCTION_BINDING.val[22] = (char)0 ; meltcdat->dstr_1629__CLASS_FUNCTION_BINDING.slen = 22 ; /*iniobj dsym_1630__DEFUN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1724*/ meltfptr[1723]) + /*uniqueobj*/ if (!/*_._VALDATA___V1724*/ meltfptr[1723]) /*_._VALDATA___V1724*/ meltfptr[1723] = (melt_ptr_t )&meltcdat->dsym_1630__DEFUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1630__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_1630__DEFUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -26972,32 +23764,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1631__DEFUN*/ - /*_._VALSTR___V1725*/ - meltfptr[1724] = (melt_ptr_t) &meltcdat->dstr_1631__DEFUN; + /*_._VALSTR___V1725*/ meltfptr[1724] = (melt_ptr_t) &meltcdat->dstr_1631__DEFUN; meltcdat->dstr_1631__DEFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1631__DEFUN.val, "DEFUN", sizeof (meltcdat->dstr_1631__DEFUN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1631__DEFUN.val, "DEFUN", sizeof (meltcdat->dstr_1631__DEFUN.val)-1); meltcdat->dstr_1631__DEFUN.val[5] = (char)0 ; meltcdat->dstr_1631__DEFUN.slen = 5 ; /*inirout drout_1632__MELT_DELAYED_MACRO_EXPANDER*/ - /*iniroutlocvar*/ /*_._VALROUT___V1726*/ - meltfptr[1725] = (melt_ptr_t) &meltcdat->drout_1632__MELT_DELAYED_MACRO_EXPANDER; + /*iniroutlocvar*/ /*_._VALROUT___V1726*/ meltfptr[1725] = (melt_ptr_t) &meltcdat->drout_1632__MELT_DELAYED_MACRO_EXPANDER; meltcdat->drout_1632__MELT_DELAYED_MACRO_EXPANDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1632__MELT_DELAYED_MACRO_EXPANDER.routdescr, "MELT_DELAYED_MACRO_EXPANDER @warmelt-macro.melt:3520", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1632__MELT_DELAYED_MACRO_EXPANDER.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1632__MELT_DELAYED_MACRO_EXPANDER, meltrout_54_WARMELTmiMACRO_MELT_DELAYED_MACRO_EXPANDER); /*iniclos dclo_1633__MELT_DELAYED_MACRO_EXPANDER*/ - /*_._VALCLO___V1727*/ - meltfptr[1726] = (melt_ptr_t) &meltcdat->dclo_1633__MELT_DELAYED_MACRO_EXPANDER; + /*_._VALCLO___V1727*/ meltfptr[1726] = (melt_ptr_t) &meltcdat->dclo_1633__MELT_DELAYED_MACRO_EXPANDER; meltcdat->dclo_1633__MELT_DELAYED_MACRO_EXPANDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1633__MELT_DELAYED_MACRO_EXPANDER.nbval = 0; /*iniobj dsym_1634__DEBUG_MORE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1728*/ meltfptr[1727]) + /*uniqueobj*/ if (!/*_._VALDATA___V1728*/ meltfptr[1727]) /*_._VALDATA___V1728*/ meltfptr[1727] = (melt_ptr_t )&meltcdat->dsym_1634__DEBUG_MORE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1634__DEBUG_MORE", 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_1634__DEBUG_MORE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27007,31 +23794,26 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1635__DEBUG_MORE*/ - /*_._VALSTR___V1729*/ - meltfptr[1728] = (melt_ptr_t) &meltcdat->dstr_1635__DEBUG_MORE; + /*_._VALSTR___V1729*/ meltfptr[1728] = (melt_ptr_t) &meltcdat->dstr_1635__DEBUG_MORE; meltcdat->dstr_1635__DEBUG_MORE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1635__DEBUG_MORE.val, "DEBUG_MORE", sizeof (meltcdat->dstr_1635__DEBUG_MORE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1635__DEBUG_MORE.val, "DEBUG_MORE", sizeof (meltcdat->dstr_1635__DEBUG_MORE.val)-1); meltcdat->dstr_1635__DEBUG_MORE.val[10] = (char)0 ; meltcdat->dstr_1635__DEBUG_MORE.slen = 10 ; /*inirout drout_1636__MEXPAND_DEFMACRO*/ - /*iniroutlocvar*/ /*_._VALROUT___V1730*/ - meltfptr[1729] = (melt_ptr_t) &meltcdat->drout_1636__MEXPAND_DEFMACRO; + /*iniroutlocvar*/ /*_._VALROUT___V1730*/ meltfptr[1729] = (melt_ptr_t) &meltcdat->drout_1636__MEXPAND_DEFMACRO; meltcdat->drout_1636__MEXPAND_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1636__MEXPAND_DEFMACRO.routdescr, "MEXPAND_DEFMACRO @warmelt-macro.melt:3545", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1636__MEXPAND_DEFMACRO.nbval = 32; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1636__MEXPAND_DEFMACRO, meltrout_55_WARMELTmiMACRO_MEXPAND_DEFMACRO); /*iniclos dclo_1637__MEXPAND_DEFMACRO*/ - /*_._VALCLO___V1732*/ - meltfptr[1731] = (melt_ptr_t) &meltcdat->dclo_1637__MEXPAND_DEFMACRO; + /*_._VALCLO___V1732*/ meltfptr[1731] = (melt_ptr_t) &meltcdat->dclo_1637__MEXPAND_DEFMACRO; meltcdat->dclo_1637__MEXPAND_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1637__MEXPAND_DEFMACRO.nbval = 0; /*inirout drout_1638__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1731*/ - meltfptr[1730] = (melt_ptr_t) &meltcdat->drout_1638__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1731*/ meltfptr[1730] = (melt_ptr_t) &meltcdat->drout_1638__LAMBDA_; meltcdat->drout_1638__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1638__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3661", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1638__LAMBDA_.nbval = 9; @@ -27039,8 +23821,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*iniobj dsym_1639__DEFMACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1733*/ meltfptr[1732]) + /*uniqueobj*/ if (!/*_._VALDATA___V1733*/ meltfptr[1732]) /*_._VALDATA___V1733*/ meltfptr[1732] = (melt_ptr_t )&meltcdat->dsym_1639__DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1639__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_1639__DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27050,11 +23831,9 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1640__DEFMACRO*/ - /*_._VALSTR___V1734*/ - meltfptr[1733] = (melt_ptr_t) &meltcdat->dstr_1640__DEFMACRO; + /*_._VALSTR___V1734*/ meltfptr[1733] = (melt_ptr_t) &meltcdat->dstr_1640__DEFMACRO; meltcdat->dstr_1640__DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1640__DEFMACRO.val, "DEFMACRO", sizeof (meltcdat->dstr_1640__DEFMACRO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1640__DEFMACRO.val, "DEFMACRO", sizeof (meltcdat->dstr_1640__DEFMACRO.val)-1); meltcdat->dstr_1640__DEFMACRO.val[8] = (char)0 ; meltcdat->dstr_1640__DEFMACRO.slen = 8 ; @@ -27070,16 +23849,14 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t if (!MELT_PREDEF(HOOK_MACRO_INSTALLER)) MELT_STORE_PREDEF(HOOK_MACRO_INSTALLER, (melt_ptr_t) &meltcdat->dhook__1641__HOOK_MACRO_INSTALLER) ; - /*_._VALHOOK___V1735*/ - meltfptr[1734] = /*inihooklocvar HOOK_MACRO_INSTALLER*/ (melt_ptr_t) &meltcdat->dhook__1641__HOOK_MACRO_INSTALLER ; + /*_._VALHOOK___V1735*/ meltfptr[1734] = /*inihooklocvar HOOK_MACRO_INSTALLER*/ (melt_ptr_t) &meltcdat->dhook__1641__HOOK_MACRO_INSTALLER ; /*done inihook dhook__1641__HOOK_MACRO_INSTALLER */ MELT_LOCATION("warmelt-macro.melt:3711:/ iniobj"); /*iniobj dobj_1642__*/ - /*_._VALDATA___V1736*/ - meltfptr[1735] = (melt_ptr_t )&meltcdat->dobj_1642__; + /*_._VALDATA___V1736*/ meltfptr[1735] = (melt_ptr_t )&meltcdat->dobj_1642__; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1642__", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_HOOK_DESCRIPTOR))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1642__", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_HOOK_DESCRIPTOR)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1642__.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_HOOK_DESCRIPTOR)))); @@ -27088,18 +23865,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1643__HOOK_MACRO_INSTALLER*/ - /*_._VALSTR___V1737*/ - meltfptr[1736] = (melt_ptr_t) &meltcdat->dstr_1643__HOOK_MACRO_INSTALLER; + /*_._VALSTR___V1737*/ meltfptr[1736] = (melt_ptr_t) &meltcdat->dstr_1643__HOOK_MACRO_INSTALLER; meltcdat->dstr_1643__HOOK_MACRO_INSTALLER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1643__HOOK_MACRO_INSTALLER.val, "HOOK_MACRO_INSTALLER", sizeof (meltcdat->dstr_1643__HOOK_MACRO_INSTALLER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1643__HOOK_MACRO_INSTALLER.val, "HOOK_MACRO_INSTALLER", sizeof (meltcdat->dstr_1643__HOOK_MACRO_INSTALLER.val)-1); meltcdat->dstr_1643__HOOK_MACRO_INSTALLER.val[20] = (char)0 ; meltcdat->dstr_1643__HOOK_MACRO_INSTALLER.slen = 20 ; /*iniobj dsym_1644__MBIND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1739*/ meltfptr[1738]) + /*uniqueobj*/ if (!/*_._VALDATA___V1739*/ meltfptr[1738]) /*_._VALDATA___V1739*/ meltfptr[1738] = (melt_ptr_t )&meltcdat->dsym_1644__MBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1644__MBIND", 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_1644__MBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27109,19 +23883,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1645__MBIND*/ - /*_._VALSTR___V1740*/ - meltfptr[1739] = (melt_ptr_t) &meltcdat->dstr_1645__MBIND; + /*_._VALSTR___V1740*/ meltfptr[1739] = (melt_ptr_t) &meltcdat->dstr_1645__MBIND; meltcdat->dstr_1645__MBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1645__MBIND.val, "MBIND", sizeof (meltcdat->dstr_1645__MBIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1645__MBIND.val, "MBIND", sizeof (meltcdat->dstr_1645__MBIND.val)-1); meltcdat->dstr_1645__MBIND.val[5] = (char)0 ; meltcdat->dstr_1645__MBIND.slen = 5 ; /*^iniobj*/ /*iniobj dobj_1646*/ - /*_._VALDATA___V1738*/ - meltfptr[1737] = (melt_ptr_t )&meltcdat->dobj_1646; + /*_._VALDATA___V1738*/ meltfptr[1737] = (melt_ptr_t )&meltcdat->dobj_1646; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1646", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1646", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1646.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); @@ -27131,8 +23902,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*iniobj dsym_1647__MEXPCLOS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1742*/ meltfptr[1741]) + /*uniqueobj*/ if (!/*_._VALDATA___V1742*/ meltfptr[1741]) /*_._VALDATA___V1742*/ meltfptr[1741] = (melt_ptr_t )&meltcdat->dsym_1647__MEXPCLOS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1647__MEXPCLOS", 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_1647__MEXPCLOS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27142,19 +23912,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1648__MEXPCLOS*/ - /*_._VALSTR___V1743*/ - meltfptr[1742] = (melt_ptr_t) &meltcdat->dstr_1648__MEXPCLOS; + /*_._VALSTR___V1743*/ meltfptr[1742] = (melt_ptr_t) &meltcdat->dstr_1648__MEXPCLOS; meltcdat->dstr_1648__MEXPCLOS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1648__MEXPCLOS.val, "MEXPCLOS", sizeof (meltcdat->dstr_1648__MEXPCLOS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1648__MEXPCLOS.val, "MEXPCLOS", sizeof (meltcdat->dstr_1648__MEXPCLOS.val)-1); meltcdat->dstr_1648__MEXPCLOS.val[8] = (char)0 ; meltcdat->dstr_1648__MEXPCLOS.slen = 8 ; /*^iniobj*/ /*iniobj dobj_1649*/ - /*_._VALDATA___V1741*/ - meltfptr[1740] = (melt_ptr_t )&meltcdat->dobj_1649; + /*_._VALDATA___V1741*/ meltfptr[1740] = (melt_ptr_t )&meltcdat->dobj_1649; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1649", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1649", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1649.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); @@ -27163,33 +23930,28 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t meltcdat->dobj_1649.obj_len = 2; /*inimult dtup_1650___HOOK_MACRO_INSTALLER*/ - /*_._VALTUP___V1744*/ - meltfptr[1743] = (melt_ptr_t) &meltcdat->dtup_1650___HOOK_MACRO_INSTALLER; + /*_._VALTUP___V1744*/ meltfptr[1743] = (melt_ptr_t) &meltcdat->dtup_1650___HOOK_MACRO_INSTALLER; meltcdat->dtup_1650___HOOK_MACRO_INSTALLER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltcdat->dtup_1650___HOOK_MACRO_INSTALLER.nbval = 2; /*inimult dtup_1651___HOOK_MACRO_INSTALLER*/ - /*_._VALTUP___V1745*/ - meltfptr[1744] = (melt_ptr_t) &meltcdat->dtup_1651___HOOK_MACRO_INSTALLER; + /*_._VALTUP___V1745*/ meltfptr[1744] = (melt_ptr_t) &meltcdat->dtup_1651___HOOK_MACRO_INSTALLER; meltcdat->dtup_1651___HOOK_MACRO_INSTALLER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltcdat->dtup_1651___HOOK_MACRO_INSTALLER.nbval = 0; /*inirout drout_1652__MEXPAND_AT_MACRO_EXPANSION*/ - /*iniroutlocvar*/ /*_._VALROUT___V1746*/ - meltfptr[1745] = (melt_ptr_t) &meltcdat->drout_1652__MEXPAND_AT_MACRO_EXPANSION; + /*iniroutlocvar*/ /*_._VALROUT___V1746*/ meltfptr[1745] = (melt_ptr_t) &meltcdat->drout_1652__MEXPAND_AT_MACRO_EXPANSION; meltcdat->drout_1652__MEXPAND_AT_MACRO_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1652__MEXPAND_AT_MACRO_EXPANSION.routdescr, "MEXPAND_AT_MACRO_EXPANSION @warmelt-macro.melt:3726", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1652__MEXPAND_AT_MACRO_EXPANSION.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1652__MEXPAND_AT_MACRO_EXPANSION, meltrout_58_WARMELTmiMACRO_MEXPAND_AT_MACRO_EXPANSION); /*iniclos dclo_1653__MEXPAND_AT_MACRO_EXPANSION*/ - /*_._VALCLO___V1747*/ - meltfptr[1746] = (melt_ptr_t) &meltcdat->dclo_1653__MEXPAND_AT_MACRO_EXPANSION; + /*_._VALCLO___V1747*/ meltfptr[1746] = (melt_ptr_t) &meltcdat->dclo_1653__MEXPAND_AT_MACRO_EXPANSION; meltcdat->dclo_1653__MEXPAND_AT_MACRO_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1653__MEXPAND_AT_MACRO_EXPANSION.nbval = 0; /*iniobj dsym_1654__AT_MACRO_EXPANSION*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1748*/ meltfptr[1747]) + /*uniqueobj*/ if (!/*_._VALDATA___V1748*/ meltfptr[1747]) /*_._VALDATA___V1748*/ meltfptr[1747] = (melt_ptr_t )&meltcdat->dsym_1654__AT_MACRO_EXPANSION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1654__AT_MACRO_EXPANSION", 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_1654__AT_MACRO_EXPANSION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27199,32 +23961,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1655__AT_MACRO_EXPANSION*/ - /*_._VALSTR___V1749*/ - meltfptr[1748] = (melt_ptr_t) &meltcdat->dstr_1655__AT_MACRO_EXPANSION; + /*_._VALSTR___V1749*/ meltfptr[1748] = (melt_ptr_t) &meltcdat->dstr_1655__AT_MACRO_EXPANSION; meltcdat->dstr_1655__AT_MACRO_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1655__AT_MACRO_EXPANSION.val, "AT_MACRO_EXPANSION", sizeof (meltcdat->dstr_1655__AT_MACRO_EXPANSION.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1655__AT_MACRO_EXPANSION.val, "AT_MACRO_EXPANSION", sizeof (meltcdat->dstr_1655__AT_MACRO_EXPANSION.val)-1); meltcdat->dstr_1655__AT_MACRO_EXPANSION.val[18] = (char)0 ; meltcdat->dstr_1655__AT_MACRO_EXPANSION.slen = 18 ; /*inirout drout_1656__MEXPAND_DEFVAR*/ - /*iniroutlocvar*/ /*_._VALROUT___V1750*/ - meltfptr[1749] = (melt_ptr_t) &meltcdat->drout_1656__MEXPAND_DEFVAR; + /*iniroutlocvar*/ /*_._VALROUT___V1750*/ meltfptr[1749] = (melt_ptr_t) &meltcdat->drout_1656__MEXPAND_DEFVAR; meltcdat->drout_1656__MEXPAND_DEFVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1656__MEXPAND_DEFVAR.routdescr, "MEXPAND_DEFVAR @warmelt-macro.melt:3764", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1656__MEXPAND_DEFVAR.nbval = 13; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1656__MEXPAND_DEFVAR, meltrout_59_WARMELTmiMACRO_MEXPAND_DEFVAR); /*iniclos dclo_1657__MEXPAND_DEFVAR*/ - /*_._VALCLO___V1751*/ - meltfptr[1750] = (melt_ptr_t) &meltcdat->dclo_1657__MEXPAND_DEFVAR; + /*_._VALCLO___V1751*/ meltfptr[1750] = (melt_ptr_t) &meltcdat->dclo_1657__MEXPAND_DEFVAR; meltcdat->dclo_1657__MEXPAND_DEFVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1657__MEXPAND_DEFVAR.nbval = 0; /*iniobj dsym_1658__CLASS_VARIABLE_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1752*/ meltfptr[1751]) + /*uniqueobj*/ if (!/*_._VALDATA___V1752*/ meltfptr[1751]) /*_._VALDATA___V1752*/ meltfptr[1751] = (melt_ptr_t )&meltcdat->dsym_1658__CLASS_VARIABLE_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1658__CLASS_VARIABLE_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_1658__CLASS_VARIABLE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27234,18 +23991,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1659__CLASS_VARIABLE_BINDING*/ - /*_._VALSTR___V1753*/ - meltfptr[1752] = (melt_ptr_t) &meltcdat->dstr_1659__CLASS_VARIABLE_BINDING; + /*_._VALSTR___V1753*/ meltfptr[1752] = (melt_ptr_t) &meltcdat->dstr_1659__CLASS_VARIABLE_BINDING; meltcdat->dstr_1659__CLASS_VARIABLE_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1659__CLASS_VARIABLE_BINDING.val, "CLASS_VARIABLE_BINDING", sizeof (meltcdat->dstr_1659__CLASS_VARIABLE_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1659__CLASS_VARIABLE_BINDING.val, "CLASS_VARIABLE_BINDING", sizeof (meltcdat->dstr_1659__CLASS_VARIABLE_BINDING.val)-1); meltcdat->dstr_1659__CLASS_VARIABLE_BINDING.val[22] = (char)0 ; meltcdat->dstr_1659__CLASS_VARIABLE_BINDING.slen = 22 ; /*iniobj dsym_1660__DEFVAR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1754*/ meltfptr[1753]) + /*uniqueobj*/ if (!/*_._VALDATA___V1754*/ meltfptr[1753]) /*_._VALDATA___V1754*/ meltfptr[1753] = (melt_ptr_t )&meltcdat->dsym_1660__DEFVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1660__DEFVAR", 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_1660__DEFVAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27255,32 +24009,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1661__DEFVAR*/ - /*_._VALSTR___V1755*/ - meltfptr[1754] = (melt_ptr_t) &meltcdat->dstr_1661__DEFVAR; + /*_._VALSTR___V1755*/ meltfptr[1754] = (melt_ptr_t) &meltcdat->dstr_1661__DEFVAR; meltcdat->dstr_1661__DEFVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1661__DEFVAR.val, "DEFVAR", sizeof (meltcdat->dstr_1661__DEFVAR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1661__DEFVAR.val, "DEFVAR", sizeof (meltcdat->dstr_1661__DEFVAR.val)-1); meltcdat->dstr_1661__DEFVAR.val[6] = (char)0 ; meltcdat->dstr_1661__DEFVAR.slen = 6 ; /*inirout drout_1662__MEXPAND_DEFHOOK*/ - /*iniroutlocvar*/ /*_._VALROUT___V1756*/ - meltfptr[1755] = (melt_ptr_t) &meltcdat->drout_1662__MEXPAND_DEFHOOK; + /*iniroutlocvar*/ /*_._VALROUT___V1756*/ meltfptr[1755] = (melt_ptr_t) &meltcdat->drout_1662__MEXPAND_DEFHOOK; meltcdat->drout_1662__MEXPAND_DEFHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1662__MEXPAND_DEFHOOK.routdescr, "MEXPAND_DEFHOOK @warmelt-macro.melt:3817", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1662__MEXPAND_DEFHOOK.nbval = 24; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1662__MEXPAND_DEFHOOK, meltrout_60_WARMELTmiMACRO_MEXPAND_DEFHOOK); /*iniclos dclo_1663__MEXPAND_DEFHOOK*/ - /*_._VALCLO___V1761*/ - meltfptr[1760] = (melt_ptr_t) &meltcdat->dclo_1663__MEXPAND_DEFHOOK; + /*_._VALCLO___V1761*/ meltfptr[1760] = (melt_ptr_t) &meltcdat->dclo_1663__MEXPAND_DEFHOOK; meltcdat->dclo_1663__MEXPAND_DEFHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1663__MEXPAND_DEFHOOK.nbval = 0; /*iniobj dsym_1664__SYMBOL_CNAME*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1762*/ meltfptr[1761]) + /*uniqueobj*/ if (!/*_._VALDATA___V1762*/ meltfptr[1761]) /*_._VALDATA___V1762*/ meltfptr[1761] = (melt_ptr_t )&meltcdat->dsym_1664__SYMBOL_CNAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1664__SYMBOL_CNAME", 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_1664__SYMBOL_CNAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27290,18 +24039,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1665__SYMBOL_CNAME*/ - /*_._VALSTR___V1763*/ - meltfptr[1762] = (melt_ptr_t) &meltcdat->dstr_1665__SYMBOL_CNAME; + /*_._VALSTR___V1763*/ meltfptr[1762] = (melt_ptr_t) &meltcdat->dstr_1665__SYMBOL_CNAME; meltcdat->dstr_1665__SYMBOL_CNAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1665__SYMBOL_CNAME.val, "SYMBOL_CNAME", sizeof (meltcdat->dstr_1665__SYMBOL_CNAME.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1665__SYMBOL_CNAME.val, "SYMBOL_CNAME", sizeof (meltcdat->dstr_1665__SYMBOL_CNAME.val)-1); meltcdat->dstr_1665__SYMBOL_CNAME.val[12] = (char)0 ; meltcdat->dstr_1665__SYMBOL_CNAME.slen = 12 ; /*iniobj dsym_1666__PREDEF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1757*/ meltfptr[1756]) + /*uniqueobj*/ if (!/*_._VALDATA___V1757*/ meltfptr[1756]) /*_._VALDATA___V1757*/ meltfptr[1756] = (melt_ptr_t )&meltcdat->dsym_1666__PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1666__PREDEF", 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_1666__PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27311,18 +24057,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1667__PREDEF*/ - /*_._VALSTR___V1758*/ - meltfptr[1757] = (melt_ptr_t) &meltcdat->dstr_1667__PREDEF; + /*_._VALSTR___V1758*/ meltfptr[1757] = (melt_ptr_t) &meltcdat->dstr_1667__PREDEF; meltcdat->dstr_1667__PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1667__PREDEF.val, "PREDEF", sizeof (meltcdat->dstr_1667__PREDEF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1667__PREDEF.val, "PREDEF", sizeof (meltcdat->dstr_1667__PREDEF.val)-1); meltcdat->dstr_1667__PREDEF.val[6] = (char)0 ; meltcdat->dstr_1667__PREDEF.slen = 6 ; /*iniobj dsym_1668__VAR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1759*/ meltfptr[1758]) + /*uniqueobj*/ if (!/*_._VALDATA___V1759*/ meltfptr[1758]) /*_._VALDATA___V1759*/ meltfptr[1758] = (melt_ptr_t )&meltcdat->dsym_1668__VAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1668__VAR", 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_1668__VAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27332,18 +24075,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1669__VAR*/ - /*_._VALSTR___V1760*/ - meltfptr[1759] = (melt_ptr_t) &meltcdat->dstr_1669__VAR; + /*_._VALSTR___V1760*/ meltfptr[1759] = (melt_ptr_t) &meltcdat->dstr_1669__VAR; meltcdat->dstr_1669__VAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1669__VAR.val, "VAR", sizeof (meltcdat->dstr_1669__VAR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1669__VAR.val, "VAR", sizeof (meltcdat->dstr_1669__VAR.val)-1); meltcdat->dstr_1669__VAR.val[3] = (char)0 ; meltcdat->dstr_1669__VAR.slen = 3 ; /*iniobj dsym_1670__DEFHOOK*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1764*/ meltfptr[1763]) + /*uniqueobj*/ if (!/*_._VALDATA___V1764*/ meltfptr[1763]) /*_._VALDATA___V1764*/ meltfptr[1763] = (melt_ptr_t )&meltcdat->dsym_1670__DEFHOOK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1670__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_1670__DEFHOOK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27353,32 +24093,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1671__DEFHOOK*/ - /*_._VALSTR___V1765*/ - meltfptr[1764] = (melt_ptr_t) &meltcdat->dstr_1671__DEFHOOK; + /*_._VALSTR___V1765*/ meltfptr[1764] = (melt_ptr_t) &meltcdat->dstr_1671__DEFHOOK; meltcdat->dstr_1671__DEFHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1671__DEFHOOK.val, "DEFHOOK", sizeof (meltcdat->dstr_1671__DEFHOOK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1671__DEFHOOK.val, "DEFHOOK", sizeof (meltcdat->dstr_1671__DEFHOOK.val)-1); meltcdat->dstr_1671__DEFHOOK.val[7] = (char)0 ; meltcdat->dstr_1671__DEFHOOK.slen = 7 ; /*inirout drout_1672__MEXPAND_DEFINE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1766*/ - meltfptr[1765] = (melt_ptr_t) &meltcdat->drout_1672__MEXPAND_DEFINE; + /*iniroutlocvar*/ /*_._VALROUT___V1766*/ meltfptr[1765] = (melt_ptr_t) &meltcdat->drout_1672__MEXPAND_DEFINE; meltcdat->drout_1672__MEXPAND_DEFINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1672__MEXPAND_DEFINE.routdescr, "MEXPAND_DEFINE @warmelt-macro.melt:3990", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1672__MEXPAND_DEFINE.nbval = 20; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1672__MEXPAND_DEFINE, meltrout_61_WARMELTmiMACRO_MEXPAND_DEFINE); /*iniclos dclo_1673__MEXPAND_DEFINE*/ - /*_._VALCLO___V1767*/ - meltfptr[1766] = (melt_ptr_t) &meltcdat->dclo_1673__MEXPAND_DEFINE; + /*_._VALCLO___V1767*/ meltfptr[1766] = (melt_ptr_t) &meltcdat->dclo_1673__MEXPAND_DEFINE; meltcdat->dclo_1673__MEXPAND_DEFINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1673__MEXPAND_DEFINE.nbval = 0; /*iniobj dsym_1674__CLASS_DEFINED_VALUE_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1768*/ meltfptr[1767]) + /*uniqueobj*/ if (!/*_._VALDATA___V1768*/ meltfptr[1767]) /*_._VALDATA___V1768*/ meltfptr[1767] = (melt_ptr_t )&meltcdat->dsym_1674__CLASS_DEFINED_VALUE_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1674__CLASS_DEFINED_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_1674__CLASS_DEFINED_VALUE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27388,18 +24123,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1675__CLASS_DEFINED_VALUE_BIND*/ - /*_._VALSTR___V1769*/ - meltfptr[1768] = (melt_ptr_t) &meltcdat->dstr_1675__CLASS_DEFINED_VALUE_BIND; + /*_._VALSTR___V1769*/ meltfptr[1768] = (melt_ptr_t) &meltcdat->dstr_1675__CLASS_DEFINED_VALUE_BIND; meltcdat->dstr_1675__CLASS_DEFINED_VALUE_BIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1675__CLASS_DEFINED_VALUE_BIND.val, "CLASS_DEFINED_VALUE_BINDING", sizeof (meltcdat->dstr_1675__CLASS_DEFINED_VALUE_BIND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1675__CLASS_DEFINED_VALUE_BIND.val, "CLASS_DEFINED_VALUE_BINDING", sizeof (meltcdat->dstr_1675__CLASS_DEFINED_VALUE_BIND.val)-1); meltcdat->dstr_1675__CLASS_DEFINED_VALUE_BIND.val[27] = (char)0 ; meltcdat->dstr_1675__CLASS_DEFINED_VALUE_BIND.slen = 27 ; /*iniobj dsym_1676__DEFINE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1770*/ meltfptr[1769]) + /*uniqueobj*/ if (!/*_._VALDATA___V1770*/ meltfptr[1769]) /*_._VALDATA___V1770*/ meltfptr[1769] = (melt_ptr_t )&meltcdat->dsym_1676__DEFINE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1676__DEFINE", 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_1676__DEFINE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27409,32 +24141,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1677__DEFINE*/ - /*_._VALSTR___V1771*/ - meltfptr[1770] = (melt_ptr_t) &meltcdat->dstr_1677__DEFINE; + /*_._VALSTR___V1771*/ meltfptr[1770] = (melt_ptr_t) &meltcdat->dstr_1677__DEFINE; meltcdat->dstr_1677__DEFINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1677__DEFINE.val, "DEFINE", sizeof (meltcdat->dstr_1677__DEFINE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1677__DEFINE.val, "DEFINE", sizeof (meltcdat->dstr_1677__DEFINE.val)-1); meltcdat->dstr_1677__DEFINE.val[6] = (char)0 ; meltcdat->dstr_1677__DEFINE.slen = 6 ; /*inirout drout_1678__SCAN_DEFCLASS*/ - /*iniroutlocvar*/ /*_._VALROUT___V1772*/ - meltfptr[1771] = (melt_ptr_t) &meltcdat->drout_1678__SCAN_DEFCLASS; + /*iniroutlocvar*/ /*_._VALROUT___V1772*/ meltfptr[1771] = (melt_ptr_t) &meltcdat->drout_1678__SCAN_DEFCLASS; meltcdat->drout_1678__SCAN_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1678__SCAN_DEFCLASS.routdescr, "SCAN_DEFCLASS @warmelt-macro.melt:4109", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1678__SCAN_DEFCLASS.nbval = 16; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1678__SCAN_DEFCLASS, meltrout_62_WARMELTmiMACRO_SCAN_DEFCLASS); /*iniclos dclo_1679__SCAN_DEFCLASS*/ - /*_._VALCLO___V1777*/ - meltfptr[1776] = (melt_ptr_t) &meltcdat->dclo_1679__SCAN_DEFCLASS; + /*_._VALCLO___V1777*/ meltfptr[1776] = (melt_ptr_t) &meltcdat->dclo_1679__SCAN_DEFCLASS; meltcdat->dclo_1679__SCAN_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1679__SCAN_DEFCLASS.nbval = 0; /*iniobj dsym_1680__SUPER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1773*/ meltfptr[1772]) + /*uniqueobj*/ if (!/*_._VALDATA___V1773*/ meltfptr[1772]) /*_._VALDATA___V1773*/ meltfptr[1772] = (melt_ptr_t )&meltcdat->dsym_1680__SUPER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1680__SUPER", 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_1680__SUPER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27444,18 +24171,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1681__SUPER*/ - /*_._VALSTR___V1774*/ - meltfptr[1773] = (melt_ptr_t) &meltcdat->dstr_1681__SUPER; + /*_._VALSTR___V1774*/ meltfptr[1773] = (melt_ptr_t) &meltcdat->dstr_1681__SUPER; meltcdat->dstr_1681__SUPER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1681__SUPER.val, "SUPER", sizeof (meltcdat->dstr_1681__SUPER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1681__SUPER.val, "SUPER", sizeof (meltcdat->dstr_1681__SUPER.val)-1); meltcdat->dstr_1681__SUPER.val[5] = (char)0 ; meltcdat->dstr_1681__SUPER.slen = 5 ; /*iniobj dsym_1682__CLASS_CLASS_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1778*/ meltfptr[1777]) + /*uniqueobj*/ if (!/*_._VALDATA___V1778*/ meltfptr[1777]) /*_._VALDATA___V1778*/ meltfptr[1777] = (melt_ptr_t )&meltcdat->dsym_1682__CLASS_CLASS_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1682__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_1682__CLASS_CLASS_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27465,18 +24189,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1683__CLASS_CLASS_BINDING*/ - /*_._VALSTR___V1779*/ - meltfptr[1778] = (melt_ptr_t) &meltcdat->dstr_1683__CLASS_CLASS_BINDING; + /*_._VALSTR___V1779*/ meltfptr[1778] = (melt_ptr_t) &meltcdat->dstr_1683__CLASS_CLASS_BINDING; meltcdat->dstr_1683__CLASS_CLASS_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1683__CLASS_CLASS_BINDING.val, "CLASS_CLASS_BINDING", sizeof (meltcdat->dstr_1683__CLASS_CLASS_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1683__CLASS_CLASS_BINDING.val, "CLASS_CLASS_BINDING", sizeof (meltcdat->dstr_1683__CLASS_CLASS_BINDING.val)-1); meltcdat->dstr_1683__CLASS_CLASS_BINDING.val[19] = (char)0 ; meltcdat->dstr_1683__CLASS_CLASS_BINDING.slen = 19 ; /*iniobj dsym_1684__CLASS_CLASS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1780*/ meltfptr[1779]) + /*uniqueobj*/ if (!/*_._VALDATA___V1780*/ meltfptr[1779]) /*_._VALDATA___V1780*/ meltfptr[1779] = (melt_ptr_t )&meltcdat->dsym_1684__CLASS_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1684__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_1684__CLASS_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27486,18 +24207,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1685__CLASS_CLASS*/ - /*_._VALSTR___V1781*/ - meltfptr[1780] = (melt_ptr_t) &meltcdat->dstr_1685__CLASS_CLASS; + /*_._VALSTR___V1781*/ meltfptr[1780] = (melt_ptr_t) &meltcdat->dstr_1685__CLASS_CLASS; meltcdat->dstr_1685__CLASS_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1685__CLASS_CLASS.val, "CLASS_CLASS", sizeof (meltcdat->dstr_1685__CLASS_CLASS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1685__CLASS_CLASS.val, "CLASS_CLASS", sizeof (meltcdat->dstr_1685__CLASS_CLASS.val)-1); meltcdat->dstr_1685__CLASS_CLASS.val[11] = (char)0 ; meltcdat->dstr_1685__CLASS_CLASS.slen = 11 ; /*iniobj dsym_1686__FIELDS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1775*/ meltfptr[1774]) + /*uniqueobj*/ if (!/*_._VALDATA___V1775*/ meltfptr[1774]) /*_._VALDATA___V1775*/ meltfptr[1774] = (melt_ptr_t )&meltcdat->dsym_1686__FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1686__FIELDS", 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_1686__FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27507,32 +24225,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1687__FIELDS*/ - /*_._VALSTR___V1776*/ - meltfptr[1775] = (melt_ptr_t) &meltcdat->dstr_1687__FIELDS; + /*_._VALSTR___V1776*/ meltfptr[1775] = (melt_ptr_t) &meltcdat->dstr_1687__FIELDS; meltcdat->dstr_1687__FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1687__FIELDS.val, "FIELDS", sizeof (meltcdat->dstr_1687__FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1687__FIELDS.val, "FIELDS", sizeof (meltcdat->dstr_1687__FIELDS.val)-1); meltcdat->dstr_1687__FIELDS.val[6] = (char)0 ; meltcdat->dstr_1687__FIELDS.slen = 6 ; /*inirout drout_1688__MEXPAND_DEFCLASS*/ - /*iniroutlocvar*/ /*_._VALROUT___V1782*/ - meltfptr[1781] = (melt_ptr_t) &meltcdat->drout_1688__MEXPAND_DEFCLASS; + /*iniroutlocvar*/ /*_._VALROUT___V1782*/ meltfptr[1781] = (melt_ptr_t) &meltcdat->drout_1688__MEXPAND_DEFCLASS; meltcdat->drout_1688__MEXPAND_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1688__MEXPAND_DEFCLASS.routdescr, "MEXPAND_DEFCLASS @warmelt-macro.melt:4224", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1688__MEXPAND_DEFCLASS.nbval = 23; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1688__MEXPAND_DEFCLASS, meltrout_63_WARMELTmiMACRO_MEXPAND_DEFCLASS); /*iniclos dclo_1689__MEXPAND_DEFCLASS*/ - /*_._VALCLO___V1783*/ - meltfptr[1782] = (melt_ptr_t) &meltcdat->dclo_1689__MEXPAND_DEFCLASS; + /*_._VALCLO___V1783*/ meltfptr[1782] = (melt_ptr_t) &meltcdat->dclo_1689__MEXPAND_DEFCLASS; meltcdat->dclo_1689__MEXPAND_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1689__MEXPAND_DEFCLASS.nbval = 0; /*iniobj dsym_1690__DISCR_CLASS_SEQUENCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1784*/ meltfptr[1783]) + /*uniqueobj*/ if (!/*_._VALDATA___V1784*/ meltfptr[1783]) /*_._VALDATA___V1784*/ meltfptr[1783] = (melt_ptr_t )&meltcdat->dsym_1690__DISCR_CLASS_SEQUENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1690__DISCR_CLASS_SEQUENCE", 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_1690__DISCR_CLASS_SEQUENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27542,18 +24255,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1691__DISCR_CLASS_SEQUENCE*/ - /*_._VALSTR___V1785*/ - meltfptr[1784] = (melt_ptr_t) &meltcdat->dstr_1691__DISCR_CLASS_SEQUENCE; + /*_._VALSTR___V1785*/ meltfptr[1784] = (melt_ptr_t) &meltcdat->dstr_1691__DISCR_CLASS_SEQUENCE; meltcdat->dstr_1691__DISCR_CLASS_SEQUENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1691__DISCR_CLASS_SEQUENCE.val, "DISCR_CLASS_SEQUENCE", sizeof (meltcdat->dstr_1691__DISCR_CLASS_SEQUENCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1691__DISCR_CLASS_SEQUENCE.val, "DISCR_CLASS_SEQUENCE", sizeof (meltcdat->dstr_1691__DISCR_CLASS_SEQUENCE.val)-1); meltcdat->dstr_1691__DISCR_CLASS_SEQUENCE.val[20] = (char)0 ; meltcdat->dstr_1691__DISCR_CLASS_SEQUENCE.slen = 20 ; /*iniobj dsym_1692__DISCR_MAP_STRINGS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1786*/ meltfptr[1785]) + /*uniqueobj*/ if (!/*_._VALDATA___V1786*/ meltfptr[1785]) /*_._VALDATA___V1786*/ meltfptr[1785] = (melt_ptr_t )&meltcdat->dsym_1692__DISCR_MAP_STRINGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1692__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_1692__DISCR_MAP_STRINGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27563,18 +24273,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1693__DISCR_MAP_STRINGS*/ - /*_._VALSTR___V1787*/ - meltfptr[1786] = (melt_ptr_t) &meltcdat->dstr_1693__DISCR_MAP_STRINGS; + /*_._VALSTR___V1787*/ meltfptr[1786] = (melt_ptr_t) &meltcdat->dstr_1693__DISCR_MAP_STRINGS; meltcdat->dstr_1693__DISCR_MAP_STRINGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1693__DISCR_MAP_STRINGS.val, "DISCR_MAP_STRINGS", sizeof (meltcdat->dstr_1693__DISCR_MAP_STRINGS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1693__DISCR_MAP_STRINGS.val, "DISCR_MAP_STRINGS", sizeof (meltcdat->dstr_1693__DISCR_MAP_STRINGS.val)-1); meltcdat->dstr_1693__DISCR_MAP_STRINGS.val[17] = (char)0 ; meltcdat->dstr_1693__DISCR_MAP_STRINGS.slen = 17 ; /*iniobj dsym_1694__DISCR_FIELD_SEQUENCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1788*/ meltfptr[1787]) + /*uniqueobj*/ if (!/*_._VALDATA___V1788*/ meltfptr[1787]) /*_._VALDATA___V1788*/ meltfptr[1787] = (melt_ptr_t )&meltcdat->dsym_1694__DISCR_FIELD_SEQUENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1694__DISCR_FIELD_SEQUENCE", 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_1694__DISCR_FIELD_SEQUENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27584,18 +24291,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1695__DISCR_FIELD_SEQUENCE*/ - /*_._VALSTR___V1789*/ - meltfptr[1788] = (melt_ptr_t) &meltcdat->dstr_1695__DISCR_FIELD_SEQUENCE; + /*_._VALSTR___V1789*/ meltfptr[1788] = (melt_ptr_t) &meltcdat->dstr_1695__DISCR_FIELD_SEQUENCE; meltcdat->dstr_1695__DISCR_FIELD_SEQUENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1695__DISCR_FIELD_SEQUENCE.val, "DISCR_FIELD_SEQUENCE", sizeof (meltcdat->dstr_1695__DISCR_FIELD_SEQUENCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1695__DISCR_FIELD_SEQUENCE.val, "DISCR_FIELD_SEQUENCE", sizeof (meltcdat->dstr_1695__DISCR_FIELD_SEQUENCE.val)-1); meltcdat->dstr_1695__DISCR_FIELD_SEQUENCE.val[20] = (char)0 ; meltcdat->dstr_1695__DISCR_FIELD_SEQUENCE.slen = 20 ; /*iniobj dsym_1696__DEFCLASS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1790*/ meltfptr[1789]) + /*uniqueobj*/ if (!/*_._VALDATA___V1790*/ meltfptr[1789]) /*_._VALDATA___V1790*/ meltfptr[1789] = (melt_ptr_t )&meltcdat->dsym_1696__DEFCLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1696__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_1696__DEFCLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27605,32 +24309,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1697__DEFCLASS*/ - /*_._VALSTR___V1791*/ - meltfptr[1790] = (melt_ptr_t) &meltcdat->dstr_1697__DEFCLASS; + /*_._VALSTR___V1791*/ meltfptr[1790] = (melt_ptr_t) &meltcdat->dstr_1697__DEFCLASS; meltcdat->dstr_1697__DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1697__DEFCLASS.val, "DEFCLASS", sizeof (meltcdat->dstr_1697__DEFCLASS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1697__DEFCLASS.val, "DEFCLASS", sizeof (meltcdat->dstr_1697__DEFCLASS.val)-1); meltcdat->dstr_1697__DEFCLASS.val[8] = (char)0 ; meltcdat->dstr_1697__DEFCLASS.slen = 8 ; /*inirout drout_1698__PARSE_FIELD_ASSIGNMENT*/ - /*iniroutlocvar*/ /*_._VALROUT___V1792*/ - meltfptr[1791] = (melt_ptr_t) &meltcdat->drout_1698__PARSE_FIELD_ASSIGNMENT; + /*iniroutlocvar*/ /*_._VALROUT___V1792*/ meltfptr[1791] = (melt_ptr_t) &meltcdat->drout_1698__PARSE_FIELD_ASSIGNMENT; meltcdat->drout_1698__PARSE_FIELD_ASSIGNMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1698__PARSE_FIELD_ASSIGNMENT.routdescr, "PARSE_FIELD_ASSIGNMENT @warmelt-macro.melt:4371", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1698__PARSE_FIELD_ASSIGNMENT.nbval = 19; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1698__PARSE_FIELD_ASSIGNMENT, meltrout_64_WARMELTmiMACRO_PARSE_FIELD_ASSIGNMENT); /*iniclos dclo_1699__PARSE_FIELD_ASSIGNMENT*/ - /*_._VALCLO___V1794*/ - meltfptr[1793] = (melt_ptr_t) &meltcdat->dclo_1699__PARSE_FIELD_ASSIGNMENT; + /*_._VALCLO___V1794*/ meltfptr[1793] = (melt_ptr_t) &meltcdat->dclo_1699__PARSE_FIELD_ASSIGNMENT; meltcdat->dclo_1699__PARSE_FIELD_ASSIGNMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1699__PARSE_FIELD_ASSIGNMENT.nbval = 0; /*iniobj dsym_1700__MULTIPLE_ITERATE_TEST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1795*/ meltfptr[1794]) + /*uniqueobj*/ if (!/*_._VALDATA___V1795*/ meltfptr[1794]) /*_._VALDATA___V1795*/ meltfptr[1794] = (melt_ptr_t )&meltcdat->dsym_1700__MULTIPLE_ITERATE_TEST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1700__MULTIPLE_ITERATE_TEST", 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_1700__MULTIPLE_ITERATE_TEST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27640,40 +24339,34 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1701__MULTIPLE_ITERATE_TEST*/ - /*_._VALSTR___V1796*/ - meltfptr[1795] = (melt_ptr_t) &meltcdat->dstr_1701__MULTIPLE_ITERATE_TEST; + /*_._VALSTR___V1796*/ meltfptr[1795] = (melt_ptr_t) &meltcdat->dstr_1701__MULTIPLE_ITERATE_TEST; meltcdat->dstr_1701__MULTIPLE_ITERATE_TEST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1701__MULTIPLE_ITERATE_TEST.val, "MULTIPLE_ITERATE_TEST", sizeof (meltcdat->dstr_1701__MULTIPLE_ITERATE_TEST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1701__MULTIPLE_ITERATE_TEST.val, "MULTIPLE_ITERATE_TEST", sizeof (meltcdat->dstr_1701__MULTIPLE_ITERATE_TEST.val)-1); meltcdat->dstr_1701__MULTIPLE_ITERATE_TEST.val[21] = (char)0 ; meltcdat->dstr_1701__MULTIPLE_ITERATE_TEST.slen = 21 ; /*inirout drout_1702__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1793*/ - meltfptr[1792] = (melt_ptr_t) &meltcdat->drout_1702__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1793*/ meltfptr[1792] = (melt_ptr_t) &meltcdat->drout_1702__LAMBDA_; meltcdat->drout_1702__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1702__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4396", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1702__LAMBDA_.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1702__LAMBDA_, meltrout_65_WARMELTmiMACRO_LAMBDA_cl8); /*inirout drout_1703__MEXPAND_DEFINSTANCE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1797*/ - meltfptr[1796] = (melt_ptr_t) &meltcdat->drout_1703__MEXPAND_DEFINSTANCE; + /*iniroutlocvar*/ /*_._VALROUT___V1797*/ meltfptr[1796] = (melt_ptr_t) &meltcdat->drout_1703__MEXPAND_DEFINSTANCE; meltcdat->drout_1703__MEXPAND_DEFINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1703__MEXPAND_DEFINSTANCE.routdescr, "MEXPAND_DEFINSTANCE @warmelt-macro.melt:4467", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1703__MEXPAND_DEFINSTANCE.nbval = 23; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1703__MEXPAND_DEFINSTANCE, meltrout_66_WARMELTmiMACRO_MEXPAND_DEFINSTANCE); /*iniclos dclo_1704__MEXPAND_DEFINSTANCE*/ - /*_._VALCLO___V1800*/ - meltfptr[1799] = (melt_ptr_t) &meltcdat->dclo_1704__MEXPAND_DEFINSTANCE; + /*_._VALCLO___V1800*/ meltfptr[1799] = (melt_ptr_t) &meltcdat->dclo_1704__MEXPAND_DEFINSTANCE; meltcdat->dclo_1704__MEXPAND_DEFINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1704__MEXPAND_DEFINSTANCE.nbval = 0; /*iniobj dsym_1705__CLASS_INSTANCE_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1801*/ meltfptr[1800]) + /*uniqueobj*/ if (!/*_._VALDATA___V1801*/ meltfptr[1800]) /*_._VALDATA___V1801*/ meltfptr[1800] = (melt_ptr_t )&meltcdat->dsym_1705__CLASS_INSTANCE_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1705__CLASS_INSTANCE_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_1705__CLASS_INSTANCE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27683,18 +24376,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1706__CLASS_INSTANCE_BINDING*/ - /*_._VALSTR___V1802*/ - meltfptr[1801] = (melt_ptr_t) &meltcdat->dstr_1706__CLASS_INSTANCE_BINDING; + /*_._VALSTR___V1802*/ meltfptr[1801] = (melt_ptr_t) &meltcdat->dstr_1706__CLASS_INSTANCE_BINDING; meltcdat->dstr_1706__CLASS_INSTANCE_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1706__CLASS_INSTANCE_BINDING.val, "CLASS_INSTANCE_BINDING", sizeof (meltcdat->dstr_1706__CLASS_INSTANCE_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1706__CLASS_INSTANCE_BINDING.val, "CLASS_INSTANCE_BINDING", sizeof (meltcdat->dstr_1706__CLASS_INSTANCE_BINDING.val)-1); meltcdat->dstr_1706__CLASS_INSTANCE_BINDING.val[22] = (char)0 ; meltcdat->dstr_1706__CLASS_INSTANCE_BINDING.slen = 22 ; /*iniobj dsym_1707__OBJ_NUM*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1798*/ meltfptr[1797]) + /*uniqueobj*/ if (!/*_._VALDATA___V1798*/ meltfptr[1797]) /*_._VALDATA___V1798*/ meltfptr[1797] = (melt_ptr_t )&meltcdat->dsym_1707__OBJ_NUM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1707__OBJ_NUM", 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_1707__OBJ_NUM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27704,18 +24394,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1708__OBJ_NUM*/ - /*_._VALSTR___V1799*/ - meltfptr[1798] = (melt_ptr_t) &meltcdat->dstr_1708__OBJ_NUM; + /*_._VALSTR___V1799*/ meltfptr[1798] = (melt_ptr_t) &meltcdat->dstr_1708__OBJ_NUM; meltcdat->dstr_1708__OBJ_NUM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1708__OBJ_NUM.val, "OBJ_NUM", sizeof (meltcdat->dstr_1708__OBJ_NUM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1708__OBJ_NUM.val, "OBJ_NUM", sizeof (meltcdat->dstr_1708__OBJ_NUM.val)-1); meltcdat->dstr_1708__OBJ_NUM.val[7] = (char)0 ; meltcdat->dstr_1708__OBJ_NUM.slen = 7 ; /*iniobj dsym_1709__DEFINSTANCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1803*/ meltfptr[1802]) + /*uniqueobj*/ if (!/*_._VALDATA___V1803*/ meltfptr[1802]) /*_._VALDATA___V1803*/ meltfptr[1802] = (melt_ptr_t )&meltcdat->dsym_1709__DEFINSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1709__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_1709__DEFINSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27725,32 +24412,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1710__DEFINSTANCE*/ - /*_._VALSTR___V1804*/ - meltfptr[1803] = (melt_ptr_t) &meltcdat->dstr_1710__DEFINSTANCE; + /*_._VALSTR___V1804*/ meltfptr[1803] = (melt_ptr_t) &meltcdat->dstr_1710__DEFINSTANCE; meltcdat->dstr_1710__DEFINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1710__DEFINSTANCE.val, "DEFINSTANCE", sizeof (meltcdat->dstr_1710__DEFINSTANCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1710__DEFINSTANCE.val, "DEFINSTANCE", sizeof (meltcdat->dstr_1710__DEFINSTANCE.val)-1); meltcdat->dstr_1710__DEFINSTANCE.val[11] = (char)0 ; meltcdat->dstr_1710__DEFINSTANCE.slen = 11 ; /*inirout drout_1711__MEXPAND_DEFSELECTOR*/ - /*iniroutlocvar*/ /*_._VALROUT___V1805*/ - meltfptr[1804] = (melt_ptr_t) &meltcdat->drout_1711__MEXPAND_DEFSELECTOR; + /*iniroutlocvar*/ /*_._VALROUT___V1805*/ meltfptr[1804] = (melt_ptr_t) &meltcdat->drout_1711__MEXPAND_DEFSELECTOR; meltcdat->drout_1711__MEXPAND_DEFSELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1711__MEXPAND_DEFSELECTOR.routdescr, "MEXPAND_DEFSELECTOR @warmelt-macro.melt:4582", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1711__MEXPAND_DEFSELECTOR.nbval = 29; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1711__MEXPAND_DEFSELECTOR, meltrout_67_WARMELTmiMACRO_MEXPAND_DEFSELECTOR); /*iniclos dclo_1712__MEXPAND_DEFSELECTOR*/ - /*_._VALCLO___V1808*/ - meltfptr[1807] = (melt_ptr_t) &meltcdat->dclo_1712__MEXPAND_DEFSELECTOR; + /*_._VALCLO___V1808*/ meltfptr[1807] = (melt_ptr_t) &meltcdat->dclo_1712__MEXPAND_DEFSELECTOR; meltcdat->dclo_1712__MEXPAND_DEFSELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1712__MEXPAND_DEFSELECTOR.nbval = 0; /*iniobj dsym_1713__FORMALS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1806*/ meltfptr[1805]) + /*uniqueobj*/ if (!/*_._VALDATA___V1806*/ meltfptr[1805]) /*_._VALDATA___V1806*/ meltfptr[1805] = (melt_ptr_t )&meltcdat->dsym_1713__FORMALS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1713__FORMALS", 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_1713__FORMALS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27760,18 +24442,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1714__FORMALS*/ - /*_._VALSTR___V1807*/ - meltfptr[1806] = (melt_ptr_t) &meltcdat->dstr_1714__FORMALS; + /*_._VALSTR___V1807*/ meltfptr[1806] = (melt_ptr_t) &meltcdat->dstr_1714__FORMALS; meltcdat->dstr_1714__FORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1714__FORMALS.val, "FORMALS", sizeof (meltcdat->dstr_1714__FORMALS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1714__FORMALS.val, "FORMALS", sizeof (meltcdat->dstr_1714__FORMALS.val)-1); meltcdat->dstr_1714__FORMALS.val[7] = (char)0 ; meltcdat->dstr_1714__FORMALS.slen = 7 ; /*iniobj dsym_1715__DEFSELECTOR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1809*/ meltfptr[1808]) + /*uniqueobj*/ if (!/*_._VALDATA___V1809*/ meltfptr[1808]) /*_._VALDATA___V1809*/ meltfptr[1808] = (melt_ptr_t )&meltcdat->dsym_1715__DEFSELECTOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1715__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_1715__DEFSELECTOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27781,46 +24460,39 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1716__DEFSELECTOR*/ - /*_._VALSTR___V1810*/ - meltfptr[1809] = (melt_ptr_t) &meltcdat->dstr_1716__DEFSELECTOR; + /*_._VALSTR___V1810*/ meltfptr[1809] = (melt_ptr_t) &meltcdat->dstr_1716__DEFSELECTOR; meltcdat->dstr_1716__DEFSELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1716__DEFSELECTOR.val, "DEFSELECTOR", sizeof (meltcdat->dstr_1716__DEFSELECTOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1716__DEFSELECTOR.val, "DEFSELECTOR", sizeof (meltcdat->dstr_1716__DEFSELECTOR.val)-1); meltcdat->dstr_1716__DEFSELECTOR.val[11] = (char)0 ; meltcdat->dstr_1716__DEFSELECTOR.slen = 11 ; /*inirout drout_1717__MEXPAND_INSTANCE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1811*/ - meltfptr[1810] = (melt_ptr_t) &meltcdat->drout_1717__MEXPAND_INSTANCE; + /*iniroutlocvar*/ /*_._VALROUT___V1811*/ meltfptr[1810] = (melt_ptr_t) &meltcdat->drout_1717__MEXPAND_INSTANCE; meltcdat->drout_1717__MEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1717__MEXPAND_INSTANCE.routdescr, "MEXPAND_INSTANCE @warmelt-macro.melt:4726", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1717__MEXPAND_INSTANCE.nbval = 17; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1717__MEXPAND_INSTANCE, meltrout_68_WARMELTmiMACRO_MEXPAND_INSTANCE); /*iniclos dclo_1718__MEXPAND_INSTANCE*/ - /*_._VALCLO___V1812*/ - meltfptr[1811] = (melt_ptr_t) &meltcdat->dclo_1718__MEXPAND_INSTANCE; + /*_._VALCLO___V1812*/ meltfptr[1811] = (melt_ptr_t) &meltcdat->dclo_1718__MEXPAND_INSTANCE; meltcdat->dclo_1718__MEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1718__MEXPAND_INSTANCE.nbval = 0; /*inirout drout_1719__MEXPAND_LOAD*/ - /*iniroutlocvar*/ /*_._VALROUT___V1813*/ - meltfptr[1812] = (melt_ptr_t) &meltcdat->drout_1719__MEXPAND_LOAD; + /*iniroutlocvar*/ /*_._VALROUT___V1813*/ meltfptr[1812] = (melt_ptr_t) &meltcdat->drout_1719__MEXPAND_LOAD; meltcdat->drout_1719__MEXPAND_LOAD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1719__MEXPAND_LOAD.routdescr, "MEXPAND_LOAD @warmelt-macro.melt:4795", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1719__MEXPAND_LOAD.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1719__MEXPAND_LOAD, meltrout_69_WARMELTmiMACRO_MEXPAND_LOAD); /*iniclos dclo_1720__MEXPAND_LOAD*/ - /*_._VALCLO___V1814*/ - meltfptr[1813] = (melt_ptr_t) &meltcdat->dclo_1720__MEXPAND_LOAD; + /*_._VALCLO___V1814*/ meltfptr[1813] = (melt_ptr_t) &meltcdat->dclo_1720__MEXPAND_LOAD; meltcdat->dclo_1720__MEXPAND_LOAD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1720__MEXPAND_LOAD.nbval = 0; /*iniobj dsym_1721__LOAD*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1815*/ meltfptr[1814]) + /*uniqueobj*/ if (!/*_._VALDATA___V1815*/ meltfptr[1814]) /*_._VALDATA___V1815*/ meltfptr[1814] = (melt_ptr_t )&meltcdat->dsym_1721__LOAD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1721__LOAD", 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_1721__LOAD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27830,98 +24502,84 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1722__LOAD*/ - /*_._VALSTR___V1816*/ - meltfptr[1815] = (melt_ptr_t) &meltcdat->dstr_1722__LOAD; + /*_._VALSTR___V1816*/ meltfptr[1815] = (melt_ptr_t) &meltcdat->dstr_1722__LOAD; meltcdat->dstr_1722__LOAD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1722__LOAD.val, "LOAD", sizeof (meltcdat->dstr_1722__LOAD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1722__LOAD.val, "LOAD", sizeof (meltcdat->dstr_1722__LOAD.val)-1); meltcdat->dstr_1722__LOAD.val[4] = (char)0 ; meltcdat->dstr_1722__LOAD.slen = 4 ; /*inirout drout_1723__PARSE_FIELD_PATTERN*/ - /*iniroutlocvar*/ /*_._VALROUT___V1817*/ - meltfptr[1816] = (melt_ptr_t) &meltcdat->drout_1723__PARSE_FIELD_PATTERN; + /*iniroutlocvar*/ /*_._VALROUT___V1817*/ meltfptr[1816] = (melt_ptr_t) &meltcdat->drout_1723__PARSE_FIELD_PATTERN; meltcdat->drout_1723__PARSE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1723__PARSE_FIELD_PATTERN.routdescr, "PARSE_FIELD_PATTERN @warmelt-macro.melt:4836", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1723__PARSE_FIELD_PATTERN.nbval = 16; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1723__PARSE_FIELD_PATTERN, meltrout_70_WARMELTmiMACRO_PARSE_FIELD_PATTERN); /*iniclos dclo_1724__PARSE_FIELD_PATTERN*/ - /*_._VALCLO___V1819*/ - meltfptr[1818] = (melt_ptr_t) &meltcdat->dclo_1724__PARSE_FIELD_PATTERN; + /*_._VALCLO___V1819*/ meltfptr[1818] = (melt_ptr_t) &meltcdat->dclo_1724__PARSE_FIELD_PATTERN; meltcdat->dclo_1724__PARSE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1724__PARSE_FIELD_PATTERN.nbval = 0; /*inirout drout_1725__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1818*/ - meltfptr[1817] = (melt_ptr_t) &meltcdat->drout_1725__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1818*/ meltfptr[1817] = (melt_ptr_t) &meltcdat->drout_1725__LAMBDA_; meltcdat->drout_1725__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1725__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4851", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1725__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1725__LAMBDA_, meltrout_71_WARMELTmiMACRO_LAMBDA_cl9); /*inirout drout_1726__PATEXPAND_INSTANCE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1820*/ - meltfptr[1819] = (melt_ptr_t) &meltcdat->drout_1726__PATEXPAND_INSTANCE; + /*iniroutlocvar*/ /*_._VALROUT___V1820*/ meltfptr[1819] = (melt_ptr_t) &meltcdat->drout_1726__PATEXPAND_INSTANCE; meltcdat->drout_1726__PATEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1726__PATEXPAND_INSTANCE.routdescr, "PATEXPAND_INSTANCE @warmelt-macro.melt:4879", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1726__PATEXPAND_INSTANCE.nbval = 23; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1726__PATEXPAND_INSTANCE, meltrout_72_WARMELTmiMACRO_PATEXPAND_INSTANCE); /*iniclos dclo_1727__PATEXPAND_INSTANCE*/ - /*_._VALCLO___V1822*/ - meltfptr[1821] = (melt_ptr_t) &meltcdat->dclo_1727__PATEXPAND_INSTANCE; + /*_._VALCLO___V1822*/ meltfptr[1821] = (melt_ptr_t) &meltcdat->dclo_1727__PATEXPAND_INSTANCE; meltcdat->dclo_1727__PATEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1727__PATEXPAND_INSTANCE.nbval = 0; /*inirout drout_1728__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1821*/ - meltfptr[1820] = (melt_ptr_t) &meltcdat->drout_1728__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1821*/ meltfptr[1820] = (melt_ptr_t) &meltcdat->drout_1728__LAMBDA_; meltcdat->drout_1728__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1728__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4938", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1728__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1728__LAMBDA_, meltrout_73_WARMELTmiMACRO_LAMBDA_cl10); /*inirout drout_1729__PATEXPAND_OBJECT*/ - /*iniroutlocvar*/ /*_._VALROUT___V1823*/ - meltfptr[1822] = (melt_ptr_t) &meltcdat->drout_1729__PATEXPAND_OBJECT; + /*iniroutlocvar*/ /*_._VALROUT___V1823*/ meltfptr[1822] = (melt_ptr_t) &meltcdat->drout_1729__PATEXPAND_OBJECT; meltcdat->drout_1729__PATEXPAND_OBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1729__PATEXPAND_OBJECT.routdescr, "PATEXPAND_OBJECT @warmelt-macro.melt:4974", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1729__PATEXPAND_OBJECT.nbval = 23; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1729__PATEXPAND_OBJECT, meltrout_74_WARMELTmiMACRO_PATEXPAND_OBJECT); /*iniclos dclo_1730__PATEXPAND_OBJECT*/ - /*_._VALCLO___V1825*/ - meltfptr[1824] = (melt_ptr_t) &meltcdat->dclo_1730__PATEXPAND_OBJECT; + /*_._VALCLO___V1825*/ meltfptr[1824] = (melt_ptr_t) &meltcdat->dclo_1730__PATEXPAND_OBJECT; meltcdat->dclo_1730__PATEXPAND_OBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1730__PATEXPAND_OBJECT.nbval = 0; /*inirout drout_1731__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1824*/ - meltfptr[1823] = (melt_ptr_t) &meltcdat->drout_1731__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1824*/ meltfptr[1823] = (melt_ptr_t) &meltcdat->drout_1731__LAMBDA_; meltcdat->drout_1731__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1731__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5033", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1731__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1731__LAMBDA_, meltrout_75_WARMELTmiMACRO_LAMBDA_cl11); /*inirout drout_1732__MEXPAND_OBJECT*/ - /*iniroutlocvar*/ /*_._VALROUT___V1826*/ - meltfptr[1825] = (melt_ptr_t) &meltcdat->drout_1732__MEXPAND_OBJECT; + /*iniroutlocvar*/ /*_._VALROUT___V1826*/ meltfptr[1825] = (melt_ptr_t) &meltcdat->drout_1732__MEXPAND_OBJECT; meltcdat->drout_1732__MEXPAND_OBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1732__MEXPAND_OBJECT.routdescr, "MEXPAND_OBJECT @warmelt-macro.melt:5052", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1732__MEXPAND_OBJECT.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1732__MEXPAND_OBJECT, meltrout_76_WARMELTmiMACRO_MEXPAND_OBJECT); /*iniclos dclo_1733__MEXPAND_OBJECT*/ - /*_._VALCLO___V1827*/ - meltfptr[1826] = (melt_ptr_t) &meltcdat->dclo_1733__MEXPAND_OBJECT; + /*_._VALCLO___V1827*/ meltfptr[1826] = (melt_ptr_t) &meltcdat->dclo_1733__MEXPAND_OBJECT; meltcdat->dclo_1733__MEXPAND_OBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1733__MEXPAND_OBJECT.nbval = 0; /*iniobj dsym_1734__OBJECT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1828*/ meltfptr[1827]) + /*uniqueobj*/ if (!/*_._VALDATA___V1828*/ meltfptr[1827]) /*_._VALDATA___V1828*/ meltfptr[1827] = (melt_ptr_t )&meltcdat->dsym_1734__OBJECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1734__OBJECT", 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_1734__OBJECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27931,31 +24589,26 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1735__OBJECT*/ - /*_._VALSTR___V1829*/ - meltfptr[1828] = (melt_ptr_t) &meltcdat->dstr_1735__OBJECT; + /*_._VALSTR___V1829*/ meltfptr[1828] = (melt_ptr_t) &meltcdat->dstr_1735__OBJECT; meltcdat->dstr_1735__OBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1735__OBJECT.val, "OBJECT", sizeof (meltcdat->dstr_1735__OBJECT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1735__OBJECT.val, "OBJECT", sizeof (meltcdat->dstr_1735__OBJECT.val)-1); meltcdat->dstr_1735__OBJECT.val[6] = (char)0 ; meltcdat->dstr_1735__OBJECT.slen = 6 ; /*inirout drout_1736__EXPAND_MACROSTRING_PAIRS*/ - /*iniroutlocvar*/ /*_._VALROUT___V1830*/ - meltfptr[1829] = (melt_ptr_t) &meltcdat->drout_1736__EXPAND_MACROSTRING_PAIRS; + /*iniroutlocvar*/ /*_._VALROUT___V1830*/ meltfptr[1829] = (melt_ptr_t) &meltcdat->drout_1736__EXPAND_MACROSTRING_PAIRS; meltcdat->drout_1736__EXPAND_MACROSTRING_PAIRS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1736__EXPAND_MACROSTRING_PAIRS.routdescr, "EXPAND_MACROSTRING_PAIRS @warmelt-macro.melt:5077", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1736__EXPAND_MACROSTRING_PAIRS.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1736__EXPAND_MACROSTRING_PAIRS, meltrout_77_WARMELTmiMACRO_EXPAND_MACROSTRING_PAIRS); /*iniclos dclo_1737__EXPAND_MACROSTRING_PAIRS*/ - /*_._VALCLO___V1832*/ - meltfptr[1831] = (melt_ptr_t) &meltcdat->dclo_1737__EXPAND_MACROSTRING_PAIRS; + /*_._VALCLO___V1832*/ meltfptr[1831] = (melt_ptr_t) &meltcdat->dclo_1737__EXPAND_MACROSTRING_PAIRS; meltcdat->dclo_1737__EXPAND_MACROSTRING_PAIRS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1737__EXPAND_MACROSTRING_PAIRS.nbval = 0; /*inirout drout_1738__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1831*/ - meltfptr[1830] = (melt_ptr_t) &meltcdat->drout_1738__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1831*/ meltfptr[1830] = (melt_ptr_t) &meltcdat->drout_1738__LAMBDA_; meltcdat->drout_1738__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1738__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5085", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1738__LAMBDA_.nbval = 5; @@ -27963,8 +24616,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*iniobj dsym_1739__CLASS_SEXPR_MACROSTRING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1833*/ meltfptr[1832]) + /*uniqueobj*/ if (!/*_._VALDATA___V1833*/ meltfptr[1832]) /*_._VALDATA___V1833*/ meltfptr[1832] = (melt_ptr_t )&meltcdat->dsym_1739__CLASS_SEXPR_MACROSTRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1739__CLASS_SEXPR_MACROSTRING", 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_1739__CLASS_SEXPR_MACROSTRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -27974,32 +24626,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1740__CLASS_SEXPR_MACROSTRING*/ - /*_._VALSTR___V1834*/ - meltfptr[1833] = (melt_ptr_t) &meltcdat->dstr_1740__CLASS_SEXPR_MACROSTRING; + /*_._VALSTR___V1834*/ meltfptr[1833] = (melt_ptr_t) &meltcdat->dstr_1740__CLASS_SEXPR_MACROSTRING; meltcdat->dstr_1740__CLASS_SEXPR_MACROSTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1740__CLASS_SEXPR_MACROSTRING.val, "CLASS_SEXPR_MACROSTRING", sizeof (meltcdat->dstr_1740__CLASS_SEXPR_MACROSTRING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1740__CLASS_SEXPR_MACROSTRING.val, "CLASS_SEXPR_MACROSTRING", sizeof (meltcdat->dstr_1740__CLASS_SEXPR_MACROSTRING.val)-1); meltcdat->dstr_1740__CLASS_SEXPR_MACROSTRING.val[23] = (char)0 ; meltcdat->dstr_1740__CLASS_SEXPR_MACROSTRING.slen = 23 ; /*inirout drout_1741__MEXPAND_CODE_CHUNK*/ - /*iniroutlocvar*/ /*_._VALROUT___V1835*/ - meltfptr[1834] = (melt_ptr_t) &meltcdat->drout_1741__MEXPAND_CODE_CHUNK; + /*iniroutlocvar*/ /*_._VALROUT___V1835*/ meltfptr[1834] = (melt_ptr_t) &meltcdat->drout_1741__MEXPAND_CODE_CHUNK; meltcdat->drout_1741__MEXPAND_CODE_CHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1741__MEXPAND_CODE_CHUNK.routdescr, "MEXPAND_CODE_CHUNK @warmelt-macro.melt:5127", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1741__MEXPAND_CODE_CHUNK.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1741__MEXPAND_CODE_CHUNK, meltrout_79_WARMELTmiMACRO_MEXPAND_CODE_CHUNK); /*iniclos dclo_1742__MEXPAND_CODE_CHUNK*/ - /*_._VALCLO___V1836*/ - meltfptr[1835] = (melt_ptr_t) &meltcdat->dclo_1742__MEXPAND_CODE_CHUNK; + /*_._VALCLO___V1836*/ meltfptr[1835] = (melt_ptr_t) &meltcdat->dclo_1742__MEXPAND_CODE_CHUNK; meltcdat->dclo_1742__MEXPAND_CODE_CHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1742__MEXPAND_CODE_CHUNK.nbval = 0; /*iniobj dsym_1743__CODE_CHUNK*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1837*/ meltfptr[1836]) + /*uniqueobj*/ if (!/*_._VALDATA___V1837*/ meltfptr[1836]) /*_._VALDATA___V1837*/ meltfptr[1836] = (melt_ptr_t )&meltcdat->dsym_1743__CODE_CHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1743__CODE_CHUNK", 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_1743__CODE_CHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28009,32 +24656,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1744__CODE_CHUNK*/ - /*_._VALSTR___V1838*/ - meltfptr[1837] = (melt_ptr_t) &meltcdat->dstr_1744__CODE_CHUNK; + /*_._VALSTR___V1838*/ meltfptr[1837] = (melt_ptr_t) &meltcdat->dstr_1744__CODE_CHUNK; meltcdat->dstr_1744__CODE_CHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1744__CODE_CHUNK.val, "CODE_CHUNK", sizeof (meltcdat->dstr_1744__CODE_CHUNK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1744__CODE_CHUNK.val, "CODE_CHUNK", sizeof (meltcdat->dstr_1744__CODE_CHUNK.val)-1); meltcdat->dstr_1744__CODE_CHUNK.val[10] = (char)0 ; meltcdat->dstr_1744__CODE_CHUNK.slen = 10 ; /*inirout drout_1745__MEXPAND_EXPR_CHUNK*/ - /*iniroutlocvar*/ /*_._VALROUT___V1839*/ - meltfptr[1838] = (melt_ptr_t) &meltcdat->drout_1745__MEXPAND_EXPR_CHUNK; + /*iniroutlocvar*/ /*_._VALROUT___V1839*/ meltfptr[1838] = (melt_ptr_t) &meltcdat->drout_1745__MEXPAND_EXPR_CHUNK; meltcdat->drout_1745__MEXPAND_EXPR_CHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1745__MEXPAND_EXPR_CHUNK.routdescr, "MEXPAND_EXPR_CHUNK @warmelt-macro.melt:5166", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1745__MEXPAND_EXPR_CHUNK.nbval = 13; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1745__MEXPAND_EXPR_CHUNK, meltrout_80_WARMELTmiMACRO_MEXPAND_EXPR_CHUNK); /*iniclos dclo_1746__MEXPAND_EXPR_CHUNK*/ - /*_._VALCLO___V1840*/ - meltfptr[1839] = (melt_ptr_t) &meltcdat->dclo_1746__MEXPAND_EXPR_CHUNK; + /*_._VALCLO___V1840*/ meltfptr[1839] = (melt_ptr_t) &meltcdat->dclo_1746__MEXPAND_EXPR_CHUNK; meltcdat->dclo_1746__MEXPAND_EXPR_CHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1746__MEXPAND_EXPR_CHUNK.nbval = 0; /*iniobj dsym_1747__EXPR_CHUNK*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1841*/ meltfptr[1840]) + /*uniqueobj*/ if (!/*_._VALDATA___V1841*/ meltfptr[1840]) /*_._VALDATA___V1841*/ meltfptr[1840] = (melt_ptr_t )&meltcdat->dsym_1747__EXPR_CHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1747__EXPR_CHUNK", 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_1747__EXPR_CHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28044,32 +24686,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1748__EXPR_CHUNK*/ - /*_._VALSTR___V1842*/ - meltfptr[1841] = (melt_ptr_t) &meltcdat->dstr_1748__EXPR_CHUNK; + /*_._VALSTR___V1842*/ meltfptr[1841] = (melt_ptr_t) &meltcdat->dstr_1748__EXPR_CHUNK; meltcdat->dstr_1748__EXPR_CHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1748__EXPR_CHUNK.val, "EXPR_CHUNK", sizeof (meltcdat->dstr_1748__EXPR_CHUNK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1748__EXPR_CHUNK.val, "EXPR_CHUNK", sizeof (meltcdat->dstr_1748__EXPR_CHUNK.val)-1); meltcdat->dstr_1748__EXPR_CHUNK.val[10] = (char)0 ; meltcdat->dstr_1748__EXPR_CHUNK.slen = 10 ; /*inirout drout_1749__MEXPAND_UNSAFE_PUT_FIELDS*/ - /*iniroutlocvar*/ /*_._VALROUT___V1843*/ - meltfptr[1842] = (melt_ptr_t) &meltcdat->drout_1749__MEXPAND_UNSAFE_PUT_FIELDS; + /*iniroutlocvar*/ /*_._VALROUT___V1843*/ meltfptr[1842] = (melt_ptr_t) &meltcdat->drout_1749__MEXPAND_UNSAFE_PUT_FIELDS; meltcdat->drout_1749__MEXPAND_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1749__MEXPAND_UNSAFE_PUT_FIELDS.routdescr, "MEXPAND_UNSAFE_PUT_FIELDS @warmelt-macro.melt:5235", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1749__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1749__MEXPAND_UNSAFE_PUT_FIELDS, meltrout_81_WARMELTmiMACRO_MEXPAND_UNSAFE_PUT_FIELDS); /*iniclos dclo_1750__MEXPAND_UNSAFE_PUT_FIELDS*/ - /*_._VALCLO___V1844*/ - meltfptr[1843] = (melt_ptr_t) &meltcdat->dclo_1750__MEXPAND_UNSAFE_PUT_FIELDS; + /*_._VALCLO___V1844*/ meltfptr[1843] = (melt_ptr_t) &meltcdat->dclo_1750__MEXPAND_UNSAFE_PUT_FIELDS; meltcdat->dclo_1750__MEXPAND_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1750__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 0; /*iniobj dsym_1751__UNSAFE_PUT_FIELDS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1845*/ meltfptr[1844]) + /*uniqueobj*/ if (!/*_._VALDATA___V1845*/ meltfptr[1844]) /*_._VALDATA___V1845*/ meltfptr[1844] = (melt_ptr_t )&meltcdat->dsym_1751__UNSAFE_PUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1751__UNSAFE_PUT_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_1751__UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28079,32 +24716,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1752__UNSAFE_PUT_FIELDS*/ - /*_._VALSTR___V1846*/ - meltfptr[1845] = (melt_ptr_t) &meltcdat->dstr_1752__UNSAFE_PUT_FIELDS; + /*_._VALSTR___V1846*/ meltfptr[1845] = (melt_ptr_t) &meltcdat->dstr_1752__UNSAFE_PUT_FIELDS; meltcdat->dstr_1752__UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1752__UNSAFE_PUT_FIELDS.val, "UNSAFE_PUT_FIELDS", sizeof (meltcdat->dstr_1752__UNSAFE_PUT_FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1752__UNSAFE_PUT_FIELDS.val, "UNSAFE_PUT_FIELDS", sizeof (meltcdat->dstr_1752__UNSAFE_PUT_FIELDS.val)-1); meltcdat->dstr_1752__UNSAFE_PUT_FIELDS.val[17] = (char)0 ; meltcdat->dstr_1752__UNSAFE_PUT_FIELDS.slen = 17 ; /*inirout drout_1753__MEXPAND_PUT_FIELDS*/ - /*iniroutlocvar*/ /*_._VALROUT___V1847*/ - meltfptr[1846] = (melt_ptr_t) &meltcdat->drout_1753__MEXPAND_PUT_FIELDS; + /*iniroutlocvar*/ /*_._VALROUT___V1847*/ meltfptr[1846] = (melt_ptr_t) &meltcdat->drout_1753__MEXPAND_PUT_FIELDS; meltcdat->drout_1753__MEXPAND_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1753__MEXPAND_PUT_FIELDS.routdescr, "MEXPAND_PUT_FIELDS @warmelt-macro.melt:5283", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1753__MEXPAND_PUT_FIELDS.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1753__MEXPAND_PUT_FIELDS, meltrout_82_WARMELTmiMACRO_MEXPAND_PUT_FIELDS); /*iniclos dclo_1754__MEXPAND_PUT_FIELDS*/ - /*_._VALCLO___V1848*/ - meltfptr[1847] = (melt_ptr_t) &meltcdat->dclo_1754__MEXPAND_PUT_FIELDS; + /*_._VALCLO___V1848*/ meltfptr[1847] = (melt_ptr_t) &meltcdat->dclo_1754__MEXPAND_PUT_FIELDS; meltcdat->dclo_1754__MEXPAND_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1754__MEXPAND_PUT_FIELDS.nbval = 0; /*iniobj dsym_1755__PUT_FIELDS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1849*/ meltfptr[1848]) + /*uniqueobj*/ if (!/*_._VALDATA___V1849*/ meltfptr[1848]) /*_._VALDATA___V1849*/ meltfptr[1848] = (melt_ptr_t )&meltcdat->dsym_1755__PUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1755__PUT_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_1755__PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28114,96 +24746,82 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1756__PUT_FIELDS*/ - /*_._VALSTR___V1850*/ - meltfptr[1849] = (melt_ptr_t) &meltcdat->dstr_1756__PUT_FIELDS; + /*_._VALSTR___V1850*/ meltfptr[1849] = (melt_ptr_t) &meltcdat->dstr_1756__PUT_FIELDS; meltcdat->dstr_1756__PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1756__PUT_FIELDS.val, "PUT_FIELDS", sizeof (meltcdat->dstr_1756__PUT_FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1756__PUT_FIELDS.val, "PUT_FIELDS", sizeof (meltcdat->dstr_1756__PUT_FIELDS.val)-1); meltcdat->dstr_1756__PUT_FIELDS.val[10] = (char)0 ; meltcdat->dstr_1756__PUT_FIELDS.slen = 10 ; /*inirout drout_1757__MEXPAND_UNSAFE_GET_FIELD*/ - /*iniroutlocvar*/ /*_._VALROUT___V1851*/ - meltfptr[1850] = (melt_ptr_t) &meltcdat->drout_1757__MEXPAND_UNSAFE_GET_FIELD; + /*iniroutlocvar*/ /*_._VALROUT___V1851*/ meltfptr[1850] = (melt_ptr_t) &meltcdat->drout_1757__MEXPAND_UNSAFE_GET_FIELD; meltcdat->drout_1757__MEXPAND_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1757__MEXPAND_UNSAFE_GET_FIELD.routdescr, "MEXPAND_UNSAFE_GET_FIELD @warmelt-macro.melt:5330", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1757__MEXPAND_UNSAFE_GET_FIELD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1757__MEXPAND_UNSAFE_GET_FIELD, meltrout_83_WARMELTmiMACRO_MEXPAND_UNSAFE_GET_FIELD); /*iniclos dclo_1758__MEXPAND_UNSAFE_GET_FIELD*/ - /*_._VALCLO___V1852*/ - meltfptr[1851] = (melt_ptr_t) &meltcdat->dclo_1758__MEXPAND_UNSAFE_GET_FIELD; + /*_._VALCLO___V1852*/ meltfptr[1851] = (melt_ptr_t) &meltcdat->dclo_1758__MEXPAND_UNSAFE_GET_FIELD; meltcdat->dclo_1758__MEXPAND_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1758__MEXPAND_UNSAFE_GET_FIELD.nbval = 0; /*inirout drout_1759__MEXPAND_GET_FIELD*/ - /*iniroutlocvar*/ /*_._VALROUT___V1853*/ - meltfptr[1852] = (melt_ptr_t) &meltcdat->drout_1759__MEXPAND_GET_FIELD; + /*iniroutlocvar*/ /*_._VALROUT___V1853*/ meltfptr[1852] = (melt_ptr_t) &meltcdat->drout_1759__MEXPAND_GET_FIELD; meltcdat->drout_1759__MEXPAND_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1759__MEXPAND_GET_FIELD.routdescr, "MEXPAND_GET_FIELD @warmelt-macro.melt:5371", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1759__MEXPAND_GET_FIELD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1759__MEXPAND_GET_FIELD, meltrout_84_WARMELTmiMACRO_MEXPAND_GET_FIELD); /*iniclos dclo_1760__MEXPAND_GET_FIELD*/ - /*_._VALCLO___V1854*/ - meltfptr[1853] = (melt_ptr_t) &meltcdat->dclo_1760__MEXPAND_GET_FIELD; + /*_._VALCLO___V1854*/ meltfptr[1853] = (melt_ptr_t) &meltcdat->dclo_1760__MEXPAND_GET_FIELD; meltcdat->dclo_1760__MEXPAND_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1760__MEXPAND_GET_FIELD.nbval = 0; /*inirout drout_1761__PAIRLIST_TO_PROGN*/ - /*iniroutlocvar*/ /*_._VALROUT___V1855*/ - meltfptr[1854] = (melt_ptr_t) &meltcdat->drout_1761__PAIRLIST_TO_PROGN; + /*iniroutlocvar*/ /*_._VALROUT___V1855*/ meltfptr[1854] = (melt_ptr_t) &meltcdat->drout_1761__PAIRLIST_TO_PROGN; meltcdat->drout_1761__PAIRLIST_TO_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1761__PAIRLIST_TO_PROGN.routdescr, "PAIRLIST_TO_PROGN @warmelt-macro.melt:5412", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1761__PAIRLIST_TO_PROGN.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1761__PAIRLIST_TO_PROGN, meltrout_85_WARMELTmiMACRO_PAIRLIST_TO_PROGN); /*iniclos dclo_1762__PAIRLIST_TO_PROGN*/ - /*_._VALCLO___V1857*/ - meltfptr[1856] = (melt_ptr_t) &meltcdat->dclo_1762__PAIRLIST_TO_PROGN; + /*_._VALCLO___V1857*/ meltfptr[1856] = (melt_ptr_t) &meltcdat->dclo_1762__PAIRLIST_TO_PROGN; meltcdat->dclo_1762__PAIRLIST_TO_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1762__PAIRLIST_TO_PROGN.nbval = 0; /*inirout drout_1763__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1856*/ - meltfptr[1855] = (melt_ptr_t) &meltcdat->drout_1763__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1856*/ meltfptr[1855] = (melt_ptr_t) &meltcdat->drout_1763__LAMBDA_; meltcdat->drout_1763__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1763__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5420", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1763__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1763__LAMBDA_, meltrout_86_WARMELTmiMACRO_LAMBDA_cl13); /*inirout drout_1764__MEXPAND_SETQ*/ - /*iniroutlocvar*/ /*_._VALROUT___V1858*/ - meltfptr[1857] = (melt_ptr_t) &meltcdat->drout_1764__MEXPAND_SETQ; + /*iniroutlocvar*/ /*_._VALROUT___V1858*/ meltfptr[1857] = (melt_ptr_t) &meltcdat->drout_1764__MEXPAND_SETQ; meltcdat->drout_1764__MEXPAND_SETQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1764__MEXPAND_SETQ.routdescr, "MEXPAND_SETQ @warmelt-macro.melt:5431", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1764__MEXPAND_SETQ.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1764__MEXPAND_SETQ, meltrout_87_WARMELTmiMACRO_MEXPAND_SETQ); /*iniclos dclo_1765__MEXPAND_SETQ*/ - /*_._VALCLO___V1859*/ - meltfptr[1858] = (melt_ptr_t) &meltcdat->dclo_1765__MEXPAND_SETQ; + /*_._VALCLO___V1859*/ meltfptr[1858] = (melt_ptr_t) &meltcdat->dclo_1765__MEXPAND_SETQ; meltcdat->dclo_1765__MEXPAND_SETQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1765__MEXPAND_SETQ.nbval = 0; /*inirout drout_1766__MEXPAND_IF*/ - /*iniroutlocvar*/ /*_._VALROUT___V1860*/ - meltfptr[1859] = (melt_ptr_t) &meltcdat->drout_1766__MEXPAND_IF; + /*iniroutlocvar*/ /*_._VALROUT___V1860*/ meltfptr[1859] = (melt_ptr_t) &meltcdat->drout_1766__MEXPAND_IF; meltcdat->drout_1766__MEXPAND_IF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1766__MEXPAND_IF.routdescr, "MEXPAND_IF @warmelt-macro.melt:5462", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1766__MEXPAND_IF.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1766__MEXPAND_IF, meltrout_88_WARMELTmiMACRO_MEXPAND_IF); /*iniclos dclo_1767__MEXPAND_IF*/ - /*_._VALCLO___V1861*/ - meltfptr[1860] = (melt_ptr_t) &meltcdat->dclo_1767__MEXPAND_IF; + /*_._VALCLO___V1861*/ meltfptr[1860] = (melt_ptr_t) &meltcdat->dclo_1767__MEXPAND_IF; meltcdat->dclo_1767__MEXPAND_IF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1767__MEXPAND_IF.nbval = 0; /*iniobj dsym_1768__IF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1862*/ meltfptr[1861]) + /*uniqueobj*/ if (!/*_._VALDATA___V1862*/ meltfptr[1861]) /*_._VALDATA___V1862*/ meltfptr[1861] = (melt_ptr_t )&meltcdat->dsym_1768__IF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1768__IF", 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_1768__IF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28213,32 +24831,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1769__IF*/ - /*_._VALSTR___V1863*/ - meltfptr[1862] = (melt_ptr_t) &meltcdat->dstr_1769__IF; + /*_._VALSTR___V1863*/ meltfptr[1862] = (melt_ptr_t) &meltcdat->dstr_1769__IF; meltcdat->dstr_1769__IF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1769__IF.val, "IF", sizeof (meltcdat->dstr_1769__IF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1769__IF.val, "IF", sizeof (meltcdat->dstr_1769__IF.val)-1); meltcdat->dstr_1769__IF.val[2] = (char)0 ; meltcdat->dstr_1769__IF.slen = 2 ; /*inirout drout_1770__MEXPAND_WHEN*/ - /*iniroutlocvar*/ /*_._VALROUT___V1864*/ - meltfptr[1863] = (melt_ptr_t) &meltcdat->drout_1770__MEXPAND_WHEN; + /*iniroutlocvar*/ /*_._VALROUT___V1864*/ meltfptr[1863] = (melt_ptr_t) &meltcdat->drout_1770__MEXPAND_WHEN; meltcdat->drout_1770__MEXPAND_WHEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1770__MEXPAND_WHEN.routdescr, "MEXPAND_WHEN @warmelt-macro.melt:5516", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1770__MEXPAND_WHEN.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1770__MEXPAND_WHEN, meltrout_89_WARMELTmiMACRO_MEXPAND_WHEN); /*iniclos dclo_1771__MEXPAND_WHEN*/ - /*_._VALCLO___V1865*/ - meltfptr[1864] = (melt_ptr_t) &meltcdat->dclo_1771__MEXPAND_WHEN; + /*_._VALCLO___V1865*/ meltfptr[1864] = (melt_ptr_t) &meltcdat->dclo_1771__MEXPAND_WHEN; meltcdat->dclo_1771__MEXPAND_WHEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1771__MEXPAND_WHEN.nbval = 0; /*iniobj dsym_1772__WHEN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1866*/ meltfptr[1865]) + /*uniqueobj*/ if (!/*_._VALDATA___V1866*/ meltfptr[1865]) /*_._VALDATA___V1866*/ meltfptr[1865] = (melt_ptr_t )&meltcdat->dsym_1772__WHEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1772__WHEN", 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_1772__WHEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28248,32 +24861,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1773__WHEN*/ - /*_._VALSTR___V1867*/ - meltfptr[1866] = (melt_ptr_t) &meltcdat->dstr_1773__WHEN; + /*_._VALSTR___V1867*/ meltfptr[1866] = (melt_ptr_t) &meltcdat->dstr_1773__WHEN; meltcdat->dstr_1773__WHEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1773__WHEN.val, "WHEN", sizeof (meltcdat->dstr_1773__WHEN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1773__WHEN.val, "WHEN", sizeof (meltcdat->dstr_1773__WHEN.val)-1); meltcdat->dstr_1773__WHEN.val[4] = (char)0 ; meltcdat->dstr_1773__WHEN.slen = 4 ; /*inirout drout_1774__MEXPAND_UNLESS*/ - /*iniroutlocvar*/ /*_._VALROUT___V1868*/ - meltfptr[1867] = (melt_ptr_t) &meltcdat->drout_1774__MEXPAND_UNLESS; + /*iniroutlocvar*/ /*_._VALROUT___V1868*/ meltfptr[1867] = (melt_ptr_t) &meltcdat->drout_1774__MEXPAND_UNLESS; meltcdat->drout_1774__MEXPAND_UNLESS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1774__MEXPAND_UNLESS.routdescr, "MEXPAND_UNLESS @warmelt-macro.melt:5552", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1774__MEXPAND_UNLESS.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1774__MEXPAND_UNLESS, meltrout_90_WARMELTmiMACRO_MEXPAND_UNLESS); /*iniclos dclo_1775__MEXPAND_UNLESS*/ - /*_._VALCLO___V1869*/ - meltfptr[1868] = (melt_ptr_t) &meltcdat->dclo_1775__MEXPAND_UNLESS; + /*_._VALCLO___V1869*/ meltfptr[1868] = (melt_ptr_t) &meltcdat->dclo_1775__MEXPAND_UNLESS; meltcdat->dclo_1775__MEXPAND_UNLESS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1775__MEXPAND_UNLESS.nbval = 0; /*iniobj dsym_1776__UNLESS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1870*/ meltfptr[1869]) + /*uniqueobj*/ if (!/*_._VALDATA___V1870*/ meltfptr[1869]) /*_._VALDATA___V1870*/ meltfptr[1869] = (melt_ptr_t )&meltcdat->dsym_1776__UNLESS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1776__UNLESS", 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_1776__UNLESS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28283,31 +24891,26 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1777__UNLESS*/ - /*_._VALSTR___V1871*/ - meltfptr[1870] = (melt_ptr_t) &meltcdat->dstr_1777__UNLESS; + /*_._VALSTR___V1871*/ meltfptr[1870] = (melt_ptr_t) &meltcdat->dstr_1777__UNLESS; meltcdat->dstr_1777__UNLESS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1777__UNLESS.val, "UNLESS", sizeof (meltcdat->dstr_1777__UNLESS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1777__UNLESS.val, "UNLESS", sizeof (meltcdat->dstr_1777__UNLESS.val)-1); meltcdat->dstr_1777__UNLESS.val[6] = (char)0 ; meltcdat->dstr_1777__UNLESS.slen = 6 ; /*inirout drout_1778__MEXPAND_WITH_CLONED_SYMB*/ - /*iniroutlocvar*/ /*_._VALROUT___V1872*/ - meltfptr[1871] = (melt_ptr_t) &meltcdat->drout_1778__MEXPAND_WITH_CLONED_SYMB; + /*iniroutlocvar*/ /*_._VALROUT___V1872*/ meltfptr[1871] = (melt_ptr_t) &meltcdat->drout_1778__MEXPAND_WITH_CLONED_SYMB; meltcdat->drout_1778__MEXPAND_WITH_CLONED_SYMB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1778__MEXPAND_WITH_CLONED_SYMB.routdescr, "MEXPAND_WITH_CLONED_SYMB @warmelt-macro.melt:5591", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1778__MEXPAND_WITH_CLONED_SYMB.nbval = 25; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1778__MEXPAND_WITH_CLONED_SYMB, meltrout_91_WARMELTmiMACRO_MEXPAND_WITH_CLONED_SYMB); /*iniclos dclo_1779__MEXPAND_WITH_CLONED_SYMB*/ - /*_._VALCLO___V1876*/ - meltfptr[1875] = (melt_ptr_t) &meltcdat->dclo_1779__MEXPAND_WITH_CLONED_SYMB; + /*_._VALCLO___V1876*/ meltfptr[1875] = (melt_ptr_t) &meltcdat->dclo_1779__MEXPAND_WITH_CLONED_SYMB; meltcdat->dclo_1779__MEXPAND_WITH_CLONED_SYMB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1779__MEXPAND_WITH_CLONED_SYMB.nbval = 0; /*inirout drout_1780__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1873*/ - meltfptr[1872] = (melt_ptr_t) &meltcdat->drout_1780__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1873*/ meltfptr[1872] = (melt_ptr_t) &meltcdat->drout_1780__LAMBDA_; meltcdat->drout_1780__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1780__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5606", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1780__LAMBDA_.nbval = 13; @@ -28315,8 +24918,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*iniobj dsym_1781__CLONE_SYMBOL*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1874*/ meltfptr[1873]) + /*uniqueobj*/ if (!/*_._VALDATA___V1874*/ meltfptr[1873]) /*_._VALDATA___V1874*/ meltfptr[1873] = (melt_ptr_t )&meltcdat->dsym_1781__CLONE_SYMBOL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1781__CLONE_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_1781__CLONE_SYMBOL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28326,18 +24928,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1782__CLONE_SYMBOL*/ - /*_._VALSTR___V1875*/ - meltfptr[1874] = (melt_ptr_t) &meltcdat->dstr_1782__CLONE_SYMBOL; + /*_._VALSTR___V1875*/ meltfptr[1874] = (melt_ptr_t) &meltcdat->dstr_1782__CLONE_SYMBOL; meltcdat->dstr_1782__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1782__CLONE_SYMBOL.val, "CLONE_SYMBOL", sizeof (meltcdat->dstr_1782__CLONE_SYMBOL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1782__CLONE_SYMBOL.val, "CLONE_SYMBOL", sizeof (meltcdat->dstr_1782__CLONE_SYMBOL.val)-1); meltcdat->dstr_1782__CLONE_SYMBOL.val[12] = (char)0 ; meltcdat->dstr_1782__CLONE_SYMBOL.slen = 12 ; /*iniobj dsym_1783__MULTIPLE_TO_LIST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1877*/ meltfptr[1876]) + /*uniqueobj*/ if (!/*_._VALDATA___V1877*/ meltfptr[1876]) /*_._VALDATA___V1877*/ meltfptr[1876] = (melt_ptr_t )&meltcdat->dsym_1783__MULTIPLE_TO_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1783__MULTIPLE_TO_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_1783__MULTIPLE_TO_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28347,18 +24946,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1784__MULTIPLE_TO_LIST*/ - /*_._VALSTR___V1878*/ - meltfptr[1877] = (melt_ptr_t) &meltcdat->dstr_1784__MULTIPLE_TO_LIST; + /*_._VALSTR___V1878*/ meltfptr[1877] = (melt_ptr_t) &meltcdat->dstr_1784__MULTIPLE_TO_LIST; meltcdat->dstr_1784__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1784__MULTIPLE_TO_LIST.val, "MULTIPLE_TO_LIST", sizeof (meltcdat->dstr_1784__MULTIPLE_TO_LIST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1784__MULTIPLE_TO_LIST.val, "MULTIPLE_TO_LIST", sizeof (meltcdat->dstr_1784__MULTIPLE_TO_LIST.val)-1); meltcdat->dstr_1784__MULTIPLE_TO_LIST.val[16] = (char)0 ; meltcdat->dstr_1784__MULTIPLE_TO_LIST.slen = 16 ; /*iniobj dsym_1785__WITH_CLONED_SYMB*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1879*/ meltfptr[1878]) + /*uniqueobj*/ if (!/*_._VALDATA___V1879*/ meltfptr[1878]) /*_._VALDATA___V1879*/ meltfptr[1878] = (melt_ptr_t )&meltcdat->dsym_1785__WITH_CLONED_SYMB; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1785__WITH_CLONED_SYMB", 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_1785__WITH_CLONED_SYMB", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28368,32 +24964,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1786__WITH_CLONED_SYMB*/ - /*_._VALSTR___V1880*/ - meltfptr[1879] = (melt_ptr_t) &meltcdat->dstr_1786__WITH_CLONED_SYMB; + /*_._VALSTR___V1880*/ meltfptr[1879] = (melt_ptr_t) &meltcdat->dstr_1786__WITH_CLONED_SYMB; meltcdat->dstr_1786__WITH_CLONED_SYMB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1786__WITH_CLONED_SYMB.val, "WITH_CLONED_SYMB", sizeof (meltcdat->dstr_1786__WITH_CLONED_SYMB.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1786__WITH_CLONED_SYMB.val, "WITH_CLONED_SYMB", sizeof (meltcdat->dstr_1786__WITH_CLONED_SYMB.val)-1); meltcdat->dstr_1786__WITH_CLONED_SYMB.val[16] = (char)0 ; meltcdat->dstr_1786__WITH_CLONED_SYMB.slen = 16 ; /*inirout drout_1787__MEXPAND_CPPIF*/ - /*iniroutlocvar*/ /*_._VALROUT___V1881*/ - meltfptr[1880] = (melt_ptr_t) &meltcdat->drout_1787__MEXPAND_CPPIF; + /*iniroutlocvar*/ /*_._VALROUT___V1881*/ meltfptr[1880] = (melt_ptr_t) &meltcdat->drout_1787__MEXPAND_CPPIF; meltcdat->drout_1787__MEXPAND_CPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1787__MEXPAND_CPPIF.routdescr, "MEXPAND_CPPIF @warmelt-macro.melt:5692", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1787__MEXPAND_CPPIF.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1787__MEXPAND_CPPIF, meltrout_93_WARMELTmiMACRO_MEXPAND_CPPIF); /*iniclos dclo_1788__MEXPAND_CPPIF*/ - /*_._VALCLO___V1882*/ - meltfptr[1881] = (melt_ptr_t) &meltcdat->dclo_1788__MEXPAND_CPPIF; + /*_._VALCLO___V1882*/ meltfptr[1881] = (melt_ptr_t) &meltcdat->dclo_1788__MEXPAND_CPPIF; meltcdat->dclo_1788__MEXPAND_CPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1788__MEXPAND_CPPIF.nbval = 0; /*iniobj dsym_1789__CPPIF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1883*/ meltfptr[1882]) + /*uniqueobj*/ if (!/*_._VALDATA___V1883*/ meltfptr[1882]) /*_._VALDATA___V1883*/ meltfptr[1882] = (melt_ptr_t )&meltcdat->dsym_1789__CPPIF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1789__CPPIF", 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_1789__CPPIF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28403,90 +24994,77 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1790__CPPIF*/ - /*_._VALSTR___V1884*/ - meltfptr[1883] = (melt_ptr_t) &meltcdat->dstr_1790__CPPIF; + /*_._VALSTR___V1884*/ meltfptr[1883] = (melt_ptr_t) &meltcdat->dstr_1790__CPPIF; meltcdat->dstr_1790__CPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1790__CPPIF.val, "CPPIF", sizeof (meltcdat->dstr_1790__CPPIF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1790__CPPIF.val, "CPPIF", sizeof (meltcdat->dstr_1790__CPPIF.val)-1); meltcdat->dstr_1790__CPPIF.val[5] = (char)0 ; meltcdat->dstr_1790__CPPIF.slen = 5 ; /*inirout drout_1791__MEXPAND_COND*/ - /*iniroutlocvar*/ /*_._VALROUT___V1885*/ - meltfptr[1884] = (melt_ptr_t) &meltcdat->drout_1791__MEXPAND_COND; + /*iniroutlocvar*/ /*_._VALROUT___V1885*/ meltfptr[1884] = (melt_ptr_t) &meltcdat->drout_1791__MEXPAND_COND; meltcdat->drout_1791__MEXPAND_COND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1791__MEXPAND_COND.routdescr, "MEXPAND_COND @warmelt-macro.melt:5748", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1791__MEXPAND_COND.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1791__MEXPAND_COND, meltrout_94_WARMELTmiMACRO_MEXPAND_COND); /*iniclos dclo_1792__MEXPAND_COND*/ - /*_._VALCLO___V1887*/ - meltfptr[1886] = (melt_ptr_t) &meltcdat->dclo_1792__MEXPAND_COND; + /*_._VALCLO___V1887*/ meltfptr[1886] = (melt_ptr_t) &meltcdat->dclo_1792__MEXPAND_COND; meltcdat->dclo_1792__MEXPAND_COND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1792__MEXPAND_COND.nbval = 0; /*inirout drout_1793__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1886*/ - meltfptr[1885] = (melt_ptr_t) &meltcdat->drout_1793__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1886*/ meltfptr[1885] = (melt_ptr_t) &meltcdat->drout_1793__LAMBDA_; meltcdat->drout_1793__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1793__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5758", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1793__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1793__LAMBDA_, meltrout_95_WARMELTmiMACRO_LAMBDA_cl15); /*inirout drout_1794__MEXPAND_AND*/ - /*iniroutlocvar*/ /*_._VALROUT___V1888*/ - meltfptr[1887] = (melt_ptr_t) &meltcdat->drout_1794__MEXPAND_AND; + /*iniroutlocvar*/ /*_._VALROUT___V1888*/ meltfptr[1887] = (melt_ptr_t) &meltcdat->drout_1794__MEXPAND_AND; meltcdat->drout_1794__MEXPAND_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1794__MEXPAND_AND.routdescr, "MEXPAND_AND @warmelt-macro.melt:5853", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1794__MEXPAND_AND.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1794__MEXPAND_AND, meltrout_96_WARMELTmiMACRO_MEXPAND_AND); /*iniclos dclo_1795__MEXPAND_AND*/ - /*_._VALCLO___V1890*/ - meltfptr[1889] = (melt_ptr_t) &meltcdat->dclo_1795__MEXPAND_AND; + /*_._VALCLO___V1890*/ meltfptr[1889] = (melt_ptr_t) &meltcdat->dclo_1795__MEXPAND_AND; meltcdat->dclo_1795__MEXPAND_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1795__MEXPAND_AND.nbval = 0; /*inirout drout_1796__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1889*/ - meltfptr[1888] = (melt_ptr_t) &meltcdat->drout_1796__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1889*/ meltfptr[1888] = (melt_ptr_t) &meltcdat->drout_1796__LAMBDA_; meltcdat->drout_1796__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1796__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5866", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1796__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1796__LAMBDA_, meltrout_97_WARMELTmiMACRO_LAMBDA_cl16); /*inirout drout_1797__PATEXPAND_AS*/ - /*iniroutlocvar*/ /*_._VALROUT___V1891*/ - meltfptr[1890] = (melt_ptr_t) &meltcdat->drout_1797__PATEXPAND_AS; + /*iniroutlocvar*/ /*_._VALROUT___V1891*/ meltfptr[1890] = (melt_ptr_t) &meltcdat->drout_1797__PATEXPAND_AS; meltcdat->drout_1797__PATEXPAND_AS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1797__PATEXPAND_AS.routdescr, "PATEXPAND_AS @warmelt-macro.melt:5894", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1797__PATEXPAND_AS.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1797__PATEXPAND_AS, meltrout_98_WARMELTmiMACRO_PATEXPAND_AS); /*iniclos dclo_1798__PATEXPAND_AS*/ - /*_._VALCLO___V1892*/ - meltfptr[1891] = (melt_ptr_t) &meltcdat->dclo_1798__PATEXPAND_AS; + /*_._VALCLO___V1892*/ meltfptr[1891] = (melt_ptr_t) &meltcdat->dclo_1798__PATEXPAND_AS; meltcdat->dclo_1798__PATEXPAND_AS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1798__PATEXPAND_AS.nbval = 0; /*inirout drout_1799__MEXPAND_AS*/ - /*iniroutlocvar*/ /*_._VALROUT___V1893*/ - meltfptr[1892] = (melt_ptr_t) &meltcdat->drout_1799__MEXPAND_AS; + /*iniroutlocvar*/ /*_._VALROUT___V1893*/ meltfptr[1892] = (melt_ptr_t) &meltcdat->drout_1799__MEXPAND_AS; meltcdat->drout_1799__MEXPAND_AS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1799__MEXPAND_AS.routdescr, "MEXPAND_AS @warmelt-macro.melt:5932", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1799__MEXPAND_AS.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1799__MEXPAND_AS, meltrout_99_WARMELTmiMACRO_MEXPAND_AS); /*iniclos dclo_1800__MEXPAND_AS*/ - /*_._VALCLO___V1894*/ - meltfptr[1893] = (melt_ptr_t) &meltcdat->dclo_1800__MEXPAND_AS; + /*_._VALCLO___V1894*/ meltfptr[1893] = (melt_ptr_t) &meltcdat->dclo_1800__MEXPAND_AS; meltcdat->dclo_1800__MEXPAND_AS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1800__MEXPAND_AS.nbval = 0; /*iniobj dsym_1801__AS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1895*/ meltfptr[1894]) + /*uniqueobj*/ if (!/*_._VALDATA___V1895*/ meltfptr[1894]) /*_._VALDATA___V1895*/ meltfptr[1894] = (melt_ptr_t )&meltcdat->dsym_1801__AS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1801__AS", 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_1801__AS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28496,82 +25074,70 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1802__AS*/ - /*_._VALSTR___V1896*/ - meltfptr[1895] = (melt_ptr_t) &meltcdat->dstr_1802__AS; + /*_._VALSTR___V1896*/ meltfptr[1895] = (melt_ptr_t) &meltcdat->dstr_1802__AS; meltcdat->dstr_1802__AS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1802__AS.val, "AS", sizeof (meltcdat->dstr_1802__AS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1802__AS.val, "AS", sizeof (meltcdat->dstr_1802__AS.val)-1); meltcdat->dstr_1802__AS.val[2] = (char)0 ; meltcdat->dstr_1802__AS.slen = 2 ; /*inirout drout_1803__PATEXPAND_WHEN*/ - /*iniroutlocvar*/ /*_._VALROUT___V1897*/ - meltfptr[1896] = (melt_ptr_t) &meltcdat->drout_1803__PATEXPAND_WHEN; + /*iniroutlocvar*/ /*_._VALROUT___V1897*/ meltfptr[1896] = (melt_ptr_t) &meltcdat->drout_1803__PATEXPAND_WHEN; meltcdat->drout_1803__PATEXPAND_WHEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1803__PATEXPAND_WHEN.routdescr, "PATEXPAND_WHEN @warmelt-macro.melt:5946", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1803__PATEXPAND_WHEN.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1803__PATEXPAND_WHEN, meltrout_100_WARMELTmiMACRO_PATEXPAND_WHEN); /*iniclos dclo_1804__PATEXPAND_WHEN*/ - /*_._VALCLO___V1898*/ - meltfptr[1897] = (melt_ptr_t) &meltcdat->dclo_1804__PATEXPAND_WHEN; + /*_._VALCLO___V1898*/ meltfptr[1897] = (melt_ptr_t) &meltcdat->dclo_1804__PATEXPAND_WHEN; meltcdat->dclo_1804__PATEXPAND_WHEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1804__PATEXPAND_WHEN.nbval = 0; /*inirout drout_1805__PATEXPAND_AND*/ - /*iniroutlocvar*/ /*_._VALROUT___V1899*/ - meltfptr[1898] = (melt_ptr_t) &meltcdat->drout_1805__PATEXPAND_AND; + /*iniroutlocvar*/ /*_._VALROUT___V1899*/ meltfptr[1898] = (melt_ptr_t) &meltcdat->drout_1805__PATEXPAND_AND; meltcdat->drout_1805__PATEXPAND_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1805__PATEXPAND_AND.routdescr, "PATEXPAND_AND @warmelt-macro.melt:5966", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1805__PATEXPAND_AND.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1805__PATEXPAND_AND, meltrout_101_WARMELTmiMACRO_PATEXPAND_AND); /*iniclos dclo_1806__PATEXPAND_AND*/ - /*_._VALCLO___V1900*/ - meltfptr[1899] = (melt_ptr_t) &meltcdat->dclo_1806__PATEXPAND_AND; + /*_._VALCLO___V1900*/ meltfptr[1899] = (melt_ptr_t) &meltcdat->dclo_1806__PATEXPAND_AND; meltcdat->dclo_1806__PATEXPAND_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1806__PATEXPAND_AND.nbval = 0; /*inirout drout_1807__MEXPAND_OR*/ - /*iniroutlocvar*/ /*_._VALROUT___V1901*/ - meltfptr[1900] = (melt_ptr_t) &meltcdat->drout_1807__MEXPAND_OR; + /*iniroutlocvar*/ /*_._VALROUT___V1901*/ meltfptr[1900] = (melt_ptr_t) &meltcdat->drout_1807__MEXPAND_OR; meltcdat->drout_1807__MEXPAND_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1807__MEXPAND_OR.routdescr, "MEXPAND_OR @warmelt-macro.melt:6002", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1807__MEXPAND_OR.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1807__MEXPAND_OR, meltrout_102_WARMELTmiMACRO_MEXPAND_OR); /*iniclos dclo_1808__MEXPAND_OR*/ - /*_._VALCLO___V1903*/ - meltfptr[1902] = (melt_ptr_t) &meltcdat->dclo_1808__MEXPAND_OR; + /*_._VALCLO___V1903*/ meltfptr[1902] = (melt_ptr_t) &meltcdat->dclo_1808__MEXPAND_OR; meltcdat->dclo_1808__MEXPAND_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1808__MEXPAND_OR.nbval = 0; /*inirout drout_1809__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1902*/ - meltfptr[1901] = (melt_ptr_t) &meltcdat->drout_1809__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1902*/ meltfptr[1901] = (melt_ptr_t) &meltcdat->drout_1809__LAMBDA_; meltcdat->drout_1809__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1809__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:6014", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1809__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1809__LAMBDA_, meltrout_103_WARMELTmiMACRO_LAMBDA_cl17); /*inirout drout_1810__PATEXPAND_OR*/ - /*iniroutlocvar*/ /*_._VALROUT___V1904*/ - meltfptr[1903] = (melt_ptr_t) &meltcdat->drout_1810__PATEXPAND_OR; + /*iniroutlocvar*/ /*_._VALROUT___V1904*/ meltfptr[1903] = (melt_ptr_t) &meltcdat->drout_1810__PATEXPAND_OR; meltcdat->drout_1810__PATEXPAND_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1810__PATEXPAND_OR.routdescr, "PATEXPAND_OR @warmelt-macro.melt:6032", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1810__PATEXPAND_OR.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1810__PATEXPAND_OR, meltrout_104_WARMELTmiMACRO_PATEXPAND_OR); /*iniclos dclo_1811__PATEXPAND_OR*/ - /*_._VALCLO___V1905*/ - meltfptr[1904] = (melt_ptr_t) &meltcdat->dclo_1811__PATEXPAND_OR; + /*_._VALCLO___V1905*/ meltfptr[1904] = (melt_ptr_t) &meltcdat->dclo_1811__PATEXPAND_OR; meltcdat->dclo_1811__PATEXPAND_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1811__PATEXPAND_OR.nbval = 0; /*iniobj dsym_1812__OR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1906*/ meltfptr[1905]) + /*uniqueobj*/ if (!/*_._VALDATA___V1906*/ meltfptr[1905]) /*_._VALDATA___V1906*/ meltfptr[1905] = (melt_ptr_t )&meltcdat->dsym_1812__OR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1812__OR", 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_1812__OR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28581,32 +25147,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1813__OR*/ - /*_._VALSTR___V1907*/ - meltfptr[1906] = (melt_ptr_t) &meltcdat->dstr_1813__OR; + /*_._VALSTR___V1907*/ meltfptr[1906] = (melt_ptr_t) &meltcdat->dstr_1813__OR; meltcdat->dstr_1813__OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1813__OR.val, "OR", sizeof (meltcdat->dstr_1813__OR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1813__OR.val, "OR", sizeof (meltcdat->dstr_1813__OR.val)-1); meltcdat->dstr_1813__OR.val[2] = (char)0 ; meltcdat->dstr_1813__OR.slen = 2 ; /*inirout drout_1814__MEXPAND_REFERENCE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1908*/ - meltfptr[1907] = (melt_ptr_t) &meltcdat->drout_1814__MEXPAND_REFERENCE; + /*iniroutlocvar*/ /*_._VALROUT___V1908*/ meltfptr[1907] = (melt_ptr_t) &meltcdat->drout_1814__MEXPAND_REFERENCE; meltcdat->drout_1814__MEXPAND_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1814__MEXPAND_REFERENCE.routdescr, "MEXPAND_REFERENCE @warmelt-macro.melt:6069", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1814__MEXPAND_REFERENCE.nbval = 16; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1814__MEXPAND_REFERENCE, meltrout_105_WARMELTmiMACRO_MEXPAND_REFERENCE); /*iniclos dclo_1815__MEXPAND_REFERENCE*/ - /*_._VALCLO___V1911*/ - meltfptr[1910] = (melt_ptr_t) &meltcdat->dclo_1815__MEXPAND_REFERENCE; + /*_._VALCLO___V1911*/ meltfptr[1910] = (melt_ptr_t) &meltcdat->dclo_1815__MEXPAND_REFERENCE; meltcdat->dclo_1815__MEXPAND_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1815__MEXPAND_REFERENCE.nbval = 0; /*iniobj dsym_1816__CLASS_FIELDS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1912*/ meltfptr[1911]) + /*uniqueobj*/ if (!/*_._VALDATA___V1912*/ meltfptr[1911]) /*_._VALDATA___V1912*/ meltfptr[1911] = (melt_ptr_t )&meltcdat->dsym_1816__CLASS_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1816__CLASS_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_1816__CLASS_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28616,18 +25177,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1817__CLASS_FIELDS*/ - /*_._VALSTR___V1913*/ - meltfptr[1912] = (melt_ptr_t) &meltcdat->dstr_1817__CLASS_FIELDS; + /*_._VALSTR___V1913*/ meltfptr[1912] = (melt_ptr_t) &meltcdat->dstr_1817__CLASS_FIELDS; meltcdat->dstr_1817__CLASS_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1817__CLASS_FIELDS.val, "CLASS_FIELDS", sizeof (meltcdat->dstr_1817__CLASS_FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1817__CLASS_FIELDS.val, "CLASS_FIELDS", sizeof (meltcdat->dstr_1817__CLASS_FIELDS.val)-1); meltcdat->dstr_1817__CLASS_FIELDS.val[12] = (char)0 ; meltcdat->dstr_1817__CLASS_FIELDS.slen = 12 ; /*iniobj dsym_1818__REFERENCED_VALUE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1909*/ meltfptr[1908]) + /*uniqueobj*/ if (!/*_._VALDATA___V1909*/ meltfptr[1908]) /*_._VALDATA___V1909*/ meltfptr[1908] = (melt_ptr_t )&meltcdat->dsym_1818__REFERENCED_VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1818__REFERENCED_VALUE", 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_1818__REFERENCED_VALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28637,38 +25195,32 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1819__REFERENCED_VALUE*/ - /*_._VALSTR___V1910*/ - meltfptr[1909] = (melt_ptr_t) &meltcdat->dstr_1819__REFERENCED_VALUE; + /*_._VALSTR___V1910*/ meltfptr[1909] = (melt_ptr_t) &meltcdat->dstr_1819__REFERENCED_VALUE; meltcdat->dstr_1819__REFERENCED_VALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1819__REFERENCED_VALUE.val, "REFERENCED_VALUE", sizeof (meltcdat->dstr_1819__REFERENCED_VALUE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1819__REFERENCED_VALUE.val, "REFERENCED_VALUE", sizeof (meltcdat->dstr_1819__REFERENCED_VALUE.val)-1); meltcdat->dstr_1819__REFERENCED_VALUE.val[16] = (char)0 ; meltcdat->dstr_1819__REFERENCED_VALUE.slen = 16 ; /*inirout drout_1820__PATEXPAND_REFERENCE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1914*/ - meltfptr[1913] = (melt_ptr_t) &meltcdat->drout_1820__PATEXPAND_REFERENCE; + /*iniroutlocvar*/ /*_._VALROUT___V1914*/ meltfptr[1913] = (melt_ptr_t) &meltcdat->drout_1820__PATEXPAND_REFERENCE; meltcdat->drout_1820__PATEXPAND_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1820__PATEXPAND_REFERENCE.routdescr, "PATEXPAND_REFERENCE @warmelt-macro.melt:6113", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1820__PATEXPAND_REFERENCE.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1820__PATEXPAND_REFERENCE, meltrout_106_WARMELTmiMACRO_PATEXPAND_REFERENCE); /*iniclos dclo_1821__PATEXPAND_REFERENCE*/ - /*_._VALCLO___V1916*/ - meltfptr[1915] = (melt_ptr_t) &meltcdat->dclo_1821__PATEXPAND_REFERENCE; + /*_._VALCLO___V1916*/ meltfptr[1915] = (melt_ptr_t) &meltcdat->dclo_1821__PATEXPAND_REFERENCE; meltcdat->dclo_1821__PATEXPAND_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1821__PATEXPAND_REFERENCE.nbval = 0; /*iniboxint dint_1822__*/ - /*_._VALBXINT___V1915*/ - meltfptr[1914] = (melt_ptr_t) &meltcdat->dint_1822__; + /*_._VALBXINT___V1915*/ meltfptr[1914] = (melt_ptr_t) &meltcdat->dint_1822__; meltcdat->dint_1822__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1822__.val = 1; /*iniobj dsym_1823__REFERENCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1917*/ meltfptr[1916]) + /*uniqueobj*/ if (!/*_._VALDATA___V1917*/ meltfptr[1916]) /*_._VALDATA___V1917*/ meltfptr[1916] = (melt_ptr_t )&meltcdat->dsym_1823__REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1823__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_1823__REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28678,32 +25230,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1824__REFERENCE*/ - /*_._VALSTR___V1918*/ - meltfptr[1917] = (melt_ptr_t) &meltcdat->dstr_1824__REFERENCE; + /*_._VALSTR___V1918*/ meltfptr[1917] = (melt_ptr_t) &meltcdat->dstr_1824__REFERENCE; meltcdat->dstr_1824__REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1824__REFERENCE.val, "REFERENCE", sizeof (meltcdat->dstr_1824__REFERENCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1824__REFERENCE.val, "REFERENCE", sizeof (meltcdat->dstr_1824__REFERENCE.val)-1); meltcdat->dstr_1824__REFERENCE.val[9] = (char)0 ; meltcdat->dstr_1824__REFERENCE.slen = 9 ; /*inirout drout_1825__MEXPAND_DEREF*/ - /*iniroutlocvar*/ /*_._VALROUT___V1919*/ - meltfptr[1918] = (melt_ptr_t) &meltcdat->drout_1825__MEXPAND_DEREF; + /*iniroutlocvar*/ /*_._VALROUT___V1919*/ meltfptr[1918] = (melt_ptr_t) &meltcdat->drout_1825__MEXPAND_DEREF; meltcdat->drout_1825__MEXPAND_DEREF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1825__MEXPAND_DEREF.routdescr, "MEXPAND_DEREF @warmelt-macro.melt:6153", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1825__MEXPAND_DEREF.nbval = 14; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1825__MEXPAND_DEREF, meltrout_107_WARMELTmiMACRO_MEXPAND_DEREF); /*iniclos dclo_1826__MEXPAND_DEREF*/ - /*_._VALCLO___V1920*/ - meltfptr[1919] = (melt_ptr_t) &meltcdat->dclo_1826__MEXPAND_DEREF; + /*_._VALCLO___V1920*/ meltfptr[1919] = (melt_ptr_t) &meltcdat->dclo_1826__MEXPAND_DEREF; meltcdat->dclo_1826__MEXPAND_DEREF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1826__MEXPAND_DEREF.nbval = 0; /*iniobj dsym_1827__REFERENCED_VALUE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1921*/ meltfptr[1920]) + /*uniqueobj*/ if (!/*_._VALDATA___V1921*/ meltfptr[1920]) /*_._VALDATA___V1921*/ meltfptr[1920] = (melt_ptr_t )&meltcdat->dsym_1827__REFERENCED_VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1827__REFERENCED_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_1827__REFERENCED_VALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28713,18 +25260,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1828__REFERENCED_VALUE*/ - /*_._VALSTR___V1922*/ - meltfptr[1921] = (melt_ptr_t) &meltcdat->dstr_1828__REFERENCED_VALUE; + /*_._VALSTR___V1922*/ meltfptr[1921] = (melt_ptr_t) &meltcdat->dstr_1828__REFERENCED_VALUE; meltcdat->dstr_1828__REFERENCED_VALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1828__REFERENCED_VALUE.val, "REFERENCED_VALUE", sizeof (meltcdat->dstr_1828__REFERENCED_VALUE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1828__REFERENCED_VALUE.val, "REFERENCED_VALUE", sizeof (meltcdat->dstr_1828__REFERENCED_VALUE.val)-1); meltcdat->dstr_1828__REFERENCED_VALUE.val[16] = (char)0 ; meltcdat->dstr_1828__REFERENCED_VALUE.slen = 16 ; /*iniobj dsym_1829__DEREF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1923*/ meltfptr[1922]) + /*uniqueobj*/ if (!/*_._VALDATA___V1923*/ meltfptr[1922]) /*_._VALDATA___V1923*/ meltfptr[1922] = (melt_ptr_t )&meltcdat->dsym_1829__DEREF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1829__DEREF", 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_1829__DEREF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28734,32 +25278,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1830__DEREF*/ - /*_._VALSTR___V1924*/ - meltfptr[1923] = (melt_ptr_t) &meltcdat->dstr_1830__DEREF; + /*_._VALSTR___V1924*/ meltfptr[1923] = (melt_ptr_t) &meltcdat->dstr_1830__DEREF; meltcdat->dstr_1830__DEREF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1830__DEREF.val, "DEREF", sizeof (meltcdat->dstr_1830__DEREF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1830__DEREF.val, "DEREF", sizeof (meltcdat->dstr_1830__DEREF.val)-1); meltcdat->dstr_1830__DEREF.val[5] = (char)0 ; meltcdat->dstr_1830__DEREF.slen = 5 ; /*inirout drout_1831__MEXPANDOBSOLETE_CONTENT*/ - /*iniroutlocvar*/ /*_._VALROUT___V1925*/ - meltfptr[1924] = (melt_ptr_t) &meltcdat->drout_1831__MEXPANDOBSOLETE_CONTENT; + /*iniroutlocvar*/ /*_._VALROUT___V1925*/ meltfptr[1924] = (melt_ptr_t) &meltcdat->drout_1831__MEXPANDOBSOLETE_CONTENT; meltcdat->drout_1831__MEXPANDOBSOLETE_CONTENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1831__MEXPANDOBSOLETE_CONTENT.routdescr, "MEXPANDOBSOLETE_CONTENT @warmelt-macro.melt:6198", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1831__MEXPANDOBSOLETE_CONTENT.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1831__MEXPANDOBSOLETE_CONTENT, meltrout_108_WARMELTmiMACRO_MEXPANDOBSOLETE_CONTENT); /*iniclos dclo_1832__MEXPANDOBSOLETE_CONTENT*/ - /*_._VALCLO___V1926*/ - meltfptr[1925] = (melt_ptr_t) &meltcdat->dclo_1832__MEXPANDOBSOLETE_CONTENT; + /*_._VALCLO___V1926*/ meltfptr[1925] = (melt_ptr_t) &meltcdat->dclo_1832__MEXPANDOBSOLETE_CONTENT; meltcdat->dclo_1832__MEXPANDOBSOLETE_CONTENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1832__MEXPANDOBSOLETE_CONTENT.nbval = 0; /*iniobj dsym_1833__CONTENT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1927*/ meltfptr[1926]) + /*uniqueobj*/ if (!/*_._VALDATA___V1927*/ meltfptr[1926]) /*_._VALDATA___V1927*/ meltfptr[1926] = (melt_ptr_t )&meltcdat->dsym_1833__CONTENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1833__CONTENT", 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_1833__CONTENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28769,18 +25308,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1834__CONTENT*/ - /*_._VALSTR___V1928*/ - meltfptr[1927] = (melt_ptr_t) &meltcdat->dstr_1834__CONTENT; + /*_._VALSTR___V1928*/ meltfptr[1927] = (melt_ptr_t) &meltcdat->dstr_1834__CONTENT; meltcdat->dstr_1834__CONTENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1834__CONTENT.val, "CONTENT", sizeof (meltcdat->dstr_1834__CONTENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1834__CONTENT.val, "CONTENT", sizeof (meltcdat->dstr_1834__CONTENT.val)-1); meltcdat->dstr_1834__CONTENT.val[7] = (char)0 ; meltcdat->dstr_1834__CONTENT.slen = 7 ; /*iniobj dsym_1835__EXCLAIM*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1929*/ meltfptr[1928]) + /*uniqueobj*/ if (!/*_._VALDATA___V1929*/ meltfptr[1928]) /*_._VALDATA___V1929*/ meltfptr[1928] = (melt_ptr_t )&meltcdat->dsym_1835__EXCLAIM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1835__EXCLAIM", 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_1835__EXCLAIM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28790,32 +25326,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1836__EXCLAIM*/ - /*_._VALSTR___V1930*/ - meltfptr[1929] = (melt_ptr_t) &meltcdat->dstr_1836__EXCLAIM; + /*_._VALSTR___V1930*/ meltfptr[1929] = (melt_ptr_t) &meltcdat->dstr_1836__EXCLAIM; meltcdat->dstr_1836__EXCLAIM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1836__EXCLAIM.val, "EXCLAIM", sizeof (meltcdat->dstr_1836__EXCLAIM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1836__EXCLAIM.val, "EXCLAIM", sizeof (meltcdat->dstr_1836__EXCLAIM.val)-1); meltcdat->dstr_1836__EXCLAIM.val[7] = (char)0 ; meltcdat->dstr_1836__EXCLAIM.slen = 7 ; /*inirout drout_1837__MEXPAND_SET_REF*/ - /*iniroutlocvar*/ /*_._VALROUT___V1931*/ - meltfptr[1930] = (melt_ptr_t) &meltcdat->drout_1837__MEXPAND_SET_REF; + /*iniroutlocvar*/ /*_._VALROUT___V1931*/ meltfptr[1930] = (melt_ptr_t) &meltcdat->drout_1837__MEXPAND_SET_REF; meltcdat->drout_1837__MEXPAND_SET_REF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1837__MEXPAND_SET_REF.routdescr, "MEXPAND_SET_REF @warmelt-macro.melt:6220", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1837__MEXPAND_SET_REF.nbval = 15; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1837__MEXPAND_SET_REF, meltrout_109_WARMELTmiMACRO_MEXPAND_SET_REF); /*iniclos dclo_1838__MEXPAND_SET_REF*/ - /*_._VALCLO___V1932*/ - meltfptr[1931] = (melt_ptr_t) &meltcdat->dclo_1838__MEXPAND_SET_REF; + /*_._VALCLO___V1932*/ meltfptr[1931] = (melt_ptr_t) &meltcdat->dclo_1838__MEXPAND_SET_REF; meltcdat->dclo_1838__MEXPAND_SET_REF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1838__MEXPAND_SET_REF.nbval = 0; /*iniobj dsym_1839__SET_REF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1933*/ meltfptr[1932]) + /*uniqueobj*/ if (!/*_._VALDATA___V1933*/ meltfptr[1932]) /*_._VALDATA___V1933*/ meltfptr[1932] = (melt_ptr_t )&meltcdat->dsym_1839__SET_REF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1839__SET_REF", 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_1839__SET_REF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28825,38 +25356,32 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1840__SET_REF*/ - /*_._VALSTR___V1934*/ - meltfptr[1933] = (melt_ptr_t) &meltcdat->dstr_1840__SET_REF; + /*_._VALSTR___V1934*/ meltfptr[1933] = (melt_ptr_t) &meltcdat->dstr_1840__SET_REF; meltcdat->dstr_1840__SET_REF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1840__SET_REF.val, "SET_REF", sizeof (meltcdat->dstr_1840__SET_REF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1840__SET_REF.val, "SET_REF", sizeof (meltcdat->dstr_1840__SET_REF.val)-1); meltcdat->dstr_1840__SET_REF.val[7] = (char)0 ; meltcdat->dstr_1840__SET_REF.slen = 7 ; /*inirout drout_1841__MEXPAND_PLUS*/ - /*iniroutlocvar*/ /*_._VALROUT___V1935*/ - meltfptr[1934] = (melt_ptr_t) &meltcdat->drout_1841__MEXPAND_PLUS; + /*iniroutlocvar*/ /*_._VALROUT___V1935*/ meltfptr[1934] = (melt_ptr_t) &meltcdat->drout_1841__MEXPAND_PLUS; meltcdat->drout_1841__MEXPAND_PLUS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1841__MEXPAND_PLUS.routdescr, "MEXPAND_PLUS @warmelt-macro.melt:6273", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1841__MEXPAND_PLUS.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1841__MEXPAND_PLUS, meltrout_110_WARMELTmiMACRO_MEXPAND_PLUS); /*iniclos dclo_1842__MEXPAND_PLUS*/ - /*_._VALCLO___V1937*/ - meltfptr[1936] = (melt_ptr_t) &meltcdat->dclo_1842__MEXPAND_PLUS; + /*_._VALCLO___V1937*/ meltfptr[1936] = (melt_ptr_t) &meltcdat->dclo_1842__MEXPAND_PLUS; meltcdat->dclo_1842__MEXPAND_PLUS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1842__MEXPAND_PLUS.nbval = 0; /*iniboxint dint_1843__*/ - /*_._VALBXINT___V1936*/ - meltfptr[1935] = (melt_ptr_t) &meltcdat->dint_1843__; + /*_._VALBXINT___V1936*/ meltfptr[1935] = (melt_ptr_t) &meltcdat->dint_1843__; meltcdat->dint_1843__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1843__.val = 0; /*iniobj dsym_1844__plI*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1938*/ meltfptr[1937]) + /*uniqueobj*/ if (!/*_._VALDATA___V1938*/ meltfptr[1937]) /*_._VALDATA___V1938*/ meltfptr[1937] = (melt_ptr_t )&meltcdat->dsym_1844__plI; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1844__plI", 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_1844__plI", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28866,38 +25391,32 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1845__I*/ - /*_._VALSTR___V1939*/ - meltfptr[1938] = (melt_ptr_t) &meltcdat->dstr_1845__I; + /*_._VALSTR___V1939*/ meltfptr[1938] = (melt_ptr_t) &meltcdat->dstr_1845__I; meltcdat->dstr_1845__I.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1845__I.val, "+I", sizeof (meltcdat->dstr_1845__I.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1845__I.val, "+I", sizeof (meltcdat->dstr_1845__I.val)-1); meltcdat->dstr_1845__I.val[2] = (char)0 ; meltcdat->dstr_1845__I.slen = 2 ; /*inirout drout_1846__MEXPAND_MINUS*/ - /*iniroutlocvar*/ /*_._VALROUT___V1940*/ - meltfptr[1939] = (melt_ptr_t) &meltcdat->drout_1846__MEXPAND_MINUS; + /*iniroutlocvar*/ /*_._VALROUT___V1940*/ meltfptr[1939] = (melt_ptr_t) &meltcdat->drout_1846__MEXPAND_MINUS; meltcdat->drout_1846__MEXPAND_MINUS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1846__MEXPAND_MINUS.routdescr, "MEXPAND_MINUS @warmelt-macro.melt:6302", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1846__MEXPAND_MINUS.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1846__MEXPAND_MINUS, meltrout_111_WARMELTmiMACRO_MEXPAND_MINUS); /*iniclos dclo_1847__MEXPAND_MINUS*/ - /*_._VALCLO___V1942*/ - meltfptr[1941] = (melt_ptr_t) &meltcdat->dclo_1847__MEXPAND_MINUS; + /*_._VALCLO___V1942*/ meltfptr[1941] = (melt_ptr_t) &meltcdat->dclo_1847__MEXPAND_MINUS; meltcdat->dclo_1847__MEXPAND_MINUS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1847__MEXPAND_MINUS.nbval = 0; /*iniboxint dint_1848__*/ - /*_._VALBXINT___V1941*/ - meltfptr[1940] = (melt_ptr_t) &meltcdat->dint_1848__; + /*_._VALBXINT___V1941*/ meltfptr[1940] = (melt_ptr_t) &meltcdat->dint_1848__; meltcdat->dint_1848__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1848__.val = 0; /*iniobj dsym_1849__miI*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1943*/ meltfptr[1942]) + /*uniqueobj*/ if (!/*_._VALDATA___V1943*/ meltfptr[1942]) /*_._VALDATA___V1943*/ meltfptr[1942] = (melt_ptr_t )&meltcdat->dsym_1849__miI; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1849__miI", 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_1849__miI", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28907,18 +25426,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1850__I*/ - /*_._VALSTR___V1944*/ - meltfptr[1943] = (melt_ptr_t) &meltcdat->dstr_1850__I; + /*_._VALSTR___V1944*/ meltfptr[1943] = (melt_ptr_t) &meltcdat->dstr_1850__I; meltcdat->dstr_1850__I.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1850__I.val, "-I", sizeof (meltcdat->dstr_1850__I.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1850__I.val, "-I", sizeof (meltcdat->dstr_1850__I.val)-1); meltcdat->dstr_1850__I.val[2] = (char)0 ; meltcdat->dstr_1850__I.slen = 2 ; /*iniobj dsym_1851__mi*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1945*/ meltfptr[1944]) + /*uniqueobj*/ if (!/*_._VALDATA___V1945*/ meltfptr[1944]) /*_._VALDATA___V1945*/ meltfptr[1944] = (melt_ptr_t )&meltcdat->dsym_1851__mi; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1851__mi", 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_1851__mi", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28928,38 +25444,32 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1852__*/ - /*_._VALSTR___V1946*/ - meltfptr[1945] = (melt_ptr_t) &meltcdat->dstr_1852__; + /*_._VALSTR___V1946*/ meltfptr[1945] = (melt_ptr_t) &meltcdat->dstr_1852__; meltcdat->dstr_1852__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1852__.val, "-", sizeof (meltcdat->dstr_1852__.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1852__.val, "-", sizeof (meltcdat->dstr_1852__.val)-1); meltcdat->dstr_1852__.val[1] = (char)0 ; meltcdat->dstr_1852__.slen = 1 ; /*inirout drout_1853__MEXPAND_TIMES*/ - /*iniroutlocvar*/ /*_._VALROUT___V1947*/ - meltfptr[1946] = (melt_ptr_t) &meltcdat->drout_1853__MEXPAND_TIMES; + /*iniroutlocvar*/ /*_._VALROUT___V1947*/ meltfptr[1946] = (melt_ptr_t) &meltcdat->drout_1853__MEXPAND_TIMES; meltcdat->drout_1853__MEXPAND_TIMES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1853__MEXPAND_TIMES.routdescr, "MEXPAND_TIMES @warmelt-macro.melt:6331", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1853__MEXPAND_TIMES.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1853__MEXPAND_TIMES, meltrout_112_WARMELTmiMACRO_MEXPAND_TIMES); /*iniclos dclo_1854__MEXPAND_TIMES*/ - /*_._VALCLO___V1949*/ - meltfptr[1948] = (melt_ptr_t) &meltcdat->dclo_1854__MEXPAND_TIMES; + /*_._VALCLO___V1949*/ meltfptr[1948] = (melt_ptr_t) &meltcdat->dclo_1854__MEXPAND_TIMES; meltcdat->dclo_1854__MEXPAND_TIMES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1854__MEXPAND_TIMES.nbval = 0; /*iniboxint dint_1855__*/ - /*_._VALBXINT___V1948*/ - meltfptr[1947] = (melt_ptr_t) &meltcdat->dint_1855__; + /*_._VALBXINT___V1948*/ meltfptr[1947] = (melt_ptr_t) &meltcdat->dint_1855__; meltcdat->dint_1855__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1855__.val = 1; /*iniobj dsym_1856__stI*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1950*/ meltfptr[1949]) + /*uniqueobj*/ if (!/*_._VALDATA___V1950*/ meltfptr[1949]) /*_._VALDATA___V1950*/ meltfptr[1949] = (melt_ptr_t )&meltcdat->dsym_1856__stI; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1856__stI", 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_1856__stI", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28969,18 +25479,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1857__I*/ - /*_._VALSTR___V1951*/ - meltfptr[1950] = (melt_ptr_t) &meltcdat->dstr_1857__I; + /*_._VALSTR___V1951*/ meltfptr[1950] = (melt_ptr_t) &meltcdat->dstr_1857__I; meltcdat->dstr_1857__I.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1857__I.val, "*I", sizeof (meltcdat->dstr_1857__I.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1857__I.val, "*I", sizeof (meltcdat->dstr_1857__I.val)-1); meltcdat->dstr_1857__I.val[2] = (char)0 ; meltcdat->dstr_1857__I.slen = 2 ; /*iniobj dsym_1858__st*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1952*/ meltfptr[1951]) + /*uniqueobj*/ if (!/*_._VALDATA___V1952*/ meltfptr[1951]) /*_._VALDATA___V1952*/ meltfptr[1951] = (melt_ptr_t )&meltcdat->dsym_1858__st; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1858__st", 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_1858__st", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -28990,38 +25497,32 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1859__*/ - /*_._VALSTR___V1953*/ - meltfptr[1952] = (melt_ptr_t) &meltcdat->dstr_1859__; + /*_._VALSTR___V1953*/ meltfptr[1952] = (melt_ptr_t) &meltcdat->dstr_1859__; meltcdat->dstr_1859__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1859__.val, "*", sizeof (meltcdat->dstr_1859__.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1859__.val, "*", sizeof (meltcdat->dstr_1859__.val)-1); meltcdat->dstr_1859__.val[1] = (char)0 ; meltcdat->dstr_1859__.slen = 1 ; /*inirout drout_1860__MEXPAND_DIV*/ - /*iniroutlocvar*/ /*_._VALROUT___V1954*/ - meltfptr[1953] = (melt_ptr_t) &meltcdat->drout_1860__MEXPAND_DIV; + /*iniroutlocvar*/ /*_._VALROUT___V1954*/ meltfptr[1953] = (melt_ptr_t) &meltcdat->drout_1860__MEXPAND_DIV; meltcdat->drout_1860__MEXPAND_DIV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1860__MEXPAND_DIV.routdescr, "MEXPAND_DIV @warmelt-macro.melt:6360", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1860__MEXPAND_DIV.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1860__MEXPAND_DIV, meltrout_113_WARMELTmiMACRO_MEXPAND_DIV); /*iniclos dclo_1861__MEXPAND_DIV*/ - /*_._VALCLO___V1956*/ - meltfptr[1955] = (melt_ptr_t) &meltcdat->dclo_1861__MEXPAND_DIV; + /*_._VALCLO___V1956*/ meltfptr[1955] = (melt_ptr_t) &meltcdat->dclo_1861__MEXPAND_DIV; meltcdat->dclo_1861__MEXPAND_DIV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1861__MEXPAND_DIV.nbval = 0; /*iniboxint dint_1862__*/ - /*_._VALBXINT___V1955*/ - meltfptr[1954] = (melt_ptr_t) &meltcdat->dint_1862__; + /*_._VALBXINT___V1955*/ meltfptr[1954] = (melt_ptr_t) &meltcdat->dint_1862__; meltcdat->dint_1862__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1862__.val = 1; /*iniobj dsym_1863__diI*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1957*/ meltfptr[1956]) + /*uniqueobj*/ if (!/*_._VALDATA___V1957*/ meltfptr[1956]) /*_._VALDATA___V1957*/ meltfptr[1956] = (melt_ptr_t )&meltcdat->dsym_1863__diI; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1863__diI", 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_1863__diI", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29031,18 +25532,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1864__I*/ - /*_._VALSTR___V1958*/ - meltfptr[1957] = (melt_ptr_t) &meltcdat->dstr_1864__I; + /*_._VALSTR___V1958*/ meltfptr[1957] = (melt_ptr_t) &meltcdat->dstr_1864__I; meltcdat->dstr_1864__I.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1864__I.val, "/I", sizeof (meltcdat->dstr_1864__I.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1864__I.val, "/I", sizeof (meltcdat->dstr_1864__I.val)-1); meltcdat->dstr_1864__I.val[2] = (char)0 ; meltcdat->dstr_1864__I.slen = 2 ; /*iniobj dsym_1865__di*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1959*/ meltfptr[1958]) + /*uniqueobj*/ if (!/*_._VALDATA___V1959*/ meltfptr[1958]) /*_._VALDATA___V1959*/ meltfptr[1958] = (melt_ptr_t )&meltcdat->dsym_1865__di; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1865__di", 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_1865__di", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29052,46 +25550,39 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1866__*/ - /*_._VALSTR___V1960*/ - meltfptr[1959] = (melt_ptr_t) &meltcdat->dstr_1866__; + /*_._VALSTR___V1960*/ meltfptr[1959] = (melt_ptr_t) &meltcdat->dstr_1866__; meltcdat->dstr_1866__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1866__.val, "/", sizeof (meltcdat->dstr_1866__.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1866__.val, "/", sizeof (meltcdat->dstr_1866__.val)-1); meltcdat->dstr_1866__.val[1] = (char)0 ; meltcdat->dstr_1866__.slen = 1 ; /*inirout drout_1867__MEXPAND_TUPLE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1961*/ - meltfptr[1960] = (melt_ptr_t) &meltcdat->drout_1867__MEXPAND_TUPLE; + /*iniroutlocvar*/ /*_._VALROUT___V1961*/ meltfptr[1960] = (melt_ptr_t) &meltcdat->drout_1867__MEXPAND_TUPLE; meltcdat->drout_1867__MEXPAND_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1867__MEXPAND_TUPLE.routdescr, "MEXPAND_TUPLE @warmelt-macro.melt:6389", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1867__MEXPAND_TUPLE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1867__MEXPAND_TUPLE, meltrout_114_WARMELTmiMACRO_MEXPAND_TUPLE); /*iniclos dclo_1868__MEXPAND_TUPLE*/ - /*_._VALCLO___V1962*/ - meltfptr[1961] = (melt_ptr_t) &meltcdat->dclo_1868__MEXPAND_TUPLE; + /*_._VALCLO___V1962*/ meltfptr[1961] = (melt_ptr_t) &meltcdat->dclo_1868__MEXPAND_TUPLE; meltcdat->dclo_1868__MEXPAND_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1868__MEXPAND_TUPLE.nbval = 0; /*inirout drout_1869__PATEXPAND_TUPLE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1963*/ - meltfptr[1962] = (melt_ptr_t) &meltcdat->drout_1869__PATEXPAND_TUPLE; + /*iniroutlocvar*/ /*_._VALROUT___V1963*/ meltfptr[1962] = (melt_ptr_t) &meltcdat->drout_1869__PATEXPAND_TUPLE; meltcdat->drout_1869__PATEXPAND_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1869__PATEXPAND_TUPLE.routdescr, "PATEXPAND_TUPLE @warmelt-macro.melt:6406", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1869__PATEXPAND_TUPLE.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1869__PATEXPAND_TUPLE, meltrout_115_WARMELTmiMACRO_PATEXPAND_TUPLE); /*iniclos dclo_1870__PATEXPAND_TUPLE*/ - /*_._VALCLO___V1964*/ - meltfptr[1963] = (melt_ptr_t) &meltcdat->dclo_1870__PATEXPAND_TUPLE; + /*_._VALCLO___V1964*/ meltfptr[1963] = (melt_ptr_t) &meltcdat->dclo_1870__PATEXPAND_TUPLE; meltcdat->dclo_1870__PATEXPAND_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1870__PATEXPAND_TUPLE.nbval = 0; /*iniobj dsym_1871__TUPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1965*/ meltfptr[1964]) + /*uniqueobj*/ if (!/*_._VALDATA___V1965*/ meltfptr[1964]) /*_._VALDATA___V1965*/ meltfptr[1964] = (melt_ptr_t )&meltcdat->dsym_1871__TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1871__TUPLE", 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_1871__TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29101,46 +25592,39 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1872__TUPLE*/ - /*_._VALSTR___V1966*/ - meltfptr[1965] = (melt_ptr_t) &meltcdat->dstr_1872__TUPLE; + /*_._VALSTR___V1966*/ meltfptr[1965] = (melt_ptr_t) &meltcdat->dstr_1872__TUPLE; meltcdat->dstr_1872__TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1872__TUPLE.val, "TUPLE", sizeof (meltcdat->dstr_1872__TUPLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1872__TUPLE.val, "TUPLE", sizeof (meltcdat->dstr_1872__TUPLE.val)-1); meltcdat->dstr_1872__TUPLE.val[5] = (char)0 ; meltcdat->dstr_1872__TUPLE.slen = 5 ; /*inirout drout_1873__MEXPAND_LIST*/ - /*iniroutlocvar*/ /*_._VALROUT___V1967*/ - meltfptr[1966] = (melt_ptr_t) &meltcdat->drout_1873__MEXPAND_LIST; + /*iniroutlocvar*/ /*_._VALROUT___V1967*/ meltfptr[1966] = (melt_ptr_t) &meltcdat->drout_1873__MEXPAND_LIST; meltcdat->drout_1873__MEXPAND_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1873__MEXPAND_LIST.routdescr, "MEXPAND_LIST @warmelt-macro.melt:6435", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1873__MEXPAND_LIST.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1873__MEXPAND_LIST, meltrout_116_WARMELTmiMACRO_MEXPAND_LIST); /*iniclos dclo_1874__MEXPAND_LIST*/ - /*_._VALCLO___V1968*/ - meltfptr[1967] = (melt_ptr_t) &meltcdat->dclo_1874__MEXPAND_LIST; + /*_._VALCLO___V1968*/ meltfptr[1967] = (melt_ptr_t) &meltcdat->dclo_1874__MEXPAND_LIST; meltcdat->dclo_1874__MEXPAND_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1874__MEXPAND_LIST.nbval = 0; /*inirout drout_1875__PATEXPAND_LIST*/ - /*iniroutlocvar*/ /*_._VALROUT___V1969*/ - meltfptr[1968] = (melt_ptr_t) &meltcdat->drout_1875__PATEXPAND_LIST; + /*iniroutlocvar*/ /*_._VALROUT___V1969*/ meltfptr[1968] = (melt_ptr_t) &meltcdat->drout_1875__PATEXPAND_LIST; meltcdat->drout_1875__PATEXPAND_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1875__PATEXPAND_LIST.routdescr, "PATEXPAND_LIST @warmelt-macro.melt:6452", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1875__PATEXPAND_LIST.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1875__PATEXPAND_LIST, meltrout_117_WARMELTmiMACRO_PATEXPAND_LIST); /*iniclos dclo_1876__PATEXPAND_LIST*/ - /*_._VALCLO___V1970*/ - meltfptr[1969] = (melt_ptr_t) &meltcdat->dclo_1876__PATEXPAND_LIST; + /*_._VALCLO___V1970*/ meltfptr[1969] = (melt_ptr_t) &meltcdat->dclo_1876__PATEXPAND_LIST; meltcdat->dclo_1876__PATEXPAND_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1876__PATEXPAND_LIST.nbval = 0; /*iniobj dsym_1877__LIST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1971*/ meltfptr[1970]) + /*uniqueobj*/ if (!/*_._VALDATA___V1971*/ meltfptr[1970]) /*_._VALDATA___V1971*/ meltfptr[1970] = (melt_ptr_t )&meltcdat->dsym_1877__LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1877__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_1877__LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29150,31 +25634,26 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1878__LIST*/ - /*_._VALSTR___V1972*/ - meltfptr[1971] = (melt_ptr_t) &meltcdat->dstr_1878__LIST; + /*_._VALSTR___V1972*/ meltfptr[1971] = (melt_ptr_t) &meltcdat->dstr_1878__LIST; meltcdat->dstr_1878__LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1878__LIST.val, "LIST", sizeof (meltcdat->dstr_1878__LIST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1878__LIST.val, "LIST", sizeof (meltcdat->dstr_1878__LIST.val)-1); meltcdat->dstr_1878__LIST.val[4] = (char)0 ; meltcdat->dstr_1878__LIST.slen = 4 ; /*inirout drout_1879__MEXPAND_MATCH*/ - /*iniroutlocvar*/ /*_._VALROUT___V1973*/ - meltfptr[1972] = (melt_ptr_t) &meltcdat->drout_1879__MEXPAND_MATCH; + /*iniroutlocvar*/ /*_._VALROUT___V1973*/ meltfptr[1972] = (melt_ptr_t) &meltcdat->drout_1879__MEXPAND_MATCH; meltcdat->drout_1879__MEXPAND_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1879__MEXPAND_MATCH.routdescr, "MEXPAND_MATCH @warmelt-macro.melt:6482", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1879__MEXPAND_MATCH.nbval = 18; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1879__MEXPAND_MATCH, meltrout_118_WARMELTmiMACRO_MEXPAND_MATCH); /*iniclos dclo_1880__MEXPAND_MATCH*/ - /*_._VALCLO___V1975*/ - meltfptr[1974] = (melt_ptr_t) &meltcdat->dclo_1880__MEXPAND_MATCH; + /*_._VALCLO___V1975*/ meltfptr[1974] = (melt_ptr_t) &meltcdat->dclo_1880__MEXPAND_MATCH; meltcdat->dclo_1880__MEXPAND_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1880__MEXPAND_MATCH.nbval = 0; /*inirout drout_1881__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1974*/ - meltfptr[1973] = (melt_ptr_t) &meltcdat->drout_1881__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1974*/ meltfptr[1973] = (melt_ptr_t) &meltcdat->drout_1881__LAMBDA_; meltcdat->drout_1881__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1881__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:6496", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1881__LAMBDA_.nbval = 1; @@ -29182,8 +25661,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*iniobj dsym_1882__MATCH*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1976*/ meltfptr[1975]) + /*uniqueobj*/ if (!/*_._VALDATA___V1976*/ meltfptr[1975]) /*_._VALDATA___V1976*/ meltfptr[1975] = (melt_ptr_t )&meltcdat->dsym_1882__MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1882__MATCH", 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_1882__MATCH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29193,31 +25671,26 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1883__MATCH*/ - /*_._VALSTR___V1977*/ - meltfptr[1976] = (melt_ptr_t) &meltcdat->dstr_1883__MATCH; + /*_._VALSTR___V1977*/ meltfptr[1976] = (melt_ptr_t) &meltcdat->dstr_1883__MATCH; meltcdat->dstr_1883__MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1883__MATCH.val, "MATCH", sizeof (meltcdat->dstr_1883__MATCH.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1883__MATCH.val, "MATCH", sizeof (meltcdat->dstr_1883__MATCH.val)-1); meltcdat->dstr_1883__MATCH.val[5] = (char)0 ; meltcdat->dstr_1883__MATCH.slen = 5 ; /*inirout drout_1884__MEXPAND_MATCHALT*/ - /*iniroutlocvar*/ /*_._VALROUT___V1978*/ - meltfptr[1977] = (melt_ptr_t) &meltcdat->drout_1884__MEXPAND_MATCHALT; + /*iniroutlocvar*/ /*_._VALROUT___V1978*/ meltfptr[1977] = (melt_ptr_t) &meltcdat->drout_1884__MEXPAND_MATCHALT; meltcdat->drout_1884__MEXPAND_MATCHALT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1884__MEXPAND_MATCHALT.routdescr, "MEXPAND_MATCHALT @warmelt-macro.melt:6576", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1884__MEXPAND_MATCHALT.nbval = 18; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1884__MEXPAND_MATCHALT, meltrout_120_WARMELTmiMACRO_MEXPAND_MATCHALT); /*iniclos dclo_1885__MEXPAND_MATCHALT*/ - /*_._VALCLO___V1980*/ - meltfptr[1979] = (melt_ptr_t) &meltcdat->dclo_1885__MEXPAND_MATCHALT; + /*_._VALCLO___V1980*/ meltfptr[1979] = (melt_ptr_t) &meltcdat->dclo_1885__MEXPAND_MATCHALT; meltcdat->dclo_1885__MEXPAND_MATCHALT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1885__MEXPAND_MATCHALT.nbval = 0; /*inirout drout_1886__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1979*/ - meltfptr[1978] = (melt_ptr_t) &meltcdat->drout_1886__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1979*/ meltfptr[1978] = (melt_ptr_t) &meltcdat->drout_1886__LAMBDA_; meltcdat->drout_1886__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1886__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:6590", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1886__LAMBDA_.nbval = 1; @@ -29225,8 +25698,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*iniobj dsym_1887__MATCHALT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1981*/ meltfptr[1980]) + /*uniqueobj*/ if (!/*_._VALDATA___V1981*/ meltfptr[1980]) /*_._VALDATA___V1981*/ meltfptr[1980] = (melt_ptr_t )&meltcdat->dsym_1887__MATCHALT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1887__MATCHALT", 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_1887__MATCHALT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29236,32 +25708,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1888__MATCHALT*/ - /*_._VALSTR___V1982*/ - meltfptr[1981] = (melt_ptr_t) &meltcdat->dstr_1888__MATCHALT; + /*_._VALSTR___V1982*/ meltfptr[1981] = (melt_ptr_t) &meltcdat->dstr_1888__MATCHALT; meltcdat->dstr_1888__MATCHALT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1888__MATCHALT.val, "MATCHALT", sizeof (meltcdat->dstr_1888__MATCHALT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1888__MATCHALT.val, "MATCHALT", sizeof (meltcdat->dstr_1888__MATCHALT.val)-1); meltcdat->dstr_1888__MATCHALT.val[8] = (char)0 ; meltcdat->dstr_1888__MATCHALT.slen = 8 ; /*inirout drout_1889__MEXPAND_LETBINDING*/ - /*iniroutlocvar*/ /*_._VALROUT___V1983*/ - meltfptr[1982] = (melt_ptr_t) &meltcdat->drout_1889__MEXPAND_LETBINDING; + /*iniroutlocvar*/ /*_._VALROUT___V1983*/ meltfptr[1982] = (melt_ptr_t) &meltcdat->drout_1889__MEXPAND_LETBINDING; meltcdat->drout_1889__MEXPAND_LETBINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1889__MEXPAND_LETBINDING.routdescr, "MEXPAND_LETBINDING @warmelt-macro.melt:6668", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1889__MEXPAND_LETBINDING.nbval = 28; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1889__MEXPAND_LETBINDING, meltrout_122_WARMELTmiMACRO_MEXPAND_LETBINDING); /*iniclos dclo_1890__MEXPAND_LETBINDING*/ - /*_._VALCLO___V1984*/ - meltfptr[1983] = (melt_ptr_t) &meltcdat->dclo_1890__MEXPAND_LETBINDING; + /*_._VALCLO___V1984*/ meltfptr[1983] = (melt_ptr_t) &meltcdat->dclo_1890__MEXPAND_LETBINDING; meltcdat->dclo_1890__MEXPAND_LETBINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1890__MEXPAND_LETBINDING.nbval = 0; /*iniobj dsym_1891__QUASI_CTYPE_AUTO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1985*/ meltfptr[1984]) + /*uniqueobj*/ if (!/*_._VALDATA___V1985*/ meltfptr[1984]) /*_._VALDATA___V1985*/ meltfptr[1984] = (melt_ptr_t )&meltcdat->dsym_1891__QUASI_CTYPE_AUTO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1891__QUASI_CTYPE_AUTO", 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_1891__QUASI_CTYPE_AUTO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29271,18 +25738,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1892__QUASI_CTYPE_AUTO*/ - /*_._VALSTR___V1986*/ - meltfptr[1985] = (melt_ptr_t) &meltcdat->dstr_1892__QUASI_CTYPE_AUTO; + /*_._VALSTR___V1986*/ meltfptr[1985] = (melt_ptr_t) &meltcdat->dstr_1892__QUASI_CTYPE_AUTO; meltcdat->dstr_1892__QUASI_CTYPE_AUTO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1892__QUASI_CTYPE_AUTO.val, "QUASI_CTYPE_AUTO", sizeof (meltcdat->dstr_1892__QUASI_CTYPE_AUTO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1892__QUASI_CTYPE_AUTO.val, "QUASI_CTYPE_AUTO", sizeof (meltcdat->dstr_1892__QUASI_CTYPE_AUTO.val)-1); meltcdat->dstr_1892__QUASI_CTYPE_AUTO.val[16] = (char)0 ; meltcdat->dstr_1892__QUASI_CTYPE_AUTO.slen = 16 ; /*iniobj dsym_1893__QUASI_CTYPE_MACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1987*/ meltfptr[1986]) + /*uniqueobj*/ if (!/*_._VALDATA___V1987*/ meltfptr[1986]) /*_._VALDATA___V1987*/ meltfptr[1986] = (melt_ptr_t )&meltcdat->dsym_1893__QUASI_CTYPE_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1893__QUASI_CTYPE_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_1893__QUASI_CTYPE_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29292,18 +25756,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1894__QUASI_CTYPE_MACRO*/ - /*_._VALSTR___V1988*/ - meltfptr[1987] = (melt_ptr_t) &meltcdat->dstr_1894__QUASI_CTYPE_MACRO; + /*_._VALSTR___V1988*/ meltfptr[1987] = (melt_ptr_t) &meltcdat->dstr_1894__QUASI_CTYPE_MACRO; meltcdat->dstr_1894__QUASI_CTYPE_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1894__QUASI_CTYPE_MACRO.val, "QUASI_CTYPE_MACRO", sizeof (meltcdat->dstr_1894__QUASI_CTYPE_MACRO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1894__QUASI_CTYPE_MACRO.val, "QUASI_CTYPE_MACRO", sizeof (meltcdat->dstr_1894__QUASI_CTYPE_MACRO.val)-1); meltcdat->dstr_1894__QUASI_CTYPE_MACRO.val[17] = (char)0 ; meltcdat->dstr_1894__QUASI_CTYPE_MACRO.slen = 17 ; /*iniobj dsym_1895__CLASS_FIXED_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1989*/ meltfptr[1988]) + /*uniqueobj*/ if (!/*_._VALDATA___V1989*/ meltfptr[1988]) /*_._VALDATA___V1989*/ meltfptr[1988] = (melt_ptr_t )&meltcdat->dsym_1895__CLASS_FIXED_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1895__CLASS_FIXED_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_1895__CLASS_FIXED_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29313,62 +25774,53 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1896__CLASS_FIXED_BINDING*/ - /*_._VALSTR___V1990*/ - meltfptr[1989] = (melt_ptr_t) &meltcdat->dstr_1896__CLASS_FIXED_BINDING; + /*_._VALSTR___V1990*/ meltfptr[1989] = (melt_ptr_t) &meltcdat->dstr_1896__CLASS_FIXED_BINDING; meltcdat->dstr_1896__CLASS_FIXED_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1896__CLASS_FIXED_BINDING.val, "CLASS_FIXED_BINDING", sizeof (meltcdat->dstr_1896__CLASS_FIXED_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1896__CLASS_FIXED_BINDING.val, "CLASS_FIXED_BINDING", sizeof (meltcdat->dstr_1896__CLASS_FIXED_BINDING.val)-1); meltcdat->dstr_1896__CLASS_FIXED_BINDING.val[19] = (char)0 ; meltcdat->dstr_1896__CLASS_FIXED_BINDING.slen = 19 ; /*inirout drout_1897__MEXPAND_LET*/ - /*iniroutlocvar*/ /*_._VALROUT___V1991*/ - meltfptr[1990] = (melt_ptr_t) &meltcdat->drout_1897__MEXPAND_LET; + /*iniroutlocvar*/ /*_._VALROUT___V1991*/ meltfptr[1990] = (melt_ptr_t) &meltcdat->drout_1897__MEXPAND_LET; meltcdat->drout_1897__MEXPAND_LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1897__MEXPAND_LET.routdescr, "MEXPAND_LET @warmelt-macro.melt:6795", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1897__MEXPAND_LET.nbval = 17; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1897__MEXPAND_LET, meltrout_123_WARMELTmiMACRO_MEXPAND_LET); /*iniclos dclo_1898__MEXPAND_LET*/ - /*_._VALCLO___V1994*/ - meltfptr[1993] = (melt_ptr_t) &meltcdat->dclo_1898__MEXPAND_LET; + /*_._VALCLO___V1994*/ meltfptr[1993] = (melt_ptr_t) &meltcdat->dclo_1898__MEXPAND_LET; meltcdat->dclo_1898__MEXPAND_LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1898__MEXPAND_LET.nbval = 0; /*inirout drout_1899__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1992*/ - meltfptr[1991] = (melt_ptr_t) &meltcdat->drout_1899__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1992*/ meltfptr[1991] = (melt_ptr_t) &meltcdat->drout_1899__LAMBDA_; meltcdat->drout_1899__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1899__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:6817", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1899__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1899__LAMBDA_, meltrout_124_WARMELTmiMACRO_LAMBDA_cl20); /*inirout drout_1900__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V1993*/ - meltfptr[1992] = (melt_ptr_t) &meltcdat->drout_1900__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V1993*/ meltfptr[1992] = (melt_ptr_t) &meltcdat->drout_1900__LAMBDA_; meltcdat->drout_1900__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1900__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:6841", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1900__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1900__LAMBDA_, meltrout_125_WARMELTmiMACRO_LAMBDA_cl21); /*inirout drout_1901__YES_RECURSIVELY_CONSTRUCTIBLE*/ - /*iniroutlocvar*/ /*_._VALROUT___V1995*/ - meltfptr[1994] = (melt_ptr_t) &meltcdat->drout_1901__YES_RECURSIVELY_CONSTRUCTIBLE; + /*iniroutlocvar*/ /*_._VALROUT___V1995*/ meltfptr[1994] = (melt_ptr_t) &meltcdat->drout_1901__YES_RECURSIVELY_CONSTRUCTIBLE; meltcdat->drout_1901__YES_RECURSIVELY_CONSTRUCTIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1901__YES_RECURSIVELY_CONSTRUCTIBLE.routdescr, "YES_RECURSIVELY_CONSTRUCTIBLE @warmelt-macro.melt:6866", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1901__YES_RECURSIVELY_CONSTRUCTIBLE.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1901__YES_RECURSIVELY_CONSTRUCTIBLE, meltrout_126_WARMELTmiMACRO_YES_RECURSIVELY_CONSTRUCTIBLE); /*iniclos dclo_1902__YES_RECURSIVELY_CONSTRUCTIBLE*/ - /*_._VALCLO___V1996*/ - meltfptr[1995] = (melt_ptr_t) &meltcdat->dclo_1902__YES_RECURSIVELY_CONSTRUCTIBLE; + /*_._VALCLO___V1996*/ meltfptr[1995] = (melt_ptr_t) &meltcdat->dclo_1902__YES_RECURSIVELY_CONSTRUCTIBLE; meltcdat->dclo_1902__YES_RECURSIVELY_CONSTRUCTIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1902__YES_RECURSIVELY_CONSTRUCTIBLE.nbval = 0; /*iniobj dsym_1903__INSTALL_METHOD*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V1997*/ meltfptr[1996]) + /*uniqueobj*/ if (!/*_._VALDATA___V1997*/ meltfptr[1996]) /*_._VALDATA___V1997*/ meltfptr[1996] = (melt_ptr_t )&meltcdat->dsym_1903__INSTALL_METHOD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1903__INSTALL_METHOD", 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_1903__INSTALL_METHOD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29378,31 +25830,26 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1904__INSTALL_METHOD*/ - /*_._VALSTR___V1998*/ - meltfptr[1997] = (melt_ptr_t) &meltcdat->dstr_1904__INSTALL_METHOD; + /*_._VALSTR___V1998*/ meltfptr[1997] = (melt_ptr_t) &meltcdat->dstr_1904__INSTALL_METHOD; meltcdat->dstr_1904__INSTALL_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1904__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof (meltcdat->dstr_1904__INSTALL_METHOD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1904__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof (meltcdat->dstr_1904__INSTALL_METHOD.val)-1); meltcdat->dstr_1904__INSTALL_METHOD.val[14] = (char)0 ; meltcdat->dstr_1904__INSTALL_METHOD.slen = 14 ; /*inirout drout_1905__MEXPAND_LETREC*/ - /*iniroutlocvar*/ /*_._VALROUT___V1999*/ - meltfptr[1998] = (melt_ptr_t) &meltcdat->drout_1905__MEXPAND_LETREC; + /*iniroutlocvar*/ /*_._VALROUT___V1999*/ meltfptr[1998] = (melt_ptr_t) &meltcdat->drout_1905__MEXPAND_LETREC; meltcdat->drout_1905__MEXPAND_LETREC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1905__MEXPAND_LETREC.routdescr, "MEXPAND_LETREC @warmelt-macro.melt:6879", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1905__MEXPAND_LETREC.nbval = 22; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1905__MEXPAND_LETREC, meltrout_127_WARMELTmiMACRO_MEXPAND_LETREC); /*iniclos dclo_1906__MEXPAND_LETREC*/ - /*_._VALCLO___V2002*/ - meltfptr[2001] = (melt_ptr_t) &meltcdat->dclo_1906__MEXPAND_LETREC; + /*_._VALCLO___V2002*/ meltfptr[2001] = (melt_ptr_t) &meltcdat->dclo_1906__MEXPAND_LETREC; meltcdat->dclo_1906__MEXPAND_LETREC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1906__MEXPAND_LETREC.nbval = 0; /*inirout drout_1907__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V2000*/ - meltfptr[1999] = (melt_ptr_t) &meltcdat->drout_1907__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V2000*/ meltfptr[1999] = (melt_ptr_t) &meltcdat->drout_1907__LAMBDA_; meltcdat->drout_1907__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1907__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:6906", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1907__LAMBDA_.nbval = 1; @@ -29410,8 +25857,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*iniobj dsym_1908__CLASS_LETREC_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2003*/ meltfptr[2002]) + /*uniqueobj*/ if (!/*_._VALDATA___V2003*/ meltfptr[2002]) /*_._VALDATA___V2003*/ meltfptr[2002] = (melt_ptr_t )&meltcdat->dsym_1908__CLASS_LETREC_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1908__CLASS_LETREC_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_1908__CLASS_LETREC_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29421,17 +25867,14 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1909__CLASS_LETREC_BINDING*/ - /*_._VALSTR___V2004*/ - meltfptr[2003] = (melt_ptr_t) &meltcdat->dstr_1909__CLASS_LETREC_BINDING; + /*_._VALSTR___V2004*/ meltfptr[2003] = (melt_ptr_t) &meltcdat->dstr_1909__CLASS_LETREC_BINDING; meltcdat->dstr_1909__CLASS_LETREC_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1909__CLASS_LETREC_BINDING.val, "CLASS_LETREC_BINDING", sizeof (meltcdat->dstr_1909__CLASS_LETREC_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1909__CLASS_LETREC_BINDING.val, "CLASS_LETREC_BINDING", sizeof (meltcdat->dstr_1909__CLASS_LETREC_BINDING.val)-1); meltcdat->dstr_1909__CLASS_LETREC_BINDING.val[20] = (char)0 ; meltcdat->dstr_1909__CLASS_LETREC_BINDING.slen = 20 ; /*inirout drout_1910__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V2001*/ - meltfptr[2000] = (melt_ptr_t) &meltcdat->drout_1910__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V2001*/ meltfptr[2000] = (melt_ptr_t) &meltcdat->drout_1910__LAMBDA_; meltcdat->drout_1910__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1910__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7012", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1910__LAMBDA_.nbval = 0; @@ -29439,8 +25882,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*iniobj dsym_1911__LETREC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2005*/ meltfptr[2004]) + /*uniqueobj*/ if (!/*_._VALDATA___V2005*/ meltfptr[2004]) /*_._VALDATA___V2005*/ meltfptr[2004] = (melt_ptr_t )&meltcdat->dsym_1911__LETREC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1911__LETREC", 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_1911__LETREC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29450,31 +25892,26 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1912__LETREC*/ - /*_._VALSTR___V2006*/ - meltfptr[2005] = (melt_ptr_t) &meltcdat->dstr_1912__LETREC; + /*_._VALSTR___V2006*/ meltfptr[2005] = (melt_ptr_t) &meltcdat->dstr_1912__LETREC; meltcdat->dstr_1912__LETREC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1912__LETREC.val, "LETREC", sizeof (meltcdat->dstr_1912__LETREC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1912__LETREC.val, "LETREC", sizeof (meltcdat->dstr_1912__LETREC.val)-1); meltcdat->dstr_1912__LETREC.val[6] = (char)0 ; meltcdat->dstr_1912__LETREC.slen = 6 ; /*inirout drout_1913__MEXPAND_LAMBDA*/ - /*iniroutlocvar*/ /*_._VALROUT___V2007*/ - meltfptr[2006] = (melt_ptr_t) &meltcdat->drout_1913__MEXPAND_LAMBDA; + /*iniroutlocvar*/ /*_._VALROUT___V2007*/ meltfptr[2006] = (melt_ptr_t) &meltcdat->drout_1913__MEXPAND_LAMBDA; meltcdat->drout_1913__MEXPAND_LAMBDA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1913__MEXPAND_LAMBDA.routdescr, "MEXPAND_LAMBDA @warmelt-macro.melt:7034", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1913__MEXPAND_LAMBDA.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1913__MEXPAND_LAMBDA, meltrout_130_WARMELTmiMACRO_MEXPAND_LAMBDA); /*iniclos dclo_1914__MEXPAND_LAMBDA*/ - /*_._VALCLO___V2009*/ - meltfptr[2008] = (melt_ptr_t) &meltcdat->dclo_1914__MEXPAND_LAMBDA; + /*_._VALCLO___V2009*/ meltfptr[2008] = (melt_ptr_t) &meltcdat->dclo_1914__MEXPAND_LAMBDA; meltcdat->dclo_1914__MEXPAND_LAMBDA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1914__MEXPAND_LAMBDA.nbval = 0; /*inirout drout_1915__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V2008*/ - meltfptr[2007] = (melt_ptr_t) &meltcdat->drout_1915__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V2008*/ meltfptr[2007] = (melt_ptr_t) &meltcdat->drout_1915__LAMBDA_; meltcdat->drout_1915__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1915__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7058", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1915__LAMBDA_.nbval = 0; @@ -29482,8 +25919,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*iniobj dsym_1916__LAMBDA*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2010*/ meltfptr[2009]) + /*uniqueobj*/ if (!/*_._VALDATA___V2010*/ meltfptr[2009]) /*_._VALDATA___V2010*/ meltfptr[2009] = (melt_ptr_t )&meltcdat->dsym_1916__LAMBDA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1916__LAMBDA", 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_1916__LAMBDA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29493,78 +25929,67 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1917__LAMBDA*/ - /*_._VALSTR___V2011*/ - meltfptr[2010] = (melt_ptr_t) &meltcdat->dstr_1917__LAMBDA; + /*_._VALSTR___V2011*/ meltfptr[2010] = (melt_ptr_t) &meltcdat->dstr_1917__LAMBDA; meltcdat->dstr_1917__LAMBDA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1917__LAMBDA.val, "LAMBDA", sizeof (meltcdat->dstr_1917__LAMBDA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1917__LAMBDA.val, "LAMBDA", sizeof (meltcdat->dstr_1917__LAMBDA.val)-1); meltcdat->dstr_1917__LAMBDA.val[6] = (char)0 ; meltcdat->dstr_1917__LAMBDA.slen = 6 ; /*inirout drout_1918__MEXPAND_VARIADIC*/ - /*iniroutlocvar*/ /*_._VALROUT___V2012*/ - meltfptr[2011] = (melt_ptr_t) &meltcdat->drout_1918__MEXPAND_VARIADIC; + /*iniroutlocvar*/ /*_._VALROUT___V2012*/ meltfptr[2011] = (melt_ptr_t) &meltcdat->drout_1918__MEXPAND_VARIADIC; meltcdat->drout_1918__MEXPAND_VARIADIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1918__MEXPAND_VARIADIC.routdescr, "MEXPAND_VARIADIC @warmelt-macro.melt:7086", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1918__MEXPAND_VARIADIC.nbval = 27; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1918__MEXPAND_VARIADIC, meltrout_132_WARMELTmiMACRO_MEXPAND_VARIADIC); /*iniclos dclo_1919__MEXPAND_VARIADIC*/ - /*_._VALCLO___V2017*/ - meltfptr[2016] = (melt_ptr_t) &meltcdat->dclo_1919__MEXPAND_VARIADIC; + /*_._VALCLO___V2017*/ meltfptr[2016] = (melt_ptr_t) &meltcdat->dclo_1919__MEXPAND_VARIADIC; meltcdat->dclo_1919__MEXPAND_VARIADIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1919__MEXPAND_VARIADIC.nbval = 0; /*inirout drout_1920__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V2013*/ - meltfptr[2012] = (melt_ptr_t) &meltcdat->drout_1920__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V2013*/ meltfptr[2012] = (melt_ptr_t) &meltcdat->drout_1920__LAMBDA_; meltcdat->drout_1920__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1920__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7096", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1920__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1920__LAMBDA_, meltrout_133_WARMELTmiMACRO_LAMBDA_cl25); /*inirout drout_1921__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V2014*/ - meltfptr[2013] = (melt_ptr_t) &meltcdat->drout_1921__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V2014*/ meltfptr[2013] = (melt_ptr_t) &meltcdat->drout_1921__LAMBDA_; meltcdat->drout_1921__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1921__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7126", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1921__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1921__LAMBDA_, meltrout_134_WARMELTmiMACRO_LAMBDA_cl26); /*inirout drout_1922__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V2015*/ - meltfptr[2014] = (melt_ptr_t) &meltcdat->drout_1922__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V2015*/ meltfptr[2014] = (melt_ptr_t) &meltcdat->drout_1922__LAMBDA_; meltcdat->drout_1922__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1922__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7158", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1922__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1922__LAMBDA_, meltrout_135_WARMELTmiMACRO_LAMBDA_cl27); /*inirout drout_1923__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V2016*/ - meltfptr[2015] = (melt_ptr_t) &meltcdat->drout_1923__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V2016*/ meltfptr[2015] = (melt_ptr_t) &meltcdat->drout_1923__LAMBDA_; meltcdat->drout_1923__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1923__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7169", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1923__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1923__LAMBDA_, meltrout_136_WARMELTmiMACRO_LAMBDA_cl28); /*inirout drout_1924__MEXPAND_MULTICALL*/ - /*iniroutlocvar*/ /*_._VALROUT___V2018*/ - meltfptr[2017] = (melt_ptr_t) &meltcdat->drout_1924__MEXPAND_MULTICALL; + /*iniroutlocvar*/ /*_._VALROUT___V2018*/ meltfptr[2017] = (melt_ptr_t) &meltcdat->drout_1924__MEXPAND_MULTICALL; meltcdat->drout_1924__MEXPAND_MULTICALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1924__MEXPAND_MULTICALL.routdescr, "MEXPAND_MULTICALL @warmelt-macro.melt:7211", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1924__MEXPAND_MULTICALL.nbval = 16; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1924__MEXPAND_MULTICALL, meltrout_137_WARMELTmiMACRO_MEXPAND_MULTICALL); /*iniclos dclo_1925__MEXPAND_MULTICALL*/ - /*_._VALCLO___V2021*/ - meltfptr[2020] = (melt_ptr_t) &meltcdat->dclo_1925__MEXPAND_MULTICALL; + /*_._VALCLO___V2021*/ meltfptr[2020] = (melt_ptr_t) &meltcdat->dclo_1925__MEXPAND_MULTICALL; meltcdat->dclo_1925__MEXPAND_MULTICALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1925__MEXPAND_MULTICALL.nbval = 0; /*iniobj dsym_1926__MULTIPLE_EVERY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2022*/ meltfptr[2021]) + /*uniqueobj*/ if (!/*_._VALDATA___V2022*/ meltfptr[2021]) /*_._VALDATA___V2022*/ meltfptr[2021] = (melt_ptr_t )&meltcdat->dsym_1926__MULTIPLE_EVERY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1926__MULTIPLE_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_1926__MULTIPLE_EVERY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29574,25 +25999,21 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1927__MULTIPLE_EVERY*/ - /*_._VALSTR___V2023*/ - meltfptr[2022] = (melt_ptr_t) &meltcdat->dstr_1927__MULTIPLE_EVERY; + /*_._VALSTR___V2023*/ meltfptr[2022] = (melt_ptr_t) &meltcdat->dstr_1927__MULTIPLE_EVERY; meltcdat->dstr_1927__MULTIPLE_EVERY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1927__MULTIPLE_EVERY.val, "MULTIPLE_EVERY", sizeof (meltcdat->dstr_1927__MULTIPLE_EVERY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1927__MULTIPLE_EVERY.val, "MULTIPLE_EVERY", sizeof (meltcdat->dstr_1927__MULTIPLE_EVERY.val)-1); meltcdat->dstr_1927__MULTIPLE_EVERY.val[14] = (char)0 ; meltcdat->dstr_1927__MULTIPLE_EVERY.slen = 14 ; /*inirout drout_1928__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V2019*/ - meltfptr[2018] = (melt_ptr_t) &meltcdat->drout_1928__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V2019*/ meltfptr[2018] = (melt_ptr_t) &meltcdat->drout_1928__LAMBDA_; meltcdat->drout_1928__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1928__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7245", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1928__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1928__LAMBDA_, meltrout_138_WARMELTmiMACRO_LAMBDA_cl29); /*inirout drout_1929__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V2020*/ - meltfptr[2019] = (melt_ptr_t) &meltcdat->drout_1929__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V2020*/ meltfptr[2019] = (melt_ptr_t) &meltcdat->drout_1929__LAMBDA_; meltcdat->drout_1929__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1929__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7249", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1929__LAMBDA_.nbval = 0; @@ -29600,8 +26021,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*iniobj dsym_1930__MULTICALL*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2024*/ meltfptr[2023]) + /*uniqueobj*/ if (!/*_._VALDATA___V2024*/ meltfptr[2023]) /*_._VALDATA___V2024*/ meltfptr[2023] = (melt_ptr_t )&meltcdat->dsym_1930__MULTICALL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1930__MULTICALL", 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_1930__MULTICALL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29611,60 +26031,51 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1931__MULTICALL*/ - /*_._VALSTR___V2025*/ - meltfptr[2024] = (melt_ptr_t) &meltcdat->dstr_1931__MULTICALL; + /*_._VALSTR___V2025*/ meltfptr[2024] = (melt_ptr_t) &meltcdat->dstr_1931__MULTICALL; meltcdat->dstr_1931__MULTICALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1931__MULTICALL.val, "MULTICALL", sizeof (meltcdat->dstr_1931__MULTICALL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1931__MULTICALL.val, "MULTICALL", sizeof (meltcdat->dstr_1931__MULTICALL.val)-1); meltcdat->dstr_1931__MULTICALL.val[9] = (char)0 ; meltcdat->dstr_1931__MULTICALL.slen = 9 ; /*inirout drout_1932__MEXPAND_BOX*/ - /*iniroutlocvar*/ /*_._VALROUT___V2026*/ - meltfptr[2025] = (melt_ptr_t) &meltcdat->drout_1932__MEXPAND_BOX; + /*iniroutlocvar*/ /*_._VALROUT___V2026*/ meltfptr[2025] = (melt_ptr_t) &meltcdat->drout_1932__MEXPAND_BOX; meltcdat->drout_1932__MEXPAND_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1932__MEXPAND_BOX.routdescr, "MEXPAND_BOX @warmelt-macro.melt:7274", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1932__MEXPAND_BOX.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1932__MEXPAND_BOX, meltrout_140_WARMELTmiMACRO_MEXPAND_BOX); /*iniclos dclo_1933__MEXPAND_BOX*/ - /*_._VALCLO___V2027*/ - meltfptr[2026] = (melt_ptr_t) &meltcdat->dclo_1933__MEXPAND_BOX; + /*_._VALCLO___V2027*/ meltfptr[2026] = (melt_ptr_t) &meltcdat->dclo_1933__MEXPAND_BOX; meltcdat->dclo_1933__MEXPAND_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1933__MEXPAND_BOX.nbval = 0; /*inirout drout_1934__MEXPAND_CONSTANT_BOX*/ - /*iniroutlocvar*/ /*_._VALROUT___V2028*/ - meltfptr[2027] = (melt_ptr_t) &meltcdat->drout_1934__MEXPAND_CONSTANT_BOX; + /*iniroutlocvar*/ /*_._VALROUT___V2028*/ meltfptr[2027] = (melt_ptr_t) &meltcdat->drout_1934__MEXPAND_CONSTANT_BOX; meltcdat->drout_1934__MEXPAND_CONSTANT_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1934__MEXPAND_CONSTANT_BOX.routdescr, "MEXPAND_CONSTANT_BOX @warmelt-macro.melt:7306", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1934__MEXPAND_CONSTANT_BOX.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1934__MEXPAND_CONSTANT_BOX, meltrout_141_WARMELTmiMACRO_MEXPAND_CONSTANT_BOX); /*iniclos dclo_1935__MEXPAND_CONSTANT_BOX*/ - /*_._VALCLO___V2029*/ - meltfptr[2028] = (melt_ptr_t) &meltcdat->dclo_1935__MEXPAND_CONSTANT_BOX; + /*_._VALCLO___V2029*/ meltfptr[2028] = (melt_ptr_t) &meltcdat->dclo_1935__MEXPAND_CONSTANT_BOX; meltcdat->dclo_1935__MEXPAND_CONSTANT_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1935__MEXPAND_CONSTANT_BOX.nbval = 0; /*inirout drout_1936__MEXPAND_UNBOX*/ - /*iniroutlocvar*/ /*_._VALROUT___V2030*/ - meltfptr[2029] = (melt_ptr_t) &meltcdat->drout_1936__MEXPAND_UNBOX; + /*iniroutlocvar*/ /*_._VALROUT___V2030*/ meltfptr[2029] = (melt_ptr_t) &meltcdat->drout_1936__MEXPAND_UNBOX; meltcdat->drout_1936__MEXPAND_UNBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1936__MEXPAND_UNBOX.routdescr, "MEXPAND_UNBOX @warmelt-macro.melt:7338", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1936__MEXPAND_UNBOX.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1936__MEXPAND_UNBOX, meltrout_142_WARMELTmiMACRO_MEXPAND_UNBOX); /*iniclos dclo_1937__MEXPAND_UNBOX*/ - /*_._VALCLO___V2031*/ - meltfptr[2030] = (melt_ptr_t) &meltcdat->dclo_1937__MEXPAND_UNBOX; + /*_._VALCLO___V2031*/ meltfptr[2030] = (melt_ptr_t) &meltcdat->dclo_1937__MEXPAND_UNBOX; meltcdat->dclo_1937__MEXPAND_UNBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1937__MEXPAND_UNBOX.nbval = 0; /*iniobj dsym_1938__UNBOX*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2032*/ meltfptr[2031]) + /*uniqueobj*/ if (!/*_._VALDATA___V2032*/ meltfptr[2031]) /*_._VALDATA___V2032*/ meltfptr[2031] = (melt_ptr_t )&meltcdat->dsym_1938__UNBOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1938__UNBOX", 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_1938__UNBOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29674,32 +26085,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1939__UNBOX*/ - /*_._VALSTR___V2033*/ - meltfptr[2032] = (melt_ptr_t) &meltcdat->dstr_1939__UNBOX; + /*_._VALSTR___V2033*/ meltfptr[2032] = (melt_ptr_t) &meltcdat->dstr_1939__UNBOX; meltcdat->dstr_1939__UNBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1939__UNBOX.val, "UNBOX", sizeof (meltcdat->dstr_1939__UNBOX.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1939__UNBOX.val, "UNBOX", sizeof (meltcdat->dstr_1939__UNBOX.val)-1); meltcdat->dstr_1939__UNBOX.val[5] = (char)0 ; meltcdat->dstr_1939__UNBOX.slen = 5 ; /*inirout drout_1940__MEXPAND_COMMENT*/ - /*iniroutlocvar*/ /*_._VALROUT___V2034*/ - meltfptr[2033] = (melt_ptr_t) &meltcdat->drout_1940__MEXPAND_COMMENT; + /*iniroutlocvar*/ /*_._VALROUT___V2034*/ meltfptr[2033] = (melt_ptr_t) &meltcdat->drout_1940__MEXPAND_COMMENT; meltcdat->drout_1940__MEXPAND_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1940__MEXPAND_COMMENT.routdescr, "MEXPAND_COMMENT @warmelt-macro.melt:7384", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1940__MEXPAND_COMMENT.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1940__MEXPAND_COMMENT, meltrout_143_WARMELTmiMACRO_MEXPAND_COMMENT); /*iniclos dclo_1941__MEXPAND_COMMENT*/ - /*_._VALCLO___V2035*/ - meltfptr[2034] = (melt_ptr_t) &meltcdat->dclo_1941__MEXPAND_COMMENT; + /*_._VALCLO___V2035*/ meltfptr[2034] = (melt_ptr_t) &meltcdat->dclo_1941__MEXPAND_COMMENT; meltcdat->dclo_1941__MEXPAND_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1941__MEXPAND_COMMENT.nbval = 0; /*iniobj dsym_1942__COMMENT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2036*/ meltfptr[2035]) + /*uniqueobj*/ if (!/*_._VALDATA___V2036*/ meltfptr[2035]) /*_._VALDATA___V2036*/ meltfptr[2035] = (melt_ptr_t )&meltcdat->dsym_1942__COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1942__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_1942__COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29709,32 +26115,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1943__COMMENT*/ - /*_._VALSTR___V2037*/ - meltfptr[2036] = (melt_ptr_t) &meltcdat->dstr_1943__COMMENT; + /*_._VALSTR___V2037*/ meltfptr[2036] = (melt_ptr_t) &meltcdat->dstr_1943__COMMENT; meltcdat->dstr_1943__COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1943__COMMENT.val, "COMMENT", sizeof (meltcdat->dstr_1943__COMMENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1943__COMMENT.val, "COMMENT", sizeof (meltcdat->dstr_1943__COMMENT.val)-1); meltcdat->dstr_1943__COMMENT.val[7] = (char)0 ; meltcdat->dstr_1943__COMMENT.slen = 7 ; /*inirout drout_1944__MEXPAND_CHEADER*/ - /*iniroutlocvar*/ /*_._VALROUT___V2038*/ - meltfptr[2037] = (melt_ptr_t) &meltcdat->drout_1944__MEXPAND_CHEADER; + /*iniroutlocvar*/ /*_._VALROUT___V2038*/ meltfptr[2037] = (melt_ptr_t) &meltcdat->drout_1944__MEXPAND_CHEADER; meltcdat->drout_1944__MEXPAND_CHEADER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1944__MEXPAND_CHEADER.routdescr, "MEXPAND_CHEADER @warmelt-macro.melt:7414", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1944__MEXPAND_CHEADER.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1944__MEXPAND_CHEADER, meltrout_144_WARMELTmiMACRO_MEXPAND_CHEADER); /*iniclos dclo_1945__MEXPAND_CHEADER*/ - /*_._VALCLO___V2039*/ - meltfptr[2038] = (melt_ptr_t) &meltcdat->dclo_1945__MEXPAND_CHEADER; + /*_._VALCLO___V2039*/ meltfptr[2038] = (melt_ptr_t) &meltcdat->dclo_1945__MEXPAND_CHEADER; meltcdat->dclo_1945__MEXPAND_CHEADER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1945__MEXPAND_CHEADER.nbval = 0; /*iniobj dsym_1946__CHEADER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2040*/ meltfptr[2039]) + /*uniqueobj*/ if (!/*_._VALDATA___V2040*/ meltfptr[2039]) /*_._VALDATA___V2040*/ meltfptr[2039] = (melt_ptr_t )&meltcdat->dsym_1946__CHEADER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1946__CHEADER", 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_1946__CHEADER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29744,32 +26145,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1947__CHEADER*/ - /*_._VALSTR___V2041*/ - meltfptr[2040] = (melt_ptr_t) &meltcdat->dstr_1947__CHEADER; + /*_._VALSTR___V2041*/ meltfptr[2040] = (melt_ptr_t) &meltcdat->dstr_1947__CHEADER; meltcdat->dstr_1947__CHEADER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1947__CHEADER.val, "CHEADER", sizeof (meltcdat->dstr_1947__CHEADER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1947__CHEADER.val, "CHEADER", sizeof (meltcdat->dstr_1947__CHEADER.val)-1); meltcdat->dstr_1947__CHEADER.val[7] = (char)0 ; meltcdat->dstr_1947__CHEADER.slen = 7 ; /*inirout drout_1948__MEXPAND_CIMPLEMENT*/ - /*iniroutlocvar*/ /*_._VALROUT___V2042*/ - meltfptr[2041] = (melt_ptr_t) &meltcdat->drout_1948__MEXPAND_CIMPLEMENT; + /*iniroutlocvar*/ /*_._VALROUT___V2042*/ meltfptr[2041] = (melt_ptr_t) &meltcdat->drout_1948__MEXPAND_CIMPLEMENT; meltcdat->drout_1948__MEXPAND_CIMPLEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1948__MEXPAND_CIMPLEMENT.routdescr, "MEXPAND_CIMPLEMENT @warmelt-macro.melt:7462", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1948__MEXPAND_CIMPLEMENT.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1948__MEXPAND_CIMPLEMENT, meltrout_145_WARMELTmiMACRO_MEXPAND_CIMPLEMENT); /*iniclos dclo_1949__MEXPAND_CIMPLEMENT*/ - /*_._VALCLO___V2043*/ - meltfptr[2042] = (melt_ptr_t) &meltcdat->dclo_1949__MEXPAND_CIMPLEMENT; + /*_._VALCLO___V2043*/ meltfptr[2042] = (melt_ptr_t) &meltcdat->dclo_1949__MEXPAND_CIMPLEMENT; meltcdat->dclo_1949__MEXPAND_CIMPLEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1949__MEXPAND_CIMPLEMENT.nbval = 0; /*iniobj dsym_1950__CIMPLEMENT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2044*/ meltfptr[2043]) + /*uniqueobj*/ if (!/*_._VALDATA___V2044*/ meltfptr[2043]) /*_._VALDATA___V2044*/ meltfptr[2043] = (melt_ptr_t )&meltcdat->dsym_1950__CIMPLEMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1950__CIMPLEMENT", 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_1950__CIMPLEMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29779,32 +26175,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1951__CIMPLEMENT*/ - /*_._VALSTR___V2045*/ - meltfptr[2044] = (melt_ptr_t) &meltcdat->dstr_1951__CIMPLEMENT; + /*_._VALSTR___V2045*/ meltfptr[2044] = (melt_ptr_t) &meltcdat->dstr_1951__CIMPLEMENT; meltcdat->dstr_1951__CIMPLEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1951__CIMPLEMENT.val, "CIMPLEMENT", sizeof (meltcdat->dstr_1951__CIMPLEMENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1951__CIMPLEMENT.val, "CIMPLEMENT", sizeof (meltcdat->dstr_1951__CIMPLEMENT.val)-1); meltcdat->dstr_1951__CIMPLEMENT.val[10] = (char)0 ; meltcdat->dstr_1951__CIMPLEMENT.slen = 10 ; /*inirout drout_1952__MEXPAND_MODULE_IS_GPL_COMPATIBLE*/ - /*iniroutlocvar*/ /*_._VALROUT___V2046*/ - meltfptr[2045] = (melt_ptr_t) &meltcdat->drout_1952__MEXPAND_MODULE_IS_GPL_COMPATIBLE; + /*iniroutlocvar*/ /*_._VALROUT___V2046*/ meltfptr[2045] = (melt_ptr_t) &meltcdat->drout_1952__MEXPAND_MODULE_IS_GPL_COMPATIBLE; meltcdat->drout_1952__MEXPAND_MODULE_IS_GPL_COMPATIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1952__MEXPAND_MODULE_IS_GPL_COMPATIBLE.routdescr, "MEXPAND_MODULE_IS_GPL_COMPATIBLE @warmelt-macro.melt:7510", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1952__MEXPAND_MODULE_IS_GPL_COMPATIBLE.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1952__MEXPAND_MODULE_IS_GPL_COMPATIBLE, meltrout_146_WARMELTmiMACRO_MEXPAND_MODULE_IS_GPL_COMPATIBLE); /*iniclos dclo_1953__MEXPAND_MODULE_IS_GPL_COMPATIBLE*/ - /*_._VALCLO___V2047*/ - meltfptr[2046] = (melt_ptr_t) &meltcdat->dclo_1953__MEXPAND_MODULE_IS_GPL_COMPATIBLE; + /*_._VALCLO___V2047*/ meltfptr[2046] = (melt_ptr_t) &meltcdat->dclo_1953__MEXPAND_MODULE_IS_GPL_COMPATIBLE; meltcdat->dclo_1953__MEXPAND_MODULE_IS_GPL_COMPATIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1953__MEXPAND_MODULE_IS_GPL_COMPATIBLE.nbval = 0; /*iniobj dsym_1954__MODULE_IS_GPL_COMPATIBLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2048*/ meltfptr[2047]) + /*uniqueobj*/ if (!/*_._VALDATA___V2048*/ meltfptr[2047]) /*_._VALDATA___V2048*/ meltfptr[2047] = (melt_ptr_t )&meltcdat->dsym_1954__MODULE_IS_GPL_COMPATIBLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1954__MODULE_IS_GPL_COMPATIBLE", 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_1954__MODULE_IS_GPL_COMPATIBLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29814,32 +26205,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1955__MODULE_IS_GPL_COMPATIBLE*/ - /*_._VALSTR___V2049*/ - meltfptr[2048] = (melt_ptr_t) &meltcdat->dstr_1955__MODULE_IS_GPL_COMPATIBLE; + /*_._VALSTR___V2049*/ meltfptr[2048] = (melt_ptr_t) &meltcdat->dstr_1955__MODULE_IS_GPL_COMPATIBLE; meltcdat->dstr_1955__MODULE_IS_GPL_COMPATIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1955__MODULE_IS_GPL_COMPATIBLE.val, "MODULE_IS_GPL_COMPATIBLE", sizeof (meltcdat->dstr_1955__MODULE_IS_GPL_COMPATIBLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1955__MODULE_IS_GPL_COMPATIBLE.val, "MODULE_IS_GPL_COMPATIBLE", sizeof (meltcdat->dstr_1955__MODULE_IS_GPL_COMPATIBLE.val)-1); meltcdat->dstr_1955__MODULE_IS_GPL_COMPATIBLE.val[24] = (char)0 ; meltcdat->dstr_1955__MODULE_IS_GPL_COMPATIBLE.slen = 24 ; /*inirout drout_1956__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG*/ - /*iniroutlocvar*/ /*_._VALROUT___V2050*/ - meltfptr[2049] = (melt_ptr_t) &meltcdat->drout_1956__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG; + /*iniroutlocvar*/ /*_._VALROUT___V2050*/ meltfptr[2049] = (melt_ptr_t) &meltcdat->drout_1956__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG; meltcdat->drout_1956__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1956__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.routdescr, "MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG @warmelt-macro.melt:7565", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1956__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1956__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG, meltrout_147_WARMELTmiMACRO_MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG); /*iniclos dclo_1957__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG*/ - /*_._VALCLO___V2051*/ - meltfptr[2050] = (melt_ptr_t) &meltcdat->dclo_1957__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG; + /*_._VALCLO___V2051*/ meltfptr[2050] = (melt_ptr_t) &meltcdat->dclo_1957__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG; meltcdat->dclo_1957__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1957__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.nbval = 0; /*iniobj dsym_1958__USE_PACKAGE_FROM_PKG_CONFIG*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2052*/ meltfptr[2051]) + /*uniqueobj*/ if (!/*_._VALDATA___V2052*/ meltfptr[2051]) /*_._VALDATA___V2052*/ meltfptr[2051] = (melt_ptr_t )&meltcdat->dsym_1958__USE_PACKAGE_FROM_PKG_CONFIG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1958__USE_PACKAGE_FROM_PKG_CONFIG", 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_1958__USE_PACKAGE_FROM_PKG_CONFIG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29849,18 +26235,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1959__USE_PACKAGE_FROM_PKG_CON*/ - /*_._VALSTR___V2053*/ - meltfptr[2052] = (melt_ptr_t) &meltcdat->dstr_1959__USE_PACKAGE_FROM_PKG_CON; + /*_._VALSTR___V2053*/ meltfptr[2052] = (melt_ptr_t) &meltcdat->dstr_1959__USE_PACKAGE_FROM_PKG_CON; meltcdat->dstr_1959__USE_PACKAGE_FROM_PKG_CON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1959__USE_PACKAGE_FROM_PKG_CON.val, "USE_PACKAGE_FROM_PKG_CONFIG", sizeof (meltcdat->dstr_1959__USE_PACKAGE_FROM_PKG_CON.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1959__USE_PACKAGE_FROM_PKG_CON.val, "USE_PACKAGE_FROM_PKG_CONFIG", sizeof (meltcdat->dstr_1959__USE_PACKAGE_FROM_PKG_CON.val)-1); meltcdat->dstr_1959__USE_PACKAGE_FROM_PKG_CON.val[27] = (char)0 ; meltcdat->dstr_1959__USE_PACKAGE_FROM_PKG_CON.slen = 27 ; /*iniobj dsym_1960__USEmiPACKAGEmiFROMmiPKGmiCONFIG*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2054*/ meltfptr[2053]) + /*uniqueobj*/ if (!/*_._VALDATA___V2054*/ meltfptr[2053]) /*_._VALDATA___V2054*/ meltfptr[2053] = (melt_ptr_t )&meltcdat->dsym_1960__USEmiPACKAGEmiFROMmiPKGmiCONFIG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1960__USEmiPACKAGEmiFROMmiPKGmiCONFIG", 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_1960__USEmiPACKAGEmiFROMmiPKGmiCONFIG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29870,54 +26253,46 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1961__USE_PACKAGE_FROM_PKG_CON*/ - /*_._VALSTR___V2055*/ - meltfptr[2054] = (melt_ptr_t) &meltcdat->dstr_1961__USE_PACKAGE_FROM_PKG_CON; + /*_._VALSTR___V2055*/ meltfptr[2054] = (melt_ptr_t) &meltcdat->dstr_1961__USE_PACKAGE_FROM_PKG_CON; meltcdat->dstr_1961__USE_PACKAGE_FROM_PKG_CON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1961__USE_PACKAGE_FROM_PKG_CON.val, "USE-PACKAGE-FROM-PKG-CONFIG", sizeof (meltcdat->dstr_1961__USE_PACKAGE_FROM_PKG_CON.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1961__USE_PACKAGE_FROM_PKG_CON.val, "USE-PACKAGE-FROM-PKG-CONFIG", sizeof (meltcdat->dstr_1961__USE_PACKAGE_FROM_PKG_CON.val)-1); meltcdat->dstr_1961__USE_PACKAGE_FROM_PKG_CON.val[27] = (char)0 ; meltcdat->dstr_1961__USE_PACKAGE_FROM_PKG_CON.slen = 27 ; /*inirout drout_1962__PAIRLIST_TO_RETURN*/ - /*iniroutlocvar*/ /*_._VALROUT___V2056*/ - meltfptr[2055] = (melt_ptr_t) &meltcdat->drout_1962__PAIRLIST_TO_RETURN; + /*iniroutlocvar*/ /*_._VALROUT___V2056*/ meltfptr[2055] = (melt_ptr_t) &meltcdat->drout_1962__PAIRLIST_TO_RETURN; meltcdat->drout_1962__PAIRLIST_TO_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1962__PAIRLIST_TO_RETURN.routdescr, "PAIRLIST_TO_RETURN @warmelt-macro.melt:7655", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1962__PAIRLIST_TO_RETURN.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1962__PAIRLIST_TO_RETURN, meltrout_148_WARMELTmiMACRO_PAIRLIST_TO_RETURN); /*iniclos dclo_1963__PAIRLIST_TO_RETURN*/ - /*_._VALCLO___V2058*/ - meltfptr[2057] = (melt_ptr_t) &meltcdat->dclo_1963__PAIRLIST_TO_RETURN; + /*_._VALCLO___V2058*/ meltfptr[2057] = (melt_ptr_t) &meltcdat->dclo_1963__PAIRLIST_TO_RETURN; meltcdat->dclo_1963__PAIRLIST_TO_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1963__PAIRLIST_TO_RETURN.nbval = 0; /*inirout drout_1964__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V2057*/ - meltfptr[2056] = (melt_ptr_t) &meltcdat->drout_1964__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V2057*/ meltfptr[2056] = (melt_ptr_t) &meltcdat->drout_1964__LAMBDA_; meltcdat->drout_1964__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1964__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7663", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1964__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1964__LAMBDA_, meltrout_149_WARMELTmiMACRO_LAMBDA_cl31); /*inirout drout_1965__MEXPAND_PROGN*/ - /*iniroutlocvar*/ /*_._VALROUT___V2059*/ - meltfptr[2058] = (melt_ptr_t) &meltcdat->drout_1965__MEXPAND_PROGN; + /*iniroutlocvar*/ /*_._VALROUT___V2059*/ meltfptr[2058] = (melt_ptr_t) &meltcdat->drout_1965__MEXPAND_PROGN; meltcdat->drout_1965__MEXPAND_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1965__MEXPAND_PROGN.routdescr, "MEXPAND_PROGN @warmelt-macro.melt:7671", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1965__MEXPAND_PROGN.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1965__MEXPAND_PROGN, meltrout_150_WARMELTmiMACRO_MEXPAND_PROGN); /*iniclos dclo_1966__MEXPAND_PROGN*/ - /*_._VALCLO___V2060*/ - meltfptr[2059] = (melt_ptr_t) &meltcdat->dclo_1966__MEXPAND_PROGN; + /*_._VALCLO___V2060*/ meltfptr[2059] = (melt_ptr_t) &meltcdat->dclo_1966__MEXPAND_PROGN; meltcdat->dclo_1966__MEXPAND_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1966__MEXPAND_PROGN.nbval = 0; /*iniobj dsym_1967__PROGN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2061*/ meltfptr[2060]) + /*uniqueobj*/ if (!/*_._VALDATA___V2061*/ meltfptr[2060]) /*_._VALDATA___V2061*/ meltfptr[2060] = (melt_ptr_t )&meltcdat->dsym_1967__PROGN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1967__PROGN", 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_1967__PROGN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29927,32 +26302,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1968__PROGN*/ - /*_._VALSTR___V2062*/ - meltfptr[2061] = (melt_ptr_t) &meltcdat->dstr_1968__PROGN; + /*_._VALSTR___V2062*/ meltfptr[2061] = (melt_ptr_t) &meltcdat->dstr_1968__PROGN; meltcdat->dstr_1968__PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1968__PROGN.val, "PROGN", sizeof (meltcdat->dstr_1968__PROGN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1968__PROGN.val, "PROGN", sizeof (meltcdat->dstr_1968__PROGN.val)-1); meltcdat->dstr_1968__PROGN.val[5] = (char)0 ; meltcdat->dstr_1968__PROGN.slen = 5 ; /*inirout drout_1969__MEXPAND_RETURN*/ - /*iniroutlocvar*/ /*_._VALROUT___V2063*/ - meltfptr[2062] = (melt_ptr_t) &meltcdat->drout_1969__MEXPAND_RETURN; + /*iniroutlocvar*/ /*_._VALROUT___V2063*/ meltfptr[2062] = (melt_ptr_t) &meltcdat->drout_1969__MEXPAND_RETURN; meltcdat->drout_1969__MEXPAND_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1969__MEXPAND_RETURN.routdescr, "MEXPAND_RETURN @warmelt-macro.melt:7697", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1969__MEXPAND_RETURN.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1969__MEXPAND_RETURN, meltrout_151_WARMELTmiMACRO_MEXPAND_RETURN); /*iniclos dclo_1970__MEXPAND_RETURN*/ - /*_._VALCLO___V2064*/ - meltfptr[2063] = (melt_ptr_t) &meltcdat->dclo_1970__MEXPAND_RETURN; + /*_._VALCLO___V2064*/ meltfptr[2063] = (melt_ptr_t) &meltcdat->dclo_1970__MEXPAND_RETURN; meltcdat->dclo_1970__MEXPAND_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1970__MEXPAND_RETURN.nbval = 0; /*iniobj dsym_1971__RETURN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2065*/ meltfptr[2064]) + /*uniqueobj*/ if (!/*_._VALDATA___V2065*/ meltfptr[2064]) /*_._VALDATA___V2065*/ meltfptr[2064] = (melt_ptr_t )&meltcdat->dsym_1971__RETURN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1971__RETURN", 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_1971__RETURN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29962,32 +26332,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1972__RETURN*/ - /*_._VALSTR___V2066*/ - meltfptr[2065] = (melt_ptr_t) &meltcdat->dstr_1972__RETURN; + /*_._VALSTR___V2066*/ meltfptr[2065] = (melt_ptr_t) &meltcdat->dstr_1972__RETURN; meltcdat->dstr_1972__RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1972__RETURN.val, "RETURN", sizeof (meltcdat->dstr_1972__RETURN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1972__RETURN.val, "RETURN", sizeof (meltcdat->dstr_1972__RETURN.val)-1); meltcdat->dstr_1972__RETURN.val[6] = (char)0 ; meltcdat->dstr_1972__RETURN.slen = 6 ; /*inirout drout_1973__MEXPAND_FOREVER*/ - /*iniroutlocvar*/ /*_._VALROUT___V2067*/ - meltfptr[2066] = (melt_ptr_t) &meltcdat->drout_1973__MEXPAND_FOREVER; + /*iniroutlocvar*/ /*_._VALROUT___V2067*/ meltfptr[2066] = (melt_ptr_t) &meltcdat->drout_1973__MEXPAND_FOREVER; meltcdat->drout_1973__MEXPAND_FOREVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1973__MEXPAND_FOREVER.routdescr, "MEXPAND_FOREVER @warmelt-macro.melt:7720", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1973__MEXPAND_FOREVER.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1973__MEXPAND_FOREVER, meltrout_152_WARMELTmiMACRO_MEXPAND_FOREVER); /*iniclos dclo_1974__MEXPAND_FOREVER*/ - /*_._VALCLO___V2069*/ - meltfptr[2068] = (melt_ptr_t) &meltcdat->dclo_1974__MEXPAND_FOREVER; + /*_._VALCLO___V2069*/ meltfptr[2068] = (melt_ptr_t) &meltcdat->dclo_1974__MEXPAND_FOREVER; meltcdat->dclo_1974__MEXPAND_FOREVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1974__MEXPAND_FOREVER.nbval = 0; /*iniobj dsym_1975__CLASS_LABEL_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2070*/ meltfptr[2069]) + /*uniqueobj*/ if (!/*_._VALDATA___V2070*/ meltfptr[2069]) /*_._VALDATA___V2070*/ meltfptr[2069] = (melt_ptr_t )&meltcdat->dsym_1975__CLASS_LABEL_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1975__CLASS_LABEL_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_1975__CLASS_LABEL_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -29997,62 +26362,53 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1976__CLASS_LABEL_BINDING*/ - /*_._VALSTR___V2071*/ - meltfptr[2070] = (melt_ptr_t) &meltcdat->dstr_1976__CLASS_LABEL_BINDING; + /*_._VALSTR___V2071*/ meltfptr[2070] = (melt_ptr_t) &meltcdat->dstr_1976__CLASS_LABEL_BINDING; meltcdat->dstr_1976__CLASS_LABEL_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1976__CLASS_LABEL_BINDING.val, "CLASS_LABEL_BINDING", sizeof (meltcdat->dstr_1976__CLASS_LABEL_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1976__CLASS_LABEL_BINDING.val, "CLASS_LABEL_BINDING", sizeof (meltcdat->dstr_1976__CLASS_LABEL_BINDING.val)-1); meltcdat->dstr_1976__CLASS_LABEL_BINDING.val[19] = (char)0 ; meltcdat->dstr_1976__CLASS_LABEL_BINDING.slen = 19 ; /*inirout drout_1977__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V2068*/ - meltfptr[2067] = (melt_ptr_t) &meltcdat->drout_1977__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V2068*/ meltfptr[2067] = (melt_ptr_t) &meltcdat->drout_1977__LAMBDA_; meltcdat->drout_1977__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1977__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7744", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1977__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1977__LAMBDA_, meltrout_153_WARMELTmiMACRO_LAMBDA_cl32); /*inirout drout_1978__MEXPAND_EXIT*/ - /*iniroutlocvar*/ /*_._VALROUT___V2072*/ - meltfptr[2071] = (melt_ptr_t) &meltcdat->drout_1978__MEXPAND_EXIT; + /*iniroutlocvar*/ /*_._VALROUT___V2072*/ meltfptr[2071] = (melt_ptr_t) &meltcdat->drout_1978__MEXPAND_EXIT; meltcdat->drout_1978__MEXPAND_EXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1978__MEXPAND_EXIT.routdescr, "MEXPAND_EXIT @warmelt-macro.melt:7763", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1978__MEXPAND_EXIT.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1978__MEXPAND_EXIT, meltrout_154_WARMELTmiMACRO_MEXPAND_EXIT); /*iniclos dclo_1979__MEXPAND_EXIT*/ - /*_._VALCLO___V2074*/ - meltfptr[2073] = (melt_ptr_t) &meltcdat->dclo_1979__MEXPAND_EXIT; + /*_._VALCLO___V2074*/ meltfptr[2073] = (melt_ptr_t) &meltcdat->dclo_1979__MEXPAND_EXIT; meltcdat->dclo_1979__MEXPAND_EXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1979__MEXPAND_EXIT.nbval = 0; /*inirout drout_1980__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V2073*/ - meltfptr[2072] = (melt_ptr_t) &meltcdat->drout_1980__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V2073*/ meltfptr[2072] = (melt_ptr_t) &meltcdat->drout_1980__LAMBDA_; meltcdat->drout_1980__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1980__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7788", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1980__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1980__LAMBDA_, meltrout_155_WARMELTmiMACRO_LAMBDA_cl33); /*inirout drout_1981__MEXPAND_AGAIN*/ - /*iniroutlocvar*/ /*_._VALROUT___V2075*/ - meltfptr[2074] = (melt_ptr_t) &meltcdat->drout_1981__MEXPAND_AGAIN; + /*iniroutlocvar*/ /*_._VALROUT___V2075*/ meltfptr[2074] = (melt_ptr_t) &meltcdat->drout_1981__MEXPAND_AGAIN; meltcdat->drout_1981__MEXPAND_AGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1981__MEXPAND_AGAIN.routdescr, "MEXPAND_AGAIN @warmelt-macro.melt:7805", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1981__MEXPAND_AGAIN.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1981__MEXPAND_AGAIN, meltrout_156_WARMELTmiMACRO_MEXPAND_AGAIN); /*iniclos dclo_1982__MEXPAND_AGAIN*/ - /*_._VALCLO___V2076*/ - meltfptr[2075] = (melt_ptr_t) &meltcdat->dclo_1982__MEXPAND_AGAIN; + /*_._VALCLO___V2076*/ meltfptr[2075] = (melt_ptr_t) &meltcdat->dclo_1982__MEXPAND_AGAIN; meltcdat->dclo_1982__MEXPAND_AGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1982__MEXPAND_AGAIN.nbval = 0; /*iniobj dsym_1983__AGAIN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2077*/ meltfptr[2076]) + /*uniqueobj*/ if (!/*_._VALDATA___V2077*/ meltfptr[2076]) /*_._VALDATA___V2077*/ meltfptr[2076] = (melt_ptr_t )&meltcdat->dsym_1983__AGAIN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1983__AGAIN", 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_1983__AGAIN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30062,32 +26418,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1984__AGAIN*/ - /*_._VALSTR___V2078*/ - meltfptr[2077] = (melt_ptr_t) &meltcdat->dstr_1984__AGAIN; + /*_._VALSTR___V2078*/ meltfptr[2077] = (melt_ptr_t) &meltcdat->dstr_1984__AGAIN; meltcdat->dstr_1984__AGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1984__AGAIN.val, "AGAIN", sizeof (meltcdat->dstr_1984__AGAIN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1984__AGAIN.val, "AGAIN", sizeof (meltcdat->dstr_1984__AGAIN.val)-1); meltcdat->dstr_1984__AGAIN.val[5] = (char)0 ; meltcdat->dstr_1984__AGAIN.slen = 5 ; /*inirout drout_1985__MEXPAND_COMPILE_WARNING*/ - /*iniroutlocvar*/ /*_._VALROUT___V2079*/ - meltfptr[2078] = (melt_ptr_t) &meltcdat->drout_1985__MEXPAND_COMPILE_WARNING; + /*iniroutlocvar*/ /*_._VALROUT___V2079*/ meltfptr[2078] = (melt_ptr_t) &meltcdat->drout_1985__MEXPAND_COMPILE_WARNING; meltcdat->drout_1985__MEXPAND_COMPILE_WARNING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1985__MEXPAND_COMPILE_WARNING.routdescr, "MEXPAND_COMPILE_WARNING @warmelt-macro.melt:7846", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1985__MEXPAND_COMPILE_WARNING.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1985__MEXPAND_COMPILE_WARNING, meltrout_157_WARMELTmiMACRO_MEXPAND_COMPILE_WARNING); /*iniclos dclo_1986__MEXPAND_COMPILE_WARNING*/ - /*_._VALCLO___V2080*/ - meltfptr[2079] = (melt_ptr_t) &meltcdat->dclo_1986__MEXPAND_COMPILE_WARNING; + /*_._VALCLO___V2080*/ meltfptr[2079] = (melt_ptr_t) &meltcdat->dclo_1986__MEXPAND_COMPILE_WARNING; meltcdat->dclo_1986__MEXPAND_COMPILE_WARNING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1986__MEXPAND_COMPILE_WARNING.nbval = 0; /*iniobj dsym_1987__COMPILE_WARNING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2081*/ meltfptr[2080]) + /*uniqueobj*/ if (!/*_._VALDATA___V2081*/ meltfptr[2080]) /*_._VALDATA___V2081*/ meltfptr[2080] = (melt_ptr_t )&meltcdat->dsym_1987__COMPILE_WARNING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1987__COMPILE_WARNING", 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_1987__COMPILE_WARNING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30097,32 +26448,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1988__COMPILE_WARNING*/ - /*_._VALSTR___V2082*/ - meltfptr[2081] = (melt_ptr_t) &meltcdat->dstr_1988__COMPILE_WARNING; + /*_._VALSTR___V2082*/ meltfptr[2081] = (melt_ptr_t) &meltcdat->dstr_1988__COMPILE_WARNING; meltcdat->dstr_1988__COMPILE_WARNING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1988__COMPILE_WARNING.val, "COMPILE_WARNING", sizeof (meltcdat->dstr_1988__COMPILE_WARNING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1988__COMPILE_WARNING.val, "COMPILE_WARNING", sizeof (meltcdat->dstr_1988__COMPILE_WARNING.val)-1); meltcdat->dstr_1988__COMPILE_WARNING.val[15] = (char)0 ; meltcdat->dstr_1988__COMPILE_WARNING.slen = 15 ; /*inirout drout_1989__MEXPAND_ASSERT_MSG*/ - /*iniroutlocvar*/ /*_._VALROUT___V2083*/ - meltfptr[2082] = (melt_ptr_t) &meltcdat->drout_1989__MEXPAND_ASSERT_MSG; + /*iniroutlocvar*/ /*_._VALROUT___V2083*/ meltfptr[2082] = (melt_ptr_t) &meltcdat->drout_1989__MEXPAND_ASSERT_MSG; meltcdat->drout_1989__MEXPAND_ASSERT_MSG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1989__MEXPAND_ASSERT_MSG.routdescr, "MEXPAND_ASSERT_MSG @warmelt-macro.melt:7889", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1989__MEXPAND_ASSERT_MSG.nbval = 21; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1989__MEXPAND_ASSERT_MSG, meltrout_158_WARMELTmiMACRO_MEXPAND_ASSERT_MSG); /*iniclos dclo_1990__MEXPAND_ASSERT_MSG*/ - /*_._VALCLO___V2086*/ - meltfptr[2085] = (melt_ptr_t) &meltcdat->dclo_1990__MEXPAND_ASSERT_MSG; + /*_._VALCLO___V2086*/ meltfptr[2085] = (melt_ptr_t) &meltcdat->dclo_1990__MEXPAND_ASSERT_MSG; meltcdat->dclo_1990__MEXPAND_ASSERT_MSG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1990__MEXPAND_ASSERT_MSG.nbval = 0; /*iniobj dsym_1991__FIND_ENV_DEBUG*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2087*/ meltfptr[2086]) + /*uniqueobj*/ if (!/*_._VALDATA___V2087*/ meltfptr[2086]) /*_._VALDATA___V2087*/ meltfptr[2086] = (melt_ptr_t )&meltcdat->dsym_1991__FIND_ENV_DEBUG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1991__FIND_ENV_DEBUG", 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_1991__FIND_ENV_DEBUG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30132,18 +26478,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1992__FIND_ENV_DEBUG*/ - /*_._VALSTR___V2088*/ - meltfptr[2087] = (melt_ptr_t) &meltcdat->dstr_1992__FIND_ENV_DEBUG; + /*_._VALSTR___V2088*/ meltfptr[2087] = (melt_ptr_t) &meltcdat->dstr_1992__FIND_ENV_DEBUG; meltcdat->dstr_1992__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1992__FIND_ENV_DEBUG.val, "FIND_ENV_DEBUG", sizeof (meltcdat->dstr_1992__FIND_ENV_DEBUG.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1992__FIND_ENV_DEBUG.val, "FIND_ENV_DEBUG", sizeof (meltcdat->dstr_1992__FIND_ENV_DEBUG.val)-1); meltcdat->dstr_1992__FIND_ENV_DEBUG.val[14] = (char)0 ; meltcdat->dstr_1992__FIND_ENV_DEBUG.slen = 14 ; /*iniobj dsym_1993__LIST_APPEND2LIST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2089*/ meltfptr[2088]) + /*uniqueobj*/ if (!/*_._VALDATA___V2089*/ meltfptr[2088]) /*_._VALDATA___V2089*/ meltfptr[2088] = (melt_ptr_t )&meltcdat->dsym_1993__LIST_APPEND2LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1993__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_1993__LIST_APPEND2LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30153,18 +26496,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1994__LIST_APPEND2LIST*/ - /*_._VALSTR___V2090*/ - meltfptr[2089] = (melt_ptr_t) &meltcdat->dstr_1994__LIST_APPEND2LIST; + /*_._VALSTR___V2090*/ meltfptr[2089] = (melt_ptr_t) &meltcdat->dstr_1994__LIST_APPEND2LIST; meltcdat->dstr_1994__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1994__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof (meltcdat->dstr_1994__LIST_APPEND2LIST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1994__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof (meltcdat->dstr_1994__LIST_APPEND2LIST.val)-1); meltcdat->dstr_1994__LIST_APPEND2LIST.val[16] = (char)0 ; meltcdat->dstr_1994__LIST_APPEND2LIST.slen = 16 ; /*iniobj dsym_1995__MELT_HAVE_DEBUG*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2084*/ meltfptr[2083]) + /*uniqueobj*/ if (!/*_._VALDATA___V2084*/ meltfptr[2083]) /*_._VALDATA___V2084*/ meltfptr[2083] = (melt_ptr_t )&meltcdat->dsym_1995__MELT_HAVE_DEBUG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1995__MELT_HAVE_DEBUG", 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_1995__MELT_HAVE_DEBUG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30174,32 +26514,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_1996__MELT_HAVE_DEBUG*/ - /*_._VALSTR___V2085*/ - meltfptr[2084] = (melt_ptr_t) &meltcdat->dstr_1996__MELT_HAVE_DEBUG; + /*_._VALSTR___V2085*/ meltfptr[2084] = (melt_ptr_t) &meltcdat->dstr_1996__MELT_HAVE_DEBUG; meltcdat->dstr_1996__MELT_HAVE_DEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_1996__MELT_HAVE_DEBUG.val, "MELT_HAVE_DEBUG", sizeof (meltcdat->dstr_1996__MELT_HAVE_DEBUG.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_1996__MELT_HAVE_DEBUG.val, "MELT_HAVE_DEBUG", sizeof (meltcdat->dstr_1996__MELT_HAVE_DEBUG.val)-1); meltcdat->dstr_1996__MELT_HAVE_DEBUG.val[15] = (char)0 ; meltcdat->dstr_1996__MELT_HAVE_DEBUG.slen = 15 ; /*inirout drout_1997__MEXPAND_THIS_LINE*/ - /*iniroutlocvar*/ /*_._VALROUT___V2091*/ - meltfptr[2090] = (melt_ptr_t) &meltcdat->drout_1997__MEXPAND_THIS_LINE; + /*iniroutlocvar*/ /*_._VALROUT___V2091*/ meltfptr[2090] = (melt_ptr_t) &meltcdat->drout_1997__MEXPAND_THIS_LINE; meltcdat->drout_1997__MEXPAND_THIS_LINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1997__MEXPAND_THIS_LINE.routdescr, "MEXPAND_THIS_LINE @warmelt-macro.melt:7983", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1997__MEXPAND_THIS_LINE.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1997__MEXPAND_THIS_LINE, meltrout_159_WARMELTmiMACRO_MEXPAND_THIS_LINE); /*iniclos dclo_1998__MEXPAND_THIS_LINE*/ - /*_._VALCLO___V2092*/ - meltfptr[2091] = (melt_ptr_t) &meltcdat->dclo_1998__MEXPAND_THIS_LINE; + /*_._VALCLO___V2092*/ meltfptr[2091] = (melt_ptr_t) &meltcdat->dclo_1998__MEXPAND_THIS_LINE; meltcdat->dclo_1998__MEXPAND_THIS_LINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1998__MEXPAND_THIS_LINE.nbval = 0; /*iniobj dsym_1999__THIS_LINE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2093*/ meltfptr[2092]) + /*uniqueobj*/ if (!/*_._VALDATA___V2093*/ meltfptr[2092]) /*_._VALDATA___V2093*/ meltfptr[2092] = (melt_ptr_t )&meltcdat->dsym_1999__THIS_LINE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1999__THIS_LINE", 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_1999__THIS_LINE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30209,32 +26544,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2000__THIS_LINE*/ - /*_._VALSTR___V2094*/ - meltfptr[2093] = (melt_ptr_t) &meltcdat->dstr_2000__THIS_LINE; + /*_._VALSTR___V2094*/ meltfptr[2093] = (melt_ptr_t) &meltcdat->dstr_2000__THIS_LINE; meltcdat->dstr_2000__THIS_LINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2000__THIS_LINE.val, "THIS_LINE", sizeof (meltcdat->dstr_2000__THIS_LINE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2000__THIS_LINE.val, "THIS_LINE", sizeof (meltcdat->dstr_2000__THIS_LINE.val)-1); meltcdat->dstr_2000__THIS_LINE.val[9] = (char)0 ; meltcdat->dstr_2000__THIS_LINE.slen = 9 ; /*inirout drout_2001__MEXPAND_THIS_FILE*/ - /*iniroutlocvar*/ /*_._VALROUT___V2095*/ - meltfptr[2094] = (melt_ptr_t) &meltcdat->drout_2001__MEXPAND_THIS_FILE; + /*iniroutlocvar*/ /*_._VALROUT___V2095*/ meltfptr[2094] = (melt_ptr_t) &meltcdat->drout_2001__MEXPAND_THIS_FILE; meltcdat->drout_2001__MEXPAND_THIS_FILE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2001__MEXPAND_THIS_FILE.routdescr, "MEXPAND_THIS_FILE @warmelt-macro.melt:8007", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2001__MEXPAND_THIS_FILE.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2001__MEXPAND_THIS_FILE, meltrout_160_WARMELTmiMACRO_MEXPAND_THIS_FILE); /*iniclos dclo_2002__MEXPAND_THIS_FILE*/ - /*_._VALCLO___V2096*/ - meltfptr[2095] = (melt_ptr_t) &meltcdat->dclo_2002__MEXPAND_THIS_FILE; + /*_._VALCLO___V2096*/ meltfptr[2095] = (melt_ptr_t) &meltcdat->dclo_2002__MEXPAND_THIS_FILE; meltcdat->dclo_2002__MEXPAND_THIS_FILE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2002__MEXPAND_THIS_FILE.nbval = 0; /*iniobj dsym_2003__THIS_FILE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2097*/ meltfptr[2096]) + /*uniqueobj*/ if (!/*_._VALDATA___V2097*/ meltfptr[2096]) /*_._VALDATA___V2097*/ meltfptr[2096] = (melt_ptr_t )&meltcdat->dsym_2003__THIS_FILE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2003__THIS_FILE", 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_2003__THIS_FILE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30244,32 +26574,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2004__THIS_FILE*/ - /*_._VALSTR___V2098*/ - meltfptr[2097] = (melt_ptr_t) &meltcdat->dstr_2004__THIS_FILE; + /*_._VALSTR___V2098*/ meltfptr[2097] = (melt_ptr_t) &meltcdat->dstr_2004__THIS_FILE; meltcdat->dstr_2004__THIS_FILE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2004__THIS_FILE.val, "THIS_FILE", sizeof (meltcdat->dstr_2004__THIS_FILE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2004__THIS_FILE.val, "THIS_FILE", sizeof (meltcdat->dstr_2004__THIS_FILE.val)-1); meltcdat->dstr_2004__THIS_FILE.val[9] = (char)0 ; meltcdat->dstr_2004__THIS_FILE.slen = 9 ; /*inirout drout_2005__MEXPAND_DEBUG*/ - /*iniroutlocvar*/ /*_._VALROUT___V2099*/ - meltfptr[2098] = (melt_ptr_t) &meltcdat->drout_2005__MEXPAND_DEBUG; + /*iniroutlocvar*/ /*_._VALROUT___V2099*/ meltfptr[2098] = (melt_ptr_t) &meltcdat->drout_2005__MEXPAND_DEBUG; meltcdat->drout_2005__MEXPAND_DEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2005__MEXPAND_DEBUG.routdescr, "MEXPAND_DEBUG @warmelt-macro.melt:8033", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2005__MEXPAND_DEBUG.nbval = 29; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2005__MEXPAND_DEBUG, meltrout_161_WARMELTmiMACRO_MEXPAND_DEBUG); /*iniclos dclo_2006__MEXPAND_DEBUG*/ - /*_._VALCLO___V2107*/ - meltfptr[2106] = (melt_ptr_t) &meltcdat->dclo_2006__MEXPAND_DEBUG; + /*_._VALCLO___V2107*/ meltfptr[2106] = (melt_ptr_t) &meltcdat->dclo_2006__MEXPAND_DEBUG; meltcdat->dclo_2006__MEXPAND_DEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2006__MEXPAND_DEBUG.nbval = 0; /*iniobj dsym_2007__MELT_CALLCOUNT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2100*/ meltfptr[2099]) + /*uniqueobj*/ if (!/*_._VALDATA___V2100*/ meltfptr[2099]) /*_._VALDATA___V2100*/ meltfptr[2099] = (melt_ptr_t )&meltcdat->dsym_2007__MELT_CALLCOUNT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2007__MELT_CALLCOUNT", 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_2007__MELT_CALLCOUNT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30279,18 +26604,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2008__MELT_CALLCOUNT*/ - /*_._VALSTR___V2101*/ - meltfptr[2100] = (melt_ptr_t) &meltcdat->dstr_2008__MELT_CALLCOUNT; + /*_._VALSTR___V2101*/ meltfptr[2100] = (melt_ptr_t) &meltcdat->dstr_2008__MELT_CALLCOUNT; meltcdat->dstr_2008__MELT_CALLCOUNT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2008__MELT_CALLCOUNT.val, "MELT_CALLCOUNT", sizeof (meltcdat->dstr_2008__MELT_CALLCOUNT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2008__MELT_CALLCOUNT.val, "MELT_CALLCOUNT", sizeof (meltcdat->dstr_2008__MELT_CALLCOUNT.val)-1); meltcdat->dstr_2008__MELT_CALLCOUNT.val[14] = (char)0 ; meltcdat->dstr_2008__MELT_CALLCOUNT.slen = 14 ; /*iniobj dsym_2009__MELT_NEED_DBG*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2102*/ meltfptr[2101]) + /*uniqueobj*/ if (!/*_._VALDATA___V2102*/ meltfptr[2101]) /*_._VALDATA___V2102*/ meltfptr[2101] = (melt_ptr_t )&meltcdat->dsym_2009__MELT_NEED_DBG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2009__MELT_NEED_DBG", 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_2009__MELT_NEED_DBG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30300,18 +26622,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2010__MELT_NEED_DBG*/ - /*_._VALSTR___V2103*/ - meltfptr[2102] = (melt_ptr_t) &meltcdat->dstr_2010__MELT_NEED_DBG; + /*_._VALSTR___V2103*/ meltfptr[2102] = (melt_ptr_t) &meltcdat->dstr_2010__MELT_NEED_DBG; meltcdat->dstr_2010__MELT_NEED_DBG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2010__MELT_NEED_DBG.val, "MELT_NEED_DBG", sizeof (meltcdat->dstr_2010__MELT_NEED_DBG.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2010__MELT_NEED_DBG.val, "MELT_NEED_DBG", sizeof (meltcdat->dstr_2010__MELT_NEED_DBG.val)-1); meltcdat->dstr_2010__MELT_NEED_DBG.val[13] = (char)0 ; meltcdat->dstr_2010__MELT_NEED_DBG.slen = 13 ; /*iniobj dsym_2011__MELT_INCREMENT_DBGCOUNTER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2104*/ meltfptr[2103]) + /*uniqueobj*/ if (!/*_._VALDATA___V2104*/ meltfptr[2103]) /*_._VALDATA___V2104*/ meltfptr[2103] = (melt_ptr_t )&meltcdat->dsym_2011__MELT_INCREMENT_DBGCOUNTER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2011__MELT_INCREMENT_DBGCOUNTER", 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_2011__MELT_INCREMENT_DBGCOUNTER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30321,24 +26640,20 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2012__MELT_INCREMENT_DBGCOUNTE*/ - /*_._VALSTR___V2105*/ - meltfptr[2104] = (melt_ptr_t) &meltcdat->dstr_2012__MELT_INCREMENT_DBGCOUNTE; + /*_._VALSTR___V2105*/ meltfptr[2104] = (melt_ptr_t) &meltcdat->dstr_2012__MELT_INCREMENT_DBGCOUNTE; meltcdat->dstr_2012__MELT_INCREMENT_DBGCOUNTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2012__MELT_INCREMENT_DBGCOUNTE.val, "MELT_INCREMENT_DBGCOUNTER", sizeof (meltcdat->dstr_2012__MELT_INCREMENT_DBGCOUNTE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2012__MELT_INCREMENT_DBGCOUNTE.val, "MELT_INCREMENT_DBGCOUNTER", sizeof (meltcdat->dstr_2012__MELT_INCREMENT_DBGCOUNTE.val)-1); meltcdat->dstr_2012__MELT_INCREMENT_DBGCOUNTE.val[25] = (char)0 ; meltcdat->dstr_2012__MELT_INCREMENT_DBGCOUNTE.slen = 25 ; /*iniboxint dint_2013__*/ - /*_._VALBXINT___V2106*/ - meltfptr[2105] = (melt_ptr_t) &meltcdat->dint_2013__; + /*_._VALBXINT___V2106*/ meltfptr[2105] = (melt_ptr_t) &meltcdat->dint_2013__; meltcdat->dint_2013__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_2013__.val = 0; /*iniobj dsym_2014__DEBUG*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2108*/ meltfptr[2107]) + /*uniqueobj*/ if (!/*_._VALDATA___V2108*/ meltfptr[2107]) /*_._VALDATA___V2108*/ meltfptr[2107] = (melt_ptr_t )&meltcdat->dsym_2014__DEBUG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2014__DEBUG", 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_2014__DEBUG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30348,31 +26663,26 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2015__DEBUG*/ - /*_._VALSTR___V2109*/ - meltfptr[2108] = (melt_ptr_t) &meltcdat->dstr_2015__DEBUG; + /*_._VALSTR___V2109*/ meltfptr[2108] = (melt_ptr_t) &meltcdat->dstr_2015__DEBUG; meltcdat->dstr_2015__DEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2015__DEBUG.val, "DEBUG", sizeof (meltcdat->dstr_2015__DEBUG.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2015__DEBUG.val, "DEBUG", sizeof (meltcdat->dstr_2015__DEBUG.val)-1); meltcdat->dstr_2015__DEBUG.val[5] = (char)0 ; meltcdat->dstr_2015__DEBUG.slen = 5 ; /*inirout drout_2016__MEXPAND_EXPORT_VALUES*/ - /*iniroutlocvar*/ /*_._VALROUT___V2110*/ - meltfptr[2109] = (melt_ptr_t) &meltcdat->drout_2016__MEXPAND_EXPORT_VALUES; + /*iniroutlocvar*/ /*_._VALROUT___V2110*/ meltfptr[2109] = (melt_ptr_t) &meltcdat->drout_2016__MEXPAND_EXPORT_VALUES; meltcdat->drout_2016__MEXPAND_EXPORT_VALUES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2016__MEXPAND_EXPORT_VALUES.routdescr, "MEXPAND_EXPORT_VALUES @warmelt-macro.melt:8178", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2016__MEXPAND_EXPORT_VALUES.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2016__MEXPAND_EXPORT_VALUES, meltrout_162_WARMELTmiMACRO_MEXPAND_EXPORT_VALUES); /*iniclos dclo_2017__MEXPAND_EXPORT_VALUES*/ - /*_._VALCLO___V2112*/ - meltfptr[2111] = (melt_ptr_t) &meltcdat->dclo_2017__MEXPAND_EXPORT_VALUES; + /*_._VALCLO___V2112*/ meltfptr[2111] = (melt_ptr_t) &meltcdat->dclo_2017__MEXPAND_EXPORT_VALUES; meltcdat->dclo_2017__MEXPAND_EXPORT_VALUES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2017__MEXPAND_EXPORT_VALUES.nbval = 0; /*inirout drout_2018__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V2111*/ - meltfptr[2110] = (melt_ptr_t) &meltcdat->drout_2018__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V2111*/ meltfptr[2110] = (melt_ptr_t) &meltcdat->drout_2018__LAMBDA_; meltcdat->drout_2018__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2018__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:8190", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2018__LAMBDA_.nbval = 2; @@ -30380,8 +26690,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*iniobj dsym_2019__EXPORT_VALUES*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2113*/ meltfptr[2112]) + /*uniqueobj*/ if (!/*_._VALDATA___V2113*/ meltfptr[2112]) /*_._VALDATA___V2113*/ meltfptr[2112] = (melt_ptr_t )&meltcdat->dsym_2019__EXPORT_VALUES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2019__EXPORT_VALUES", 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_2019__EXPORT_VALUES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30391,32 +26700,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2020__EXPORT_VALUES*/ - /*_._VALSTR___V2114*/ - meltfptr[2113] = (melt_ptr_t) &meltcdat->dstr_2020__EXPORT_VALUES; + /*_._VALSTR___V2114*/ meltfptr[2113] = (melt_ptr_t) &meltcdat->dstr_2020__EXPORT_VALUES; meltcdat->dstr_2020__EXPORT_VALUES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2020__EXPORT_VALUES.val, "EXPORT_VALUES", sizeof (meltcdat->dstr_2020__EXPORT_VALUES.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2020__EXPORT_VALUES.val, "EXPORT_VALUES", sizeof (meltcdat->dstr_2020__EXPORT_VALUES.val)-1); meltcdat->dstr_2020__EXPORT_VALUES.val[13] = (char)0 ; meltcdat->dstr_2020__EXPORT_VALUES.slen = 13 ; /*inirout drout_2021__MEXPAND_EXPORT_MACRO*/ - /*iniroutlocvar*/ /*_._VALROUT___V2115*/ - meltfptr[2114] = (melt_ptr_t) &meltcdat->drout_2021__MEXPAND_EXPORT_MACRO; + /*iniroutlocvar*/ /*_._VALROUT___V2115*/ meltfptr[2114] = (melt_ptr_t) &meltcdat->drout_2021__MEXPAND_EXPORT_MACRO; meltcdat->drout_2021__MEXPAND_EXPORT_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2021__MEXPAND_EXPORT_MACRO.routdescr, "MEXPAND_EXPORT_MACRO @warmelt-macro.melt:8217", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2021__MEXPAND_EXPORT_MACRO.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2021__MEXPAND_EXPORT_MACRO, meltrout_164_WARMELTmiMACRO_MEXPAND_EXPORT_MACRO); /*iniclos dclo_2022__MEXPAND_EXPORT_MACRO*/ - /*_._VALCLO___V2116*/ - meltfptr[2115] = (melt_ptr_t) &meltcdat->dclo_2022__MEXPAND_EXPORT_MACRO; + /*_._VALCLO___V2116*/ meltfptr[2115] = (melt_ptr_t) &meltcdat->dclo_2022__MEXPAND_EXPORT_MACRO; meltcdat->dclo_2022__MEXPAND_EXPORT_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2022__MEXPAND_EXPORT_MACRO.nbval = 0; /*iniobj dsym_2023__EXPORT_MACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2117*/ meltfptr[2116]) + /*uniqueobj*/ if (!/*_._VALDATA___V2117*/ meltfptr[2116]) /*_._VALDATA___V2117*/ meltfptr[2116] = (melt_ptr_t )&meltcdat->dsym_2023__EXPORT_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2023__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_2023__EXPORT_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30426,32 +26730,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2024__EXPORT_MACRO*/ - /*_._VALSTR___V2118*/ - meltfptr[2117] = (melt_ptr_t) &meltcdat->dstr_2024__EXPORT_MACRO; + /*_._VALSTR___V2118*/ meltfptr[2117] = (melt_ptr_t) &meltcdat->dstr_2024__EXPORT_MACRO; meltcdat->dstr_2024__EXPORT_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2024__EXPORT_MACRO.val, "EXPORT_MACRO", sizeof (meltcdat->dstr_2024__EXPORT_MACRO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2024__EXPORT_MACRO.val, "EXPORT_MACRO", sizeof (meltcdat->dstr_2024__EXPORT_MACRO.val)-1); meltcdat->dstr_2024__EXPORT_MACRO.val[12] = (char)0 ; meltcdat->dstr_2024__EXPORT_MACRO.slen = 12 ; /*inirout drout_2025__MEXPAND_EXPORT_PATMACRO*/ - /*iniroutlocvar*/ /*_._VALROUT___V2119*/ - meltfptr[2118] = (melt_ptr_t) &meltcdat->drout_2025__MEXPAND_EXPORT_PATMACRO; + /*iniroutlocvar*/ /*_._VALROUT___V2119*/ meltfptr[2118] = (melt_ptr_t) &meltcdat->drout_2025__MEXPAND_EXPORT_PATMACRO; meltcdat->drout_2025__MEXPAND_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2025__MEXPAND_EXPORT_PATMACRO.routdescr, "MEXPAND_EXPORT_PATMACRO @warmelt-macro.melt:8285", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2025__MEXPAND_EXPORT_PATMACRO.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2025__MEXPAND_EXPORT_PATMACRO, meltrout_165_WARMELTmiMACRO_MEXPAND_EXPORT_PATMACRO); /*iniclos dclo_2026__MEXPAND_EXPORT_PATMACRO*/ - /*_._VALCLO___V2120*/ - meltfptr[2119] = (melt_ptr_t) &meltcdat->dclo_2026__MEXPAND_EXPORT_PATMACRO; + /*_._VALCLO___V2120*/ meltfptr[2119] = (melt_ptr_t) &meltcdat->dclo_2026__MEXPAND_EXPORT_PATMACRO; meltcdat->dclo_2026__MEXPAND_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2026__MEXPAND_EXPORT_PATMACRO.nbval = 0; /*iniobj dsym_2027__EXPORT_PATMACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2121*/ meltfptr[2120]) + /*uniqueobj*/ if (!/*_._VALDATA___V2121*/ meltfptr[2120]) /*_._VALDATA___V2121*/ meltfptr[2120] = (melt_ptr_t )&meltcdat->dsym_2027__EXPORT_PATMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2027__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_2027__EXPORT_PATMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30461,31 +26760,26 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2028__EXPORT_PATMACRO*/ - /*_._VALSTR___V2122*/ - meltfptr[2121] = (melt_ptr_t) &meltcdat->dstr_2028__EXPORT_PATMACRO; + /*_._VALSTR___V2122*/ meltfptr[2121] = (melt_ptr_t) &meltcdat->dstr_2028__EXPORT_PATMACRO; meltcdat->dstr_2028__EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2028__EXPORT_PATMACRO.val, "EXPORT_PATMACRO", sizeof (meltcdat->dstr_2028__EXPORT_PATMACRO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2028__EXPORT_PATMACRO.val, "EXPORT_PATMACRO", sizeof (meltcdat->dstr_2028__EXPORT_PATMACRO.val)-1); meltcdat->dstr_2028__EXPORT_PATMACRO.val[15] = (char)0 ; meltcdat->dstr_2028__EXPORT_PATMACRO.slen = 15 ; /*inirout drout_2029__MEXPAND_EXPORT_CLASS*/ - /*iniroutlocvar*/ /*_._VALROUT___V2123*/ - meltfptr[2122] = (melt_ptr_t) &meltcdat->drout_2029__MEXPAND_EXPORT_CLASS; + /*iniroutlocvar*/ /*_._VALROUT___V2123*/ meltfptr[2122] = (melt_ptr_t) &meltcdat->drout_2029__MEXPAND_EXPORT_CLASS; meltcdat->drout_2029__MEXPAND_EXPORT_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2029__MEXPAND_EXPORT_CLASS.routdescr, "MEXPAND_EXPORT_CLASS @warmelt-macro.melt:8335", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2029__MEXPAND_EXPORT_CLASS.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2029__MEXPAND_EXPORT_CLASS, meltrout_166_WARMELTmiMACRO_MEXPAND_EXPORT_CLASS); /*iniclos dclo_2030__MEXPAND_EXPORT_CLASS*/ - /*_._VALCLO___V2125*/ - meltfptr[2124] = (melt_ptr_t) &meltcdat->dclo_2030__MEXPAND_EXPORT_CLASS; + /*_._VALCLO___V2125*/ meltfptr[2124] = (melt_ptr_t) &meltcdat->dclo_2030__MEXPAND_EXPORT_CLASS; meltcdat->dclo_2030__MEXPAND_EXPORT_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2030__MEXPAND_EXPORT_CLASS.nbval = 0; /*inirout drout_2031__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V2124*/ - meltfptr[2123] = (melt_ptr_t) &meltcdat->drout_2031__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V2124*/ meltfptr[2123] = (melt_ptr_t) &meltcdat->drout_2031__LAMBDA_; meltcdat->drout_2031__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2031__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:8347", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2031__LAMBDA_.nbval = 1; @@ -30493,8 +26787,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*iniobj dsym_2032__EXPORT_CLASS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2126*/ meltfptr[2125]) + /*uniqueobj*/ if (!/*_._VALDATA___V2126*/ meltfptr[2125]) /*_._VALDATA___V2126*/ meltfptr[2125] = (melt_ptr_t )&meltcdat->dsym_2032__EXPORT_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2032__EXPORT_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_2032__EXPORT_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30504,32 +26797,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2033__EXPORT_CLASS*/ - /*_._VALSTR___V2127*/ - meltfptr[2126] = (melt_ptr_t) &meltcdat->dstr_2033__EXPORT_CLASS; + /*_._VALSTR___V2127*/ meltfptr[2126] = (melt_ptr_t) &meltcdat->dstr_2033__EXPORT_CLASS; meltcdat->dstr_2033__EXPORT_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2033__EXPORT_CLASS.val, "EXPORT_CLASS", sizeof (meltcdat->dstr_2033__EXPORT_CLASS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2033__EXPORT_CLASS.val, "EXPORT_CLASS", sizeof (meltcdat->dstr_2033__EXPORT_CLASS.val)-1); meltcdat->dstr_2033__EXPORT_CLASS.val[12] = (char)0 ; meltcdat->dstr_2033__EXPORT_CLASS.slen = 12 ; /*inirout drout_2034__MEXPAND_EXPORT_SYNONYM*/ - /*iniroutlocvar*/ /*_._VALROUT___V2128*/ - meltfptr[2127] = (melt_ptr_t) &meltcdat->drout_2034__MEXPAND_EXPORT_SYNONYM; + /*iniroutlocvar*/ /*_._VALROUT___V2128*/ meltfptr[2127] = (melt_ptr_t) &meltcdat->drout_2034__MEXPAND_EXPORT_SYNONYM; meltcdat->drout_2034__MEXPAND_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2034__MEXPAND_EXPORT_SYNONYM.routdescr, "MEXPAND_EXPORT_SYNONYM @warmelt-macro.melt:8367", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2034__MEXPAND_EXPORT_SYNONYM.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2034__MEXPAND_EXPORT_SYNONYM, meltrout_168_WARMELTmiMACRO_MEXPAND_EXPORT_SYNONYM); /*iniclos dclo_2035__MEXPAND_EXPORT_SYNONYM*/ - /*_._VALCLO___V2129*/ - meltfptr[2128] = (melt_ptr_t) &meltcdat->dclo_2035__MEXPAND_EXPORT_SYNONYM; + /*_._VALCLO___V2129*/ meltfptr[2128] = (melt_ptr_t) &meltcdat->dclo_2035__MEXPAND_EXPORT_SYNONYM; meltcdat->dclo_2035__MEXPAND_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2035__MEXPAND_EXPORT_SYNONYM.nbval = 0; /*iniobj dsym_2036__EXPORT_SYNONYM*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2130*/ meltfptr[2129]) + /*uniqueobj*/ if (!/*_._VALDATA___V2130*/ meltfptr[2129]) /*_._VALDATA___V2130*/ meltfptr[2129] = (melt_ptr_t )&meltcdat->dsym_2036__EXPORT_SYNONYM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2036__EXPORT_SYNONYM", 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_2036__EXPORT_SYNONYM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30539,32 +26827,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2037__EXPORT_SYNONYM*/ - /*_._VALSTR___V2131*/ - meltfptr[2130] = (melt_ptr_t) &meltcdat->dstr_2037__EXPORT_SYNONYM; + /*_._VALSTR___V2131*/ meltfptr[2130] = (melt_ptr_t) &meltcdat->dstr_2037__EXPORT_SYNONYM; meltcdat->dstr_2037__EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2037__EXPORT_SYNONYM.val, "EXPORT_SYNONYM", sizeof (meltcdat->dstr_2037__EXPORT_SYNONYM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2037__EXPORT_SYNONYM.val, "EXPORT_SYNONYM", sizeof (meltcdat->dstr_2037__EXPORT_SYNONYM.val)-1); meltcdat->dstr_2037__EXPORT_SYNONYM.val[14] = (char)0 ; meltcdat->dstr_2037__EXPORT_SYNONYM.slen = 14 ; /*inirout drout_2038__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /*iniroutlocvar*/ /*_._VALROUT___V2132*/ - meltfptr[2131] = (melt_ptr_t) &meltcdat->drout_2038__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE; + /*iniroutlocvar*/ /*_._VALROUT___V2132*/ meltfptr[2131] = (melt_ptr_t) &meltcdat->drout_2038__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->drout_2038__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2038__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE.routdescr, "MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE @warmelt-macro.melt:8419", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2038__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2038__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE, meltrout_169_WARMELTmiMACRO_MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE); /*iniclos dclo_2039__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /*_._VALCLO___V2133*/ - meltfptr[2132] = (melt_ptr_t) &meltcdat->dclo_2039__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE; + /*_._VALCLO___V2133*/ meltfptr[2132] = (melt_ptr_t) &meltcdat->dclo_2039__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->dclo_2039__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2039__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 0; /*iniobj dsym_2040__CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2134*/ meltfptr[2133]) + /*uniqueobj*/ if (!/*_._VALDATA___V2134*/ meltfptr[2133]) /*_._VALDATA___V2134*/ meltfptr[2133] = (melt_ptr_t )&meltcdat->dsym_2040__CURRENT_MODULE_ENVIRONMENT_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2040__CURRENT_MODULE_ENVIRONMENT_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_2040__CURRENT_MODULE_ENVIRONMENT_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30574,18 +26857,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2041__CURRENT_MODULE_ENVIRONME*/ - /*_._VALSTR___V2135*/ - meltfptr[2134] = (melt_ptr_t) &meltcdat->dstr_2041__CURRENT_MODULE_ENVIRONME; + /*_._VALSTR___V2135*/ meltfptr[2134] = (melt_ptr_t) &meltcdat->dstr_2041__CURRENT_MODULE_ENVIRONME; meltcdat->dstr_2041__CURRENT_MODULE_ENVIRONME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2041__CURRENT_MODULE_ENVIRONME.val, "CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_2041__CURRENT_MODULE_ENVIRONME.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2041__CURRENT_MODULE_ENVIRONME.val, "CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_2041__CURRENT_MODULE_ENVIRONME.val)-1); meltcdat->dstr_2041__CURRENT_MODULE_ENVIRONME.val[36] = (char)0 ; meltcdat->dstr_2041__CURRENT_MODULE_ENVIRONME.slen = 36 ; /*iniobj dsym_2042__CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2136*/ meltfptr[2135]) + /*uniqueobj*/ if (!/*_._VALDATA___V2136*/ meltfptr[2135]) /*_._VALDATA___V2136*/ meltfptr[2135] = (melt_ptr_t )&meltcdat->dsym_2042__CURRENT_MODULE_ENVIRONMENT_CONTAINER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2042__CURRENT_MODULE_ENVIRONMENT_CONTAINER", 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_2042__CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30595,32 +26875,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2043__CURRENT_MODULE_ENVIRONME*/ - /*_._VALSTR___V2137*/ - meltfptr[2136] = (melt_ptr_t) &meltcdat->dstr_2043__CURRENT_MODULE_ENVIRONME; + /*_._VALSTR___V2137*/ meltfptr[2136] = (melt_ptr_t) &meltcdat->dstr_2043__CURRENT_MODULE_ENVIRONME; meltcdat->dstr_2043__CURRENT_MODULE_ENVIRONME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2043__CURRENT_MODULE_ENVIRONME.val, "CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (meltcdat->dstr_2043__CURRENT_MODULE_ENVIRONME.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2043__CURRENT_MODULE_ENVIRONME.val, "CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (meltcdat->dstr_2043__CURRENT_MODULE_ENVIRONME.val)-1); meltcdat->dstr_2043__CURRENT_MODULE_ENVIRONME.val[36] = (char)0 ; meltcdat->dstr_2043__CURRENT_MODULE_ENVIRONME.slen = 36 ; /*inirout drout_2044__MEXPAND_PARENT_MODULE_ENVIRONMENT*/ - /*iniroutlocvar*/ /*_._VALROUT___V2138*/ - meltfptr[2137] = (melt_ptr_t) &meltcdat->drout_2044__MEXPAND_PARENT_MODULE_ENVIRONMENT; + /*iniroutlocvar*/ /*_._VALROUT___V2138*/ meltfptr[2137] = (melt_ptr_t) &meltcdat->drout_2044__MEXPAND_PARENT_MODULE_ENVIRONMENT; meltcdat->drout_2044__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2044__MEXPAND_PARENT_MODULE_ENVIRONMENT.routdescr, "MEXPAND_PARENT_MODULE_ENVIRONMENT @warmelt-macro.melt:8453", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2044__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2044__MEXPAND_PARENT_MODULE_ENVIRONMENT, meltrout_170_WARMELTmiMACRO_MEXPAND_PARENT_MODULE_ENVIRONMENT); /*iniclos dclo_2045__MEXPAND_PARENT_MODULE_ENVIRONMENT*/ - /*_._VALCLO___V2139*/ - meltfptr[2138] = (melt_ptr_t) &meltcdat->dclo_2045__MEXPAND_PARENT_MODULE_ENVIRONMENT; + /*_._VALCLO___V2139*/ meltfptr[2138] = (melt_ptr_t) &meltcdat->dclo_2045__MEXPAND_PARENT_MODULE_ENVIRONMENT; meltcdat->dclo_2045__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2045__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 0; /*iniobj dsym_2046__PARENT_MODULE_ENVIRONMENT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2140*/ meltfptr[2139]) + /*uniqueobj*/ if (!/*_._VALDATA___V2140*/ meltfptr[2139]) /*_._VALDATA___V2140*/ meltfptr[2139] = (melt_ptr_t )&meltcdat->dsym_2046__PARENT_MODULE_ENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2046__PARENT_MODULE_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_2046__PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30630,32 +26905,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2047__PARENT_MODULE_ENVIRONMEN*/ - /*_._VALSTR___V2141*/ - meltfptr[2140] = (melt_ptr_t) &meltcdat->dstr_2047__PARENT_MODULE_ENVIRONMEN; + /*_._VALSTR___V2141*/ meltfptr[2140] = (melt_ptr_t) &meltcdat->dstr_2047__PARENT_MODULE_ENVIRONMEN; meltcdat->dstr_2047__PARENT_MODULE_ENVIRONMEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2047__PARENT_MODULE_ENVIRONMEN.val, "PARENT_MODULE_ENVIRONMENT", sizeof (meltcdat->dstr_2047__PARENT_MODULE_ENVIRONMEN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2047__PARENT_MODULE_ENVIRONMEN.val, "PARENT_MODULE_ENVIRONMENT", sizeof (meltcdat->dstr_2047__PARENT_MODULE_ENVIRONMEN.val)-1); meltcdat->dstr_2047__PARENT_MODULE_ENVIRONMEN.val[25] = (char)0 ; meltcdat->dstr_2047__PARENT_MODULE_ENVIRONMEN.slen = 25 ; /*inirout drout_2048__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /*iniroutlocvar*/ /*_._VALROUT___V2142*/ - meltfptr[2141] = (melt_ptr_t) &meltcdat->drout_2048__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; + /*iniroutlocvar*/ /*_._VALROUT___V2142*/ meltfptr[2141] = (melt_ptr_t) &meltcdat->drout_2048__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->drout_2048__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2048__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.routdescr, "MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @warmelt-macro.melt:8483", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2048__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2048__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE, meltrout_171_WARMELTmiMACRO_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE); /*iniclos dclo_2049__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /*_._VALCLO___V2143*/ - meltfptr[2142] = (melt_ptr_t) &meltcdat->dclo_2049__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; + /*_._VALCLO___V2143*/ meltfptr[2142] = (melt_ptr_t) &meltcdat->dclo_2049__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->dclo_2049__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2049__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 0; /*iniobj dsym_2050__UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2144*/ meltfptr[2143]) + /*uniqueobj*/ if (!/*_._VALDATA___V2144*/ meltfptr[2143]) /*_._VALDATA___V2144*/ meltfptr[2143] = (melt_ptr_t )&meltcdat->dsym_2050__UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2050__UPDATE_CURRENT_MODULE_ENVIRONMENT_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_2050__UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30665,18 +26935,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2051__UPDATE_CURRENT_MODULE_EN*/ - /*_._VALSTR___V2145*/ - meltfptr[2144] = (melt_ptr_t) &meltcdat->dstr_2051__UPDATE_CURRENT_MODULE_EN; + /*_._VALSTR___V2145*/ meltfptr[2144] = (melt_ptr_t) &meltcdat->dstr_2051__UPDATE_CURRENT_MODULE_EN; meltcdat->dstr_2051__UPDATE_CURRENT_MODULE_EN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2051__UPDATE_CURRENT_MODULE_EN.val, "UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_2051__UPDATE_CURRENT_MODULE_EN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2051__UPDATE_CURRENT_MODULE_EN.val, "UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_2051__UPDATE_CURRENT_MODULE_EN.val)-1); meltcdat->dstr_2051__UPDATE_CURRENT_MODULE_EN.val[43] = (char)0 ; meltcdat->dstr_2051__UPDATE_CURRENT_MODULE_EN.slen = 43 ; /*iniobj dsym_2052__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2146*/ meltfptr[2145]) + /*uniqueobj*/ if (!/*_._VALDATA___V2146*/ meltfptr[2145]) /*_._VALDATA___V2146*/ meltfptr[2145] = (melt_ptr_t )&meltcdat->dsym_2052__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2052__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", 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_2052__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30686,32 +26953,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2053__UPDATE_CURRENT_MODULE_EN*/ - /*_._VALSTR___V2147*/ - meltfptr[2146] = (melt_ptr_t) &meltcdat->dstr_2053__UPDATE_CURRENT_MODULE_EN; + /*_._VALSTR___V2147*/ meltfptr[2146] = (melt_ptr_t) &meltcdat->dstr_2053__UPDATE_CURRENT_MODULE_EN; meltcdat->dstr_2053__UPDATE_CURRENT_MODULE_EN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2053__UPDATE_CURRENT_MODULE_EN.val, "UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (meltcdat->dstr_2053__UPDATE_CURRENT_MODULE_EN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2053__UPDATE_CURRENT_MODULE_EN.val, "UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (meltcdat->dstr_2053__UPDATE_CURRENT_MODULE_EN.val)-1); meltcdat->dstr_2053__UPDATE_CURRENT_MODULE_EN.val[43] = (char)0 ; meltcdat->dstr_2053__UPDATE_CURRENT_MODULE_EN.slen = 43 ; /*inirout drout_2054__MEXPAND_FETCH_PREDEFINED*/ - /*iniroutlocvar*/ /*_._VALROUT___V2148*/ - meltfptr[2147] = (melt_ptr_t) &meltcdat->drout_2054__MEXPAND_FETCH_PREDEFINED; + /*iniroutlocvar*/ /*_._VALROUT___V2148*/ meltfptr[2147] = (melt_ptr_t) &meltcdat->drout_2054__MEXPAND_FETCH_PREDEFINED; meltcdat->drout_2054__MEXPAND_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2054__MEXPAND_FETCH_PREDEFINED.routdescr, "MEXPAND_FETCH_PREDEFINED @warmelt-macro.melt:8518", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2054__MEXPAND_FETCH_PREDEFINED.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2054__MEXPAND_FETCH_PREDEFINED, meltrout_172_WARMELTmiMACRO_MEXPAND_FETCH_PREDEFINED); /*iniclos dclo_2055__MEXPAND_FETCH_PREDEFINED*/ - /*_._VALCLO___V2149*/ - meltfptr[2148] = (melt_ptr_t) &meltcdat->dclo_2055__MEXPAND_FETCH_PREDEFINED; + /*_._VALCLO___V2149*/ meltfptr[2148] = (melt_ptr_t) &meltcdat->dclo_2055__MEXPAND_FETCH_PREDEFINED; meltcdat->dclo_2055__MEXPAND_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2055__MEXPAND_FETCH_PREDEFINED.nbval = 0; /*iniobj dsym_2056__FETCH_PREDEFINED*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2150*/ meltfptr[2149]) + /*uniqueobj*/ if (!/*_._VALDATA___V2150*/ meltfptr[2149]) /*_._VALDATA___V2150*/ meltfptr[2149] = (melt_ptr_t )&meltcdat->dsym_2056__FETCH_PREDEFINED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2056__FETCH_PREDEFINED", 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_2056__FETCH_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30721,32 +26983,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2057__FETCH_PREDEFINED*/ - /*_._VALSTR___V2151*/ - meltfptr[2150] = (melt_ptr_t) &meltcdat->dstr_2057__FETCH_PREDEFINED; + /*_._VALSTR___V2151*/ meltfptr[2150] = (melt_ptr_t) &meltcdat->dstr_2057__FETCH_PREDEFINED; meltcdat->dstr_2057__FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2057__FETCH_PREDEFINED.val, "FETCH_PREDEFINED", sizeof (meltcdat->dstr_2057__FETCH_PREDEFINED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2057__FETCH_PREDEFINED.val, "FETCH_PREDEFINED", sizeof (meltcdat->dstr_2057__FETCH_PREDEFINED.val)-1); meltcdat->dstr_2057__FETCH_PREDEFINED.val[16] = (char)0 ; meltcdat->dstr_2057__FETCH_PREDEFINED.slen = 16 ; /*inirout drout_2058__MEXPAND_STORE_PREDEFINED*/ - /*iniroutlocvar*/ /*_._VALROUT___V2152*/ - meltfptr[2151] = (melt_ptr_t) &meltcdat->drout_2058__MEXPAND_STORE_PREDEFINED; + /*iniroutlocvar*/ /*_._VALROUT___V2152*/ meltfptr[2151] = (melt_ptr_t) &meltcdat->drout_2058__MEXPAND_STORE_PREDEFINED; meltcdat->drout_2058__MEXPAND_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2058__MEXPAND_STORE_PREDEFINED.routdescr, "MEXPAND_STORE_PREDEFINED @warmelt-macro.melt:8547", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2058__MEXPAND_STORE_PREDEFINED.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2058__MEXPAND_STORE_PREDEFINED, meltrout_173_WARMELTmiMACRO_MEXPAND_STORE_PREDEFINED); /*iniclos dclo_2059__MEXPAND_STORE_PREDEFINED*/ - /*_._VALCLO___V2153*/ - meltfptr[2152] = (melt_ptr_t) &meltcdat->dclo_2059__MEXPAND_STORE_PREDEFINED; + /*_._VALCLO___V2153*/ meltfptr[2152] = (melt_ptr_t) &meltcdat->dclo_2059__MEXPAND_STORE_PREDEFINED; meltcdat->dclo_2059__MEXPAND_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2059__MEXPAND_STORE_PREDEFINED.nbval = 0; /*iniobj dsym_2060__STORE_PREDEFINED*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2154*/ meltfptr[2153]) + /*uniqueobj*/ if (!/*_._VALDATA___V2154*/ meltfptr[2153]) /*_._VALDATA___V2154*/ meltfptr[2153] = (melt_ptr_t )&meltcdat->dsym_2060__STORE_PREDEFINED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2060__STORE_PREDEFINED", 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_2060__STORE_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30756,18 +27013,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2061__STORE_PREDEFINED*/ - /*_._VALSTR___V2155*/ - meltfptr[2154] = (melt_ptr_t) &meltcdat->dstr_2061__STORE_PREDEFINED; + /*_._VALSTR___V2155*/ meltfptr[2154] = (melt_ptr_t) &meltcdat->dstr_2061__STORE_PREDEFINED; meltcdat->dstr_2061__STORE_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2061__STORE_PREDEFINED.val, "STORE_PREDEFINED", sizeof (meltcdat->dstr_2061__STORE_PREDEFINED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2061__STORE_PREDEFINED.val, "STORE_PREDEFINED", sizeof (meltcdat->dstr_2061__STORE_PREDEFINED.val)-1); meltcdat->dstr_2061__STORE_PREDEFINED.val[16] = (char)0 ; meltcdat->dstr_2061__STORE_PREDEFINED.slen = 16 ; /*iniobj dsym_2062__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2156*/ meltfptr[2155]) + /*uniqueobj*/ if (!/*_._VALDATA___V2156*/ meltfptr[2155]) /*_._VALDATA___V2156*/ meltfptr[2155] = (melt_ptr_t )&meltcdat->dsym_2062__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2062__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", 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_2062__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30777,18 +27031,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2063__CLASS_SOURCE_UPDATE_CURR*/ - /*_._VALSTR___V2157*/ - meltfptr[2156] = (melt_ptr_t) &meltcdat->dstr_2063__CLASS_SOURCE_UPDATE_CURR; + /*_._VALSTR___V2157*/ meltfptr[2156] = (melt_ptr_t) &meltcdat->dstr_2063__CLASS_SOURCE_UPDATE_CURR; meltcdat->dstr_2063__CLASS_SOURCE_UPDATE_CURR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2063__CLASS_SOURCE_UPDATE_CURR.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (meltcdat->dstr_2063__CLASS_SOURCE_UPDATE_CURR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2063__CLASS_SOURCE_UPDATE_CURR.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (meltcdat->dstr_2063__CLASS_SOURCE_UPDATE_CURR.val)-1); meltcdat->dstr_2063__CLASS_SOURCE_UPDATE_CURR.val[56] = (char)0 ; meltcdat->dstr_2063__CLASS_SOURCE_UPDATE_CURR.slen = 56 ; /*iniobj dsym_2064__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2158*/ meltfptr[2157]) + /*uniqueobj*/ if (!/*_._VALDATA___V2158*/ meltfptr[2157]) /*_._VALDATA___V2158*/ meltfptr[2157] = (melt_ptr_t )&meltcdat->dsym_2064__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2064__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", 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_2064__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30798,18 +27049,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2065__CLASS_SOURCE_CURRENT_MOD*/ - /*_._VALSTR___V2159*/ - meltfptr[2158] = (melt_ptr_t) &meltcdat->dstr_2065__CLASS_SOURCE_CURRENT_MOD; + /*_._VALSTR___V2159*/ meltfptr[2158] = (melt_ptr_t) &meltcdat->dstr_2065__CLASS_SOURCE_CURRENT_MOD; meltcdat->dstr_2065__CLASS_SOURCE_CURRENT_MOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2065__CLASS_SOURCE_CURRENT_MOD.val, "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (meltcdat->dstr_2065__CLASS_SOURCE_CURRENT_MOD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2065__CLASS_SOURCE_CURRENT_MOD.val, "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (meltcdat->dstr_2065__CLASS_SOURCE_CURRENT_MOD.val)-1); meltcdat->dstr_2065__CLASS_SOURCE_CURRENT_MOD.val[49] = (char)0 ; meltcdat->dstr_2065__CLASS_SOURCE_CURRENT_MOD.slen = 49 ; /*iniobj dsym_2066__EXPAND_APPLY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2160*/ meltfptr[2159]) + /*uniqueobj*/ if (!/*_._VALDATA___V2160*/ meltfptr[2159]) /*_._VALDATA___V2160*/ meltfptr[2159] = (melt_ptr_t )&meltcdat->dsym_2066__EXPAND_APPLY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2066__EXPAND_APPLY", 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_2066__EXPAND_APPLY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30819,18 +27067,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2067__EXPAND_APPLY*/ - /*_._VALSTR___V2161*/ - meltfptr[2160] = (melt_ptr_t) &meltcdat->dstr_2067__EXPAND_APPLY; + /*_._VALSTR___V2161*/ meltfptr[2160] = (melt_ptr_t) &meltcdat->dstr_2067__EXPAND_APPLY; meltcdat->dstr_2067__EXPAND_APPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2067__EXPAND_APPLY.val, "EXPAND_APPLY", sizeof (meltcdat->dstr_2067__EXPAND_APPLY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2067__EXPAND_APPLY.val, "EXPAND_APPLY", sizeof (meltcdat->dstr_2067__EXPAND_APPLY.val)-1); meltcdat->dstr_2067__EXPAND_APPLY.val[12] = (char)0 ; meltcdat->dstr_2067__EXPAND_APPLY.slen = 12 ; /*iniobj dsym_2068__EXPAND_MSEND*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2162*/ meltfptr[2161]) + /*uniqueobj*/ if (!/*_._VALDATA___V2162*/ meltfptr[2161]) /*_._VALDATA___V2162*/ meltfptr[2161] = (melt_ptr_t )&meltcdat->dsym_2068__EXPAND_MSEND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2068__EXPAND_MSEND", 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_2068__EXPAND_MSEND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30840,18 +27085,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2069__EXPAND_MSEND*/ - /*_._VALSTR___V2163*/ - meltfptr[2162] = (melt_ptr_t) &meltcdat->dstr_2069__EXPAND_MSEND; + /*_._VALSTR___V2163*/ meltfptr[2162] = (melt_ptr_t) &meltcdat->dstr_2069__EXPAND_MSEND; meltcdat->dstr_2069__EXPAND_MSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2069__EXPAND_MSEND.val, "EXPAND_MSEND", sizeof (meltcdat->dstr_2069__EXPAND_MSEND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2069__EXPAND_MSEND.val, "EXPAND_MSEND", sizeof (meltcdat->dstr_2069__EXPAND_MSEND.val)-1); meltcdat->dstr_2069__EXPAND_MSEND.val[12] = (char)0 ; meltcdat->dstr_2069__EXPAND_MSEND.slen = 12 ; /*iniobj dsym_2070__EXPAND_PAIRLIST_AS_TUPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2164*/ meltfptr[2163]) + /*uniqueobj*/ if (!/*_._VALDATA___V2164*/ meltfptr[2163]) /*_._VALDATA___V2164*/ meltfptr[2163] = (melt_ptr_t )&meltcdat->dsym_2070__EXPAND_PAIRLIST_AS_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2070__EXPAND_PAIRLIST_AS_TUPLE", 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_2070__EXPAND_PAIRLIST_AS_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30861,18 +27103,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2071__EXPAND_PAIRLIST_AS_TUPLE*/ - /*_._VALSTR___V2165*/ - meltfptr[2164] = (melt_ptr_t) &meltcdat->dstr_2071__EXPAND_PAIRLIST_AS_TUPLE; + /*_._VALSTR___V2165*/ meltfptr[2164] = (melt_ptr_t) &meltcdat->dstr_2071__EXPAND_PAIRLIST_AS_TUPLE; meltcdat->dstr_2071__EXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2071__EXPAND_PAIRLIST_AS_TUPLE.val, "EXPAND_PAIRLIST_AS_TUPLE", sizeof (meltcdat->dstr_2071__EXPAND_PAIRLIST_AS_TUPLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2071__EXPAND_PAIRLIST_AS_TUPLE.val, "EXPAND_PAIRLIST_AS_TUPLE", sizeof (meltcdat->dstr_2071__EXPAND_PAIRLIST_AS_TUPLE.val)-1); meltcdat->dstr_2071__EXPAND_PAIRLIST_AS_TUPLE.val[24] = (char)0 ; meltcdat->dstr_2071__EXPAND_PAIRLIST_AS_TUPLE.slen = 24 ; /*iniobj dsym_2072__EXPAND_PAIRLIST_AS_LIST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2166*/ meltfptr[2165]) + /*uniqueobj*/ if (!/*_._VALDATA___V2166*/ meltfptr[2165]) /*_._VALDATA___V2166*/ meltfptr[2165] = (melt_ptr_t )&meltcdat->dsym_2072__EXPAND_PAIRLIST_AS_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2072__EXPAND_PAIRLIST_AS_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_2072__EXPAND_PAIRLIST_AS_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30882,18 +27121,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2073__EXPAND_PAIRLIST_AS_LIST*/ - /*_._VALSTR___V2167*/ - meltfptr[2166] = (melt_ptr_t) &meltcdat->dstr_2073__EXPAND_PAIRLIST_AS_LIST; + /*_._VALSTR___V2167*/ meltfptr[2166] = (melt_ptr_t) &meltcdat->dstr_2073__EXPAND_PAIRLIST_AS_LIST; meltcdat->dstr_2073__EXPAND_PAIRLIST_AS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2073__EXPAND_PAIRLIST_AS_LIST.val, "EXPAND_PAIRLIST_AS_LIST", sizeof (meltcdat->dstr_2073__EXPAND_PAIRLIST_AS_LIST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2073__EXPAND_PAIRLIST_AS_LIST.val, "EXPAND_PAIRLIST_AS_LIST", sizeof (meltcdat->dstr_2073__EXPAND_PAIRLIST_AS_LIST.val)-1); meltcdat->dstr_2073__EXPAND_PAIRLIST_AS_LIST.val[23] = (char)0 ; meltcdat->dstr_2073__EXPAND_PAIRLIST_AS_LIST.slen = 23 ; /*iniobj dsym_2074__EXPAND_RESTLIST_AS_LIST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2168*/ meltfptr[2167]) + /*uniqueobj*/ if (!/*_._VALDATA___V2168*/ meltfptr[2167]) /*_._VALDATA___V2168*/ meltfptr[2167] = (melt_ptr_t )&meltcdat->dsym_2074__EXPAND_RESTLIST_AS_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2074__EXPAND_RESTLIST_AS_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_2074__EXPAND_RESTLIST_AS_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30903,18 +27139,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2075__EXPAND_RESTLIST_AS_LIST*/ - /*_._VALSTR___V2169*/ - meltfptr[2168] = (melt_ptr_t) &meltcdat->dstr_2075__EXPAND_RESTLIST_AS_LIST; + /*_._VALSTR___V2169*/ meltfptr[2168] = (melt_ptr_t) &meltcdat->dstr_2075__EXPAND_RESTLIST_AS_LIST; meltcdat->dstr_2075__EXPAND_RESTLIST_AS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2075__EXPAND_RESTLIST_AS_LIST.val, "EXPAND_RESTLIST_AS_LIST", sizeof (meltcdat->dstr_2075__EXPAND_RESTLIST_AS_LIST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2075__EXPAND_RESTLIST_AS_LIST.val, "EXPAND_RESTLIST_AS_LIST", sizeof (meltcdat->dstr_2075__EXPAND_RESTLIST_AS_LIST.val)-1); meltcdat->dstr_2075__EXPAND_RESTLIST_AS_LIST.val[23] = (char)0 ; meltcdat->dstr_2075__EXPAND_RESTLIST_AS_LIST.slen = 23 ; /*iniobj dsym_2076__EXPAND_TUPLE_SLICE_AS_TUPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2170*/ meltfptr[2169]) + /*uniqueobj*/ if (!/*_._VALDATA___V2170*/ meltfptr[2169]) /*_._VALDATA___V2170*/ meltfptr[2169] = (melt_ptr_t )&meltcdat->dsym_2076__EXPAND_TUPLE_SLICE_AS_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2076__EXPAND_TUPLE_SLICE_AS_TUPLE", 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_2076__EXPAND_TUPLE_SLICE_AS_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30924,18 +27157,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2077__EXPAND_TUPLE_SLICE_AS_TU*/ - /*_._VALSTR___V2171*/ - meltfptr[2170] = (melt_ptr_t) &meltcdat->dstr_2077__EXPAND_TUPLE_SLICE_AS_TU; + /*_._VALSTR___V2171*/ meltfptr[2170] = (melt_ptr_t) &meltcdat->dstr_2077__EXPAND_TUPLE_SLICE_AS_TU; meltcdat->dstr_2077__EXPAND_TUPLE_SLICE_AS_TU.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2077__EXPAND_TUPLE_SLICE_AS_TU.val, "EXPAND_TUPLE_SLICE_AS_TUPLE", sizeof (meltcdat->dstr_2077__EXPAND_TUPLE_SLICE_AS_TU.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2077__EXPAND_TUPLE_SLICE_AS_TU.val, "EXPAND_TUPLE_SLICE_AS_TUPLE", sizeof (meltcdat->dstr_2077__EXPAND_TUPLE_SLICE_AS_TU.val)-1); meltcdat->dstr_2077__EXPAND_TUPLE_SLICE_AS_TU.val[27] = (char)0 ; meltcdat->dstr_2077__EXPAND_TUPLE_SLICE_AS_TU.slen = 27 ; /*iniobj dsym_2078__EXPAND_PRIMITIVE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2172*/ meltfptr[2171]) + /*uniqueobj*/ if (!/*_._VALDATA___V2172*/ meltfptr[2171]) /*_._VALDATA___V2172*/ meltfptr[2171] = (melt_ptr_t )&meltcdat->dsym_2078__EXPAND_PRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2078__EXPAND_PRIMITIVE", 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_2078__EXPAND_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30945,18 +27175,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2079__EXPAND_PRIMITIVE*/ - /*_._VALSTR___V2173*/ - meltfptr[2172] = (melt_ptr_t) &meltcdat->dstr_2079__EXPAND_PRIMITIVE; + /*_._VALSTR___V2173*/ meltfptr[2172] = (melt_ptr_t) &meltcdat->dstr_2079__EXPAND_PRIMITIVE; meltcdat->dstr_2079__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2079__EXPAND_PRIMITIVE.val, "EXPAND_PRIMITIVE", sizeof (meltcdat->dstr_2079__EXPAND_PRIMITIVE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2079__EXPAND_PRIMITIVE.val, "EXPAND_PRIMITIVE", sizeof (meltcdat->dstr_2079__EXPAND_PRIMITIVE.val)-1); meltcdat->dstr_2079__EXPAND_PRIMITIVE.val[16] = (char)0 ; meltcdat->dstr_2079__EXPAND_PRIMITIVE.slen = 16 ; /*iniobj dsym_2080__HOOK_MACRO_INSTALLER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2174*/ meltfptr[2173]) + /*uniqueobj*/ if (!/*_._VALDATA___V2174*/ meltfptr[2173]) /*_._VALDATA___V2174*/ meltfptr[2173] = (melt_ptr_t )&meltcdat->dsym_2080__HOOK_MACRO_INSTALLER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2080__HOOK_MACRO_INSTALLER", 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_2080__HOOK_MACRO_INSTALLER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30966,18 +27193,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2081__HOOK_MACRO_INSTALLER*/ - /*_._VALSTR___V2175*/ - meltfptr[2174] = (melt_ptr_t) &meltcdat->dstr_2081__HOOK_MACRO_INSTALLER; + /*_._VALSTR___V2175*/ meltfptr[2174] = (melt_ptr_t) &meltcdat->dstr_2081__HOOK_MACRO_INSTALLER; meltcdat->dstr_2081__HOOK_MACRO_INSTALLER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2081__HOOK_MACRO_INSTALLER.val, "HOOK_MACRO_INSTALLER", sizeof (meltcdat->dstr_2081__HOOK_MACRO_INSTALLER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2081__HOOK_MACRO_INSTALLER.val, "HOOK_MACRO_INSTALLER", sizeof (meltcdat->dstr_2081__HOOK_MACRO_INSTALLER.val)-1); meltcdat->dstr_2081__HOOK_MACRO_INSTALLER.val[20] = (char)0 ; meltcdat->dstr_2081__HOOK_MACRO_INSTALLER.slen = 20 ; /*iniobj dsym_2082__INSTALL_INITIAL_MACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2176*/ meltfptr[2175]) + /*uniqueobj*/ if (!/*_._VALDATA___V2176*/ meltfptr[2175]) /*_._VALDATA___V2176*/ meltfptr[2175] = (melt_ptr_t )&meltcdat->dsym_2082__INSTALL_INITIAL_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2082__INSTALL_INITIAL_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_2082__INSTALL_INITIAL_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -30987,18 +27211,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2083__INSTALL_INITIAL_MACRO*/ - /*_._VALSTR___V2177*/ - meltfptr[2176] = (melt_ptr_t) &meltcdat->dstr_2083__INSTALL_INITIAL_MACRO; + /*_._VALSTR___V2177*/ meltfptr[2176] = (melt_ptr_t) &meltcdat->dstr_2083__INSTALL_INITIAL_MACRO; meltcdat->dstr_2083__INSTALL_INITIAL_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2083__INSTALL_INITIAL_MACRO.val, "INSTALL_INITIAL_MACRO", sizeof (meltcdat->dstr_2083__INSTALL_INITIAL_MACRO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2083__INSTALL_INITIAL_MACRO.val, "INSTALL_INITIAL_MACRO", sizeof (meltcdat->dstr_2083__INSTALL_INITIAL_MACRO.val)-1); meltcdat->dstr_2083__INSTALL_INITIAL_MACRO.val[21] = (char)0 ; meltcdat->dstr_2083__INSTALL_INITIAL_MACRO.slen = 21 ; /*iniobj dsym_2084__INSTALL_INITIAL_PATMACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2178*/ meltfptr[2177]) + /*uniqueobj*/ if (!/*_._VALDATA___V2178*/ meltfptr[2177]) /*_._VALDATA___V2178*/ meltfptr[2177] = (melt_ptr_t )&meltcdat->dsym_2084__INSTALL_INITIAL_PATMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2084__INSTALL_INITIAL_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_2084__INSTALL_INITIAL_PATMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -31008,18 +27229,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2085__INSTALL_INITIAL_PATMACRO*/ - /*_._VALSTR___V2179*/ - meltfptr[2178] = (melt_ptr_t) &meltcdat->dstr_2085__INSTALL_INITIAL_PATMACRO; + /*_._VALSTR___V2179*/ meltfptr[2178] = (melt_ptr_t) &meltcdat->dstr_2085__INSTALL_INITIAL_PATMACRO; meltcdat->dstr_2085__INSTALL_INITIAL_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2085__INSTALL_INITIAL_PATMACRO.val, "INSTALL_INITIAL_PATMACRO", sizeof (meltcdat->dstr_2085__INSTALL_INITIAL_PATMACRO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2085__INSTALL_INITIAL_PATMACRO.val, "INSTALL_INITIAL_PATMACRO", sizeof (meltcdat->dstr_2085__INSTALL_INITIAL_PATMACRO.val)-1); meltcdat->dstr_2085__INSTALL_INITIAL_PATMACRO.val[24] = (char)0 ; meltcdat->dstr_2085__INSTALL_INITIAL_PATMACRO.slen = 24 ; /*iniobj dsym_2086__LAMBDA_ARG_BINDINGS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2180*/ meltfptr[2179]) + /*uniqueobj*/ if (!/*_._VALDATA___V2180*/ meltfptr[2179]) /*_._VALDATA___V2180*/ meltfptr[2179] = (melt_ptr_t )&meltcdat->dsym_2086__LAMBDA_ARG_BINDINGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2086__LAMBDA_ARG_BINDINGS", 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_2086__LAMBDA_ARG_BINDINGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -31029,18 +27247,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2087__LAMBDA_ARG_BINDINGS*/ - /*_._VALSTR___V2181*/ - meltfptr[2180] = (melt_ptr_t) &meltcdat->dstr_2087__LAMBDA_ARG_BINDINGS; + /*_._VALSTR___V2181*/ meltfptr[2180] = (melt_ptr_t) &meltcdat->dstr_2087__LAMBDA_ARG_BINDINGS; meltcdat->dstr_2087__LAMBDA_ARG_BINDINGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2087__LAMBDA_ARG_BINDINGS.val, "LAMBDA_ARG_BINDINGS", sizeof (meltcdat->dstr_2087__LAMBDA_ARG_BINDINGS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2087__LAMBDA_ARG_BINDINGS.val, "LAMBDA_ARG_BINDINGS", sizeof (meltcdat->dstr_2087__LAMBDA_ARG_BINDINGS.val)-1); meltcdat->dstr_2087__LAMBDA_ARG_BINDINGS.val[19] = (char)0 ; meltcdat->dstr_2087__LAMBDA_ARG_BINDINGS.slen = 19 ; /*iniobj dsym_2088__MACROEXPAND_1*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2182*/ meltfptr[2181]) + /*uniqueobj*/ if (!/*_._VALDATA___V2182*/ meltfptr[2181]) /*_._VALDATA___V2182*/ meltfptr[2181] = (melt_ptr_t )&meltcdat->dsym_2088__MACROEXPAND_1; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2088__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_2088__MACROEXPAND_1", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -31050,18 +27265,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2089__MACROEXPAND_1*/ - /*_._VALSTR___V2183*/ - meltfptr[2182] = (melt_ptr_t) &meltcdat->dstr_2089__MACROEXPAND_1; + /*_._VALSTR___V2183*/ meltfptr[2182] = (melt_ptr_t) &meltcdat->dstr_2089__MACROEXPAND_1; meltcdat->dstr_2089__MACROEXPAND_1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2089__MACROEXPAND_1.val, "MACROEXPAND_1", sizeof (meltcdat->dstr_2089__MACROEXPAND_1.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2089__MACROEXPAND_1.val, "MACROEXPAND_1", sizeof (meltcdat->dstr_2089__MACROEXPAND_1.val)-1); meltcdat->dstr_2089__MACROEXPAND_1.val[13] = (char)0 ; meltcdat->dstr_2089__MACROEXPAND_1.slen = 13 ; /*iniobj dsym_2090__MACROEXPAND_TOPLEVEL_LIST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2184*/ meltfptr[2183]) + /*uniqueobj*/ if (!/*_._VALDATA___V2184*/ meltfptr[2183]) /*_._VALDATA___V2184*/ meltfptr[2183] = (melt_ptr_t )&meltcdat->dsym_2090__MACROEXPAND_TOPLEVEL_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2090__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_2090__MACROEXPAND_TOPLEVEL_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -31071,18 +27283,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2091__MACROEXPAND_TOPLEVEL_LIS*/ - /*_._VALSTR___V2185*/ - meltfptr[2184] = (melt_ptr_t) &meltcdat->dstr_2091__MACROEXPAND_TOPLEVEL_LIS; + /*_._VALSTR___V2185*/ meltfptr[2184] = (melt_ptr_t) &meltcdat->dstr_2091__MACROEXPAND_TOPLEVEL_LIS; meltcdat->dstr_2091__MACROEXPAND_TOPLEVEL_LIS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2091__MACROEXPAND_TOPLEVEL_LIS.val, "MACROEXPAND_TOPLEVEL_LIST", sizeof (meltcdat->dstr_2091__MACROEXPAND_TOPLEVEL_LIS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2091__MACROEXPAND_TOPLEVEL_LIS.val, "MACROEXPAND_TOPLEVEL_LIST", sizeof (meltcdat->dstr_2091__MACROEXPAND_TOPLEVEL_LIS.val)-1); meltcdat->dstr_2091__MACROEXPAND_TOPLEVEL_LIS.val[25] = (char)0 ; meltcdat->dstr_2091__MACROEXPAND_TOPLEVEL_LIS.slen = 25 ; /*iniobj dsym_2092__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2186*/ meltfptr[2185]) + /*uniqueobj*/ if (!/*_._VALDATA___V2186*/ meltfptr[2185]) /*_._VALDATA___V2186*/ meltfptr[2185] = (melt_ptr_t )&meltcdat->dsym_2092__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2092__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS", 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_2092__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -31092,18 +27301,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2093__MELT_REGISTER_TRANSLATOR*/ - /*_._VALSTR___V2187*/ - meltfptr[2186] = (melt_ptr_t) &meltcdat->dstr_2093__MELT_REGISTER_TRANSLATOR; + /*_._VALSTR___V2187*/ meltfptr[2186] = (melt_ptr_t) &meltcdat->dstr_2093__MELT_REGISTER_TRANSLATOR; meltcdat->dstr_2093__MELT_REGISTER_TRANSLATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2093__MELT_REGISTER_TRANSLATOR.val, "MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS", sizeof (meltcdat->dstr_2093__MELT_REGISTER_TRANSLATOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2093__MELT_REGISTER_TRANSLATOR.val, "MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS", sizeof (meltcdat->dstr_2093__MELT_REGISTER_TRANSLATOR.val)-1); meltcdat->dstr_2093__MELT_REGISTER_TRANSLATOR.val[47] = (char)0 ; meltcdat->dstr_2093__MELT_REGISTER_TRANSLATOR.slen = 47 ; /*iniobj dsym_2094__PATTERNEXPAND_1*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2188*/ meltfptr[2187]) + /*uniqueobj*/ if (!/*_._VALDATA___V2188*/ meltfptr[2187]) /*_._VALDATA___V2188*/ meltfptr[2187] = (melt_ptr_t )&meltcdat->dsym_2094__PATTERNEXPAND_1; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2094__PATTERNEXPAND_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_2094__PATTERNEXPAND_1", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -31113,18 +27319,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2095__PATTERNEXPAND_1*/ - /*_._VALSTR___V2189*/ - meltfptr[2188] = (melt_ptr_t) &meltcdat->dstr_2095__PATTERNEXPAND_1; + /*_._VALSTR___V2189*/ meltfptr[2188] = (melt_ptr_t) &meltcdat->dstr_2095__PATTERNEXPAND_1; meltcdat->dstr_2095__PATTERNEXPAND_1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2095__PATTERNEXPAND_1.val, "PATTERNEXPAND_1", sizeof (meltcdat->dstr_2095__PATTERNEXPAND_1.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2095__PATTERNEXPAND_1.val, "PATTERNEXPAND_1", sizeof (meltcdat->dstr_2095__PATTERNEXPAND_1.val)-1); meltcdat->dstr_2095__PATTERNEXPAND_1.val[15] = (char)0 ; meltcdat->dstr_2095__PATTERNEXPAND_1.slen = 15 ; /*iniobj dsym_2096__PATTERNEXPAND_EXPR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2190*/ meltfptr[2189]) + /*uniqueobj*/ if (!/*_._VALDATA___V2190*/ meltfptr[2189]) /*_._VALDATA___V2190*/ meltfptr[2189] = (melt_ptr_t )&meltcdat->dsym_2096__PATTERNEXPAND_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2096__PATTERNEXPAND_EXPR", 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_2096__PATTERNEXPAND_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -31134,18 +27337,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2097__PATTERNEXPAND_EXPR*/ - /*_._VALSTR___V2191*/ - meltfptr[2190] = (melt_ptr_t) &meltcdat->dstr_2097__PATTERNEXPAND_EXPR; + /*_._VALSTR___V2191*/ meltfptr[2190] = (melt_ptr_t) &meltcdat->dstr_2097__PATTERNEXPAND_EXPR; meltcdat->dstr_2097__PATTERNEXPAND_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2097__PATTERNEXPAND_EXPR.val, "PATTERNEXPAND_EXPR", sizeof (meltcdat->dstr_2097__PATTERNEXPAND_EXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2097__PATTERNEXPAND_EXPR.val, "PATTERNEXPAND_EXPR", sizeof (meltcdat->dstr_2097__PATTERNEXPAND_EXPR.val)-1); meltcdat->dstr_2097__PATTERNEXPAND_EXPR.val[18] = (char)0 ; meltcdat->dstr_2097__PATTERNEXPAND_EXPR.slen = 18 ; /*iniobj dsym_2098__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2192*/ meltfptr[2191]) + /*uniqueobj*/ if (!/*_._VALDATA___V2192*/ meltfptr[2191]) /*_._VALDATA___V2192*/ meltfptr[2191] = (melt_ptr_t )&meltcdat->dsym_2098__PATTERNEXPAND_PAIRLIST_AS_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2098__PATTERNEXPAND_PAIRLIST_AS_TUPLE", 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_2098__PATTERNEXPAND_PAIRLIST_AS_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -31155,18 +27355,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2099__PATTERNEXPAND_PAIRLIST_A*/ - /*_._VALSTR___V2193*/ - meltfptr[2192] = (melt_ptr_t) &meltcdat->dstr_2099__PATTERNEXPAND_PAIRLIST_A; + /*_._VALSTR___V2193*/ meltfptr[2192] = (melt_ptr_t) &meltcdat->dstr_2099__PATTERNEXPAND_PAIRLIST_A; meltcdat->dstr_2099__PATTERNEXPAND_PAIRLIST_A.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2099__PATTERNEXPAND_PAIRLIST_A.val, "PATTERNEXPAND_PAIRLIST_AS_TUPLE", sizeof (meltcdat->dstr_2099__PATTERNEXPAND_PAIRLIST_A.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2099__PATTERNEXPAND_PAIRLIST_A.val, "PATTERNEXPAND_PAIRLIST_AS_TUPLE", sizeof (meltcdat->dstr_2099__PATTERNEXPAND_PAIRLIST_A.val)-1); meltcdat->dstr_2099__PATTERNEXPAND_PAIRLIST_A.val[31] = (char)0 ; meltcdat->dstr_2099__PATTERNEXPAND_PAIRLIST_A.slen = 31 ; /*iniobj dsym_2100__PATTERN_WEIGHT_TUPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2194*/ meltfptr[2193]) + /*uniqueobj*/ if (!/*_._VALDATA___V2194*/ meltfptr[2193]) /*_._VALDATA___V2194*/ meltfptr[2193] = (melt_ptr_t )&meltcdat->dsym_2100__PATTERN_WEIGHT_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2100__PATTERN_WEIGHT_TUPLE", 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_2100__PATTERN_WEIGHT_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -31176,18 +27373,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2101__PATTERN_WEIGHT_TUPLE*/ - /*_._VALSTR___V2195*/ - meltfptr[2194] = (melt_ptr_t) &meltcdat->dstr_2101__PATTERN_WEIGHT_TUPLE; + /*_._VALSTR___V2195*/ meltfptr[2194] = (melt_ptr_t) &meltcdat->dstr_2101__PATTERN_WEIGHT_TUPLE; meltcdat->dstr_2101__PATTERN_WEIGHT_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2101__PATTERN_WEIGHT_TUPLE.val, "PATTERN_WEIGHT_TUPLE", sizeof (meltcdat->dstr_2101__PATTERN_WEIGHT_TUPLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2101__PATTERN_WEIGHT_TUPLE.val, "PATTERN_WEIGHT_TUPLE", sizeof (meltcdat->dstr_2101__PATTERN_WEIGHT_TUPLE.val)-1); meltcdat->dstr_2101__PATTERN_WEIGHT_TUPLE.val[20] = (char)0 ; meltcdat->dstr_2101__PATTERN_WEIGHT_TUPLE.slen = 20 ; /*iniobj dsym_2102__REGISTER_GENERATOR_DEVICE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2196*/ meltfptr[2195]) + /*uniqueobj*/ if (!/*_._VALDATA___V2196*/ meltfptr[2195]) /*_._VALDATA___V2196*/ meltfptr[2195] = (melt_ptr_t )&meltcdat->dsym_2102__REGISTER_GENERATOR_DEVICE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2102__REGISTER_GENERATOR_DEVICE", 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_2102__REGISTER_GENERATOR_DEVICE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -31197,18 +27391,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2103__REGISTER_GENERATOR_DEVIC*/ - /*_._VALSTR___V2197*/ - meltfptr[2196] = (melt_ptr_t) &meltcdat->dstr_2103__REGISTER_GENERATOR_DEVIC; + /*_._VALSTR___V2197*/ meltfptr[2196] = (melt_ptr_t) &meltcdat->dstr_2103__REGISTER_GENERATOR_DEVIC; meltcdat->dstr_2103__REGISTER_GENERATOR_DEVIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2103__REGISTER_GENERATOR_DEVIC.val, "REGISTER_GENERATOR_DEVICE", sizeof (meltcdat->dstr_2103__REGISTER_GENERATOR_DEVIC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2103__REGISTER_GENERATOR_DEVIC.val, "REGISTER_GENERATOR_DEVICE", sizeof (meltcdat->dstr_2103__REGISTER_GENERATOR_DEVIC.val)-1); meltcdat->dstr_2103__REGISTER_GENERATOR_DEVIC.val[25] = (char)0 ; meltcdat->dstr_2103__REGISTER_GENERATOR_DEVIC.slen = 25 ; /*iniobj dsym_2104__S_EXPR_WEIGHT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2198*/ meltfptr[2197]) + /*uniqueobj*/ if (!/*_._VALDATA___V2198*/ meltfptr[2197]) /*_._VALDATA___V2198*/ meltfptr[2197] = (melt_ptr_t )&meltcdat->dsym_2104__S_EXPR_WEIGHT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2104__S_EXPR_WEIGHT", 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_2104__S_EXPR_WEIGHT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -31218,18 +27409,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2105__S_EXPR_WEIGHT*/ - /*_._VALSTR___V2199*/ - meltfptr[2198] = (melt_ptr_t) &meltcdat->dstr_2105__S_EXPR_WEIGHT; + /*_._VALSTR___V2199*/ meltfptr[2198] = (melt_ptr_t) &meltcdat->dstr_2105__S_EXPR_WEIGHT; meltcdat->dstr_2105__S_EXPR_WEIGHT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2105__S_EXPR_WEIGHT.val, "S_EXPR_WEIGHT", sizeof (meltcdat->dstr_2105__S_EXPR_WEIGHT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2105__S_EXPR_WEIGHT.val, "S_EXPR_WEIGHT", sizeof (meltcdat->dstr_2105__S_EXPR_WEIGHT.val)-1); meltcdat->dstr_2105__S_EXPR_WEIGHT.val[13] = (char)0 ; meltcdat->dstr_2105__S_EXPR_WEIGHT.slen = 13 ; /*iniobj dsym_2106__MEXPAND_REFERENCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2200*/ meltfptr[2199]) + /*uniqueobj*/ if (!/*_._VALDATA___V2200*/ meltfptr[2199]) /*_._VALDATA___V2200*/ meltfptr[2199] = (melt_ptr_t )&meltcdat->dsym_2106__MEXPAND_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2106__MEXPAND_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_2106__MEXPAND_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -31239,18 +27427,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2107__MEXPAND_REFERENCE*/ - /*_._VALSTR___V2201*/ - meltfptr[2200] = (melt_ptr_t) &meltcdat->dstr_2107__MEXPAND_REFERENCE; + /*_._VALSTR___V2201*/ meltfptr[2200] = (melt_ptr_t) &meltcdat->dstr_2107__MEXPAND_REFERENCE; meltcdat->dstr_2107__MEXPAND_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2107__MEXPAND_REFERENCE.val, "MEXPAND_REFERENCE", sizeof (meltcdat->dstr_2107__MEXPAND_REFERENCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2107__MEXPAND_REFERENCE.val, "MEXPAND_REFERENCE", sizeof (meltcdat->dstr_2107__MEXPAND_REFERENCE.val)-1); meltcdat->dstr_2107__MEXPAND_REFERENCE.val[17] = (char)0 ; meltcdat->dstr_2107__MEXPAND_REFERENCE.slen = 17 ; /*iniobj dsym_2108__PATEXPAND_REFERENCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V2202*/ meltfptr[2201]) + /*uniqueobj*/ if (!/*_._VALDATA___V2202*/ meltfptr[2201]) /*_._VALDATA___V2202*/ meltfptr[2201] = (melt_ptr_t )&meltcdat->dsym_2108__PATEXPAND_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2108__PATEXPAND_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_2108__PATEXPAND_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -31260,11 +27445,9 @@ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t /*inistring dstr_2109__PATEXPAND_REFERENCE*/ - /*_._VALSTR___V2203*/ - meltfptr[2202] = (melt_ptr_t) &meltcdat->dstr_2109__PATEXPAND_REFERENCE; + /*_._VALSTR___V2203*/ meltfptr[2202] = (melt_ptr_t) &meltcdat->dstr_2109__PATEXPAND_REFERENCE; meltcdat->dstr_2109__PATEXPAND_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2109__PATEXPAND_REFERENCE.val, "PATEXPAND_REFERENCE", sizeof (meltcdat->dstr_2109__PATEXPAND_REFERENCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2109__PATEXPAND_REFERENCE.val, "PATEXPAND_REFERENCE", sizeof (meltcdat->dstr_2109__PATEXPAND_REFERENCE.val)-1); meltcdat->dstr_2109__PATEXPAND_REFERENCE.val[19] = (char)0 ; meltcdat->dstr_2109__PATEXPAND_REFERENCE.slen = 19 ; meltcdat = NULL; @@ -31305,8 +27488,7 @@ void* 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 1736*/ - Melt_InitialFrame + /* classy initial frame melt_start_this_module fromline 1736*/ Melt_InitialFrame meltfram__ /*declfrastruct fromline 1743*/ /*classyinitroutinearg melt_start_this_module fromline 1782*/ #if ENABLE_CHECKING @@ -31320,14 +27502,12 @@ void* 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*/ @@ -31363,8 +27543,7 @@ void* 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*/ @@ -31377,8 +27556,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_DIAGNOSTIC_STATE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_DIAGNOSTIC_STATE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_DIAGNOSTIC_STATE", (long) MELT_GET); - /*_._VALDATA___V107*/ - meltfptr[106] = (melt_ptr_t) meltsy_CLASS_DIAGNOSTIC_STATE; + /*_._VALDATA___V107*/ meltfptr[106] = (melt_ptr_t) meltsy_CLASS_DIAGNOSTIC_STATE; } /*endgetnamedsym CLASS_DIAGNOSTIC_STATE*/ @@ -31391,8 +27569,7 @@ void* 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___V109*/ - meltfptr[108] = (melt_ptr_t) meltsy_CLASS_LOCATED; + /*_._VALDATA___V109*/ meltfptr[108] = (melt_ptr_t) meltsy_CLASS_LOCATED; } /*endgetnamedsym CLASS_LOCATED*/ @@ -31405,8 +27582,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DIAG_VECT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAG_VECT = melthookproc_HOOK_NAMED_SYMBOL ("DIAG_VECT", (long) MELT_GET); - /*_._VALDATA___V121*/ - meltfptr[120] = (melt_ptr_t) meltsy_DIAG_VECT; + /*_._VALDATA___V121*/ meltfptr[120] = (melt_ptr_t) meltsy_DIAG_VECT; } /*endgetnamedsym DIAG_VECT*/ @@ -31419,8 +27595,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DIAG_POSITION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAG_POSITION = melthookproc_HOOK_NAMED_SYMBOL ("DIAG_POSITION", (long) MELT_GET); - /*_._VALDATA___V123*/ - meltfptr[122] = (melt_ptr_t) meltsy_DIAG_POSITION; + /*_._VALDATA___V123*/ meltfptr[122] = (melt_ptr_t) meltsy_DIAG_POSITION; } /*endgetnamedsym DIAG_POSITION*/ @@ -31433,8 +27608,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DIAG_STATE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAG_STATE = melthookproc_HOOK_NAMED_SYMBOL ("DIAG_STATE", (long) MELT_GET); - /*_._VALDATA___V125*/ - meltfptr[124] = (melt_ptr_t) meltsy_DIAG_STATE; + /*_._VALDATA___V125*/ meltfptr[124] = (melt_ptr_t) meltsy_DIAG_STATE; } /*endgetnamedsym DIAG_STATE*/ @@ -31447,8 +27621,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DISCR_DIAGNOSTIC_CLOSURE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_DIAGNOSTIC_CLOSURE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_DIAGNOSTIC_CLOSURE", (long) MELT_GET); - /*_._VALDATA___V127*/ - meltfptr[126] = (melt_ptr_t) meltsy_DISCR_DIAGNOSTIC_CLOSURE; + /*_._VALDATA___V127*/ meltfptr[126] = (melt_ptr_t) meltsy_DISCR_DIAGNOSTIC_CLOSURE; } /*endgetnamedsym DISCR_DIAGNOSTIC_CLOSURE*/ @@ -31461,8 +27634,7 @@ void* 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___V129*/ - meltfptr[128] = (melt_ptr_t) meltsy_CLASS_DISCRIMINANT; + /*_._VALDATA___V129*/ meltfptr[128] = (melt_ptr_t) meltsy_CLASS_DISCRIMINANT; } /*endgetnamedsym CLASS_DISCRIMINANT*/ @@ -31475,8 +27647,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DISCR_CLOSURE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_CLOSURE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_CLOSURE", (long) MELT_GET); - /*_._VALDATA___V133*/ - meltfptr[132] = (melt_ptr_t) meltsy_DISCR_CLOSURE; + /*_._VALDATA___V133*/ meltfptr[132] = (melt_ptr_t) meltsy_DISCR_CLOSURE; } /*endgetnamedsym DISCR_CLOSURE*/ @@ -31489,8 +27660,7 @@ void* 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___V269*/ - meltfptr[268] = (melt_ptr_t) meltsy_MELT_DEBUG_FUN; + /*_._VALDATA___V269*/ meltfptr[268] = (melt_ptr_t) meltsy_MELT_DEBUG_FUN; } /*endgetnamedsym MELT_DEBUG_FUN*/ @@ -31503,8 +27673,7 @@ void* 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___V271*/ - meltfptr[270] = (melt_ptr_t) meltsy_CLASS_SEXPR; + /*_._VALDATA___V271*/ meltfptr[270] = (melt_ptr_t) meltsy_CLASS_SEXPR; } /*endgetnamedsym CLASS_SEXPR*/ @@ -31517,8 +27686,7 @@ void* 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___V273*/ - meltfptr[272] = (melt_ptr_t) meltsy_MELT_ASSERT_FAILURE_FUN; + /*_._VALDATA___V273*/ meltfptr[272] = (melt_ptr_t) meltsy_MELT_ASSERT_FAILURE_FUN; } /*endgetnamedsym MELT_ASSERT_FAILURE_FUN*/ @@ -31531,8 +27699,7 @@ void* 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___V275*/ - meltfptr[274] = (melt_ptr_t) meltsy_LIST_TO_MULTIPLE; + /*_._VALDATA___V275*/ meltfptr[274] = (melt_ptr_t) meltsy_LIST_TO_MULTIPLE; } /*endgetnamedsym LIST_TO_MULTIPLE*/ @@ -31545,8 +27712,7 @@ void* 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___V277*/ - meltfptr[276] = (melt_ptr_t) meltsy_DISCR_MULTIPLE; + /*_._VALDATA___V277*/ meltfptr[276] = (melt_ptr_t) meltsy_DISCR_MULTIPLE; } /*endgetnamedsym DISCR_MULTIPLE*/ @@ -31559,8 +27725,7 @@ void* 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___V190*/ - meltfptr[189] = (melt_ptr_t) meltsy_STRING4OUT; + /*_._VALDATA___V190*/ meltfptr[189] = (melt_ptr_t) meltsy_STRING4OUT; } /*endgetnamedsym STRING4OUT*/ @@ -31573,8 +27738,7 @@ void* 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___V192*/ - meltfptr[191] = (melt_ptr_t) meltsy_DISCR_STRING; + /*_._VALDATA___V192*/ meltfptr[191] = (melt_ptr_t) meltsy_DISCR_STRING; } /*endgetnamedsym DISCR_STRING*/ @@ -31587,8 +27751,7 @@ void* 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___V279*/ - meltfptr[278] = (melt_ptr_t) meltsy_CLASS_SYMBOL; + /*_._VALDATA___V279*/ meltfptr[278] = (melt_ptr_t) meltsy_CLASS_SYMBOL; } /*endgetnamedsym CLASS_SYMBOL*/ @@ -31601,8 +27764,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MELT_MAKE_SEXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_MAKE_SEXPR = melthookproc_HOOK_NAMED_SYMBOL ("MELT_MAKE_SEXPR", (long) MELT_GET); - /*_._VALDATA___V281*/ - meltfptr[280] = (melt_ptr_t) meltsy_MELT_MAKE_SEXPR; + /*_._VALDATA___V281*/ meltfptr[280] = (melt_ptr_t) meltsy_MELT_MAKE_SEXPR; } /*endgetnamedsym MELT_MAKE_SEXPR*/ @@ -31615,8 +27777,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol HOOK_MELT_MAKE_LOCATION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_HOOK_MELT_MAKE_LOCATION = melthookproc_HOOK_NAMED_SYMBOL ("HOOK_MELT_MAKE_LOCATION", (long) MELT_GET); - /*_._VALDATA___V283*/ - meltfptr[282] = (melt_ptr_t) meltsy_HOOK_MELT_MAKE_LOCATION; + /*_._VALDATA___V283*/ meltfptr[282] = (melt_ptr_t) meltsy_HOOK_MELT_MAKE_LOCATION; } /*endgetnamedsym HOOK_MELT_MAKE_LOCATION*/ @@ -31629,8 +27790,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol LET without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LET = melthookproc_HOOK_NAMED_SYMBOL ("LET", (long) MELT_GET); - /*_._VALDATA___V136*/ - meltfptr[135] = (melt_ptr_t) meltsy_LET; + /*_._VALDATA___V136*/ meltfptr[135] = (melt_ptr_t) meltsy_LET; } /*endgetnamedsym LET*/ @@ -31643,8 +27803,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DIAGPOSBOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGPOSBOX = melthookproc_HOOK_NAMED_SYMBOL ("DIAGPOSBOX", (long) MELT_GET); - /*_._VALDATA___V138*/ - meltfptr[137] = (melt_ptr_t) meltsy_DIAGPOSBOX; + /*_._VALDATA___V138*/ meltfptr[137] = (melt_ptr_t) meltsy_DIAGPOSBOX; } /*endgetnamedsym DIAGPOSBOX*/ @@ -31657,8 +27816,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol BOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_BOX = melthookproc_HOOK_NAMED_SYMBOL ("BOX", (long) MELT_GET); - /*_._VALDATA___V140*/ - meltfptr[139] = (melt_ptr_t) meltsy_BOX; + /*_._VALDATA___V140*/ meltfptr[139] = (melt_ptr_t) meltsy_BOX; } /*endgetnamedsym BOX*/ @@ -31671,8 +27829,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DIAGSTATE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGSTATE = melthookproc_HOOK_NAMED_SYMBOL ("DIAGSTATE", (long) MELT_GET); - /*_._VALDATA___V142*/ - meltfptr[141] = (melt_ptr_t) meltsy_DIAGSTATE; + /*_._VALDATA___V142*/ meltfptr[141] = (melt_ptr_t) meltsy_DIAGSTATE; } /*endgetnamedsym DIAGSTATE*/ @@ -31685,8 +27842,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol INSTANCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_INSTANCE = melthookproc_HOOK_NAMED_SYMBOL ("INSTANCE", (long) MELT_GET); - /*_._VALDATA___V144*/ - meltfptr[143] = (melt_ptr_t) meltsy_INSTANCE; + /*_._VALDATA___V144*/ meltfptr[143] = (melt_ptr_t) meltsy_INSTANCE; } /*endgetnamedsym INSTANCE*/ @@ -31727,8 +27883,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MAKE_MAPOBJECT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MAKE_MAPOBJECT = melthookproc_HOOK_NAMED_SYMBOL ("MAKE_MAPOBJECT", (long) MELT_GET); - /*_._VALDATA___V154*/ - meltfptr[153] = (melt_ptr_t) meltsy_MAKE_MAPOBJECT; + /*_._VALDATA___V154*/ meltfptr[153] = (melt_ptr_t) meltsy_MAKE_MAPOBJECT; } /*endgetnamedsym MAKE_MAPOBJECT*/ @@ -31741,8 +27896,7 @@ void* 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___V156*/ - meltfptr[155] = (melt_ptr_t) meltsy_DISCR_MAP_OBJECTS; + /*_._VALDATA___V156*/ meltfptr[155] = (melt_ptr_t) meltsy_DISCR_MAP_OBJECTS; } /*endgetnamedsym DISCR_MAP_OBJECTS*/ @@ -31755,8 +27909,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SETQ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SETQ = melthookproc_HOOK_NAMED_SYMBOL ("SETQ", (long) MELT_GET); - /*_._VALDATA___V158*/ - meltfptr[157] = (melt_ptr_t) meltsy_SETQ; + /*_._VALDATA___V158*/ meltfptr[157] = (melt_ptr_t) meltsy_SETQ; } /*endgetnamedsym SETQ*/ @@ -31769,8 +27922,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol FOREVER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_FOREVER = melthookproc_HOOK_NAMED_SYMBOL ("FOREVER", (long) MELT_GET); - /*_._VALDATA___V160*/ - meltfptr[159] = (melt_ptr_t) meltsy_FOREVER; + /*_._VALDATA___V160*/ meltfptr[159] = (melt_ptr_t) meltsy_FOREVER; } /*endgetnamedsym FOREVER*/ @@ -31783,8 +27935,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol ARGLOOP without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ARGLOOP = melthookproc_HOOK_NAMED_SYMBOL ("ARGLOOP", (long) MELT_GET); - /*_._VALDATA___V162*/ - meltfptr[161] = (melt_ptr_t) meltsy_ARGLOOP; + /*_._VALDATA___V162*/ meltfptr[161] = (melt_ptr_t) meltsy_ARGLOOP; } /*endgetnamedsym ARGLOOP*/ @@ -31797,8 +27948,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol PUT_INT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PUT_INT = melthookproc_HOOK_NAMED_SYMBOL ("PUT_INT", (long) MELT_GET); - /*_._VALDATA___V164*/ - meltfptr[163] = (melt_ptr_t) meltsy_PUT_INT; + /*_._VALDATA___V164*/ meltfptr[163] = (melt_ptr_t) meltsy_PUT_INT; } /*endgetnamedsym PUT_INT*/ @@ -31811,8 +27961,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol VARIADIC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_VARIADIC = melthookproc_HOOK_NAMED_SYMBOL ("VARIADIC", (long) MELT_GET); - /*_._VALDATA___V166*/ - meltfptr[165] = (melt_ptr_t) meltsy_VARIADIC; + /*_._VALDATA___V166*/ meltfptr[165] = (melt_ptr_t) meltsy_VARIADIC; } /*endgetnamedsym VARIADIC*/ @@ -31825,8 +27974,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol EXIT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXIT = melthookproc_HOOK_NAMED_SYMBOL ("EXIT", (long) MELT_GET); - /*_._VALDATA___V168*/ - meltfptr[167] = (melt_ptr_t) meltsy_EXIT; + /*_._VALDATA___V168*/ meltfptr[167] = (melt_ptr_t) meltsy_EXIT; } /*endgetnamedsym EXIT*/ @@ -31846,8 +27994,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol STR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_STR = melthookproc_HOOK_NAMED_SYMBOL ("STR", (long) MELT_GET); - /*_._VALDATA___V172*/ - meltfptr[171] = (melt_ptr_t) meltsy_STR; + /*_._VALDATA___V172*/ meltfptr[171] = (melt_ptr_t) meltsy_STR; } /*endgetnamedsym STR*/ @@ -31860,8 +28007,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol BS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_BS = melthookproc_HOOK_NAMED_SYMBOL ("BS", (long) MELT_GET); - /*_._VALDATA___V174*/ - meltfptr[173] = (melt_ptr_t) meltsy_BS; + /*_._VALDATA___V174*/ meltfptr[173] = (melt_ptr_t) meltsy_BS; } /*endgetnamedsym BS*/ @@ -31874,8 +28020,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CONSTANT_BOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CONSTANT_BOX = melthookproc_HOOK_NAMED_SYMBOL ("CONSTANT_BOX", (long) MELT_GET); - /*_._VALDATA___V176*/ - meltfptr[175] = (melt_ptr_t) meltsy_CONSTANT_BOX; + /*_._VALDATA___V176*/ meltfptr[175] = (melt_ptr_t) meltsy_CONSTANT_BOX; } /*endgetnamedsym CONSTANT_BOX*/ @@ -31888,8 +28033,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol + without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_pl = melthookproc_HOOK_NAMED_SYMBOL ("+", (long) MELT_GET); - /*_._VALDATA___V178*/ - meltfptr[177] = (melt_ptr_t) meltsy_pl; + /*_._VALDATA___V178*/ meltfptr[177] = (melt_ptr_t) meltsy_pl; } /*endgetnamedsym +*/ @@ -31902,8 +28046,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MULTIPLE_PUT_NTH without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MULTIPLE_PUT_NTH = melthookproc_HOOK_NAMED_SYMBOL ("MULTIPLE_PUT_NTH", (long) MELT_GET); - /*_._VALDATA___V180*/ - meltfptr[179] = (melt_ptr_t) meltsy_MULTIPLE_PUT_NTH; + /*_._VALDATA___V180*/ meltfptr[179] = (melt_ptr_t) meltsy_MULTIPLE_PUT_NTH; } /*endgetnamedsym MULTIPLE_PUT_NTH*/ @@ -31916,8 +28059,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol VOID without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_VOID = melthookproc_HOOK_NAMED_SYMBOL ("VOID", (long) MELT_GET); - /*_._VALDATA___V182*/ - meltfptr[181] = (melt_ptr_t) meltsy_VOID; + /*_._VALDATA___V182*/ meltfptr[181] = (melt_ptr_t) meltsy_VOID; } /*endgetnamedsym VOID*/ @@ -31937,8 +28079,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol L without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_L = melthookproc_HOOK_NAMED_SYMBOL ("L", (long) MELT_GET); - /*_._VALDATA___V186*/ - meltfptr[185] = (melt_ptr_t) meltsy_L; + /*_._VALDATA___V186*/ meltfptr[185] = (melt_ptr_t) meltsy_L; } /*endgetnamedsym L*/ @@ -31951,8 +28092,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SN = melthookproc_HOOK_NAMED_SYMBOL ("SN", (long) MELT_GET); - /*_._VALDATA___V188*/ - meltfptr[187] = (melt_ptr_t) meltsy_SN; + /*_._VALDATA___V188*/ meltfptr[187] = (melt_ptr_t) meltsy_SN; } /*endgetnamedsym SN*/ @@ -31972,8 +28112,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol TR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TR = melthookproc_HOOK_NAMED_SYMBOL ("TR", (long) MELT_GET); - /*_._VALDATA___V196*/ - meltfptr[195] = (melt_ptr_t) meltsy_TR; + /*_._VALDATA___V196*/ meltfptr[195] = (melt_ptr_t) meltsy_TR; } /*endgetnamedsym TR*/ @@ -31986,8 +28125,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol ASSERT_MSG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ASSERT_MSG = melthookproc_HOOK_NAMED_SYMBOL ("ASSERT_MSG", (long) MELT_GET); - /*_._VALDATA___V198*/ - meltfptr[197] = (melt_ptr_t) meltsy_ASSERT_MSG; + /*_._VALDATA___V198*/ meltfptr[197] = (melt_ptr_t) meltsy_ASSERT_MSG; } /*endgetnamedsym ASSERT_MSG*/ @@ -32000,8 +28138,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol IS_CLOSURE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_IS_CLOSURE = melthookproc_HOOK_NAMED_SYMBOL ("IS_CLOSURE", (long) MELT_GET); - /*_._VALDATA___V200*/ - meltfptr[199] = (melt_ptr_t) meltsy_IS_CLOSURE; + /*_._VALDATA___V200*/ meltfptr[199] = (melt_ptr_t) meltsy_IS_CLOSURE; } /*endgetnamedsym IS_CLOSURE*/ @@ -32014,8 +28151,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DIAGV_TREE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGV_TREE = melthookproc_HOOK_NAMED_SYMBOL ("DIAGV_TREE", (long) MELT_GET); - /*_._VALDATA___V202*/ - meltfptr[201] = (melt_ptr_t) meltsy_DIAGV_TREE; + /*_._VALDATA___V202*/ meltfptr[201] = (melt_ptr_t) meltsy_DIAGV_TREE; } /*endgetnamedsym DIAGV_TREE*/ @@ -32028,8 +28164,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol S without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_S = melthookproc_HOOK_NAMED_SYMBOL ("S", (long) MELT_GET); - /*_._VALDATA___V204*/ - meltfptr[203] = (melt_ptr_t) meltsy_S; + /*_._VALDATA___V204*/ meltfptr[203] = (melt_ptr_t) meltsy_S; } /*endgetnamedsym S*/ @@ -32049,8 +28184,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol GI without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_GI = melthookproc_HOOK_NAMED_SYMBOL ("GI", (long) MELT_GET); - /*_._VALDATA___V208*/ - meltfptr[207] = (melt_ptr_t) meltsy_GI; + /*_._VALDATA___V208*/ meltfptr[207] = (melt_ptr_t) meltsy_GI; } /*endgetnamedsym GI*/ @@ -32063,8 +28197,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DIAGV_GIMPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGV_GIMPLE = melthookproc_HOOK_NAMED_SYMBOL ("DIAGV_GIMPLE", (long) MELT_GET); - /*_._VALDATA___V210*/ - meltfptr[209] = (melt_ptr_t) meltsy_DIAGV_GIMPLE; + /*_._VALDATA___V210*/ meltfptr[209] = (melt_ptr_t) meltsy_DIAGV_GIMPLE; } /*endgetnamedsym DIAGV_GIMPLE*/ @@ -32084,8 +28217,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol GS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_GS = melthookproc_HOOK_NAMED_SYMBOL ("GS", (long) MELT_GET); - /*_._VALDATA___V214*/ - meltfptr[213] = (melt_ptr_t) meltsy_GS; + /*_._VALDATA___V214*/ meltfptr[213] = (melt_ptr_t) meltsy_GS; } /*endgetnamedsym GS*/ @@ -32098,8 +28230,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DIAGV_GIMPLE_SEQ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGV_GIMPLE_SEQ = melthookproc_HOOK_NAMED_SYMBOL ("DIAGV_GIMPLE_SEQ", (long) MELT_GET); - /*_._VALDATA___V216*/ - meltfptr[215] = (melt_ptr_t) meltsy_DIAGV_GIMPLE_SEQ; + /*_._VALDATA___V216*/ meltfptr[215] = (melt_ptr_t) meltsy_DIAGV_GIMPLE_SEQ; } /*endgetnamedsym DIAGV_GIMPLE_SEQ*/ @@ -32119,8 +28250,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol BB without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_BB = melthookproc_HOOK_NAMED_SYMBOL ("BB", (long) MELT_GET); - /*_._VALDATA___V220*/ - meltfptr[219] = (melt_ptr_t) meltsy_BB; + /*_._VALDATA___V220*/ meltfptr[219] = (melt_ptr_t) meltsy_BB; } /*endgetnamedsym BB*/ @@ -32133,8 +28263,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DIAGV_BASIC_BLOCK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGV_BASIC_BLOCK = melthookproc_HOOK_NAMED_SYMBOL ("DIAGV_BASIC_BLOCK", (long) MELT_GET); - /*_._VALDATA___V222*/ - meltfptr[221] = (melt_ptr_t) meltsy_DIAGV_BASIC_BLOCK; + /*_._VALDATA___V222*/ meltfptr[221] = (melt_ptr_t) meltsy_DIAGV_BASIC_BLOCK; } /*endgetnamedsym DIAGV_BASIC_BLOCK*/ @@ -32154,8 +28283,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol ED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ED = melthookproc_HOOK_NAMED_SYMBOL ("ED", (long) MELT_GET); - /*_._VALDATA___V226*/ - meltfptr[225] = (melt_ptr_t) meltsy_ED; + /*_._VALDATA___V226*/ meltfptr[225] = (melt_ptr_t) meltsy_ED; } /*endgetnamedsym ED*/ @@ -32168,8 +28296,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DIAGV_EDGE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGV_EDGE = melthookproc_HOOK_NAMED_SYMBOL ("DIAGV_EDGE", (long) MELT_GET); - /*_._VALDATA___V228*/ - meltfptr[227] = (melt_ptr_t) meltsy_DIAGV_EDGE; + /*_._VALDATA___V228*/ meltfptr[227] = (melt_ptr_t) meltsy_DIAGV_EDGE; } /*endgetnamedsym DIAGV_EDGE*/ @@ -32189,8 +28316,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol V without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_V = melthookproc_HOOK_NAMED_SYMBOL ("V", (long) MELT_GET); - /*_._VALDATA___V232*/ - meltfptr[231] = (melt_ptr_t) meltsy_V; + /*_._VALDATA___V232*/ meltfptr[231] = (melt_ptr_t) meltsy_V; } /*endgetnamedsym V*/ @@ -32203,8 +28329,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol COND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COND = melthookproc_HOOK_NAMED_SYMBOL ("COND", (long) MELT_GET); - /*_._VALDATA___V234*/ - meltfptr[233] = (melt_ptr_t) meltsy_COND; + /*_._VALDATA___V234*/ meltfptr[233] = (melt_ptr_t) meltsy_COND; } /*endgetnamedsym COND*/ @@ -32217,8 +28342,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol IS_INTEGERBOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_IS_INTEGERBOX = melthookproc_HOOK_NAMED_SYMBOL ("IS_INTEGERBOX", (long) MELT_GET); - /*_._VALDATA___V236*/ - meltfptr[235] = (melt_ptr_t) meltsy_IS_INTEGERBOX; + /*_._VALDATA___V236*/ meltfptr[235] = (melt_ptr_t) meltsy_IS_INTEGERBOX; } /*endgetnamedsym IS_INTEGERBOX*/ @@ -32231,8 +28355,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol GET_INT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_GET_INT = melthookproc_HOOK_NAMED_SYMBOL ("GET_INT", (long) MELT_GET); - /*_._VALDATA___V238*/ - meltfptr[237] = (melt_ptr_t) meltsy_GET_INT; + /*_._VALDATA___V238*/ meltfptr[237] = (melt_ptr_t) meltsy_GET_INT; } /*endgetnamedsym GET_INT*/ @@ -32245,8 +28368,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol IS_STRING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_IS_STRING = melthookproc_HOOK_NAMED_SYMBOL ("IS_STRING", (long) MELT_GET); - /*_._VALDATA___V240*/ - meltfptr[239] = (melt_ptr_t) meltsy_IS_STRING; + /*_._VALDATA___V240*/ meltfptr[239] = (melt_ptr_t) meltsy_IS_STRING; } /*endgetnamedsym IS_STRING*/ @@ -32259,8 +28381,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol IS_A without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_IS_A = melthookproc_HOOK_NAMED_SYMBOL ("IS_A", (long) MELT_GET); - /*_._VALDATA___V242*/ - meltfptr[241] = (melt_ptr_t) meltsy_IS_A; + /*_._VALDATA___V242*/ meltfptr[241] = (melt_ptr_t) meltsy_IS_A; } /*endgetnamedsym IS_A*/ @@ -32273,8 +28394,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol AND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_AND = melthookproc_HOOK_NAMED_SYMBOL ("AND", (long) MELT_GET); - /*_._VALDATA___V244*/ - meltfptr[243] = (melt_ptr_t) meltsy_AND; + /*_._VALDATA___V244*/ meltfptr[243] = (melt_ptr_t) meltsy_AND; } /*endgetnamedsym AND*/ @@ -32287,8 +28407,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_KEYWORD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_KEYWORD = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_KEYWORD", (long) MELT_GET); - /*_._VALDATA___V246*/ - meltfptr[245] = (melt_ptr_t) meltsy_CLASS_KEYWORD; + /*_._VALDATA___V246*/ meltfptr[245] = (melt_ptr_t) meltsy_CLASS_KEYWORD; } /*endgetnamedsym CLASS_KEYWORD*/ @@ -32301,8 +28420,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol GET_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_GET_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("GET_FIELD", (long) MELT_GET); - /*_._VALDATA___V248*/ - meltfptr[247] = (melt_ptr_t) meltsy_GET_FIELD; + /*_._VALDATA___V248*/ meltfptr[247] = (melt_ptr_t) meltsy_GET_FIELD; } /*endgetnamedsym GET_FIELD*/ @@ -32322,8 +28440,7 @@ void* 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___V252*/ - meltfptr[251] = (melt_ptr_t) meltsy_CLASS_NAMED; + /*_._VALDATA___V252*/ meltfptr[251] = (melt_ptr_t) meltsy_CLASS_NAMED; } /*endgetnamedsym CLASS_NAMED*/ @@ -32336,8 +28453,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol NAM without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_NAM = melthookproc_HOOK_NAMED_SYMBOL ("NAM", (long) MELT_GET); - /*_._VALDATA___V254*/ - meltfptr[253] = (melt_ptr_t) meltsy_NAM; + /*_._VALDATA___V254*/ meltfptr[253] = (melt_ptr_t) meltsy_NAM; } /*endgetnamedsym NAM*/ @@ -32350,8 +28466,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol UNSAFE_GET_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_UNSAFE_GET_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("UNSAFE_GET_FIELD", (long) MELT_GET); - /*_._VALDATA___V256*/ - meltfptr[255] = (melt_ptr_t) meltsy_UNSAFE_GET_FIELD; + /*_._VALDATA___V256*/ meltfptr[255] = (melt_ptr_t) meltsy_UNSAFE_GET_FIELD; } /*endgetnamedsym UNSAFE_GET_FIELD*/ @@ -32378,8 +28493,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol VCTY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_VCTY = melthookproc_HOOK_NAMED_SYMBOL ("VCTY", (long) MELT_GET); - /*_._VALDATA___V262*/ - meltfptr[261] = (melt_ptr_t) meltsy_VCTY; + /*_._VALDATA___V262*/ meltfptr[261] = (melt_ptr_t) meltsy_VCTY; } /*endgetnamedsym VCTY*/ @@ -32392,8 +28506,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol VARIADIC_CTYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_VARIADIC_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("VARIADIC_CTYPE", (long) MELT_GET); - /*_._VALDATA___V264*/ - meltfptr[263] = (melt_ptr_t) meltsy_VARIADIC_CTYPE; + /*_._VALDATA___V264*/ meltfptr[263] = (melt_ptr_t) meltsy_VARIADIC_CTYPE; } /*endgetnamedsym VARIADIC_CTYPE*/ @@ -32406,8 +28519,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol ERRORMSG_STRV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ERRORMSG_STRV = melthookproc_HOOK_NAMED_SYMBOL ("ERRORMSG_STRV", (long) MELT_GET); - /*_._VALDATA___V266*/ - meltfptr[265] = (melt_ptr_t) meltsy_ERRORMSG_STRV; + /*_._VALDATA___V266*/ meltfptr[265] = (melt_ptr_t) meltsy_ERRORMSG_STRV; } /*endgetnamedsym ERRORMSG_STRV*/ @@ -32420,8 +28532,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DIAGNOSTIC_ARGS_MACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGNOSTIC_ARGS_MACRO = melthookproc_HOOK_NAMED_SYMBOL ("DIAGNOSTIC_ARGS_MACRO", (long) MELT_GET); - /*_._VALDATA___V285*/ - meltfptr[284] = (melt_ptr_t) meltsy_DIAGNOSTIC_ARGS_MACRO; + /*_._VALDATA___V285*/ meltfptr[284] = (melt_ptr_t) meltsy_DIAGNOSTIC_ARGS_MACRO; } /*endgetnamedsym DIAGNOSTIC_ARGS_MACRO*/ @@ -32434,8 +28545,7 @@ void* 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___V289*/ - meltfptr[288] = (melt_ptr_t) meltsy_DISCR_STRBUF; + /*_._VALDATA___V289*/ meltfptr[288] = (melt_ptr_t) meltsy_DISCR_STRBUF; } /*endgetnamedsym DISCR_STRBUF*/ @@ -32448,8 +28558,7 @@ void* 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___V291*/ - meltfptr[290] = (melt_ptr_t) meltsy_ADD2OUT; + /*_._VALDATA___V291*/ meltfptr[290] = (melt_ptr_t) meltsy_ADD2OUT; } /*endgetnamedsym ADD2OUT*/ @@ -32462,8 +28571,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DIAGNOSTIC_EXPAND_MESSAGE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGNOSTIC_EXPAND_MESSAGE = melthookproc_HOOK_NAMED_SYMBOL ("DIAGNOSTIC_EXPAND_MESSAGE", (long) MELT_GET); - /*_._VALDATA___V293*/ - meltfptr[292] = (melt_ptr_t) meltsy_DIAGNOSTIC_EXPAND_MESSAGE; + /*_._VALDATA___V293*/ meltfptr[292] = (melt_ptr_t) meltsy_DIAGNOSTIC_EXPAND_MESSAGE; } /*endgetnamedsym DIAGNOSTIC_EXPAND_MESSAGE*/ @@ -32476,8 +28584,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol REGISTER_DIAG_BASIC_BLOCK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REGISTER_DIAG_BASIC_BLOCK = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_DIAG_BASIC_BLOCK", (long) MELT_GET); - /*_._VALDATA___V295*/ - meltfptr[294] = (melt_ptr_t) meltsy_REGISTER_DIAG_BASIC_BLOCK; + /*_._VALDATA___V295*/ meltfptr[294] = (melt_ptr_t) meltsy_REGISTER_DIAG_BASIC_BLOCK; } /*endgetnamedsym REGISTER_DIAG_BASIC_BLOCK*/ @@ -32490,8 +28597,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol REGISTER_DIAG_EDGE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REGISTER_DIAG_EDGE = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_DIAG_EDGE", (long) MELT_GET); - /*_._VALDATA___V297*/ - meltfptr[296] = (melt_ptr_t) meltsy_REGISTER_DIAG_EDGE; + /*_._VALDATA___V297*/ meltfptr[296] = (melt_ptr_t) meltsy_REGISTER_DIAG_EDGE; } /*endgetnamedsym REGISTER_DIAG_EDGE*/ @@ -32504,8 +28610,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol REGISTER_DIAG_GIMPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REGISTER_DIAG_GIMPLE = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_DIAG_GIMPLE", (long) MELT_GET); - /*_._VALDATA___V299*/ - meltfptr[298] = (melt_ptr_t) meltsy_REGISTER_DIAG_GIMPLE; + /*_._VALDATA___V299*/ meltfptr[298] = (melt_ptr_t) meltsy_REGISTER_DIAG_GIMPLE; } /*endgetnamedsym REGISTER_DIAG_GIMPLE*/ @@ -32518,8 +28623,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol REGISTER_DIAG_GIMPLE_SEQ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REGISTER_DIAG_GIMPLE_SEQ = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_DIAG_GIMPLE_SEQ", (long) MELT_GET); - /*_._VALDATA___V301*/ - meltfptr[300] = (melt_ptr_t) meltsy_REGISTER_DIAG_GIMPLE_SEQ; + /*_._VALDATA___V301*/ meltfptr[300] = (melt_ptr_t) meltsy_REGISTER_DIAG_GIMPLE_SEQ; } /*endgetnamedsym REGISTER_DIAG_GIMPLE_SEQ*/ @@ -32532,8 +28636,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol REGISTER_DIAG_TREE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REGISTER_DIAG_TREE = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_DIAG_TREE", (long) MELT_GET); - /*_._VALDATA___V303*/ - meltfptr[302] = (melt_ptr_t) meltsy_REGISTER_DIAG_TREE; + /*_._VALDATA___V303*/ meltfptr[302] = (melt_ptr_t) meltsy_REGISTER_DIAG_TREE; } /*endgetnamedsym REGISTER_DIAG_TREE*/ @@ -32546,8 +28649,7 @@ void* 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___V311*/ - meltfptr[310] = (melt_ptr_t) meltsy_ERROR_AT; + /*_._VALDATA___V311*/ meltfptr[310] = (melt_ptr_t) meltsy_ERROR_AT; } /*endgetnamedsym ERROR_AT*/ @@ -32560,8 +28662,7 @@ void* 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___V313*/ - meltfptr[312] = (melt_ptr_t) meltsy_WARNING_AT; + /*_._VALDATA___V313*/ meltfptr[312] = (melt_ptr_t) meltsy_WARNING_AT; } /*endgetnamedsym WARNING_AT*/ @@ -32574,8 +28675,7 @@ void* 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___V315*/ - meltfptr[314] = (melt_ptr_t) meltsy_INFORM_AT; + /*_._VALDATA___V315*/ meltfptr[314] = (melt_ptr_t) meltsy_INFORM_AT; } /*endgetnamedsym INFORM_AT*/ @@ -32588,8 +28688,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol IS_RECURSIVELY_CONSTRUCTIBLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_IS_RECURSIVELY_CONSTRUCTIBLE = melthookproc_HOOK_NAMED_SYMBOL ("IS_RECURSIVELY_CONSTRUCTIBLE", (long) MELT_GET); - /*_._VALDATA___V317*/ - meltfptr[316] = (melt_ptr_t) meltsy_IS_RECURSIVELY_CONSTRUCTIBLE; + /*_._VALDATA___V317*/ meltfptr[316] = (melt_ptr_t) meltsy_IS_RECURSIVELY_CONSTRUCTIBLE; } /*endgetnamedsym IS_RECURSIVELY_CONSTRUCTIBLE*/ @@ -32602,8 +28701,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SELECTOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SELECTOR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SELECTOR", (long) MELT_GET); - /*_._VALDATA___V319*/ - meltfptr[318] = (melt_ptr_t) meltsy_CLASS_SELECTOR; + /*_._VALDATA___V319*/ meltfptr[318] = (melt_ptr_t) meltsy_CLASS_SELECTOR; } /*endgetnamedsym CLASS_SELECTOR*/ @@ -32616,8 +28714,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol RECV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_RECV = melthookproc_HOOK_NAMED_SYMBOL ("RECV", (long) MELT_GET); - /*_._VALDATA___V321*/ - meltfptr[320] = (melt_ptr_t) meltsy_RECV; + /*_._VALDATA___V321*/ meltfptr[320] = (melt_ptr_t) meltsy_RECV; } /*endgetnamedsym RECV*/ @@ -32630,8 +28727,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_GENERATOR_DEVICE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_GENERATOR_DEVICE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_GENERATOR_DEVICE", (long) MELT_GET); - /*_._VALDATA___V327*/ - meltfptr[326] = (melt_ptr_t) meltsy_CLASS_SOURCE_GENERATOR_DEVICE; + /*_._VALDATA___V327*/ meltfptr[326] = (melt_ptr_t) meltsy_CLASS_SOURCE_GENERATOR_DEVICE; } /*endgetnamedsym CLASS_SOURCE_GENERATOR_DEVICE*/ @@ -32644,8 +28740,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE", (long) MELT_GET); - /*_._VALDATA___V329*/ - meltfptr[328] = (melt_ptr_t) meltsy_CLASS_SOURCE; + /*_._VALDATA___V329*/ meltfptr[328] = (melt_ptr_t) meltsy_CLASS_SOURCE; } /*endgetnamedsym CLASS_SOURCE*/ @@ -32658,8 +28753,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SRCGEN_DEFIN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SRCGEN_DEFIN = melthookproc_HOOK_NAMED_SYMBOL ("SRCGEN_DEFIN", (long) MELT_GET); - /*_._VALDATA___V339*/ - meltfptr[338] = (melt_ptr_t) meltsy_SRCGEN_DEFIN; + /*_._VALDATA___V339*/ meltfptr[338] = (melt_ptr_t) meltsy_SRCGEN_DEFIN; } /*endgetnamedsym SRCGEN_DEFIN*/ @@ -32672,8 +28766,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SRCGEN_REPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SRCGEN_REPR = melthookproc_HOOK_NAMED_SYMBOL ("SRCGEN_REPR", (long) MELT_GET); - /*_._VALDATA___V341*/ - meltfptr[340] = (melt_ptr_t) meltsy_SRCGEN_REPR; + /*_._VALDATA___V341*/ meltfptr[340] = (melt_ptr_t) meltsy_SRCGEN_REPR; } /*endgetnamedsym SRCGEN_REPR*/ @@ -32686,8 +28779,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_LAZY_MACRO_EXPANSION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LAZY_MACRO_EXPANSION = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LAZY_MACRO_EXPANSION", (long) MELT_GET); - /*_._VALDATA___V343*/ - meltfptr[342] = (melt_ptr_t) meltsy_CLASS_SOURCE_LAZY_MACRO_EXPANSION; + /*_._VALDATA___V343*/ meltfptr[342] = (melt_ptr_t) meltsy_CLASS_SOURCE_LAZY_MACRO_EXPANSION; } /*endgetnamedsym CLASS_SOURCE_LAZY_MACRO_EXPANSION*/ @@ -32700,8 +28792,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SLAZYMACRO_FUN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLAZYMACRO_FUN = melthookproc_HOOK_NAMED_SYMBOL ("SLAZYMACRO_FUN", (long) MELT_GET); - /*_._VALDATA___V353*/ - meltfptr[352] = (melt_ptr_t) meltsy_SLAZYMACRO_FUN; + /*_._VALDATA___V353*/ meltfptr[352] = (melt_ptr_t) meltsy_SLAZYMACRO_FUN; } /*endgetnamedsym SLAZYMACRO_FUN*/ @@ -32714,8 +28805,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SLAZYMACRO_OPER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLAZYMACRO_OPER = melthookproc_HOOK_NAMED_SYMBOL ("SLAZYMACRO_OPER", (long) MELT_GET); - /*_._VALDATA___V355*/ - meltfptr[354] = (melt_ptr_t) meltsy_SLAZYMACRO_OPER; + /*_._VALDATA___V355*/ meltfptr[354] = (melt_ptr_t) meltsy_SLAZYMACRO_OPER; } /*endgetnamedsym SLAZYMACRO_OPER*/ @@ -32728,8 +28818,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_ARGUMENTED_OPERATOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_ARGUMENTED_OPERATOR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_ARGUMENTED_OPERATOR", (long) MELT_GET); - /*_._VALDATA___V357*/ - meltfptr[356] = (melt_ptr_t) meltsy_CLASS_SOURCE_ARGUMENTED_OPERATOR; + /*_._VALDATA___V357*/ meltfptr[356] = (melt_ptr_t) meltsy_CLASS_SOURCE_ARGUMENTED_OPERATOR; } /*endgetnamedsym CLASS_SOURCE_ARGUMENTED_OPERATOR*/ @@ -32742,8 +28831,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SARGOP_ARGS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SARGOP_ARGS = melthookproc_HOOK_NAMED_SYMBOL ("SARGOP_ARGS", (long) MELT_GET); - /*_._VALDATA___V365*/ - meltfptr[364] = (melt_ptr_t) meltsy_SARGOP_ARGS; + /*_._VALDATA___V365*/ meltfptr[364] = (melt_ptr_t) meltsy_SARGOP_ARGS; } /*endgetnamedsym SARGOP_ARGS*/ @@ -32756,8 +28844,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_APPLY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_APPLY = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_APPLY", (long) MELT_GET); - /*_._VALDATA___V367*/ - meltfptr[366] = (melt_ptr_t) meltsy_CLASS_SOURCE_APPLY; + /*_._VALDATA___V367*/ meltfptr[366] = (melt_ptr_t) meltsy_CLASS_SOURCE_APPLY; } /*endgetnamedsym CLASS_SOURCE_APPLY*/ @@ -32770,8 +28857,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SAPP_FUN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SAPP_FUN = melthookproc_HOOK_NAMED_SYMBOL ("SAPP_FUN", (long) MELT_GET); - /*_._VALDATA___V375*/ - meltfptr[374] = (melt_ptr_t) meltsy_SAPP_FUN; + /*_._VALDATA___V375*/ meltfptr[374] = (melt_ptr_t) meltsy_SAPP_FUN; } /*endgetnamedsym SAPP_FUN*/ @@ -32784,8 +28870,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_MSEND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MSEND = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MSEND", (long) MELT_GET); - /*_._VALDATA___V377*/ - meltfptr[376] = (melt_ptr_t) meltsy_CLASS_SOURCE_MSEND; + /*_._VALDATA___V377*/ meltfptr[376] = (melt_ptr_t) meltsy_CLASS_SOURCE_MSEND; } /*endgetnamedsym CLASS_SOURCE_MSEND*/ @@ -32798,8 +28883,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MSEND_SELSYMB without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MSEND_SELSYMB = melthookproc_HOOK_NAMED_SYMBOL ("MSEND_SELSYMB", (long) MELT_GET); - /*_._VALDATA___V387*/ - meltfptr[386] = (melt_ptr_t) meltsy_MSEND_SELSYMB; + /*_._VALDATA___V387*/ meltfptr[386] = (melt_ptr_t) meltsy_MSEND_SELSYMB; } /*endgetnamedsym MSEND_SELSYMB*/ @@ -32812,8 +28896,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MSEND_RECV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MSEND_RECV = melthookproc_HOOK_NAMED_SYMBOL ("MSEND_RECV", (long) MELT_GET); - /*_._VALDATA___V389*/ - meltfptr[388] = (melt_ptr_t) meltsy_MSEND_RECV; + /*_._VALDATA___V389*/ meltfptr[388] = (melt_ptr_t) meltsy_MSEND_RECV; } /*endgetnamedsym MSEND_RECV*/ @@ -32826,8 +28909,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PRIMITIVE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PRIMITIVE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PRIMITIVE", (long) MELT_GET); - /*_._VALDATA___V391*/ - meltfptr[390] = (melt_ptr_t) meltsy_CLASS_SOURCE_PRIMITIVE; + /*_._VALDATA___V391*/ meltfptr[390] = (melt_ptr_t) meltsy_CLASS_SOURCE_PRIMITIVE; } /*endgetnamedsym CLASS_SOURCE_PRIMITIVE*/ @@ -32840,8 +28922,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPRIM_OPER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPRIM_OPER = melthookproc_HOOK_NAMED_SYMBOL ("SPRIM_OPER", (long) MELT_GET); - /*_._VALDATA___V399*/ - meltfptr[398] = (melt_ptr_t) meltsy_SPRIM_OPER; + /*_._VALDATA___V399*/ meltfptr[398] = (melt_ptr_t) meltsy_SPRIM_OPER; } /*endgetnamedsym SPRIM_OPER*/ @@ -32854,8 +28935,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_HOOK_CALL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_HOOK_CALL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_HOOK_CALL", (long) MELT_GET); - /*_._VALDATA___V401*/ - meltfptr[400] = (melt_ptr_t) meltsy_CLASS_SOURCE_HOOK_CALL; + /*_._VALDATA___V401*/ meltfptr[400] = (melt_ptr_t) meltsy_CLASS_SOURCE_HOOK_CALL; } /*endgetnamedsym CLASS_SOURCE_HOOK_CALL*/ @@ -32868,8 +28948,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SHOOK_CALLED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SHOOK_CALLED = melthookproc_HOOK_NAMED_SYMBOL ("SHOOK_CALLED", (long) MELT_GET); - /*_._VALDATA___V409*/ - meltfptr[408] = (melt_ptr_t) meltsy_SHOOK_CALLED; + /*_._VALDATA___V409*/ meltfptr[408] = (melt_ptr_t) meltsy_SHOOK_CALLED; } /*endgetnamedsym SHOOK_CALLED*/ @@ -32882,8 +28961,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", (long) MELT_GET); - /*_._VALDATA___V411*/ - meltfptr[410] = (melt_ptr_t) meltsy_CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; + /*_._VALDATA___V411*/ meltfptr[410] = (melt_ptr_t) meltsy_CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; } /*endgetnamedsym CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION*/ @@ -32896,8 +28974,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SARITHVAR_NEUTRAL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SARITHVAR_NEUTRAL = melthookproc_HOOK_NAMED_SYMBOL ("SARITHVAR_NEUTRAL", (long) MELT_GET); - /*_._VALDATA___V421*/ - meltfptr[420] = (melt_ptr_t) meltsy_SARITHVAR_NEUTRAL; + /*_._VALDATA___V421*/ meltfptr[420] = (melt_ptr_t) meltsy_SARITHVAR_NEUTRAL; } /*endgetnamedsym SARITHVAR_NEUTRAL*/ @@ -32910,8 +28987,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SARITHVAR_PRIMITIVE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SARITHVAR_PRIMITIVE = melthookproc_HOOK_NAMED_SYMBOL ("SARITHVAR_PRIMITIVE", (long) MELT_GET); - /*_._VALDATA___V423*/ - meltfptr[422] = (melt_ptr_t) meltsy_SARITHVAR_PRIMITIVE; + /*_._VALDATA___V423*/ meltfptr[422] = (melt_ptr_t) meltsy_SARITHVAR_PRIMITIVE; } /*endgetnamedsym SARITHVAR_PRIMITIVE*/ @@ -32924,8 +29000,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_CITERATION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CITERATION = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CITERATION", (long) MELT_GET); - /*_._VALDATA___V425*/ - meltfptr[424] = (melt_ptr_t) meltsy_CLASS_SOURCE_CITERATION; + /*_._VALDATA___V425*/ meltfptr[424] = (melt_ptr_t) meltsy_CLASS_SOURCE_CITERATION; } /*endgetnamedsym CLASS_SOURCE_CITERATION*/ @@ -32938,8 +29013,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCITER_OPER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCITER_OPER = melthookproc_HOOK_NAMED_SYMBOL ("SCITER_OPER", (long) MELT_GET); - /*_._VALDATA___V437*/ - meltfptr[436] = (melt_ptr_t) meltsy_SCITER_OPER; + /*_._VALDATA___V437*/ meltfptr[436] = (melt_ptr_t) meltsy_SCITER_OPER; } /*endgetnamedsym SCITER_OPER*/ @@ -32952,8 +29026,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCITER_VARBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCITER_VARBIND = melthookproc_HOOK_NAMED_SYMBOL ("SCITER_VARBIND", (long) MELT_GET); - /*_._VALDATA___V439*/ - meltfptr[438] = (melt_ptr_t) meltsy_SCITER_VARBIND; + /*_._VALDATA___V439*/ meltfptr[438] = (melt_ptr_t) meltsy_SCITER_VARBIND; } /*endgetnamedsym SCITER_VARBIND*/ @@ -32966,8 +29039,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCITER_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCITER_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SCITER_BODY", (long) MELT_GET); - /*_._VALDATA___V441*/ - meltfptr[440] = (melt_ptr_t) meltsy_SCITER_BODY; + /*_._VALDATA___V441*/ meltfptr[440] = (melt_ptr_t) meltsy_SCITER_BODY; } /*endgetnamedsym SCITER_BODY*/ @@ -32980,8 +29052,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_CMATCHEXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CMATCHEXPR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CMATCHEXPR", (long) MELT_GET); - /*_._VALDATA___V443*/ - meltfptr[442] = (melt_ptr_t) meltsy_CLASS_SOURCE_CMATCHEXPR; + /*_._VALDATA___V443*/ meltfptr[442] = (melt_ptr_t) meltsy_CLASS_SOURCE_CMATCHEXPR; } /*endgetnamedsym CLASS_SOURCE_CMATCHEXPR*/ @@ -32994,8 +29065,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCMATX_CMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCMATX_CMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("SCMATX_CMATCHER", (long) MELT_GET); - /*_._VALDATA___V451*/ - meltfptr[450] = (melt_ptr_t) meltsy_SCMATX_CMATCHER; + /*_._VALDATA___V451*/ meltfptr[450] = (melt_ptr_t) meltsy_SCMATX_CMATCHER; } /*endgetnamedsym SCMATX_CMATCHER*/ @@ -33008,8 +29078,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_FUNMATCHEXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_FUNMATCHEXPR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_FUNMATCHEXPR", (long) MELT_GET); - /*_._VALDATA___V453*/ - meltfptr[452] = (melt_ptr_t) meltsy_CLASS_SOURCE_FUNMATCHEXPR; + /*_._VALDATA___V453*/ meltfptr[452] = (melt_ptr_t) meltsy_CLASS_SOURCE_FUNMATCHEXPR; } /*endgetnamedsym CLASS_SOURCE_FUNMATCHEXPR*/ @@ -33022,8 +29091,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SFMATX_FMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFMATX_FMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("SFMATX_FMATCHER", (long) MELT_GET); - /*_._VALDATA___V463*/ - meltfptr[462] = (melt_ptr_t) meltsy_SFMATX_FMATCHER; + /*_._VALDATA___V463*/ meltfptr[462] = (melt_ptr_t) meltsy_SFMATX_FMATCHER; } /*endgetnamedsym SFMATX_FMATCHER*/ @@ -33036,8 +29104,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SFMATX_FMATBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFMATX_FMATBIND = melthookproc_HOOK_NAMED_SYMBOL ("SFMATX_FMATBIND", (long) MELT_GET); - /*_._VALDATA___V465*/ - meltfptr[464] = (melt_ptr_t) meltsy_SFMATX_FMATBIND; + /*_._VALDATA___V465*/ meltfptr[464] = (melt_ptr_t) meltsy_SFMATX_FMATBIND; } /*endgetnamedsym SFMATX_FMATBIND*/ @@ -33050,8 +29117,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_TUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_TUPLE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_TUPLE", (long) MELT_GET); - /*_._VALDATA___V467*/ - meltfptr[466] = (melt_ptr_t) meltsy_CLASS_SOURCE_TUPLE; + /*_._VALDATA___V467*/ meltfptr[466] = (melt_ptr_t) meltsy_CLASS_SOURCE_TUPLE; } /*endgetnamedsym CLASS_SOURCE_TUPLE*/ @@ -33064,8 +29130,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LIST = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LIST", (long) MELT_GET); - /*_._VALDATA___V473*/ - meltfptr[472] = (melt_ptr_t) meltsy_CLASS_SOURCE_LIST; + /*_._VALDATA___V473*/ meltfptr[472] = (melt_ptr_t) meltsy_CLASS_SOURCE_LIST; } /*endgetnamedsym CLASS_SOURCE_LIST*/ @@ -33078,8 +29143,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PROGN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PROGN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PROGN", (long) MELT_GET); - /*_._VALDATA___V479*/ - meltfptr[478] = (melt_ptr_t) meltsy_CLASS_SOURCE_PROGN; + /*_._VALDATA___V479*/ meltfptr[478] = (melt_ptr_t) meltsy_CLASS_SOURCE_PROGN; } /*endgetnamedsym CLASS_SOURCE_PROGN*/ @@ -33092,8 +29156,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPROGN_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPROGN_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SPROGN_BODY", (long) MELT_GET); - /*_._VALDATA___V487*/ - meltfptr[486] = (melt_ptr_t) meltsy_SPROGN_BODY; + /*_._VALDATA___V487*/ meltfptr[486] = (melt_ptr_t) meltsy_SPROGN_BODY; } /*endgetnamedsym SPROGN_BODY*/ @@ -33106,8 +29169,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_RETURN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_RETURN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_RETURN", (long) MELT_GET); - /*_._VALDATA___V489*/ - meltfptr[488] = (melt_ptr_t) meltsy_CLASS_SOURCE_RETURN; + /*_._VALDATA___V489*/ meltfptr[488] = (melt_ptr_t) meltsy_CLASS_SOURCE_RETURN; } /*endgetnamedsym CLASS_SOURCE_RETURN*/ @@ -33120,8 +29182,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_SETQ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_SETQ = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_SETQ", (long) MELT_GET); - /*_._VALDATA___V495*/ - meltfptr[494] = (melt_ptr_t) meltsy_CLASS_SOURCE_SETQ; + /*_._VALDATA___V495*/ meltfptr[494] = (melt_ptr_t) meltsy_CLASS_SOURCE_SETQ; } /*endgetnamedsym CLASS_SOURCE_SETQ*/ @@ -33134,8 +29195,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SSTQ_VAR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SSTQ_VAR = melthookproc_HOOK_NAMED_SYMBOL ("SSTQ_VAR", (long) MELT_GET); - /*_._VALDATA___V505*/ - meltfptr[504] = (melt_ptr_t) meltsy_SSTQ_VAR; + /*_._VALDATA___V505*/ meltfptr[504] = (melt_ptr_t) meltsy_SSTQ_VAR; } /*endgetnamedsym SSTQ_VAR*/ @@ -33148,8 +29208,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SSTQ_EXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SSTQ_EXPR = melthookproc_HOOK_NAMED_SYMBOL ("SSTQ_EXPR", (long) MELT_GET); - /*_._VALDATA___V507*/ - meltfptr[506] = (melt_ptr_t) meltsy_SSTQ_EXPR; + /*_._VALDATA___V507*/ meltfptr[506] = (melt_ptr_t) meltsy_SSTQ_EXPR; } /*endgetnamedsym SSTQ_EXPR*/ @@ -33162,8 +29221,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_COMMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_COMMENT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_COMMENT", (long) MELT_GET); - /*_._VALDATA___V509*/ - meltfptr[508] = (melt_ptr_t) meltsy_CLASS_SOURCE_COMMENT; + /*_._VALDATA___V509*/ meltfptr[508] = (melt_ptr_t) meltsy_CLASS_SOURCE_COMMENT; } /*endgetnamedsym CLASS_SOURCE_COMMENT*/ @@ -33176,8 +29234,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCOMM_STR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCOMM_STR = melthookproc_HOOK_NAMED_SYMBOL ("SCOMM_STR", (long) MELT_GET); - /*_._VALDATA___V517*/ - meltfptr[516] = (melt_ptr_t) meltsy_SCOMM_STR; + /*_._VALDATA___V517*/ meltfptr[516] = (melt_ptr_t) meltsy_SCOMM_STR; } /*endgetnamedsym SCOMM_STR*/ @@ -33190,8 +29247,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_CODE_STRING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CODE_STRING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CODE_STRING", (long) MELT_GET); - /*_._VALDATA___V519*/ - meltfptr[518] = (melt_ptr_t) meltsy_CLASS_SOURCE_CODE_STRING; + /*_._VALDATA___V519*/ meltfptr[518] = (melt_ptr_t) meltsy_CLASS_SOURCE_CODE_STRING; } /*endgetnamedsym CLASS_SOURCE_CODE_STRING*/ @@ -33204,8 +29260,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SC_CODESTRING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SC_CODESTRING = melthookproc_HOOK_NAMED_SYMBOL ("SC_CODESTRING", (long) MELT_GET); - /*_._VALDATA___V527*/ - meltfptr[526] = (melt_ptr_t) meltsy_SC_CODESTRING; + /*_._VALDATA___V527*/ meltfptr[526] = (melt_ptr_t) meltsy_SC_CODESTRING; } /*endgetnamedsym SC_CODESTRING*/ @@ -33218,8 +29273,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", (long) MELT_GET); - /*_._VALDATA___V529*/ - meltfptr[528] = (melt_ptr_t) meltsy_CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; + /*_._VALDATA___V529*/ meltfptr[528] = (melt_ptr_t) meltsy_CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; } /*endgetnamedsym CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE*/ @@ -33232,8 +29286,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_CHEADER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CHEADER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CHEADER", (long) MELT_GET); - /*_._VALDATA___V535*/ - meltfptr[534] = (melt_ptr_t) meltsy_CLASS_SOURCE_CHEADER; + /*_._VALDATA___V535*/ meltfptr[534] = (melt_ptr_t) meltsy_CLASS_SOURCE_CHEADER; } /*endgetnamedsym CLASS_SOURCE_CHEADER*/ @@ -33246,8 +29299,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_CIMPLEMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CIMPLEMENT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CIMPLEMENT", (long) MELT_GET); - /*_._VALDATA___V541*/ - meltfptr[540] = (melt_ptr_t) meltsy_CLASS_SOURCE_CIMPLEMENT; + /*_._VALDATA___V541*/ meltfptr[540] = (melt_ptr_t) meltsy_CLASS_SOURCE_CIMPLEMENT; } /*endgetnamedsym CLASS_SOURCE_CIMPLEMENT*/ @@ -33260,8 +29312,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", (long) MELT_GET); - /*_._VALDATA___V547*/ - meltfptr[546] = (melt_ptr_t) meltsy_CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; + /*_._VALDATA___V547*/ meltfptr[546] = (melt_ptr_t) meltsy_CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; } /*endgetnamedsym CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ @@ -33274,8 +29325,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SUSEPACKAGE_PKGTUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUSEPACKAGE_PKGTUPLE = melthookproc_HOOK_NAMED_SYMBOL ("SUSEPACKAGE_PKGTUPLE", (long) MELT_GET); - /*_._VALDATA___V555*/ - meltfptr[554] = (melt_ptr_t) meltsy_SUSEPACKAGE_PKGTUPLE; + /*_._VALDATA___V555*/ meltfptr[554] = (melt_ptr_t) meltsy_SUSEPACKAGE_PKGTUPLE; } /*endgetnamedsym SUSEPACKAGE_PKGTUPLE*/ @@ -33288,8 +29338,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_QUOTE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_QUOTE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_QUOTE", (long) MELT_GET); - /*_._VALDATA___V557*/ - meltfptr[556] = (melt_ptr_t) meltsy_CLASS_SOURCE_QUOTE; + /*_._VALDATA___V557*/ meltfptr[556] = (melt_ptr_t) meltsy_CLASS_SOURCE_QUOTE; } /*endgetnamedsym CLASS_SOURCE_QUOTE*/ @@ -33302,8 +29351,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SQUOTED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SQUOTED = melthookproc_HOOK_NAMED_SYMBOL ("SQUOTED", (long) MELT_GET); - /*_._VALDATA___V565*/ - meltfptr[564] = (melt_ptr_t) meltsy_SQUOTED; + /*_._VALDATA___V565*/ meltfptr[564] = (melt_ptr_t) meltsy_SQUOTED; } /*endgetnamedsym SQUOTED*/ @@ -33316,8 +29364,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_QUASI_BOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_QUASI_BOX = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_QUASI_BOX", (long) MELT_GET); - /*_._VALDATA___V567*/ - meltfptr[566] = (melt_ptr_t) meltsy_CLASS_SOURCE_QUASI_BOX; + /*_._VALDATA___V567*/ meltfptr[566] = (melt_ptr_t) meltsy_CLASS_SOURCE_QUASI_BOX; } /*endgetnamedsym CLASS_SOURCE_QUASI_BOX*/ @@ -33330,8 +29377,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SBOXED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SBOXED = melthookproc_HOOK_NAMED_SYMBOL ("SBOXED", (long) MELT_GET); - /*_._VALDATA___V575*/ - meltfptr[574] = (melt_ptr_t) meltsy_SBOXED; + /*_._VALDATA___V575*/ meltfptr[574] = (melt_ptr_t) meltsy_SBOXED; } /*endgetnamedsym SBOXED*/ @@ -33344,8 +29390,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_BOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_BOX = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_BOX", (long) MELT_GET); - /*_._VALDATA___V577*/ - meltfptr[576] = (melt_ptr_t) meltsy_CLASS_SOURCE_BOX; + /*_._VALDATA___V577*/ meltfptr[576] = (melt_ptr_t) meltsy_CLASS_SOURCE_BOX; } /*endgetnamedsym CLASS_SOURCE_BOX*/ @@ -33358,8 +29403,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_CONSTANT_BOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CONSTANT_BOX = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CONSTANT_BOX", (long) MELT_GET); - /*_._VALDATA___V583*/ - meltfptr[582] = (melt_ptr_t) meltsy_CLASS_SOURCE_CONSTANT_BOX; + /*_._VALDATA___V583*/ meltfptr[582] = (melt_ptr_t) meltsy_CLASS_SOURCE_CONSTANT_BOX; } /*endgetnamedsym CLASS_SOURCE_CONSTANT_BOX*/ @@ -33372,8 +29416,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_UNBOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_UNBOX = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_UNBOX", (long) MELT_GET); - /*_._VALDATA___V589*/ - meltfptr[588] = (melt_ptr_t) meltsy_CLASS_SOURCE_UNBOX; + /*_._VALDATA___V589*/ meltfptr[588] = (melt_ptr_t) meltsy_CLASS_SOURCE_UNBOX; } /*endgetnamedsym CLASS_SOURCE_UNBOX*/ @@ -33386,8 +29429,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SUNBOX_CTYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUNBOX_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("SUNBOX_CTYPE", (long) MELT_GET); - /*_._VALDATA___V599*/ - meltfptr[598] = (melt_ptr_t) meltsy_SUNBOX_CTYPE; + /*_._VALDATA___V599*/ meltfptr[598] = (melt_ptr_t) meltsy_SUNBOX_CTYPE; } /*endgetnamedsym SUNBOX_CTYPE*/ @@ -33400,8 +29442,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SUNBOX_EXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUNBOX_EXPR = melthookproc_HOOK_NAMED_SYMBOL ("SUNBOX_EXPR", (long) MELT_GET); - /*_._VALDATA___V601*/ - meltfptr[600] = (melt_ptr_t) meltsy_SUNBOX_EXPR; + /*_._VALDATA___V601*/ meltfptr[600] = (melt_ptr_t) meltsy_SUNBOX_EXPR; } /*endgetnamedsym SUNBOX_EXPR*/ @@ -33414,8 +29455,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_EXPORTCOMMON without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORTCOMMON = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORTCOMMON", (long) MELT_GET); - /*_._VALDATA___V603*/ - meltfptr[602] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORTCOMMON; + /*_._VALDATA___V603*/ meltfptr[602] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORTCOMMON; } /*endgetnamedsym CLASS_SOURCE_EXPORTCOMMON*/ @@ -33428,8 +29468,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SEXPORT_NAMES without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPORT_NAMES = melthookproc_HOOK_NAMED_SYMBOL ("SEXPORT_NAMES", (long) MELT_GET); - /*_._VALDATA___V611*/ - meltfptr[610] = (melt_ptr_t) meltsy_SEXPORT_NAMES; + /*_._VALDATA___V611*/ meltfptr[610] = (melt_ptr_t) meltsy_SEXPORT_NAMES; } /*endgetnamedsym SEXPORT_NAMES*/ @@ -33442,8 +29481,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_EXPORT_VALUES without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORT_VALUES = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORT_VALUES", (long) MELT_GET); - /*_._VALDATA___V613*/ - meltfptr[612] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_VALUES; + /*_._VALDATA___V613*/ meltfptr[612] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_VALUES; } /*endgetnamedsym CLASS_SOURCE_EXPORT_VALUES*/ @@ -33456,8 +29494,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_EXPORT_CLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORT_CLASS = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORT_CLASS", (long) MELT_GET); - /*_._VALDATA___V619*/ - meltfptr[618] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_CLASS; + /*_._VALDATA___V619*/ meltfptr[618] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_CLASS; } /*endgetnamedsym CLASS_SOURCE_EXPORT_CLASS*/ @@ -33470,8 +29507,7 @@ void* 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___V625*/ - meltfptr[624] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_ANY_MACRO; + /*_._VALDATA___V625*/ meltfptr[624] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_ANY_MACRO; } /*endgetnamedsym CLASS_SOURCE_EXPORT_ANY_MACRO*/ @@ -33484,8 +29520,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SEXPMAC_MNAME without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPMAC_MNAME = melthookproc_HOOK_NAMED_SYMBOL ("SEXPMAC_MNAME", (long) MELT_GET); - /*_._VALDATA___V635*/ - meltfptr[634] = (melt_ptr_t) meltsy_SEXPMAC_MNAME; + /*_._VALDATA___V635*/ meltfptr[634] = (melt_ptr_t) meltsy_SEXPMAC_MNAME; } /*endgetnamedsym SEXPMAC_MNAME*/ @@ -33498,8 +29533,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SEXPMAC_DOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPMAC_DOC = melthookproc_HOOK_NAMED_SYMBOL ("SEXPMAC_DOC", (long) MELT_GET); - /*_._VALDATA___V637*/ - meltfptr[636] = (melt_ptr_t) meltsy_SEXPMAC_DOC; + /*_._VALDATA___V637*/ meltfptr[636] = (melt_ptr_t) meltsy_SEXPMAC_DOC; } /*endgetnamedsym SEXPMAC_DOC*/ @@ -33512,8 +29546,7 @@ void* 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___V639*/ - meltfptr[638] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_MACRO; + /*_._VALDATA___V639*/ meltfptr[638] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_MACRO; } /*endgetnamedsym CLASS_SOURCE_EXPORT_MACRO*/ @@ -33526,8 +29559,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SEXPMAC_MVAL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPMAC_MVAL = melthookproc_HOOK_NAMED_SYMBOL ("SEXPMAC_MVAL", (long) MELT_GET); - /*_._VALDATA___V647*/ - meltfptr[646] = (melt_ptr_t) meltsy_SEXPMAC_MVAL; + /*_._VALDATA___V647*/ meltfptr[646] = (melt_ptr_t) meltsy_SEXPMAC_MVAL; } /*endgetnamedsym SEXPMAC_MVAL*/ @@ -33540,8 +29572,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_EXPORT_DEFMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORT_DEFMACRO = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORT_DEFMACRO", (long) MELT_GET); - /*_._VALDATA___V649*/ - meltfptr[648] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_DEFMACRO; + /*_._VALDATA___V649*/ meltfptr[648] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_DEFMACRO; } /*endgetnamedsym CLASS_SOURCE_EXPORT_DEFMACRO*/ @@ -33554,8 +29585,7 @@ void* 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___V655*/ - meltfptr[654] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_PATMACRO; + /*_._VALDATA___V655*/ meltfptr[654] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_PATMACRO; } /*endgetnamedsym CLASS_SOURCE_EXPORT_PATMACRO*/ @@ -33568,8 +29598,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SEXPPAT_PVAL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPPAT_PVAL = melthookproc_HOOK_NAMED_SYMBOL ("SEXPPAT_PVAL", (long) MELT_GET); - /*_._VALDATA___V663*/ - meltfptr[662] = (melt_ptr_t) meltsy_SEXPPAT_PVAL; + /*_._VALDATA___V663*/ meltfptr[662] = (melt_ptr_t) meltsy_SEXPPAT_PVAL; } /*endgetnamedsym SEXPPAT_PVAL*/ @@ -33582,8 +29611,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_EXPORT_SYNONYM without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORT_SYNONYM = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORT_SYNONYM", (long) MELT_GET); - /*_._VALDATA___V665*/ - meltfptr[664] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_SYNONYM; + /*_._VALDATA___V665*/ meltfptr[664] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_SYNONYM; } /*endgetnamedsym CLASS_SOURCE_EXPORT_SYNONYM*/ @@ -33596,8 +29624,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SEXPSYN_NEWNAME without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPSYN_NEWNAME = melthookproc_HOOK_NAMED_SYMBOL ("SEXPSYN_NEWNAME", (long) MELT_GET); - /*_._VALDATA___V677*/ - meltfptr[676] = (melt_ptr_t) meltsy_SEXPSYN_NEWNAME; + /*_._VALDATA___V677*/ meltfptr[676] = (melt_ptr_t) meltsy_SEXPSYN_NEWNAME; } /*endgetnamedsym SEXPSYN_NEWNAME*/ @@ -33610,8 +29637,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SEXPSYN_OLDNAME without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPSYN_OLDNAME = melthookproc_HOOK_NAMED_SYMBOL ("SEXPSYN_OLDNAME", (long) MELT_GET); - /*_._VALDATA___V679*/ - meltfptr[678] = (melt_ptr_t) meltsy_SEXPSYN_OLDNAME; + /*_._VALDATA___V679*/ meltfptr[678] = (melt_ptr_t) meltsy_SEXPSYN_OLDNAME; } /*endgetnamedsym SEXPSYN_OLDNAME*/ @@ -33624,8 +29650,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SEXPSYN_DOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPSYN_DOC = melthookproc_HOOK_NAMED_SYMBOL ("SEXPSYN_DOC", (long) MELT_GET); - /*_._VALDATA___V681*/ - meltfptr[680] = (melt_ptr_t) meltsy_SEXPSYN_DOC; + /*_._VALDATA___V681*/ meltfptr[680] = (melt_ptr_t) meltsy_SEXPSYN_DOC; } /*endgetnamedsym SEXPSYN_DOC*/ @@ -33638,8 +29663,7 @@ void* 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___V683*/ - meltfptr[682] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINITION; + /*_._VALDATA___V683*/ meltfptr[682] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINITION; } /*endgetnamedsym CLASS_SOURCE_DEFINITION*/ @@ -33652,8 +29676,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SDEF_NAME without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SDEF_NAME = melthookproc_HOOK_NAMED_SYMBOL ("SDEF_NAME", (long) MELT_GET); - /*_._VALDATA___V693*/ - meltfptr[692] = (melt_ptr_t) meltsy_SDEF_NAME; + /*_._VALDATA___V693*/ meltfptr[692] = (melt_ptr_t) meltsy_SDEF_NAME; } /*endgetnamedsym SDEF_NAME*/ @@ -33666,8 +29689,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SDEF_DOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SDEF_DOC = melthookproc_HOOK_NAMED_SYMBOL ("SDEF_DOC", (long) MELT_GET); - /*_._VALDATA___V695*/ - meltfptr[694] = (melt_ptr_t) meltsy_SDEF_DOC; + /*_._VALDATA___V695*/ meltfptr[694] = (melt_ptr_t) meltsy_SDEF_DOC; } /*endgetnamedsym SDEF_DOC*/ @@ -33680,8 +29702,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_DEFVAR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFVAR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFVAR", (long) MELT_GET); - /*_._VALDATA___V697*/ - meltfptr[696] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFVAR; + /*_._VALDATA___V697*/ meltfptr[696] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFVAR; } /*endgetnamedsym CLASS_SOURCE_DEFVAR*/ @@ -33694,8 +29715,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_DEFINE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFINE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFINE", (long) MELT_GET); - /*_._VALDATA___V703*/ - meltfptr[702] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINE; + /*_._VALDATA___V703*/ meltfptr[702] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINE; } /*endgetnamedsym CLASS_SOURCE_DEFINE*/ @@ -33708,8 +29728,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SDEFINE_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SDEFINE_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SDEFINE_BODY", (long) MELT_GET); - /*_._VALDATA___V711*/ - meltfptr[710] = (melt_ptr_t) meltsy_SDEFINE_BODY; + /*_._VALDATA___V711*/ meltfptr[710] = (melt_ptr_t) meltsy_SDEFINE_BODY; } /*endgetnamedsym SDEFINE_BODY*/ @@ -33722,8 +29741,7 @@ void* 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___V713*/ - meltfptr[712] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINITION_FORMAL; + /*_._VALDATA___V713*/ meltfptr[712] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINITION_FORMAL; } /*endgetnamedsym CLASS_SOURCE_DEFINITION_FORMAL*/ @@ -33736,8 +29754,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SFORMAL_ARGS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFORMAL_ARGS = melthookproc_HOOK_NAMED_SYMBOL ("SFORMAL_ARGS", (long) MELT_GET); - /*_._VALDATA___V721*/ - meltfptr[720] = (melt_ptr_t) meltsy_SFORMAL_ARGS; + /*_._VALDATA___V721*/ meltfptr[720] = (melt_ptr_t) meltsy_SFORMAL_ARGS; } /*endgetnamedsym SFORMAL_ARGS*/ @@ -33750,8 +29767,7 @@ void* 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___V723*/ - meltfptr[722] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFUN; + /*_._VALDATA___V723*/ meltfptr[722] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFUN; } /*endgetnamedsym CLASS_SOURCE_DEFUN*/ @@ -33764,8 +29780,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SFUN_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFUN_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SFUN_BODY", (long) MELT_GET); - /*_._VALDATA___V731*/ - meltfptr[730] = (melt_ptr_t) meltsy_SFUN_BODY; + /*_._VALDATA___V731*/ meltfptr[730] = (melt_ptr_t) meltsy_SFUN_BODY; } /*endgetnamedsym SFUN_BODY*/ @@ -33778,8 +29793,7 @@ void* 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___V733*/ - meltfptr[732] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFMACRO; + /*_._VALDATA___V733*/ meltfptr[732] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFMACRO; } /*endgetnamedsym CLASS_SOURCE_DEFMACRO*/ @@ -33792,8 +29806,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SMACRO_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMACRO_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("SMACRO_BINDING", (long) MELT_GET); - /*_._VALDATA___V741*/ - meltfptr[740] = (melt_ptr_t) meltsy_SMACRO_BINDING; + /*_._VALDATA___V741*/ meltfptr[740] = (melt_ptr_t) meltsy_SMACRO_BINDING; } /*endgetnamedsym SMACRO_BINDING*/ @@ -33806,8 +29819,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_DEFINED_MACRO_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_DEFINED_MACRO_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_DEFINED_MACRO_BINDING", (long) MELT_GET); - /*_._VALDATA___V743*/ - meltfptr[742] = (melt_ptr_t) meltsy_CLASS_DEFINED_MACRO_BINDING; + /*_._VALDATA___V743*/ meltfptr[742] = (melt_ptr_t) meltsy_CLASS_DEFINED_MACRO_BINDING; } /*endgetnamedsym CLASS_DEFINED_MACRO_BINDING*/ @@ -33820,8 +29832,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_MACRO_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_MACRO_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_MACRO_BINDING", (long) MELT_GET); - /*_._VALDATA___V745*/ - meltfptr[744] = (melt_ptr_t) meltsy_CLASS_MACRO_BINDING; + /*_._VALDATA___V745*/ meltfptr[744] = (melt_ptr_t) meltsy_CLASS_MACRO_BINDING; } /*endgetnamedsym CLASS_MACRO_BINDING*/ @@ -33834,8 +29845,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MBIND_DEFMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MBIND_DEFMACRO = melthookproc_HOOK_NAMED_SYMBOL ("MBIND_DEFMACRO", (long) MELT_GET); - /*_._VALDATA___V755*/ - meltfptr[754] = (melt_ptr_t) meltsy_MBIND_DEFMACRO; + /*_._VALDATA___V755*/ meltfptr[754] = (melt_ptr_t) meltsy_MBIND_DEFMACRO; } /*endgetnamedsym MBIND_DEFMACRO*/ @@ -33848,8 +29858,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MBIND_DATA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MBIND_DATA = melthookproc_HOOK_NAMED_SYMBOL ("MBIND_DATA", (long) MELT_GET); - /*_._VALDATA___V757*/ - meltfptr[756] = (melt_ptr_t) meltsy_MBIND_DATA; + /*_._VALDATA___V757*/ meltfptr[756] = (melt_ptr_t) meltsy_MBIND_DATA; } /*endgetnamedsym MBIND_DATA*/ @@ -33862,8 +29871,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_MACRO_INSTALLATION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MACRO_INSTALLATION = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MACRO_INSTALLATION", (long) MELT_GET); - /*_._VALDATA___V759*/ - meltfptr[758] = (melt_ptr_t) meltsy_CLASS_SOURCE_MACRO_INSTALLATION; + /*_._VALDATA___V759*/ meltfptr[758] = (melt_ptr_t) meltsy_CLASS_SOURCE_MACRO_INSTALLATION; } /*endgetnamedsym CLASS_SOURCE_MACRO_INSTALLATION*/ @@ -33876,8 +29884,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SMACINST_DEFMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMACINST_DEFMACRO = melthookproc_HOOK_NAMED_SYMBOL ("SMACINST_DEFMACRO", (long) MELT_GET); - /*_._VALDATA___V767*/ - meltfptr[766] = (melt_ptr_t) meltsy_SMACINST_DEFMACRO; + /*_._VALDATA___V767*/ meltfptr[766] = (melt_ptr_t) meltsy_SMACINST_DEFMACRO; } /*endgetnamedsym SMACINST_DEFMACRO*/ @@ -33890,8 +29897,7 @@ void* 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___V769*/ - meltfptr[768] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFPRIMITIVE; + /*_._VALDATA___V769*/ meltfptr[768] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFPRIMITIVE; } /*endgetnamedsym CLASS_SOURCE_DEFPRIMITIVE*/ @@ -33904,8 +29910,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPRIM_TYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPRIM_TYPE = melthookproc_HOOK_NAMED_SYMBOL ("SPRIM_TYPE", (long) MELT_GET); - /*_._VALDATA___V781*/ - meltfptr[780] = (melt_ptr_t) meltsy_SPRIM_TYPE; + /*_._VALDATA___V781*/ meltfptr[780] = (melt_ptr_t) meltsy_SPRIM_TYPE; } /*endgetnamedsym SPRIM_TYPE*/ @@ -33918,8 +29923,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPRIM_EXPANSION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPRIM_EXPANSION = melthookproc_HOOK_NAMED_SYMBOL ("SPRIM_EXPANSION", (long) MELT_GET); - /*_._VALDATA___V783*/ - meltfptr[782] = (melt_ptr_t) meltsy_SPRIM_EXPANSION; + /*_._VALDATA___V783*/ meltfptr[782] = (melt_ptr_t) meltsy_SPRIM_EXPANSION; } /*endgetnamedsym SPRIM_EXPANSION*/ @@ -33932,8 +29936,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPRIM_EXPLOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPRIM_EXPLOC = melthookproc_HOOK_NAMED_SYMBOL ("SPRIM_EXPLOC", (long) MELT_GET); - /*_._VALDATA___V785*/ - meltfptr[784] = (melt_ptr_t) meltsy_SPRIM_EXPLOC; + /*_._VALDATA___V785*/ meltfptr[784] = (melt_ptr_t) meltsy_SPRIM_EXPLOC; } /*endgetnamedsym SPRIM_EXPLOC*/ @@ -33946,8 +29949,7 @@ void* 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___V787*/ - meltfptr[786] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFHOOK; + /*_._VALDATA___V787*/ meltfptr[786] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFHOOK; } /*endgetnamedsym CLASS_SOURCE_DEFHOOK*/ @@ -33960,8 +29962,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SHOOK_OUT_FORMALS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SHOOK_OUT_FORMALS = melthookproc_HOOK_NAMED_SYMBOL ("SHOOK_OUT_FORMALS", (long) MELT_GET); - /*_._VALDATA___V803*/ - meltfptr[802] = (melt_ptr_t) meltsy_SHOOK_OUT_FORMALS; + /*_._VALDATA___V803*/ meltfptr[802] = (melt_ptr_t) meltsy_SHOOK_OUT_FORMALS; } /*endgetnamedsym SHOOK_OUT_FORMALS*/ @@ -33974,8 +29975,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SHOOK_CTYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SHOOK_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("SHOOK_CTYPE", (long) MELT_GET); - /*_._VALDATA___V805*/ - meltfptr[804] = (melt_ptr_t) meltsy_SHOOK_CTYPE; + /*_._VALDATA___V805*/ meltfptr[804] = (melt_ptr_t) meltsy_SHOOK_CTYPE; } /*endgetnamedsym SHOOK_CTYPE*/ @@ -33988,8 +29988,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SHOOK_PREDEF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SHOOK_PREDEF = melthookproc_HOOK_NAMED_SYMBOL ("SHOOK_PREDEF", (long) MELT_GET); - /*_._VALDATA___V807*/ - meltfptr[806] = (melt_ptr_t) meltsy_SHOOK_PREDEF; + /*_._VALDATA___V807*/ meltfptr[806] = (melt_ptr_t) meltsy_SHOOK_PREDEF; } /*endgetnamedsym SHOOK_PREDEF*/ @@ -34002,8 +30001,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SHOOK_VARIABLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SHOOK_VARIABLE = melthookproc_HOOK_NAMED_SYMBOL ("SHOOK_VARIABLE", (long) MELT_GET); - /*_._VALDATA___V809*/ - meltfptr[808] = (melt_ptr_t) meltsy_SHOOK_VARIABLE; + /*_._VALDATA___V809*/ meltfptr[808] = (melt_ptr_t) meltsy_SHOOK_VARIABLE; } /*endgetnamedsym SHOOK_VARIABLE*/ @@ -34016,8 +30014,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SHOOK_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SHOOK_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SHOOK_BODY", (long) MELT_GET); - /*_._VALDATA___V811*/ - meltfptr[810] = (melt_ptr_t) meltsy_SHOOK_BODY; + /*_._VALDATA___V811*/ meltfptr[810] = (melt_ptr_t) meltsy_SHOOK_BODY; } /*endgetnamedsym SHOOK_BODY*/ @@ -34030,8 +30027,7 @@ void* 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___V813*/ - meltfptr[812] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCITERATOR; + /*_._VALDATA___V813*/ meltfptr[812] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCITERATOR; } /*endgetnamedsym CLASS_SOURCE_DEFCITERATOR*/ @@ -34044,8 +30040,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCITERDEF_CITERATOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCITERDEF_CITERATOR = melthookproc_HOOK_NAMED_SYMBOL ("SCITERDEF_CITERATOR", (long) MELT_GET); - /*_._VALDATA___V825*/ - meltfptr[824] = (melt_ptr_t) meltsy_SCITERDEF_CITERATOR; + /*_._VALDATA___V825*/ meltfptr[824] = (melt_ptr_t) meltsy_SCITERDEF_CITERATOR; } /*endgetnamedsym SCITERDEF_CITERATOR*/ @@ -34058,8 +30053,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCITERDEF_BEFORELOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCITERDEF_BEFORELOC = melthookproc_HOOK_NAMED_SYMBOL ("SCITERDEF_BEFORELOC", (long) MELT_GET); - /*_._VALDATA___V827*/ - meltfptr[826] = (melt_ptr_t) meltsy_SCITERDEF_BEFORELOC; + /*_._VALDATA___V827*/ meltfptr[826] = (melt_ptr_t) meltsy_SCITERDEF_BEFORELOC; } /*endgetnamedsym SCITERDEF_BEFORELOC*/ @@ -34072,8 +30066,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCITERDEF_AFTERLOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCITERDEF_AFTERLOC = melthookproc_HOOK_NAMED_SYMBOL ("SCITERDEF_AFTERLOC", (long) MELT_GET); - /*_._VALDATA___V829*/ - meltfptr[828] = (melt_ptr_t) meltsy_SCITERDEF_AFTERLOC; + /*_._VALDATA___V829*/ meltfptr[828] = (melt_ptr_t) meltsy_SCITERDEF_AFTERLOC; } /*endgetnamedsym SCITERDEF_AFTERLOC*/ @@ -34086,8 +30079,7 @@ void* 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___V831*/ - meltfptr[830] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCMATCHER; + /*_._VALDATA___V831*/ meltfptr[830] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCMATCHER; } /*endgetnamedsym CLASS_SOURCE_DEFCMATCHER*/ @@ -34100,8 +30092,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCMATDEF_CMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCMATDEF_CMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("SCMATDEF_CMATCHER", (long) MELT_GET); - /*_._VALDATA___V845*/ - meltfptr[844] = (melt_ptr_t) meltsy_SCMATDEF_CMATCHER; + /*_._VALDATA___V845*/ meltfptr[844] = (melt_ptr_t) meltsy_SCMATDEF_CMATCHER; } /*endgetnamedsym SCMATDEF_CMATCHER*/ @@ -34114,8 +30105,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCMATDEF_TESTLOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCMATDEF_TESTLOC = melthookproc_HOOK_NAMED_SYMBOL ("SCMATDEF_TESTLOC", (long) MELT_GET); - /*_._VALDATA___V847*/ - meltfptr[846] = (melt_ptr_t) meltsy_SCMATDEF_TESTLOC; + /*_._VALDATA___V847*/ meltfptr[846] = (melt_ptr_t) meltsy_SCMATDEF_TESTLOC; } /*endgetnamedsym SCMATDEF_TESTLOC*/ @@ -34128,8 +30118,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCMATDEF_FILLLOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCMATDEF_FILLLOC = melthookproc_HOOK_NAMED_SYMBOL ("SCMATDEF_FILLLOC", (long) MELT_GET); - /*_._VALDATA___V849*/ - meltfptr[848] = (melt_ptr_t) meltsy_SCMATDEF_FILLLOC; + /*_._VALDATA___V849*/ meltfptr[848] = (melt_ptr_t) meltsy_SCMATDEF_FILLLOC; } /*endgetnamedsym SCMATDEF_FILLLOC*/ @@ -34142,8 +30131,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCMATDEF_OPERLOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCMATDEF_OPERLOC = melthookproc_HOOK_NAMED_SYMBOL ("SCMATDEF_OPERLOC", (long) MELT_GET); - /*_._VALDATA___V851*/ - meltfptr[850] = (melt_ptr_t) meltsy_SCMATDEF_OPERLOC; + /*_._VALDATA___V851*/ meltfptr[850] = (melt_ptr_t) meltsy_SCMATDEF_OPERLOC; } /*endgetnamedsym SCMATDEF_OPERLOC*/ @@ -34156,8 +30144,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_DEFUNMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFUNMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFUNMATCHER", (long) MELT_GET); - /*_._VALDATA___V853*/ - meltfptr[852] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFUNMATCHER; + /*_._VALDATA___V853*/ meltfptr[852] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFUNMATCHER; } /*endgetnamedsym CLASS_SOURCE_DEFUNMATCHER*/ @@ -34170,8 +30157,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SFUMATDEF_INS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFUMATDEF_INS = melthookproc_HOOK_NAMED_SYMBOL ("SFUMATDEF_INS", (long) MELT_GET); - /*_._VALDATA___V869*/ - meltfptr[868] = (melt_ptr_t) meltsy_SFUMATDEF_INS; + /*_._VALDATA___V869*/ meltfptr[868] = (melt_ptr_t) meltsy_SFUMATDEF_INS; } /*endgetnamedsym SFUMATDEF_INS*/ @@ -34184,8 +30170,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SFUMATDEF_OUTS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFUMATDEF_OUTS = melthookproc_HOOK_NAMED_SYMBOL ("SFUMATDEF_OUTS", (long) MELT_GET); - /*_._VALDATA___V871*/ - meltfptr[870] = (melt_ptr_t) meltsy_SFUMATDEF_OUTS; + /*_._VALDATA___V871*/ meltfptr[870] = (melt_ptr_t) meltsy_SFUMATDEF_OUTS; } /*endgetnamedsym SFUMATDEF_OUTS*/ @@ -34198,8 +30183,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SFUMATDEF_MATCHF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFUMATDEF_MATCHF = melthookproc_HOOK_NAMED_SYMBOL ("SFUMATDEF_MATCHF", (long) MELT_GET); - /*_._VALDATA___V873*/ - meltfptr[872] = (melt_ptr_t) meltsy_SFUMATDEF_MATCHF; + /*_._VALDATA___V873*/ meltfptr[872] = (melt_ptr_t) meltsy_SFUMATDEF_MATCHF; } /*endgetnamedsym SFUMATDEF_MATCHF*/ @@ -34212,8 +30196,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SFUMATDEF_APPLYF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFUMATDEF_APPLYF = melthookproc_HOOK_NAMED_SYMBOL ("SFUMATDEF_APPLYF", (long) MELT_GET); - /*_._VALDATA___V875*/ - meltfptr[874] = (melt_ptr_t) meltsy_SFUMATDEF_APPLYF; + /*_._VALDATA___V875*/ meltfptr[874] = (melt_ptr_t) meltsy_SFUMATDEF_APPLYF; } /*endgetnamedsym SFUMATDEF_APPLYF*/ @@ -34226,8 +30209,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SFUMATDEF_DATA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFUMATDEF_DATA = melthookproc_HOOK_NAMED_SYMBOL ("SFUMATDEF_DATA", (long) MELT_GET); - /*_._VALDATA___V877*/ - meltfptr[876] = (melt_ptr_t) meltsy_SFUMATDEF_DATA; + /*_._VALDATA___V877*/ meltfptr[876] = (melt_ptr_t) meltsy_SFUMATDEF_DATA; } /*endgetnamedsym SFUMATDEF_DATA*/ @@ -34240,8 +30222,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_DEFOBJCOMMON without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFOBJCOMMON = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFOBJCOMMON", (long) MELT_GET); - /*_._VALDATA___V879*/ - meltfptr[878] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFOBJCOMMON; + /*_._VALDATA___V879*/ meltfptr[878] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFOBJCOMMON; } /*endgetnamedsym CLASS_SOURCE_DEFOBJCOMMON*/ @@ -34254,8 +30235,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SOBJ_PREDEF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SOBJ_PREDEF = melthookproc_HOOK_NAMED_SYMBOL ("SOBJ_PREDEF", (long) MELT_GET); - /*_._VALDATA___V887*/ - meltfptr[886] = (melt_ptr_t) meltsy_SOBJ_PREDEF; + /*_._VALDATA___V887*/ meltfptr[886] = (melt_ptr_t) meltsy_SOBJ_PREDEF; } /*endgetnamedsym SOBJ_PREDEF*/ @@ -34268,8 +30248,7 @@ void* 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___V889*/ - meltfptr[888] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCLASS; + /*_._VALDATA___V889*/ meltfptr[888] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCLASS; } /*endgetnamedsym CLASS_SOURCE_DEFCLASS*/ @@ -34282,8 +30261,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCLASS_CLABIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCLASS_CLABIND = melthookproc_HOOK_NAMED_SYMBOL ("SCLASS_CLABIND", (long) MELT_GET); - /*_._VALDATA___V901*/ - meltfptr[900] = (melt_ptr_t) meltsy_SCLASS_CLABIND; + /*_._VALDATA___V901*/ meltfptr[900] = (melt_ptr_t) meltsy_SCLASS_CLABIND; } /*endgetnamedsym SCLASS_CLABIND*/ @@ -34296,8 +30274,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCLASS_SUPERBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCLASS_SUPERBIND = melthookproc_HOOK_NAMED_SYMBOL ("SCLASS_SUPERBIND", (long) MELT_GET); - /*_._VALDATA___V903*/ - meltfptr[902] = (melt_ptr_t) meltsy_SCLASS_SUPERBIND; + /*_._VALDATA___V903*/ meltfptr[902] = (melt_ptr_t) meltsy_SCLASS_SUPERBIND; } /*endgetnamedsym SCLASS_SUPERBIND*/ @@ -34310,8 +30287,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCLASS_FLDBINDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCLASS_FLDBINDS = melthookproc_HOOK_NAMED_SYMBOL ("SCLASS_FLDBINDS", (long) MELT_GET); - /*_._VALDATA___V905*/ - meltfptr[904] = (melt_ptr_t) meltsy_SCLASS_FLDBINDS; + /*_._VALDATA___V905*/ meltfptr[904] = (melt_ptr_t) meltsy_SCLASS_FLDBINDS; } /*endgetnamedsym SCLASS_FLDBINDS*/ @@ -34324,8 +30300,7 @@ void* 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___V907*/ - meltfptr[906] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINSTANCE; + /*_._VALDATA___V907*/ meltfptr[906] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINSTANCE; } /*endgetnamedsym CLASS_SOURCE_DEFINSTANCE*/ @@ -34338,8 +30313,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SINST_CLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SINST_CLASS = melthookproc_HOOK_NAMED_SYMBOL ("SINST_CLASS", (long) MELT_GET); - /*_._VALDATA___V921*/ - meltfptr[920] = (melt_ptr_t) meltsy_SINST_CLASS; + /*_._VALDATA___V921*/ meltfptr[920] = (melt_ptr_t) meltsy_SINST_CLASS; } /*endgetnamedsym SINST_CLASS*/ @@ -34352,8 +30326,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SINST_CLABIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SINST_CLABIND = melthookproc_HOOK_NAMED_SYMBOL ("SINST_CLABIND", (long) MELT_GET); - /*_._VALDATA___V923*/ - meltfptr[922] = (melt_ptr_t) meltsy_SINST_CLABIND; + /*_._VALDATA___V923*/ meltfptr[922] = (melt_ptr_t) meltsy_SINST_CLABIND; } /*endgetnamedsym SINST_CLABIND*/ @@ -34366,8 +30339,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SINST_OBJNUM without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SINST_OBJNUM = melthookproc_HOOK_NAMED_SYMBOL ("SINST_OBJNUM", (long) MELT_GET); - /*_._VALDATA___V925*/ - meltfptr[924] = (melt_ptr_t) meltsy_SINST_OBJNUM; + /*_._VALDATA___V925*/ meltfptr[924] = (melt_ptr_t) meltsy_SINST_OBJNUM; } /*endgetnamedsym SINST_OBJNUM*/ @@ -34380,8 +30352,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SINST_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SINST_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("SINST_FIELDS", (long) MELT_GET); - /*_._VALDATA___V927*/ - meltfptr[926] = (melt_ptr_t) meltsy_SINST_FIELDS; + /*_._VALDATA___V927*/ meltfptr[926] = (melt_ptr_t) meltsy_SINST_FIELDS; } /*endgetnamedsym SINST_FIELDS*/ @@ -34394,8 +30365,7 @@ void* 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___V929*/ - meltfptr[928] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFSELECTOR; + /*_._VALDATA___V929*/ meltfptr[928] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFSELECTOR; } /*endgetnamedsym CLASS_SOURCE_DEFSELECTOR*/ @@ -34408,8 +30378,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SDEFSEL_FORMALS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SDEFSEL_FORMALS = melthookproc_HOOK_NAMED_SYMBOL ("SDEFSEL_FORMALS", (long) MELT_GET); - /*_._VALDATA___V937*/ - meltfptr[936] = (melt_ptr_t) meltsy_SDEFSEL_FORMALS; + /*_._VALDATA___V937*/ meltfptr[936] = (melt_ptr_t) meltsy_SDEFSEL_FORMALS; } /*endgetnamedsym SDEFSEL_FORMALS*/ @@ -34422,8 +30391,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_FIELDASSIGN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_FIELDASSIGN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_FIELDASSIGN", (long) MELT_GET); - /*_._VALDATA___V939*/ - meltfptr[938] = (melt_ptr_t) meltsy_CLASS_SOURCE_FIELDASSIGN; + /*_._VALDATA___V939*/ meltfptr[938] = (melt_ptr_t) meltsy_CLASS_SOURCE_FIELDASSIGN; } /*endgetnamedsym CLASS_SOURCE_FIELDASSIGN*/ @@ -34436,8 +30404,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SFLA_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFLA_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("SFLA_FIELD", (long) MELT_GET); - /*_._VALDATA___V949*/ - meltfptr[948] = (melt_ptr_t) meltsy_SFLA_FIELD; + /*_._VALDATA___V949*/ meltfptr[948] = (melt_ptr_t) meltsy_SFLA_FIELD; } /*endgetnamedsym SFLA_FIELD*/ @@ -34450,8 +30417,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SFLA_EXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFLA_EXPR = melthookproc_HOOK_NAMED_SYMBOL ("SFLA_EXPR", (long) MELT_GET); - /*_._VALDATA___V951*/ - meltfptr[950] = (melt_ptr_t) meltsy_SFLA_EXPR; + /*_._VALDATA___V951*/ meltfptr[950] = (melt_ptr_t) meltsy_SFLA_EXPR; } /*endgetnamedsym SFLA_EXPR*/ @@ -34464,8 +30430,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_INSTANCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_INSTANCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_INSTANCE", (long) MELT_GET); - /*_._VALDATA___V953*/ - meltfptr[952] = (melt_ptr_t) meltsy_CLASS_SOURCE_INSTANCE; + /*_._VALDATA___V953*/ meltfptr[952] = (melt_ptr_t) meltsy_CLASS_SOURCE_INSTANCE; } /*endgetnamedsym CLASS_SOURCE_INSTANCE*/ @@ -34478,8 +30443,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SMINS_CLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMINS_CLASS = melthookproc_HOOK_NAMED_SYMBOL ("SMINS_CLASS", (long) MELT_GET); - /*_._VALDATA___V965*/ - meltfptr[964] = (melt_ptr_t) meltsy_SMINS_CLASS; + /*_._VALDATA___V965*/ meltfptr[964] = (melt_ptr_t) meltsy_SMINS_CLASS; } /*endgetnamedsym SMINS_CLASS*/ @@ -34492,8 +30456,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SMINS_CLABIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMINS_CLABIND = melthookproc_HOOK_NAMED_SYMBOL ("SMINS_CLABIND", (long) MELT_GET); - /*_._VALDATA___V967*/ - meltfptr[966] = (melt_ptr_t) meltsy_SMINS_CLABIND; + /*_._VALDATA___V967*/ meltfptr[966] = (melt_ptr_t) meltsy_SMINS_CLABIND; } /*endgetnamedsym SMINS_CLABIND*/ @@ -34506,8 +30469,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SMINS_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMINS_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("SMINS_FIELDS", (long) MELT_GET); - /*_._VALDATA___V969*/ - meltfptr[968] = (melt_ptr_t) meltsy_SMINS_FIELDS; + /*_._VALDATA___V969*/ meltfptr[968] = (melt_ptr_t) meltsy_SMINS_FIELDS; } /*endgetnamedsym SMINS_FIELDS*/ @@ -34520,8 +30482,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_GET_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_GET_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_GET_FIELD", (long) MELT_GET); - /*_._VALDATA___V971*/ - meltfptr[970] = (melt_ptr_t) meltsy_CLASS_SOURCE_GET_FIELD; + /*_._VALDATA___V971*/ meltfptr[970] = (melt_ptr_t) meltsy_CLASS_SOURCE_GET_FIELD; } /*endgetnamedsym CLASS_SOURCE_GET_FIELD*/ @@ -34534,8 +30495,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SUGET_OBJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUGET_OBJ = melthookproc_HOOK_NAMED_SYMBOL ("SUGET_OBJ", (long) MELT_GET); - /*_._VALDATA___V981*/ - meltfptr[980] = (melt_ptr_t) meltsy_SUGET_OBJ; + /*_._VALDATA___V981*/ meltfptr[980] = (melt_ptr_t) meltsy_SUGET_OBJ; } /*endgetnamedsym SUGET_OBJ*/ @@ -34548,8 +30508,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SUGET_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUGET_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("SUGET_FIELD", (long) MELT_GET); - /*_._VALDATA___V983*/ - meltfptr[982] = (melt_ptr_t) meltsy_SUGET_FIELD; + /*_._VALDATA___V983*/ meltfptr[982] = (melt_ptr_t) meltsy_SUGET_FIELD; } /*endgetnamedsym SUGET_FIELD*/ @@ -34562,8 +30521,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_UNSAFE_GET_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_UNSAFE_GET_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_UNSAFE_GET_FIELD", (long) MELT_GET); - /*_._VALDATA___V985*/ - meltfptr[984] = (melt_ptr_t) meltsy_CLASS_SOURCE_UNSAFE_GET_FIELD; + /*_._VALDATA___V985*/ meltfptr[984] = (melt_ptr_t) meltsy_CLASS_SOURCE_UNSAFE_GET_FIELD; } /*endgetnamedsym CLASS_SOURCE_UNSAFE_GET_FIELD*/ @@ -34576,8 +30534,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PUT_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PUT_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PUT_FIELDS", (long) MELT_GET); - /*_._VALDATA___V991*/ - meltfptr[990] = (melt_ptr_t) meltsy_CLASS_SOURCE_PUT_FIELDS; + /*_._VALDATA___V991*/ meltfptr[990] = (melt_ptr_t) meltsy_CLASS_SOURCE_PUT_FIELDS; } /*endgetnamedsym CLASS_SOURCE_PUT_FIELDS*/ @@ -34590,8 +30547,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SUPUT_OBJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUPUT_OBJ = melthookproc_HOOK_NAMED_SYMBOL ("SUPUT_OBJ", (long) MELT_GET); - /*_._VALDATA___V1001*/ - meltfptr[1000] = (melt_ptr_t) meltsy_SUPUT_OBJ; + /*_._VALDATA___V1001*/ meltfptr[1000] = (melt_ptr_t) meltsy_SUPUT_OBJ; } /*endgetnamedsym SUPUT_OBJ*/ @@ -34604,8 +30560,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SUPUT_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUPUT_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("SUPUT_FIELDS", (long) MELT_GET); - /*_._VALDATA___V1003*/ - meltfptr[1002] = (melt_ptr_t) meltsy_SUPUT_FIELDS; + /*_._VALDATA___V1003*/ meltfptr[1002] = (melt_ptr_t) meltsy_SUPUT_FIELDS; } /*endgetnamedsym SUPUT_FIELDS*/ @@ -34618,8 +30573,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_UNSAFE_PUT_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_UNSAFE_PUT_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_UNSAFE_PUT_FIELDS", (long) MELT_GET); - /*_._VALDATA___V1005*/ - meltfptr[1004] = (melt_ptr_t) meltsy_CLASS_SOURCE_UNSAFE_PUT_FIELDS; + /*_._VALDATA___V1005*/ meltfptr[1004] = (melt_ptr_t) meltsy_CLASS_SOURCE_UNSAFE_PUT_FIELDS; } /*endgetnamedsym CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ @@ -34632,8 +30586,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_IF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_IF = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_IF", (long) MELT_GET); - /*_._VALDATA___V1011*/ - meltfptr[1010] = (melt_ptr_t) meltsy_CLASS_SOURCE_IF; + /*_._VALDATA___V1011*/ meltfptr[1010] = (melt_ptr_t) meltsy_CLASS_SOURCE_IF; } /*endgetnamedsym CLASS_SOURCE_IF*/ @@ -34646,8 +30599,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SIF_TEST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIF_TEST = melthookproc_HOOK_NAMED_SYMBOL ("SIF_TEST", (long) MELT_GET); - /*_._VALDATA___V1021*/ - meltfptr[1020] = (melt_ptr_t) meltsy_SIF_TEST; + /*_._VALDATA___V1021*/ meltfptr[1020] = (melt_ptr_t) meltsy_SIF_TEST; } /*endgetnamedsym SIF_TEST*/ @@ -34660,8 +30612,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SIF_THEN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIF_THEN = melthookproc_HOOK_NAMED_SYMBOL ("SIF_THEN", (long) MELT_GET); - /*_._VALDATA___V1023*/ - meltfptr[1022] = (melt_ptr_t) meltsy_SIF_THEN; + /*_._VALDATA___V1023*/ meltfptr[1022] = (melt_ptr_t) meltsy_SIF_THEN; } /*endgetnamedsym SIF_THEN*/ @@ -34674,8 +30625,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_IFELSE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_IFELSE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_IFELSE", (long) MELT_GET); - /*_._VALDATA___V1025*/ - meltfptr[1024] = (melt_ptr_t) meltsy_CLASS_SOURCE_IFELSE; + /*_._VALDATA___V1025*/ meltfptr[1024] = (melt_ptr_t) meltsy_CLASS_SOURCE_IFELSE; } /*endgetnamedsym CLASS_SOURCE_IFELSE*/ @@ -34688,8 +30638,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SIF_ELSE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIF_ELSE = melthookproc_HOOK_NAMED_SYMBOL ("SIF_ELSE", (long) MELT_GET); - /*_._VALDATA___V1033*/ - meltfptr[1032] = (melt_ptr_t) meltsy_SIF_ELSE; + /*_._VALDATA___V1033*/ meltfptr[1032] = (melt_ptr_t) meltsy_SIF_ELSE; } /*endgetnamedsym SIF_ELSE*/ @@ -34702,8 +30651,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_OR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_OR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_OR", (long) MELT_GET); - /*_._VALDATA___V1035*/ - meltfptr[1034] = (melt_ptr_t) meltsy_CLASS_SOURCE_OR; + /*_._VALDATA___V1035*/ meltfptr[1034] = (melt_ptr_t) meltsy_CLASS_SOURCE_OR; } /*endgetnamedsym CLASS_SOURCE_OR*/ @@ -34716,8 +30664,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SOR_DISJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SOR_DISJ = melthookproc_HOOK_NAMED_SYMBOL ("SOR_DISJ", (long) MELT_GET); - /*_._VALDATA___V1043*/ - meltfptr[1042] = (melt_ptr_t) meltsy_SOR_DISJ; + /*_._VALDATA___V1043*/ meltfptr[1042] = (melt_ptr_t) meltsy_SOR_DISJ; } /*endgetnamedsym SOR_DISJ*/ @@ -34730,8 +30677,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_CPPIF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CPPIF = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CPPIF", (long) MELT_GET); - /*_._VALDATA___V1045*/ - meltfptr[1044] = (melt_ptr_t) meltsy_CLASS_SOURCE_CPPIF; + /*_._VALDATA___V1045*/ meltfptr[1044] = (melt_ptr_t) meltsy_CLASS_SOURCE_CPPIF; } /*endgetnamedsym CLASS_SOURCE_CPPIF*/ @@ -34744,8 +30690,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SIFP_COND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIFP_COND = melthookproc_HOOK_NAMED_SYMBOL ("SIFP_COND", (long) MELT_GET); - /*_._VALDATA___V1057*/ - meltfptr[1056] = (melt_ptr_t) meltsy_SIFP_COND; + /*_._VALDATA___V1057*/ meltfptr[1056] = (melt_ptr_t) meltsy_SIFP_COND; } /*endgetnamedsym SIFP_COND*/ @@ -34758,8 +30703,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SIFP_THEN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIFP_THEN = melthookproc_HOOK_NAMED_SYMBOL ("SIFP_THEN", (long) MELT_GET); - /*_._VALDATA___V1059*/ - meltfptr[1058] = (melt_ptr_t) meltsy_SIFP_THEN; + /*_._VALDATA___V1059*/ meltfptr[1058] = (melt_ptr_t) meltsy_SIFP_THEN; } /*endgetnamedsym SIFP_THEN*/ @@ -34772,8 +30716,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SIFP_ELSE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIFP_ELSE = melthookproc_HOOK_NAMED_SYMBOL ("SIFP_ELSE", (long) MELT_GET); - /*_._VALDATA___V1061*/ - meltfptr[1060] = (melt_ptr_t) meltsy_SIFP_ELSE; + /*_._VALDATA___V1061*/ meltfptr[1060] = (melt_ptr_t) meltsy_SIFP_ELSE; } /*endgetnamedsym SIFP_ELSE*/ @@ -34786,8 +30729,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_MATCH without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MATCH = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MATCH", (long) MELT_GET); - /*_._VALDATA___V1063*/ - meltfptr[1062] = (melt_ptr_t) meltsy_CLASS_SOURCE_MATCH; + /*_._VALDATA___V1063*/ meltfptr[1062] = (melt_ptr_t) meltsy_CLASS_SOURCE_MATCH; } /*endgetnamedsym CLASS_SOURCE_MATCH*/ @@ -34800,8 +30742,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SMAT_MATCHEDX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMAT_MATCHEDX = melthookproc_HOOK_NAMED_SYMBOL ("SMAT_MATCHEDX", (long) MELT_GET); - /*_._VALDATA___V1073*/ - meltfptr[1072] = (melt_ptr_t) meltsy_SMAT_MATCHEDX; + /*_._VALDATA___V1073*/ meltfptr[1072] = (melt_ptr_t) meltsy_SMAT_MATCHEDX; } /*endgetnamedsym SMAT_MATCHEDX*/ @@ -34814,8 +30755,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SMAT_CASES without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMAT_CASES = melthookproc_HOOK_NAMED_SYMBOL ("SMAT_CASES", (long) MELT_GET); - /*_._VALDATA___V1075*/ - meltfptr[1074] = (melt_ptr_t) meltsy_SMAT_CASES; + /*_._VALDATA___V1075*/ meltfptr[1074] = (melt_ptr_t) meltsy_SMAT_CASES; } /*endgetnamedsym SMAT_CASES*/ @@ -34828,8 +30768,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_MATCHALT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MATCHALT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MATCHALT", (long) MELT_GET); - /*_._VALDATA___V1077*/ - meltfptr[1076] = (melt_ptr_t) meltsy_CLASS_SOURCE_MATCHALT; + /*_._VALDATA___V1077*/ meltfptr[1076] = (melt_ptr_t) meltsy_CLASS_SOURCE_MATCHALT; } /*endgetnamedsym CLASS_SOURCE_MATCHALT*/ @@ -34842,8 +30781,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_MATCH_CASE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MATCH_CASE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MATCH_CASE", (long) MELT_GET); - /*_._VALDATA___V1083*/ - meltfptr[1082] = (melt_ptr_t) meltsy_CLASS_SOURCE_MATCH_CASE; + /*_._VALDATA___V1083*/ meltfptr[1082] = (melt_ptr_t) meltsy_CLASS_SOURCE_MATCH_CASE; } /*endgetnamedsym CLASS_SOURCE_MATCH_CASE*/ @@ -34856,8 +30794,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCAM_PATT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCAM_PATT = melthookproc_HOOK_NAMED_SYMBOL ("SCAM_PATT", (long) MELT_GET); - /*_._VALDATA___V1093*/ - meltfptr[1092] = (melt_ptr_t) meltsy_SCAM_PATT; + /*_._VALDATA___V1093*/ meltfptr[1092] = (melt_ptr_t) meltsy_SCAM_PATT; } /*endgetnamedsym SCAM_PATT*/ @@ -34870,8 +30807,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCAM_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCAM_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SCAM_BODY", (long) MELT_GET); - /*_._VALDATA___V1095*/ - meltfptr[1094] = (melt_ptr_t) meltsy_SCAM_BODY; + /*_._VALDATA___V1095*/ meltfptr[1094] = (melt_ptr_t) meltsy_SCAM_BODY; } /*endgetnamedsym SCAM_BODY*/ @@ -34884,8 +30820,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_ANY_LET_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_ANY_LET_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_ANY_LET_BINDING", (long) MELT_GET); - /*_._VALDATA___V1097*/ - meltfptr[1096] = (melt_ptr_t) meltsy_CLASS_SOURCE_ANY_LET_BINDING; + /*_._VALDATA___V1097*/ meltfptr[1096] = (melt_ptr_t) meltsy_CLASS_SOURCE_ANY_LET_BINDING; } /*endgetnamedsym CLASS_SOURCE_ANY_LET_BINDING*/ @@ -34898,8 +30833,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SLETB_BINDER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLETB_BINDER = melthookproc_HOOK_NAMED_SYMBOL ("SLETB_BINDER", (long) MELT_GET); - /*_._VALDATA___V1105*/ - meltfptr[1104] = (melt_ptr_t) meltsy_SLETB_BINDER; + /*_._VALDATA___V1105*/ meltfptr[1104] = (melt_ptr_t) meltsy_SLETB_BINDER; } /*endgetnamedsym SLETB_BINDER*/ @@ -34912,8 +30846,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_MACRO_LET_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MACRO_LET_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MACRO_LET_BINDING", (long) MELT_GET); - /*_._VALDATA___V1107*/ - meltfptr[1106] = (melt_ptr_t) meltsy_CLASS_SOURCE_MACRO_LET_BINDING; + /*_._VALDATA___V1107*/ meltfptr[1106] = (melt_ptr_t) meltsy_CLASS_SOURCE_MACRO_LET_BINDING; } /*endgetnamedsym CLASS_SOURCE_MACRO_LET_BINDING*/ @@ -34926,8 +30859,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SLETM_MACRO_FORMALS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLETM_MACRO_FORMALS = melthookproc_HOOK_NAMED_SYMBOL ("SLETM_MACRO_FORMALS", (long) MELT_GET); - /*_._VALDATA___V1117*/ - meltfptr[1116] = (melt_ptr_t) meltsy_SLETM_MACRO_FORMALS; + /*_._VALDATA___V1117*/ meltfptr[1116] = (melt_ptr_t) meltsy_SLETM_MACRO_FORMALS; } /*endgetnamedsym SLETM_MACRO_FORMALS*/ @@ -34940,8 +30872,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SLETM_MACRO_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLETM_MACRO_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SLETM_MACRO_BODY", (long) MELT_GET); - /*_._VALDATA___V1119*/ - meltfptr[1118] = (melt_ptr_t) meltsy_SLETM_MACRO_BODY; + /*_._VALDATA___V1119*/ meltfptr[1118] = (melt_ptr_t) meltsy_SLETM_MACRO_BODY; } /*endgetnamedsym SLETM_MACRO_BODY*/ @@ -34954,8 +30885,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_LET_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LET_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LET_BINDING", (long) MELT_GET); - /*_._VALDATA___V1121*/ - meltfptr[1120] = (melt_ptr_t) meltsy_CLASS_SOURCE_LET_BINDING; + /*_._VALDATA___V1121*/ meltfptr[1120] = (melt_ptr_t) meltsy_CLASS_SOURCE_LET_BINDING; } /*endgetnamedsym CLASS_SOURCE_LET_BINDING*/ @@ -34968,8 +30898,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SLETB_TYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLETB_TYPE = melthookproc_HOOK_NAMED_SYMBOL ("SLETB_TYPE", (long) MELT_GET); - /*_._VALDATA___V1131*/ - meltfptr[1130] = (melt_ptr_t) meltsy_SLETB_TYPE; + /*_._VALDATA___V1131*/ meltfptr[1130] = (melt_ptr_t) meltsy_SLETB_TYPE; } /*endgetnamedsym SLETB_TYPE*/ @@ -34982,8 +30911,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SLETB_EXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLETB_EXPR = melthookproc_HOOK_NAMED_SYMBOL ("SLETB_EXPR", (long) MELT_GET); - /*_._VALDATA___V1133*/ - meltfptr[1132] = (melt_ptr_t) meltsy_SLETB_EXPR; + /*_._VALDATA___V1133*/ meltfptr[1132] = (melt_ptr_t) meltsy_SLETB_EXPR; } /*endgetnamedsym SLETB_EXPR*/ @@ -34996,8 +30924,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_LETREC_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LETREC_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LETREC_BINDING", (long) MELT_GET); - /*_._VALDATA___V1135*/ - meltfptr[1134] = (melt_ptr_t) meltsy_CLASS_SOURCE_LETREC_BINDING; + /*_._VALDATA___V1135*/ meltfptr[1134] = (melt_ptr_t) meltsy_CLASS_SOURCE_LETREC_BINDING; } /*endgetnamedsym CLASS_SOURCE_LETREC_BINDING*/ @@ -35010,8 +30937,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_LET without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LET = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LET", (long) MELT_GET); - /*_._VALDATA___V1141*/ - meltfptr[1140] = (melt_ptr_t) meltsy_CLASS_SOURCE_LET; + /*_._VALDATA___V1141*/ meltfptr[1140] = (melt_ptr_t) meltsy_CLASS_SOURCE_LET; } /*endgetnamedsym CLASS_SOURCE_LET*/ @@ -35024,8 +30950,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SLET_BINDINGS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLET_BINDINGS = melthookproc_HOOK_NAMED_SYMBOL ("SLET_BINDINGS", (long) MELT_GET); - /*_._VALDATA___V1151*/ - meltfptr[1150] = (melt_ptr_t) meltsy_SLET_BINDINGS; + /*_._VALDATA___V1151*/ meltfptr[1150] = (melt_ptr_t) meltsy_SLET_BINDINGS; } /*endgetnamedsym SLET_BINDINGS*/ @@ -35038,8 +30963,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SLET_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLET_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SLET_BODY", (long) MELT_GET); - /*_._VALDATA___V1153*/ - meltfptr[1152] = (melt_ptr_t) meltsy_SLET_BODY; + /*_._VALDATA___V1153*/ meltfptr[1152] = (melt_ptr_t) meltsy_SLET_BODY; } /*endgetnamedsym SLET_BODY*/ @@ -35052,8 +30976,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_LETREC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LETREC = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LETREC", (long) MELT_GET); - /*_._VALDATA___V1155*/ - meltfptr[1154] = (melt_ptr_t) meltsy_CLASS_SOURCE_LETREC; + /*_._VALDATA___V1155*/ meltfptr[1154] = (melt_ptr_t) meltsy_CLASS_SOURCE_LETREC; } /*endgetnamedsym CLASS_SOURCE_LETREC*/ @@ -35066,8 +30989,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_LAMBDA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LAMBDA = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LAMBDA", (long) MELT_GET); - /*_._VALDATA___V1161*/ - meltfptr[1160] = (melt_ptr_t) meltsy_CLASS_SOURCE_LAMBDA; + /*_._VALDATA___V1161*/ meltfptr[1160] = (melt_ptr_t) meltsy_CLASS_SOURCE_LAMBDA; } /*endgetnamedsym CLASS_SOURCE_LAMBDA*/ @@ -35080,8 +31002,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SLAM_ARGBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLAM_ARGBIND = melthookproc_HOOK_NAMED_SYMBOL ("SLAM_ARGBIND", (long) MELT_GET); - /*_._VALDATA___V1171*/ - meltfptr[1170] = (melt_ptr_t) meltsy_SLAM_ARGBIND; + /*_._VALDATA___V1171*/ meltfptr[1170] = (melt_ptr_t) meltsy_SLAM_ARGBIND; } /*endgetnamedsym SLAM_ARGBIND*/ @@ -35094,8 +31015,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SLAM_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLAM_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SLAM_BODY", (long) MELT_GET); - /*_._VALDATA___V1173*/ - meltfptr[1172] = (melt_ptr_t) meltsy_SLAM_BODY; + /*_._VALDATA___V1173*/ meltfptr[1172] = (melt_ptr_t) meltsy_SLAM_BODY; } /*endgetnamedsym SLAM_BODY*/ @@ -35108,8 +31028,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_IFVARIADIC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_IFVARIADIC = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_IFVARIADIC", (long) MELT_GET); - /*_._VALDATA___V1175*/ - meltfptr[1174] = (melt_ptr_t) meltsy_CLASS_SOURCE_IFVARIADIC; + /*_._VALDATA___V1175*/ meltfptr[1174] = (melt_ptr_t) meltsy_CLASS_SOURCE_IFVARIADIC; } /*endgetnamedsym CLASS_SOURCE_IFVARIADIC*/ @@ -35122,8 +31041,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SIFVARIADIC_ARGBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIFVARIADIC_ARGBIND = melthookproc_HOOK_NAMED_SYMBOL ("SIFVARIADIC_ARGBIND", (long) MELT_GET); - /*_._VALDATA___V1187*/ - meltfptr[1186] = (melt_ptr_t) meltsy_SIFVARIADIC_ARGBIND; + /*_._VALDATA___V1187*/ meltfptr[1186] = (melt_ptr_t) meltsy_SIFVARIADIC_ARGBIND; } /*endgetnamedsym SIFVARIADIC_ARGBIND*/ @@ -35136,8 +31054,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SIFVARIADIC_THEN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIFVARIADIC_THEN = melthookproc_HOOK_NAMED_SYMBOL ("SIFVARIADIC_THEN", (long) MELT_GET); - /*_._VALDATA___V1189*/ - meltfptr[1188] = (melt_ptr_t) meltsy_SIFVARIADIC_THEN; + /*_._VALDATA___V1189*/ meltfptr[1188] = (melt_ptr_t) meltsy_SIFVARIADIC_THEN; } /*endgetnamedsym SIFVARIADIC_THEN*/ @@ -35150,8 +31067,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SIFVARIADIC_ELSE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIFVARIADIC_ELSE = melthookproc_HOOK_NAMED_SYMBOL ("SIFVARIADIC_ELSE", (long) MELT_GET); - /*_._VALDATA___V1191*/ - meltfptr[1190] = (melt_ptr_t) meltsy_SIFVARIADIC_ELSE; + /*_._VALDATA___V1191*/ meltfptr[1190] = (melt_ptr_t) meltsy_SIFVARIADIC_ELSE; } /*endgetnamedsym SIFVARIADIC_ELSE*/ @@ -35164,8 +31080,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_MULTICALL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MULTICALL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MULTICALL", (long) MELT_GET); - /*_._VALDATA___V1193*/ - meltfptr[1192] = (melt_ptr_t) meltsy_CLASS_SOURCE_MULTICALL; + /*_._VALDATA___V1193*/ meltfptr[1192] = (melt_ptr_t) meltsy_CLASS_SOURCE_MULTICALL; } /*endgetnamedsym CLASS_SOURCE_MULTICALL*/ @@ -35178,8 +31093,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SMULC_RESBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMULC_RESBIND = melthookproc_HOOK_NAMED_SYMBOL ("SMULC_RESBIND", (long) MELT_GET); - /*_._VALDATA___V1205*/ - meltfptr[1204] = (melt_ptr_t) meltsy_SMULC_RESBIND; + /*_._VALDATA___V1205*/ meltfptr[1204] = (melt_ptr_t) meltsy_SMULC_RESBIND; } /*endgetnamedsym SMULC_RESBIND*/ @@ -35192,8 +31106,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SMULC_CALL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMULC_CALL = melthookproc_HOOK_NAMED_SYMBOL ("SMULC_CALL", (long) MELT_GET); - /*_._VALDATA___V1207*/ - meltfptr[1206] = (melt_ptr_t) meltsy_SMULC_CALL; + /*_._VALDATA___V1207*/ meltfptr[1206] = (melt_ptr_t) meltsy_SMULC_CALL; } /*endgetnamedsym SMULC_CALL*/ @@ -35206,8 +31119,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SMULC_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMULC_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SMULC_BODY", (long) MELT_GET); - /*_._VALDATA___V1209*/ - meltfptr[1208] = (melt_ptr_t) meltsy_SMULC_BODY; + /*_._VALDATA___V1209*/ meltfptr[1208] = (melt_ptr_t) meltsy_SMULC_BODY; } /*endgetnamedsym SMULC_BODY*/ @@ -35220,8 +31132,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_LABELLED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LABELLED = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LABELLED", (long) MELT_GET); - /*_._VALDATA___V1211*/ - meltfptr[1210] = (melt_ptr_t) meltsy_CLASS_SOURCE_LABELLED; + /*_._VALDATA___V1211*/ meltfptr[1210] = (melt_ptr_t) meltsy_CLASS_SOURCE_LABELLED; } /*endgetnamedsym CLASS_SOURCE_LABELLED*/ @@ -35234,8 +31145,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SLABEL_BIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLABEL_BIND = melthookproc_HOOK_NAMED_SYMBOL ("SLABEL_BIND", (long) MELT_GET); - /*_._VALDATA___V1219*/ - meltfptr[1218] = (melt_ptr_t) meltsy_SLABEL_BIND; + /*_._VALDATA___V1219*/ meltfptr[1218] = (melt_ptr_t) meltsy_SLABEL_BIND; } /*endgetnamedsym SLABEL_BIND*/ @@ -35248,8 +31158,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_FOREVER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_FOREVER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_FOREVER", (long) MELT_GET); - /*_._VALDATA___V1221*/ - meltfptr[1220] = (melt_ptr_t) meltsy_CLASS_SOURCE_FOREVER; + /*_._VALDATA___V1221*/ meltfptr[1220] = (melt_ptr_t) meltsy_CLASS_SOURCE_FOREVER; } /*endgetnamedsym CLASS_SOURCE_FOREVER*/ @@ -35262,8 +31171,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SFRV_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFRV_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SFRV_BODY", (long) MELT_GET); - /*_._VALDATA___V1229*/ - meltfptr[1228] = (melt_ptr_t) meltsy_SFRV_BODY; + /*_._VALDATA___V1229*/ meltfptr[1228] = (melt_ptr_t) meltsy_SFRV_BODY; } /*endgetnamedsym SFRV_BODY*/ @@ -35276,8 +31184,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_AGAIN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_AGAIN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_AGAIN", (long) MELT_GET); - /*_._VALDATA___V1231*/ - meltfptr[1230] = (melt_ptr_t) meltsy_CLASS_SOURCE_AGAIN; + /*_._VALDATA___V1231*/ meltfptr[1230] = (melt_ptr_t) meltsy_CLASS_SOURCE_AGAIN; } /*endgetnamedsym CLASS_SOURCE_AGAIN*/ @@ -35290,8 +31197,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_EXIT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXIT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXIT", (long) MELT_GET); - /*_._VALDATA___V1237*/ - meltfptr[1236] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXIT; + /*_._VALDATA___V1237*/ meltfptr[1236] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXIT; } /*endgetnamedsym CLASS_SOURCE_EXIT*/ @@ -35304,8 +31210,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SEXI_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXI_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SEXI_BODY", (long) MELT_GET); - /*_._VALDATA___V1245*/ - meltfptr[1244] = (melt_ptr_t) meltsy_SEXI_BODY; + /*_._VALDATA___V1245*/ meltfptr[1244] = (melt_ptr_t) meltsy_SEXI_BODY; } /*endgetnamedsym SEXI_BODY*/ @@ -35318,8 +31223,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_COMPILEWARNING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_COMPILEWARNING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_COMPILEWARNING", (long) MELT_GET); - /*_._VALDATA___V1247*/ - meltfptr[1246] = (melt_ptr_t) meltsy_CLASS_SOURCE_COMPILEWARNING; + /*_._VALDATA___V1247*/ meltfptr[1246] = (melt_ptr_t) meltsy_CLASS_SOURCE_COMPILEWARNING; } /*endgetnamedsym CLASS_SOURCE_COMPILEWARNING*/ @@ -35332,8 +31236,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCWARN_MSG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCWARN_MSG = melthookproc_HOOK_NAMED_SYMBOL ("SCWARN_MSG", (long) MELT_GET); - /*_._VALDATA___V1257*/ - meltfptr[1256] = (melt_ptr_t) meltsy_SCWARN_MSG; + /*_._VALDATA___V1257*/ meltfptr[1256] = (melt_ptr_t) meltsy_SCWARN_MSG; } /*endgetnamedsym SCWARN_MSG*/ @@ -35346,8 +31249,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCWARN_EXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCWARN_EXPR = melthookproc_HOOK_NAMED_SYMBOL ("SCWARN_EXPR", (long) MELT_GET); - /*_._VALDATA___V1259*/ - meltfptr[1258] = (melt_ptr_t) meltsy_SCWARN_EXPR; + /*_._VALDATA___V1259*/ meltfptr[1258] = (melt_ptr_t) meltsy_SCWARN_EXPR; } /*endgetnamedsym SCWARN_EXPR*/ @@ -35360,8 +31262,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", (long) MELT_GET); - /*_._VALDATA___V1261*/ - meltfptr[1260] = (melt_ptr_t) meltsy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; + /*_._VALDATA___V1261*/ meltfptr[1260] = (melt_ptr_t) meltsy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; } /*endgetnamedsym CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ @@ -35374,8 +31275,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CMEC_COMMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CMEC_COMMENT = melthookproc_HOOK_NAMED_SYMBOL ("CMEC_COMMENT", (long) MELT_GET); - /*_._VALDATA___V1269*/ - meltfptr[1268] = (melt_ptr_t) meltsy_CMEC_COMMENT; + /*_._VALDATA___V1269*/ meltfptr[1268] = (melt_ptr_t) meltsy_CMEC_COMMENT; } /*endgetnamedsym CMEC_COMMENT*/ @@ -35388,8 +31288,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", (long) MELT_GET); - /*_._VALDATA___V1271*/ - meltfptr[1270] = (melt_ptr_t) meltsy_CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; + /*_._VALDATA___V1271*/ meltfptr[1270] = (melt_ptr_t) meltsy_CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; } /*endgetnamedsym CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ @@ -35402,8 +31301,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", (long) MELT_GET); - /*_._VALDATA___V1277*/ - meltfptr[1276] = (melt_ptr_t) meltsy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; + /*_._VALDATA___V1277*/ meltfptr[1276] = (melt_ptr_t) meltsy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; } /*endgetnamedsym CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ @@ -35416,8 +31314,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SUCME_COMMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUCME_COMMENT = melthookproc_HOOK_NAMED_SYMBOL ("SUCME_COMMENT", (long) MELT_GET); - /*_._VALDATA___V1285*/ - meltfptr[1284] = (melt_ptr_t) meltsy_SUCME_COMMENT; + /*_._VALDATA___V1285*/ meltfptr[1284] = (melt_ptr_t) meltsy_SUCME_COMMENT; } /*endgetnamedsym SUCME_COMMENT*/ @@ -35430,8 +31327,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_FETCH_PREDEFINED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_FETCH_PREDEFINED = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_FETCH_PREDEFINED", (long) MELT_GET); - /*_._VALDATA___V1287*/ - meltfptr[1286] = (melt_ptr_t) meltsy_CLASS_SOURCE_FETCH_PREDEFINED; + /*_._VALDATA___V1287*/ meltfptr[1286] = (melt_ptr_t) meltsy_CLASS_SOURCE_FETCH_PREDEFINED; } /*endgetnamedsym CLASS_SOURCE_FETCH_PREDEFINED*/ @@ -35444,8 +31340,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SFEPD_PREDEF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFEPD_PREDEF = melthookproc_HOOK_NAMED_SYMBOL ("SFEPD_PREDEF", (long) MELT_GET); - /*_._VALDATA___V1295*/ - meltfptr[1294] = (melt_ptr_t) meltsy_SFEPD_PREDEF; + /*_._VALDATA___V1295*/ meltfptr[1294] = (melt_ptr_t) meltsy_SFEPD_PREDEF; } /*endgetnamedsym SFEPD_PREDEF*/ @@ -35458,8 +31353,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_STORE_PREDEFINED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_STORE_PREDEFINED = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_STORE_PREDEFINED", (long) MELT_GET); - /*_._VALDATA___V1297*/ - meltfptr[1296] = (melt_ptr_t) meltsy_CLASS_SOURCE_STORE_PREDEFINED; + /*_._VALDATA___V1297*/ meltfptr[1296] = (melt_ptr_t) meltsy_CLASS_SOURCE_STORE_PREDEFINED; } /*endgetnamedsym CLASS_SOURCE_STORE_PREDEFINED*/ @@ -35472,8 +31366,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SSTPD_PREDEF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SSTPD_PREDEF = melthookproc_HOOK_NAMED_SYMBOL ("SSTPD_PREDEF", (long) MELT_GET); - /*_._VALDATA___V1307*/ - meltfptr[1306] = (melt_ptr_t) meltsy_SSTPD_PREDEF; + /*_._VALDATA___V1307*/ meltfptr[1306] = (melt_ptr_t) meltsy_SSTPD_PREDEF; } /*endgetnamedsym SSTPD_PREDEF*/ @@ -35486,8 +31379,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SSTPD_VALUE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SSTPD_VALUE = melthookproc_HOOK_NAMED_SYMBOL ("SSTPD_VALUE", (long) MELT_GET); - /*_._VALDATA___V1309*/ - meltfptr[1308] = (melt_ptr_t) meltsy_SSTPD_VALUE; + /*_._VALDATA___V1309*/ meltfptr[1308] = (melt_ptr_t) meltsy_SSTPD_VALUE; } /*endgetnamedsym SSTPD_VALUE*/ @@ -35500,8 +31392,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PROTOCHUNK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PROTOCHUNK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PROTOCHUNK", (long) MELT_GET); - /*_._VALDATA___V1311*/ - meltfptr[1310] = (melt_ptr_t) meltsy_CLASS_SOURCE_PROTOCHUNK; + /*_._VALDATA___V1311*/ meltfptr[1310] = (melt_ptr_t) meltsy_CLASS_SOURCE_PROTOCHUNK; } /*endgetnamedsym CLASS_SOURCE_PROTOCHUNK*/ @@ -35514,8 +31405,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCH_GENSYM without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCH_GENSYM = melthookproc_HOOK_NAMED_SYMBOL ("SCH_GENSYM", (long) MELT_GET); - /*_._VALDATA___V1321*/ - meltfptr[1320] = (melt_ptr_t) meltsy_SCH_GENSYM; + /*_._VALDATA___V1321*/ meltfptr[1320] = (melt_ptr_t) meltsy_SCH_GENSYM; } /*endgetnamedsym SCH_GENSYM*/ @@ -35528,8 +31418,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SCH_CHUNKS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCH_CHUNKS = melthookproc_HOOK_NAMED_SYMBOL ("SCH_CHUNKS", (long) MELT_GET); - /*_._VALDATA___V1323*/ - meltfptr[1322] = (melt_ptr_t) meltsy_SCH_CHUNKS; + /*_._VALDATA___V1323*/ meltfptr[1322] = (melt_ptr_t) meltsy_SCH_CHUNKS; } /*endgetnamedsym SCH_CHUNKS*/ @@ -35542,8 +31431,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_CODECHUNK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CODECHUNK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CODECHUNK", (long) MELT_GET); - /*_._VALDATA___V1325*/ - meltfptr[1324] = (melt_ptr_t) meltsy_CLASS_SOURCE_CODECHUNK; + /*_._VALDATA___V1325*/ meltfptr[1324] = (melt_ptr_t) meltsy_CLASS_SOURCE_CODECHUNK; } /*endgetnamedsym CLASS_SOURCE_CODECHUNK*/ @@ -35556,8 +31444,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_EXPRCHUNK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPRCHUNK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPRCHUNK", (long) MELT_GET); - /*_._VALDATA___V1331*/ - meltfptr[1330] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPRCHUNK; + /*_._VALDATA___V1331*/ meltfptr[1330] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPRCHUNK; } /*endgetnamedsym CLASS_SOURCE_EXPRCHUNK*/ @@ -35570,8 +31457,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SXCH_CTYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SXCH_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("SXCH_CTYPE", (long) MELT_GET); - /*_._VALDATA___V1339*/ - meltfptr[1338] = (melt_ptr_t) meltsy_SXCH_CTYPE; + /*_._VALDATA___V1339*/ meltfptr[1338] = (melt_ptr_t) meltsy_SXCH_CTYPE; } /*endgetnamedsym SXCH_CTYPE*/ @@ -35584,8 +31470,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN", (long) MELT_GET); - /*_._VALDATA___V1341*/ - meltfptr[1340] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN; + /*_._VALDATA___V1341*/ meltfptr[1340] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN; } /*endgetnamedsym CLASS_SOURCE_PATTERN*/ @@ -35598,8 +31483,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol PAT_WEIGHT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PAT_WEIGHT = melthookproc_HOOK_NAMED_SYMBOL ("PAT_WEIGHT", (long) MELT_GET); - /*_._VALDATA___V1349*/ - meltfptr[1348] = (melt_ptr_t) meltsy_PAT_WEIGHT; + /*_._VALDATA___V1349*/ meltfptr[1348] = (melt_ptr_t) meltsy_PAT_WEIGHT; } /*endgetnamedsym PAT_WEIGHT*/ @@ -35612,8 +31496,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN_OR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_OR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_OR", (long) MELT_GET); - /*_._VALDATA___V1351*/ - meltfptr[1350] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_OR; + /*_._VALDATA___V1351*/ meltfptr[1350] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_OR; } /*endgetnamedsym CLASS_SOURCE_PATTERN_OR*/ @@ -35626,8 +31509,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol ORPAT_DISJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ORPAT_DISJ = melthookproc_HOOK_NAMED_SYMBOL ("ORPAT_DISJ", (long) MELT_GET); - /*_._VALDATA___V1359*/ - meltfptr[1358] = (melt_ptr_t) meltsy_ORPAT_DISJ; + /*_._VALDATA___V1359*/ meltfptr[1358] = (melt_ptr_t) meltsy_ORPAT_DISJ; } /*endgetnamedsym ORPAT_DISJ*/ @@ -35640,8 +31522,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN_AND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_AND = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_AND", (long) MELT_GET); - /*_._VALDATA___V1361*/ - meltfptr[1360] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_AND; + /*_._VALDATA___V1361*/ meltfptr[1360] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_AND; } /*endgetnamedsym CLASS_SOURCE_PATTERN_AND*/ @@ -35654,8 +31535,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol ANDPAT_CONJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ANDPAT_CONJ = melthookproc_HOOK_NAMED_SYMBOL ("ANDPAT_CONJ", (long) MELT_GET); - /*_._VALDATA___V1369*/ - meltfptr[1368] = (melt_ptr_t) meltsy_ANDPAT_CONJ; + /*_._VALDATA___V1369*/ meltfptr[1368] = (melt_ptr_t) meltsy_ANDPAT_CONJ; } /*endgetnamedsym ANDPAT_CONJ*/ @@ -35668,8 +31548,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN_WHEN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_WHEN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_WHEN", (long) MELT_GET); - /*_._VALDATA___V1371*/ - meltfptr[1370] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_WHEN; + /*_._VALDATA___V1371*/ meltfptr[1370] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_WHEN; } /*endgetnamedsym CLASS_SOURCE_PATTERN_WHEN*/ @@ -35682,8 +31561,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol WHENPAT_SUBPAT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_WHENPAT_SUBPAT = melthookproc_HOOK_NAMED_SYMBOL ("WHENPAT_SUBPAT", (long) MELT_GET); - /*_._VALDATA___V1381*/ - meltfptr[1380] = (melt_ptr_t) meltsy_WHENPAT_SUBPAT; + /*_._VALDATA___V1381*/ meltfptr[1380] = (melt_ptr_t) meltsy_WHENPAT_SUBPAT; } /*endgetnamedsym WHENPAT_SUBPAT*/ @@ -35696,8 +31574,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol WHENPAT_COND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_WHENPAT_COND = melthookproc_HOOK_NAMED_SYMBOL ("WHENPAT_COND", (long) MELT_GET); - /*_._VALDATA___V1383*/ - meltfptr[1382] = (melt_ptr_t) meltsy_WHENPAT_COND; + /*_._VALDATA___V1383*/ meltfptr[1382] = (melt_ptr_t) meltsy_WHENPAT_COND; } /*endgetnamedsym WHENPAT_COND*/ @@ -35710,8 +31587,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN_VARIABLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_VARIABLE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_VARIABLE", (long) MELT_GET); - /*_._VALDATA___V1385*/ - meltfptr[1384] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_VARIABLE; + /*_._VALDATA___V1385*/ meltfptr[1384] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_VARIABLE; } /*endgetnamedsym CLASS_SOURCE_PATTERN_VARIABLE*/ @@ -35724,8 +31600,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPATVAR_SYMB without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPATVAR_SYMB = melthookproc_HOOK_NAMED_SYMBOL ("SPATVAR_SYMB", (long) MELT_GET); - /*_._VALDATA___V1395*/ - meltfptr[1394] = (melt_ptr_t) meltsy_SPATVAR_SYMB; + /*_._VALDATA___V1395*/ meltfptr[1394] = (melt_ptr_t) meltsy_SPATVAR_SYMB; } /*endgetnamedsym SPATVAR_SYMB*/ @@ -35738,8 +31613,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPATVAR_NBOCC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPATVAR_NBOCC = melthookproc_HOOK_NAMED_SYMBOL ("SPATVAR_NBOCC", (long) MELT_GET); - /*_._VALDATA___V1397*/ - meltfptr[1396] = (melt_ptr_t) meltsy_SPATVAR_NBOCC; + /*_._VALDATA___V1397*/ meltfptr[1396] = (melt_ptr_t) meltsy_SPATVAR_NBOCC; } /*endgetnamedsym SPATVAR_NBOCC*/ @@ -35752,8 +31626,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPAT_VAR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAT_VAR = melthookproc_HOOK_NAMED_SYMBOL ("SPAT_VAR", (long) MELT_GET); - /*_._VALDATA___V1399*/ - meltfptr[1398] = (melt_ptr_t) meltsy_SPAT_VAR; + /*_._VALDATA___V1399*/ meltfptr[1398] = (melt_ptr_t) meltsy_SPAT_VAR; } /*endgetnamedsym SPAT_VAR*/ @@ -35766,8 +31639,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN_JOKER_VARIABLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_JOKER_VARIABLE", (long) MELT_GET); - /*_._VALDATA___V1401*/ - meltfptr[1400] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE; + /*_._VALDATA___V1401*/ meltfptr[1400] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE; } /*endgetnamedsym CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ @@ -35780,8 +31652,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN_CONSTANT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_CONSTANT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_CONSTANT", (long) MELT_GET); - /*_._VALDATA___V1407*/ - meltfptr[1406] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_CONSTANT; + /*_._VALDATA___V1407*/ meltfptr[1406] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_CONSTANT; } /*endgetnamedsym CLASS_SOURCE_PATTERN_CONSTANT*/ @@ -35794,8 +31665,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPAT_CONSTX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAT_CONSTX = melthookproc_HOOK_NAMED_SYMBOL ("SPAT_CONSTX", (long) MELT_GET); - /*_._VALDATA___V1415*/ - meltfptr[1414] = (melt_ptr_t) meltsy_SPAT_CONSTX; + /*_._VALDATA___V1415*/ meltfptr[1414] = (melt_ptr_t) meltsy_SPAT_CONSTX; } /*endgetnamedsym SPAT_CONSTX*/ @@ -35808,8 +31678,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN_CONSTRUCT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_CONSTRUCT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_CONSTRUCT", (long) MELT_GET); - /*_._VALDATA___V1417*/ - meltfptr[1416] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_CONSTRUCT; + /*_._VALDATA___V1417*/ meltfptr[1416] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_CONSTRUCT; } /*endgetnamedsym CLASS_SOURCE_PATTERN_CONSTRUCT*/ @@ -35822,8 +31691,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CTPAT_SUBPA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CTPAT_SUBPA = melthookproc_HOOK_NAMED_SYMBOL ("CTPAT_SUBPA", (long) MELT_GET); - /*_._VALDATA___V1425*/ - meltfptr[1424] = (melt_ptr_t) meltsy_CTPAT_SUBPA; + /*_._VALDATA___V1425*/ meltfptr[1424] = (melt_ptr_t) meltsy_CTPAT_SUBPA; } /*endgetnamedsym CTPAT_SUBPA*/ @@ -35836,8 +31704,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN_TUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_TUPLE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_TUPLE", (long) MELT_GET); - /*_._VALDATA___V1427*/ - meltfptr[1426] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_TUPLE; + /*_._VALDATA___V1427*/ meltfptr[1426] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_TUPLE; } /*endgetnamedsym CLASS_SOURCE_PATTERN_TUPLE*/ @@ -35850,8 +31717,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_LIST = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_LIST", (long) MELT_GET); - /*_._VALDATA___V1433*/ - meltfptr[1432] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_LIST; + /*_._VALDATA___V1433*/ meltfptr[1432] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_LIST; } /*endgetnamedsym CLASS_SOURCE_PATTERN_LIST*/ @@ -35864,8 +31730,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN_OBJECT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_OBJECT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_OBJECT", (long) MELT_GET); - /*_._VALDATA___V1439*/ - meltfptr[1438] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_OBJECT; + /*_._VALDATA___V1439*/ meltfptr[1438] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_OBJECT; } /*endgetnamedsym CLASS_SOURCE_PATTERN_OBJECT*/ @@ -35878,8 +31743,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPAT_CLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAT_CLASS = melthookproc_HOOK_NAMED_SYMBOL ("SPAT_CLASS", (long) MELT_GET); - /*_._VALDATA___V1449*/ - meltfptr[1448] = (melt_ptr_t) meltsy_SPAT_CLASS; + /*_._VALDATA___V1449*/ meltfptr[1448] = (melt_ptr_t) meltsy_SPAT_CLASS; } /*endgetnamedsym SPAT_CLASS*/ @@ -35892,8 +31756,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPAT_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAT_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("SPAT_FIELDS", (long) MELT_GET); - /*_._VALDATA___V1451*/ - meltfptr[1450] = (melt_ptr_t) meltsy_SPAT_FIELDS; + /*_._VALDATA___V1451*/ meltfptr[1450] = (melt_ptr_t) meltsy_SPAT_FIELDS; } /*endgetnamedsym SPAT_FIELDS*/ @@ -35906,8 +31769,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN_INSTANCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_INSTANCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_INSTANCE", (long) MELT_GET); - /*_._VALDATA___V1453*/ - meltfptr[1452] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_INSTANCE; + /*_._VALDATA___V1453*/ meltfptr[1452] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_INSTANCE; } /*endgetnamedsym CLASS_SOURCE_PATTERN_INSTANCE*/ @@ -35920,8 +31782,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_FIELD_PATTERN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_FIELD_PATTERN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_FIELD_PATTERN", (long) MELT_GET); - /*_._VALDATA___V1459*/ - meltfptr[1458] = (melt_ptr_t) meltsy_CLASS_SOURCE_FIELD_PATTERN; + /*_._VALDATA___V1459*/ meltfptr[1458] = (melt_ptr_t) meltsy_CLASS_SOURCE_FIELD_PATTERN; } /*endgetnamedsym CLASS_SOURCE_FIELD_PATTERN*/ @@ -35934,8 +31795,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPAF_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAF_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("SPAF_FIELD", (long) MELT_GET); - /*_._VALDATA___V1469*/ - meltfptr[1468] = (melt_ptr_t) meltsy_SPAF_FIELD; + /*_._VALDATA___V1469*/ meltfptr[1468] = (melt_ptr_t) meltsy_SPAF_FIELD; } /*endgetnamedsym SPAF_FIELD*/ @@ -35948,8 +31808,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPAF_PATTERN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAF_PATTERN = melthookproc_HOOK_NAMED_SYMBOL ("SPAF_PATTERN", (long) MELT_GET); - /*_._VALDATA___V1471*/ - meltfptr[1470] = (melt_ptr_t) meltsy_SPAF_PATTERN; + /*_._VALDATA___V1471*/ meltfptr[1470] = (melt_ptr_t) meltsy_SPAF_PATTERN; } /*endgetnamedsym SPAF_PATTERN*/ @@ -35962,8 +31821,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN_COMPOSITE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_COMPOSITE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_COMPOSITE", (long) MELT_GET); - /*_._VALDATA___V1473*/ - meltfptr[1472] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_COMPOSITE; + /*_._VALDATA___V1473*/ meltfptr[1472] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_COMPOSITE; } /*endgetnamedsym CLASS_SOURCE_PATTERN_COMPOSITE*/ @@ -35976,8 +31834,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPAC_OPERATOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAC_OPERATOR = melthookproc_HOOK_NAMED_SYMBOL ("SPAC_OPERATOR", (long) MELT_GET); - /*_._VALDATA___V1487*/ - meltfptr[1486] = (melt_ptr_t) meltsy_SPAC_OPERATOR; + /*_._VALDATA___V1487*/ meltfptr[1486] = (melt_ptr_t) meltsy_SPAC_OPERATOR; } /*endgetnamedsym SPAC_OPERATOR*/ @@ -35990,8 +31847,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPAC_OPERBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAC_OPERBIND = melthookproc_HOOK_NAMED_SYMBOL ("SPAC_OPERBIND", (long) MELT_GET); - /*_._VALDATA___V1489*/ - meltfptr[1488] = (melt_ptr_t) meltsy_SPAC_OPERBIND; + /*_._VALDATA___V1489*/ meltfptr[1488] = (melt_ptr_t) meltsy_SPAC_OPERBIND; } /*endgetnamedsym SPAC_OPERBIND*/ @@ -36004,8 +31860,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPAC_INARGS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAC_INARGS = melthookproc_HOOK_NAMED_SYMBOL ("SPAC_INARGS", (long) MELT_GET); - /*_._VALDATA___V1491*/ - meltfptr[1490] = (melt_ptr_t) meltsy_SPAC_INARGS; + /*_._VALDATA___V1491*/ meltfptr[1490] = (melt_ptr_t) meltsy_SPAC_INARGS; } /*endgetnamedsym SPAC_INARGS*/ @@ -36018,8 +31873,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SPAC_OUTARGS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAC_OUTARGS = melthookproc_HOOK_NAMED_SYMBOL ("SPAC_OUTARGS", (long) MELT_GET); - /*_._VALDATA___V1493*/ - meltfptr[1492] = (melt_ptr_t) meltsy_SPAC_OUTARGS; + /*_._VALDATA___V1493*/ meltfptr[1492] = (melt_ptr_t) meltsy_SPAC_OUTARGS; } /*endgetnamedsym SPAC_OUTARGS*/ @@ -36032,8 +31886,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN_MATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_MATCHER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_MATCHER", (long) MELT_GET); - /*_._VALDATA___V1495*/ - meltfptr[1494] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_MATCHER; + /*_._VALDATA___V1495*/ meltfptr[1494] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_MATCHER; } /*endgetnamedsym CLASS_SOURCE_PATTERN_MATCHER*/ @@ -36046,8 +31899,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN_C_MATCH without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_C_MATCH = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_C_MATCH", (long) MELT_GET); - /*_._VALDATA___V1501*/ - meltfptr[1500] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_C_MATCH; + /*_._VALDATA___V1501*/ meltfptr[1500] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_C_MATCH; } /*endgetnamedsym CLASS_SOURCE_PATTERN_C_MATCH*/ @@ -36060,8 +31912,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_PATTERN_FUN_MATCH without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_FUN_MATCH = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_FUN_MATCH", (long) MELT_GET); - /*_._VALDATA___V1507*/ - meltfptr[1506] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_FUN_MATCH; + /*_._VALDATA___V1507*/ meltfptr[1506] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_FUN_MATCH; } /*endgetnamedsym CLASS_SOURCE_PATTERN_FUN_MATCH*/ @@ -36081,8 +31932,7 @@ void* 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___V1518*/ - meltfptr[1517] = (melt_ptr_t) meltsy_DISCR_CONSTANT_INTEGER; + /*_._VALDATA___V1518*/ meltfptr[1517] = (melt_ptr_t) meltsy_DISCR_CONSTANT_INTEGER; } /*endgetnamedsym DISCR_CONSTANT_INTEGER*/ @@ -36095,8 +31945,7 @@ void* 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___V1522*/ - meltfptr[1521] = (melt_ptr_t) meltsy_CLASS_ENVIRONMENT; + /*_._VALDATA___V1522*/ meltfptr[1521] = (melt_ptr_t) meltsy_CLASS_ENVIRONMENT; } /*endgetnamedsym CLASS_ENVIRONMENT*/ @@ -36109,8 +31958,7 @@ void* 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___V1532*/ - meltfptr[1531] = (melt_ptr_t) meltsy_DISCR_LIST; + /*_._VALDATA___V1532*/ meltfptr[1531] = (melt_ptr_t) meltsy_DISCR_LIST; } /*endgetnamedsym DISCR_LIST*/ @@ -36123,8 +31971,7 @@ void* 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___V1536*/ - meltfptr[1535] = (melt_ptr_t) meltsy_CLASS_ANY_MODULE_CONTEXT; + /*_._VALDATA___V1536*/ meltfptr[1535] = (melt_ptr_t) meltsy_CLASS_ANY_MODULE_CONTEXT; } /*endgetnamedsym CLASS_ANY_MODULE_CONTEXT*/ @@ -36137,8 +31984,7 @@ void* 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___V1565*/ - meltfptr[1564] = (melt_ptr_t) meltsy_CLASS_FIELD; + /*_._VALDATA___V1565*/ meltfptr[1564] = (melt_ptr_t) meltsy_CLASS_FIELD; } /*endgetnamedsym CLASS_FIELD*/ @@ -36151,8 +31997,7 @@ void* 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___V1567*/ - meltfptr[1566] = (melt_ptr_t) meltsy_CLASS_CITERATOR; + /*_._VALDATA___V1567*/ meltfptr[1566] = (melt_ptr_t) meltsy_CLASS_CITERATOR; } /*endgetnamedsym CLASS_CITERATOR*/ @@ -36165,8 +32010,7 @@ void* 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___V1569*/ - meltfptr[1568] = (melt_ptr_t) meltsy_FRESH_ENV; + /*_._VALDATA___V1569*/ meltfptr[1568] = (melt_ptr_t) meltsy_FRESH_ENV; } /*endgetnamedsym FRESH_ENV*/ @@ -36179,8 +32023,7 @@ void* 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___V1571*/ - meltfptr[1570] = (melt_ptr_t) meltsy_PUT_ENV; + /*_._VALDATA___V1571*/ meltfptr[1570] = (melt_ptr_t) meltsy_PUT_ENV; } /*endgetnamedsym PUT_ENV*/ @@ -36193,8 +32036,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_CMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CMATCHER", (long) MELT_GET); - /*_._VALDATA___V1573*/ - meltfptr[1572] = (melt_ptr_t) meltsy_CLASS_CMATCHER; + /*_._VALDATA___V1573*/ meltfptr[1572] = (melt_ptr_t) meltsy_CLASS_CMATCHER; } /*endgetnamedsym CLASS_CMATCHER*/ @@ -36207,8 +32049,7 @@ void* 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___V1575*/ - meltfptr[1574] = (melt_ptr_t) meltsy_CLASS_ANY_MATCHER; + /*_._VALDATA___V1575*/ meltfptr[1574] = (melt_ptr_t) meltsy_CLASS_ANY_MATCHER; } /*endgetnamedsym CLASS_ANY_MATCHER*/ @@ -36221,8 +32062,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_FUNMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FUNMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FUNMATCHER", (long) MELT_GET); - /*_._VALDATA___V1577*/ - meltfptr[1576] = (melt_ptr_t) meltsy_CLASS_FUNMATCHER; + /*_._VALDATA___V1577*/ meltfptr[1576] = (melt_ptr_t) meltsy_CLASS_FUNMATCHER; } /*endgetnamedsym CLASS_FUNMATCHER*/ @@ -36235,8 +32075,7 @@ void* 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___V1579*/ - meltfptr[1578] = (melt_ptr_t) meltsy_FIND_ENV; + /*_._VALDATA___V1579*/ meltfptr[1578] = (melt_ptr_t) meltsy_FIND_ENV; } /*endgetnamedsym FIND_ENV*/ @@ -36249,8 +32088,7 @@ void* 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___V1581*/ - meltfptr[1580] = (melt_ptr_t) meltsy_DEBUG_LESS; + /*_._VALDATA___V1581*/ meltfptr[1580] = (melt_ptr_t) meltsy_DEBUG_LESS; } /*endgetnamedsym DEBUG_LESS*/ @@ -36263,8 +32101,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SELECTOR_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SELECTOR_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SELECTOR_BINDING", (long) MELT_GET); - /*_._VALDATA___V1583*/ - meltfptr[1582] = (melt_ptr_t) meltsy_CLASS_SELECTOR_BINDING; + /*_._VALDATA___V1583*/ meltfptr[1582] = (melt_ptr_t) meltsy_CLASS_SELECTOR_BINDING; } /*endgetnamedsym CLASS_SELECTOR_BINDING*/ @@ -36277,8 +32114,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_PRIMITIVE_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_PRIMITIVE_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_PRIMITIVE_BINDING", (long) MELT_GET); - /*_._VALDATA___V1585*/ - meltfptr[1584] = (melt_ptr_t) meltsy_CLASS_PRIMITIVE_BINDING; + /*_._VALDATA___V1585*/ meltfptr[1584] = (melt_ptr_t) meltsy_CLASS_PRIMITIVE_BINDING; } /*endgetnamedsym CLASS_PRIMITIVE_BINDING*/ @@ -36291,8 +32127,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_CITERATOR_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CITERATOR_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CITERATOR_BINDING", (long) MELT_GET); - /*_._VALDATA___V1587*/ - meltfptr[1586] = (melt_ptr_t) meltsy_CLASS_CITERATOR_BINDING; + /*_._VALDATA___V1587*/ meltfptr[1586] = (melt_ptr_t) meltsy_CLASS_CITERATOR_BINDING; } /*endgetnamedsym CLASS_CITERATOR_BINDING*/ @@ -36305,8 +32140,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_HOOK_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_HOOK_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_HOOK_BINDING", (long) MELT_GET); - /*_._VALDATA___V1589*/ - meltfptr[1588] = (melt_ptr_t) meltsy_CLASS_HOOK_BINDING; + /*_._VALDATA___V1589*/ meltfptr[1588] = (melt_ptr_t) meltsy_CLASS_HOOK_BINDING; } /*endgetnamedsym CLASS_HOOK_BINDING*/ @@ -36319,8 +32153,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_CMATCHER_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CMATCHER_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CMATCHER_BINDING", (long) MELT_GET); - /*_._VALDATA___V1591*/ - meltfptr[1590] = (melt_ptr_t) meltsy_CLASS_CMATCHER_BINDING; + /*_._VALDATA___V1591*/ meltfptr[1590] = (melt_ptr_t) meltsy_CLASS_CMATCHER_BINDING; } /*endgetnamedsym CLASS_CMATCHER_BINDING*/ @@ -36333,8 +32166,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_FUNMATCHER_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FUNMATCHER_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FUNMATCHER_BINDING", (long) MELT_GET); - /*_._VALDATA___V1593*/ - meltfptr[1592] = (melt_ptr_t) meltsy_CLASS_FUNMATCHER_BINDING; + /*_._VALDATA___V1593*/ meltfptr[1592] = (melt_ptr_t) meltsy_CLASS_FUNMATCHER_BINDING; } /*endgetnamedsym CLASS_FUNMATCHER_BINDING*/ @@ -36347,8 +32179,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_FIELD_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FIELD_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FIELD_BINDING", (long) MELT_GET); - /*_._VALDATA___V1595*/ - meltfptr[1594] = (melt_ptr_t) meltsy_CLASS_FIELD_BINDING; + /*_._VALDATA___V1595*/ meltfptr[1594] = (melt_ptr_t) meltsy_CLASS_FIELD_BINDING; } /*endgetnamedsym CLASS_FIELD_BINDING*/ @@ -36361,8 +32192,7 @@ void* 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___V1597*/ - meltfptr[1596] = (melt_ptr_t) meltsy_CLASS_FORMAL_BINDING; + /*_._VALDATA___V1597*/ meltfptr[1596] = (melt_ptr_t) meltsy_CLASS_FORMAL_BINDING; } /*endgetnamedsym CLASS_FORMAL_BINDING*/ @@ -36375,8 +32205,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_LET_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_LET_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_LET_BINDING", (long) MELT_GET); - /*_._VALDATA___V1599*/ - meltfptr[1598] = (melt_ptr_t) meltsy_CLASS_LET_BINDING; + /*_._VALDATA___V1599*/ meltfptr[1598] = (melt_ptr_t) meltsy_CLASS_LET_BINDING; } /*endgetnamedsym CLASS_LET_BINDING*/ @@ -36389,8 +32218,7 @@ void* 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___V1601*/ - meltfptr[1600] = (melt_ptr_t) meltsy_CLASS_VALUE_BINDING; + /*_._VALDATA___V1601*/ meltfptr[1600] = (melt_ptr_t) meltsy_CLASS_VALUE_BINDING; } /*endgetnamedsym CLASS_VALUE_BINDING*/ @@ -36403,8 +32231,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_PRIMITIVE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_PRIMITIVE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_PRIMITIVE", (long) MELT_GET); - /*_._VALDATA___V1603*/ - meltfptr[1602] = (melt_ptr_t) meltsy_CLASS_PRIMITIVE; + /*_._VALDATA___V1603*/ meltfptr[1602] = (melt_ptr_t) meltsy_CLASS_PRIMITIVE; } /*endgetnamedsym CLASS_PRIMITIVE*/ @@ -36417,8 +32244,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_PATTERN_EXPANSION_CONTEXT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_PATTERN_EXPANSION_CONTEXT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_PATTERN_EXPANSION_CONTEXT", (long) MELT_GET); - /*_._VALDATA___V1605*/ - meltfptr[1604] = (melt_ptr_t) meltsy_CLASS_PATTERN_EXPANSION_CONTEXT; + /*_._VALDATA___V1605*/ meltfptr[1604] = (melt_ptr_t) meltsy_CLASS_PATTERN_EXPANSION_CONTEXT; } /*endgetnamedsym CLASS_PATTERN_EXPANSION_CONTEXT*/ @@ -36431,8 +32257,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_ROOT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_ROOT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_ROOT", (long) MELT_GET); - /*_._VALDATA___V1607*/ - meltfptr[1606] = (melt_ptr_t) meltsy_CLASS_ROOT; + /*_._VALDATA___V1607*/ meltfptr[1606] = (melt_ptr_t) meltsy_CLASS_ROOT; } /*endgetnamedsym CLASS_ROOT*/ @@ -36445,8 +32270,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol PCTX_MEXPANDER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PCTX_MEXPANDER = melthookproc_HOOK_NAMED_SYMBOL ("PCTX_MEXPANDER", (long) MELT_GET); - /*_._VALDATA___V1621*/ - meltfptr[1620] = (melt_ptr_t) meltsy_PCTX_MEXPANDER; + /*_._VALDATA___V1621*/ meltfptr[1620] = (melt_ptr_t) meltsy_PCTX_MEXPANDER; } /*endgetnamedsym PCTX_MEXPANDER*/ @@ -36459,8 +32283,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol PCTX_PEXPANDER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PCTX_PEXPANDER = melthookproc_HOOK_NAMED_SYMBOL ("PCTX_PEXPANDER", (long) MELT_GET); - /*_._VALDATA___V1623*/ - meltfptr[1622] = (melt_ptr_t) meltsy_PCTX_PEXPANDER; + /*_._VALDATA___V1623*/ meltfptr[1622] = (melt_ptr_t) meltsy_PCTX_PEXPANDER; } /*endgetnamedsym PCTX_PEXPANDER*/ @@ -36473,8 +32296,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol PCTX_VARMAP without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PCTX_VARMAP = melthookproc_HOOK_NAMED_SYMBOL ("PCTX_VARMAP", (long) MELT_GET); - /*_._VALDATA___V1625*/ - meltfptr[1624] = (melt_ptr_t) meltsy_PCTX_VARMAP; + /*_._VALDATA___V1625*/ meltfptr[1624] = (melt_ptr_t) meltsy_PCTX_VARMAP; } /*endgetnamedsym PCTX_VARMAP*/ @@ -36487,8 +32309,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol PCTX_MODCTX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PCTX_MODCTX = melthookproc_HOOK_NAMED_SYMBOL ("PCTX_MODCTX", (long) MELT_GET); - /*_._VALDATA___V1627*/ - meltfptr[1626] = (melt_ptr_t) meltsy_PCTX_MODCTX; + /*_._VALDATA___V1627*/ meltfptr[1626] = (melt_ptr_t) meltsy_PCTX_MODCTX; } /*endgetnamedsym PCTX_MODCTX*/ @@ -36501,8 +32322,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol PAIRLIST_TO_MULTIPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PAIRLIST_TO_MULTIPLE = melthookproc_HOOK_NAMED_SYMBOL ("PAIRLIST_TO_MULTIPLE", (long) MELT_GET); - /*_._VALDATA___V1651*/ - meltfptr[1650] = (melt_ptr_t) meltsy_PAIRLIST_TO_MULTIPLE; + /*_._VALDATA___V1651*/ meltfptr[1650] = (melt_ptr_t) meltsy_PAIRLIST_TO_MULTIPLE; } /*endgetnamedsym PAIRLIST_TO_MULTIPLE*/ @@ -36515,8 +32335,7 @@ void* 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___V1653*/ - meltfptr[1652] = (melt_ptr_t) meltsy_CLASS_REFERENCE; + /*_._VALDATA___V1653*/ meltfptr[1652] = (melt_ptr_t) meltsy_CLASS_REFERENCE; } /*endgetnamedsym CLASS_REFERENCE*/ @@ -36529,8 +32348,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MULTIPLE_MAP without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MULTIPLE_MAP = melthookproc_HOOK_NAMED_SYMBOL ("MULTIPLE_MAP", (long) MELT_GET); - /*_._VALDATA___V1655*/ - meltfptr[1654] = (melt_ptr_t) meltsy_MULTIPLE_MAP; + /*_._VALDATA___V1655*/ meltfptr[1654] = (melt_ptr_t) meltsy_MULTIPLE_MAP; } /*endgetnamedsym MULTIPLE_MAP*/ @@ -36543,8 +32361,7 @@ void* 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___V1657*/ - meltfptr[1656] = (melt_ptr_t) meltsy_DISCR_INTEGER; + /*_._VALDATA___V1657*/ meltfptr[1656] = (melt_ptr_t) meltsy_DISCR_INTEGER; } /*endgetnamedsym DISCR_INTEGER*/ @@ -36557,8 +32374,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_PATMACRO_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_PATMACRO_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_PATMACRO_BINDING", (long) MELT_GET); - /*_._VALDATA___V1659*/ - meltfptr[1658] = (melt_ptr_t) meltsy_CLASS_PATMACRO_BINDING; + /*_._VALDATA___V1659*/ meltfptr[1658] = (melt_ptr_t) meltsy_CLASS_PATMACRO_BINDING; } /*endgetnamedsym CLASS_PATMACRO_BINDING*/ @@ -36571,8 +32387,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol QUESTION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_QUESTION = melthookproc_HOOK_NAMED_SYMBOL ("QUESTION", (long) MELT_GET); - /*_._VALDATA___V1632*/ - meltfptr[1631] = (melt_ptr_t) meltsy_QUESTION; + /*_._VALDATA___V1632*/ meltfptr[1631] = (melt_ptr_t) meltsy_QUESTION; } /*endgetnamedsym QUESTION*/ @@ -36585,8 +32400,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol _ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy__ = melthookproc_HOOK_NAMED_SYMBOL ("_", (long) MELT_GET); - /*_._VALDATA___V1635*/ - meltfptr[1634] = (melt_ptr_t) meltsy__; + /*_._VALDATA___V1635*/ meltfptr[1634] = (melt_ptr_t) meltsy__; } /*endgetnamedsym _*/ @@ -36599,8 +32413,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CTYPE_VALUE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CTYPE_VALUE = melthookproc_HOOK_NAMED_SYMBOL ("CTYPE_VALUE", (long) MELT_GET); - /*_._VALDATA___V1663*/ - meltfptr[1662] = (melt_ptr_t) meltsy_CTYPE_VALUE; + /*_._VALDATA___V1663*/ meltfptr[1662] = (melt_ptr_t) meltsy_CTYPE_VALUE; } /*endgetnamedsym CTYPE_VALUE*/ @@ -36613,8 +32426,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DISCR_FORMAL_SEQUENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_FORMAL_SEQUENCE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_FORMAL_SEQUENCE", (long) MELT_GET); - /*_._VALDATA___V1665*/ - meltfptr[1664] = (melt_ptr_t) meltsy_DISCR_FORMAL_SEQUENCE; + /*_._VALDATA___V1665*/ meltfptr[1664] = (melt_ptr_t) meltsy_DISCR_FORMAL_SEQUENCE; } /*endgetnamedsym DISCR_FORMAL_SEQUENCE*/ @@ -36634,8 +32446,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DISCR_VARIADIC_FORMAL_SEQUENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_VARIADIC_FORMAL_SEQUENCE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_VARIADIC_FORMAL_SEQUENCE", (long) MELT_GET); - /*_._VALDATA___V1667*/ - meltfptr[1666] = (melt_ptr_t) meltsy_DISCR_VARIADIC_FORMAL_SEQUENCE; + /*_._VALDATA___V1667*/ meltfptr[1666] = (melt_ptr_t) meltsy_DISCR_VARIADIC_FORMAL_SEQUENCE; } /*endgetnamedsym DISCR_VARIADIC_FORMAL_SEQUENCE*/ @@ -36655,8 +32466,7 @@ void* 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___V1669*/ - meltfptr[1668] = (melt_ptr_t) meltsy_CLASS_CTYPE; + /*_._VALDATA___V1669*/ meltfptr[1668] = (melt_ptr_t) meltsy_CLASS_CTYPE; } /*endgetnamedsym CLASS_CTYPE*/ @@ -36669,8 +32479,7 @@ void* 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___V1671*/ - meltfptr[1670] = (melt_ptr_t) meltsy_CLASS_QUASI_CTYPE; + /*_._VALDATA___V1671*/ meltfptr[1670] = (melt_ptr_t) meltsy_CLASS_QUASI_CTYPE; } /*endgetnamedsym CLASS_QUASI_CTYPE*/ @@ -36683,8 +32492,7 @@ void* 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___V1673*/ - meltfptr[1672] = (melt_ptr_t) meltsy_CLASS_ANY_BINDING; + /*_._VALDATA___V1673*/ meltfptr[1672] = (melt_ptr_t) meltsy_CLASS_ANY_BINDING; } /*endgetnamedsym CLASS_ANY_BINDING*/ @@ -36697,8 +32505,7 @@ void* 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___V1677*/ - meltfptr[1676] = (melt_ptr_t) meltsy_INITIAL_ENVIRONMENT; + /*_._VALDATA___V1677*/ meltfptr[1676] = (melt_ptr_t) meltsy_INITIAL_ENVIRONMENT; } /*endgetnamedsym INITIAL_ENVIRONMENT*/ @@ -36711,8 +32518,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol WARN_SHADOW without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_WARN_SHADOW = melthookproc_HOOK_NAMED_SYMBOL ("WARN_SHADOW", (long) MELT_GET); - /*_._VALDATA___V1681*/ - meltfptr[1680] = (melt_ptr_t) meltsy_WARN_SHADOW; + /*_._VALDATA___V1681*/ meltfptr[1680] = (melt_ptr_t) meltsy_WARN_SHADOW; } /*endgetnamedsym WARN_SHADOW*/ @@ -36725,8 +32531,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DISCR_VERBATIM_STRING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_VERBATIM_STRING = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_VERBATIM_STRING", (long) MELT_GET); - /*_._VALDATA___V1692*/ - meltfptr[1691] = (melt_ptr_t) meltsy_DISCR_VERBATIM_STRING; + /*_._VALDATA___V1692*/ meltfptr[1691] = (melt_ptr_t) meltsy_DISCR_VERBATIM_STRING; } /*endgetnamedsym DISCR_VERBATIM_STRING*/ @@ -36746,8 +32551,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DEFPRIMITIVE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFPRIMITIVE = melthookproc_HOOK_NAMED_SYMBOL ("DEFPRIMITIVE", (long) MELT_GET); - /*_._VALDATA___V1706*/ - meltfptr[1705] = (melt_ptr_t) meltsy_DEFPRIMITIVE; + /*_._VALDATA___V1706*/ meltfptr[1705] = (melt_ptr_t) meltsy_DEFPRIMITIVE; } /*endgetnamedsym DEFPRIMITIVE*/ @@ -36760,8 +32564,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DEFCITERATOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFCITERATOR = melthookproc_HOOK_NAMED_SYMBOL ("DEFCITERATOR", (long) MELT_GET); - /*_._VALDATA___V1710*/ - meltfptr[1709] = (melt_ptr_t) meltsy_DEFCITERATOR; + /*_._VALDATA___V1710*/ meltfptr[1709] = (melt_ptr_t) meltsy_DEFCITERATOR; } /*endgetnamedsym DEFCITERATOR*/ @@ -36774,8 +32577,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DEFCMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFCMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("DEFCMATCHER", (long) MELT_GET); - /*_._VALDATA___V1714*/ - meltfptr[1713] = (melt_ptr_t) meltsy_DEFCMATCHER; + /*_._VALDATA___V1714*/ meltfptr[1713] = (melt_ptr_t) meltsy_DEFCMATCHER; } /*endgetnamedsym DEFCMATCHER*/ @@ -36788,8 +32590,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DEFUNMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFUNMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("DEFUNMATCHER", (long) MELT_GET); - /*_._VALDATA___V1718*/ - meltfptr[1717] = (melt_ptr_t) meltsy_DEFUNMATCHER; + /*_._VALDATA___V1718*/ meltfptr[1717] = (melt_ptr_t) meltsy_DEFUNMATCHER; } /*endgetnamedsym DEFUNMATCHER*/ @@ -36802,8 +32603,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_FUNCTION_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FUNCTION_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FUNCTION_BINDING", (long) MELT_GET); - /*_._VALDATA___V1722*/ - meltfptr[1721] = (melt_ptr_t) meltsy_CLASS_FUNCTION_BINDING; + /*_._VALDATA___V1722*/ meltfptr[1721] = (melt_ptr_t) meltsy_CLASS_FUNCTION_BINDING; } /*endgetnamedsym CLASS_FUNCTION_BINDING*/ @@ -36816,8 +32616,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DEFUN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFUN = melthookproc_HOOK_NAMED_SYMBOL ("DEFUN", (long) MELT_GET); - /*_._VALDATA___V1724*/ - meltfptr[1723] = (melt_ptr_t) meltsy_DEFUN; + /*_._VALDATA___V1724*/ meltfptr[1723] = (melt_ptr_t) meltsy_DEFUN; } /*endgetnamedsym DEFUN*/ @@ -36830,8 +32629,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DEBUG_MORE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEBUG_MORE = melthookproc_HOOK_NAMED_SYMBOL ("DEBUG_MORE", (long) MELT_GET); - /*_._VALDATA___V1728*/ - meltfptr[1727] = (melt_ptr_t) meltsy_DEBUG_MORE; + /*_._VALDATA___V1728*/ meltfptr[1727] = (melt_ptr_t) meltsy_DEBUG_MORE; } /*endgetnamedsym DEBUG_MORE*/ @@ -36844,8 +32642,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DEFMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFMACRO = melthookproc_HOOK_NAMED_SYMBOL ("DEFMACRO", (long) MELT_GET); - /*_._VALDATA___V1733*/ - meltfptr[1732] = (melt_ptr_t) meltsy_DEFMACRO; + /*_._VALDATA___V1733*/ meltfptr[1732] = (melt_ptr_t) meltsy_DEFMACRO; } /*endgetnamedsym DEFMACRO*/ @@ -36858,8 +32655,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MBIND = melthookproc_HOOK_NAMED_SYMBOL ("MBIND", (long) MELT_GET); - /*_._VALDATA___V1739*/ - meltfptr[1738] = (melt_ptr_t) meltsy_MBIND; + /*_._VALDATA___V1739*/ meltfptr[1738] = (melt_ptr_t) meltsy_MBIND; } /*endgetnamedsym MBIND*/ @@ -36872,8 +32668,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MEXPCLOS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MEXPCLOS = melthookproc_HOOK_NAMED_SYMBOL ("MEXPCLOS", (long) MELT_GET); - /*_._VALDATA___V1742*/ - meltfptr[1741] = (melt_ptr_t) meltsy_MEXPCLOS; + /*_._VALDATA___V1742*/ meltfptr[1741] = (melt_ptr_t) meltsy_MEXPCLOS; } /*endgetnamedsym MEXPCLOS*/ @@ -36886,8 +32681,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol AT_MACRO_EXPANSION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_AT_MACRO_EXPANSION = melthookproc_HOOK_NAMED_SYMBOL ("AT_MACRO_EXPANSION", (long) MELT_GET); - /*_._VALDATA___V1748*/ - meltfptr[1747] = (melt_ptr_t) meltsy_AT_MACRO_EXPANSION; + /*_._VALDATA___V1748*/ meltfptr[1747] = (melt_ptr_t) meltsy_AT_MACRO_EXPANSION; } /*endgetnamedsym AT_MACRO_EXPANSION*/ @@ -36900,8 +32694,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_VARIABLE_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_VARIABLE_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_VARIABLE_BINDING", (long) MELT_GET); - /*_._VALDATA___V1752*/ - meltfptr[1751] = (melt_ptr_t) meltsy_CLASS_VARIABLE_BINDING; + /*_._VALDATA___V1752*/ meltfptr[1751] = (melt_ptr_t) meltsy_CLASS_VARIABLE_BINDING; } /*endgetnamedsym CLASS_VARIABLE_BINDING*/ @@ -36914,8 +32707,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DEFVAR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFVAR = melthookproc_HOOK_NAMED_SYMBOL ("DEFVAR", (long) MELT_GET); - /*_._VALDATA___V1754*/ - meltfptr[1753] = (melt_ptr_t) meltsy_DEFVAR; + /*_._VALDATA___V1754*/ meltfptr[1753] = (melt_ptr_t) meltsy_DEFVAR; } /*endgetnamedsym DEFVAR*/ @@ -36928,8 +32720,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SYMBOL_CNAME without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SYMBOL_CNAME = melthookproc_HOOK_NAMED_SYMBOL ("SYMBOL_CNAME", (long) MELT_GET); - /*_._VALDATA___V1762*/ - meltfptr[1761] = (melt_ptr_t) meltsy_SYMBOL_CNAME; + /*_._VALDATA___V1762*/ meltfptr[1761] = (melt_ptr_t) meltsy_SYMBOL_CNAME; } /*endgetnamedsym SYMBOL_CNAME*/ @@ -36956,8 +32747,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DEFHOOK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFHOOK = melthookproc_HOOK_NAMED_SYMBOL ("DEFHOOK", (long) MELT_GET); - /*_._VALDATA___V1764*/ - meltfptr[1763] = (melt_ptr_t) meltsy_DEFHOOK; + /*_._VALDATA___V1764*/ meltfptr[1763] = (melt_ptr_t) meltsy_DEFHOOK; } /*endgetnamedsym DEFHOOK*/ @@ -36970,8 +32760,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_DEFINED_VALUE_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_DEFINED_VALUE_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_DEFINED_VALUE_BINDING", (long) MELT_GET); - /*_._VALDATA___V1768*/ - meltfptr[1767] = (melt_ptr_t) meltsy_CLASS_DEFINED_VALUE_BINDING; + /*_._VALDATA___V1768*/ meltfptr[1767] = (melt_ptr_t) meltsy_CLASS_DEFINED_VALUE_BINDING; } /*endgetnamedsym CLASS_DEFINED_VALUE_BINDING*/ @@ -36984,8 +32773,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DEFINE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFINE = melthookproc_HOOK_NAMED_SYMBOL ("DEFINE", (long) MELT_GET); - /*_._VALDATA___V1770*/ - meltfptr[1769] = (melt_ptr_t) meltsy_DEFINE; + /*_._VALDATA___V1770*/ meltfptr[1769] = (melt_ptr_t) meltsy_DEFINE; } /*endgetnamedsym DEFINE*/ @@ -37005,8 +32793,7 @@ void* 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___V1778*/ - meltfptr[1777] = (melt_ptr_t) meltsy_CLASS_CLASS_BINDING; + /*_._VALDATA___V1778*/ meltfptr[1777] = (melt_ptr_t) meltsy_CLASS_CLASS_BINDING; } /*endgetnamedsym CLASS_CLASS_BINDING*/ @@ -37019,8 +32806,7 @@ void* 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___V1780*/ - meltfptr[1779] = (melt_ptr_t) meltsy_CLASS_CLASS; + /*_._VALDATA___V1780*/ meltfptr[1779] = (melt_ptr_t) meltsy_CLASS_CLASS; } /*endgetnamedsym CLASS_CLASS*/ @@ -37040,8 +32826,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DISCR_CLASS_SEQUENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_CLASS_SEQUENCE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_CLASS_SEQUENCE", (long) MELT_GET); - /*_._VALDATA___V1784*/ - meltfptr[1783] = (melt_ptr_t) meltsy_DISCR_CLASS_SEQUENCE; + /*_._VALDATA___V1784*/ meltfptr[1783] = (melt_ptr_t) meltsy_DISCR_CLASS_SEQUENCE; } /*endgetnamedsym DISCR_CLASS_SEQUENCE*/ @@ -37054,8 +32839,7 @@ void* 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___V1786*/ - meltfptr[1785] = (melt_ptr_t) meltsy_DISCR_MAP_STRINGS; + /*_._VALDATA___V1786*/ meltfptr[1785] = (melt_ptr_t) meltsy_DISCR_MAP_STRINGS; } /*endgetnamedsym DISCR_MAP_STRINGS*/ @@ -37068,8 +32852,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DISCR_FIELD_SEQUENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_FIELD_SEQUENCE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_FIELD_SEQUENCE", (long) MELT_GET); - /*_._VALDATA___V1788*/ - meltfptr[1787] = (melt_ptr_t) meltsy_DISCR_FIELD_SEQUENCE; + /*_._VALDATA___V1788*/ meltfptr[1787] = (melt_ptr_t) meltsy_DISCR_FIELD_SEQUENCE; } /*endgetnamedsym DISCR_FIELD_SEQUENCE*/ @@ -37082,8 +32865,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DEFCLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFCLASS = melthookproc_HOOK_NAMED_SYMBOL ("DEFCLASS", (long) MELT_GET); - /*_._VALDATA___V1790*/ - meltfptr[1789] = (melt_ptr_t) meltsy_DEFCLASS; + /*_._VALDATA___V1790*/ meltfptr[1789] = (melt_ptr_t) meltsy_DEFCLASS; } /*endgetnamedsym DEFCLASS*/ @@ -37096,8 +32878,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MULTIPLE_ITERATE_TEST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MULTIPLE_ITERATE_TEST = melthookproc_HOOK_NAMED_SYMBOL ("MULTIPLE_ITERATE_TEST", (long) MELT_GET); - /*_._VALDATA___V1795*/ - meltfptr[1794] = (melt_ptr_t) meltsy_MULTIPLE_ITERATE_TEST; + /*_._VALDATA___V1795*/ meltfptr[1794] = (melt_ptr_t) meltsy_MULTIPLE_ITERATE_TEST; } /*endgetnamedsym MULTIPLE_ITERATE_TEST*/ @@ -37110,8 +32891,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_INSTANCE_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_INSTANCE_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_INSTANCE_BINDING", (long) MELT_GET); - /*_._VALDATA___V1801*/ - meltfptr[1800] = (melt_ptr_t) meltsy_CLASS_INSTANCE_BINDING; + /*_._VALDATA___V1801*/ meltfptr[1800] = (melt_ptr_t) meltsy_CLASS_INSTANCE_BINDING; } /*endgetnamedsym CLASS_INSTANCE_BINDING*/ @@ -37131,8 +32911,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DEFINSTANCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFINSTANCE = melthookproc_HOOK_NAMED_SYMBOL ("DEFINSTANCE", (long) MELT_GET); - /*_._VALDATA___V1803*/ - meltfptr[1802] = (melt_ptr_t) meltsy_DEFINSTANCE; + /*_._VALDATA___V1803*/ meltfptr[1802] = (melt_ptr_t) meltsy_DEFINSTANCE; } /*endgetnamedsym DEFINSTANCE*/ @@ -37152,8 +32931,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DEFSELECTOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFSELECTOR = melthookproc_HOOK_NAMED_SYMBOL ("DEFSELECTOR", (long) MELT_GET); - /*_._VALDATA___V1809*/ - meltfptr[1808] = (melt_ptr_t) meltsy_DEFSELECTOR; + /*_._VALDATA___V1809*/ meltfptr[1808] = (melt_ptr_t) meltsy_DEFSELECTOR; } /*endgetnamedsym DEFSELECTOR*/ @@ -37166,8 +32944,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol LOAD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LOAD = melthookproc_HOOK_NAMED_SYMBOL ("LOAD", (long) MELT_GET); - /*_._VALDATA___V1815*/ - meltfptr[1814] = (melt_ptr_t) meltsy_LOAD; + /*_._VALDATA___V1815*/ meltfptr[1814] = (melt_ptr_t) meltsy_LOAD; } /*endgetnamedsym LOAD*/ @@ -37180,8 +32957,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol OBJECT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_OBJECT = melthookproc_HOOK_NAMED_SYMBOL ("OBJECT", (long) MELT_GET); - /*_._VALDATA___V1828*/ - meltfptr[1827] = (melt_ptr_t) meltsy_OBJECT; + /*_._VALDATA___V1828*/ meltfptr[1827] = (melt_ptr_t) meltsy_OBJECT; } /*endgetnamedsym OBJECT*/ @@ -37194,8 +32970,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SEXPR_MACROSTRING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SEXPR_MACROSTRING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SEXPR_MACROSTRING", (long) MELT_GET); - /*_._VALDATA___V1833*/ - meltfptr[1832] = (melt_ptr_t) meltsy_CLASS_SEXPR_MACROSTRING; + /*_._VALDATA___V1833*/ meltfptr[1832] = (melt_ptr_t) meltsy_CLASS_SEXPR_MACROSTRING; } /*endgetnamedsym CLASS_SEXPR_MACROSTRING*/ @@ -37208,8 +32983,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CODE_CHUNK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CODE_CHUNK = melthookproc_HOOK_NAMED_SYMBOL ("CODE_CHUNK", (long) MELT_GET); - /*_._VALDATA___V1837*/ - meltfptr[1836] = (melt_ptr_t) meltsy_CODE_CHUNK; + /*_._VALDATA___V1837*/ meltfptr[1836] = (melt_ptr_t) meltsy_CODE_CHUNK; } /*endgetnamedsym CODE_CHUNK*/ @@ -37222,8 +32996,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol EXPR_CHUNK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPR_CHUNK = melthookproc_HOOK_NAMED_SYMBOL ("EXPR_CHUNK", (long) MELT_GET); - /*_._VALDATA___V1841*/ - meltfptr[1840] = (melt_ptr_t) meltsy_EXPR_CHUNK; + /*_._VALDATA___V1841*/ meltfptr[1840] = (melt_ptr_t) meltsy_EXPR_CHUNK; } /*endgetnamedsym EXPR_CHUNK*/ @@ -37236,8 +33009,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol UNSAFE_PUT_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_UNSAFE_PUT_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("UNSAFE_PUT_FIELDS", (long) MELT_GET); - /*_._VALDATA___V1845*/ - meltfptr[1844] = (melt_ptr_t) meltsy_UNSAFE_PUT_FIELDS; + /*_._VALDATA___V1845*/ meltfptr[1844] = (melt_ptr_t) meltsy_UNSAFE_PUT_FIELDS; } /*endgetnamedsym UNSAFE_PUT_FIELDS*/ @@ -37250,8 +33022,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol PUT_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PUT_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("PUT_FIELDS", (long) MELT_GET); - /*_._VALDATA___V1849*/ - meltfptr[1848] = (melt_ptr_t) meltsy_PUT_FIELDS; + /*_._VALDATA___V1849*/ meltfptr[1848] = (melt_ptr_t) meltsy_PUT_FIELDS; } /*endgetnamedsym PUT_FIELDS*/ @@ -37264,8 +33035,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol IF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_IF = melthookproc_HOOK_NAMED_SYMBOL ("IF", (long) MELT_GET); - /*_._VALDATA___V1862*/ - meltfptr[1861] = (melt_ptr_t) meltsy_IF; + /*_._VALDATA___V1862*/ meltfptr[1861] = (melt_ptr_t) meltsy_IF; } /*endgetnamedsym IF*/ @@ -37278,8 +33048,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol WHEN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_WHEN = melthookproc_HOOK_NAMED_SYMBOL ("WHEN", (long) MELT_GET); - /*_._VALDATA___V1866*/ - meltfptr[1865] = (melt_ptr_t) meltsy_WHEN; + /*_._VALDATA___V1866*/ meltfptr[1865] = (melt_ptr_t) meltsy_WHEN; } /*endgetnamedsym WHEN*/ @@ -37292,8 +33061,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol UNLESS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_UNLESS = melthookproc_HOOK_NAMED_SYMBOL ("UNLESS", (long) MELT_GET); - /*_._VALDATA___V1870*/ - meltfptr[1869] = (melt_ptr_t) meltsy_UNLESS; + /*_._VALDATA___V1870*/ meltfptr[1869] = (melt_ptr_t) meltsy_UNLESS; } /*endgetnamedsym UNLESS*/ @@ -37306,8 +33074,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLONE_SYMBOL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLONE_SYMBOL = melthookproc_HOOK_NAMED_SYMBOL ("CLONE_SYMBOL", (long) MELT_GET); - /*_._VALDATA___V1874*/ - meltfptr[1873] = (melt_ptr_t) meltsy_CLONE_SYMBOL; + /*_._VALDATA___V1874*/ meltfptr[1873] = (melt_ptr_t) meltsy_CLONE_SYMBOL; } /*endgetnamedsym CLONE_SYMBOL*/ @@ -37320,8 +33087,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MULTIPLE_TO_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MULTIPLE_TO_LIST = melthookproc_HOOK_NAMED_SYMBOL ("MULTIPLE_TO_LIST", (long) MELT_GET); - /*_._VALDATA___V1877*/ - meltfptr[1876] = (melt_ptr_t) meltsy_MULTIPLE_TO_LIST; + /*_._VALDATA___V1877*/ meltfptr[1876] = (melt_ptr_t) meltsy_MULTIPLE_TO_LIST; } /*endgetnamedsym MULTIPLE_TO_LIST*/ @@ -37334,8 +33100,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol WITH_CLONED_SYMB without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_WITH_CLONED_SYMB = melthookproc_HOOK_NAMED_SYMBOL ("WITH_CLONED_SYMB", (long) MELT_GET); - /*_._VALDATA___V1879*/ - meltfptr[1878] = (melt_ptr_t) meltsy_WITH_CLONED_SYMB; + /*_._VALDATA___V1879*/ meltfptr[1878] = (melt_ptr_t) meltsy_WITH_CLONED_SYMB; } /*endgetnamedsym WITH_CLONED_SYMB*/ @@ -37348,8 +33113,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CPPIF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CPPIF = melthookproc_HOOK_NAMED_SYMBOL ("CPPIF", (long) MELT_GET); - /*_._VALDATA___V1883*/ - meltfptr[1882] = (melt_ptr_t) meltsy_CPPIF; + /*_._VALDATA___V1883*/ meltfptr[1882] = (melt_ptr_t) meltsy_CPPIF; } /*endgetnamedsym CPPIF*/ @@ -37362,8 +33126,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol AS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_AS = melthookproc_HOOK_NAMED_SYMBOL ("AS", (long) MELT_GET); - /*_._VALDATA___V1895*/ - meltfptr[1894] = (melt_ptr_t) meltsy_AS; + /*_._VALDATA___V1895*/ meltfptr[1894] = (melt_ptr_t) meltsy_AS; } /*endgetnamedsym AS*/ @@ -37376,8 +33139,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol OR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_OR = melthookproc_HOOK_NAMED_SYMBOL ("OR", (long) MELT_GET); - /*_._VALDATA___V1906*/ - meltfptr[1905] = (melt_ptr_t) meltsy_OR; + /*_._VALDATA___V1906*/ meltfptr[1905] = (melt_ptr_t) meltsy_OR; } /*endgetnamedsym OR*/ @@ -37390,8 +33152,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FIELDS", (long) MELT_GET); - /*_._VALDATA___V1912*/ - meltfptr[1911] = (melt_ptr_t) meltsy_CLASS_FIELDS; + /*_._VALDATA___V1912*/ meltfptr[1911] = (melt_ptr_t) meltsy_CLASS_FIELDS; } /*endgetnamedsym CLASS_FIELDS*/ @@ -37411,8 +33172,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("REFERENCE", (long) MELT_GET); - /*_._VALDATA___V1917*/ - meltfptr[1916] = (melt_ptr_t) meltsy_REFERENCE; + /*_._VALDATA___V1917*/ meltfptr[1916] = (melt_ptr_t) meltsy_REFERENCE; } /*endgetnamedsym REFERENCE*/ @@ -37425,8 +33185,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol REFERENCED_VALUE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REFERENCED_VALUE = melthookproc_HOOK_NAMED_SYMBOL ("REFERENCED_VALUE", (long) MELT_GET); - /*_._VALDATA___V1921*/ - meltfptr[1920] = (melt_ptr_t) meltsy_REFERENCED_VALUE; + /*_._VALDATA___V1921*/ meltfptr[1920] = (melt_ptr_t) meltsy_REFERENCED_VALUE; } /*endgetnamedsym REFERENCED_VALUE*/ @@ -37439,8 +33198,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DEREF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEREF = melthookproc_HOOK_NAMED_SYMBOL ("DEREF", (long) MELT_GET); - /*_._VALDATA___V1923*/ - meltfptr[1922] = (melt_ptr_t) meltsy_DEREF; + /*_._VALDATA___V1923*/ meltfptr[1922] = (melt_ptr_t) meltsy_DEREF; } /*endgetnamedsym DEREF*/ @@ -37453,8 +33211,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CONTENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CONTENT = melthookproc_HOOK_NAMED_SYMBOL ("CONTENT", (long) MELT_GET); - /*_._VALDATA___V1927*/ - meltfptr[1926] = (melt_ptr_t) meltsy_CONTENT; + /*_._VALDATA___V1927*/ meltfptr[1926] = (melt_ptr_t) meltsy_CONTENT; } /*endgetnamedsym CONTENT*/ @@ -37467,8 +33224,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol EXCLAIM without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXCLAIM = melthookproc_HOOK_NAMED_SYMBOL ("EXCLAIM", (long) MELT_GET); - /*_._VALDATA___V1929*/ - meltfptr[1928] = (melt_ptr_t) meltsy_EXCLAIM; + /*_._VALDATA___V1929*/ meltfptr[1928] = (melt_ptr_t) meltsy_EXCLAIM; } /*endgetnamedsym EXCLAIM*/ @@ -37481,8 +33237,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol SET_REF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SET_REF = melthookproc_HOOK_NAMED_SYMBOL ("SET_REF", (long) MELT_GET); - /*_._VALDATA___V1933*/ - meltfptr[1932] = (melt_ptr_t) meltsy_SET_REF; + /*_._VALDATA___V1933*/ meltfptr[1932] = (melt_ptr_t) meltsy_SET_REF; } /*endgetnamedsym SET_REF*/ @@ -37495,8 +33250,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol +I without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_plI = melthookproc_HOOK_NAMED_SYMBOL ("+I", (long) MELT_GET); - /*_._VALDATA___V1938*/ - meltfptr[1937] = (melt_ptr_t) meltsy_plI; + /*_._VALDATA___V1938*/ meltfptr[1937] = (melt_ptr_t) meltsy_plI; } /*endgetnamedsym +I*/ @@ -37509,8 +33263,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol -I without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_miI = melthookproc_HOOK_NAMED_SYMBOL ("-I", (long) MELT_GET); - /*_._VALDATA___V1943*/ - meltfptr[1942] = (melt_ptr_t) meltsy_miI; + /*_._VALDATA___V1943*/ meltfptr[1942] = (melt_ptr_t) meltsy_miI; } /*endgetnamedsym -I*/ @@ -37523,8 +33276,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol - without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_mi = melthookproc_HOOK_NAMED_SYMBOL ("-", (long) MELT_GET); - /*_._VALDATA___V1945*/ - meltfptr[1944] = (melt_ptr_t) meltsy_mi; + /*_._VALDATA___V1945*/ meltfptr[1944] = (melt_ptr_t) meltsy_mi; } /*endgetnamedsym -*/ @@ -37537,8 +33289,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol *I without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_stI = melthookproc_HOOK_NAMED_SYMBOL ("*I", (long) MELT_GET); - /*_._VALDATA___V1950*/ - meltfptr[1949] = (melt_ptr_t) meltsy_stI; + /*_._VALDATA___V1950*/ meltfptr[1949] = (melt_ptr_t) meltsy_stI; } /*endgetnamedsym *I*/ @@ -37551,8 +33302,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol * without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_st = melthookproc_HOOK_NAMED_SYMBOL ("*", (long) MELT_GET); - /*_._VALDATA___V1952*/ - meltfptr[1951] = (melt_ptr_t) meltsy_st; + /*_._VALDATA___V1952*/ meltfptr[1951] = (melt_ptr_t) meltsy_st; } /*endgetnamedsym **/ @@ -37565,8 +33315,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol /I without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_diI = melthookproc_HOOK_NAMED_SYMBOL ("/I", (long) MELT_GET); - /*_._VALDATA___V1957*/ - meltfptr[1956] = (melt_ptr_t) meltsy_diI; + /*_._VALDATA___V1957*/ meltfptr[1956] = (melt_ptr_t) meltsy_diI; } /*endgetnamedsym /I*/ @@ -37579,8 +33328,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol / without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_di = melthookproc_HOOK_NAMED_SYMBOL ("/", (long) MELT_GET); - /*_._VALDATA___V1959*/ - meltfptr[1958] = (melt_ptr_t) meltsy_di; + /*_._VALDATA___V1959*/ meltfptr[1958] = (melt_ptr_t) meltsy_di; } /*endgetnamedsym /*/ @@ -37593,8 +33341,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol TUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TUPLE = melthookproc_HOOK_NAMED_SYMBOL ("TUPLE", (long) MELT_GET); - /*_._VALDATA___V1965*/ - meltfptr[1964] = (melt_ptr_t) meltsy_TUPLE; + /*_._VALDATA___V1965*/ meltfptr[1964] = (melt_ptr_t) meltsy_TUPLE; } /*endgetnamedsym TUPLE*/ @@ -37607,8 +33354,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LIST = melthookproc_HOOK_NAMED_SYMBOL ("LIST", (long) MELT_GET); - /*_._VALDATA___V1971*/ - meltfptr[1970] = (melt_ptr_t) meltsy_LIST; + /*_._VALDATA___V1971*/ meltfptr[1970] = (melt_ptr_t) meltsy_LIST; } /*endgetnamedsym LIST*/ @@ -37621,8 +33367,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MATCH without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MATCH = melthookproc_HOOK_NAMED_SYMBOL ("MATCH", (long) MELT_GET); - /*_._VALDATA___V1976*/ - meltfptr[1975] = (melt_ptr_t) meltsy_MATCH; + /*_._VALDATA___V1976*/ meltfptr[1975] = (melt_ptr_t) meltsy_MATCH; } /*endgetnamedsym MATCH*/ @@ -37635,8 +33380,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MATCHALT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MATCHALT = melthookproc_HOOK_NAMED_SYMBOL ("MATCHALT", (long) MELT_GET); - /*_._VALDATA___V1981*/ - meltfptr[1980] = (melt_ptr_t) meltsy_MATCHALT; + /*_._VALDATA___V1981*/ meltfptr[1980] = (melt_ptr_t) meltsy_MATCHALT; } /*endgetnamedsym MATCHALT*/ @@ -37649,8 +33393,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol QUASI_CTYPE_AUTO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_QUASI_CTYPE_AUTO = melthookproc_HOOK_NAMED_SYMBOL ("QUASI_CTYPE_AUTO", (long) MELT_GET); - /*_._VALDATA___V1985*/ - meltfptr[1984] = (melt_ptr_t) meltsy_QUASI_CTYPE_AUTO; + /*_._VALDATA___V1985*/ meltfptr[1984] = (melt_ptr_t) meltsy_QUASI_CTYPE_AUTO; } /*endgetnamedsym QUASI_CTYPE_AUTO*/ @@ -37663,8 +33406,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol QUASI_CTYPE_MACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_QUASI_CTYPE_MACRO = melthookproc_HOOK_NAMED_SYMBOL ("QUASI_CTYPE_MACRO", (long) MELT_GET); - /*_._VALDATA___V1987*/ - meltfptr[1986] = (melt_ptr_t) meltsy_QUASI_CTYPE_MACRO; + /*_._VALDATA___V1987*/ meltfptr[1986] = (melt_ptr_t) meltsy_QUASI_CTYPE_MACRO; } /*endgetnamedsym QUASI_CTYPE_MACRO*/ @@ -37677,8 +33419,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_FIXED_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FIXED_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FIXED_BINDING", (long) MELT_GET); - /*_._VALDATA___V1989*/ - meltfptr[1988] = (melt_ptr_t) meltsy_CLASS_FIXED_BINDING; + /*_._VALDATA___V1989*/ meltfptr[1988] = (melt_ptr_t) meltsy_CLASS_FIXED_BINDING; } /*endgetnamedsym CLASS_FIXED_BINDING*/ @@ -37691,8 +33432,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol INSTALL_METHOD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_INSTALL_METHOD = melthookproc_HOOK_NAMED_SYMBOL ("INSTALL_METHOD", (long) MELT_GET); - /*_._VALDATA___V1997*/ - meltfptr[1996] = (melt_ptr_t) meltsy_INSTALL_METHOD; + /*_._VALDATA___V1997*/ meltfptr[1996] = (melt_ptr_t) meltsy_INSTALL_METHOD; } /*endgetnamedsym INSTALL_METHOD*/ @@ -37705,8 +33445,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_LETREC_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_LETREC_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_LETREC_BINDING", (long) MELT_GET); - /*_._VALDATA___V2003*/ - meltfptr[2002] = (melt_ptr_t) meltsy_CLASS_LETREC_BINDING; + /*_._VALDATA___V2003*/ meltfptr[2002] = (melt_ptr_t) meltsy_CLASS_LETREC_BINDING; } /*endgetnamedsym CLASS_LETREC_BINDING*/ @@ -37719,8 +33458,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol LETREC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LETREC = melthookproc_HOOK_NAMED_SYMBOL ("LETREC", (long) MELT_GET); - /*_._VALDATA___V2005*/ - meltfptr[2004] = (melt_ptr_t) meltsy_LETREC; + /*_._VALDATA___V2005*/ meltfptr[2004] = (melt_ptr_t) meltsy_LETREC; } /*endgetnamedsym LETREC*/ @@ -37733,8 +33471,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol LAMBDA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LAMBDA = melthookproc_HOOK_NAMED_SYMBOL ("LAMBDA", (long) MELT_GET); - /*_._VALDATA___V2010*/ - meltfptr[2009] = (melt_ptr_t) meltsy_LAMBDA; + /*_._VALDATA___V2010*/ meltfptr[2009] = (melt_ptr_t) meltsy_LAMBDA; } /*endgetnamedsym LAMBDA*/ @@ -37747,8 +33484,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MULTIPLE_EVERY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MULTIPLE_EVERY = melthookproc_HOOK_NAMED_SYMBOL ("MULTIPLE_EVERY", (long) MELT_GET); - /*_._VALDATA___V2022*/ - meltfptr[2021] = (melt_ptr_t) meltsy_MULTIPLE_EVERY; + /*_._VALDATA___V2022*/ meltfptr[2021] = (melt_ptr_t) meltsy_MULTIPLE_EVERY; } /*endgetnamedsym MULTIPLE_EVERY*/ @@ -37761,8 +33497,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MULTICALL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MULTICALL = melthookproc_HOOK_NAMED_SYMBOL ("MULTICALL", (long) MELT_GET); - /*_._VALDATA___V2024*/ - meltfptr[2023] = (melt_ptr_t) meltsy_MULTICALL; + /*_._VALDATA___V2024*/ meltfptr[2023] = (melt_ptr_t) meltsy_MULTICALL; } /*endgetnamedsym MULTICALL*/ @@ -37775,8 +33510,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol UNBOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_UNBOX = melthookproc_HOOK_NAMED_SYMBOL ("UNBOX", (long) MELT_GET); - /*_._VALDATA___V2032*/ - meltfptr[2031] = (melt_ptr_t) meltsy_UNBOX; + /*_._VALDATA___V2032*/ meltfptr[2031] = (melt_ptr_t) meltsy_UNBOX; } /*endgetnamedsym UNBOX*/ @@ -37789,8 +33523,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol COMMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COMMENT = melthookproc_HOOK_NAMED_SYMBOL ("COMMENT", (long) MELT_GET); - /*_._VALDATA___V2036*/ - meltfptr[2035] = (melt_ptr_t) meltsy_COMMENT; + /*_._VALDATA___V2036*/ meltfptr[2035] = (melt_ptr_t) meltsy_COMMENT; } /*endgetnamedsym COMMENT*/ @@ -37803,8 +33536,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CHEADER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CHEADER = melthookproc_HOOK_NAMED_SYMBOL ("CHEADER", (long) MELT_GET); - /*_._VALDATA___V2040*/ - meltfptr[2039] = (melt_ptr_t) meltsy_CHEADER; + /*_._VALDATA___V2040*/ meltfptr[2039] = (melt_ptr_t) meltsy_CHEADER; } /*endgetnamedsym CHEADER*/ @@ -37817,8 +33549,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CIMPLEMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CIMPLEMENT = melthookproc_HOOK_NAMED_SYMBOL ("CIMPLEMENT", (long) MELT_GET); - /*_._VALDATA___V2044*/ - meltfptr[2043] = (melt_ptr_t) meltsy_CIMPLEMENT; + /*_._VALDATA___V2044*/ meltfptr[2043] = (melt_ptr_t) meltsy_CIMPLEMENT; } /*endgetnamedsym CIMPLEMENT*/ @@ -37831,8 +33562,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MODULE_IS_GPL_COMPATIBLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MODULE_IS_GPL_COMPATIBLE = melthookproc_HOOK_NAMED_SYMBOL ("MODULE_IS_GPL_COMPATIBLE", (long) MELT_GET); - /*_._VALDATA___V2048*/ - meltfptr[2047] = (melt_ptr_t) meltsy_MODULE_IS_GPL_COMPATIBLE; + /*_._VALDATA___V2048*/ meltfptr[2047] = (melt_ptr_t) meltsy_MODULE_IS_GPL_COMPATIBLE; } /*endgetnamedsym MODULE_IS_GPL_COMPATIBLE*/ @@ -37845,8 +33575,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol USE_PACKAGE_FROM_PKG_CONFIG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_USE_PACKAGE_FROM_PKG_CONFIG = melthookproc_HOOK_NAMED_SYMBOL ("USE_PACKAGE_FROM_PKG_CONFIG", (long) MELT_GET); - /*_._VALDATA___V2052*/ - meltfptr[2051] = (melt_ptr_t) meltsy_USE_PACKAGE_FROM_PKG_CONFIG; + /*_._VALDATA___V2052*/ meltfptr[2051] = (melt_ptr_t) meltsy_USE_PACKAGE_FROM_PKG_CONFIG; } /*endgetnamedsym USE_PACKAGE_FROM_PKG_CONFIG*/ @@ -37859,8 +33588,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol USE-PACKAGE-FROM-PKG-CONFIG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_USEmiPACKAGEmiFROMmiPKGmiCONFIG = melthookproc_HOOK_NAMED_SYMBOL ("USE-PACKAGE-FROM-PKG-CONFIG", (long) MELT_GET); - /*_._VALDATA___V2054*/ - meltfptr[2053] = (melt_ptr_t) meltsy_USEmiPACKAGEmiFROMmiPKGmiCONFIG; + /*_._VALDATA___V2054*/ meltfptr[2053] = (melt_ptr_t) meltsy_USEmiPACKAGEmiFROMmiPKGmiCONFIG; } /*endgetnamedsym USE-PACKAGE-FROM-PKG-CONFIG*/ @@ -37873,8 +33601,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol PROGN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PROGN = melthookproc_HOOK_NAMED_SYMBOL ("PROGN", (long) MELT_GET); - /*_._VALDATA___V2061*/ - meltfptr[2060] = (melt_ptr_t) meltsy_PROGN; + /*_._VALDATA___V2061*/ meltfptr[2060] = (melt_ptr_t) meltsy_PROGN; } /*endgetnamedsym PROGN*/ @@ -37887,8 +33614,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol RETURN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_RETURN = melthookproc_HOOK_NAMED_SYMBOL ("RETURN", (long) MELT_GET); - /*_._VALDATA___V2065*/ - meltfptr[2064] = (melt_ptr_t) meltsy_RETURN; + /*_._VALDATA___V2065*/ meltfptr[2064] = (melt_ptr_t) meltsy_RETURN; } /*endgetnamedsym RETURN*/ @@ -37901,8 +33627,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_LABEL_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_LABEL_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_LABEL_BINDING", (long) MELT_GET); - /*_._VALDATA___V2070*/ - meltfptr[2069] = (melt_ptr_t) meltsy_CLASS_LABEL_BINDING; + /*_._VALDATA___V2070*/ meltfptr[2069] = (melt_ptr_t) meltsy_CLASS_LABEL_BINDING; } /*endgetnamedsym CLASS_LABEL_BINDING*/ @@ -37915,8 +33640,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol AGAIN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_AGAIN = melthookproc_HOOK_NAMED_SYMBOL ("AGAIN", (long) MELT_GET); - /*_._VALDATA___V2077*/ - meltfptr[2076] = (melt_ptr_t) meltsy_AGAIN; + /*_._VALDATA___V2077*/ meltfptr[2076] = (melt_ptr_t) meltsy_AGAIN; } /*endgetnamedsym AGAIN*/ @@ -37929,8 +33653,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol COMPILE_WARNING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COMPILE_WARNING = melthookproc_HOOK_NAMED_SYMBOL ("COMPILE_WARNING", (long) MELT_GET); - /*_._VALDATA___V2081*/ - meltfptr[2080] = (melt_ptr_t) meltsy_COMPILE_WARNING; + /*_._VALDATA___V2081*/ meltfptr[2080] = (melt_ptr_t) meltsy_COMPILE_WARNING; } /*endgetnamedsym COMPILE_WARNING*/ @@ -37943,8 +33666,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol FIND_ENV_DEBUG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_FIND_ENV_DEBUG = melthookproc_HOOK_NAMED_SYMBOL ("FIND_ENV_DEBUG", (long) MELT_GET); - /*_._VALDATA___V2087*/ - meltfptr[2086] = (melt_ptr_t) meltsy_FIND_ENV_DEBUG; + /*_._VALDATA___V2087*/ meltfptr[2086] = (melt_ptr_t) meltsy_FIND_ENV_DEBUG; } /*endgetnamedsym FIND_ENV_DEBUG*/ @@ -37957,8 +33679,7 @@ void* 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___V2089*/ - meltfptr[2088] = (melt_ptr_t) meltsy_LIST_APPEND2LIST; + /*_._VALDATA___V2089*/ meltfptr[2088] = (melt_ptr_t) meltsy_LIST_APPEND2LIST; } /*endgetnamedsym LIST_APPEND2LIST*/ @@ -37971,8 +33692,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MELT_HAVE_DEBUG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_HAVE_DEBUG = melthookproc_HOOK_NAMED_SYMBOL ("MELT_HAVE_DEBUG", (long) MELT_GET); - /*_._VALDATA___V2084*/ - meltfptr[2083] = (melt_ptr_t) meltsy_MELT_HAVE_DEBUG; + /*_._VALDATA___V2084*/ meltfptr[2083] = (melt_ptr_t) meltsy_MELT_HAVE_DEBUG; } /*endgetnamedsym MELT_HAVE_DEBUG*/ @@ -37985,8 +33705,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol THIS_LINE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_THIS_LINE = melthookproc_HOOK_NAMED_SYMBOL ("THIS_LINE", (long) MELT_GET); - /*_._VALDATA___V2093*/ - meltfptr[2092] = (melt_ptr_t) meltsy_THIS_LINE; + /*_._VALDATA___V2093*/ meltfptr[2092] = (melt_ptr_t) meltsy_THIS_LINE; } /*endgetnamedsym THIS_LINE*/ @@ -37999,8 +33718,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol THIS_FILE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_THIS_FILE = melthookproc_HOOK_NAMED_SYMBOL ("THIS_FILE", (long) MELT_GET); - /*_._VALDATA___V2097*/ - meltfptr[2096] = (melt_ptr_t) meltsy_THIS_FILE; + /*_._VALDATA___V2097*/ meltfptr[2096] = (melt_ptr_t) meltsy_THIS_FILE; } /*endgetnamedsym THIS_FILE*/ @@ -38013,8 +33731,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MELT_CALLCOUNT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_CALLCOUNT = melthookproc_HOOK_NAMED_SYMBOL ("MELT_CALLCOUNT", (long) MELT_GET); - /*_._VALDATA___V2100*/ - meltfptr[2099] = (melt_ptr_t) meltsy_MELT_CALLCOUNT; + /*_._VALDATA___V2100*/ meltfptr[2099] = (melt_ptr_t) meltsy_MELT_CALLCOUNT; } /*endgetnamedsym MELT_CALLCOUNT*/ @@ -38027,8 +33744,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MELT_NEED_DBG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_NEED_DBG = melthookproc_HOOK_NAMED_SYMBOL ("MELT_NEED_DBG", (long) MELT_GET); - /*_._VALDATA___V2102*/ - meltfptr[2101] = (melt_ptr_t) meltsy_MELT_NEED_DBG; + /*_._VALDATA___V2102*/ meltfptr[2101] = (melt_ptr_t) meltsy_MELT_NEED_DBG; } /*endgetnamedsym MELT_NEED_DBG*/ @@ -38041,8 +33757,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MELT_INCREMENT_DBGCOUNTER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_INCREMENT_DBGCOUNTER = melthookproc_HOOK_NAMED_SYMBOL ("MELT_INCREMENT_DBGCOUNTER", (long) MELT_GET); - /*_._VALDATA___V2104*/ - meltfptr[2103] = (melt_ptr_t) meltsy_MELT_INCREMENT_DBGCOUNTER; + /*_._VALDATA___V2104*/ meltfptr[2103] = (melt_ptr_t) meltsy_MELT_INCREMENT_DBGCOUNTER; } /*endgetnamedsym MELT_INCREMENT_DBGCOUNTER*/ @@ -38055,8 +33770,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol DEBUG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEBUG = melthookproc_HOOK_NAMED_SYMBOL ("DEBUG", (long) MELT_GET); - /*_._VALDATA___V2108*/ - meltfptr[2107] = (melt_ptr_t) meltsy_DEBUG; + /*_._VALDATA___V2108*/ meltfptr[2107] = (melt_ptr_t) meltsy_DEBUG; } /*endgetnamedsym DEBUG*/ @@ -38069,8 +33783,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol EXPORT_VALUES without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPORT_VALUES = melthookproc_HOOK_NAMED_SYMBOL ("EXPORT_VALUES", (long) MELT_GET); - /*_._VALDATA___V2113*/ - meltfptr[2112] = (melt_ptr_t) meltsy_EXPORT_VALUES; + /*_._VALDATA___V2113*/ meltfptr[2112] = (melt_ptr_t) meltsy_EXPORT_VALUES; } /*endgetnamedsym EXPORT_VALUES*/ @@ -38083,8 +33796,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol EXPORT_MACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPORT_MACRO = melthookproc_HOOK_NAMED_SYMBOL ("EXPORT_MACRO", (long) MELT_GET); - /*_._VALDATA___V2117*/ - meltfptr[2116] = (melt_ptr_t) meltsy_EXPORT_MACRO; + /*_._VALDATA___V2117*/ meltfptr[2116] = (melt_ptr_t) meltsy_EXPORT_MACRO; } /*endgetnamedsym EXPORT_MACRO*/ @@ -38097,8 +33809,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol EXPORT_PATMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPORT_PATMACRO = melthookproc_HOOK_NAMED_SYMBOL ("EXPORT_PATMACRO", (long) MELT_GET); - /*_._VALDATA___V2121*/ - meltfptr[2120] = (melt_ptr_t) meltsy_EXPORT_PATMACRO; + /*_._VALDATA___V2121*/ meltfptr[2120] = (melt_ptr_t) meltsy_EXPORT_PATMACRO; } /*endgetnamedsym EXPORT_PATMACRO*/ @@ -38111,8 +33822,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol EXPORT_CLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPORT_CLASS = melthookproc_HOOK_NAMED_SYMBOL ("EXPORT_CLASS", (long) MELT_GET); - /*_._VALDATA___V2126*/ - meltfptr[2125] = (melt_ptr_t) meltsy_EXPORT_CLASS; + /*_._VALDATA___V2126*/ meltfptr[2125] = (melt_ptr_t) meltsy_EXPORT_CLASS; } /*endgetnamedsym EXPORT_CLASS*/ @@ -38125,8 +33835,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol EXPORT_SYNONYM without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPORT_SYNONYM = melthookproc_HOOK_NAMED_SYMBOL ("EXPORT_SYNONYM", (long) MELT_GET); - /*_._VALDATA___V2130*/ - meltfptr[2129] = (melt_ptr_t) meltsy_EXPORT_SYNONYM; + /*_._VALDATA___V2130*/ meltfptr[2129] = (melt_ptr_t) meltsy_EXPORT_SYNONYM; } /*endgetnamedsym EXPORT_SYNONYM*/ @@ -38139,8 +33848,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CURRENT_MODULE_ENVIRONMENT_REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CURRENT_MODULE_ENVIRONMENT_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("CURRENT_MODULE_ENVIRONMENT_REFERENCE", (long) MELT_GET); - /*_._VALDATA___V2134*/ - meltfptr[2133] = (melt_ptr_t) meltsy_CURRENT_MODULE_ENVIRONMENT_REFERENCE; + /*_._VALDATA___V2134*/ meltfptr[2133] = (melt_ptr_t) meltsy_CURRENT_MODULE_ENVIRONMENT_REFERENCE; } /*endgetnamedsym CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ @@ -38153,8 +33861,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CURRENT_MODULE_ENVIRONMENT_CONTAINER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CURRENT_MODULE_ENVIRONMENT_CONTAINER = melthookproc_HOOK_NAMED_SYMBOL ("CURRENT_MODULE_ENVIRONMENT_CONTAINER", (long) MELT_GET); - /*_._VALDATA___V2136*/ - meltfptr[2135] = (melt_ptr_t) meltsy_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + /*_._VALDATA___V2136*/ meltfptr[2135] = (melt_ptr_t) meltsy_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*endgetnamedsym CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ @@ -38167,8 +33874,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol PARENT_MODULE_ENVIRONMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PARENT_MODULE_ENVIRONMENT = melthookproc_HOOK_NAMED_SYMBOL ("PARENT_MODULE_ENVIRONMENT", (long) MELT_GET); - /*_._VALDATA___V2140*/ - meltfptr[2139] = (melt_ptr_t) meltsy_PARENT_MODULE_ENVIRONMENT; + /*_._VALDATA___V2140*/ meltfptr[2139] = (melt_ptr_t) meltsy_PARENT_MODULE_ENVIRONMENT; } /*endgetnamedsym PARENT_MODULE_ENVIRONMENT*/ @@ -38181,8 +33887,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", (long) MELT_GET); - /*_._VALDATA___V2144*/ - meltfptr[2143] = (melt_ptr_t) meltsy_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; + /*_._VALDATA___V2144*/ meltfptr[2143] = (melt_ptr_t) meltsy_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; } /*endgetnamedsym UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ @@ -38195,8 +33900,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = melthookproc_HOOK_NAMED_SYMBOL ("UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", (long) MELT_GET); - /*_._VALDATA___V2146*/ - meltfptr[2145] = (melt_ptr_t) meltsy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + /*_._VALDATA___V2146*/ meltfptr[2145] = (melt_ptr_t) meltsy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*endgetnamedsym UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ @@ -38209,8 +33913,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol FETCH_PREDEFINED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_FETCH_PREDEFINED = melthookproc_HOOK_NAMED_SYMBOL ("FETCH_PREDEFINED", (long) MELT_GET); - /*_._VALDATA___V2150*/ - meltfptr[2149] = (melt_ptr_t) meltsy_FETCH_PREDEFINED; + /*_._VALDATA___V2150*/ meltfptr[2149] = (melt_ptr_t) meltsy_FETCH_PREDEFINED; } /*endgetnamedsym FETCH_PREDEFINED*/ @@ -38223,8 +33926,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol STORE_PREDEFINED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_STORE_PREDEFINED = melthookproc_HOOK_NAMED_SYMBOL ("STORE_PREDEFINED", (long) MELT_GET); - /*_._VALDATA___V2154*/ - meltfptr[2153] = (melt_ptr_t) meltsy_STORE_PREDEFINED; + /*_._VALDATA___V2154*/ meltfptr[2153] = (melt_ptr_t) meltsy_STORE_PREDEFINED; } /*endgetnamedsym STORE_PREDEFINED*/ @@ -38237,8 +33939,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", (long) MELT_GET); - /*_._VALDATA___V2156*/ - meltfptr[2155] = (melt_ptr_t) meltsy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + /*_._VALDATA___V2156*/ meltfptr[2155] = (melt_ptr_t) meltsy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*endgetnamedsym CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ @@ -38251,8 +33952,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", (long) MELT_GET); - /*_._VALDATA___V2158*/ - meltfptr[2157] = (melt_ptr_t) meltsy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + /*_._VALDATA___V2158*/ meltfptr[2157] = (melt_ptr_t) meltsy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*endgetnamedsym CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ @@ -38265,8 +33965,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol EXPAND_APPLY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPAND_APPLY = melthookproc_HOOK_NAMED_SYMBOL ("EXPAND_APPLY", (long) MELT_GET); - /*_._VALDATA___V2160*/ - meltfptr[2159] = (melt_ptr_t) meltsy_EXPAND_APPLY; + /*_._VALDATA___V2160*/ meltfptr[2159] = (melt_ptr_t) meltsy_EXPAND_APPLY; } /*endgetnamedsym EXPAND_APPLY*/ @@ -38279,8 +33978,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol EXPAND_MSEND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPAND_MSEND = melthookproc_HOOK_NAMED_SYMBOL ("EXPAND_MSEND", (long) MELT_GET); - /*_._VALDATA___V2162*/ - meltfptr[2161] = (melt_ptr_t) meltsy_EXPAND_MSEND; + /*_._VALDATA___V2162*/ meltfptr[2161] = (melt_ptr_t) meltsy_EXPAND_MSEND; } /*endgetnamedsym EXPAND_MSEND*/ @@ -38293,8 +33991,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol EXPAND_PAIRLIST_AS_TUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPAND_PAIRLIST_AS_TUPLE = melthookproc_HOOK_NAMED_SYMBOL ("EXPAND_PAIRLIST_AS_TUPLE", (long) MELT_GET); - /*_._VALDATA___V2164*/ - meltfptr[2163] = (melt_ptr_t) meltsy_EXPAND_PAIRLIST_AS_TUPLE; + /*_._VALDATA___V2164*/ meltfptr[2163] = (melt_ptr_t) meltsy_EXPAND_PAIRLIST_AS_TUPLE; } /*endgetnamedsym EXPAND_PAIRLIST_AS_TUPLE*/ @@ -38307,8 +34004,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol EXPAND_PAIRLIST_AS_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPAND_PAIRLIST_AS_LIST = melthookproc_HOOK_NAMED_SYMBOL ("EXPAND_PAIRLIST_AS_LIST", (long) MELT_GET); - /*_._VALDATA___V2166*/ - meltfptr[2165] = (melt_ptr_t) meltsy_EXPAND_PAIRLIST_AS_LIST; + /*_._VALDATA___V2166*/ meltfptr[2165] = (melt_ptr_t) meltsy_EXPAND_PAIRLIST_AS_LIST; } /*endgetnamedsym EXPAND_PAIRLIST_AS_LIST*/ @@ -38321,8 +34017,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol EXPAND_RESTLIST_AS_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPAND_RESTLIST_AS_LIST = melthookproc_HOOK_NAMED_SYMBOL ("EXPAND_RESTLIST_AS_LIST", (long) MELT_GET); - /*_._VALDATA___V2168*/ - meltfptr[2167] = (melt_ptr_t) meltsy_EXPAND_RESTLIST_AS_LIST; + /*_._VALDATA___V2168*/ meltfptr[2167] = (melt_ptr_t) meltsy_EXPAND_RESTLIST_AS_LIST; } /*endgetnamedsym EXPAND_RESTLIST_AS_LIST*/ @@ -38335,8 +34030,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol EXPAND_TUPLE_SLICE_AS_TUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPAND_TUPLE_SLICE_AS_TUPLE = melthookproc_HOOK_NAMED_SYMBOL ("EXPAND_TUPLE_SLICE_AS_TUPLE", (long) MELT_GET); - /*_._VALDATA___V2170*/ - meltfptr[2169] = (melt_ptr_t) meltsy_EXPAND_TUPLE_SLICE_AS_TUPLE; + /*_._VALDATA___V2170*/ meltfptr[2169] = (melt_ptr_t) meltsy_EXPAND_TUPLE_SLICE_AS_TUPLE; } /*endgetnamedsym EXPAND_TUPLE_SLICE_AS_TUPLE*/ @@ -38349,8 +34043,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol EXPAND_PRIMITIVE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPAND_PRIMITIVE = melthookproc_HOOK_NAMED_SYMBOL ("EXPAND_PRIMITIVE", (long) MELT_GET); - /*_._VALDATA___V2172*/ - meltfptr[2171] = (melt_ptr_t) meltsy_EXPAND_PRIMITIVE; + /*_._VALDATA___V2172*/ meltfptr[2171] = (melt_ptr_t) meltsy_EXPAND_PRIMITIVE; } /*endgetnamedsym EXPAND_PRIMITIVE*/ @@ -38363,8 +34056,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol HOOK_MACRO_INSTALLER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_HOOK_MACRO_INSTALLER = melthookproc_HOOK_NAMED_SYMBOL ("HOOK_MACRO_INSTALLER", (long) MELT_GET); - /*_._VALDATA___V2174*/ - meltfptr[2173] = (melt_ptr_t) meltsy_HOOK_MACRO_INSTALLER; + /*_._VALDATA___V2174*/ meltfptr[2173] = (melt_ptr_t) meltsy_HOOK_MACRO_INSTALLER; } /*endgetnamedsym HOOK_MACRO_INSTALLER*/ @@ -38377,8 +34069,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol INSTALL_INITIAL_MACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_INSTALL_INITIAL_MACRO = melthookproc_HOOK_NAMED_SYMBOL ("INSTALL_INITIAL_MACRO", (long) MELT_GET); - /*_._VALDATA___V2176*/ - meltfptr[2175] = (melt_ptr_t) meltsy_INSTALL_INITIAL_MACRO; + /*_._VALDATA___V2176*/ meltfptr[2175] = (melt_ptr_t) meltsy_INSTALL_INITIAL_MACRO; } /*endgetnamedsym INSTALL_INITIAL_MACRO*/ @@ -38391,8 +34082,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol INSTALL_INITIAL_PATMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_INSTALL_INITIAL_PATMACRO = melthookproc_HOOK_NAMED_SYMBOL ("INSTALL_INITIAL_PATMACRO", (long) MELT_GET); - /*_._VALDATA___V2178*/ - meltfptr[2177] = (melt_ptr_t) meltsy_INSTALL_INITIAL_PATMACRO; + /*_._VALDATA___V2178*/ meltfptr[2177] = (melt_ptr_t) meltsy_INSTALL_INITIAL_PATMACRO; } /*endgetnamedsym INSTALL_INITIAL_PATMACRO*/ @@ -38405,8 +34095,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol LAMBDA_ARG_BINDINGS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LAMBDA_ARG_BINDINGS = melthookproc_HOOK_NAMED_SYMBOL ("LAMBDA_ARG_BINDINGS", (long) MELT_GET); - /*_._VALDATA___V2180*/ - meltfptr[2179] = (melt_ptr_t) meltsy_LAMBDA_ARG_BINDINGS; + /*_._VALDATA___V2180*/ meltfptr[2179] = (melt_ptr_t) meltsy_LAMBDA_ARG_BINDINGS; } /*endgetnamedsym LAMBDA_ARG_BINDINGS*/ @@ -38419,8 +34108,7 @@ void* 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___V2182*/ - meltfptr[2181] = (melt_ptr_t) meltsy_MACROEXPAND_1; + /*_._VALDATA___V2182*/ meltfptr[2181] = (melt_ptr_t) meltsy_MACROEXPAND_1; } /*endgetnamedsym MACROEXPAND_1*/ @@ -38433,8 +34121,7 @@ void* 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___V2184*/ - meltfptr[2183] = (melt_ptr_t) meltsy_MACROEXPAND_TOPLEVEL_LIST; + /*_._VALDATA___V2184*/ meltfptr[2183] = (melt_ptr_t) meltsy_MACROEXPAND_TOPLEVEL_LIST; } /*endgetnamedsym MACROEXPAND_TOPLEVEL_LIST*/ @@ -38447,8 +34134,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS = melthookproc_HOOK_NAMED_SYMBOL ("MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS", (long) MELT_GET); - /*_._VALDATA___V2186*/ - meltfptr[2185] = (melt_ptr_t) meltsy_MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; + /*_._VALDATA___V2186*/ meltfptr[2185] = (melt_ptr_t) meltsy_MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; } /*endgetnamedsym MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ @@ -38461,8 +34147,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol PATTERNEXPAND_1 without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PATTERNEXPAND_1 = melthookproc_HOOK_NAMED_SYMBOL ("PATTERNEXPAND_1", (long) MELT_GET); - /*_._VALDATA___V2188*/ - meltfptr[2187] = (melt_ptr_t) meltsy_PATTERNEXPAND_1; + /*_._VALDATA___V2188*/ meltfptr[2187] = (melt_ptr_t) meltsy_PATTERNEXPAND_1; } /*endgetnamedsym PATTERNEXPAND_1*/ @@ -38475,8 +34160,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol PATTERNEXPAND_EXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PATTERNEXPAND_EXPR = melthookproc_HOOK_NAMED_SYMBOL ("PATTERNEXPAND_EXPR", (long) MELT_GET); - /*_._VALDATA___V2190*/ - meltfptr[2189] = (melt_ptr_t) meltsy_PATTERNEXPAND_EXPR; + /*_._VALDATA___V2190*/ meltfptr[2189] = (melt_ptr_t) meltsy_PATTERNEXPAND_EXPR; } /*endgetnamedsym PATTERNEXPAND_EXPR*/ @@ -38489,8 +34173,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol PATTERNEXPAND_PAIRLIST_AS_TUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PATTERNEXPAND_PAIRLIST_AS_TUPLE = melthookproc_HOOK_NAMED_SYMBOL ("PATTERNEXPAND_PAIRLIST_AS_TUPLE", (long) MELT_GET); - /*_._VALDATA___V2192*/ - meltfptr[2191] = (melt_ptr_t) meltsy_PATTERNEXPAND_PAIRLIST_AS_TUPLE; + /*_._VALDATA___V2192*/ meltfptr[2191] = (melt_ptr_t) meltsy_PATTERNEXPAND_PAIRLIST_AS_TUPLE; } /*endgetnamedsym PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ @@ -38503,8 +34186,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol PATTERN_WEIGHT_TUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PATTERN_WEIGHT_TUPLE = melthookproc_HOOK_NAMED_SYMBOL ("PATTERN_WEIGHT_TUPLE", (long) MELT_GET); - /*_._VALDATA___V2194*/ - meltfptr[2193] = (melt_ptr_t) meltsy_PATTERN_WEIGHT_TUPLE; + /*_._VALDATA___V2194*/ meltfptr[2193] = (melt_ptr_t) meltsy_PATTERN_WEIGHT_TUPLE; } /*endgetnamedsym PATTERN_WEIGHT_TUPLE*/ @@ -38517,8 +34199,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol REGISTER_GENERATOR_DEVICE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REGISTER_GENERATOR_DEVICE = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_GENERATOR_DEVICE", (long) MELT_GET); - /*_._VALDATA___V2196*/ - meltfptr[2195] = (melt_ptr_t) meltsy_REGISTER_GENERATOR_DEVICE; + /*_._VALDATA___V2196*/ meltfptr[2195] = (melt_ptr_t) meltsy_REGISTER_GENERATOR_DEVICE; } /*endgetnamedsym REGISTER_GENERATOR_DEVICE*/ @@ -38531,8 +34212,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol S_EXPR_WEIGHT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_S_EXPR_WEIGHT = melthookproc_HOOK_NAMED_SYMBOL ("S_EXPR_WEIGHT", (long) MELT_GET); - /*_._VALDATA___V2198*/ - meltfptr[2197] = (melt_ptr_t) meltsy_S_EXPR_WEIGHT; + /*_._VALDATA___V2198*/ meltfptr[2197] = (melt_ptr_t) meltsy_S_EXPR_WEIGHT; } /*endgetnamedsym S_EXPR_WEIGHT*/ @@ -38545,8 +34225,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol MEXPAND_REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MEXPAND_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("MEXPAND_REFERENCE", (long) MELT_GET); - /*_._VALDATA___V2200*/ - meltfptr[2199] = (melt_ptr_t) meltsy_MEXPAND_REFERENCE; + /*_._VALDATA___V2200*/ meltfptr[2199] = (melt_ptr_t) meltsy_MEXPAND_REFERENCE; } /*endgetnamedsym MEXPAND_REFERENCE*/ @@ -38559,8 +34238,7 @@ void* melt_start_this_module (void* modargp_) #error MELT getting named symbol PATEXPAND_REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PATEXPAND_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("PATEXPAND_REFERENCE", (long) MELT_GET); - /*_._VALDATA___V2202*/ - meltfptr[2201] = (melt_ptr_t) meltsy_PATEXPAND_REFERENCE; + /*_._VALDATA___V2202*/ meltfptr[2201] = (melt_ptr_t) meltsy_PATEXPAND_REFERENCE; } /*endgetnamedsym PATEXPAND_REFERENCE*/ @@ -38568,364 +34246,274 @@ void* melt_start_this_module (void* modargp_) /**COMMENT: before getting imported values thru hook **/; MELT_LOCATION("warmelt-macro.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-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:78:/ compute"); - /*_.CLASS_LOCATED__V6*/ - meltfptr[5] = + /*_.CLASS_LOCATED__V6*/ meltfptr[5] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_LOCATED", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:87:/ compute"); - /*_.CLASS_DISCRIMINANT__V7*/ - meltfptr[6] = + /*_.CLASS_DISCRIMINANT__V7*/ meltfptr[6] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_DISCRIMINANT", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ - /*_.DISCR_CLOSURE__V8*/ - meltfptr[7] = + /*_.DISCR_CLOSURE__V8*/ meltfptr[7] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_CLOSURE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:101:/ compute"); - /*_.MELT_DEBUG_FUN__V9*/ - meltfptr[8] = + /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MELT_DEBUG_FUN", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:103:/ compute"); - /*_.CLASS_SEXPR__V10*/ - meltfptr[9] = + /*_.CLASS_SEXPR__V10*/ meltfptr[9] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SEXPR", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ - meltfptr[10] = + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MELT_ASSERT_FAILURE_FUN", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:110:/ compute"); - /*_.LIST_TO_MULTIPLE__V12*/ - meltfptr[11] = + /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "LIST_TO_MULTIPLE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ - /*_.DISCR_MULTIPLE__V13*/ - meltfptr[12] = + /*_.DISCR_MULTIPLE__V13*/ meltfptr[12] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MULTIPLE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:124:/ compute"); - /*_.STRING4OUT__V14*/ - meltfptr[13] = + /*_.STRING4OUT__V14*/ meltfptr[13] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "STRING4OUT", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ - /*_.DISCR_STRING__V15*/ - meltfptr[14] = + /*_.DISCR_STRING__V15*/ meltfptr[14] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_STRING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:135:/ compute"); - /*_.CLASS_SYMBOL__V16*/ - meltfptr[15] = + /*_.CLASS_SYMBOL__V16*/ meltfptr[15] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SYMBOL", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:144:/ compute"); - /*_.MELT_MAKE_SEXPR__V17*/ - meltfptr[16] = + /*_.MELT_MAKE_SEXPR__V17*/ meltfptr[16] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MELT_MAKE_SEXPR", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ - /*_.HOOK_MELT_MAKE_LOCATION__V18*/ - meltfptr[17] = + /*_.HOOK_MELT_MAKE_LOCATION__V18*/ meltfptr[17] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "HOOK_MELT_MAKE_LOCATION", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:292:/ compute"); - /*_.DISCR_STRBUF__V19*/ - meltfptr[18] = + /*_.DISCR_STRBUF__V19*/ meltfptr[18] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_STRBUF", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:331:/ compute"); - /*_.ADD2OUT__V20*/ - meltfptr[19] = + /*_.ADD2OUT__V20*/ meltfptr[19] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "ADD2OUT", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:150:/ compute"); - /*_.DISCR_MAP_OBJECTS__V21*/ - meltfptr[20] = + /*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MAP_OBJECTS", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:239:/ compute"); - /*_.CLASS_KEYWORD__V22*/ - meltfptr[21] = + /*_.CLASS_KEYWORD__V22*/ meltfptr[21] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_KEYWORD", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:245:/ compute"); - /*_.CLASS_NAMED__V23*/ - meltfptr[22] = + /*_.CLASS_NAMED__V23*/ meltfptr[22] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NAMED", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:424:/ compute"); - /*_.CLASS_SELECTOR__V24*/ - meltfptr[23] = + /*_.CLASS_SELECTOR__V24*/ meltfptr[23] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SELECTOR", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:430:/ compute"); - /*_.CLASS_SOURCE__V25*/ - meltfptr[24] = + /*_.CLASS_SOURCE__V25*/ meltfptr[24] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:794:/ compute"); - /*_.CLASS_MACRO_BINDING__V26*/ - meltfptr[25] = + /*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_MACRO_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1433:/ compute"); - /*_.DISCR_CONSTANT_INTEGER__V27*/ - meltfptr[26] = + /*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_CONSTANT_INTEGER", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1446:/ compute"); - /*_.CLASS_ENVIRONMENT__V28*/ - meltfptr[27] = + /*_.CLASS_ENVIRONMENT__V28*/ meltfptr[27] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ENVIRONMENT", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1558:/ compute"); - /*_.DISCR_LIST__V29*/ - meltfptr[28] = + /*_.DISCR_LIST__V29*/ meltfptr[28] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_LIST", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1612:/ compute"); - /*_.CLASS_ANY_MODULE_CONTEXT__V30*/ - meltfptr[29] = + /*_.CLASS_ANY_MODULE_CONTEXT__V30*/ meltfptr[29] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ANY_MODULE_CONTEXT", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1684:/ compute"); - /*_.CLASS_FIELD__V31*/ - meltfptr[30] = + /*_.CLASS_FIELD__V31*/ meltfptr[30] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FIELD", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1744:/ compute"); - /*_.CLASS_CITERATOR__V32*/ - meltfptr[31] = + /*_.CLASS_CITERATOR__V32*/ meltfptr[31] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CITERATOR", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1752:/ compute"); - /*_.FRESH_ENV__V33*/ - meltfptr[32] = + /*_.FRESH_ENV__V33*/ meltfptr[32] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "FRESH_ENV", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1785:/ compute"); - /*_.PUT_ENV__V34*/ - meltfptr[33] = + /*_.PUT_ENV__V34*/ meltfptr[33] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "PUT_ENV", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1808:/ compute"); - /*_.CLASS_CMATCHER__V35*/ - meltfptr[34] = + /*_.CLASS_CMATCHER__V35*/ meltfptr[34] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CMATCHER", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1815:/ compute"); - /*_.CLASS_ANY_MATCHER__V36*/ - meltfptr[35] = + /*_.CLASS_ANY_MATCHER__V36*/ meltfptr[35] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ANY_MATCHER", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1856:/ compute"); - /*_.CLASS_FUNMATCHER__V37*/ - meltfptr[36] = + /*_.CLASS_FUNMATCHER__V37*/ meltfptr[36] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FUNMATCHER", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1925:/ compute"); - /*_.FIND_ENV__V38*/ - meltfptr[37] = + /*_.FIND_ENV__V38*/ meltfptr[37] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "FIND_ENV", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1928:/ compute"); - /*_.DEBUG_LESS__V39*/ - meltfptr[38] = + /*_.DEBUG_LESS__V39*/ meltfptr[38] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DEBUG_LESS", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1944:/ compute"); - /*_.CLASS_SELECTOR_BINDING__V40*/ - meltfptr[39] = + /*_.CLASS_SELECTOR_BINDING__V40*/ meltfptr[39] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SELECTOR_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1949:/ compute"); - /*_.CLASS_PRIMITIVE_BINDING__V41*/ - meltfptr[40] = + /*_.CLASS_PRIMITIVE_BINDING__V41*/ meltfptr[40] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_PRIMITIVE_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1955:/ compute"); - /*_.CLASS_CITERATOR_BINDING__V42*/ - meltfptr[41] = + /*_.CLASS_CITERATOR_BINDING__V42*/ meltfptr[41] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CITERATOR_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1962:/ compute"); - /*_.CLASS_HOOK_BINDING__V43*/ - meltfptr[42] = + /*_.CLASS_HOOK_BINDING__V43*/ meltfptr[42] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_HOOK_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1969:/ compute"); - /*_.CLASS_CMATCHER_BINDING__V44*/ - meltfptr[43] = + /*_.CLASS_CMATCHER_BINDING__V44*/ meltfptr[43] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CMATCHER_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1976:/ compute"); - /*_.CLASS_FUNMATCHER_BINDING__V45*/ - meltfptr[44] = + /*_.CLASS_FUNMATCHER_BINDING__V45*/ meltfptr[44] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FUNMATCHER_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1983:/ compute"); - /*_.CLASS_FIELD_BINDING__V46*/ - meltfptr[45] = + /*_.CLASS_FIELD_BINDING__V46*/ meltfptr[45] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FIELD_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1991:/ compute"); - /*_.CLASS_FORMAL_BINDING__V47*/ - meltfptr[46] = + /*_.CLASS_FORMAL_BINDING__V47*/ meltfptr[46] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FORMAL_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1993:/ compute"); - /*_.CLASS_LET_BINDING__V48*/ - meltfptr[47] = + /*_.CLASS_LET_BINDING__V48*/ meltfptr[47] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_LET_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1996:/ compute"); - /*_.CLASS_VALUE_BINDING__V49*/ - meltfptr[48] = + /*_.CLASS_VALUE_BINDING__V49*/ meltfptr[48] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_VALUE_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2003:/ compute"); - /*_.CLASS_PRIMITIVE__V50*/ - meltfptr[49] = + /*_.CLASS_PRIMITIVE__V50*/ meltfptr[49] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_PRIMITIVE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2128:/ compute"); - /*_.CLASS_ROOT__V51*/ - meltfptr[50] = + /*_.CLASS_ROOT__V51*/ meltfptr[50] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ROOT", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2143:/ compute"); - /*_.PAIRLIST_TO_MULTIPLE__V52*/ - meltfptr[51] = + /*_.PAIRLIST_TO_MULTIPLE__V52*/ meltfptr[51] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "PAIRLIST_TO_MULTIPLE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2166:/ compute"); - /*_.CLASS_REFERENCE__V53*/ - meltfptr[52] = + /*_.CLASS_REFERENCE__V53*/ meltfptr[52] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_REFERENCE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2167:/ compute"); - /*_.MULTIPLE_MAP__V54*/ - meltfptr[53] = + /*_.MULTIPLE_MAP__V54*/ meltfptr[53] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MULTIPLE_MAP", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2206:/ compute"); - /*_.DISCR_INTEGER__V55*/ - meltfptr[54] = + /*_.DISCR_INTEGER__V55*/ meltfptr[54] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_INTEGER", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2254:/ compute"); - /*_.CLASS_PATMACRO_BINDING__V56*/ - meltfptr[55] = + /*_.CLASS_PATMACRO_BINDING__V56*/ meltfptr[55] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_PATMACRO_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2552:/ compute"); - /*_.CTYPE_VALUE__V57*/ - meltfptr[56] = + /*_.CTYPE_VALUE__V57*/ meltfptr[56] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CTYPE_VALUE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2558:/ compute"); - /*_.DISCR_FORMAL_SEQUENCE__V58*/ - meltfptr[57] = + /*_.DISCR_FORMAL_SEQUENCE__V58*/ meltfptr[57] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_FORMAL_SEQUENCE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2571:/ compute"); - /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V59*/ - meltfptr[58] = + /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V59*/ meltfptr[58] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_VARIADIC_FORMAL_SEQUENCE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2582:/ compute"); - /*_.CLASS_CTYPE__V60*/ - meltfptr[59] = + /*_.CLASS_CTYPE__V60*/ meltfptr[59] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CTYPE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2591:/ 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-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2639:/ compute"); - /*_.CLASS_ANY_BINDING__V62*/ - meltfptr[61] = + /*_.CLASS_ANY_BINDING__V62*/ meltfptr[61] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ANY_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2661:/ compute"); - /*_.INITIAL_ENVIRONMENT__V63*/ - meltfptr[62] = + /*_.INITIAL_ENVIRONMENT__V63*/ meltfptr[62] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "INITIAL_ENVIRONMENT", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2713:/ compute"); - /*_.DISCR_VERBATIM_STRING__V64*/ - meltfptr[63] = + /*_.DISCR_VERBATIM_STRING__V64*/ meltfptr[63] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_VERBATIM_STRING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:3454:/ compute"); - /*_.CLASS_FUNCTION_BINDING__V65*/ - meltfptr[64] = + /*_.CLASS_FUNCTION_BINDING__V65*/ meltfptr[64] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FUNCTION_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:3532:/ compute"); - /*_.DEBUG_MORE__V66*/ - meltfptr[65] = + /*_.DEBUG_MORE__V66*/ meltfptr[65] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DEBUG_MORE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:3777:/ compute"); - /*_.CLASS_VARIABLE_BINDING__V67*/ - meltfptr[66] = + /*_.CLASS_VARIABLE_BINDING__V67*/ meltfptr[66] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_VARIABLE_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:3826:/ compute"); - /*_.SYMBOL_CNAME__V68*/ - meltfptr[67] = + /*_.SYMBOL_CNAME__V68*/ meltfptr[67] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "SYMBOL_CNAME", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4006:/ compute"); - /*_.CLASS_DEFINED_VALUE_BINDING__V69*/ - meltfptr[68] = + /*_.CLASS_DEFINED_VALUE_BINDING__V69*/ meltfptr[68] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_DEFINED_VALUE_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4145:/ compute"); - /*_.CLASS_CLASS_BINDING__V70*/ - meltfptr[69] = + /*_.CLASS_CLASS_BINDING__V70*/ meltfptr[69] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CLASS_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4151:/ compute"); - /*_.CLASS_CLASS__V71*/ - meltfptr[70] = + /*_.CLASS_CLASS__V71*/ meltfptr[70] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CLASS", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4249:/ compute"); - /*_.DISCR_CLASS_SEQUENCE__V72*/ - meltfptr[71] = + /*_.DISCR_CLASS_SEQUENCE__V72*/ meltfptr[71] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_CLASS_SEQUENCE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4268:/ compute"); - /*_.DISCR_MAP_STRINGS__V73*/ - meltfptr[72] = + /*_.DISCR_MAP_STRINGS__V73*/ meltfptr[72] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MAP_STRINGS", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4269:/ compute"); - /*_.DISCR_FIELD_SEQUENCE__V74*/ - meltfptr[73] = + /*_.DISCR_FIELD_SEQUENCE__V74*/ meltfptr[73] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_FIELD_SEQUENCE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4394:/ compute"); - /*_.MULTIPLE_ITERATE_TEST__V75*/ - meltfptr[74] = + /*_.MULTIPLE_ITERATE_TEST__V75*/ meltfptr[74] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MULTIPLE_ITERATE_TEST", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4491:/ compute"); - /*_.CLASS_INSTANCE_BINDING__V76*/ - meltfptr[75] = + /*_.CLASS_INSTANCE_BINDING__V76*/ meltfptr[75] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_INSTANCE_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:5090:/ compute"); - /*_.CLASS_SEXPR_MACROSTRING__V77*/ - meltfptr[76] = + /*_.CLASS_SEXPR_MACROSTRING__V77*/ meltfptr[76] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SEXPR_MACROSTRING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:5664:/ compute"); - /*_.MULTIPLE_TO_LIST__V78*/ - meltfptr[77] = + /*_.MULTIPLE_TO_LIST__V78*/ meltfptr[77] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MULTIPLE_TO_LIST", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6075:/ compute"); - /*_.CLASS_FIELDS__V79*/ - meltfptr[78] = + /*_.CLASS_FIELDS__V79*/ meltfptr[78] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FIELDS", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6172:/ compute"); - /*_.REFERENCED_VALUE__V80*/ - meltfptr[79] = + /*_.REFERENCED_VALUE__V80*/ meltfptr[79] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "REFERENCED_VALUE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6281:/ compute"); - /*_.plI__V81*/ - meltfptr[80] = + /*_.plI__V81*/ meltfptr[80] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "+I", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6310:/ compute"); - /*_.miI__V82*/ - meltfptr[81] = + /*_.miI__V82*/ meltfptr[81] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "-I", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6339:/ compute"); - /*_.stI__V83*/ - meltfptr[82] = + /*_.stI__V83*/ meltfptr[82] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "*I", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6368:/ compute"); - /*_.diI__V84*/ - meltfptr[83] = + /*_.diI__V84*/ meltfptr[83] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "/I", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6677:/ compute"); - /*_.QUASI_CTYPE_AUTO__V85*/ - meltfptr[84] = + /*_.QUASI_CTYPE_AUTO__V85*/ meltfptr[84] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "QUASI_CTYPE_AUTO", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6718:/ compute"); - /*_.QUASI_CTYPE_MACRO__V86*/ - meltfptr[85] = + /*_.QUASI_CTYPE_MACRO__V86*/ meltfptr[85] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "QUASI_CTYPE_MACRO", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6777:/ compute"); - /*_.CLASS_FIXED_BINDING__V87*/ - meltfptr[86] = + /*_.CLASS_FIXED_BINDING__V87*/ meltfptr[86] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FIXED_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6869:/ compute"); - /*_.INSTALL_METHOD__V88*/ - meltfptr[87] = + /*_.INSTALL_METHOD__V88*/ meltfptr[87] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "INSTALL_METHOD", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6969:/ compute"); - /*_.CLASS_LETREC_BINDING__V89*/ - meltfptr[88] = + /*_.CLASS_LETREC_BINDING__V89*/ meltfptr[88] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_LETREC_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:7244:/ compute"); - /*_.MULTIPLE_EVERY__V90*/ - meltfptr[89] = + /*_.MULTIPLE_EVERY__V90*/ meltfptr[89] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MULTIPLE_EVERY", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:7737:/ compute"); - /*_.CLASS_LABEL_BINDING__V91*/ - meltfptr[90] = + /*_.CLASS_LABEL_BINDING__V91*/ meltfptr[90] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_LABEL_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:7921:/ compute"); - /*_.FIND_ENV_DEBUG__V92*/ - meltfptr[91] = + /*_.FIND_ENV_DEBUG__V92*/ meltfptr[91] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "FIND_ENV_DEBUG", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:7946:/ compute"); - /*_.LIST_APPEND2LIST__V93*/ - meltfptr[92] = + /*_.LIST_APPEND2LIST__V93*/ meltfptr[92] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "LIST_APPEND2LIST", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:8135:/ compute"); - /*_.VOID__V94*/ - meltfptr[93] = + /*_.VOID__V94*/ meltfptr[93] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "VOID", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; /**COMMENT: after getting imported values **/; @@ -75185,13 +70773,11 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V2205*/ meltfptr[2204] = /*hookcall*/ melthook_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER ((melt_ptr_t) /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V5*/ meltfptr[4], /*_._PREVENV___V4*/ meltfptr[3], "warmelt-macro") ;; /*^compute*/ - /*_.OR___V2204*/ - meltfptr[2203] = /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V2205*/ meltfptr[2204];; + /*_.OR___V2204*/ meltfptr[2203] = /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V2205*/ meltfptr[2204];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:3:/ clear"); - /*clear*/ /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V2205*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V2205*/ meltfptr[2204] = 0 ; } ; } @@ -75204,8 +70790,7 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram /*epilog*/ /*^clear*/ - /*clear*/ /*_.OR___V2204*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.OR___V2204*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:280:/ initchunk"); @@ -75237,26 +70822,23 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (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___V121*/ meltfptr[120], /*_._VALDATA___V114*/ meltfptr[113], - /*quasi.cur.mod.env.ref norm.exp.val : DIAG_VECT*/ - /* check quasi.cur.mod.env.ref 79245674 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V123*/ meltfptr[122], /*_._VALDATA___V116*/ meltfptr[115], - /*quasi.cur.mod.env.ref norm.exp.val : DIAG_POSITION*/ - /* check quasi.cur.mod.env.ref 247101545 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V125*/ meltfptr[124], /*_._VALDATA___V118*/ meltfptr[117], - /*quasi.cur.mod.env.ref norm.exp.val : DIAG_STATE*/ - /* check quasi.cur.mod.env.ref 446136246 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V121*/ meltfptr[120], /*_._VALDATA___V114*/ meltfptr[113], + /*quasi.cur.mod.env.ref norm.exp.val : DIAG_VECT*/ + /* check quasi.cur.mod.env.ref 79245674 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V123*/ meltfptr[122], /*_._VALDATA___V116*/ meltfptr[115], + /*quasi.cur.mod.env.ref norm.exp.val : DIAG_POSITION*/ + /* check quasi.cur.mod.env.ref 247101545 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V125*/ meltfptr[124], /*_._VALDATA___V118*/ meltfptr[117], + /*quasi.cur.mod.env.ref norm.exp.val : DIAG_STATE*/ + /* check quasi.cur.mod.env.ref 446136246 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; /*epilog*/ } @@ -75272,47 +70854,41 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (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___V127*/ meltfptr[126], /*_._VALDATA___V131*/ meltfptr[130], - /*quasi.cur.mod.env.ref norm.exp.val : DISCR_DIAGNOSTIC_CLOSURE*/ - /* check quasi.cur.mod.env.ref 748029298 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V295*/ meltfptr[294], /*_._VALCLO___V104*/ meltfptr[103], - /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_DIAG_BASIC_BLOCK*/ - /* check quasi.cur.mod.env.ref 583204828 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V297*/ meltfptr[296], /*_._VALCLO___V106*/ meltfptr[105], - /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_DIAG_EDGE*/ - /* check quasi.cur.mod.env.ref 435428204 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V299*/ meltfptr[298], /*_._VALCLO___V98*/ meltfptr[97], - /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_DIAG_GIMPLE*/ - /* check quasi.cur.mod.env.ref 432685006 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V301*/ meltfptr[300], /*_._VALCLO___V100*/ meltfptr[99], - /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_DIAG_GIMPLE_SEQ*/ - /* check quasi.cur.mod.env.ref 895766105 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V303*/ meltfptr[302], /*_._VALCLO___V102*/ meltfptr[101], - /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_DIAG_TREE*/ - /* check quasi.cur.mod.env.ref 896756766 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V127*/ meltfptr[126], /*_._VALDATA___V131*/ meltfptr[130], + /*quasi.cur.mod.env.ref norm.exp.val : DISCR_DIAGNOSTIC_CLOSURE*/ + /* check quasi.cur.mod.env.ref 748029298 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V295*/ meltfptr[294], /*_._VALCLO___V104*/ meltfptr[103], + /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_DIAG_BASIC_BLOCK*/ + /* check quasi.cur.mod.env.ref 583204828 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V297*/ meltfptr[296], /*_._VALCLO___V106*/ meltfptr[105], + /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_DIAG_EDGE*/ + /* check quasi.cur.mod.env.ref 435428204 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V299*/ meltfptr[298], /*_._VALCLO___V98*/ meltfptr[97], + /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_DIAG_GIMPLE*/ + /* check quasi.cur.mod.env.ref 432685006 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V301*/ meltfptr[300], /*_._VALCLO___V100*/ meltfptr[99], + /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_DIAG_GIMPLE_SEQ*/ + /* check quasi.cur.mod.env.ref 895766105 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V303*/ meltfptr[302], /*_._VALCLO___V102*/ meltfptr[101], + /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_DIAG_TREE*/ + /* check quasi.cur.mod.env.ref 896756766 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; /*epilog*/ } @@ -75328,19 +70904,17 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (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___V313*/ meltfptr[312], /*_._VALCLO___V308*/ meltfptr[307], - /*quasi.cur.mod.env.ref norm.exp.val : WARNING_AT*/ - /* check quasi.cur.mod.env.ref 245083724 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V315*/ meltfptr[314], /*_._VALCLO___V310*/ meltfptr[309], - /*quasi.cur.mod.env.ref norm.exp.val : INFORM_AT*/ - /* check quasi.cur.mod.env.ref 947188990 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V313*/ meltfptr[312], /*_._VALCLO___V308*/ meltfptr[307], + /*quasi.cur.mod.env.ref norm.exp.val : WARNING_AT*/ + /* check quasi.cur.mod.env.ref 245083724 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V315*/ meltfptr[314], /*_._VALCLO___V310*/ meltfptr[309], + /*quasi.cur.mod.env.ref norm.exp.val : INFORM_AT*/ + /* check quasi.cur.mod.env.ref 947188990 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; /*epilog*/ } @@ -75373,15 +70947,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1705*/ meltfptr[1704]; - /*_.INSTALL_INITIAL_MACRO__V2206*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1706*/ meltfptr[1705]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2206*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1706*/ meltfptr[1705]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2206*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2206*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:2940:/ initchunk"); @@ -75416,15 +70988,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1709*/ meltfptr[1708]; - /*_.INSTALL_INITIAL_MACRO__V2207*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1710*/ meltfptr[1709]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2207*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1710*/ meltfptr[1709]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2207*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2207*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:3093:/ initchunk"); @@ -75459,15 +71029,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1713*/ meltfptr[1712]; - /*_.INSTALL_INITIAL_MACRO__V2208*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1714*/ meltfptr[1713]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2208*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1714*/ meltfptr[1713]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2208*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2208*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:3288:/ initchunk"); @@ -75502,15 +71070,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1717*/ meltfptr[1716]; - /*_.INSTALL_INITIAL_MACRO__V2209*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1718*/ meltfptr[1717]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2209*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1718*/ meltfptr[1717]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2209*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2209*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:3433:/ initchunk"); @@ -75545,15 +71111,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1721*/ meltfptr[1720]; - /*_.INSTALL_INITIAL_MACRO__V2210*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1724*/ meltfptr[1723]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2210*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1724*/ meltfptr[1723]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2210*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2210*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:3506:/ initchunk"); @@ -75588,15 +71152,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1732*/ meltfptr[1731]; - /*_.INSTALL_INITIAL_MACRO__V2211*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1733*/ meltfptr[1732]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2211*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1733*/ meltfptr[1732]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2211*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2211*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:3700:/ initchunk"); @@ -75631,15 +71193,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1747*/ meltfptr[1746]; - /*_.INSTALL_INITIAL_MACRO__V2212*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1748*/ meltfptr[1747]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2212*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1748*/ meltfptr[1747]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2212*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2212*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:3754:/ initchunk"); @@ -75674,15 +71234,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1751*/ meltfptr[1750]; - /*_.INSTALL_INITIAL_MACRO__V2213*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1754*/ meltfptr[1753]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2213*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1754*/ meltfptr[1753]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2213*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2213*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:3809:/ initchunk"); @@ -75717,15 +71275,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1761*/ meltfptr[1760]; - /*_.INSTALL_INITIAL_MACRO__V2214*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1764*/ meltfptr[1763]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2214*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1764*/ meltfptr[1763]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2214*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2214*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:3959:/ initchunk"); @@ -75760,15 +71316,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1767*/ meltfptr[1766]; - /*_.INSTALL_INITIAL_MACRO__V2215*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1770*/ meltfptr[1769]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2215*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1770*/ meltfptr[1769]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2215*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2215*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:4099:/ initchunk"); @@ -75803,15 +71357,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1783*/ meltfptr[1782]; - /*_.INSTALL_INITIAL_MACRO__V2216*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1790*/ meltfptr[1789]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2216*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1790*/ meltfptr[1789]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2216*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2216*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:4358:/ initchunk"); @@ -75846,15 +71398,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1800*/ meltfptr[1799]; - /*_.INSTALL_INITIAL_MACRO__V2217*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1803*/ meltfptr[1802]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2217*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1803*/ meltfptr[1802]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2217*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2217*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:4571:/ initchunk"); @@ -75889,15 +71439,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1808*/ meltfptr[1807]; - /*_.INSTALL_INITIAL_MACRO__V2218*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1809*/ meltfptr[1808]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2218*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1809*/ meltfptr[1808]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2218*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2218*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:4717:/ initchunk"); @@ -75932,15 +71480,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1812*/ meltfptr[1811]; - /*_.INSTALL_INITIAL_MACRO__V2219*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V144*/ meltfptr[143]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2219*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V144*/ meltfptr[143]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2219*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2219*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:4788:/ initchunk"); @@ -75975,15 +71521,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1814*/ meltfptr[1813]; - /*_.INSTALL_INITIAL_MACRO__V2220*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1815*/ meltfptr[1814]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2220*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1815*/ meltfptr[1814]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2220*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2220*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:4830:/ initchunk"); @@ -76020,15 +71564,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1822*/ meltfptr[1821]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1812*/ meltfptr[1811]; - /*_.INSTALL_INITIAL_PATMACRO__V2221*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V144*/ meltfptr[143]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_PATMACRO__V2221*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V144*/ meltfptr[143]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2221*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2221*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:4959:/ initchunk"); @@ -76065,15 +71607,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1825*/ meltfptr[1824]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1827*/ meltfptr[1826]; - /*_.INSTALL_INITIAL_PATMACRO__V2222*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V1828*/ meltfptr[1827]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_PATMACRO__V2222*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V1828*/ meltfptr[1827]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2222*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2222*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5064:/ initchunk"); @@ -76108,15 +71648,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1836*/ meltfptr[1835]; - /*_.INSTALL_INITIAL_MACRO__V2223*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1837*/ meltfptr[1836]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2223*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1837*/ meltfptr[1836]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2223*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2223*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5155:/ initchunk"); @@ -76151,15 +71689,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1840*/ meltfptr[1839]; - /*_.INSTALL_INITIAL_MACRO__V2224*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1841*/ meltfptr[1840]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2224*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1841*/ meltfptr[1840]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2224*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2224*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5222:/ initchunk"); @@ -76194,15 +71730,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1844*/ meltfptr[1843]; - /*_.INSTALL_INITIAL_MACRO__V2225*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1845*/ meltfptr[1844]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2225*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1845*/ meltfptr[1844]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2225*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2225*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5275:/ initchunk"); @@ -76237,15 +71771,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1848*/ meltfptr[1847]; - /*_.INSTALL_INITIAL_MACRO__V2226*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1849*/ meltfptr[1848]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2226*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1849*/ meltfptr[1848]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2226*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2226*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5322:/ initchunk"); @@ -76280,15 +71812,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1852*/ meltfptr[1851]; - /*_.INSTALL_INITIAL_MACRO__V2227*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V256*/ meltfptr[255]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2227*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V256*/ meltfptr[255]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2227*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2227*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5363:/ initchunk"); @@ -76323,15 +71853,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1854*/ meltfptr[1853]; - /*_.INSTALL_INITIAL_MACRO__V2228*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V248*/ meltfptr[247]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2228*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V248*/ meltfptr[247]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2228*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2228*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5404:/ initchunk"); @@ -76366,15 +71894,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1859*/ meltfptr[1858]; - /*_.INSTALL_INITIAL_MACRO__V2229*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2229*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2229*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2229*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5456:/ initchunk"); @@ -76409,15 +71935,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1861*/ meltfptr[1860]; - /*_.INSTALL_INITIAL_MACRO__V2230*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1862*/ meltfptr[1861]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2230*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1862*/ meltfptr[1861]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2230*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2230*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5509:/ initchunk"); @@ -76452,15 +71976,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1865*/ meltfptr[1864]; - /*_.INSTALL_INITIAL_MACRO__V2231*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1866*/ meltfptr[1865]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2231*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1866*/ meltfptr[1865]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2231*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2231*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5545:/ initchunk"); @@ -76495,15 +72017,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1869*/ meltfptr[1868]; - /*_.INSTALL_INITIAL_MACRO__V2232*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1870*/ meltfptr[1869]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2232*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1870*/ meltfptr[1869]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2232*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2232*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5582:/ initchunk"); @@ -76538,15 +72058,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1876*/ meltfptr[1875]; - /*_.INSTALL_INITIAL_MACRO__V2233*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1879*/ meltfptr[1878]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2233*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1879*/ meltfptr[1878]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2233*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2233*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5682:/ initchunk"); @@ -76591,15 +72109,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1882*/ meltfptr[1881]; - /*_.INSTALL_INITIAL_MACRO__V2234*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1883*/ meltfptr[1882]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2234*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1883*/ meltfptr[1882]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2234*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2234*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5742:/ initchunk"); @@ -76634,15 +72150,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1887*/ meltfptr[1886]; - /*_.INSTALL_INITIAL_MACRO__V2235*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V234*/ meltfptr[233]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2235*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V234*/ meltfptr[233]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2235*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2235*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5840:/ initchunk"); @@ -76679,15 +72193,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1892*/ meltfptr[1891]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1894*/ meltfptr[1893]; - /*_.INSTALL_INITIAL_PATMACRO__V2236*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V1895*/ meltfptr[1894]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_PATMACRO__V2236*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V1895*/ meltfptr[1894]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2236*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2236*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5943:/ initchunk"); @@ -76724,15 +72236,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1898*/ meltfptr[1897]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1865*/ meltfptr[1864]; - /*_.INSTALL_INITIAL_PATMACRO__V2237*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V1866*/ meltfptr[1865]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_PATMACRO__V2237*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V1866*/ meltfptr[1865]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2237*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2237*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5962:/ initchunk"); @@ -76769,15 +72279,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1900*/ meltfptr[1899]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1890*/ meltfptr[1889]; - /*_.INSTALL_INITIAL_PATMACRO__V2238*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V244*/ meltfptr[243]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_PATMACRO__V2238*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V244*/ meltfptr[243]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2238*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2238*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5991:/ initchunk"); @@ -76814,15 +72322,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1905*/ meltfptr[1904]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1903*/ meltfptr[1902]; - /*_.INSTALL_INITIAL_PATMACRO__V2239*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V1906*/ meltfptr[1905]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_PATMACRO__V2239*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V1906*/ meltfptr[1905]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2239*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2239*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6056:/ initchunk"); @@ -76859,15 +72365,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1916*/ meltfptr[1915]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1911*/ meltfptr[1910]; - /*_.INSTALL_INITIAL_PATMACRO__V2240*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V1917*/ meltfptr[1916]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_PATMACRO__V2240*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V1917*/ meltfptr[1916]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2240*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2240*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6139:/ initchunk"); @@ -76902,15 +72406,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1920*/ meltfptr[1919]; - /*_.INSTALL_INITIAL_MACRO__V2241*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1923*/ meltfptr[1922]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2241*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1923*/ meltfptr[1922]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2241*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2241*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6191:/ initchunk"); @@ -76945,15 +72447,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1926*/ meltfptr[1925]; - /*_.INSTALL_INITIAL_MACRO__V2242*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1927*/ meltfptr[1926]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2242*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1927*/ meltfptr[1926]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2242*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2242*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6205:/ initchunk"); @@ -76988,15 +72488,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1920*/ meltfptr[1919]; - /*_.INSTALL_INITIAL_MACRO__V2243*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1929*/ meltfptr[1928]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2243*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1929*/ meltfptr[1928]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2243*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2243*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6211:/ initchunk"); @@ -77031,15 +72529,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1932*/ meltfptr[1931]; - /*_.INSTALL_INITIAL_MACRO__V2244*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1933*/ meltfptr[1932]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2244*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1933*/ meltfptr[1932]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2244*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2244*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6265:/ initchunk"); @@ -77074,15 +72570,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1937*/ meltfptr[1936]; - /*_.INSTALL_INITIAL_MACRO__V2245*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2245*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2245*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2245*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6295:/ initchunk"); @@ -77117,15 +72611,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1942*/ meltfptr[1941]; - /*_.INSTALL_INITIAL_MACRO__V2246*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1945*/ meltfptr[1944]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2246*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1945*/ meltfptr[1944]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2246*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2246*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6324:/ initchunk"); @@ -77160,15 +72652,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1949*/ meltfptr[1948]; - /*_.INSTALL_INITIAL_MACRO__V2247*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1952*/ meltfptr[1951]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2247*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1952*/ meltfptr[1951]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2247*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2247*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6353:/ initchunk"); @@ -77203,15 +72693,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1956*/ meltfptr[1955]; - /*_.INSTALL_INITIAL_MACRO__V2248*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1959*/ meltfptr[1958]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2248*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1959*/ meltfptr[1958]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2248*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2248*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6382:/ initchunk"); @@ -77248,15 +72736,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1964*/ meltfptr[1963]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1962*/ meltfptr[1961]; - /*_.INSTALL_INITIAL_PATMACRO__V2249*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V1965*/ meltfptr[1964]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_PATMACRO__V2249*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V1965*/ meltfptr[1964]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2249*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2249*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6424:/ initchunk"); @@ -77293,15 +72779,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1970*/ meltfptr[1969]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1968*/ meltfptr[1967]; - /*_.INSTALL_INITIAL_PATMACRO__V2250*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V1971*/ meltfptr[1970]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_PATMACRO__V2250*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1680*/ meltfptr[1679]), (melt_ptr_t)(/*_._VALDATA___V1971*/ meltfptr[1970]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2250*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2250*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6470:/ initchunk"); @@ -77336,15 +72820,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1975*/ meltfptr[1974]; - /*_.INSTALL_INITIAL_MACRO__V2251*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1976*/ meltfptr[1975]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2251*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1976*/ meltfptr[1975]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2251*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2251*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6565:/ initchunk"); @@ -77379,15 +72861,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1980*/ meltfptr[1979]; - /*_.INSTALL_INITIAL_MACRO__V2252*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1981*/ meltfptr[1980]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2252*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V1981*/ meltfptr[1980]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2252*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2252*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6659:/ initchunk"); @@ -77422,15 +72902,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1994*/ meltfptr[1993]; - /*_.INSTALL_INITIAL_MACRO__V2253*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2253*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2253*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2253*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6850:/ initchunk"); @@ -77467,15 +72945,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V325*/ meltfptr[324]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1996*/ meltfptr[1995]; - /*_.INSTALL_METHOD__V2254*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V88*/ meltfptr[87]), (melt_ptr_t)(/*_._VALDATA___V1163*/ meltfptr[1162]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_METHOD__V2254*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V88*/ meltfptr[87]), (melt_ptr_t)(/*_._VALDATA___V1163*/ meltfptr[1162]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V2254*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_METHOD__V2254*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6870:/ initchunk"); @@ -77495,15 +72971,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V325*/ meltfptr[324]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1996*/ meltfptr[1995]; - /*_.INSTALL_METHOD__V2255*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V88*/ meltfptr[87]), (melt_ptr_t)(/*_._VALDATA___V955*/ meltfptr[954]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_METHOD__V2255*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V88*/ meltfptr[87]), (melt_ptr_t)(/*_._VALDATA___V955*/ meltfptr[954]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V2255*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_METHOD__V2255*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6871:/ initchunk"); @@ -77523,15 +72997,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V325*/ meltfptr[324]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1996*/ meltfptr[1995]; - /*_.INSTALL_METHOD__V2256*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V88*/ meltfptr[87]), (melt_ptr_t)(/*_._VALDATA___V469*/ meltfptr[468]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_METHOD__V2256*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V88*/ meltfptr[87]), (melt_ptr_t)(/*_._VALDATA___V469*/ meltfptr[468]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V2256*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_METHOD__V2256*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6872:/ initchunk"); @@ -77551,15 +73023,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V325*/ meltfptr[324]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1996*/ meltfptr[1995]; - /*_.INSTALL_METHOD__V2257*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V88*/ meltfptr[87]), (melt_ptr_t)(/*_._VALDATA___V475*/ meltfptr[474]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_METHOD__V2257*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V88*/ meltfptr[87]), (melt_ptr_t)(/*_._VALDATA___V475*/ meltfptr[474]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V2257*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_METHOD__V2257*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7023:/ initchunk"); @@ -77577,15 +73047,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2002*/ meltfptr[2001]; - /*_.INSTALL_INITIAL_MACRO__V2258*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2005*/ meltfptr[2004]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2258*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2005*/ meltfptr[2004]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2258*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2258*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7024:/ initchunk"); @@ -77620,15 +73088,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2009*/ meltfptr[2008]; - /*_.INSTALL_INITIAL_MACRO__V2259*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2010*/ meltfptr[2009]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2259*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2010*/ meltfptr[2009]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2259*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2259*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7068:/ initchunk"); @@ -77663,15 +73129,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2017*/ meltfptr[2016]; - /*_.INSTALL_INITIAL_MACRO__V2260*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V166*/ meltfptr[165]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2260*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V166*/ meltfptr[165]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2260*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2260*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7194:/ initchunk"); @@ -77706,15 +73170,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2021*/ meltfptr[2020]; - /*_.INSTALL_INITIAL_MACRO__V2261*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2024*/ meltfptr[2023]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2261*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2024*/ meltfptr[2023]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2261*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2261*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7261:/ initchunk"); @@ -77749,15 +73211,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2027*/ meltfptr[2026]; - /*_.INSTALL_INITIAL_MACRO__V2262*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V140*/ meltfptr[139]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2262*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V140*/ meltfptr[139]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2262*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2262*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7296:/ initchunk"); @@ -77792,15 +73252,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2029*/ meltfptr[2028]; - /*_.INSTALL_INITIAL_MACRO__V2263*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V176*/ meltfptr[175]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2263*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V176*/ meltfptr[175]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2263*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2263*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7328:/ initchunk"); @@ -77835,15 +73293,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2031*/ meltfptr[2030]; - /*_.INSTALL_INITIAL_MACRO__V2264*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2032*/ meltfptr[2031]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2264*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2032*/ meltfptr[2031]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2264*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2264*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7376:/ initchunk"); @@ -77878,15 +73334,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2035*/ meltfptr[2034]; - /*_.INSTALL_INITIAL_MACRO__V2265*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2036*/ meltfptr[2035]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2265*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2036*/ meltfptr[2035]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2265*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2265*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7407:/ initchunk"); @@ -77921,15 +73375,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2039*/ meltfptr[2038]; - /*_.INSTALL_INITIAL_MACRO__V2266*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2040*/ meltfptr[2039]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2266*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2040*/ meltfptr[2039]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2266*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2266*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7456:/ initchunk"); @@ -77964,15 +73416,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2043*/ meltfptr[2042]; - /*_.INSTALL_INITIAL_MACRO__V2267*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2044*/ meltfptr[2043]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2267*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2044*/ meltfptr[2043]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2267*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2267*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7504:/ initchunk"); @@ -78007,15 +73457,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2047*/ meltfptr[2046]; - /*_.INSTALL_INITIAL_MACRO__V2268*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2048*/ meltfptr[2047]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2268*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2048*/ meltfptr[2047]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2268*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2268*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7555:/ initchunk"); @@ -78050,15 +73498,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2051*/ meltfptr[2050]; - /*_.INSTALL_INITIAL_MACRO__V2269*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2052*/ meltfptr[2051]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2269*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2052*/ meltfptr[2051]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2269*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2269*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7638:/ initchunk"); @@ -78110,15 +73556,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2060*/ meltfptr[2059]; - /*_.INSTALL_INITIAL_MACRO__V2270*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2061*/ meltfptr[2060]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2270*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2061*/ meltfptr[2060]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2270*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2270*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7691:/ initchunk"); @@ -78153,15 +73597,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2064*/ meltfptr[2063]; - /*_.INSTALL_INITIAL_MACRO__V2271*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2065*/ meltfptr[2064]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2271*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2065*/ meltfptr[2064]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2271*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2271*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7712:/ initchunk"); @@ -78196,15 +73638,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2069*/ meltfptr[2068]; - /*_.INSTALL_INITIAL_MACRO__V2272*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V160*/ meltfptr[159]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2272*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V160*/ meltfptr[159]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2272*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2272*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7754:/ initchunk"); @@ -78239,15 +73679,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2074*/ meltfptr[2073]; - /*_.INSTALL_INITIAL_MACRO__V2273*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V168*/ meltfptr[167]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2273*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V168*/ meltfptr[167]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2273*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2273*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7798:/ initchunk"); @@ -78282,15 +73720,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2076*/ meltfptr[2075]; - /*_.INSTALL_INITIAL_MACRO__V2274*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2077*/ meltfptr[2076]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2274*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2077*/ meltfptr[2076]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2274*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2274*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7838:/ initchunk"); @@ -78325,15 +73761,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2080*/ meltfptr[2079]; - /*_.INSTALL_INITIAL_MACRO__V2275*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2081*/ meltfptr[2080]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2275*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2081*/ meltfptr[2080]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2275*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2275*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7878:/ initchunk"); @@ -78368,15 +73802,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2086*/ meltfptr[2085]; - /*_.INSTALL_INITIAL_MACRO__V2276*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2276*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2276*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2276*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7973:/ initchunk"); @@ -78411,15 +73843,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2092*/ meltfptr[2091]; - /*_.INSTALL_INITIAL_MACRO__V2277*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2093*/ meltfptr[2092]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2277*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2093*/ meltfptr[2092]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2277*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2277*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7999:/ initchunk"); @@ -78454,15 +73884,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2096*/ meltfptr[2095]; - /*_.INSTALL_INITIAL_MACRO__V2278*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2097*/ meltfptr[2096]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2278*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2097*/ meltfptr[2096]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2278*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2278*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8022:/ initchunk"); @@ -78497,15 +73925,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2107*/ meltfptr[2106]; - /*_.INSTALL_INITIAL_MACRO__V2279*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2108*/ meltfptr[2107]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2279*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2108*/ meltfptr[2107]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2279*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2279*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8164:/ initchunk"); @@ -78540,15 +73966,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2112*/ meltfptr[2111]; - /*_.INSTALL_INITIAL_MACRO__V2280*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2113*/ meltfptr[2112]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2280*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2113*/ meltfptr[2112]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2280*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2280*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8206:/ initchunk"); @@ -78583,15 +74007,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2116*/ meltfptr[2115]; - /*_.INSTALL_INITIAL_MACRO__V2281*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2117*/ meltfptr[2116]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2281*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2117*/ meltfptr[2116]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2281*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2281*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8277:/ initchunk"); @@ -78626,15 +74048,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2120*/ meltfptr[2119]; - /*_.INSTALL_INITIAL_MACRO__V2282*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2121*/ meltfptr[2120]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2282*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2121*/ meltfptr[2120]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2282*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2282*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8329:/ initchunk"); @@ -78669,15 +74089,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2125*/ meltfptr[2124]; - /*_.INSTALL_INITIAL_MACRO__V2283*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2126*/ meltfptr[2125]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2283*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2126*/ meltfptr[2125]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2283*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2283*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8361:/ initchunk"); @@ -78712,15 +74130,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2129*/ meltfptr[2128]; - /*_.INSTALL_INITIAL_MACRO__V2284*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2130*/ meltfptr[2129]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2284*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2130*/ meltfptr[2129]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2284*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2284*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8410:/ initchunk"); @@ -78755,15 +74171,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2133*/ meltfptr[2132]; - /*_.INSTALL_INITIAL_MACRO__V2285*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2134*/ meltfptr[2133]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2285*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2134*/ meltfptr[2133]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2285*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2285*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8438:/ initchunk"); @@ -78798,15 +74212,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2133*/ meltfptr[2132]; - /*_.INSTALL_INITIAL_MACRO__V2286*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2136*/ meltfptr[2135]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2286*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2136*/ meltfptr[2135]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2286*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2286*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8447:/ initchunk"); @@ -78841,15 +74253,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2139*/ meltfptr[2138]; - /*_.INSTALL_INITIAL_MACRO__V2287*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2140*/ meltfptr[2139]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2287*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2140*/ meltfptr[2139]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2287*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2287*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8472:/ initchunk"); @@ -78884,15 +74294,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2143*/ meltfptr[2142]; - /*_.INSTALL_INITIAL_MACRO__V2288*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2144*/ meltfptr[2143]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2288*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2144*/ meltfptr[2143]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2288*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2288*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8504:/ initchunk"); @@ -78927,15 +74335,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2143*/ meltfptr[2142]; - /*_.INSTALL_INITIAL_MACRO__V2289*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2146*/ meltfptr[2145]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2289*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2146*/ meltfptr[2145]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2289*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2289*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8514:/ initchunk"); @@ -78970,15 +74376,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2149*/ meltfptr[2148]; - /*_.INSTALL_INITIAL_MACRO__V2290*/ - meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2150*/ meltfptr[2149]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2290*/ meltfptr[2204] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2150*/ meltfptr[2149]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2290*/ - meltfptr[2204] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2290*/ meltfptr[2204] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8543:/ initchunk"); @@ -79013,15 +74417,13 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2153*/ meltfptr[2152]; - /*_.INSTALL_INITIAL_MACRO__V2291*/ - meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2154*/ meltfptr[2153]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_INITIAL_MACRO__V2291*/ meltfptr[2203] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1676*/ meltfptr[1675]), (melt_ptr_t)(/*_._VALDATA___V2154*/ meltfptr[2153]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2291*/ - meltfptr[2203] = 0 ; + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2291*/ meltfptr[2203] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8579:/ initchunk"); @@ -79053,1706 +74455,1463 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (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___V755*/ meltfptr[754], /*_._VALDATA___V750*/ meltfptr[749], - /*quasi.cur.mod.env.ref norm.exp.val : MBIND_DEFMACRO*/ - /* check quasi.cur.mod.env.ref 967617664 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V757*/ meltfptr[756], /*_._VALDATA___V752*/ meltfptr[751], - /*quasi.cur.mod.env.ref norm.exp.val : MBIND_DATA*/ - /* check quasi.cur.mod.env.ref 585873273 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1605*/ meltfptr[1604], /*_._VALDATA___V1609*/ meltfptr[1608], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_PATTERN_EXPANSION_CONTEXT*/ - /* check quasi.cur.mod.env.ref 1070366054 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1621*/ meltfptr[1620], /*_._VALDATA___V1612*/ meltfptr[1611], - /*quasi.cur.mod.env.ref norm.exp.val : PCTX_MEXPANDER*/ - /* check quasi.cur.mod.env.ref 386989487 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1623*/ meltfptr[1622], /*_._VALDATA___V1614*/ meltfptr[1613], - /*quasi.cur.mod.env.ref norm.exp.val : PCTX_PEXPANDER*/ - /* check quasi.cur.mod.env.ref 633211996 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1625*/ meltfptr[1624], /*_._VALDATA___V1616*/ meltfptr[1615], - /*quasi.cur.mod.env.ref norm.exp.val : PCTX_VARMAP*/ - /* check quasi.cur.mod.env.ref 792678705 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1627*/ meltfptr[1626], /*_._VALDATA___V1618*/ meltfptr[1617], - /*quasi.cur.mod.env.ref norm.exp.val : PCTX_MODCTX*/ - /* check quasi.cur.mod.env.ref 513405071 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1231*/ meltfptr[1230], /*_._VALDATA___V1233*/ meltfptr[1232], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_AGAIN*/ - /* check quasi.cur.mod.env.ref 425067597 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1097*/ meltfptr[1096], /*_._VALDATA___V1099*/ meltfptr[1098], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_ANY_LET_BINDING*/ - /* check quasi.cur.mod.env.ref 345262959 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1105*/ meltfptr[1104], /*_._VALDATA___V1102*/ meltfptr[1101], - /*quasi.cur.mod.env.ref norm.exp.val : SLETB_BINDER*/ - /* check quasi.cur.mod.env.ref 461570135 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V367*/ meltfptr[366], /*_._VALDATA___V369*/ meltfptr[368], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_APPLY*/ - /* check quasi.cur.mod.env.ref 966487607 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V375*/ meltfptr[374], /*_._VALDATA___V372*/ meltfptr[371], - /*quasi.cur.mod.env.ref norm.exp.val : SAPP_FUN*/ - /* check quasi.cur.mod.env.ref 601308983 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V411*/ meltfptr[410], /*_._VALDATA___V413*/ meltfptr[412], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION*/ - /* check quasi.cur.mod.env.ref 1065705161 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V421*/ meltfptr[420], /*_._VALDATA___V416*/ meltfptr[415], - /*quasi.cur.mod.env.ref norm.exp.val : SARITHVAR_NEUTRAL*/ - /* check quasi.cur.mod.env.ref 557370601 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V423*/ meltfptr[422], /*_._VALDATA___V418*/ meltfptr[417], - /*quasi.cur.mod.env.ref norm.exp.val : SARITHVAR_PRIMITIVE*/ - /* check quasi.cur.mod.env.ref 720854471 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V357*/ meltfptr[356], /*_._VALDATA___V359*/ meltfptr[358], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_ARGUMENTED_OPERATOR*/ - /* check quasi.cur.mod.env.ref 1058475746 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V365*/ meltfptr[364], /*_._VALDATA___V362*/ meltfptr[361], - /*quasi.cur.mod.env.ref norm.exp.val : SARGOP_ARGS*/ - /* check quasi.cur.mod.env.ref 727484312 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V577*/ meltfptr[576], /*_._VALDATA___V579*/ meltfptr[578], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_BOX*/ - /* check quasi.cur.mod.env.ref 1047119200 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V535*/ meltfptr[534], /*_._VALDATA___V537*/ meltfptr[536], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CHEADER*/ - /* check quasi.cur.mod.env.ref 690788480 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V541*/ meltfptr[540], /*_._VALDATA___V543*/ meltfptr[542], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CIMPLEMENT*/ - /* check quasi.cur.mod.env.ref 677233618 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V425*/ meltfptr[424], /*_._VALDATA___V427*/ meltfptr[426], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CITERATION*/ - /* check quasi.cur.mod.env.ref 518187456 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V437*/ meltfptr[436], /*_._VALDATA___V430*/ meltfptr[429], - /*quasi.cur.mod.env.ref norm.exp.val : SCITER_OPER*/ - /* check quasi.cur.mod.env.ref 470909349 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V439*/ meltfptr[438], /*_._VALDATA___V432*/ meltfptr[431], - /*quasi.cur.mod.env.ref norm.exp.val : SCITER_VARBIND*/ - /* check quasi.cur.mod.env.ref 429183519 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V441*/ meltfptr[440], /*_._VALDATA___V434*/ meltfptr[433], - /*quasi.cur.mod.env.ref norm.exp.val : SCITER_BODY*/ - /* check quasi.cur.mod.env.ref 143649757 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V443*/ meltfptr[442], /*_._VALDATA___V445*/ meltfptr[444], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CMATCHEXPR*/ - /* check quasi.cur.mod.env.ref 968382482 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V451*/ meltfptr[450], /*_._VALDATA___V448*/ meltfptr[447], - /*quasi.cur.mod.env.ref norm.exp.val : SCMATX_CMATCHER*/ - /* check quasi.cur.mod.env.ref 263623191 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V519*/ meltfptr[518], /*_._VALDATA___V521*/ meltfptr[520], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CODE_STRING*/ - /* check quasi.cur.mod.env.ref 930283045 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V527*/ meltfptr[526], /*_._VALDATA___V524*/ meltfptr[523], - /*quasi.cur.mod.env.ref norm.exp.val : SC_CODESTRING*/ - /* check quasi.cur.mod.env.ref 272199300 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1325*/ meltfptr[1324], /*_._VALDATA___V1327*/ meltfptr[1326], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CODECHUNK*/ - /* check quasi.cur.mod.env.ref 422611998 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V509*/ meltfptr[508], /*_._VALDATA___V511*/ meltfptr[510], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_COMMENT*/ - /* check quasi.cur.mod.env.ref 824633537 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V517*/ meltfptr[516], /*_._VALDATA___V514*/ meltfptr[513], - /*quasi.cur.mod.env.ref norm.exp.val : SCOMM_STR*/ - /* check quasi.cur.mod.env.ref 412809145 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1247*/ meltfptr[1246], /*_._VALDATA___V1249*/ meltfptr[1248], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_COMPILEWARNING*/ - /* check quasi.cur.mod.env.ref 556914290 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1257*/ meltfptr[1256], /*_._VALDATA___V1252*/ meltfptr[1251], - /*quasi.cur.mod.env.ref norm.exp.val : SCWARN_MSG*/ - /* check quasi.cur.mod.env.ref 315924398 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1259*/ meltfptr[1258], /*_._VALDATA___V1254*/ meltfptr[1253], - /*quasi.cur.mod.env.ref norm.exp.val : SCWARN_EXPR*/ - /* check quasi.cur.mod.env.ref 214526626 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V583*/ meltfptr[582], /*_._VALDATA___V585*/ meltfptr[584], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CONSTANT_BOX*/ - /* check quasi.cur.mod.env.ref 193090099 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1045*/ meltfptr[1044], /*_._VALDATA___V1047*/ meltfptr[1046], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CPPIF*/ - /* check quasi.cur.mod.env.ref 116082207 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1057*/ meltfptr[1056], /*_._VALDATA___V1050*/ meltfptr[1049], - /*quasi.cur.mod.env.ref norm.exp.val : SIFP_COND*/ - /* check quasi.cur.mod.env.ref 770325977 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1059*/ meltfptr[1058], /*_._VALDATA___V1052*/ meltfptr[1051], - /*quasi.cur.mod.env.ref norm.exp.val : SIFP_THEN*/ - /* check quasi.cur.mod.env.ref 60684061 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1061*/ meltfptr[1060], /*_._VALDATA___V1054*/ meltfptr[1053], - /*quasi.cur.mod.env.ref norm.exp.val : SIFP_ELSE*/ - /* check quasi.cur.mod.env.ref 892524607 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1261*/ meltfptr[1260], /*_._VALDATA___V1263*/ meltfptr[1262], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /* check quasi.cur.mod.env.ref 816362886 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1269*/ meltfptr[1268], /*_._VALDATA___V1266*/ meltfptr[1265], - /*quasi.cur.mod.env.ref norm.exp.val : CMEC_COMMENT*/ - /* check quasi.cur.mod.env.ref 815374776 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V813*/ meltfptr[812], /*_._VALDATA___V815*/ meltfptr[814], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFCITERATOR*/ - /* check quasi.cur.mod.env.ref 335238025 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V825*/ meltfptr[824], /*_._VALDATA___V818*/ meltfptr[817], - /*quasi.cur.mod.env.ref norm.exp.val : SCITERDEF_CITERATOR*/ - /* check quasi.cur.mod.env.ref 549838754 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V827*/ meltfptr[826], /*_._VALDATA___V820*/ meltfptr[819], - /*quasi.cur.mod.env.ref norm.exp.val : SCITERDEF_BEFORELOC*/ - /* check quasi.cur.mod.env.ref 396441355 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V829*/ meltfptr[828], /*_._VALDATA___V822*/ meltfptr[821], - /*quasi.cur.mod.env.ref norm.exp.val : SCITERDEF_AFTERLOC*/ - /* check quasi.cur.mod.env.ref 26810561 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V889*/ meltfptr[888], /*_._VALDATA___V891*/ meltfptr[890], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFCLASS*/ - /* check quasi.cur.mod.env.ref 125733082 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V901*/ meltfptr[900], /*_._VALDATA___V894*/ meltfptr[893], - /*quasi.cur.mod.env.ref norm.exp.val : SCLASS_CLABIND*/ - /* check quasi.cur.mod.env.ref 207894437 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V903*/ meltfptr[902], /*_._VALDATA___V896*/ meltfptr[895], - /*quasi.cur.mod.env.ref norm.exp.val : SCLASS_SUPERBIND*/ - /* check quasi.cur.mod.env.ref 1067262321 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V905*/ meltfptr[904], /*_._VALDATA___V898*/ meltfptr[897], - /*quasi.cur.mod.env.ref norm.exp.val : SCLASS_FLDBINDS*/ - /* check quasi.cur.mod.env.ref 440950454 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V831*/ meltfptr[830], /*_._VALDATA___V833*/ meltfptr[832], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFCMATCHER*/ - /* check quasi.cur.mod.env.ref 1066492277 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V845*/ meltfptr[844], /*_._VALDATA___V836*/ meltfptr[835], - /*quasi.cur.mod.env.ref norm.exp.val : SCMATDEF_CMATCHER*/ - /* check quasi.cur.mod.env.ref 1038161940 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V847*/ meltfptr[846], /*_._VALDATA___V838*/ meltfptr[837], - /*quasi.cur.mod.env.ref norm.exp.val : SCMATDEF_TESTLOC*/ - /* check quasi.cur.mod.env.ref 436149504 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V849*/ meltfptr[848], /*_._VALDATA___V840*/ meltfptr[839], - /*quasi.cur.mod.env.ref norm.exp.val : SCMATDEF_FILLLOC*/ - /* check quasi.cur.mod.env.ref 310364480 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V851*/ meltfptr[850], /*_._VALDATA___V842*/ meltfptr[841], - /*quasi.cur.mod.env.ref norm.exp.val : SCMATDEF_OPERLOC*/ - /* check quasi.cur.mod.env.ref 76403994 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V787*/ meltfptr[786], /*_._VALDATA___V789*/ meltfptr[788], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFHOOK*/ - /* check quasi.cur.mod.env.ref 629610219 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V803*/ meltfptr[802], /*_._VALDATA___V792*/ meltfptr[791], - /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_OUT_FORMALS*/ - /* check quasi.cur.mod.env.ref 646853053 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V805*/ meltfptr[804], /*_._VALDATA___V794*/ meltfptr[793], - /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_CTYPE*/ - /* check quasi.cur.mod.env.ref 145152293 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V807*/ meltfptr[806], /*_._VALDATA___V796*/ meltfptr[795], - /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_PREDEF*/ - /* check quasi.cur.mod.env.ref 871518452 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V809*/ meltfptr[808], /*_._VALDATA___V798*/ meltfptr[797], - /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_VARIABLE*/ - /* check quasi.cur.mod.env.ref 288672405 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V811*/ meltfptr[810], /*_._VALDATA___V800*/ meltfptr[799], - /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_BODY*/ - /* check quasi.cur.mod.env.ref 500634825 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V703*/ meltfptr[702], /*_._VALDATA___V705*/ meltfptr[704], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFINE*/ - /* check quasi.cur.mod.env.ref 495675162 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V711*/ meltfptr[710], /*_._VALDATA___V708*/ meltfptr[707], - /*quasi.cur.mod.env.ref norm.exp.val : SDEFINE_BODY*/ - /* check quasi.cur.mod.env.ref 511109571 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V683*/ meltfptr[682], /*_._VALDATA___V685*/ meltfptr[684], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFINITION*/ - /* check quasi.cur.mod.env.ref 856907480 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V693*/ meltfptr[692], /*_._VALDATA___V688*/ meltfptr[687], - /*quasi.cur.mod.env.ref norm.exp.val : SDEF_NAME*/ - /* check quasi.cur.mod.env.ref 1069159139 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V695*/ meltfptr[694], /*_._VALDATA___V690*/ meltfptr[689], - /*quasi.cur.mod.env.ref norm.exp.val : SDEF_DOC*/ - /* check quasi.cur.mod.env.ref 294535743 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V713*/ meltfptr[712], /*_._VALDATA___V715*/ meltfptr[714], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFINITION_FORMAL*/ - /* check quasi.cur.mod.env.ref 859678258 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V721*/ meltfptr[720], /*_._VALDATA___V718*/ meltfptr[717], - /*quasi.cur.mod.env.ref norm.exp.val : SFORMAL_ARGS*/ - /* check quasi.cur.mod.env.ref 849609305 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V907*/ meltfptr[906], /*_._VALDATA___V909*/ meltfptr[908], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFINSTANCE*/ - /* check quasi.cur.mod.env.ref 215488002 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V921*/ meltfptr[920], /*_._VALDATA___V912*/ meltfptr[911], - /*quasi.cur.mod.env.ref norm.exp.val : SINST_CLASS*/ - /* check quasi.cur.mod.env.ref 598455855 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V923*/ meltfptr[922], /*_._VALDATA___V914*/ meltfptr[913], - /*quasi.cur.mod.env.ref norm.exp.val : SINST_CLABIND*/ - /* check quasi.cur.mod.env.ref 602943291 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V925*/ meltfptr[924], /*_._VALDATA___V916*/ meltfptr[915], - /*quasi.cur.mod.env.ref norm.exp.val : SINST_OBJNUM*/ - /* check quasi.cur.mod.env.ref 389657281 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V927*/ meltfptr[926], /*_._VALDATA___V918*/ meltfptr[917], - /*quasi.cur.mod.env.ref norm.exp.val : SINST_FIELDS*/ - /* check quasi.cur.mod.env.ref 405562387 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V879*/ meltfptr[878], /*_._VALDATA___V881*/ meltfptr[880], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFOBJCOMMON*/ - /* check quasi.cur.mod.env.ref 340659896 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V887*/ meltfptr[886], /*_._VALDATA___V884*/ meltfptr[883], - /*quasi.cur.mod.env.ref norm.exp.val : SOBJ_PREDEF*/ - /* check quasi.cur.mod.env.ref 377705663 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V769*/ meltfptr[768], /*_._VALDATA___V771*/ meltfptr[770], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFPRIMITIVE*/ - /* check quasi.cur.mod.env.ref 819170689 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V781*/ meltfptr[780], /*_._VALDATA___V774*/ meltfptr[773], - /*quasi.cur.mod.env.ref norm.exp.val : SPRIM_TYPE*/ - /* check quasi.cur.mod.env.ref 442094809 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V783*/ meltfptr[782], /*_._VALDATA___V776*/ meltfptr[775], - /*quasi.cur.mod.env.ref norm.exp.val : SPRIM_EXPANSION*/ - /* check quasi.cur.mod.env.ref 89509684 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V785*/ meltfptr[784], /*_._VALDATA___V778*/ meltfptr[777], - /*quasi.cur.mod.env.ref norm.exp.val : SPRIM_EXPLOC*/ - /* check quasi.cur.mod.env.ref 581760044 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V733*/ meltfptr[732], /*_._VALDATA___V735*/ meltfptr[734], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFMACRO*/ - /* check quasi.cur.mod.env.ref 374369088 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V741*/ meltfptr[740], /*_._VALDATA___V738*/ meltfptr[737], - /*quasi.cur.mod.env.ref norm.exp.val : SMACRO_BINDING*/ - /* check quasi.cur.mod.env.ref 992566507 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V929*/ meltfptr[928], /*_._VALDATA___V931*/ meltfptr[930], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFSELECTOR*/ - /* check quasi.cur.mod.env.ref 469169020 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V937*/ meltfptr[936], /*_._VALDATA___V934*/ meltfptr[933], - /*quasi.cur.mod.env.ref norm.exp.val : SDEFSEL_FORMALS*/ - /* check quasi.cur.mod.env.ref 385544015 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V723*/ meltfptr[722], /*_._VALDATA___V725*/ meltfptr[724], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFUN*/ - /* check quasi.cur.mod.env.ref 582953943 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V731*/ meltfptr[730], /*_._VALDATA___V728*/ meltfptr[727], - /*quasi.cur.mod.env.ref norm.exp.val : SFUN_BODY*/ - /* check quasi.cur.mod.env.ref 378334159 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V853*/ meltfptr[852], /*_._VALDATA___V855*/ meltfptr[854], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFUNMATCHER*/ - /* check quasi.cur.mod.env.ref 999567486 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V869*/ meltfptr[868], /*_._VALDATA___V858*/ meltfptr[857], - /*quasi.cur.mod.env.ref norm.exp.val : SFUMATDEF_INS*/ - /* check quasi.cur.mod.env.ref 906625344 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V871*/ meltfptr[870], /*_._VALDATA___V860*/ meltfptr[859], - /*quasi.cur.mod.env.ref norm.exp.val : SFUMATDEF_OUTS*/ - /* check quasi.cur.mod.env.ref 431995134 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V873*/ meltfptr[872], /*_._VALDATA___V862*/ meltfptr[861], - /*quasi.cur.mod.env.ref norm.exp.val : SFUMATDEF_MATCHF*/ - /* check quasi.cur.mod.env.ref 776780605 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V875*/ meltfptr[874], /*_._VALDATA___V864*/ meltfptr[863], - /*quasi.cur.mod.env.ref norm.exp.val : SFUMATDEF_APPLYF*/ - /* check quasi.cur.mod.env.ref 876661364 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V877*/ meltfptr[876], /*_._VALDATA___V866*/ meltfptr[865], - /*quasi.cur.mod.env.ref norm.exp.val : SFUMATDEF_DATA*/ - /* check quasi.cur.mod.env.ref 398024564 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V697*/ meltfptr[696], /*_._VALDATA___V699*/ meltfptr[698], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFVAR*/ - /* check quasi.cur.mod.env.ref 891250062 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1237*/ meltfptr[1236], /*_._VALDATA___V1239*/ meltfptr[1238], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXIT*/ - /* check quasi.cur.mod.env.ref 326520183 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1245*/ meltfptr[1244], /*_._VALDATA___V1242*/ meltfptr[1241], - /*quasi.cur.mod.env.ref norm.exp.val : SEXI_BODY*/ - /* check quasi.cur.mod.env.ref 329725624 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V625*/ meltfptr[624], /*_._VALDATA___V627*/ meltfptr[626], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_ANY_MACRO*/ - /* check quasi.cur.mod.env.ref 981742820 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V635*/ meltfptr[634], /*_._VALDATA___V630*/ meltfptr[629], - /*quasi.cur.mod.env.ref norm.exp.val : SEXPMAC_MNAME*/ - /* check quasi.cur.mod.env.ref 179826538 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V637*/ meltfptr[636], /*_._VALDATA___V632*/ meltfptr[631], - /*quasi.cur.mod.env.ref norm.exp.val : SEXPMAC_DOC*/ - /* check quasi.cur.mod.env.ref 198408396 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V619*/ meltfptr[618], /*_._VALDATA___V621*/ meltfptr[620], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_CLASS*/ - /* check quasi.cur.mod.env.ref 22961983 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V649*/ meltfptr[648], /*_._VALDATA___V651*/ meltfptr[650], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_DEFMACRO*/ - /* check quasi.cur.mod.env.ref 579085668 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V639*/ meltfptr[638], /*_._VALDATA___V641*/ meltfptr[640], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_MACRO*/ - /* check quasi.cur.mod.env.ref 364579332 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V647*/ meltfptr[646], /*_._VALDATA___V644*/ meltfptr[643], - /*quasi.cur.mod.env.ref norm.exp.val : SEXPMAC_MVAL*/ - /* check quasi.cur.mod.env.ref 1060961844 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V655*/ meltfptr[654], /*_._VALDATA___V657*/ meltfptr[656], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_PATMACRO*/ - /* check quasi.cur.mod.env.ref 1004076457 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V663*/ meltfptr[662], /*_._VALDATA___V660*/ meltfptr[659], - /*quasi.cur.mod.env.ref norm.exp.val : SEXPPAT_PVAL*/ - /* check quasi.cur.mod.env.ref 2631432 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V665*/ meltfptr[664], /*_._VALDATA___V667*/ meltfptr[666], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_SYNONYM*/ - /* check quasi.cur.mod.env.ref 480049024 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V677*/ meltfptr[676], /*_._VALDATA___V670*/ meltfptr[669], - /*quasi.cur.mod.env.ref norm.exp.val : SEXPSYN_NEWNAME*/ - /* check quasi.cur.mod.env.ref 463948046 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V679*/ meltfptr[678], /*_._VALDATA___V672*/ meltfptr[671], - /*quasi.cur.mod.env.ref norm.exp.val : SEXPSYN_OLDNAME*/ - /* check quasi.cur.mod.env.ref 179446777 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V681*/ meltfptr[680], /*_._VALDATA___V674*/ meltfptr[673], - /*quasi.cur.mod.env.ref norm.exp.val : SEXPSYN_DOC*/ - /* check quasi.cur.mod.env.ref 142679992 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V613*/ meltfptr[612], /*_._VALDATA___V615*/ meltfptr[614], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_VALUES*/ - /* check quasi.cur.mod.env.ref 895440512 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V603*/ meltfptr[602], /*_._VALDATA___V605*/ meltfptr[604], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORTCOMMON*/ - /* check quasi.cur.mod.env.ref 678499838 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V611*/ meltfptr[610], /*_._VALDATA___V608*/ meltfptr[607], - /*quasi.cur.mod.env.ref norm.exp.val : SEXPORT_NAMES*/ - /* check quasi.cur.mod.env.ref 633841903 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1331*/ meltfptr[1330], /*_._VALDATA___V1333*/ meltfptr[1332], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPRCHUNK*/ - /* check quasi.cur.mod.env.ref 38393051 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1339*/ meltfptr[1338], /*_._VALDATA___V1336*/ meltfptr[1335], - /*quasi.cur.mod.env.ref norm.exp.val : SXCH_CTYPE*/ - /* check quasi.cur.mod.env.ref 464644741 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1287*/ meltfptr[1286], /*_._VALDATA___V1289*/ meltfptr[1288], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_FETCH_PREDEFINED*/ - /* check quasi.cur.mod.env.ref 451075818 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1295*/ meltfptr[1294], /*_._VALDATA___V1292*/ meltfptr[1291], - /*quasi.cur.mod.env.ref norm.exp.val : SFEPD_PREDEF*/ - /* check quasi.cur.mod.env.ref 334941688 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1459*/ meltfptr[1458], /*_._VALDATA___V1461*/ meltfptr[1460], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_FIELD_PATTERN*/ - /* check quasi.cur.mod.env.ref 295820073 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1469*/ meltfptr[1468], /*_._VALDATA___V1464*/ meltfptr[1463], - /*quasi.cur.mod.env.ref norm.exp.val : SPAF_FIELD*/ - /* check quasi.cur.mod.env.ref 467256565 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1471*/ meltfptr[1470], /*_._VALDATA___V1466*/ meltfptr[1465], - /*quasi.cur.mod.env.ref norm.exp.val : SPAF_PATTERN*/ - /* check quasi.cur.mod.env.ref 236128796 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V939*/ meltfptr[938], /*_._VALDATA___V941*/ meltfptr[940], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_FIELDASSIGN*/ - /* check quasi.cur.mod.env.ref 67704007 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V949*/ meltfptr[948], /*_._VALDATA___V944*/ meltfptr[943], - /*quasi.cur.mod.env.ref norm.exp.val : SFLA_FIELD*/ - /* check quasi.cur.mod.env.ref 317936786 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V951*/ meltfptr[950], /*_._VALDATA___V946*/ meltfptr[945], - /*quasi.cur.mod.env.ref norm.exp.val : SFLA_EXPR*/ - /* check quasi.cur.mod.env.ref 1026544837 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1221*/ meltfptr[1220], /*_._VALDATA___V1223*/ meltfptr[1222], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_FOREVER*/ - /* check quasi.cur.mod.env.ref 212204154 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1229*/ meltfptr[1228], /*_._VALDATA___V1226*/ meltfptr[1225], - /*quasi.cur.mod.env.ref norm.exp.val : SFRV_BODY*/ - /* check quasi.cur.mod.env.ref 403626635 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V453*/ meltfptr[452], /*_._VALDATA___V455*/ meltfptr[454], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_FUNMATCHEXPR*/ - /* check quasi.cur.mod.env.ref 466184787 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V463*/ meltfptr[462], /*_._VALDATA___V458*/ meltfptr[457], - /*quasi.cur.mod.env.ref norm.exp.val : SFMATX_FMATCHER*/ - /* check quasi.cur.mod.env.ref 938377917 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V465*/ meltfptr[464], /*_._VALDATA___V460*/ meltfptr[459], - /*quasi.cur.mod.env.ref norm.exp.val : SFMATX_FMATBIND*/ - /* check quasi.cur.mod.env.ref 641875689 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V327*/ meltfptr[326], /*_._VALDATA___V331*/ meltfptr[330], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_GENERATOR_DEVICE*/ - /* check quasi.cur.mod.env.ref 917171907 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V339*/ meltfptr[338], /*_._VALDATA___V334*/ meltfptr[333], - /*quasi.cur.mod.env.ref norm.exp.val : SRCGEN_DEFIN*/ - /* check quasi.cur.mod.env.ref 211390753 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V341*/ meltfptr[340], /*_._VALDATA___V336*/ meltfptr[335], - /*quasi.cur.mod.env.ref norm.exp.val : SRCGEN_REPR*/ - /* check quasi.cur.mod.env.ref 43163740 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V971*/ meltfptr[970], /*_._VALDATA___V973*/ meltfptr[972], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_GET_FIELD*/ - /* check quasi.cur.mod.env.ref 909131465 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V981*/ meltfptr[980], /*_._VALDATA___V976*/ meltfptr[975], - /*quasi.cur.mod.env.ref norm.exp.val : SUGET_OBJ*/ - /* check quasi.cur.mod.env.ref 1011743674 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V983*/ meltfptr[982], /*_._VALDATA___V978*/ meltfptr[977], - /*quasi.cur.mod.env.ref norm.exp.val : SUGET_FIELD*/ - /* check quasi.cur.mod.env.ref 1019987317 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V401*/ meltfptr[400], /*_._VALDATA___V403*/ meltfptr[402], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_HOOK_CALL*/ - /* check quasi.cur.mod.env.ref 803639135 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V409*/ meltfptr[408], /*_._VALDATA___V406*/ meltfptr[405], - /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_CALLED*/ - /* check quasi.cur.mod.env.ref 731505042 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1011*/ meltfptr[1010], /*_._VALDATA___V1013*/ meltfptr[1012], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_IF*/ - /* check quasi.cur.mod.env.ref 330446483 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1021*/ meltfptr[1020], /*_._VALDATA___V1016*/ meltfptr[1015], - /*quasi.cur.mod.env.ref norm.exp.val : SIF_TEST*/ - /* check quasi.cur.mod.env.ref 1019612670 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1023*/ meltfptr[1022], /*_._VALDATA___V1018*/ meltfptr[1017], - /*quasi.cur.mod.env.ref norm.exp.val : SIF_THEN*/ - /* check quasi.cur.mod.env.ref 42412010 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1025*/ meltfptr[1024], /*_._VALDATA___V1027*/ meltfptr[1026], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_IFELSE*/ - /* check quasi.cur.mod.env.ref 190435220 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1033*/ meltfptr[1032], /*_._VALDATA___V1030*/ meltfptr[1029], - /*quasi.cur.mod.env.ref norm.exp.val : SIF_ELSE*/ - /* check quasi.cur.mod.env.ref 581922057 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1175*/ meltfptr[1174], /*_._VALDATA___V1177*/ meltfptr[1176], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_IFVARIADIC*/ - /* check quasi.cur.mod.env.ref 679850541 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1187*/ meltfptr[1186], /*_._VALDATA___V1180*/ meltfptr[1179], - /*quasi.cur.mod.env.ref norm.exp.val : SIFVARIADIC_ARGBIND*/ - /* check quasi.cur.mod.env.ref 1039172427 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1189*/ meltfptr[1188], /*_._VALDATA___V1182*/ meltfptr[1181], - /*quasi.cur.mod.env.ref norm.exp.val : SIFVARIADIC_THEN*/ - /* check quasi.cur.mod.env.ref 40045012 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1191*/ meltfptr[1190], /*_._VALDATA___V1184*/ meltfptr[1183], - /*quasi.cur.mod.env.ref norm.exp.val : SIFVARIADIC_ELSE*/ - /* check quasi.cur.mod.env.ref 509421246 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V953*/ meltfptr[952], /*_._VALDATA___V955*/ meltfptr[954], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_INSTANCE*/ - /* check quasi.cur.mod.env.ref 377795300 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V965*/ meltfptr[964], /*_._VALDATA___V958*/ meltfptr[957], - /*quasi.cur.mod.env.ref norm.exp.val : SMINS_CLASS*/ - /* check quasi.cur.mod.env.ref 377844062 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V967*/ meltfptr[966], /*_._VALDATA___V960*/ meltfptr[959], - /*quasi.cur.mod.env.ref norm.exp.val : SMINS_CLABIND*/ - /* check quasi.cur.mod.env.ref 262190859 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V969*/ meltfptr[968], /*_._VALDATA___V962*/ meltfptr[961], - /*quasi.cur.mod.env.ref norm.exp.val : SMINS_FIELDS*/ - /* check quasi.cur.mod.env.ref 487338037 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1211*/ meltfptr[1210], /*_._VALDATA___V1213*/ meltfptr[1212], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LABELLED*/ - /* check quasi.cur.mod.env.ref 107754303 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1219*/ meltfptr[1218], /*_._VALDATA___V1216*/ meltfptr[1215], - /*quasi.cur.mod.env.ref norm.exp.val : SLABEL_BIND*/ - /* check quasi.cur.mod.env.ref 372178585 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1161*/ meltfptr[1160], /*_._VALDATA___V1163*/ meltfptr[1162], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LAMBDA*/ - /* check quasi.cur.mod.env.ref 602088385 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1171*/ meltfptr[1170], /*_._VALDATA___V1166*/ meltfptr[1165], - /*quasi.cur.mod.env.ref norm.exp.val : SLAM_ARGBIND*/ - /* check quasi.cur.mod.env.ref 831161702 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1173*/ meltfptr[1172], /*_._VALDATA___V1168*/ meltfptr[1167], - /*quasi.cur.mod.env.ref norm.exp.val : SLAM_BODY*/ - /* check quasi.cur.mod.env.ref 327458700 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V343*/ meltfptr[342], /*_._VALDATA___V345*/ meltfptr[344], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LAZY_MACRO_EXPANSION*/ - /* check quasi.cur.mod.env.ref 79827117 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V353*/ meltfptr[352], /*_._VALDATA___V348*/ meltfptr[347], - /*quasi.cur.mod.env.ref norm.exp.val : SLAZYMACRO_FUN*/ - /* check quasi.cur.mod.env.ref 186782608 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V355*/ meltfptr[354], /*_._VALDATA___V350*/ meltfptr[349], - /*quasi.cur.mod.env.ref norm.exp.val : SLAZYMACRO_OPER*/ - /* check quasi.cur.mod.env.ref 721695221 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1141*/ meltfptr[1140], /*_._VALDATA___V1143*/ meltfptr[1142], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LET*/ - /* check quasi.cur.mod.env.ref 135430222 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1151*/ meltfptr[1150], /*_._VALDATA___V1146*/ meltfptr[1145], - /*quasi.cur.mod.env.ref norm.exp.val : SLET_BINDINGS*/ - /* check quasi.cur.mod.env.ref 854573006 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1153*/ meltfptr[1152], /*_._VALDATA___V1148*/ meltfptr[1147], - /*quasi.cur.mod.env.ref norm.exp.val : SLET_BODY*/ - /* check quasi.cur.mod.env.ref 925737339 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1121*/ meltfptr[1120], /*_._VALDATA___V1123*/ meltfptr[1122], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LET_BINDING*/ - /* check quasi.cur.mod.env.ref 524901640 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1131*/ meltfptr[1130], /*_._VALDATA___V1126*/ meltfptr[1125], - /*quasi.cur.mod.env.ref norm.exp.val : SLETB_TYPE*/ - /* check quasi.cur.mod.env.ref 1056638836 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1133*/ meltfptr[1132], /*_._VALDATA___V1128*/ meltfptr[1127], - /*quasi.cur.mod.env.ref norm.exp.val : SLETB_EXPR*/ - /* check quasi.cur.mod.env.ref 46248600 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1155*/ meltfptr[1154], /*_._VALDATA___V1157*/ meltfptr[1156], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LETREC*/ - /* check quasi.cur.mod.env.ref 703991157 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1135*/ meltfptr[1134], /*_._VALDATA___V1137*/ meltfptr[1136], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LETREC_BINDING*/ - /* check quasi.cur.mod.env.ref 535647931 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V473*/ meltfptr[472], /*_._VALDATA___V475*/ meltfptr[474], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LIST*/ - /* check quasi.cur.mod.env.ref 876971424 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1107*/ meltfptr[1106], /*_._VALDATA___V1109*/ meltfptr[1108], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MACRO_LET_BINDING*/ - /* check quasi.cur.mod.env.ref 774267543 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1117*/ meltfptr[1116], /*_._VALDATA___V1112*/ meltfptr[1111], - /*quasi.cur.mod.env.ref norm.exp.val : SLETM_MACRO_FORMALS*/ - /* check quasi.cur.mod.env.ref 335541494 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1119*/ meltfptr[1118], /*_._VALDATA___V1114*/ meltfptr[1113], - /*quasi.cur.mod.env.ref norm.exp.val : SLETM_MACRO_BODY*/ - /* check quasi.cur.mod.env.ref 288628026 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V759*/ meltfptr[758], /*_._VALDATA___V761*/ meltfptr[760], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MACRO_INSTALLATION*/ - /* check quasi.cur.mod.env.ref 896996762 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V767*/ meltfptr[766], /*_._VALDATA___V764*/ meltfptr[763], - /*quasi.cur.mod.env.ref norm.exp.val : SMACINST_DEFMACRO*/ - /* check quasi.cur.mod.env.ref 494522219 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1063*/ meltfptr[1062], /*_._VALDATA___V1065*/ meltfptr[1064], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MATCH*/ - /* check quasi.cur.mod.env.ref 797283521 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1073*/ meltfptr[1072], /*_._VALDATA___V1068*/ meltfptr[1067], - /*quasi.cur.mod.env.ref norm.exp.val : SMAT_MATCHEDX*/ - /* check quasi.cur.mod.env.ref 230387570 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1075*/ meltfptr[1074], /*_._VALDATA___V1070*/ meltfptr[1069], - /*quasi.cur.mod.env.ref norm.exp.val : SMAT_CASES*/ - /* check quasi.cur.mod.env.ref 947645405 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1083*/ meltfptr[1082], /*_._VALDATA___V1085*/ meltfptr[1084], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MATCH_CASE*/ - /* check quasi.cur.mod.env.ref 98944653 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1093*/ meltfptr[1092], /*_._VALDATA___V1088*/ meltfptr[1087], - /*quasi.cur.mod.env.ref norm.exp.val : SCAM_PATT*/ - /* check quasi.cur.mod.env.ref 491704761 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1095*/ meltfptr[1094], /*_._VALDATA___V1090*/ meltfptr[1089], - /*quasi.cur.mod.env.ref norm.exp.val : SCAM_BODY*/ - /* check quasi.cur.mod.env.ref 182068076 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1077*/ meltfptr[1076], /*_._VALDATA___V1079*/ meltfptr[1078], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MATCHALT*/ - /* check quasi.cur.mod.env.ref 821418049 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V529*/ meltfptr[528], /*_._VALDATA___V531*/ meltfptr[530], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE*/ - /* check quasi.cur.mod.env.ref 814319033 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V377*/ meltfptr[376], /*_._VALDATA___V379*/ meltfptr[378], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MSEND*/ - /* check quasi.cur.mod.env.ref 378595050 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V387*/ meltfptr[386], /*_._VALDATA___V382*/ meltfptr[381], - /*quasi.cur.mod.env.ref norm.exp.val : MSEND_SELSYMB*/ - /* check quasi.cur.mod.env.ref 494147135 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V389*/ meltfptr[388], /*_._VALDATA___V384*/ meltfptr[383], - /*quasi.cur.mod.env.ref norm.exp.val : MSEND_RECV*/ - /* check quasi.cur.mod.env.ref 746170318 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1193*/ meltfptr[1192], /*_._VALDATA___V1195*/ meltfptr[1194], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MULTICALL*/ - /* check quasi.cur.mod.env.ref 204676592 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1205*/ meltfptr[1204], /*_._VALDATA___V1198*/ meltfptr[1197], - /*quasi.cur.mod.env.ref norm.exp.val : SMULC_RESBIND*/ - /* check quasi.cur.mod.env.ref 776713884 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1207*/ meltfptr[1206], /*_._VALDATA___V1200*/ meltfptr[1199], - /*quasi.cur.mod.env.ref norm.exp.val : SMULC_CALL*/ - /* check quasi.cur.mod.env.ref 286960552 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1209*/ meltfptr[1208], /*_._VALDATA___V1202*/ meltfptr[1201], - /*quasi.cur.mod.env.ref norm.exp.val : SMULC_BODY*/ - /* check quasi.cur.mod.env.ref 10826922 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1035*/ meltfptr[1034], /*_._VALDATA___V1037*/ meltfptr[1036], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_OR*/ - /* check quasi.cur.mod.env.ref 515218721 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1043*/ meltfptr[1042], /*_._VALDATA___V1040*/ meltfptr[1039], - /*quasi.cur.mod.env.ref norm.exp.val : SOR_DISJ*/ - /* check quasi.cur.mod.env.ref 29219994 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1271*/ meltfptr[1270], /*_._VALDATA___V1273*/ meltfptr[1272], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ - /* check quasi.cur.mod.env.ref 358708032 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1341*/ meltfptr[1340], /*_._VALDATA___V1343*/ meltfptr[1342], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN*/ - /* check quasi.cur.mod.env.ref 170267169 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1349*/ meltfptr[1348], /*_._VALDATA___V1346*/ meltfptr[1345], - /*quasi.cur.mod.env.ref norm.exp.val : PAT_WEIGHT*/ - /* check quasi.cur.mod.env.ref 288203884 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1361*/ meltfptr[1360], /*_._VALDATA___V1363*/ meltfptr[1362], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_AND*/ - /* check quasi.cur.mod.env.ref 1036631946 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1369*/ meltfptr[1368], /*_._VALDATA___V1366*/ meltfptr[1365], - /*quasi.cur.mod.env.ref norm.exp.val : ANDPAT_CONJ*/ - /* check quasi.cur.mod.env.ref 653535570 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1501*/ meltfptr[1500], /*_._VALDATA___V1503*/ meltfptr[1502], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_C_MATCH*/ - /* check quasi.cur.mod.env.ref 266658522 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1473*/ meltfptr[1472], /*_._VALDATA___V1475*/ meltfptr[1474], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_COMPOSITE*/ - /* check quasi.cur.mod.env.ref 846377228 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1487*/ meltfptr[1486], /*_._VALDATA___V1478*/ meltfptr[1477], - /*quasi.cur.mod.env.ref norm.exp.val : SPAC_OPERATOR*/ - /* check quasi.cur.mod.env.ref 128253805 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1489*/ meltfptr[1488], /*_._VALDATA___V1480*/ meltfptr[1479], - /*quasi.cur.mod.env.ref norm.exp.val : SPAC_OPERBIND*/ - /* check quasi.cur.mod.env.ref 819390800 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1491*/ meltfptr[1490], /*_._VALDATA___V1482*/ meltfptr[1481], - /*quasi.cur.mod.env.ref norm.exp.val : SPAC_INARGS*/ - /* check quasi.cur.mod.env.ref 766740258 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1493*/ meltfptr[1492], /*_._VALDATA___V1484*/ meltfptr[1483], - /*quasi.cur.mod.env.ref norm.exp.val : SPAC_OUTARGS*/ - /* check quasi.cur.mod.env.ref 287702488 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1407*/ meltfptr[1406], /*_._VALDATA___V1409*/ meltfptr[1408], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_CONSTANT*/ - /* check quasi.cur.mod.env.ref 554221375 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1415*/ meltfptr[1414], /*_._VALDATA___V1412*/ meltfptr[1411], - /*quasi.cur.mod.env.ref norm.exp.val : SPAT_CONSTX*/ - /* check quasi.cur.mod.env.ref 166397929 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1417*/ meltfptr[1416], /*_._VALDATA___V1419*/ meltfptr[1418], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_CONSTRUCT*/ - /* check quasi.cur.mod.env.ref 540307801 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1425*/ meltfptr[1424], /*_._VALDATA___V1422*/ meltfptr[1421], - /*quasi.cur.mod.env.ref norm.exp.val : CTPAT_SUBPA*/ - /* check quasi.cur.mod.env.ref 770212717 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1453*/ meltfptr[1452], /*_._VALDATA___V1455*/ meltfptr[1454], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_INSTANCE*/ - /* check quasi.cur.mod.env.ref 678717360 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1401*/ meltfptr[1400], /*_._VALDATA___V1403*/ meltfptr[1402], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ - /* check quasi.cur.mod.env.ref 486189761 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1433*/ meltfptr[1432], /*_._VALDATA___V1435*/ meltfptr[1434], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_LIST*/ - /* check quasi.cur.mod.env.ref 5738114 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1495*/ meltfptr[1494], /*_._VALDATA___V1497*/ meltfptr[1496], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_MATCHER*/ - /* check quasi.cur.mod.env.ref 383794419 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1439*/ meltfptr[1438], /*_._VALDATA___V1441*/ meltfptr[1440], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_OBJECT*/ - /* check quasi.cur.mod.env.ref 940417289 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1449*/ meltfptr[1448], /*_._VALDATA___V1444*/ meltfptr[1443], - /*quasi.cur.mod.env.ref norm.exp.val : SPAT_CLASS*/ - /* check quasi.cur.mod.env.ref 499831749 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1451*/ meltfptr[1450], /*_._VALDATA___V1446*/ meltfptr[1445], - /*quasi.cur.mod.env.ref norm.exp.val : SPAT_FIELDS*/ - /* check quasi.cur.mod.env.ref 366825711 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1351*/ meltfptr[1350], /*_._VALDATA___V1353*/ meltfptr[1352], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_OR*/ - /* check quasi.cur.mod.env.ref 511276928 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1359*/ meltfptr[1358], /*_._VALDATA___V1356*/ meltfptr[1355], - /*quasi.cur.mod.env.ref norm.exp.val : ORPAT_DISJ*/ - /* check quasi.cur.mod.env.ref 442458658 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1427*/ meltfptr[1426], /*_._VALDATA___V1429*/ meltfptr[1428], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_TUPLE*/ - /* check quasi.cur.mod.env.ref 698824225 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1385*/ meltfptr[1384], /*_._VALDATA___V1387*/ meltfptr[1386], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_VARIABLE*/ - /* check quasi.cur.mod.env.ref 972196626 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1395*/ meltfptr[1394], /*_._VALDATA___V1390*/ meltfptr[1389], - /*quasi.cur.mod.env.ref norm.exp.val : SPATVAR_SYMB*/ - /* check quasi.cur.mod.env.ref 349934117 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1397*/ meltfptr[1396], /*_._VALDATA___V1392*/ meltfptr[1391], - /*quasi.cur.mod.env.ref norm.exp.val : SPATVAR_NBOCC*/ - /* check quasi.cur.mod.env.ref 181342857 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V391*/ meltfptr[390], /*_._VALDATA___V393*/ meltfptr[392], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PRIMITIVE*/ - /* check quasi.cur.mod.env.ref 153406168 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V399*/ meltfptr[398], /*_._VALDATA___V396*/ meltfptr[395], - /*quasi.cur.mod.env.ref norm.exp.val : SPRIM_OPER*/ - /* check quasi.cur.mod.env.ref 793241704 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V479*/ meltfptr[478], /*_._VALDATA___V481*/ meltfptr[480], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PROGN*/ - /* check quasi.cur.mod.env.ref 7943309 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V487*/ meltfptr[486], /*_._VALDATA___V484*/ meltfptr[483], - /*quasi.cur.mod.env.ref norm.exp.val : SPROGN_BODY*/ - /* check quasi.cur.mod.env.ref 355589558 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1311*/ meltfptr[1310], /*_._VALDATA___V1313*/ meltfptr[1312], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PROTOCHUNK*/ - /* check quasi.cur.mod.env.ref 85441271 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1321*/ meltfptr[1320], /*_._VALDATA___V1316*/ meltfptr[1315], - /*quasi.cur.mod.env.ref norm.exp.val : SCH_GENSYM*/ - /* check quasi.cur.mod.env.ref 740684423 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1323*/ meltfptr[1322], /*_._VALDATA___V1318*/ meltfptr[1317], - /*quasi.cur.mod.env.ref norm.exp.val : SCH_CHUNKS*/ - /* check quasi.cur.mod.env.ref 924492357 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V991*/ meltfptr[990], /*_._VALDATA___V993*/ meltfptr[992], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PUT_FIELDS*/ - /* check quasi.cur.mod.env.ref 933066097 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1001*/ meltfptr[1000], /*_._VALDATA___V996*/ meltfptr[995], - /*quasi.cur.mod.env.ref norm.exp.val : SUPUT_OBJ*/ - /* check quasi.cur.mod.env.ref 563008878 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1003*/ meltfptr[1002], /*_._VALDATA___V998*/ meltfptr[997], - /*quasi.cur.mod.env.ref norm.exp.val : SUPUT_FIELDS*/ - /* check quasi.cur.mod.env.ref 856338511 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V567*/ meltfptr[566], /*_._VALDATA___V569*/ meltfptr[568], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_QUASI_BOX*/ - /* check quasi.cur.mod.env.ref 610103459 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V575*/ meltfptr[574], /*_._VALDATA___V572*/ meltfptr[571], - /*quasi.cur.mod.env.ref norm.exp.val : SBOXED*/ - /* check quasi.cur.mod.env.ref 478060877 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V557*/ meltfptr[556], /*_._VALDATA___V559*/ meltfptr[558], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_QUOTE*/ - /* check quasi.cur.mod.env.ref 749889155 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V565*/ meltfptr[564], /*_._VALDATA___V562*/ meltfptr[561], - /*quasi.cur.mod.env.ref norm.exp.val : SQUOTED*/ - /* check quasi.cur.mod.env.ref 192417078 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V489*/ meltfptr[488], /*_._VALDATA___V491*/ meltfptr[490], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_RETURN*/ - /* check quasi.cur.mod.env.ref 428311885 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V495*/ meltfptr[494], /*_._VALDATA___V497*/ meltfptr[496], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_SETQ*/ - /* check quasi.cur.mod.env.ref 139270470 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V505*/ meltfptr[504], /*_._VALDATA___V500*/ meltfptr[499], - /*quasi.cur.mod.env.ref norm.exp.val : SSTQ_VAR*/ - /* check quasi.cur.mod.env.ref 809887469 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V507*/ meltfptr[506], /*_._VALDATA___V502*/ meltfptr[501], - /*quasi.cur.mod.env.ref norm.exp.val : SSTQ_EXPR*/ - /* check quasi.cur.mod.env.ref 283268789 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1297*/ meltfptr[1296], /*_._VALDATA___V1299*/ meltfptr[1298], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_STORE_PREDEFINED*/ - /* check quasi.cur.mod.env.ref 391373662 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1307*/ meltfptr[1306], /*_._VALDATA___V1302*/ meltfptr[1301], - /*quasi.cur.mod.env.ref norm.exp.val : SSTPD_PREDEF*/ - /* check quasi.cur.mod.env.ref 989809022 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1309*/ meltfptr[1308], /*_._VALDATA___V1304*/ meltfptr[1303], - /*quasi.cur.mod.env.ref norm.exp.val : SSTPD_VALUE*/ - /* check quasi.cur.mod.env.ref 484677762 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V467*/ meltfptr[466], /*_._VALDATA___V469*/ meltfptr[468], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_TUPLE*/ - /* check quasi.cur.mod.env.ref 692338136 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V589*/ meltfptr[588], /*_._VALDATA___V591*/ meltfptr[590], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_UNBOX*/ - /* check quasi.cur.mod.env.ref 632188200 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V599*/ meltfptr[598], /*_._VALDATA___V594*/ meltfptr[593], - /*quasi.cur.mod.env.ref norm.exp.val : SUNBOX_CTYPE*/ - /* check quasi.cur.mod.env.ref 348765470 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V601*/ meltfptr[600], /*_._VALDATA___V596*/ meltfptr[595], - /*quasi.cur.mod.env.ref norm.exp.val : SUNBOX_EXPR*/ - /* check quasi.cur.mod.env.ref 225887894 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V985*/ meltfptr[984], /*_._VALDATA___V987*/ meltfptr[986], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_UNSAFE_GET_FIELD*/ - /* check quasi.cur.mod.env.ref 501345002 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1005*/ meltfptr[1004], /*_._VALDATA___V1007*/ meltfptr[1006], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ - /* check quasi.cur.mod.env.ref 231235745 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1277*/ meltfptr[1276], /*_._VALDATA___V1279*/ meltfptr[1278], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ - /* check quasi.cur.mod.env.ref 819793489 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1285*/ meltfptr[1284], /*_._VALDATA___V1282*/ meltfptr[1281], - /*quasi.cur.mod.env.ref norm.exp.val : SUCME_COMMENT*/ - /* check quasi.cur.mod.env.ref 899481576 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V547*/ meltfptr[546], /*_._VALDATA___V549*/ meltfptr[548], - /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ - /* check quasi.cur.mod.env.ref 190239046 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V555*/ meltfptr[554], /*_._VALDATA___V552*/ meltfptr[551], - /*quasi.cur.mod.env.ref norm.exp.val : SUSEPACKAGE_PKGTUPLE*/ - /* check quasi.cur.mod.env.ref 489288806 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V755*/ meltfptr[754], /*_._VALDATA___V750*/ meltfptr[749], + /*quasi.cur.mod.env.ref norm.exp.val : MBIND_DEFMACRO*/ + /* check quasi.cur.mod.env.ref 967617664 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V757*/ meltfptr[756], /*_._VALDATA___V752*/ meltfptr[751], + /*quasi.cur.mod.env.ref norm.exp.val : MBIND_DATA*/ + /* check quasi.cur.mod.env.ref 585873273 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1605*/ meltfptr[1604], /*_._VALDATA___V1609*/ meltfptr[1608], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_PATTERN_EXPANSION_CONTEXT*/ + /* check quasi.cur.mod.env.ref 1070366054 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1621*/ meltfptr[1620], /*_._VALDATA___V1612*/ meltfptr[1611], + /*quasi.cur.mod.env.ref norm.exp.val : PCTX_MEXPANDER*/ + /* check quasi.cur.mod.env.ref 386989487 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1623*/ meltfptr[1622], /*_._VALDATA___V1614*/ meltfptr[1613], + /*quasi.cur.mod.env.ref norm.exp.val : PCTX_PEXPANDER*/ + /* check quasi.cur.mod.env.ref 633211996 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1625*/ meltfptr[1624], /*_._VALDATA___V1616*/ meltfptr[1615], + /*quasi.cur.mod.env.ref norm.exp.val : PCTX_VARMAP*/ + /* check quasi.cur.mod.env.ref 792678705 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1627*/ meltfptr[1626], /*_._VALDATA___V1618*/ meltfptr[1617], + /*quasi.cur.mod.env.ref norm.exp.val : PCTX_MODCTX*/ + /* check quasi.cur.mod.env.ref 513405071 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1231*/ meltfptr[1230], /*_._VALDATA___V1233*/ meltfptr[1232], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_AGAIN*/ + /* check quasi.cur.mod.env.ref 425067597 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1097*/ meltfptr[1096], /*_._VALDATA___V1099*/ meltfptr[1098], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_ANY_LET_BINDING*/ + /* check quasi.cur.mod.env.ref 345262959 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1105*/ meltfptr[1104], /*_._VALDATA___V1102*/ meltfptr[1101], + /*quasi.cur.mod.env.ref norm.exp.val : SLETB_BINDER*/ + /* check quasi.cur.mod.env.ref 461570135 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V367*/ meltfptr[366], /*_._VALDATA___V369*/ meltfptr[368], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_APPLY*/ + /* check quasi.cur.mod.env.ref 966487607 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V375*/ meltfptr[374], /*_._VALDATA___V372*/ meltfptr[371], + /*quasi.cur.mod.env.ref norm.exp.val : SAPP_FUN*/ + /* check quasi.cur.mod.env.ref 601308983 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V411*/ meltfptr[410], /*_._VALDATA___V413*/ meltfptr[412], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION*/ + /* check quasi.cur.mod.env.ref 1065705161 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V421*/ meltfptr[420], /*_._VALDATA___V416*/ meltfptr[415], + /*quasi.cur.mod.env.ref norm.exp.val : SARITHVAR_NEUTRAL*/ + /* check quasi.cur.mod.env.ref 557370601 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V423*/ meltfptr[422], /*_._VALDATA___V418*/ meltfptr[417], + /*quasi.cur.mod.env.ref norm.exp.val : SARITHVAR_PRIMITIVE*/ + /* check quasi.cur.mod.env.ref 720854471 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V357*/ meltfptr[356], /*_._VALDATA___V359*/ meltfptr[358], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_ARGUMENTED_OPERATOR*/ + /* check quasi.cur.mod.env.ref 1058475746 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V365*/ meltfptr[364], /*_._VALDATA___V362*/ meltfptr[361], + /*quasi.cur.mod.env.ref norm.exp.val : SARGOP_ARGS*/ + /* check quasi.cur.mod.env.ref 727484312 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V577*/ meltfptr[576], /*_._VALDATA___V579*/ meltfptr[578], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_BOX*/ + /* check quasi.cur.mod.env.ref 1047119200 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V535*/ meltfptr[534], /*_._VALDATA___V537*/ meltfptr[536], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CHEADER*/ + /* check quasi.cur.mod.env.ref 690788480 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V541*/ meltfptr[540], /*_._VALDATA___V543*/ meltfptr[542], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CIMPLEMENT*/ + /* check quasi.cur.mod.env.ref 677233618 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V425*/ meltfptr[424], /*_._VALDATA___V427*/ meltfptr[426], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CITERATION*/ + /* check quasi.cur.mod.env.ref 518187456 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V437*/ meltfptr[436], /*_._VALDATA___V430*/ meltfptr[429], + /*quasi.cur.mod.env.ref norm.exp.val : SCITER_OPER*/ + /* check quasi.cur.mod.env.ref 470909349 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V439*/ meltfptr[438], /*_._VALDATA___V432*/ meltfptr[431], + /*quasi.cur.mod.env.ref norm.exp.val : SCITER_VARBIND*/ + /* check quasi.cur.mod.env.ref 429183519 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V441*/ meltfptr[440], /*_._VALDATA___V434*/ meltfptr[433], + /*quasi.cur.mod.env.ref norm.exp.val : SCITER_BODY*/ + /* check quasi.cur.mod.env.ref 143649757 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V443*/ meltfptr[442], /*_._VALDATA___V445*/ meltfptr[444], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CMATCHEXPR*/ + /* check quasi.cur.mod.env.ref 968382482 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V451*/ meltfptr[450], /*_._VALDATA___V448*/ meltfptr[447], + /*quasi.cur.mod.env.ref norm.exp.val : SCMATX_CMATCHER*/ + /* check quasi.cur.mod.env.ref 263623191 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V519*/ meltfptr[518], /*_._VALDATA___V521*/ meltfptr[520], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CODE_STRING*/ + /* check quasi.cur.mod.env.ref 930283045 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V527*/ meltfptr[526], /*_._VALDATA___V524*/ meltfptr[523], + /*quasi.cur.mod.env.ref norm.exp.val : SC_CODESTRING*/ + /* check quasi.cur.mod.env.ref 272199300 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1325*/ meltfptr[1324], /*_._VALDATA___V1327*/ meltfptr[1326], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CODECHUNK*/ + /* check quasi.cur.mod.env.ref 422611998 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V509*/ meltfptr[508], /*_._VALDATA___V511*/ meltfptr[510], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_COMMENT*/ + /* check quasi.cur.mod.env.ref 824633537 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V517*/ meltfptr[516], /*_._VALDATA___V514*/ meltfptr[513], + /*quasi.cur.mod.env.ref norm.exp.val : SCOMM_STR*/ + /* check quasi.cur.mod.env.ref 412809145 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1247*/ meltfptr[1246], /*_._VALDATA___V1249*/ meltfptr[1248], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_COMPILEWARNING*/ + /* check quasi.cur.mod.env.ref 556914290 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1257*/ meltfptr[1256], /*_._VALDATA___V1252*/ meltfptr[1251], + /*quasi.cur.mod.env.ref norm.exp.val : SCWARN_MSG*/ + /* check quasi.cur.mod.env.ref 315924398 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1259*/ meltfptr[1258], /*_._VALDATA___V1254*/ meltfptr[1253], + /*quasi.cur.mod.env.ref norm.exp.val : SCWARN_EXPR*/ + /* check quasi.cur.mod.env.ref 214526626 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V583*/ meltfptr[582], /*_._VALDATA___V585*/ meltfptr[584], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CONSTANT_BOX*/ + /* check quasi.cur.mod.env.ref 193090099 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1045*/ meltfptr[1044], /*_._VALDATA___V1047*/ meltfptr[1046], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CPPIF*/ + /* check quasi.cur.mod.env.ref 116082207 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1057*/ meltfptr[1056], /*_._VALDATA___V1050*/ meltfptr[1049], + /*quasi.cur.mod.env.ref norm.exp.val : SIFP_COND*/ + /* check quasi.cur.mod.env.ref 770325977 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1059*/ meltfptr[1058], /*_._VALDATA___V1052*/ meltfptr[1051], + /*quasi.cur.mod.env.ref norm.exp.val : SIFP_THEN*/ + /* check quasi.cur.mod.env.ref 60684061 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1061*/ meltfptr[1060], /*_._VALDATA___V1054*/ meltfptr[1053], + /*quasi.cur.mod.env.ref norm.exp.val : SIFP_ELSE*/ + /* check quasi.cur.mod.env.ref 892524607 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1261*/ meltfptr[1260], /*_._VALDATA___V1263*/ meltfptr[1262], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ + /* check quasi.cur.mod.env.ref 816362886 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1269*/ meltfptr[1268], /*_._VALDATA___V1266*/ meltfptr[1265], + /*quasi.cur.mod.env.ref norm.exp.val : CMEC_COMMENT*/ + /* check quasi.cur.mod.env.ref 815374776 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V813*/ meltfptr[812], /*_._VALDATA___V815*/ meltfptr[814], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFCITERATOR*/ + /* check quasi.cur.mod.env.ref 335238025 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V825*/ meltfptr[824], /*_._VALDATA___V818*/ meltfptr[817], + /*quasi.cur.mod.env.ref norm.exp.val : SCITERDEF_CITERATOR*/ + /* check quasi.cur.mod.env.ref 549838754 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V827*/ meltfptr[826], /*_._VALDATA___V820*/ meltfptr[819], + /*quasi.cur.mod.env.ref norm.exp.val : SCITERDEF_BEFORELOC*/ + /* check quasi.cur.mod.env.ref 396441355 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V829*/ meltfptr[828], /*_._VALDATA___V822*/ meltfptr[821], + /*quasi.cur.mod.env.ref norm.exp.val : SCITERDEF_AFTERLOC*/ + /* check quasi.cur.mod.env.ref 26810561 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V889*/ meltfptr[888], /*_._VALDATA___V891*/ meltfptr[890], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFCLASS*/ + /* check quasi.cur.mod.env.ref 125733082 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V901*/ meltfptr[900], /*_._VALDATA___V894*/ meltfptr[893], + /*quasi.cur.mod.env.ref norm.exp.val : SCLASS_CLABIND*/ + /* check quasi.cur.mod.env.ref 207894437 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V903*/ meltfptr[902], /*_._VALDATA___V896*/ meltfptr[895], + /*quasi.cur.mod.env.ref norm.exp.val : SCLASS_SUPERBIND*/ + /* check quasi.cur.mod.env.ref 1067262321 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V905*/ meltfptr[904], /*_._VALDATA___V898*/ meltfptr[897], + /*quasi.cur.mod.env.ref norm.exp.val : SCLASS_FLDBINDS*/ + /* check quasi.cur.mod.env.ref 440950454 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V831*/ meltfptr[830], /*_._VALDATA___V833*/ meltfptr[832], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFCMATCHER*/ + /* check quasi.cur.mod.env.ref 1066492277 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V845*/ meltfptr[844], /*_._VALDATA___V836*/ meltfptr[835], + /*quasi.cur.mod.env.ref norm.exp.val : SCMATDEF_CMATCHER*/ + /* check quasi.cur.mod.env.ref 1038161940 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V847*/ meltfptr[846], /*_._VALDATA___V838*/ meltfptr[837], + /*quasi.cur.mod.env.ref norm.exp.val : SCMATDEF_TESTLOC*/ + /* check quasi.cur.mod.env.ref 436149504 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V849*/ meltfptr[848], /*_._VALDATA___V840*/ meltfptr[839], + /*quasi.cur.mod.env.ref norm.exp.val : SCMATDEF_FILLLOC*/ + /* check quasi.cur.mod.env.ref 310364480 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V851*/ meltfptr[850], /*_._VALDATA___V842*/ meltfptr[841], + /*quasi.cur.mod.env.ref norm.exp.val : SCMATDEF_OPERLOC*/ + /* check quasi.cur.mod.env.ref 76403994 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V787*/ meltfptr[786], /*_._VALDATA___V789*/ meltfptr[788], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFHOOK*/ + /* check quasi.cur.mod.env.ref 629610219 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V803*/ meltfptr[802], /*_._VALDATA___V792*/ meltfptr[791], + /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_OUT_FORMALS*/ + /* check quasi.cur.mod.env.ref 646853053 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V805*/ meltfptr[804], /*_._VALDATA___V794*/ meltfptr[793], + /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_CTYPE*/ + /* check quasi.cur.mod.env.ref 145152293 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V807*/ meltfptr[806], /*_._VALDATA___V796*/ meltfptr[795], + /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_PREDEF*/ + /* check quasi.cur.mod.env.ref 871518452 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V809*/ meltfptr[808], /*_._VALDATA___V798*/ meltfptr[797], + /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_VARIABLE*/ + /* check quasi.cur.mod.env.ref 288672405 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V811*/ meltfptr[810], /*_._VALDATA___V800*/ meltfptr[799], + /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_BODY*/ + /* check quasi.cur.mod.env.ref 500634825 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V703*/ meltfptr[702], /*_._VALDATA___V705*/ meltfptr[704], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFINE*/ + /* check quasi.cur.mod.env.ref 495675162 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V711*/ meltfptr[710], /*_._VALDATA___V708*/ meltfptr[707], + /*quasi.cur.mod.env.ref norm.exp.val : SDEFINE_BODY*/ + /* check quasi.cur.mod.env.ref 511109571 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V683*/ meltfptr[682], /*_._VALDATA___V685*/ meltfptr[684], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFINITION*/ + /* check quasi.cur.mod.env.ref 856907480 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V693*/ meltfptr[692], /*_._VALDATA___V688*/ meltfptr[687], + /*quasi.cur.mod.env.ref norm.exp.val : SDEF_NAME*/ + /* check quasi.cur.mod.env.ref 1069159139 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V695*/ meltfptr[694], /*_._VALDATA___V690*/ meltfptr[689], + /*quasi.cur.mod.env.ref norm.exp.val : SDEF_DOC*/ + /* check quasi.cur.mod.env.ref 294535743 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V713*/ meltfptr[712], /*_._VALDATA___V715*/ meltfptr[714], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFINITION_FORMAL*/ + /* check quasi.cur.mod.env.ref 859678258 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V721*/ meltfptr[720], /*_._VALDATA___V718*/ meltfptr[717], + /*quasi.cur.mod.env.ref norm.exp.val : SFORMAL_ARGS*/ + /* check quasi.cur.mod.env.ref 849609305 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V907*/ meltfptr[906], /*_._VALDATA___V909*/ meltfptr[908], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFINSTANCE*/ + /* check quasi.cur.mod.env.ref 215488002 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V921*/ meltfptr[920], /*_._VALDATA___V912*/ meltfptr[911], + /*quasi.cur.mod.env.ref norm.exp.val : SINST_CLASS*/ + /* check quasi.cur.mod.env.ref 598455855 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V923*/ meltfptr[922], /*_._VALDATA___V914*/ meltfptr[913], + /*quasi.cur.mod.env.ref norm.exp.val : SINST_CLABIND*/ + /* check quasi.cur.mod.env.ref 602943291 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V925*/ meltfptr[924], /*_._VALDATA___V916*/ meltfptr[915], + /*quasi.cur.mod.env.ref norm.exp.val : SINST_OBJNUM*/ + /* check quasi.cur.mod.env.ref 389657281 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V927*/ meltfptr[926], /*_._VALDATA___V918*/ meltfptr[917], + /*quasi.cur.mod.env.ref norm.exp.val : SINST_FIELDS*/ + /* check quasi.cur.mod.env.ref 405562387 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V879*/ meltfptr[878], /*_._VALDATA___V881*/ meltfptr[880], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFOBJCOMMON*/ + /* check quasi.cur.mod.env.ref 340659896 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V887*/ meltfptr[886], /*_._VALDATA___V884*/ meltfptr[883], + /*quasi.cur.mod.env.ref norm.exp.val : SOBJ_PREDEF*/ + /* check quasi.cur.mod.env.ref 377705663 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V769*/ meltfptr[768], /*_._VALDATA___V771*/ meltfptr[770], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFPRIMITIVE*/ + /* check quasi.cur.mod.env.ref 819170689 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V781*/ meltfptr[780], /*_._VALDATA___V774*/ meltfptr[773], + /*quasi.cur.mod.env.ref norm.exp.val : SPRIM_TYPE*/ + /* check quasi.cur.mod.env.ref 442094809 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V783*/ meltfptr[782], /*_._VALDATA___V776*/ meltfptr[775], + /*quasi.cur.mod.env.ref norm.exp.val : SPRIM_EXPANSION*/ + /* check quasi.cur.mod.env.ref 89509684 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V785*/ meltfptr[784], /*_._VALDATA___V778*/ meltfptr[777], + /*quasi.cur.mod.env.ref norm.exp.val : SPRIM_EXPLOC*/ + /* check quasi.cur.mod.env.ref 581760044 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V733*/ meltfptr[732], /*_._VALDATA___V735*/ meltfptr[734], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFMACRO*/ + /* check quasi.cur.mod.env.ref 374369088 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V741*/ meltfptr[740], /*_._VALDATA___V738*/ meltfptr[737], + /*quasi.cur.mod.env.ref norm.exp.val : SMACRO_BINDING*/ + /* check quasi.cur.mod.env.ref 992566507 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V929*/ meltfptr[928], /*_._VALDATA___V931*/ meltfptr[930], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFSELECTOR*/ + /* check quasi.cur.mod.env.ref 469169020 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V937*/ meltfptr[936], /*_._VALDATA___V934*/ meltfptr[933], + /*quasi.cur.mod.env.ref norm.exp.val : SDEFSEL_FORMALS*/ + /* check quasi.cur.mod.env.ref 385544015 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V723*/ meltfptr[722], /*_._VALDATA___V725*/ meltfptr[724], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFUN*/ + /* check quasi.cur.mod.env.ref 582953943 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V731*/ meltfptr[730], /*_._VALDATA___V728*/ meltfptr[727], + /*quasi.cur.mod.env.ref norm.exp.val : SFUN_BODY*/ + /* check quasi.cur.mod.env.ref 378334159 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V853*/ meltfptr[852], /*_._VALDATA___V855*/ meltfptr[854], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFUNMATCHER*/ + /* check quasi.cur.mod.env.ref 999567486 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V869*/ meltfptr[868], /*_._VALDATA___V858*/ meltfptr[857], + /*quasi.cur.mod.env.ref norm.exp.val : SFUMATDEF_INS*/ + /* check quasi.cur.mod.env.ref 906625344 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V871*/ meltfptr[870], /*_._VALDATA___V860*/ meltfptr[859], + /*quasi.cur.mod.env.ref norm.exp.val : SFUMATDEF_OUTS*/ + /* check quasi.cur.mod.env.ref 431995134 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V873*/ meltfptr[872], /*_._VALDATA___V862*/ meltfptr[861], + /*quasi.cur.mod.env.ref norm.exp.val : SFUMATDEF_MATCHF*/ + /* check quasi.cur.mod.env.ref 776780605 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V875*/ meltfptr[874], /*_._VALDATA___V864*/ meltfptr[863], + /*quasi.cur.mod.env.ref norm.exp.val : SFUMATDEF_APPLYF*/ + /* check quasi.cur.mod.env.ref 876661364 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V877*/ meltfptr[876], /*_._VALDATA___V866*/ meltfptr[865], + /*quasi.cur.mod.env.ref norm.exp.val : SFUMATDEF_DATA*/ + /* check quasi.cur.mod.env.ref 398024564 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V697*/ meltfptr[696], /*_._VALDATA___V699*/ meltfptr[698], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFVAR*/ + /* check quasi.cur.mod.env.ref 891250062 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1237*/ meltfptr[1236], /*_._VALDATA___V1239*/ meltfptr[1238], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXIT*/ + /* check quasi.cur.mod.env.ref 326520183 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1245*/ meltfptr[1244], /*_._VALDATA___V1242*/ meltfptr[1241], + /*quasi.cur.mod.env.ref norm.exp.val : SEXI_BODY*/ + /* check quasi.cur.mod.env.ref 329725624 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V625*/ meltfptr[624], /*_._VALDATA___V627*/ meltfptr[626], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_ANY_MACRO*/ + /* check quasi.cur.mod.env.ref 981742820 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V635*/ meltfptr[634], /*_._VALDATA___V630*/ meltfptr[629], + /*quasi.cur.mod.env.ref norm.exp.val : SEXPMAC_MNAME*/ + /* check quasi.cur.mod.env.ref 179826538 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V637*/ meltfptr[636], /*_._VALDATA___V632*/ meltfptr[631], + /*quasi.cur.mod.env.ref norm.exp.val : SEXPMAC_DOC*/ + /* check quasi.cur.mod.env.ref 198408396 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V619*/ meltfptr[618], /*_._VALDATA___V621*/ meltfptr[620], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_CLASS*/ + /* check quasi.cur.mod.env.ref 22961983 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V649*/ meltfptr[648], /*_._VALDATA___V651*/ meltfptr[650], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_DEFMACRO*/ + /* check quasi.cur.mod.env.ref 579085668 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V639*/ meltfptr[638], /*_._VALDATA___V641*/ meltfptr[640], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_MACRO*/ + /* check quasi.cur.mod.env.ref 364579332 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V647*/ meltfptr[646], /*_._VALDATA___V644*/ meltfptr[643], + /*quasi.cur.mod.env.ref norm.exp.val : SEXPMAC_MVAL*/ + /* check quasi.cur.mod.env.ref 1060961844 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V655*/ meltfptr[654], /*_._VALDATA___V657*/ meltfptr[656], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_PATMACRO*/ + /* check quasi.cur.mod.env.ref 1004076457 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V663*/ meltfptr[662], /*_._VALDATA___V660*/ meltfptr[659], + /*quasi.cur.mod.env.ref norm.exp.val : SEXPPAT_PVAL*/ + /* check quasi.cur.mod.env.ref 2631432 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V665*/ meltfptr[664], /*_._VALDATA___V667*/ meltfptr[666], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_SYNONYM*/ + /* check quasi.cur.mod.env.ref 480049024 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V677*/ meltfptr[676], /*_._VALDATA___V670*/ meltfptr[669], + /*quasi.cur.mod.env.ref norm.exp.val : SEXPSYN_NEWNAME*/ + /* check quasi.cur.mod.env.ref 463948046 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V679*/ meltfptr[678], /*_._VALDATA___V672*/ meltfptr[671], + /*quasi.cur.mod.env.ref norm.exp.val : SEXPSYN_OLDNAME*/ + /* check quasi.cur.mod.env.ref 179446777 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V681*/ meltfptr[680], /*_._VALDATA___V674*/ meltfptr[673], + /*quasi.cur.mod.env.ref norm.exp.val : SEXPSYN_DOC*/ + /* check quasi.cur.mod.env.ref 142679992 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V613*/ meltfptr[612], /*_._VALDATA___V615*/ meltfptr[614], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_VALUES*/ + /* check quasi.cur.mod.env.ref 895440512 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V603*/ meltfptr[602], /*_._VALDATA___V605*/ meltfptr[604], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORTCOMMON*/ + /* check quasi.cur.mod.env.ref 678499838 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V611*/ meltfptr[610], /*_._VALDATA___V608*/ meltfptr[607], + /*quasi.cur.mod.env.ref norm.exp.val : SEXPORT_NAMES*/ + /* check quasi.cur.mod.env.ref 633841903 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1331*/ meltfptr[1330], /*_._VALDATA___V1333*/ meltfptr[1332], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPRCHUNK*/ + /* check quasi.cur.mod.env.ref 38393051 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1339*/ meltfptr[1338], /*_._VALDATA___V1336*/ meltfptr[1335], + /*quasi.cur.mod.env.ref norm.exp.val : SXCH_CTYPE*/ + /* check quasi.cur.mod.env.ref 464644741 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1287*/ meltfptr[1286], /*_._VALDATA___V1289*/ meltfptr[1288], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_FETCH_PREDEFINED*/ + /* check quasi.cur.mod.env.ref 451075818 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1295*/ meltfptr[1294], /*_._VALDATA___V1292*/ meltfptr[1291], + /*quasi.cur.mod.env.ref norm.exp.val : SFEPD_PREDEF*/ + /* check quasi.cur.mod.env.ref 334941688 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1459*/ meltfptr[1458], /*_._VALDATA___V1461*/ meltfptr[1460], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_FIELD_PATTERN*/ + /* check quasi.cur.mod.env.ref 295820073 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1469*/ meltfptr[1468], /*_._VALDATA___V1464*/ meltfptr[1463], + /*quasi.cur.mod.env.ref norm.exp.val : SPAF_FIELD*/ + /* check quasi.cur.mod.env.ref 467256565 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1471*/ meltfptr[1470], /*_._VALDATA___V1466*/ meltfptr[1465], + /*quasi.cur.mod.env.ref norm.exp.val : SPAF_PATTERN*/ + /* check quasi.cur.mod.env.ref 236128796 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V939*/ meltfptr[938], /*_._VALDATA___V941*/ meltfptr[940], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_FIELDASSIGN*/ + /* check quasi.cur.mod.env.ref 67704007 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V949*/ meltfptr[948], /*_._VALDATA___V944*/ meltfptr[943], + /*quasi.cur.mod.env.ref norm.exp.val : SFLA_FIELD*/ + /* check quasi.cur.mod.env.ref 317936786 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V951*/ meltfptr[950], /*_._VALDATA___V946*/ meltfptr[945], + /*quasi.cur.mod.env.ref norm.exp.val : SFLA_EXPR*/ + /* check quasi.cur.mod.env.ref 1026544837 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1221*/ meltfptr[1220], /*_._VALDATA___V1223*/ meltfptr[1222], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_FOREVER*/ + /* check quasi.cur.mod.env.ref 212204154 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1229*/ meltfptr[1228], /*_._VALDATA___V1226*/ meltfptr[1225], + /*quasi.cur.mod.env.ref norm.exp.val : SFRV_BODY*/ + /* check quasi.cur.mod.env.ref 403626635 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V453*/ meltfptr[452], /*_._VALDATA___V455*/ meltfptr[454], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_FUNMATCHEXPR*/ + /* check quasi.cur.mod.env.ref 466184787 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V463*/ meltfptr[462], /*_._VALDATA___V458*/ meltfptr[457], + /*quasi.cur.mod.env.ref norm.exp.val : SFMATX_FMATCHER*/ + /* check quasi.cur.mod.env.ref 938377917 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V465*/ meltfptr[464], /*_._VALDATA___V460*/ meltfptr[459], + /*quasi.cur.mod.env.ref norm.exp.val : SFMATX_FMATBIND*/ + /* check quasi.cur.mod.env.ref 641875689 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V327*/ meltfptr[326], /*_._VALDATA___V331*/ meltfptr[330], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_GENERATOR_DEVICE*/ + /* check quasi.cur.mod.env.ref 917171907 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V339*/ meltfptr[338], /*_._VALDATA___V334*/ meltfptr[333], + /*quasi.cur.mod.env.ref norm.exp.val : SRCGEN_DEFIN*/ + /* check quasi.cur.mod.env.ref 211390753 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V341*/ meltfptr[340], /*_._VALDATA___V336*/ meltfptr[335], + /*quasi.cur.mod.env.ref norm.exp.val : SRCGEN_REPR*/ + /* check quasi.cur.mod.env.ref 43163740 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V971*/ meltfptr[970], /*_._VALDATA___V973*/ meltfptr[972], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_GET_FIELD*/ + /* check quasi.cur.mod.env.ref 909131465 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V981*/ meltfptr[980], /*_._VALDATA___V976*/ meltfptr[975], + /*quasi.cur.mod.env.ref norm.exp.val : SUGET_OBJ*/ + /* check quasi.cur.mod.env.ref 1011743674 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V983*/ meltfptr[982], /*_._VALDATA___V978*/ meltfptr[977], + /*quasi.cur.mod.env.ref norm.exp.val : SUGET_FIELD*/ + /* check quasi.cur.mod.env.ref 1019987317 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V401*/ meltfptr[400], /*_._VALDATA___V403*/ meltfptr[402], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_HOOK_CALL*/ + /* check quasi.cur.mod.env.ref 803639135 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V409*/ meltfptr[408], /*_._VALDATA___V406*/ meltfptr[405], + /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_CALLED*/ + /* check quasi.cur.mod.env.ref 731505042 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1011*/ meltfptr[1010], /*_._VALDATA___V1013*/ meltfptr[1012], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_IF*/ + /* check quasi.cur.mod.env.ref 330446483 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1021*/ meltfptr[1020], /*_._VALDATA___V1016*/ meltfptr[1015], + /*quasi.cur.mod.env.ref norm.exp.val : SIF_TEST*/ + /* check quasi.cur.mod.env.ref 1019612670 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1023*/ meltfptr[1022], /*_._VALDATA___V1018*/ meltfptr[1017], + /*quasi.cur.mod.env.ref norm.exp.val : SIF_THEN*/ + /* check quasi.cur.mod.env.ref 42412010 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1025*/ meltfptr[1024], /*_._VALDATA___V1027*/ meltfptr[1026], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_IFELSE*/ + /* check quasi.cur.mod.env.ref 190435220 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1033*/ meltfptr[1032], /*_._VALDATA___V1030*/ meltfptr[1029], + /*quasi.cur.mod.env.ref norm.exp.val : SIF_ELSE*/ + /* check quasi.cur.mod.env.ref 581922057 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1175*/ meltfptr[1174], /*_._VALDATA___V1177*/ meltfptr[1176], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_IFVARIADIC*/ + /* check quasi.cur.mod.env.ref 679850541 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1187*/ meltfptr[1186], /*_._VALDATA___V1180*/ meltfptr[1179], + /*quasi.cur.mod.env.ref norm.exp.val : SIFVARIADIC_ARGBIND*/ + /* check quasi.cur.mod.env.ref 1039172427 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1189*/ meltfptr[1188], /*_._VALDATA___V1182*/ meltfptr[1181], + /*quasi.cur.mod.env.ref norm.exp.val : SIFVARIADIC_THEN*/ + /* check quasi.cur.mod.env.ref 40045012 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1191*/ meltfptr[1190], /*_._VALDATA___V1184*/ meltfptr[1183], + /*quasi.cur.mod.env.ref norm.exp.val : SIFVARIADIC_ELSE*/ + /* check quasi.cur.mod.env.ref 509421246 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V953*/ meltfptr[952], /*_._VALDATA___V955*/ meltfptr[954], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_INSTANCE*/ + /* check quasi.cur.mod.env.ref 377795300 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V965*/ meltfptr[964], /*_._VALDATA___V958*/ meltfptr[957], + /*quasi.cur.mod.env.ref norm.exp.val : SMINS_CLASS*/ + /* check quasi.cur.mod.env.ref 377844062 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V967*/ meltfptr[966], /*_._VALDATA___V960*/ meltfptr[959], + /*quasi.cur.mod.env.ref norm.exp.val : SMINS_CLABIND*/ + /* check quasi.cur.mod.env.ref 262190859 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V969*/ meltfptr[968], /*_._VALDATA___V962*/ meltfptr[961], + /*quasi.cur.mod.env.ref norm.exp.val : SMINS_FIELDS*/ + /* check quasi.cur.mod.env.ref 487338037 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1211*/ meltfptr[1210], /*_._VALDATA___V1213*/ meltfptr[1212], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LABELLED*/ + /* check quasi.cur.mod.env.ref 107754303 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1219*/ meltfptr[1218], /*_._VALDATA___V1216*/ meltfptr[1215], + /*quasi.cur.mod.env.ref norm.exp.val : SLABEL_BIND*/ + /* check quasi.cur.mod.env.ref 372178585 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1161*/ meltfptr[1160], /*_._VALDATA___V1163*/ meltfptr[1162], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LAMBDA*/ + /* check quasi.cur.mod.env.ref 602088385 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1171*/ meltfptr[1170], /*_._VALDATA___V1166*/ meltfptr[1165], + /*quasi.cur.mod.env.ref norm.exp.val : SLAM_ARGBIND*/ + /* check quasi.cur.mod.env.ref 831161702 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1173*/ meltfptr[1172], /*_._VALDATA___V1168*/ meltfptr[1167], + /*quasi.cur.mod.env.ref norm.exp.val : SLAM_BODY*/ + /* check quasi.cur.mod.env.ref 327458700 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V343*/ meltfptr[342], /*_._VALDATA___V345*/ meltfptr[344], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LAZY_MACRO_EXPANSION*/ + /* check quasi.cur.mod.env.ref 79827117 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V353*/ meltfptr[352], /*_._VALDATA___V348*/ meltfptr[347], + /*quasi.cur.mod.env.ref norm.exp.val : SLAZYMACRO_FUN*/ + /* check quasi.cur.mod.env.ref 186782608 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V355*/ meltfptr[354], /*_._VALDATA___V350*/ meltfptr[349], + /*quasi.cur.mod.env.ref norm.exp.val : SLAZYMACRO_OPER*/ + /* check quasi.cur.mod.env.ref 721695221 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1141*/ meltfptr[1140], /*_._VALDATA___V1143*/ meltfptr[1142], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LET*/ + /* check quasi.cur.mod.env.ref 135430222 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1151*/ meltfptr[1150], /*_._VALDATA___V1146*/ meltfptr[1145], + /*quasi.cur.mod.env.ref norm.exp.val : SLET_BINDINGS*/ + /* check quasi.cur.mod.env.ref 854573006 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1153*/ meltfptr[1152], /*_._VALDATA___V1148*/ meltfptr[1147], + /*quasi.cur.mod.env.ref norm.exp.val : SLET_BODY*/ + /* check quasi.cur.mod.env.ref 925737339 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1121*/ meltfptr[1120], /*_._VALDATA___V1123*/ meltfptr[1122], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LET_BINDING*/ + /* check quasi.cur.mod.env.ref 524901640 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1131*/ meltfptr[1130], /*_._VALDATA___V1126*/ meltfptr[1125], + /*quasi.cur.mod.env.ref norm.exp.val : SLETB_TYPE*/ + /* check quasi.cur.mod.env.ref 1056638836 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1133*/ meltfptr[1132], /*_._VALDATA___V1128*/ meltfptr[1127], + /*quasi.cur.mod.env.ref norm.exp.val : SLETB_EXPR*/ + /* check quasi.cur.mod.env.ref 46248600 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1155*/ meltfptr[1154], /*_._VALDATA___V1157*/ meltfptr[1156], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LETREC*/ + /* check quasi.cur.mod.env.ref 703991157 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1135*/ meltfptr[1134], /*_._VALDATA___V1137*/ meltfptr[1136], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LETREC_BINDING*/ + /* check quasi.cur.mod.env.ref 535647931 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V473*/ meltfptr[472], /*_._VALDATA___V475*/ meltfptr[474], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LIST*/ + /* check quasi.cur.mod.env.ref 876971424 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1107*/ meltfptr[1106], /*_._VALDATA___V1109*/ meltfptr[1108], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MACRO_LET_BINDING*/ + /* check quasi.cur.mod.env.ref 774267543 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1117*/ meltfptr[1116], /*_._VALDATA___V1112*/ meltfptr[1111], + /*quasi.cur.mod.env.ref norm.exp.val : SLETM_MACRO_FORMALS*/ + /* check quasi.cur.mod.env.ref 335541494 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1119*/ meltfptr[1118], /*_._VALDATA___V1114*/ meltfptr[1113], + /*quasi.cur.mod.env.ref norm.exp.val : SLETM_MACRO_BODY*/ + /* check quasi.cur.mod.env.ref 288628026 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V759*/ meltfptr[758], /*_._VALDATA___V761*/ meltfptr[760], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MACRO_INSTALLATION*/ + /* check quasi.cur.mod.env.ref 896996762 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V767*/ meltfptr[766], /*_._VALDATA___V764*/ meltfptr[763], + /*quasi.cur.mod.env.ref norm.exp.val : SMACINST_DEFMACRO*/ + /* check quasi.cur.mod.env.ref 494522219 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1063*/ meltfptr[1062], /*_._VALDATA___V1065*/ meltfptr[1064], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MATCH*/ + /* check quasi.cur.mod.env.ref 797283521 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1073*/ meltfptr[1072], /*_._VALDATA___V1068*/ meltfptr[1067], + /*quasi.cur.mod.env.ref norm.exp.val : SMAT_MATCHEDX*/ + /* check quasi.cur.mod.env.ref 230387570 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1075*/ meltfptr[1074], /*_._VALDATA___V1070*/ meltfptr[1069], + /*quasi.cur.mod.env.ref norm.exp.val : SMAT_CASES*/ + /* check quasi.cur.mod.env.ref 947645405 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1083*/ meltfptr[1082], /*_._VALDATA___V1085*/ meltfptr[1084], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MATCH_CASE*/ + /* check quasi.cur.mod.env.ref 98944653 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1093*/ meltfptr[1092], /*_._VALDATA___V1088*/ meltfptr[1087], + /*quasi.cur.mod.env.ref norm.exp.val : SCAM_PATT*/ + /* check quasi.cur.mod.env.ref 491704761 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1095*/ meltfptr[1094], /*_._VALDATA___V1090*/ meltfptr[1089], + /*quasi.cur.mod.env.ref norm.exp.val : SCAM_BODY*/ + /* check quasi.cur.mod.env.ref 182068076 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1077*/ meltfptr[1076], /*_._VALDATA___V1079*/ meltfptr[1078], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MATCHALT*/ + /* check quasi.cur.mod.env.ref 821418049 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V529*/ meltfptr[528], /*_._VALDATA___V531*/ meltfptr[530], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE*/ + /* check quasi.cur.mod.env.ref 814319033 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V377*/ meltfptr[376], /*_._VALDATA___V379*/ meltfptr[378], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MSEND*/ + /* check quasi.cur.mod.env.ref 378595050 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V387*/ meltfptr[386], /*_._VALDATA___V382*/ meltfptr[381], + /*quasi.cur.mod.env.ref norm.exp.val : MSEND_SELSYMB*/ + /* check quasi.cur.mod.env.ref 494147135 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V389*/ meltfptr[388], /*_._VALDATA___V384*/ meltfptr[383], + /*quasi.cur.mod.env.ref norm.exp.val : MSEND_RECV*/ + /* check quasi.cur.mod.env.ref 746170318 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1193*/ meltfptr[1192], /*_._VALDATA___V1195*/ meltfptr[1194], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MULTICALL*/ + /* check quasi.cur.mod.env.ref 204676592 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1205*/ meltfptr[1204], /*_._VALDATA___V1198*/ meltfptr[1197], + /*quasi.cur.mod.env.ref norm.exp.val : SMULC_RESBIND*/ + /* check quasi.cur.mod.env.ref 776713884 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1207*/ meltfptr[1206], /*_._VALDATA___V1200*/ meltfptr[1199], + /*quasi.cur.mod.env.ref norm.exp.val : SMULC_CALL*/ + /* check quasi.cur.mod.env.ref 286960552 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1209*/ meltfptr[1208], /*_._VALDATA___V1202*/ meltfptr[1201], + /*quasi.cur.mod.env.ref norm.exp.val : SMULC_BODY*/ + /* check quasi.cur.mod.env.ref 10826922 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1035*/ meltfptr[1034], /*_._VALDATA___V1037*/ meltfptr[1036], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_OR*/ + /* check quasi.cur.mod.env.ref 515218721 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1043*/ meltfptr[1042], /*_._VALDATA___V1040*/ meltfptr[1039], + /*quasi.cur.mod.env.ref norm.exp.val : SOR_DISJ*/ + /* check quasi.cur.mod.env.ref 29219994 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1271*/ meltfptr[1270], /*_._VALDATA___V1273*/ meltfptr[1272], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ + /* check quasi.cur.mod.env.ref 358708032 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1341*/ meltfptr[1340], /*_._VALDATA___V1343*/ meltfptr[1342], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN*/ + /* check quasi.cur.mod.env.ref 170267169 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1349*/ meltfptr[1348], /*_._VALDATA___V1346*/ meltfptr[1345], + /*quasi.cur.mod.env.ref norm.exp.val : PAT_WEIGHT*/ + /* check quasi.cur.mod.env.ref 288203884 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1361*/ meltfptr[1360], /*_._VALDATA___V1363*/ meltfptr[1362], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_AND*/ + /* check quasi.cur.mod.env.ref 1036631946 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1369*/ meltfptr[1368], /*_._VALDATA___V1366*/ meltfptr[1365], + /*quasi.cur.mod.env.ref norm.exp.val : ANDPAT_CONJ*/ + /* check quasi.cur.mod.env.ref 653535570 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1501*/ meltfptr[1500], /*_._VALDATA___V1503*/ meltfptr[1502], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_C_MATCH*/ + /* check quasi.cur.mod.env.ref 266658522 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1473*/ meltfptr[1472], /*_._VALDATA___V1475*/ meltfptr[1474], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_COMPOSITE*/ + /* check quasi.cur.mod.env.ref 846377228 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1487*/ meltfptr[1486], /*_._VALDATA___V1478*/ meltfptr[1477], + /*quasi.cur.mod.env.ref norm.exp.val : SPAC_OPERATOR*/ + /* check quasi.cur.mod.env.ref 128253805 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1489*/ meltfptr[1488], /*_._VALDATA___V1480*/ meltfptr[1479], + /*quasi.cur.mod.env.ref norm.exp.val : SPAC_OPERBIND*/ + /* check quasi.cur.mod.env.ref 819390800 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1491*/ meltfptr[1490], /*_._VALDATA___V1482*/ meltfptr[1481], + /*quasi.cur.mod.env.ref norm.exp.val : SPAC_INARGS*/ + /* check quasi.cur.mod.env.ref 766740258 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1493*/ meltfptr[1492], /*_._VALDATA___V1484*/ meltfptr[1483], + /*quasi.cur.mod.env.ref norm.exp.val : SPAC_OUTARGS*/ + /* check quasi.cur.mod.env.ref 287702488 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1407*/ meltfptr[1406], /*_._VALDATA___V1409*/ meltfptr[1408], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_CONSTANT*/ + /* check quasi.cur.mod.env.ref 554221375 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1415*/ meltfptr[1414], /*_._VALDATA___V1412*/ meltfptr[1411], + /*quasi.cur.mod.env.ref norm.exp.val : SPAT_CONSTX*/ + /* check quasi.cur.mod.env.ref 166397929 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1417*/ meltfptr[1416], /*_._VALDATA___V1419*/ meltfptr[1418], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_CONSTRUCT*/ + /* check quasi.cur.mod.env.ref 540307801 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1425*/ meltfptr[1424], /*_._VALDATA___V1422*/ meltfptr[1421], + /*quasi.cur.mod.env.ref norm.exp.val : CTPAT_SUBPA*/ + /* check quasi.cur.mod.env.ref 770212717 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1453*/ meltfptr[1452], /*_._VALDATA___V1455*/ meltfptr[1454], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_INSTANCE*/ + /* check quasi.cur.mod.env.ref 678717360 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1401*/ meltfptr[1400], /*_._VALDATA___V1403*/ meltfptr[1402], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ + /* check quasi.cur.mod.env.ref 486189761 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1433*/ meltfptr[1432], /*_._VALDATA___V1435*/ meltfptr[1434], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_LIST*/ + /* check quasi.cur.mod.env.ref 5738114 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1495*/ meltfptr[1494], /*_._VALDATA___V1497*/ meltfptr[1496], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_MATCHER*/ + /* check quasi.cur.mod.env.ref 383794419 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1439*/ meltfptr[1438], /*_._VALDATA___V1441*/ meltfptr[1440], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_OBJECT*/ + /* check quasi.cur.mod.env.ref 940417289 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1449*/ meltfptr[1448], /*_._VALDATA___V1444*/ meltfptr[1443], + /*quasi.cur.mod.env.ref norm.exp.val : SPAT_CLASS*/ + /* check quasi.cur.mod.env.ref 499831749 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1451*/ meltfptr[1450], /*_._VALDATA___V1446*/ meltfptr[1445], + /*quasi.cur.mod.env.ref norm.exp.val : SPAT_FIELDS*/ + /* check quasi.cur.mod.env.ref 366825711 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1351*/ meltfptr[1350], /*_._VALDATA___V1353*/ meltfptr[1352], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_OR*/ + /* check quasi.cur.mod.env.ref 511276928 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1359*/ meltfptr[1358], /*_._VALDATA___V1356*/ meltfptr[1355], + /*quasi.cur.mod.env.ref norm.exp.val : ORPAT_DISJ*/ + /* check quasi.cur.mod.env.ref 442458658 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1427*/ meltfptr[1426], /*_._VALDATA___V1429*/ meltfptr[1428], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_TUPLE*/ + /* check quasi.cur.mod.env.ref 698824225 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1385*/ meltfptr[1384], /*_._VALDATA___V1387*/ meltfptr[1386], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_VARIABLE*/ + /* check quasi.cur.mod.env.ref 972196626 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1395*/ meltfptr[1394], /*_._VALDATA___V1390*/ meltfptr[1389], + /*quasi.cur.mod.env.ref norm.exp.val : SPATVAR_SYMB*/ + /* check quasi.cur.mod.env.ref 349934117 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1397*/ meltfptr[1396], /*_._VALDATA___V1392*/ meltfptr[1391], + /*quasi.cur.mod.env.ref norm.exp.val : SPATVAR_NBOCC*/ + /* check quasi.cur.mod.env.ref 181342857 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V391*/ meltfptr[390], /*_._VALDATA___V393*/ meltfptr[392], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PRIMITIVE*/ + /* check quasi.cur.mod.env.ref 153406168 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V399*/ meltfptr[398], /*_._VALDATA___V396*/ meltfptr[395], + /*quasi.cur.mod.env.ref norm.exp.val : SPRIM_OPER*/ + /* check quasi.cur.mod.env.ref 793241704 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V479*/ meltfptr[478], /*_._VALDATA___V481*/ meltfptr[480], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PROGN*/ + /* check quasi.cur.mod.env.ref 7943309 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V487*/ meltfptr[486], /*_._VALDATA___V484*/ meltfptr[483], + /*quasi.cur.mod.env.ref norm.exp.val : SPROGN_BODY*/ + /* check quasi.cur.mod.env.ref 355589558 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1311*/ meltfptr[1310], /*_._VALDATA___V1313*/ meltfptr[1312], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PROTOCHUNK*/ + /* check quasi.cur.mod.env.ref 85441271 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1321*/ meltfptr[1320], /*_._VALDATA___V1316*/ meltfptr[1315], + /*quasi.cur.mod.env.ref norm.exp.val : SCH_GENSYM*/ + /* check quasi.cur.mod.env.ref 740684423 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1323*/ meltfptr[1322], /*_._VALDATA___V1318*/ meltfptr[1317], + /*quasi.cur.mod.env.ref norm.exp.val : SCH_CHUNKS*/ + /* check quasi.cur.mod.env.ref 924492357 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V991*/ meltfptr[990], /*_._VALDATA___V993*/ meltfptr[992], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PUT_FIELDS*/ + /* check quasi.cur.mod.env.ref 933066097 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1001*/ meltfptr[1000], /*_._VALDATA___V996*/ meltfptr[995], + /*quasi.cur.mod.env.ref norm.exp.val : SUPUT_OBJ*/ + /* check quasi.cur.mod.env.ref 563008878 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1003*/ meltfptr[1002], /*_._VALDATA___V998*/ meltfptr[997], + /*quasi.cur.mod.env.ref norm.exp.val : SUPUT_FIELDS*/ + /* check quasi.cur.mod.env.ref 856338511 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V567*/ meltfptr[566], /*_._VALDATA___V569*/ meltfptr[568], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_QUASI_BOX*/ + /* check quasi.cur.mod.env.ref 610103459 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V575*/ meltfptr[574], /*_._VALDATA___V572*/ meltfptr[571], + /*quasi.cur.mod.env.ref norm.exp.val : SBOXED*/ + /* check quasi.cur.mod.env.ref 478060877 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V557*/ meltfptr[556], /*_._VALDATA___V559*/ meltfptr[558], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_QUOTE*/ + /* check quasi.cur.mod.env.ref 749889155 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V565*/ meltfptr[564], /*_._VALDATA___V562*/ meltfptr[561], + /*quasi.cur.mod.env.ref norm.exp.val : SQUOTED*/ + /* check quasi.cur.mod.env.ref 192417078 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V489*/ meltfptr[488], /*_._VALDATA___V491*/ meltfptr[490], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_RETURN*/ + /* check quasi.cur.mod.env.ref 428311885 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V495*/ meltfptr[494], /*_._VALDATA___V497*/ meltfptr[496], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_SETQ*/ + /* check quasi.cur.mod.env.ref 139270470 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V505*/ meltfptr[504], /*_._VALDATA___V500*/ meltfptr[499], + /*quasi.cur.mod.env.ref norm.exp.val : SSTQ_VAR*/ + /* check quasi.cur.mod.env.ref 809887469 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V507*/ meltfptr[506], /*_._VALDATA___V502*/ meltfptr[501], + /*quasi.cur.mod.env.ref norm.exp.val : SSTQ_EXPR*/ + /* check quasi.cur.mod.env.ref 283268789 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1297*/ meltfptr[1296], /*_._VALDATA___V1299*/ meltfptr[1298], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_STORE_PREDEFINED*/ + /* check quasi.cur.mod.env.ref 391373662 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1307*/ meltfptr[1306], /*_._VALDATA___V1302*/ meltfptr[1301], + /*quasi.cur.mod.env.ref norm.exp.val : SSTPD_PREDEF*/ + /* check quasi.cur.mod.env.ref 989809022 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1309*/ meltfptr[1308], /*_._VALDATA___V1304*/ meltfptr[1303], + /*quasi.cur.mod.env.ref norm.exp.val : SSTPD_VALUE*/ + /* check quasi.cur.mod.env.ref 484677762 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V467*/ meltfptr[466], /*_._VALDATA___V469*/ meltfptr[468], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_TUPLE*/ + /* check quasi.cur.mod.env.ref 692338136 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V589*/ meltfptr[588], /*_._VALDATA___V591*/ meltfptr[590], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_UNBOX*/ + /* check quasi.cur.mod.env.ref 632188200 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V599*/ meltfptr[598], /*_._VALDATA___V594*/ meltfptr[593], + /*quasi.cur.mod.env.ref norm.exp.val : SUNBOX_CTYPE*/ + /* check quasi.cur.mod.env.ref 348765470 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V601*/ meltfptr[600], /*_._VALDATA___V596*/ meltfptr[595], + /*quasi.cur.mod.env.ref norm.exp.val : SUNBOX_EXPR*/ + /* check quasi.cur.mod.env.ref 225887894 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V985*/ meltfptr[984], /*_._VALDATA___V987*/ meltfptr[986], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_UNSAFE_GET_FIELD*/ + /* check quasi.cur.mod.env.ref 501345002 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1005*/ meltfptr[1004], /*_._VALDATA___V1007*/ meltfptr[1006], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ + /* check quasi.cur.mod.env.ref 231235745 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1277*/ meltfptr[1276], /*_._VALDATA___V1279*/ meltfptr[1278], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ + /* check quasi.cur.mod.env.ref 819793489 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1285*/ meltfptr[1284], /*_._VALDATA___V1282*/ meltfptr[1281], + /*quasi.cur.mod.env.ref norm.exp.val : SUCME_COMMENT*/ + /* check quasi.cur.mod.env.ref 899481576 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V547*/ meltfptr[546], /*_._VALDATA___V549*/ meltfptr[548], + /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ + /* check quasi.cur.mod.env.ref 190239046 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V555*/ meltfptr[554], /*_._VALDATA___V552*/ meltfptr[551], + /*quasi.cur.mod.env.ref norm.exp.val : SUSEPACKAGE_PKGTUPLE*/ + /* check quasi.cur.mod.env.ref 489288806 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; /*epilog*/ } @@ -80796,159 +75955,137 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (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___V2162*/ meltfptr[2161], /*_._VALCLO___V1545*/ meltfptr[1544], - /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_MSEND*/ - /* check quasi.cur.mod.env.ref 805957555 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2164*/ meltfptr[2163], /*_._VALCLO___V1529*/ meltfptr[1528], - /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_PAIRLIST_AS_TUPLE*/ - /* check quasi.cur.mod.env.ref 345666262 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2166*/ meltfptr[2165], /*_._VALCLO___V1527*/ meltfptr[1526], - /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_PAIRLIST_AS_LIST*/ - /* check quasi.cur.mod.env.ref 630815233 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2168*/ meltfptr[2167], /*_._VALCLO___V1521*/ meltfptr[1520], - /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_RESTLIST_AS_LIST*/ - /* check quasi.cur.mod.env.ref 385710923 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2170*/ meltfptr[2169], /*_._VALCLO___V1531*/ meltfptr[1530], - /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_TUPLE_SLICE_AS_TUPLE*/ - /* check quasi.cur.mod.env.ref 70603662 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2172*/ meltfptr[2171], /*_._VALCLO___V1546*/ meltfptr[1545], - /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_PRIMITIVE*/ - /* check quasi.cur.mod.env.ref 556039449 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2174*/ meltfptr[2173], /*_._VALHOOK___V1735*/ meltfptr[1734], - /*quasi.cur.mod.env.ref norm.exp.val : HOOK_MACRO_INSTALLER*/ - /* check quasi.cur.mod.env.ref 975371357 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2176*/ meltfptr[2175], /*_._VALCLO___V1676*/ meltfptr[1675], - /*quasi.cur.mod.env.ref norm.exp.val : INSTALL_INITIAL_MACRO*/ - /* check quasi.cur.mod.env.ref 825491257 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2178*/ meltfptr[2177], /*_._VALCLO___V1680*/ meltfptr[1679], - /*quasi.cur.mod.env.ref norm.exp.val : INSTALL_INITIAL_PATMACRO*/ - /* check quasi.cur.mod.env.ref 649256584 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V317*/ meltfptr[316], /*_._VALDATA___V325*/ meltfptr[324], - /*quasi.cur.mod.env.ref norm.exp.val : IS_RECURSIVELY_CONSTRUCTIBLE*/ - /* check quasi.cur.mod.env.ref 613345512 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2180*/ meltfptr[2179], /*_._VALCLO___V1550*/ meltfptr[1549], - /*quasi.cur.mod.env.ref norm.exp.val : LAMBDA_ARG_BINDINGS*/ - /* check quasi.cur.mod.env.ref 808271992 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2182*/ meltfptr[2181], /*_._VALCLO___V1541*/ meltfptr[1540], - /*quasi.cur.mod.env.ref norm.exp.val : MACROEXPAND_1*/ - /* check quasi.cur.mod.env.ref 940042678 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2184*/ meltfptr[2183], /*_._VALCLO___V1662*/ meltfptr[1661], - /*quasi.cur.mod.env.ref norm.exp.val : MACROEXPAND_TOPLEVEL_LIST*/ - /* check quasi.cur.mod.env.ref 405254376 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2186*/ meltfptr[2185], /*_._VALCLO___V1699*/ meltfptr[1698], - /*quasi.cur.mod.env.ref norm.exp.val : MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ - /* check quasi.cur.mod.env.ref 676345391 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2188*/ meltfptr[2187], /*_._VALCLO___V1630*/ meltfptr[1629], - /*quasi.cur.mod.env.ref norm.exp.val : PATTERNEXPAND_1*/ - /* check quasi.cur.mod.env.ref 983099164 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2190*/ meltfptr[2189], /*_._VALCLO___V1639*/ meltfptr[1638], - /*quasi.cur.mod.env.ref norm.exp.val : PATTERNEXPAND_EXPR*/ - /* check quasi.cur.mod.env.ref 559123112 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2192*/ meltfptr[2191], /*_._VALCLO___V1650*/ meltfptr[1649], - /*quasi.cur.mod.env.ref norm.exp.val : PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ - /* check quasi.cur.mod.env.ref 1011459184 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2194*/ meltfptr[2193], /*_._VALCLO___V1645*/ meltfptr[1644], - /*quasi.cur.mod.env.ref norm.exp.val : PATTERN_WEIGHT_TUPLE*/ - /* check quasi.cur.mod.env.ref 930490922 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2196*/ meltfptr[2195], /*_._VALCLO___V1535*/ meltfptr[1534], - /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_GENERATOR_DEVICE*/ - /* check quasi.cur.mod.env.ref 787192242 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2198*/ meltfptr[2197], /*_._VALCLO___V1517*/ meltfptr[1516], - /*quasi.cur.mod.env.ref norm.exp.val : S_EXPR_WEIGHT*/ - /* check quasi.cur.mod.env.ref 1020831636 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2200*/ meltfptr[2199], /*_._VALCLO___V1911*/ meltfptr[1910], - /*quasi.cur.mod.env.ref norm.exp.val : MEXPAND_REFERENCE*/ - /* check quasi.cur.mod.env.ref 949498328 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2202*/ meltfptr[2201], /*_._VALCLO___V1916*/ meltfptr[1915], - /*quasi.cur.mod.env.ref norm.exp.val : PATEXPAND_REFERENCE*/ - /* check quasi.cur.mod.env.ref 384707049 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2162*/ meltfptr[2161], /*_._VALCLO___V1545*/ meltfptr[1544], + /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_MSEND*/ + /* check quasi.cur.mod.env.ref 805957555 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2164*/ meltfptr[2163], /*_._VALCLO___V1529*/ meltfptr[1528], + /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_PAIRLIST_AS_TUPLE*/ + /* check quasi.cur.mod.env.ref 345666262 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2166*/ meltfptr[2165], /*_._VALCLO___V1527*/ meltfptr[1526], + /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_PAIRLIST_AS_LIST*/ + /* check quasi.cur.mod.env.ref 630815233 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2168*/ meltfptr[2167], /*_._VALCLO___V1521*/ meltfptr[1520], + /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_RESTLIST_AS_LIST*/ + /* check quasi.cur.mod.env.ref 385710923 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2170*/ meltfptr[2169], /*_._VALCLO___V1531*/ meltfptr[1530], + /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_TUPLE_SLICE_AS_TUPLE*/ + /* check quasi.cur.mod.env.ref 70603662 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2172*/ meltfptr[2171], /*_._VALCLO___V1546*/ meltfptr[1545], + /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_PRIMITIVE*/ + /* check quasi.cur.mod.env.ref 556039449 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2174*/ meltfptr[2173], /*_._VALHOOK___V1735*/ meltfptr[1734], + /*quasi.cur.mod.env.ref norm.exp.val : HOOK_MACRO_INSTALLER*/ + /* check quasi.cur.mod.env.ref 975371357 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2176*/ meltfptr[2175], /*_._VALCLO___V1676*/ meltfptr[1675], + /*quasi.cur.mod.env.ref norm.exp.val : INSTALL_INITIAL_MACRO*/ + /* check quasi.cur.mod.env.ref 825491257 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2178*/ meltfptr[2177], /*_._VALCLO___V1680*/ meltfptr[1679], + /*quasi.cur.mod.env.ref norm.exp.val : INSTALL_INITIAL_PATMACRO*/ + /* check quasi.cur.mod.env.ref 649256584 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V317*/ meltfptr[316], /*_._VALDATA___V325*/ meltfptr[324], + /*quasi.cur.mod.env.ref norm.exp.val : IS_RECURSIVELY_CONSTRUCTIBLE*/ + /* check quasi.cur.mod.env.ref 613345512 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2180*/ meltfptr[2179], /*_._VALCLO___V1550*/ meltfptr[1549], + /*quasi.cur.mod.env.ref norm.exp.val : LAMBDA_ARG_BINDINGS*/ + /* check quasi.cur.mod.env.ref 808271992 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2182*/ meltfptr[2181], /*_._VALCLO___V1541*/ meltfptr[1540], + /*quasi.cur.mod.env.ref norm.exp.val : MACROEXPAND_1*/ + /* check quasi.cur.mod.env.ref 940042678 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2184*/ meltfptr[2183], /*_._VALCLO___V1662*/ meltfptr[1661], + /*quasi.cur.mod.env.ref norm.exp.val : MACROEXPAND_TOPLEVEL_LIST*/ + /* check quasi.cur.mod.env.ref 405254376 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2186*/ meltfptr[2185], /*_._VALCLO___V1699*/ meltfptr[1698], + /*quasi.cur.mod.env.ref norm.exp.val : MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ + /* check quasi.cur.mod.env.ref 676345391 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2188*/ meltfptr[2187], /*_._VALCLO___V1630*/ meltfptr[1629], + /*quasi.cur.mod.env.ref norm.exp.val : PATTERNEXPAND_1*/ + /* check quasi.cur.mod.env.ref 983099164 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2190*/ meltfptr[2189], /*_._VALCLO___V1639*/ meltfptr[1638], + /*quasi.cur.mod.env.ref norm.exp.val : PATTERNEXPAND_EXPR*/ + /* check quasi.cur.mod.env.ref 559123112 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2192*/ meltfptr[2191], /*_._VALCLO___V1650*/ meltfptr[1649], + /*quasi.cur.mod.env.ref norm.exp.val : PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ + /* check quasi.cur.mod.env.ref 1011459184 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2194*/ meltfptr[2193], /*_._VALCLO___V1645*/ meltfptr[1644], + /*quasi.cur.mod.env.ref norm.exp.val : PATTERN_WEIGHT_TUPLE*/ + /* check quasi.cur.mod.env.ref 930490922 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2196*/ meltfptr[2195], /*_._VALCLO___V1535*/ meltfptr[1534], + /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_GENERATOR_DEVICE*/ + /* check quasi.cur.mod.env.ref 787192242 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2198*/ meltfptr[2197], /*_._VALCLO___V1517*/ meltfptr[1516], + /*quasi.cur.mod.env.ref norm.exp.val : S_EXPR_WEIGHT*/ + /* check quasi.cur.mod.env.ref 1020831636 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2200*/ meltfptr[2199], /*_._VALCLO___V1911*/ meltfptr[1910], + /*quasi.cur.mod.env.ref norm.exp.val : MEXPAND_REFERENCE*/ + /* check quasi.cur.mod.env.ref 949498328 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2202*/ meltfptr[2201], /*_._VALCLO___V1916*/ meltfptr[1915], + /*quasi.cur.mod.env.ref norm.exp.val : PATEXPAND_REFERENCE*/ + /* check quasi.cur.mod.env.ref 384707049 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; /*epilog*/ } @@ -80956,8 +76093,7 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltfram /**COMMENT: compute boxloc again **/; - /*cond*/ - if (/*_._CONTENV___V2*/ meltfptr[1]) /*then*/ + /*cond*/ if (/*_._CONTENV___V2*/ meltfptr[1]) /*then*/ { } else /*^cond.else*/ @@ -82619,8 +77755,7 @@ void meltmod__WARMELTmiMACRO__initialmeltchunk_54 (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 **/; |