diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-normal+05.cc')
-rw-r--r-- | gcc/melt/generated/warmelt-normal+05.cc | 11178 |
1 files changed, 7452 insertions, 3726 deletions
diff --git a/gcc/melt/generated/warmelt-normal+05.cc b/gcc/melt/generated/warmelt-normal+05.cc index fc79ad06b94..f694b5d8226 100644 --- a/gcc/melt/generated/warmelt-normal+05.cc +++ b/gcc/melt/generated/warmelt-normal+05.cc @@ -1095,7 +1095,8 @@ meltrout_118_WARMELTmiNORMAL_NORMAL_KEYWORD_DATA(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_118_WARMELTmiNORMAL_NORMAL_KEYWORD_DATA fromline 1756 */ - /* classy proc frame meltrout_118_WARMELTmiNORMAL_NORMAL_KEYWORD_DATA */ MeltFrame_meltrout_118_WARMELTmiNORMAL_NORMAL_KEYWORD_DATA + /* classy proc frame meltrout_118_WARMELTmiNORMAL_NORMAL_KEYWORD_DATA */ + MeltFrame_meltrout_118_WARMELTmiNORMAL_NORMAL_KEYWORD_DATA meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_118_WARMELTmiNORMAL_NORMAL_KEYWORD_DATA fromline 1785*/ #if ENABLE_CHECKING @@ -1108,7 +1109,8 @@ meltrout_118_WARMELTmiNORMAL_NORMAL_KEYWORD_DATA(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("NORMAL_KEYWORD_DATA", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1118,19 +1120,22 @@ meltrout_118_WARMELTmiNORMAL_NORMAL_KEYWORD_DATA(meltclosure_ptr_t meltclosp_, m /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:6889:/ getarg"); - /*_.KEYW__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.KEYW__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.SLOC__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.SLOC__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V4*/ meltfptr[3])) != NULL); ; @@ -1162,7 +1167,8 @@ 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)) @@ -1171,7 +1177,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:6891:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1204,16 +1211,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normal_keyword_data keyw="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.KEYW__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 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__V6*/ + meltfptr[5] = 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___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; + /*_._IF___V5*/ + meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6891:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ + meltfptr[5] = 0 ; } ; } @@ -1226,7 +1237,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:6891:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -1235,9 +1247,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1267,13 +1281,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_.DISCRIM__V8*/ meltfptr[4] = + /*_.DISCRIM__V8*/ + meltfptr[4] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.KEYW__V2*/ meltfptr[1]))));; /*^compute*/ - /*_#eqeq__L3*/ meltfnum[1] = + /*_#eqeq__L3*/ + meltfnum[1] = ((/*_.DISCRIM__V8*/ meltfptr[4]) == ((/*!CLASS_KEYWORD*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:6892:/ cond"); - /*cond*/ if (/*_#eqeq__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#eqeq__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; @@ -1302,27 +1319,34 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6892; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.KEYW__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[8] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6892:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V9*/ meltfptr[8];; + /*_.IFCPP___V7*/ + meltfptr[5] = /*_._IFELSE___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6892:/ clear"); - /*clear*/ /*_.DISCRIM__V8*/ meltfptr[4] = 0 ; + /*clear*/ /*_.DISCRIM__V8*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#eqeq__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ + meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1340,10 +1364,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:6893:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[4] = (/*nil*/NULL);; @@ -1372,25 +1398,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6893; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[8] = 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__V13*/ + meltfptr[8] = 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___V12*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[8];; + /*_._IFELSE___V12*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6893:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[4];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6893:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1406,17 +1438,20 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 9, "NCTX_VALMAP"); - /*_.VALMAP__V15*/ meltfptr[4] = slot; + /*_.VALMAP__V15*/ + meltfptr[4] = slot; }; ; - /*_.OSYDATA__V16*/ meltfptr[15] = + /*_.OSYDATA__V16*/ + meltfptr[15] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.VALMAP__V15*/ meltfptr[4]), (meltobject_ptr_t)(/*_.KEYW__V2*/ meltfptr[1]));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:6896:/ cond"); - /*cond*/ if (/*_.OSYDATA__V16*/ meltfptr[15]) /*then*/ + /*cond*/ + if (/*_.OSYDATA__V16*/ meltfptr[15]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[16] = /*_.OSYDATA__V16*/ meltfptr[15];; @@ -1432,14 +1467,16 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:6897:/ quasiblock"); - /*_#SYHASH__L5*/ meltfnum[1] = + /*_#SYHASH__L5*/ + meltfnum[1] = (melt_obj_hash((melt_ptr_t)(/*_.KEYW__V2*/ meltfptr[1])));; MELT_LOCATION("warmelt-normal.melt:6898:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.KEYW__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.SYNAMSTR__V19*/ meltfptr[18] = slot; + /*_.SYNAMSTR__V19*/ + meltfptr[18] = slot; }; ; @@ -1459,7 +1496,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[5])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V20*/ + meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[5])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:6901:/ quasiblock"); @@ -1470,7 +1508,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ meltfrout->tabval[4])), (6), "CLASS_NREP_DATASTRING"); - /*_.INST__V22*/ meltfptr[21] = + /*_.INST__V22*/ + meltfptr[21] = newobj; }; ; @@ -1488,19 +1527,23 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V22*/ meltfptr[21], "newly made instance"); ; - /*_.SYNAMSTRDATA__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; + /*_.SYNAMSTRDATA__V21*/ + meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; MELT_LOCATION("warmelt-normal.melt:6906:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[1])) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); - /*_.CLASS_FIELDS__V23*/ meltfptr[22] = slot; + /*_.CLASS_FIELDS__V23*/ + meltfptr[22] = slot; }; ; - /*_#MULTIPLE_LENGTH__L6*/ meltfnum[0] = + /*_#MULTIPLE_LENGTH__L6*/ + meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V23*/ meltfptr[22])));; /*^compute*/ - /*_.SYSLOTS__V24*/ meltfptr[23] = + /*_.SYSLOTS__V24*/ + meltfptr[23] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L6*/ meltfnum[0])));; MELT_CHECK_SIGNAL(); @@ -1519,10 +1562,12 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_cstring = "class_keyword"; - /*_.NORMAL_PREDEF__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[5])), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[1])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[5])), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[1])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.MAKE_INTEGERBOX__V26*/ meltfptr[25] = + /*_.MAKE_INTEGERBOX__V26*/ + meltfptr[25] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[9])), (/*_#SYHASH__L5*/ meltfnum[1])));; MELT_LOCATION("warmelt-normal.melt:6907:/ quasiblock"); @@ -1532,7 +1577,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ meltfrout->tabval[8])), (10), "CLASS_NREP_DATAKEYWORD"); - /*_.INST__V28*/ meltfptr[27] = + /*_.INST__V28*/ + meltfptr[27] = newobj; }; ; @@ -1565,7 +1611,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V28*/ meltfptr[27], "newly made instance"); ; - /*_.SYDATA__V27*/ meltfptr[26] = /*_.INST__V28*/ meltfptr[27];; + /*_.SYDATA__V27*/ + meltfptr[26] = /*_.INST__V28*/ meltfptr[27];; { MELT_LOCATION("warmelt-normal.melt:6914:/ locexp"); @@ -1597,7 +1644,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[6] = + /*_#MELT_NEED_DBG__L7*/ + meltfnum[6] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1606,7 +1654,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:6915:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1643,16 +1692,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n ..keyw="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.KEYW__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V29*/ meltfptr[28] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; + /*_._IF___V29*/ + meltfptr[28] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6915:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[29] = 0 ; } ; } @@ -1665,7 +1718,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:6915:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -1674,9 +1728,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_._IF___V29*/ + meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1696,7 +1752,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_#OBJ_NUM__L9*/ meltfnum[7] = + /*_#OBJ_NUM__L9*/ + meltfnum[7] = (melt_obj_num((melt_ptr_t)((/*!NAMED_NAME*/ meltfrout->tabval[10]))));; { @@ -1714,7 +1771,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SYDATA__V27*/ meltfptr[26]; - /*_.ADD_NCTX_DATA__V31*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.NCX__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V31*/ + meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.NCX__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -1727,7 +1785,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SYNAMSTRDATA__V21*/ meltfptr[20]; - /*_.ADD_NCTX_DATA__V32*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.NCX__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V32*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.NCX__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -1743,7 +1802,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 6, "NCTX_KEYWMAP"); - /*_.NCTX_KEYWMAP__V33*/ meltfptr[32] = slot; + /*_.NCTX_KEYWMAP__V33*/ + meltfptr[32] = slot; }; ; @@ -1774,7 +1834,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[6] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[6] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1783,7 +1844,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:6921:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1816,16 +1878,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normal_keyword_data return sydata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SYDATA__V27*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 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__V35*/ + meltfptr[34] = 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___V34*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; + /*_._IF___V34*/ + meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6921:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = 0 ; } ; } @@ -1838,7 +1904,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:6921:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -1847,9 +1914,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V34*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1875,7 +1944,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:6922:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.SYDATA__V27*/ meltfptr[26];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.SYDATA__V27*/ meltfptr[26];; { MELT_LOCATION("warmelt-normal.melt:6922:/ locexp"); @@ -1890,63 +1960,87 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V18*/ meltfptr[17] = /*_.RETURN___V36*/ meltfptr[34];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V18*/ + meltfptr[17] = /*_.RETURN___V36*/ meltfptr[34];; MELT_LOCATION("warmelt-normal.melt:6897:/ clear"); - /*clear*/ /*_#SYHASH__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#SYHASH__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.SYNAMSTR__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SYNAMSTR__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.SYNAMSTRDATA__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.SYNAMSTRDATA__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.CLASS_FIELDS__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.CLASS_FIELDS__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.SYSLOTS__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.SYSLOTS__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.SYDATA__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.SYDATA__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_#OBJ_NUM__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#OBJ_NUM__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V31*/ meltfptr[29] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V31*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V32*/ meltfptr[28] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V32*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.NCTX_KEYWMAP__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.NCTX_KEYWMAP__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V36*/ meltfptr[34] = 0 ; - /*_._IFELSE___V17*/ meltfptr[16] = /*_.LET___V18*/ meltfptr[17];; + /*clear*/ /*_.RETURN___V36*/ + meltfptr[34] = 0 ; + /*_._IFELSE___V17*/ + meltfptr[16] = /*_.LET___V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6896:/ clear"); - /*clear*/ /*_.LET___V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.LET___V18*/ + meltfptr[17] = 0 ; } ; } ; - /*_.LET___V14*/ meltfptr[8] = /*_._IFELSE___V17*/ meltfptr[16];; + /*_.LET___V14*/ + meltfptr[8] = /*_._IFELSE___V17*/ meltfptr[16];; MELT_LOCATION("warmelt-normal.melt:6894:/ clear"); - /*clear*/ /*_.VALMAP__V15*/ meltfptr[4] = 0 ; + /*clear*/ /*_.VALMAP__V15*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.OSYDATA__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.OSYDATA__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ + meltfptr[16] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:6889:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[8];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V14*/ meltfptr[8];; { MELT_LOCATION("warmelt-normal.melt:6889:/ locexp"); @@ -1961,15 +2055,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V14*/ meltfptr[8] = 0 ; + /*clear*/ /*_.LET___V14*/ + meltfptr[8] = 0 ; } ; @@ -2051,7 +2149,8 @@ meltrout_119_WARMELTmiNORMAL_CREATE_DATA_SLOTS(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_119_WARMELTmiNORMAL_CREATE_DATA_SLOTS fromline 1756 */ - /* classy proc frame meltrout_119_WARMELTmiNORMAL_CREATE_DATA_SLOTS */ MeltFrame_meltrout_119_WARMELTmiNORMAL_CREATE_DATA_SLOTS + /* classy proc frame meltrout_119_WARMELTmiNORMAL_CREATE_DATA_SLOTS */ + MeltFrame_meltrout_119_WARMELTmiNORMAL_CREATE_DATA_SLOTS meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_119_WARMELTmiNORMAL_CREATE_DATA_SLOTS fromline 1785*/ #if ENABLE_CHECKING @@ -2064,7 +2163,8 @@ meltrout_119_WARMELTmiNORMAL_CREATE_DATA_SLOTS(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("CREATE_DATA_SLOTS", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -2074,7 +2174,8 @@ meltrout_119_WARMELTmiNORMAL_CREATE_DATA_SLOTS(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:6927:/ getarg"); - /*_.CLA__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CLA__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -2094,10 +2195,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ meltfnum[0] = + /*_#IS_A__L1*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CLA__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:6928:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; @@ -2126,25 +2229,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6928; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CLA__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V4*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4];; + /*_._IFELSE___V4*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6928:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V5*/ + meltfptr[4] = 0 ; } ; } ; - /*_.IFCPP___V3*/ meltfptr[2] = /*_._IFELSE___V4*/ meltfptr[3];; + /*_.IFCPP___V3*/ + meltfptr[2] = /*_._IFELSE___V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6928:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2172,7 +2281,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L2*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L2*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2181,7 +2291,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:6929:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2214,16 +2325,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "create_data_slots cla"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLA__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[2])), (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[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[3];; + /*_._IF___V6*/ + meltfptr[4] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6929:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[3] = 0 ; } ; } @@ -2236,7 +2351,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:6929:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2245,9 +2361,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V6*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2275,13 +2393,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLA__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); - /*_.CLASS_FIELDS__V9*/ meltfptr[4] = slot; + /*_.CLASS_FIELDS__V9*/ + meltfptr[4] = slot; }; ; - /*_#MULTIPLE_LENGTH__L4*/ meltfnum[2] = + /*_#MULTIPLE_LENGTH__L4*/ + meltfnum[2] = (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V9*/ meltfptr[4])));; /*^compute*/ - /*_.TUPSLO__V10*/ meltfptr[9] = + /*_.TUPSLO__V10*/ + meltfptr[9] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[3])), (/*_#MULTIPLE_LENGTH__L4*/ meltfnum[2])));; #if MELT_HAVE_DEBUG @@ -2303,7 +2424,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2312,7 +2434,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:6933:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2345,16 +2468,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "create_data_slots tupslo"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TUPSLO__V10*/ meltfptr[9]; - /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V12*/ + meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V11*/ meltfptr[10] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; + /*_._IF___V11*/ + meltfptr[10] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6933:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V12*/ + meltfptr[11] = 0 ; } ; } @@ -2367,7 +2494,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:6933:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2376,9 +2504,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_._IF___V11*/ + meltfptr[10] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2398,21 +2528,26 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V8*/ meltfptr[3] = /*_.TUPSLO__V10*/ meltfptr[9];; + /*_.LET___V8*/ + meltfptr[3] = /*_.TUPSLO__V10*/ meltfptr[9];; MELT_LOCATION("warmelt-normal.melt:6930:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V9*/ meltfptr[4] = 0 ; + /*clear*/ /*_.CLASS_FIELDS__V9*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L4*/ meltfnum[2] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L4*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPSLO__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.TUPSLO__V10*/ + meltfptr[9] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:6927:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[3];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V8*/ meltfptr[3];; { MELT_LOCATION("warmelt-normal.melt:6927:/ locexp"); @@ -2427,13 +2562,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_.IFCPP___V3*/ + meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V8*/ meltfptr[3] = 0 ; + /*clear*/ /*_.LET___V8*/ + meltfptr[3] = 0 ; } ; @@ -2515,7 +2653,8 @@ meltrout_120_WARMELTmiNORMAL_FILL_DATA_SLOT(meltclosure_ptr_t meltclosp_, melt_p /* end of frame for routine meltrout_120_WARMELTmiNORMAL_FILL_DATA_SLOT fromline 1756 */ - /* classy proc frame meltrout_120_WARMELTmiNORMAL_FILL_DATA_SLOT */ MeltFrame_meltrout_120_WARMELTmiNORMAL_FILL_DATA_SLOT + /* classy proc frame meltrout_120_WARMELTmiNORMAL_FILL_DATA_SLOT */ + MeltFrame_meltrout_120_WARMELTmiNORMAL_FILL_DATA_SLOT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_120_WARMELTmiNORMAL_FILL_DATA_SLOT fromline 1785*/ #if ENABLE_CHECKING @@ -2528,7 +2667,8 @@ meltrout_120_WARMELTmiNORMAL_FILL_DATA_SLOT(meltclosure_ptr_t meltclosp_, melt_p #define meltframe meltfram__ melt_trace_start("FILL_DATA_SLOT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -2538,19 +2678,22 @@ meltrout_120_WARMELTmiNORMAL_FILL_DATA_SLOT(meltclosure_ptr_t meltclosp_, melt_p /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:6938:/ getarg"); - /*_.DI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.DI__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.FIELD__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.FIELD__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.FIELD__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.VAL__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.VAL__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V4*/ meltfptr[3])) != NULL); ; @@ -2572,10 +2715,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ meltfnum[0] = + /*_#IS_A__L1*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.DI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:6939:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; @@ -2604,25 +2749,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6939; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DI__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (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[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6939:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ + meltfptr[6] = 0 ; } ; } ; - /*_.IFCPP___V5*/ meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];; + /*_.IFCPP___V5*/ + meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6939:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2640,10 +2791,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[0] = + /*_#IS_A__L2*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.FIELD__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:6940:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -2670,25 +2823,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6940; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), 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-normal.melt:6940:/ 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-normal.melt:6940:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L2*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2699,14 +2858,16 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:6941:/ quasiblock"); - /*_#FIX__L3*/ meltfnum[0] = + /*_#FIX__L3*/ + meltfnum[0] = (melt_obj_num((melt_ptr_t)(/*_.FIELD__V3*/ meltfptr[2])));; MELT_LOCATION("warmelt-normal.melt:6942:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DI__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 8, "NINST_SLOTS"); - /*_.SLOTS__V11*/ meltfptr[9] = slot; + /*_.SLOTS__V11*/ + meltfptr[9] = slot; }; ; @@ -2717,18 +2878,22 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:6941:/ clear"); - /*clear*/ /*_#FIX__L3*/ meltfnum[0] = 0 ; + /*clear*/ /*_#FIX__L3*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.SLOTS__V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.SLOTS__V11*/ + meltfptr[9] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6938:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V5*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; } ; @@ -2810,7 +2975,8 @@ meltrout_121_WARMELTmiNORMAL_NORMEXP_QUOTE(meltclosure_ptr_t meltclosp_, melt_pt /* end of frame for routine meltrout_121_WARMELTmiNORMAL_NORMEXP_QUOTE fromline 1756 */ - /* classy proc frame meltrout_121_WARMELTmiNORMAL_NORMEXP_QUOTE */ MeltFrame_meltrout_121_WARMELTmiNORMAL_NORMEXP_QUOTE + /* classy proc frame meltrout_121_WARMELTmiNORMAL_NORMEXP_QUOTE */ + MeltFrame_meltrout_121_WARMELTmiNORMAL_NORMEXP_QUOTE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_121_WARMELTmiNORMAL_NORMEXP_QUOTE fromline 1785*/ #if ENABLE_CHECKING @@ -2823,7 +2989,8 @@ meltrout_121_WARMELTmiNORMAL_NORMEXP_QUOTE(meltclosure_ptr_t meltclosp_, melt_pt #define meltframe meltfram__ melt_trace_start("NORMEXP_QUOTE", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -2833,26 +3000,30 @@ meltrout_121_WARMELTmiNORMAL_NORMEXP_QUOTE(meltclosure_ptr_t meltclosp_, melt_pt /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:6951:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__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; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -2884,7 +3055,8 @@ 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)) @@ -2893,7 +3065,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:6952:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2926,16 +3099,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_quote recv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:6952:/ 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 ; } ; } @@ -2948,7 +3125,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:6952:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2957,9 +3135,11 @@ 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*/ @@ -2989,10 +3169,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_QUOTE*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:6953:/ 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);; @@ -3021,25 +3203,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6953; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:6953:/ 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-normal.melt:6953:/ 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*/ @@ -3057,10 +3245,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:6954:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -3089,25 +3279,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6954; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 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__V13*/ + meltfptr[12] = 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___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6954:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6954:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3125,10 +3321,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:6955:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -3157,25 +3355,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6955; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6955:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6955:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3202,7 +3406,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6958:/ getslot"); @@ -3210,7 +3415,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SQUOTED"); - /*_.QUOTED__V19*/ meltfptr[18] = slot; + /*_.QUOTED__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6959:/ getslot"); @@ -3218,19 +3424,23 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 11, "NCTX_CURPROC"); - /*_.CURPROC__V20*/ meltfptr[19] = slot; + /*_.CURPROC__V20*/ + meltfptr[19] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_.DISCRIM__V21*/ meltfptr[20] = + /*_.DISCRIM__V21*/ + meltfptr[20] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.QUOTED__V19*/ meltfptr[18]))));; /*^compute*/ - /*_#eqeq__L6*/ meltfnum[0] = + /*_#eqeq__L6*/ + meltfnum[0] = ((/*_.DISCRIM__V21*/ meltfptr[20]) == ((/*!CLASS_SYMBOL*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:6962:/ cond"); - /*cond*/ if (/*_#eqeq__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#eqeq__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3257,7 +3467,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3266,7 +3477,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:6963:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3299,16 +3511,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_quote symbol quoted="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.QUOTED__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V23*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; + /*_._IF___V23*/ + meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6963:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[23] = 0 ; } ; } @@ -3321,7 +3537,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:6963:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3330,9 +3547,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IF___V23*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3364,21 +3583,26 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4]; - /*_.NORMAL_SYMBOL_DATA__V25*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.QUOTED__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_SYMBOL_DATA__V25*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.QUOTED__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:6962:/ quasiblock"); - /*_.PROGN___V26*/ meltfptr[22] = /*_.NORMAL_SYMBOL_DATA__V25*/ meltfptr[23];; + /*_.PROGN___V26*/ + meltfptr[22] = /*_.NORMAL_SYMBOL_DATA__V25*/ meltfptr[23];; /*^compute*/ - /*_.NDATA__V22*/ meltfptr[21] = /*_.PROGN___V26*/ meltfptr[22];; + /*_.NDATA__V22*/ + meltfptr[21] = /*_.PROGN___V26*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6962:/ clear"); - /*clear*/ /*_.NORMAL_SYMBOL_DATA__V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_.NORMAL_SYMBOL_DATA__V25*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V26*/ meltfptr[22] = 0 ; + /*clear*/ /*_.PROGN___V26*/ + meltfptr[22] = 0 ; } ; } @@ -3392,10 +3616,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_INTEGERBOX__L9*/ meltfnum[7] = + /*_#IS_INTEGERBOX__L9*/ + meltfnum[7] = (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V19*/ meltfptr[18])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-normal.melt:6965:/ cond"); - /*cond*/ if (/*_#IS_INTEGERBOX__L9*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_INTEGERBOX__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3422,7 +3648,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3431,7 +3658,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:6966:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3464,16 +3692,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_quote integer quoted="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.QUOTED__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V29*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V28*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; + /*_._IF___V28*/ + meltfptr[22] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6966:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ + meltfptr[28] = 0 ; } ; } @@ -3486,7 +3718,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:6966:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3495,9 +3728,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V28*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IF___V28*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3537,7 +3772,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_constant_integer"; - /*_.NORMAL_PREDEF__V31*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V31*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:6968:/ quasiblock"); @@ -3548,7 +3784,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATABOXEDINTEGER*/ meltfrout->tabval[7])), (6), "CLASS_NREP_DATABOXEDINTEGER"); - /*_.INST__V33*/ meltfptr[32] = + /*_.INST__V33*/ + meltfptr[32] = newobj; }; ; @@ -3566,7 +3803,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V33*/ meltfptr[32], "newly made instance"); ; - /*_.NINTDATA__V32*/ meltfptr[31] = /*_.INST__V33*/ meltfptr[32];; + /*_.NINTDATA__V32*/ + meltfptr[31] = /*_.INST__V33*/ meltfptr[32];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:6972:/ cppif.then"); @@ -3587,7 +3825,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3596,7 +3835,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:6972:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3629,16 +3869,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_quote nintdata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NINTDATA__V32*/ meltfptr[31]; - /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 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__V35*/ + meltfptr[34] = 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___V34*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; + /*_._IF___V34*/ + meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6972:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = 0 ; } ; } @@ -3651,7 +3895,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:6972:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3660,9 +3905,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V34*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3692,29 +3939,38 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NINTDATA__V32*/ meltfptr[31]; - /*_.ADD_NCTX_DATA__V36*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V36*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V30*/ meltfptr[28] = /*_.NINTDATA__V32*/ meltfptr[31];; + /*_.LET___V30*/ + meltfptr[28] = /*_.NINTDATA__V32*/ meltfptr[31];; MELT_LOCATION("warmelt-normal.melt:6967:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V31*/ meltfptr[22] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V31*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.NINTDATA__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.NINTDATA__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V36*/ + meltfptr[34] = 0 ; MELT_LOCATION("warmelt-normal.melt:6965:/ quasiblock"); - /*_.PROGN___V37*/ meltfptr[33] = /*_.LET___V30*/ meltfptr[28];; + /*_.PROGN___V37*/ + meltfptr[33] = /*_.LET___V30*/ meltfptr[28];; /*^compute*/ - /*_._IFELSE___V27*/ meltfptr[23] = /*_.PROGN___V37*/ meltfptr[33];; + /*_._IFELSE___V27*/ + meltfptr[23] = /*_.PROGN___V37*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6965:/ clear"); - /*clear*/ /*_.LET___V30*/ meltfptr[28] = 0 ; + /*clear*/ /*_.LET___V30*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V37*/ meltfptr[33] = 0 ; + /*clear*/ /*_.PROGN___V37*/ + meltfptr[33] = 0 ; } ; } @@ -3728,10 +3984,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L14*/ meltfnum[1] = + /*_#IS_STRING__L14*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V19*/ meltfptr[18])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-normal.melt:6976:/ cond"); - /*cond*/ if (/*_#IS_STRING__L14*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L14*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3758,7 +4016,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L15*/ meltfnum[10] = + /*_#MELT_NEED_DBG__L15*/ + meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3767,7 +4026,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:6977:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L15*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3800,16 +4060,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_quote string quoted="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.QUOTED__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V40*/ meltfptr[34] = 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__V40*/ + meltfptr[34] = 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___V39*/ meltfptr[31] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[34];; + /*_._IF___V39*/ + meltfptr[31] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6977:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ + meltfptr[34] = 0 ; } ; } @@ -3822,7 +4086,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:6977:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3831,9 +4096,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IF___V39*/ + meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3873,7 +4140,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V42*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V42*/ + meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:6979:/ quasiblock"); @@ -3884,7 +4152,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ meltfrout->tabval[11])), (6), "CLASS_NREP_DATASTRING"); - /*_.INST__V44*/ meltfptr[31] = + /*_.INST__V44*/ + meltfptr[31] = newobj; }; ; @@ -3902,7 +4171,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V44*/ meltfptr[31], "newly made instance"); ; - /*_.NSTRDATA__V43*/ meltfptr[34] = /*_.INST__V44*/ meltfptr[31];; + /*_.NSTRDATA__V43*/ + meltfptr[34] = /*_.INST__V44*/ meltfptr[31];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:6983:/ cppif.then"); @@ -3923,7 +4193,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ meltfnum[15] = + /*_#MELT_NEED_DBG__L17*/ + meltfnum[15] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3932,7 +4203,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:6983:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3965,16 +4237,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_quote nstrdata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NSTRDATA__V43*/ meltfptr[34]; - /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = 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__V46*/ + meltfptr[45] = 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___V45*/ meltfptr[44] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];; + /*_._IF___V45*/ + meltfptr[44] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6983:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L18*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ + meltfptr[45] = 0 ; } ; } @@ -3987,7 +4263,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:6983:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3996,9 +4273,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IF___V45*/ + meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4028,29 +4307,38 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NSTRDATA__V43*/ meltfptr[34]; - /*_.ADD_NCTX_DATA__V47*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V47*/ + meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V41*/ meltfptr[28] = /*_.NSTRDATA__V43*/ meltfptr[34];; + /*_.LET___V41*/ + meltfptr[28] = /*_.NSTRDATA__V43*/ meltfptr[34];; MELT_LOCATION("warmelt-normal.melt:6978:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V42*/ meltfptr[33] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V42*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.NSTRDATA__V43*/ meltfptr[34] = 0 ; + /*clear*/ /*_.NSTRDATA__V43*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V47*/ meltfptr[45] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V47*/ + meltfptr[45] = 0 ; MELT_LOCATION("warmelt-normal.melt:6976:/ quasiblock"); - /*_.PROGN___V48*/ meltfptr[44] = /*_.LET___V41*/ meltfptr[28];; + /*_.PROGN___V48*/ + meltfptr[44] = /*_.LET___V41*/ meltfptr[28];; /*^compute*/ - /*_._IFELSE___V38*/ meltfptr[22] = /*_.PROGN___V48*/ meltfptr[44];; + /*_._IFELSE___V38*/ + meltfptr[22] = /*_.PROGN___V48*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6976:/ clear"); - /*clear*/ /*_.LET___V41*/ meltfptr[28] = 0 ; + /*clear*/ /*_.LET___V41*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V48*/ meltfptr[44] = 0 ; + /*clear*/ /*_.PROGN___V48*/ + meltfptr[44] = 0 ; } ; } @@ -4072,7 +4360,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V50*/ meltfptr[34] = (/*nil*/NULL);; @@ -4101,23 +4390,28 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6989; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.QUOTED__V19*/ meltfptr[18]; - /*_.MELT_ASSERT_FAILURE_FUN__V51*/ meltfptr[45] = 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__V51*/ + meltfptr[45] = 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___V50*/ meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V51*/ meltfptr[45];; + /*_._IFELSE___V50*/ + meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V51*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6989:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V51*/ meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V51*/ + meltfptr[45] = 0 ; } ; } ; - /*_.IFCPP___V49*/ meltfptr[33] = /*_._IFELSE___V50*/ meltfptr[34];; + /*_.IFCPP___V49*/ + meltfptr[33] = /*_._IFELSE___V50*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6989:/ clear"); - /*clear*/ /*_._IFELSE___V50*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IFELSE___V50*/ + meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4128,37 +4422,47 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:6986:/ quasiblock"); - /*_.PROGN___V52*/ meltfptr[28] = /*_.IFCPP___V49*/ meltfptr[33];; + /*_.PROGN___V52*/ + meltfptr[28] = /*_.IFCPP___V49*/ meltfptr[33];; /*^compute*/ - /*_._IFELSE___V38*/ meltfptr[22] = /*_.PROGN___V52*/ meltfptr[28];; + /*_._IFELSE___V38*/ + meltfptr[22] = /*_.PROGN___V52*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6976:/ clear"); - /*clear*/ /*_.IFCPP___V49*/ meltfptr[33] = 0 ; + /*clear*/ /*_.IFCPP___V49*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V52*/ meltfptr[28] = 0 ; + /*clear*/ /*_.PROGN___V52*/ + meltfptr[28] = 0 ; } ; } ; - /*_._IFELSE___V27*/ meltfptr[23] = /*_._IFELSE___V38*/ meltfptr[22];; + /*_._IFELSE___V27*/ + meltfptr[23] = /*_._IFELSE___V38*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6965:/ clear"); - /*clear*/ /*_#IS_STRING__L14*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRING__L14*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V38*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IFELSE___V38*/ + meltfptr[22] = 0 ; } ; } ; - /*_.NDATA__V22*/ meltfptr[21] = /*_._IFELSE___V27*/ meltfptr[23];; + /*_.NDATA__V22*/ + meltfptr[21] = /*_._IFELSE___V27*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6962:/ clear"); - /*clear*/ /*_#IS_INTEGERBOX__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_INTEGERBOX__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V27*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IFELSE___V27*/ + meltfptr[23] = 0 ; } ; } @@ -4183,7 +4487,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L19*/ meltfnum[10] = + /*_#MELT_NEED_DBG__L19*/ + meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4192,7 +4497,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:6993:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4229,16 +4535,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. curproc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V54*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V54*/ + meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V53*/ meltfptr[44] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[45];; + /*_._IF___V53*/ + meltfptr[44] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6993:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ + meltfptr[45] = 0 ; } ; } @@ -4251,7 +4561,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:6993:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4260,9 +4571,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V53*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IF___V53*/ + meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4285,10 +4598,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L21*/ meltfnum[1] = + /*_#IS_A__L21*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-normal.melt:6994:/ cond"); - /*cond*/ if (/*_#IS_A__L21*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L21*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4309,7 +4624,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSTANT*/ meltfrout->tabval[14])), (4), "CLASS_NREP_CONSTANT"); - /*_.INST__V58*/ meltfptr[22] = + /*_.INST__V58*/ + meltfptr[22] = newobj; }; ; @@ -4337,9 +4653,11 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V58*/ meltfptr[22], "newly made instance"); ; - /*_.NCONST__V57*/ meltfptr[28] = /*_.INST__V58*/ meltfptr[22];; + /*_.NCONST__V57*/ + meltfptr[28] = /*_.INST__V58*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:7002:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[13]))) ) /*then*/ @@ -4350,7 +4668,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPROC__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NRCLOP_CONSTLIST"); - /*_.NRCLOP_CONSTLIST__V59*/ meltfptr[23] = slot; + /*_.NRCLOP_CONSTLIST__V59*/ + meltfptr[23] = slot; }; ; } @@ -4386,7 +4705,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L22*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L22*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4395,7 +4715,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7003:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L22*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L22*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4428,16 +4749,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_quote in routine nconst="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCONST__V57*/ meltfptr[28]; - /*_.MELT_DEBUG_FUN__V61*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V61*/ + meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V60*/ meltfptr[45] = /*_.MELT_DEBUG_FUN__V61*/ meltfptr[44];; + /*_._IF___V60*/ + meltfptr[45] = /*_.MELT_DEBUG_FUN__V61*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7003:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L23*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L23*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V61*/ meltfptr[44] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V61*/ + meltfptr[44] = 0 ; } ; } @@ -4450,7 +4775,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7003:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4459,9 +4785,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L22*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L22*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V60*/ meltfptr[45] = 0 ; + /*clear*/ /*_._IF___V60*/ + meltfptr[45] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4487,7 +4815,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7004:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.NCONST__V57*/ meltfptr[28];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.NCONST__V57*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:7004:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -4495,20 +4824,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V56*/ meltfptr[33] = /*_.RETURN___V62*/ meltfptr[44];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V56*/ + meltfptr[33] = /*_.RETURN___V62*/ meltfptr[44];; MELT_LOCATION("warmelt-normal.melt:6995:/ clear"); - /*clear*/ /*_.NCONST__V57*/ meltfptr[28] = 0 ; + /*clear*/ /*_.NCONST__V57*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.NRCLOP_CONSTLIST__V59*/ meltfptr[23] = 0 ; + /*clear*/ /*_.NRCLOP_CONSTLIST__V59*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V62*/ meltfptr[44] = 0 ; - /*_._IFELSE___V55*/ meltfptr[34] = /*_.LET___V56*/ meltfptr[33];; + /*clear*/ /*_.RETURN___V62*/ + meltfptr[44] = 0 ; + /*_._IFELSE___V55*/ + meltfptr[34] = /*_.LET___V56*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6994:/ clear"); - /*clear*/ /*_.LET___V56*/ meltfptr[33] = 0 ; + /*clear*/ /*_.LET___V56*/ + meltfptr[33] = 0 ; } ; } @@ -4539,7 +4875,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L24*/ meltfnum[10] = + /*_#MELT_NEED_DBG__L24*/ + meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4548,7 +4885,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7006:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L24*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L24*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4581,16 +4919,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_quote in init ndata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NDATA__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V64*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V64*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V63*/ meltfptr[45] = /*_.MELT_DEBUG_FUN__V64*/ meltfptr[28];; + /*_._IF___V63*/ + meltfptr[45] = /*_.MELT_DEBUG_FUN__V64*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7006:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L25*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L25*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V64*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V64*/ + meltfptr[28] = 0 ; } ; } @@ -4603,7 +4945,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7006:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4612,9 +4955,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L24*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L24*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V63*/ meltfptr[45] = 0 ; + /*clear*/ /*_._IF___V63*/ + meltfptr[45] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4640,7 +4985,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7007:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.NDATA__V22*/ meltfptr[21];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.NDATA__V22*/ meltfptr[21];; MELT_LOCATION("warmelt-normal.melt:7007:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -4648,48 +4994,63 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:7005:/ quasiblock"); - /*_.PROGN___V66*/ meltfptr[44] = /*_.RETURN___V65*/ meltfptr[23];; + /*_.PROGN___V66*/ + meltfptr[44] = /*_.RETURN___V65*/ meltfptr[23];; /*^compute*/ - /*_._IFELSE___V55*/ meltfptr[34] = /*_.PROGN___V66*/ meltfptr[44];; + /*_._IFELSE___V55*/ + meltfptr[34] = /*_.PROGN___V66*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6994:/ clear"); - /*clear*/ /*_.RETURN___V65*/ meltfptr[23] = 0 ; + /*clear*/ /*_.RETURN___V65*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V66*/ meltfptr[44] = 0 ; + /*clear*/ /*_.PROGN___V66*/ + meltfptr[44] = 0 ; } ; } ; - /*_.LET___V17*/ meltfptr[15] = /*_._IFELSE___V55*/ meltfptr[34];; + /*_.LET___V17*/ + meltfptr[15] = /*_._IFELSE___V55*/ meltfptr[34];; MELT_LOCATION("warmelt-normal.melt:6957:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.QUOTED__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.QUOTED__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPROC__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.CURPROC__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.DISCRIM__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.DISCRIM__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#eqeq__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.NDATA__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.NDATA__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L21*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L21*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V55*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IFELSE___V55*/ + meltfptr[34] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:6951:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:6951:/ locexp"); @@ -4704,17 +5065,22 @@ 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*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -4796,7 +5162,8 @@ meltrout_122_WARMELTmiNORMAL_NORMEXP_COMMENT(meltclosure_ptr_t meltclosp_, melt_ /* end of frame for routine meltrout_122_WARMELTmiNORMAL_NORMEXP_COMMENT fromline 1756 */ - /* classy proc frame meltrout_122_WARMELTmiNORMAL_NORMEXP_COMMENT */ MeltFrame_meltrout_122_WARMELTmiNORMAL_NORMEXP_COMMENT + /* classy proc frame meltrout_122_WARMELTmiNORMAL_NORMEXP_COMMENT */ + MeltFrame_meltrout_122_WARMELTmiNORMAL_NORMEXP_COMMENT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_122_WARMELTmiNORMAL_NORMEXP_COMMENT fromline 1785*/ #if ENABLE_CHECKING @@ -4809,7 +5176,8 @@ meltrout_122_WARMELTmiNORMAL_NORMEXP_COMMENT(meltclosure_ptr_t meltclosp_, melt_ #define meltframe meltfram__ melt_trace_start("NORMEXP_COMMENT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -4819,26 +5187,30 @@ meltrout_122_WARMELTmiNORMAL_NORMEXP_COMMENT(meltclosure_ptr_t meltclosp_, melt_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7013:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__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; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -4870,7 +5242,8 @@ 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)) @@ -4879,7 +5252,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7014:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4912,16 +5286,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_comment start recv"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7014:/ 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 ; } ; } @@ -4934,7 +5312,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7014:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4943,9 +5322,11 @@ 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*/ @@ -4975,10 +5356,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_COMMENT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:7015:/ 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);; @@ -5007,25 +5390,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7015; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7015:/ 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-normal.melt:7015:/ 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*/ @@ -5043,10 +5432,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:7016:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -5075,25 +5466,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7016; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 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__V13*/ + meltfptr[12] = 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___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7016:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7016:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5111,10 +5508,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:7017:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -5143,25 +5542,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7017; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7017:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7017:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5177,7 +5582,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7019:/ getslot"); @@ -5185,7 +5591,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SCOMM_STR"); - /*_.SCOMM__V19*/ meltfptr[18] = slot; + /*_.SCOMM__V19*/ + meltfptr[18] = slot; }; ; @@ -5199,7 +5606,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_COMMENT*/ meltfrout->tabval[5])), (2), "CLASS_NREP_COMMENT"); - /*_.INST__V21*/ meltfptr[20] = + /*_.INST__V21*/ + meltfptr[20] = newobj; }; ; @@ -5217,7 +5625,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V21*/ meltfptr[20], "newly made instance"); ; - /*_.NCOMM__V20*/ meltfptr[19] = /*_.INST__V21*/ meltfptr[20];; + /*_.NCOMM__V20*/ + meltfptr[19] = /*_.INST__V21*/ meltfptr[20];; MELT_CHECK_SIGNAL(); ; @@ -5238,7 +5647,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[8])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V24*/ meltfptr[23] = + /*_.INST__V24*/ + meltfptr[23] = newobj; }; ; @@ -5266,7 +5676,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V24*/ meltfptr[23], "newly made instance"); ; - /*_.CBIND__V23*/ meltfptr[22] = /*_.INST__V24*/ meltfptr[23];; + /*_.CBIND__V23*/ + meltfptr[22] = /*_.INST__V24*/ meltfptr[23];; MELT_CHECK_SIGNAL(); ; @@ -5278,7 +5689,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V26*/ meltfptr[25] = + /*_.INST__V26*/ + meltfptr[25] = newobj; }; ; @@ -5306,15 +5718,18 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V26*/ meltfptr[25], "newly made instance"); ; - /*_.CLOCC__V25*/ meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; + /*_.CLOCC__V25*/ + meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; /*^compute*/ - /*_.BINDLIST__V27*/ meltfptr[26] = + /*_.BINDLIST__V27*/ + meltfptr[26] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[11]))));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7037:/ cond"); - /*cond*/ if (/*_.SCOMM__V19*/ meltfptr[18]) /*then*/ + /*cond*/ + if (/*_.SCOMM__V19*/ meltfptr[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5331,10 +5746,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L6*/ meltfnum[0] = + /*_#IS_STRING__L6*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.SCOMM__V19*/ meltfptr[18])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-normal.melt:7037:/ cond"); - /*cond*/ if (/*_#IS_STRING__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V30*/ meltfptr[29] = (/*nil*/NULL);; @@ -5343,13 +5760,15 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7037:/ cond.else"); /*^block*/ - /*anyblock*/{ + /*anyblock*/ + { MELT_CHECK_SIGNAL(); ; /*^apply*/ - /*apply*/{ + /*apply*/ + { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ @@ -5360,25 +5779,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7037; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SCOMM__V19*/ meltfptr[18]; - /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30] = 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__V31*/ + meltfptr[30] = 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___V30*/ meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30];; + /*_._IFELSE___V30*/ + meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7037:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V31*/ + meltfptr[30] = 0 ; } ; } ; - /*_.IFCPP___V29*/ meltfptr[28] = /*_._IFELSE___V30*/ meltfptr[29];; + /*_.IFCPP___V29*/ + meltfptr[28] = /*_._IFELSE___V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7037:/ clear"); - /*clear*/ /*_#IS_STRING__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_STRING__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IFELSE___V30*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5387,11 +5812,13 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_._IF___V28*/ meltfptr[27] = /*_.IFCPP___V29*/ meltfptr[28];; + /*_._IF___V28*/ + meltfptr[27] = /*_.IFCPP___V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7037:/ clear"); - /*clear*/ /*_.IFCPP___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.IFCPP___V29*/ + meltfptr[28] = 0 ; } ; } @@ -5427,7 +5854,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -5436,7 +5864,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7039:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5477,16 +5906,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " bindlist="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.BINDLIST__V27*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V33*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V32*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[29];; + /*_._IF___V32*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7039:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[29] = 0 ; } ; } @@ -5499,7 +5932,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7039:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5508,9 +5942,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V32*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V32*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5536,7 +5972,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7041:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V25*/ meltfptr[24];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V25*/ meltfptr[24];; MELT_LOCATION("warmelt-normal.melt:7041:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -5544,34 +5981,46 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V17*/ meltfptr[15] = /*_.RETURN___V34*/ meltfptr[28];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V17*/ + meltfptr[15] = /*_.RETURN___V34*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:7018:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SCOMM__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SCOMM__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.NCOMM__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.NCOMM__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.CSYM__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.CBIND__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CLOCC__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDLIST__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.BINDLIST__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V34*/ meltfptr[28] = 0 ; + /*clear*/ /*_.RETURN___V34*/ + meltfptr[28] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7013:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:7013:/ locexp"); @@ -5586,17 +6035,22 @@ 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*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -5678,7 +6132,8 @@ meltrout_123_WARMELTmiNORMAL_NORMEXP_KEYWORD(meltclosure_ptr_t meltclosp_, melt_ /* end of frame for routine meltrout_123_WARMELTmiNORMAL_NORMEXP_KEYWORD fromline 1756 */ - /* classy proc frame meltrout_123_WARMELTmiNORMAL_NORMEXP_KEYWORD */ MeltFrame_meltrout_123_WARMELTmiNORMAL_NORMEXP_KEYWORD + /* classy proc frame meltrout_123_WARMELTmiNORMAL_NORMEXP_KEYWORD */ + MeltFrame_meltrout_123_WARMELTmiNORMAL_NORMEXP_KEYWORD meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_123_WARMELTmiNORMAL_NORMEXP_KEYWORD fromline 1785*/ #if ENABLE_CHECKING @@ -5691,7 +6146,8 @@ meltrout_123_WARMELTmiNORMAL_NORMEXP_KEYWORD(meltclosure_ptr_t meltclosp_, melt_ #define meltframe meltfram__ melt_trace_start("NORMEXP_KEYWORD", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -5701,26 +6157,30 @@ meltrout_123_WARMELTmiNORMAL_NORMEXP_KEYWORD(meltclosure_ptr_t meltclosp_, melt_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7047:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__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; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -5752,7 +6212,8 @@ 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)) @@ -5761,7 +6222,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7048:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5794,16 +6256,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_keyword recv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7048:/ 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 ; } ; } @@ -5816,7 +6282,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7048:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5825,9 +6292,11 @@ 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*/ @@ -5868,10 +6337,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:7050:/ 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);; @@ -5900,25 +6371,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7050; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7050:/ 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-normal.melt:7050:/ 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*/ @@ -5936,10 +6413,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:7051:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -5968,25 +6447,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7051; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 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__V13*/ + meltfptr[12] = 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___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7051:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7051:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6004,10 +6489,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:7052:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -6036,25 +6523,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7052; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7052:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7052:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6070,11 +6563,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 11, "NCTX_CURPROC"); - /*_.CURPROC__V18*/ meltfptr[5] = slot; + /*_.CURPROC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7054:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V18*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[5]))) ) /*then*/ @@ -6085,7 +6580,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPROC__V18*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NRCLOP_CONSTLIST"); - /*_.CONSTLIST__V19*/ meltfptr[18] = slot; + /*_.CONSTLIST__V19*/ + meltfptr[18] = slot; }; ; } @@ -6096,7 +6592,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:7055:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V18*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[5]))) ) /*then*/ @@ -6107,7 +6604,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPROC__V18*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 6, "NRCLOP_OBJCONSTCACHEMAP"); - /*_.OBJCONSTMAP__V20*/ meltfptr[19] = slot; + /*_.OBJCONSTMAP__V20*/ + meltfptr[19] = slot; }; ; } @@ -6118,14 +6616,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.CACHERES__V21*/ meltfptr[20] = + /*_.CACHERES__V21*/ + meltfptr[20] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.OBJCONSTMAP__V20*/ meltfptr[19]), (meltobject_ptr_t)(/*_.RECV__V2*/ meltfptr[1]));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7058:/ cond"); - /*cond*/ if (/*_.CACHERES__V21*/ meltfptr[20]) /*then*/ + /*cond*/ + if (/*_.CACHERES__V21*/ meltfptr[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6152,7 +6652,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6161,7 +6662,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7059:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6194,16 +6696,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_keyword return cacheres="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CACHERES__V21*/ meltfptr[20]; - /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V23*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; + /*_._IF___V23*/ + meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7059:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[23] = 0 ; } ; } @@ -6216,7 +6722,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7059:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6225,9 +6732,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IF___V23*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6253,7 +6762,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7060:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CACHERES__V21*/ meltfptr[20];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CACHERES__V21*/ meltfptr[20];; MELT_LOCATION("warmelt-normal.melt:7060:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -6261,19 +6771,24 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:7058:/ quasiblock"); - /*_.PROGN___V26*/ meltfptr[22] = /*_.RETURN___V25*/ meltfptr[23];; + /*_.PROGN___V26*/ + meltfptr[22] = /*_.RETURN___V25*/ meltfptr[23];; /*^compute*/ - /*_._IF___V22*/ meltfptr[21] = /*_.PROGN___V26*/ meltfptr[22];; + /*_._IF___V22*/ + meltfptr[21] = /*_.PROGN___V26*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7058:/ clear"); - /*clear*/ /*_.RETURN___V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_.RETURN___V25*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V26*/ meltfptr[22] = 0 ; + /*clear*/ /*_.PROGN___V26*/ + meltfptr[22] = 0 ; } ; } @@ -6298,7 +6813,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4]; - /*_.KDATA__V28*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_KEYWORD_DATA*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.KDATA__V28*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_KEYWORD_DATA*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -6321,7 +6837,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L8*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6330,7 +6847,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7064:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6367,16 +6885,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. curproc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V18*/ meltfptr[5]; - /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V29*/ meltfptr[28] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; + /*_._IF___V29*/ + meltfptr[28] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7064:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[29] = 0 ; } ; } @@ -6389,7 +6911,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7064:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6398,9 +6921,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_._IF___V29*/ + meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6430,10 +6955,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L10*/ meltfnum[0] = + /*_#IS_A__L10*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V18*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:7065:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V32*/ meltfptr[28] = (/*nil*/NULL);; @@ -6462,25 +6989,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7065; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V18*/ meltfptr[5]; - /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V33*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V32*/ meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32];; + /*_._IFELSE___V32*/ + meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7065:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V33*/ + meltfptr[32] = 0 ; } ; } ; - /*_.IFCPP___V31*/ meltfptr[29] = /*_._IFELSE___V32*/ meltfptr[28];; + /*_.IFCPP___V31*/ + meltfptr[29] = /*_._IFELSE___V32*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7065:/ clear"); - /*clear*/ /*_#IS_A__L10*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L10*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V32*/ meltfptr[28] = 0 ; + /*clear*/ /*_._IFELSE___V32*/ + meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6492,10 +7025,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L11*/ meltfnum[1] = + /*_#IS_A__L11*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V18*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:7066:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6516,7 +7051,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSTANT*/ meltfrout->tabval[8])), (4), "CLASS_NREP_CONSTANT"); - /*_.INST__V37*/ meltfptr[36] = + /*_.INST__V37*/ + meltfptr[36] = newobj; }; ; @@ -6544,7 +7080,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V37*/ meltfptr[36], "newly made instance"); ; - /*_.NCONST__V36*/ meltfptr[35] = /*_.INST__V37*/ meltfptr[36];; + /*_.NCONST__V36*/ + meltfptr[35] = /*_.INST__V37*/ meltfptr[36];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:7074:/ cppif.then"); @@ -6565,7 +7102,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6574,7 +7112,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7074:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6611,16 +7150,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. adding const kdata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.KDATA__V28*/ meltfptr[22]; - /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V39*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V38*/ meltfptr[37] = /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; + /*_._IF___V38*/ + meltfptr[37] = /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7074:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V39*/ + meltfptr[38] = 0 ; } ; } @@ -6633,7 +7176,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7074:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6642,9 +7186,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_._IF___V38*/ + meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6698,7 +7244,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ meltfnum[12] = + /*_#MELT_NEED_DBG__L14*/ + meltfnum[12] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6707,7 +7254,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7078:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6744,16 +7292,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. objconstmap="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OBJCONSTMAP__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V41*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V40*/ meltfptr[38] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[37];; + /*_._IF___V40*/ + meltfptr[38] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7078:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[37] = 0 ; } ; } @@ -6766,7 +7318,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7078:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6775,9 +7328,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ meltfptr[38] = 0 ; + /*clear*/ /*_._IF___V40*/ + meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6817,7 +7372,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L16*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6826,7 +7382,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7080:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6859,16 +7416,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_keyword result nconst="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCONST__V36*/ meltfptr[35]; - /*_.MELT_DEBUG_FUN__V43*/ meltfptr[38] = 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__V43*/ + meltfptr[38] = 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___V42*/ meltfptr[37] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[38];; + /*_._IF___V42*/ + meltfptr[37] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7080:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[38] = 0 ; } ; } @@ -6881,7 +7442,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7080:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6890,9 +7452,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ meltfptr[37] = 0 ; + /*clear*/ /*_._IF___V42*/ + meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6918,7 +7482,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7081:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.NCONST__V36*/ meltfptr[35];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.NCONST__V36*/ meltfptr[35];; MELT_LOCATION("warmelt-normal.melt:7081:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -6926,18 +7491,24 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V35*/ meltfptr[28] = /*_.RETURN___V44*/ meltfptr[38];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V35*/ + meltfptr[28] = /*_.RETURN___V44*/ meltfptr[38];; MELT_LOCATION("warmelt-normal.melt:7067:/ clear"); - /*clear*/ /*_.NCONST__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.NCONST__V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V44*/ meltfptr[38] = 0 ; - /*_._IFELSE___V34*/ meltfptr[32] = /*_.LET___V35*/ meltfptr[28];; + /*clear*/ /*_.RETURN___V44*/ + meltfptr[38] = 0 ; + /*_._IFELSE___V34*/ + meltfptr[32] = /*_.LET___V35*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7066:/ clear"); - /*clear*/ /*_.LET___V35*/ meltfptr[28] = 0 ; + /*clear*/ /*_.LET___V35*/ + meltfptr[28] = 0 ; } ; } @@ -6968,7 +7539,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ meltfnum[12] = + /*_#MELT_NEED_DBG__L18*/ + meltfnum[12] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6977,7 +7549,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7084:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7010,16 +7583,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_keyword routineinit result kdata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.KDATA__V28*/ meltfptr[22]; - /*_.MELT_DEBUG_FUN__V46*/ meltfptr[35] = 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__V46*/ + meltfptr[35] = 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___V45*/ meltfptr[37] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[35];; + /*_._IF___V45*/ + meltfptr[37] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7084:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ + meltfptr[35] = 0 ; } ; } @@ -7032,7 +7609,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7084:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -7041,9 +7619,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V45*/ meltfptr[37] = 0 ; + /*clear*/ /*_._IF___V45*/ + meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7069,7 +7649,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7085:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.KDATA__V28*/ meltfptr[22];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.KDATA__V28*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:7085:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -7077,54 +7658,72 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:7083:/ quasiblock"); - /*_.PROGN___V48*/ meltfptr[28] = /*_.RETURN___V47*/ meltfptr[38];; + /*_.PROGN___V48*/ + meltfptr[28] = /*_.RETURN___V47*/ meltfptr[38];; /*^compute*/ - /*_._IFELSE___V34*/ meltfptr[32] = /*_.PROGN___V48*/ meltfptr[28];; + /*_._IFELSE___V34*/ + meltfptr[32] = /*_.PROGN___V48*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7066:/ clear"); - /*clear*/ /*_.RETURN___V47*/ meltfptr[38] = 0 ; + /*clear*/ /*_.RETURN___V47*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V48*/ meltfptr[28] = 0 ; + /*clear*/ /*_.PROGN___V48*/ + meltfptr[28] = 0 ; } ; } ; - /*_.LET___V27*/ meltfptr[23] = /*_._IFELSE___V34*/ meltfptr[32];; + /*_.LET___V27*/ + meltfptr[23] = /*_._IFELSE___V34*/ meltfptr[32];; MELT_LOCATION("warmelt-normal.melt:7061:/ clear"); - /*clear*/ /*_.KDATA__V28*/ meltfptr[22] = 0 ; + /*clear*/ /*_.KDATA__V28*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V31*/ meltfptr[29] = 0 ; + /*clear*/ /*_.IFCPP___V31*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V34*/ meltfptr[32] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.LET___V27*/ meltfptr[23];; + /*clear*/ /*_._IFELSE___V34*/ + meltfptr[32] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.LET___V27*/ meltfptr[23];; MELT_LOCATION("warmelt-normal.melt:7053:/ clear"); - /*clear*/ /*_.CURPROC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.CURPROC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.CONSTLIST__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.CONSTLIST__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.OBJCONSTMAP__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.OBJCONSTMAP__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.CACHERES__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.CACHERES__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_._IF___V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V27*/ meltfptr[23] = 0 ; + /*clear*/ /*_.LET___V27*/ + meltfptr[23] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7047:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:7047:/ locexp"); @@ -7139,17 +7738,22 @@ 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*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -7231,7 +7835,8 @@ meltrout_124_WARMELTmiNORMAL_FILL_NORMAL_FORMALBIND(meltclosure_ptr_t meltclosp_ /* end of frame for routine meltrout_124_WARMELTmiNORMAL_FILL_NORMAL_FORMALBIND fromline 1756 */ - /* classy proc frame meltrout_124_WARMELTmiNORMAL_FILL_NORMAL_FORMALBIND */ MeltFrame_meltrout_124_WARMELTmiNORMAL_FILL_NORMAL_FORMALBIND + /* classy proc frame meltrout_124_WARMELTmiNORMAL_FILL_NORMAL_FORMALBIND */ + MeltFrame_meltrout_124_WARMELTmiNORMAL_FILL_NORMAL_FORMALBIND meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_124_WARMELTmiNORMAL_FILL_NORMAL_FORMALBIND fromline 1785*/ #if ENABLE_CHECKING @@ -7244,7 +7849,8 @@ meltrout_124_WARMELTmiNORMAL_FILL_NORMAL_FORMALBIND(meltclosure_ptr_t meltclosp_ #define meltframe meltfram__ melt_trace_start("FILL_NORMAL_FORMALBIND", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -7254,33 +7860,38 @@ meltrout_124_WARMELTmiNORMAL_FILL_NORMAL_FORMALBIND(meltclosure_ptr_t meltclosp_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7092:/ getarg"); - /*_.FARGB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FARGB__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.FORMSYMBMAP__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.FORMSYMBMAP__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.FORMSYMBMAP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.ENV__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.NCX__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.SLOC__V6*/ meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; + /*_.SLOC__V6*/ + meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V6*/ meltfptr[5])) != NULL); ; @@ -7302,10 +7913,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ meltfnum[0] = + /*_#IS_A__L1*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.FARGB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:7093:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; @@ -7334,25 +7947,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7093; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FARGB__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ + meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7093:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ meltfptr[6] = /*_._IFELSE___V8*/ meltfptr[7];; + /*_.IFCPP___V7*/ + meltfptr[6] = /*_._IFELSE___V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7093:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7368,7 +7987,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FARGB__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FTYP__V11*/ meltfptr[7] = slot; + /*_.FTYP__V11*/ + meltfptr[7] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7095:/ getslot"); @@ -7376,7 +7996,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FARGB__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.FSYMB__V12*/ meltfptr[11] = slot; + /*_.FSYMB__V12*/ + meltfptr[11] = slot; }; ; @@ -7405,13 +8026,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V6*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "class_formal_binding"; - /*_.NORMAL_PREDEF__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[4])), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V14*/ + meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[4])), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_#NONZERO_HASH__L2*/ meltfnum[0] = + /*_#NONZERO_HASH__L2*/ + meltfnum[0] = (melt_nonzerohash());; /*^compute*/ - /*_.MAKE_INTEGERBOX__V15*/ meltfptr[14] = + /*_.MAKE_INTEGERBOX__V15*/ + meltfptr[14] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[5])), (/*_#NONZERO_HASH__L2*/ meltfnum[0])));; MELT_LOCATION("warmelt-normal.melt:7098:/ quasiblock"); @@ -7421,7 +8045,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ meltfrout->tabval[3])), (9), "CLASS_NREP_DATAINSTANCE"); - /*_.INST__V17*/ meltfptr[16] = + /*_.INST__V17*/ + meltfptr[16] = newobj; }; ; @@ -7449,7 +8074,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V17*/ meltfptr[16], "newly made instance"); ; - /*_.FARGDATA__V16*/ meltfptr[15] = /*_.INST__V17*/ meltfptr[16];; + /*_.FARGDATA__V16*/ + meltfptr[15] = /*_.INST__V17*/ meltfptr[16];; MELT_CHECK_SIGNAL(); ; @@ -7462,7 +8088,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ meltfptr[4]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V6*/ meltfptr[5]; - /*_.FSYMBDATA__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.FSYMB__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FSYMBDATA__V18*/ + meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.FSYMB__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -7479,7 +8106,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V6*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "primitive arg type"; - /*_.FTYPDATA__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.FTYP__V11*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.FTYPDATA__V19*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.FTYP__V11*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7492,10 +8120,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[2] = + /*_#IS_A__L3*/ + meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.FTYP__V11*/ meltfptr[7]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:7108:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[20] = (/*nil*/NULL);; @@ -7524,25 +8154,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7108; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FTYP__V11*/ meltfptr[7]; - /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (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[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V21*/ meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; + /*_._IFELSE___V21*/ + meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7108:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = 0 ; } ; } ; - /*_.IFCPP___V20*/ meltfptr[19] = /*_._IFELSE___V21*/ meltfptr[20];; + /*_.IFCPP___V20*/ + meltfptr[19] = /*_._IFELSE___V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7108:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7560,7 +8196,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FARGDATA__V16*/ meltfptr[15]; - /*_.ADD_NCTX_DATA__V23*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V23*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -7575,7 +8212,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!BINDER*/ meltfrout->tabval[10]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.FSYMBDATA__V18*/ meltfptr[17]; - /*_.FILL_DATA_SLOT__V24*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.FARGDATA__V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_DATA_SLOT__V24*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.FARGDATA__V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -7590,7 +8228,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!FBIND_TYPE*/ meltfrout->tabval[11]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.FTYPDATA__V19*/ meltfptr[18]; - /*_.FILL_DATA_SLOT__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.FARGDATA__V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_DATA_SLOT__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.FARGDATA__V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -7607,7 +8246,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7113:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.FARGDATA__V16*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.FARGDATA__V16*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:7113:/ locexp"); @@ -7622,44 +8262,61 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V10*/ meltfptr[8] = /*_.RETURN___V26*/ meltfptr[25];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V10*/ + meltfptr[8] = /*_.RETURN___V26*/ meltfptr[25];; MELT_LOCATION("warmelt-normal.melt:7094:/ clear"); - /*clear*/ /*_.FTYP__V11*/ meltfptr[7] = 0 ; + /*clear*/ /*_.FTYP__V11*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.FSYMB__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.FSYMB__V12*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.FDATASLOT__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.FDATASLOT__V13*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_#NONZERO_HASH__L2*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NONZERO_HASH__L2*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.FARGDATA__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.FARGDATA__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.FSYMBDATA__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.FSYMBDATA__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.FTYPDATA__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.FTYPDATA__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V23*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_DATA_SLOT__V24*/ meltfptr[20] = 0 ; + /*clear*/ /*_.FILL_DATA_SLOT__V24*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_DATA_SLOT__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.FILL_DATA_SLOT__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.RETURN___V26*/ + meltfptr[25] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7092:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-normal.melt:7092:/ locexp"); @@ -7674,13 +8331,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V10*/ meltfptr[8] = 0 ; + /*clear*/ /*_.LET___V10*/ + meltfptr[8] = 0 ; } ; @@ -7762,7 +8422,8 @@ meltrout_125_WARMELTmiNORMAL_FILL_NORMAL_FORMALS(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_125_WARMELTmiNORMAL_FILL_NORMAL_FORMALS fromline 1756 */ - /* classy proc frame meltrout_125_WARMELTmiNORMAL_FILL_NORMAL_FORMALS */ MeltFrame_meltrout_125_WARMELTmiNORMAL_FILL_NORMAL_FORMALS + /* classy proc frame meltrout_125_WARMELTmiNORMAL_FILL_NORMAL_FORMALS */ + MeltFrame_meltrout_125_WARMELTmiNORMAL_FILL_NORMAL_FORMALS meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_125_WARMELTmiNORMAL_FILL_NORMAL_FORMALS fromline 1785*/ #if ENABLE_CHECKING @@ -7775,7 +8436,8 @@ meltrout_125_WARMELTmiNORMAL_FILL_NORMAL_FORMALS(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("FILL_NORMAL_FORMALS", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -7785,40 +8447,46 @@ meltrout_125_WARMELTmiNORMAL_FILL_NORMAL_FORMALS(meltclosure_ptr_t meltclosp_, m /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7117:/ getarg"); - /*_.SARGS__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.SARGS__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NARGTUPLE__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NARGTUPLE__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NARGTUPLE__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.FORMSYMBMAP__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.FORMSYMBMAP__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.FORMSYMBMAP__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.ENV__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V6*/ meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; + /*_.NCX__V6*/ + meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ meltfptr[5])) != NULL); /*getarg#5*/ /*^getarg*/ if (meltxargdescr_[4] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.SLOC__V7*/ meltfptr[6] = (meltxargtab_[4].meltbp_aptr) ? (*(meltxargtab_[4].meltbp_aptr)) : NULL; + /*_.SLOC__V7*/ + meltfptr[6] = (meltxargtab_[4].meltbp_aptr) ? (*(meltxargtab_[4].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ meltfptr[6])) != NULL); ; @@ -7861,7 +8529,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ meltfptr[5]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V7*/ meltfptr[6]; - /*_.FARGDATA__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALBIND*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FARGB__V8*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FARGDATA__V9*/ + meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALBIND*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FARGB__V8*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -7874,10 +8543,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[1] = + /*_#IS_A__L2*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.FARGDATA__V9*/ meltfptr[8]), (melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:7123:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; @@ -7906,25 +8577,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7123; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FARGDATA__V9*/ meltfptr[8]; - /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = 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__V12*/ + meltfptr[11] = 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___V11*/ meltfptr[10] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; + /*_._IFELSE___V11*/ + meltfptr[10] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7123:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/ + meltfptr[11] = 0 ; } ; } ; - /*_.IFCPP___V10*/ meltfptr[9] = /*_._IFELSE___V11*/ meltfptr[10];; + /*_.IFCPP___V10*/ + meltfptr[9] = /*_._IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7123:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_._IFELSE___V11*/ + meltfptr[10] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7936,7 +8613,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_.MAKE_INTEGERBOX__V13*/ meltfptr[11] = + /*_.MAKE_INTEGERBOX__V13*/ + meltfptr[11] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[3])), (/*_#IX__L1*/ meltfnum[0])));; MELT_LOCATION("warmelt-normal.melt:7124:/ quasiblock"); @@ -7962,20 +8640,25 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7121:/ clear"); - /*clear*/ /*_.FARGDATA__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.FARGDATA__V9*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V10*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V13*/ meltfptr[11] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V13*/ + meltfptr[11] = 0 ; if (/*_#IX__L1*/ meltfnum[0]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:7118:/ clear"); - /*clear*/ /*_.FARGB__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.FARGB__V8*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IX__L1*/ + meltfnum[0] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*epilog*/ @@ -8060,7 +8743,8 @@ meltrout_126_WARMELTmiNORMAL_FILL_NORMAL_EXPANSION(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_126_WARMELTmiNORMAL_FILL_NORMAL_EXPANSION fromline 1756 */ - /* classy proc frame meltrout_126_WARMELTmiNORMAL_FILL_NORMAL_EXPANSION */ MeltFrame_meltrout_126_WARMELTmiNORMAL_FILL_NORMAL_EXPANSION + /* classy proc frame meltrout_126_WARMELTmiNORMAL_FILL_NORMAL_EXPANSION */ + MeltFrame_meltrout_126_WARMELTmiNORMAL_FILL_NORMAL_EXPANSION meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_126_WARMELTmiNORMAL_FILL_NORMAL_EXPANSION fromline 1785*/ #if ENABLE_CHECKING @@ -8073,7 +8757,8 @@ meltrout_126_WARMELTmiNORMAL_FILL_NORMAL_EXPANSION(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("FILL_NORMAL_EXPANSION", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -8083,26 +8768,30 @@ meltrout_126_WARMELTmiNORMAL_FILL_NORMAL_EXPANSION(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7130:/ 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; - /*_.NEXPTUPLE__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NEXPTUPLE__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXPTUPLE__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.SLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.SLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ meltfptr[4])) != NULL); ; @@ -8118,7 +8807,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V7*/ meltfptr[6] = + /*newclosure*/ /*_.LAMBDA___V7*/ + meltfptr[6] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ meltfrout->tabval[10])), (3)); ; /*^putclosedv*/ @@ -8139,7 +8829,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V7*/ meltfptr[6]))); ((meltclosure_ptr_t)/*_.LAMBDA___V7*/ meltfptr[6])->tabval[2] = (melt_ptr_t)(/*_.NEXPTUPLE__V3*/ meltfptr[2]); ; - /*_.LAMBDA___V6*/ meltfptr[5] = /*_.LAMBDA___V7*/ meltfptr[6];; + /*_.LAMBDA___V6*/ + meltfptr[5] = /*_.LAMBDA___V7*/ meltfptr[6];; MELT_CHECK_SIGNAL(); ; @@ -8150,13 +8841,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V6*/ meltfptr[5]; - /*_.MULTIPLE_EVERY__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXP__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_EVERY__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXP__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7130:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.MULTIPLE_EVERY__V8*/ meltfptr[7];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.MULTIPLE_EVERY__V8*/ meltfptr[7];; { MELT_LOCATION("warmelt-normal.melt:7130:/ locexp"); @@ -8171,13 +8864,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LAMBDA___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.LAMBDA___V6*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_EVERY__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MULTIPLE_EVERY__V8*/ + meltfptr[7] = 0 ; } ; @@ -8259,7 +8955,8 @@ meltrout_127_WARMELTmiNORMAL_LAMBDA_cl31(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_127_WARMELTmiNORMAL_LAMBDA_cl31 fromline 1756 */ - /* classy proc frame meltrout_127_WARMELTmiNORMAL_LAMBDA_cl31 */ MeltFrame_meltrout_127_WARMELTmiNORMAL_LAMBDA_cl31 + /* classy proc frame meltrout_127_WARMELTmiNORMAL_LAMBDA_cl31 */ + MeltFrame_meltrout_127_WARMELTmiNORMAL_LAMBDA_cl31 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_127_WARMELTmiNORMAL_LAMBDA_cl31 fromline 1785*/ #if ENABLE_CHECKING @@ -8272,7 +8969,8 @@ meltrout_127_WARMELTmiNORMAL_LAMBDA_cl31(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl31", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -8282,12 +8980,14 @@ meltrout_127_WARMELTmiNORMAL_LAMBDA_cl31(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7133:/ getarg"); - /*_.EXPCOMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.EXPCOMP__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; + /*_#IX__L1*/ + meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -8300,16 +9000,19 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7134:/ quasiblock"); - /*_.DISCRCOMP__V3*/ meltfptr[2] = + /*_.DISCRCOMP__V3*/ + meltfptr[2] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.EXPCOMP__V2*/ meltfptr[1]))));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#eqeq__L2*/ meltfnum[1] = + /*_#eqeq__L2*/ + meltfnum[1] = ((/*_.DISCRCOMP__V3*/ meltfptr[2]) == ((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:7136:/ cond"); - /*cond*/ if (/*_#eqeq__L2*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#eqeq__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8333,7 +9036,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[1]); /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_verbatim_string"; - /*_.NORMAL_PREDEF__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7138:/ quasiblock"); @@ -8344,7 +9048,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ meltfrout->tabval[2])), (6), "CLASS_NREP_DATASTRING"); - /*_.INST__V7*/ meltfptr[6] = + /*_.INST__V7*/ + meltfptr[6] = newobj; }; ; @@ -8362,7 +9067,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V7*/ meltfptr[6], "newly made instance"); ; - /*_.INST___V6*/ meltfptr[5] = /*_.INST__V7*/ meltfptr[6];; + /*_.INST___V6*/ + meltfptr[5] = /*_.INST__V7*/ meltfptr[6];; MELT_CHECK_SIGNAL(); ; @@ -8373,18 +9079,23 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INST___V6*/ meltfptr[5]; - /*_.ADD_NCTX_DATA__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[1])), (melt_ptr_t)((/*~NCX*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[1])), (melt_ptr_t)((/*~NCX*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.COMPDATA__V4*/ meltfptr[3] = /*_.ADD_NCTX_DATA__V8*/ meltfptr[7];; + /*_.COMPDATA__V4*/ + meltfptr[3] = /*_.ADD_NCTX_DATA__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7136:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V5*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.INST___V6*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V8*/ + meltfptr[7] = 0 ; } ; } @@ -8398,10 +9109,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L3*/ meltfnum[2] = + /*_#eqeq__L3*/ + meltfnum[2] = ((/*_.DISCRCOMP__V3*/ meltfptr[2]) == ((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:7143:/ cond"); - /*cond*/ if (/*_#eqeq__L3*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#eqeq__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8420,14 +9133,17 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~NCX*/ meltfclos->tabval[0]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[1]); - /*_.NORMAL_SYMBOL_DATA__V10*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.EXPCOMP__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_SYMBOL_DATA__V10*/ + meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.EXPCOMP__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[4] = /*_.NORMAL_SYMBOL_DATA__V10*/ meltfptr[5];; + /*_._IFELSE___V9*/ + meltfptr[4] = /*_.NORMAL_SYMBOL_DATA__V10*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7143:/ clear"); - /*clear*/ /*_.NORMAL_SYMBOL_DATA__V10*/ meltfptr[5] = 0 ; + /*clear*/ /*_.NORMAL_SYMBOL_DATA__V10*/ + meltfptr[5] = 0 ; } ; } @@ -8458,7 +9174,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L4*/ meltfnum[3] = + /*_#MELT_NEED_DBG__L4*/ + meltfnum[3] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8467,7 +9184,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7147:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8500,16 +9218,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "bad component in C code expansion expcomp"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.EXPCOMP__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V12*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[6])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V12*/ + meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[6])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V11*/ meltfptr[7] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[5];; + /*_._IF___V11*/ + meltfptr[7] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7147:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L5*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V12*/ + meltfptr[5] = 0 ; } ; } @@ -8522,7 +9244,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7147:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8531,9 +9254,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[3] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L4*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V11*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IF___V11*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8554,7 +9279,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normal.melt:7148:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRCOMP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8]))) ) /*then*/ @@ -8565,7 +9291,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DISCRCOMP__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V13*/ meltfptr[5] = slot; + /*_.NAMED_NAME__V13*/ + meltfptr[5] = slot; }; ; } @@ -8589,34 +9316,43 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#IX__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V13*/ meltfptr[5]; - /*_.ERROR_AT__V14*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[7])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[1])), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V14*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[7])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[1])), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7146:/ quasiblock"); - /*_.PROGN___V15*/ meltfptr[14] = /*_.ERROR_AT__V14*/ meltfptr[7];; + /*_.PROGN___V15*/ + meltfptr[14] = /*_.ERROR_AT__V14*/ meltfptr[7];; /*^compute*/ - /*_._IFELSE___V9*/ meltfptr[4] = /*_.PROGN___V15*/ meltfptr[14];; + /*_._IFELSE___V9*/ + meltfptr[4] = /*_.PROGN___V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7143:/ clear"); - /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[5] = 0 ; + /*clear*/ /*_.NAMED_NAME__V13*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V14*/ meltfptr[7] = 0 ; + /*clear*/ /*_.ERROR_AT__V14*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.PROGN___V15*/ + meltfptr[14] = 0 ; } ; } ; - /*_.COMPDATA__V4*/ meltfptr[3] = /*_._IFELSE___V9*/ meltfptr[4];; + /*_.COMPDATA__V4*/ + meltfptr[3] = /*_._IFELSE___V9*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7136:/ clear"); - /*clear*/ /*_#eqeq__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#eqeq__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ + meltfptr[4] = 0 ; } ; } @@ -8629,11 +9365,14 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7134:/ clear"); - /*clear*/ /*_.DISCRCOMP__V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_.DISCRCOMP__V3*/ + meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#eqeq__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.COMPDATA__V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.COMPDATA__V4*/ + meltfptr[3] = 0 ; /*epilog*/ } @@ -8716,7 +9455,8 @@ meltrout_128_WARMELTmiNORMAL_NORMEXP_DEFPRIMITIVE(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_128_WARMELTmiNORMAL_NORMEXP_DEFPRIMITIVE fromline 1756 */ - /* classy proc frame meltrout_128_WARMELTmiNORMAL_NORMEXP_DEFPRIMITIVE */ MeltFrame_meltrout_128_WARMELTmiNORMAL_NORMEXP_DEFPRIMITIVE + /* classy proc frame meltrout_128_WARMELTmiNORMAL_NORMEXP_DEFPRIMITIVE */ + MeltFrame_meltrout_128_WARMELTmiNORMAL_NORMEXP_DEFPRIMITIVE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_128_WARMELTmiNORMAL_NORMEXP_DEFPRIMITIVE fromline 1785*/ #if ENABLE_CHECKING @@ -8729,7 +9469,8 @@ meltrout_128_WARMELTmiNORMAL_NORMEXP_DEFPRIMITIVE(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("NORMEXP_DEFPRIMITIVE", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -8739,26 +9480,30 @@ meltrout_128_WARMELTmiNORMAL_NORMEXP_DEFPRIMITIVE(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7155:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__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; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -8790,7 +9535,8 @@ 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)) @@ -8799,7 +9545,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7156:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8832,16 +9579,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defprimitive recv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7156:/ 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 ; } ; } @@ -8854,7 +9605,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7156:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8863,9 +9615,11 @@ 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*/ @@ -8895,10 +9649,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:7157:/ 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);; @@ -8927,25 +9683,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7157; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7157:/ 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-normal.melt:7157:/ 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*/ @@ -8963,10 +9725,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:7158:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -8995,25 +9759,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7158; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 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__V13*/ + meltfptr[12] = 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___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7158:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7158:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9031,10 +9801,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:7159:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -9063,25 +9835,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7159; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7159:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7159:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9097,7 +9875,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7161:/ getslot"); @@ -9105,7 +9884,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); - /*_.SNAME__V19*/ meltfptr[18] = slot; + /*_.SNAME__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7162:/ getslot"); @@ -9113,7 +9893,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SFORMAL_ARGS"); - /*_.SARGS__V20*/ meltfptr[19] = slot; + /*_.SARGS__V20*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7163:/ getslot"); @@ -9121,7 +9902,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SPRIM_TYPE"); - /*_.STYPE__V21*/ meltfptr[20] = slot; + /*_.STYPE__V21*/ + meltfptr[20] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7164:/ getslot"); @@ -9129,7 +9911,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "SPRIM_EXPANSION"); - /*_.SEXP__V22*/ meltfptr[21] = slot; + /*_.SEXP__V22*/ + meltfptr[21] = slot; }; ; @@ -9142,7 +9925,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SNAME__V19*/ meltfptr[18]; - /*_.SPRIMBIND__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SPRIMBIND__V23*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -9154,16 +9938,20 @@ meltlab_endgetargs: /*_.NSLOTUPLE__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!CREATE_DATA_SLOTS*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ meltfrout->tabval[7])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; - /*_#MULTIPLE_LENGTH__L6*/ meltfnum[0] = + /*_#MULTIPLE_LENGTH__L6*/ + meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.SEXP__V22*/ meltfptr[21])));; /*^compute*/ - /*_.NEXPTUPLE__V25*/ meltfptr[24] = + /*_.NEXPTUPLE__V25*/ + meltfptr[24] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[8])), (/*_#MULTIPLE_LENGTH__L6*/ meltfnum[0])));; /*^compute*/ - /*_#MULTIPLE_LENGTH__L7*/ meltfnum[1] = + /*_#MULTIPLE_LENGTH__L7*/ + meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19])));; /*^compute*/ - /*_.NARGTUPLE__V26*/ meltfptr[25] = + /*_.NARGTUPLE__V26*/ + meltfptr[25] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[8])), (/*_#MULTIPLE_LENGTH__L7*/ meltfnum[1])));; MELT_CHECK_SIGNAL(); @@ -9182,7 +9970,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V27*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7172:/ quasiblock"); @@ -9193,7 +9982,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[9])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V29*/ meltfptr[28] = + /*_.INST__V29*/ + meltfptr[28] = newobj; }; ; @@ -9221,7 +10011,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V29*/ meltfptr[28], "newly made instance"); ; - /*_.NEXPDATA__V28*/ meltfptr[27] = /*_.INST__V29*/ meltfptr[28];; + /*_.NEXPDATA__V28*/ + meltfptr[27] = /*_.INST__V29*/ meltfptr[28];; MELT_CHECK_SIGNAL(); ; @@ -9239,7 +10030,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V30*/ + meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7177:/ quasiblock"); @@ -9250,7 +10042,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[9])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V32*/ meltfptr[31] = + /*_.INST__V32*/ + meltfptr[31] = newobj; }; ; @@ -9278,7 +10071,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V32*/ meltfptr[31], "newly made instance"); ; - /*_.NARGDATA__V31*/ meltfptr[30] = /*_.INST__V32*/ meltfptr[31];; + /*_.NARGDATA__V31*/ + meltfptr[30] = /*_.INST__V32*/ meltfptr[31];; MELT_CHECK_SIGNAL(); ; @@ -9296,13 +10090,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "class_primitive"; - /*_.NORMAL_PREDEF__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V33*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_#NONZERO_HASH__L8*/ meltfnum[7] = + /*_#NONZERO_HASH__L8*/ + meltfnum[7] = (melt_nonzerohash());; /*^compute*/ - /*_.MAKE_INTEGERBOX__V34*/ meltfptr[33] = + /*_.MAKE_INTEGERBOX__V34*/ + meltfptr[33] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[12])), (/*_#NONZERO_HASH__L8*/ meltfnum[7])));; MELT_LOCATION("warmelt-normal.melt:7182:/ quasiblock"); @@ -9312,7 +10109,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ meltfrout->tabval[11])), (9), "CLASS_NREP_DATAINSTANCE"); - /*_.INST__V36*/ meltfptr[35] = + /*_.INST__V36*/ + meltfptr[35] = newobj; }; ; @@ -9345,7 +10143,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V36*/ meltfptr[35], "newly made instance"); ; - /*_.NPRIMDATA__V35*/ meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; + /*_.NPRIMDATA__V35*/ + meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; MELT_CHECK_SIGNAL(); ; @@ -9358,19 +10157,24 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.NSYMDATA__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NSYMDATA__V37*/ + meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#MULTIPLE_LENGTH__L9*/ meltfnum[8] = + /*_#MULTIPLE_LENGTH__L9*/ + meltfnum[8] = (melt_multiple_length((melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19])));; /*^compute*/ - /*_#stI__L10*/ meltfnum[9] = + /*_#stI__L10*/ + meltfnum[9] = ((/*_#MULTIPLE_LENGTH__L9*/ meltfnum[8]) * (2));; /*^compute*/ - /*_#plI__L11*/ meltfnum[10] = + /*_#plI__L11*/ + meltfnum[10] = ((3) + (/*_#stI__L10*/ meltfnum[9]));; /*^compute*/ - /*_.FORMSYMBMAP__V38*/ meltfptr[37] = + /*_.FORMSYMBMAP__V38*/ + meltfptr[37] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[14])), (/*_#plI__L11*/ meltfnum[10])));; MELT_CHECK_SIGNAL(); @@ -9382,7 +10186,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NPRIMDATA__V35*/ meltfptr[34]; - /*_.ADD_NCTX_DATA__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V39*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -9395,7 +10200,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEXPDATA__V28*/ meltfptr[27]; - /*_.ADD_NCTX_DATA__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V40*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -9408,7 +10214,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NARGDATA__V31*/ meltfptr[30]; - /*_.ADD_NCTX_DATA__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V41*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -9429,7 +10236,8 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_FORMALS__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_FORMALS__V42*/ + meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -9446,7 +10254,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_EXPANSION__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.SEXP__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_EXPANSION__V43*/ + meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.SEXP__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -9466,7 +10275,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[21])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V44*/ + meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[21])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7207:/ getslot"); @@ -9474,7 +10284,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V45*/ meltfptr[44] = slot; + /*_.NAMED_NAME__V45*/ + meltfptr[44] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7204:/ quasiblock"); @@ -9485,7 +10296,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ meltfrout->tabval[20])), (6), "CLASS_NREP_DATASTRING"); - /*_.INST__V47*/ meltfptr[46] = + /*_.INST__V47*/ + meltfptr[46] = newobj; }; ; @@ -9503,7 +10315,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V47*/ meltfptr[46], "newly made instance"); ; - /*_.INST___V46*/ meltfptr[45] = /*_.INST__V47*/ meltfptr[46];; + /*_.INST___V46*/ + meltfptr[45] = /*_.INST__V47*/ meltfptr[46];; MELT_CHECK_SIGNAL(); ; @@ -9514,7 +10327,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INST___V46*/ meltfptr[45]; - /*_.ADD_NCTX_DATA__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V48*/ + meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -9529,7 +10343,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!NAMED_NAME*/ meltfrout->tabval[19]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.ADD_NCTX_DATA__V48*/ meltfptr[47]; - /*_.FILL_DATA_SLOT__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NPRIMDATA__V35*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_DATA_SLOT__V49*/ + meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NPRIMDATA__V35*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -9544,7 +10359,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!PRIM_FORMALS*/ meltfrout->tabval[22]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NARGDATA__V31*/ meltfptr[30]; - /*_.FILL_DATA_SLOT__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NPRIMDATA__V35*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_DATA_SLOT__V50*/ + meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NPRIMDATA__V35*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -9559,7 +10375,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!PRIM_EXPANSION*/ meltfrout->tabval[23]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NEXPDATA__V28*/ meltfptr[27]; - /*_.FILL_DATA_SLOT__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NPRIMDATA__V35*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_DATA_SLOT__V51*/ + meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NPRIMDATA__V35*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -9576,7 +10393,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "primitive res type"; - /*_.NORMAL_PREDEF__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.STYPE__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V52*/ + meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.STYPE__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -9591,16 +10409,19 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!PRIM_TYPE*/ meltfrout->tabval[24]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NORMAL_PREDEF__V52*/ meltfptr[51]; - /*_.FILL_DATA_SLOT__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NPRIMDATA__V35*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_DATA_SLOT__V53*/ + meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NPRIMDATA__V35*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L12*/ meltfnum[11] = + /*_#IS_A__L12*/ + meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.SPRIMBIND__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ meltfrout->tabval[25])));; MELT_LOCATION("warmelt-normal.melt:7213:/ cond"); - /*cond*/ if (/*_#IS_A__L12*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#IS_A__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9611,7 +10432,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7214:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SPRIMBIND__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ meltfrout->tabval[26]))) ) /*then*/ @@ -9649,7 +10471,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7215:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*nil*/NULL);; MELT_LOCATION("warmelt-normal.melt:7215:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -9657,96 +10480,139 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V17*/ meltfptr[15] = /*_.RETURN___V54*/ meltfptr[53];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V17*/ + meltfptr[15] = /*_.RETURN___V54*/ meltfptr[53];; MELT_LOCATION("warmelt-normal.melt:7160:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SNAME__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SNAME__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SARGS__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SARGS__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.STYPE__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.STYPE__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.SEXP__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.SEXP__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.SPRIMBIND__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.SPRIMBIND__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.NSLOTUPLE__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.NSLOTUPLE__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.NEXPTUPLE__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.NEXPTUPLE__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.NARGTUPLE__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.NARGTUPLE__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.NEXPDATA__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.NEXPDATA__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.NARGDATA__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.NARGDATA__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_#NONZERO_HASH__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#NONZERO_HASH__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.NPRIMDATA__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.NPRIMDATA__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.NSYMDATA__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.NSYMDATA__V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#stI__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#stI__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#plI__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.FORMSYMBMAP__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.FORMSYMBMAP__V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_FORMALS__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.FILL_NORMAL_FORMALS__V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_EXPANSION__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.FILL_NORMAL_EXPANSION__V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V44*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.NAMED_NAME__V45*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.INST___V46*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V48*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_DATA_SLOT__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.FILL_DATA_SLOT__V49*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_DATA_SLOT__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.FILL_DATA_SLOT__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_DATA_SLOT__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.FILL_DATA_SLOT__V51*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V52*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_DATA_SLOT__V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_.FILL_DATA_SLOT__V53*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#IS_A__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.RETURN___V54*/ + meltfptr[53] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7155:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:7155:/ locexp"); @@ -9761,17 +10627,22 @@ 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*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -9853,7 +10724,8 @@ meltrout_129_WARMELTmiNORMAL_NORMEXP_DEFCITERATOR(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_129_WARMELTmiNORMAL_NORMEXP_DEFCITERATOR fromline 1756 */ - /* classy proc frame meltrout_129_WARMELTmiNORMAL_NORMEXP_DEFCITERATOR */ MeltFrame_meltrout_129_WARMELTmiNORMAL_NORMEXP_DEFCITERATOR + /* classy proc frame meltrout_129_WARMELTmiNORMAL_NORMEXP_DEFCITERATOR */ + MeltFrame_meltrout_129_WARMELTmiNORMAL_NORMEXP_DEFCITERATOR meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_129_WARMELTmiNORMAL_NORMEXP_DEFCITERATOR fromline 1785*/ #if ENABLE_CHECKING @@ -9866,7 +10738,8 @@ meltrout_129_WARMELTmiNORMAL_NORMEXP_DEFCITERATOR(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("NORMEXP_DEFCITERATOR", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -9876,26 +10749,30 @@ meltrout_129_WARMELTmiNORMAL_NORMEXP_DEFCITERATOR(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7222:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__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; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -9927,7 +10804,8 @@ 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)) @@ -9936,7 +10814,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7223:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9969,16 +10848,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defciterator recv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7223:/ 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 ; } ; } @@ -9991,7 +10874,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7223:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10000,9 +10884,11 @@ 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*/ @@ -10032,10 +10918,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCITERATOR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:7224:/ 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);; @@ -10064,25 +10952,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7224; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7224:/ 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-normal.melt:7224:/ 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*/ @@ -10100,10 +10994,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:7225:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -10132,25 +11028,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7225; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 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__V13*/ + meltfptr[12] = 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___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7225:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7225:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10168,10 +11070,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:7226:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -10200,25 +11104,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7226; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7226:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7226:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10234,7 +11144,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7229:/ getslot"); @@ -10242,7 +11153,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); - /*_.SNAME__V19*/ meltfptr[18] = slot; + /*_.SNAME__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7230:/ quasiblock"); @@ -10253,7 +11165,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SCITERDEF_CITERATOR"); - /*_.SC__V21*/ meltfptr[20] = slot; + /*_.SC__V21*/ + meltfptr[20] = slot; }; ; @@ -10266,10 +11179,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[0] = + /*_#IS_A__L6*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SC__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:7231:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V23*/ meltfptr[22] = (/*nil*/NULL);; @@ -10298,25 +11213,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7231; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SC__V21*/ meltfptr[20]; - /*_.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_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_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V23*/ meltfptr[22] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; + /*_._IFELSE___V23*/ + meltfptr[22] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7231:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ + meltfptr[23] = 0 ; } ; } ; - /*_.IFCPP___V22*/ meltfptr[21] = /*_._IFELSE___V23*/ meltfptr[22];; + /*_.IFCPP___V22*/ + meltfptr[21] = /*_._IFELSE___V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7231:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10325,13 +11246,17 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V20*/ meltfptr[19] = /*_.SC__V21*/ meltfptr[20];; + /*_.LET___V20*/ + meltfptr[19] = /*_.SC__V21*/ meltfptr[20];; MELT_LOCATION("warmelt-normal.melt:7230:/ clear"); - /*clear*/ /*_.SC__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.SC__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V22*/ meltfptr[21] = 0 ; - /*_.SCITER__V25*/ meltfptr[23] = /*_.LET___V20*/ meltfptr[19];; + /*clear*/ /*_.IFCPP___V22*/ + meltfptr[21] = 0 ; + /*_.SCITER__V25*/ + meltfptr[23] = /*_.LET___V20*/ meltfptr[19];; MELT_CHECK_SIGNAL(); ; @@ -10342,7 +11267,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SNAME__V19*/ meltfptr[18]; - /*_.CITBIND__V26*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CITBIND__V26*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7234:/ getslot"); @@ -10350,7 +11276,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SCITER__V25*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 2, "CITER_START_FORMALS"); - /*_.CITSTAFOR__V27*/ meltfptr[20] = slot; + /*_.CITSTAFOR__V27*/ + meltfptr[20] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7236:/ getslot"); @@ -10358,39 +11285,48 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[5])) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); - /*_.CLASS_FIELDS__V28*/ meltfptr[21] = slot; + /*_.CLASS_FIELDS__V28*/ + meltfptr[21] = slot; }; ; - /*_#MULTIPLE_LENGTH__L7*/ meltfnum[1] = + /*_#MULTIPLE_LENGTH__L7*/ + meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V28*/ meltfptr[21])));; /*^compute*/ - /*_.SLOTUP__V29*/ meltfptr[28] = + /*_.SLOTUP__V29*/ + meltfptr[28] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L7*/ meltfnum[1])));; /*^compute*/ - /*_#MULTIPLE_LENGTH__L8*/ meltfnum[0] = + /*_#MULTIPLE_LENGTH__L8*/ + meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.CITSTAFOR__V27*/ meltfptr[20])));; /*^compute*/ - /*_.FORMSTATUP__V30*/ meltfptr[29] = + /*_.FORMSTATUP__V30*/ + meltfptr[29] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L8*/ meltfnum[0])));; MELT_LOCATION("warmelt-normal.melt:7239:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SCITER__V25*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CITER_BODY_FORMALS"); - /*_.CITBODFOR__V31*/ meltfptr[30] = slot; + /*_.CITBODFOR__V31*/ + meltfptr[30] = slot; }; ; - /*_#MULTIPLE_LENGTH__L9*/ meltfnum[8] = + /*_#MULTIPLE_LENGTH__L9*/ + meltfnum[8] = (melt_multiple_length((melt_ptr_t)(/*_.CITBODFOR__V31*/ meltfptr[30])));; /*^compute*/ - /*_.FORMBODTUP__V32*/ meltfptr[31] = + /*_.FORMBODTUP__V32*/ + meltfptr[31] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L9*/ meltfnum[8])));; MELT_LOCATION("warmelt-normal.melt:7242:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SCITER__V25*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 3, "CITER_STATE"); - /*_.CITSTATSY__V33*/ meltfptr[32] = slot; + /*_.CITSTATSY__V33*/ + meltfptr[32] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7243:/ getslot"); @@ -10398,44 +11334,56 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SCITER__V25*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CITER_EXPBEFORE"); - /*_.CITEXPBEF__V34*/ meltfptr[33] = slot; + /*_.CITEXPBEF__V34*/ + meltfptr[33] = slot; }; ; - /*_#MULTIPLE_LENGTH__L10*/ meltfnum[9] = + /*_#MULTIPLE_LENGTH__L10*/ + meltfnum[9] = (melt_multiple_length((melt_ptr_t)(/*_.CITEXPBEF__V34*/ meltfptr[33])));; /*^compute*/ - /*_.EXPBEFTUP__V35*/ meltfptr[34] = + /*_.EXPBEFTUP__V35*/ + meltfptr[34] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L10*/ meltfnum[9])));; MELT_LOCATION("warmelt-normal.melt:7245:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SCITER__V25*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CITER_EXPAFTER"); - /*_.CITEXPAFT__V36*/ meltfptr[35] = slot; + /*_.CITEXPAFT__V36*/ + meltfptr[35] = slot; }; ; - /*_#MULTIPLE_LENGTH__L11*/ meltfnum[10] = + /*_#MULTIPLE_LENGTH__L11*/ + meltfnum[10] = (melt_multiple_length((melt_ptr_t)(/*_.CITEXPAFT__V36*/ meltfptr[35])));; /*^compute*/ - /*_.EXPAFTTUP__V37*/ meltfptr[36] = + /*_.EXPAFTTUP__V37*/ + meltfptr[36] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L11*/ meltfnum[10])));; /*^compute*/ - /*_#MULTIPLE_LENGTH__L12*/ meltfnum[11] = + /*_#MULTIPLE_LENGTH__L12*/ + meltfnum[11] = (melt_multiple_length((melt_ptr_t)(/*_.CITSTAFOR__V27*/ meltfptr[20])));; /*^compute*/ - /*_#MULTIPLE_LENGTH__L13*/ meltfnum[12] = + /*_#MULTIPLE_LENGTH__L13*/ + meltfnum[12] = (melt_multiple_length((melt_ptr_t)(/*_.CITBODFOR__V31*/ meltfptr[30])));; /*^compute*/ - /*_#plI__L14*/ meltfnum[13] = + /*_#plI__L14*/ + meltfnum[13] = ((/*_#MULTIPLE_LENGTH__L12*/ meltfnum[11]) + (/*_#MULTIPLE_LENGTH__L13*/ meltfnum[12]));; /*^compute*/ - /*_#stI__L15*/ meltfnum[14] = + /*_#stI__L15*/ + meltfnum[14] = ((/*_#plI__L14*/ meltfnum[13]) * (2));; /*^compute*/ - /*_#plI__L16*/ meltfnum[15] = + /*_#plI__L16*/ + meltfnum[15] = ((5) + (/*_#stI__L15*/ meltfnum[14]));; /*^compute*/ - /*_.FORMSYMBMAP__V38*/ meltfptr[37] = + /*_.FORMSYMBMAP__V38*/ + meltfptr[37] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[8])), (/*_#plI__L16*/ meltfnum[15])));; MELT_CHECK_SIGNAL(); @@ -10454,7 +11402,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[11])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V39*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[11])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7253:/ getslot"); @@ -10462,7 +11411,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V40*/ meltfptr[39] = slot; + /*_.NAMED_NAME__V40*/ + meltfptr[39] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7250:/ quasiblock"); @@ -10473,7 +11423,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ meltfrout->tabval[9])), (6), "CLASS_NREP_DATASTRING"); - /*_.INST__V42*/ meltfptr[41] = + /*_.INST__V42*/ + meltfptr[41] = newobj; }; ; @@ -10496,7 +11447,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V42*/ meltfptr[41], "newly made instance"); ; - /*_.NAMSTRDATA__V41*/ meltfptr[40] = /*_.INST__V42*/ meltfptr[41];; + /*_.NAMSTRDATA__V41*/ + meltfptr[40] = /*_.INST__V42*/ meltfptr[41];; MELT_CHECK_SIGNAL(); ; @@ -10514,13 +11466,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "class_citerator"; - /*_.NORMAL_PREDEF__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V43*/ + meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_#NONZERO_HASH__L17*/ meltfnum[16] = + /*_#NONZERO_HASH__L17*/ + meltfnum[16] = (melt_nonzerohash());; /*^compute*/ - /*_.MAKE_INTEGERBOX__V44*/ meltfptr[43] = + /*_.MAKE_INTEGERBOX__V44*/ + meltfptr[43] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[13])), (/*_#NONZERO_HASH__L17*/ meltfnum[16])));; MELT_LOCATION("warmelt-normal.melt:7254:/ quasiblock"); @@ -10530,7 +11485,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ meltfrout->tabval[12])), (9), "CLASS_NREP_DATAINSTANCE"); - /*_.INST__V46*/ meltfptr[45] = + /*_.INST__V46*/ + meltfptr[45] = newobj; }; ; @@ -10563,7 +11519,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V46*/ meltfptr[45], "newly made instance"); ; - /*_.INSDATA__V45*/ meltfptr[44] = /*_.INST__V46*/ meltfptr[45];; + /*_.INSDATA__V45*/ + meltfptr[44] = /*_.INST__V46*/ meltfptr[45];; MELT_CHECK_SIGNAL(); ; @@ -10574,7 +11531,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INSDATA__V45*/ meltfptr[44]; - /*_.ADD_NCTX_DATA__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V47*/ + meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -10587,10 +11545,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V41*/ meltfptr[40]; - /*_.ADD_NCTX_DATA__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V48*/ + meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L18*/ meltfnum[17] = + /*_#GET_INT__L18*/ + meltfnum[17] = (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ meltfrout->tabval[15]))));; { @@ -10616,7 +11576,8 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_FORMALS__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.CITSTAFOR__V27*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_FORMALS__V49*/ + meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.CITSTAFOR__V27*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7268:/ quasiblock"); @@ -10639,7 +11600,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V50*/ + meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7268:/ quasiblock"); @@ -10650,7 +11612,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V52*/ meltfptr[51] = + /*_.INST__V52*/ + meltfptr[51] = newobj; }; ; @@ -10678,7 +11641,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V52*/ meltfptr[51], "newly made instance"); ; - /*_.NSTATUPDATA__V51*/ meltfptr[50] = /*_.INST__V52*/ meltfptr[51];; + /*_.NSTATUPDATA__V51*/ + meltfptr[50] = /*_.INST__V52*/ meltfptr[51];; MELT_CHECK_SIGNAL(); ; @@ -10689,10 +11653,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NSTATUPDATA__V51*/ meltfptr[50]; - /*_.ADD_NCTX_DATA__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V53*/ + meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L19*/ meltfnum[18] = + /*_#GET_INT__L19*/ + meltfnum[18] = (melt_get_int((melt_ptr_t)((/*!CITER_START_FORMALS*/ meltfrout->tabval[18]))));; { @@ -10702,13 +11668,17 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7268:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.NSTATUPDATA__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.NSTATUPDATA__V51*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V53*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#GET_INT__L19*/ + meltfnum[18] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:7279:/ cppif.then"); @@ -10719,10 +11689,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L20*/ meltfnum[18] = + /*_#IS_A__L20*/ + meltfnum[18] = melt_is_instance_of((melt_ptr_t)(/*_.CITSTATSY__V33*/ meltfptr[32]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[19])));; MELT_LOCATION("warmelt-normal.melt:7279:/ cond"); - /*cond*/ if (/*_#IS_A__L20*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#IS_A__L20*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V55*/ meltfptr[50] = (/*nil*/NULL);; @@ -10751,25 +11723,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7279; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CITSTATSY__V33*/ meltfptr[32]; - /*_.MELT_ASSERT_FAILURE_FUN__V56*/ meltfptr[52] = 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__V56*/ + meltfptr[52] = 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___V55*/ meltfptr[50] = /*_.MELT_ASSERT_FAILURE_FUN__V56*/ meltfptr[52];; + /*_._IFELSE___V55*/ + meltfptr[50] = /*_.MELT_ASSERT_FAILURE_FUN__V56*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7279:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V56*/ meltfptr[52] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V56*/ + meltfptr[52] = 0 ; } ; } ; - /*_.IFCPP___V54*/ meltfptr[49] = /*_._IFELSE___V55*/ meltfptr[50];; + /*_.IFCPP___V54*/ + meltfptr[49] = /*_._IFELSE___V55*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7279:/ clear"); - /*clear*/ /*_#IS_A__L20*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IS_A__L20*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V55*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IFELSE___V55*/ + meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10792,10 +11770,12 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.NSTATSYDATA__V57*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.CITSTATSY__V33*/ meltfptr[32]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NSTATSYDATA__V57*/ + meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.CITSTATSY__V33*/ meltfptr[32]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L21*/ meltfnum[18] = + /*_#GET_INT__L21*/ + meltfnum[18] = (melt_get_int((melt_ptr_t)((/*!CITER_STATE*/ meltfrout->tabval[21]))));; { @@ -10805,9 +11785,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7280:/ clear"); - /*clear*/ /*_.NSTATSYDATA__V57*/ meltfptr[52] = 0 ; + /*clear*/ /*_.NSTATSYDATA__V57*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L21*/ meltfnum[18] = 0 ; + /*clear*/ /*_#GET_INT__L21*/ + meltfnum[18] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -10826,7 +11808,8 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_FORMALS__V58*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.CITBODFOR__V31*/ meltfptr[30]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_FORMALS__V58*/ + meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.CITBODFOR__V31*/ meltfptr[30]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7286:/ quasiblock"); @@ -10849,7 +11832,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V59*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V59*/ + meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7286:/ quasiblock"); @@ -10860,7 +11844,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V61*/ meltfptr[60] = + /*_.INST__V61*/ + meltfptr[60] = newobj; }; ; @@ -10888,7 +11873,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V61*/ meltfptr[60], "newly made instance"); ; - /*_.NBODTUPDATA__V60*/ meltfptr[59] = /*_.INST__V61*/ meltfptr[60];; + /*_.NBODTUPDATA__V60*/ + meltfptr[59] = /*_.INST__V61*/ meltfptr[60];; MELT_CHECK_SIGNAL(); ; @@ -10899,10 +11885,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBODTUPDATA__V60*/ meltfptr[59]; - /*_.ADD_NCTX_DATA__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V62*/ + meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L22*/ meltfnum[18] = + /*_#GET_INT__L22*/ + meltfnum[18] = (melt_get_int((melt_ptr_t)((/*!CITER_BODY_FORMALS*/ meltfrout->tabval[22]))));; { @@ -10912,13 +11900,17 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7286:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V59*/ meltfptr[52] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V59*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.NBODTUPDATA__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.NBODTUPDATA__V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V62*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L22*/ meltfnum[18] = 0 ; + /*clear*/ /*_#GET_INT__L22*/ + meltfnum[18] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -10933,7 +11925,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_EXPANSION__V63*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.CITEXPBEF__V34*/ meltfptr[33]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_EXPANSION__V63*/ + meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.CITEXPBEF__V34*/ meltfptr[33]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7297:/ quasiblock"); @@ -10956,7 +11949,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V64*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V64*/ + meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7297:/ quasiblock"); @@ -10967,7 +11961,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V66*/ meltfptr[65] = + /*_.INST__V66*/ + meltfptr[65] = newobj; }; ; @@ -10995,7 +11990,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V66*/ meltfptr[65], "newly made instance"); ; - /*_.NBEFTUPDATA__V65*/ meltfptr[61] = /*_.INST__V66*/ meltfptr[65];; + /*_.NBEFTUPDATA__V65*/ + meltfptr[61] = /*_.INST__V66*/ meltfptr[65];; MELT_CHECK_SIGNAL(); ; @@ -11006,10 +12002,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBEFTUPDATA__V65*/ meltfptr[61]; - /*_.ADD_NCTX_DATA__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V67*/ + meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L23*/ meltfnum[18] = + /*_#GET_INT__L23*/ + meltfnum[18] = (melt_get_int((melt_ptr_t)((/*!CITER_EXPBEFORE*/ meltfrout->tabval[24]))));; { @@ -11019,13 +12017,17 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7297:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V64*/ meltfptr[59] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V64*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.NBEFTUPDATA__V65*/ meltfptr[61] = 0 ; + /*clear*/ /*_.NBEFTUPDATA__V65*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V67*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L23*/ meltfnum[18] = 0 ; + /*clear*/ /*_#GET_INT__L23*/ + meltfnum[18] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -11040,7 +12042,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_EXPANSION__V68*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.CITEXPAFT__V36*/ meltfptr[35]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_EXPANSION__V68*/ + meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.CITEXPAFT__V36*/ meltfptr[35]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7308:/ quasiblock"); @@ -11063,7 +12066,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V69*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V69*/ + meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7308:/ quasiblock"); @@ -11074,7 +12078,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V71*/ meltfptr[70] = + /*_.INST__V71*/ + meltfptr[70] = newobj; }; ; @@ -11102,7 +12107,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V71*/ meltfptr[70], "newly made instance"); ; - /*_.NAFTTUPDATA__V70*/ meltfptr[66] = /*_.INST__V71*/ meltfptr[70];; + /*_.NAFTTUPDATA__V70*/ + meltfptr[66] = /*_.INST__V71*/ meltfptr[70];; MELT_CHECK_SIGNAL(); ; @@ -11113,10 +12119,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NAFTTUPDATA__V70*/ meltfptr[66]; - /*_.ADD_NCTX_DATA__V72*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V72*/ + meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L24*/ meltfnum[18] = + /*_#GET_INT__L24*/ + meltfnum[18] = (melt_get_int((melt_ptr_t)((/*!CITER_EXPAFTER*/ meltfrout->tabval[25]))));; { @@ -11126,13 +12134,17 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7308:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V69*/ meltfptr[61] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V69*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.NAFTTUPDATA__V70*/ meltfptr[66] = 0 ; + /*clear*/ /*_.NAFTTUPDATA__V70*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V72*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L24*/ meltfnum[18] = 0 ; + /*clear*/ /*_#GET_INT__L24*/ + meltfnum[18] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:7317:/ cppif.then"); @@ -11143,10 +12155,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L25*/ meltfnum[18] = + /*_#IS_A__L25*/ + meltfnum[18] = melt_is_instance_of((melt_ptr_t)(/*_.CITBIND__V26*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_CITERATOR_BINDING*/ meltfrout->tabval[26])));; MELT_LOCATION("warmelt-normal.melt:7317:/ cond"); - /*cond*/ if (/*_#IS_A__L25*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#IS_A__L25*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V74*/ meltfptr[66] = (/*nil*/NULL);; @@ -11175,25 +12189,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7317; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CITBIND__V26*/ meltfptr[22]; - /*_.MELT_ASSERT_FAILURE_FUN__V75*/ meltfptr[71] = 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__V75*/ + meltfptr[71] = 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___V74*/ meltfptr[66] = /*_.MELT_ASSERT_FAILURE_FUN__V75*/ meltfptr[71];; + /*_._IFELSE___V74*/ + meltfptr[66] = /*_.MELT_ASSERT_FAILURE_FUN__V75*/ meltfptr[71];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7317:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V75*/ meltfptr[71] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V75*/ + meltfptr[71] = 0 ; } ; } ; - /*_.IFCPP___V73*/ meltfptr[61] = /*_._IFELSE___V74*/ meltfptr[66];; + /*_.IFCPP___V73*/ + meltfptr[61] = /*_._IFELSE___V74*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7317:/ clear"); - /*clear*/ /*_#IS_A__L25*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IS_A__L25*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V74*/ meltfptr[66] = 0 ; + /*clear*/ /*_._IFELSE___V74*/ + meltfptr[66] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11205,7 +12225,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7318:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CITBIND__V26*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ meltfrout->tabval[27]))) ) /*then*/ @@ -11252,7 +12273,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L26*/ meltfnum[18] = + /*_#MELT_NEED_DBG__L26*/ + meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -11261,7 +12283,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7321:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L26*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11294,16 +12317,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defciterator return insdata"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.INSDATA__V45*/ meltfptr[44]; - /*_.MELT_DEBUG_FUN__V77*/ meltfptr[66] = 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__V77*/ + meltfptr[66] = 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___V76*/ meltfptr[71] = /*_.MELT_DEBUG_FUN__V77*/ meltfptr[66];; + /*_._IF___V76*/ + meltfptr[71] = /*_.MELT_DEBUG_FUN__V77*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7321:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L27*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V77*/ meltfptr[66] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V77*/ + meltfptr[66] = 0 ; } ; } @@ -11316,7 +12343,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7321:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -11325,9 +12353,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L26*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V76*/ meltfptr[71] = 0 ; + /*clear*/ /*_._IF___V76*/ + meltfptr[71] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11353,7 +12383,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7322:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.INSDATA__V45*/ meltfptr[44];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.INSDATA__V45*/ meltfptr[44];; MELT_LOCATION("warmelt-normal.melt:7322:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -11361,104 +12392,151 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V17*/ meltfptr[15] = /*_.RETURN___V78*/ meltfptr[66];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V17*/ + meltfptr[15] = /*_.RETURN___V78*/ meltfptr[66];; MELT_LOCATION("warmelt-normal.melt:7227:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SNAME__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SNAME__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.LET___V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.SCITER__V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_.SCITER__V25*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.CITBIND__V26*/ meltfptr[22] = 0 ; + /*clear*/ /*_.CITBIND__V26*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CITSTAFOR__V27*/ meltfptr[20] = 0 ; + /*clear*/ /*_.CITSTAFOR__V27*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.CLASS_FIELDS__V28*/ meltfptr[21] = 0 ; + /*clear*/ /*_.CLASS_FIELDS__V28*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.SLOTUP__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.SLOTUP__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.FORMSTATUP__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.FORMSTATUP__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.CITBODFOR__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.CITBODFOR__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.FORMBODTUP__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.FORMBODTUP__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.CITSTATSY__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.CITSTATSY__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.CITEXPBEF__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.CITEXPBEF__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPBEFTUP__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.EXPBEFTUP__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.CITEXPAFT__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.CITEXPAFT__V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPAFTTUP__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.EXPAFTTUP__V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#plI__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_#stI__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#stI__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#plI__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.FORMSYMBMAP__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.FORMSYMBMAP__V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.NAMED_NAME__V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMSTRDATA__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.NAMSTRDATA__V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_#NONZERO_HASH__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#NONZERO_HASH__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V44*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.INSDATA__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.INSDATA__V45*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V47*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V48*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L18*/ meltfnum[17] = 0 ; + /*clear*/ /*_#GET_INT__L18*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_FORMALS__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.FILL_NORMAL_FORMALS__V49*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V54*/ meltfptr[49] = 0 ; + /*clear*/ /*_.IFCPP___V54*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_FORMALS__V58*/ meltfptr[50] = 0 ; + /*clear*/ /*_.FILL_NORMAL_FORMALS__V58*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_EXPANSION__V63*/ meltfptr[52] = 0 ; + /*clear*/ /*_.FILL_NORMAL_EXPANSION__V63*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_EXPANSION__V68*/ meltfptr[59] = 0 ; + /*clear*/ /*_.FILL_NORMAL_EXPANSION__V68*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V73*/ meltfptr[61] = 0 ; + /*clear*/ /*_.IFCPP___V73*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V78*/ meltfptr[66] = 0 ; + /*clear*/ /*_.RETURN___V78*/ + meltfptr[66] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7222:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:7222:/ locexp"); @@ -11473,17 +12551,22 @@ 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*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -11565,7 +12648,8 @@ meltrout_130_WARMELTmiNORMAL_NORMEXP_CITERATION(meltclosure_ptr_t meltclosp_, me /* end of frame for routine meltrout_130_WARMELTmiNORMAL_NORMEXP_CITERATION fromline 1756 */ - /* classy proc frame meltrout_130_WARMELTmiNORMAL_NORMEXP_CITERATION */ MeltFrame_meltrout_130_WARMELTmiNORMAL_NORMEXP_CITERATION + /* classy proc frame meltrout_130_WARMELTmiNORMAL_NORMEXP_CITERATION */ + MeltFrame_meltrout_130_WARMELTmiNORMAL_NORMEXP_CITERATION meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_130_WARMELTmiNORMAL_NORMEXP_CITERATION fromline 1785*/ #if ENABLE_CHECKING @@ -11578,7 +12662,8 @@ meltrout_130_WARMELTmiNORMAL_NORMEXP_CITERATION(meltclosure_ptr_t meltclosp_, me #define meltframe meltfram__ melt_trace_start("NORMEXP_CITERATION", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -11588,26 +12673,30 @@ meltrout_130_WARMELTmiNORMAL_NORMEXP_CITERATION(meltclosure_ptr_t meltclosp_, me /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7329:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__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; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -11639,7 +12728,8 @@ 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)) @@ -11648,7 +12738,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7330:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11681,16 +12772,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_citeration recv"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7330:/ 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 ; } ; } @@ -11703,7 +12798,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7330:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -11712,9 +12808,11 @@ 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*/ @@ -11744,10 +12842,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_CITERATION*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:7331:/ 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);; @@ -11776,25 +12876,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7331; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7331:/ 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-normal.melt:7331:/ 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*/ @@ -11812,10 +12918,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:7332:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -11844,25 +12952,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7332; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 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__V13*/ + meltfptr[12] = 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___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7332:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7332:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11880,10 +12994,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:7333:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -11912,25 +13028,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7333; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7333:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7333:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11946,7 +13068,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7335:/ getslot"); @@ -11954,7 +13077,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SCITER_OPER"); - /*_.SOPER__V19*/ meltfptr[18] = slot; + /*_.SOPER__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7336:/ getslot"); @@ -11962,7 +13086,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SARGOP_ARGS"); - /*_.SARGS__V20*/ meltfptr[19] = slot; + /*_.SARGS__V20*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7337:/ getslot"); @@ -11970,7 +13095,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SCITER_VARBIND"); - /*_.SVBIND__V21*/ meltfptr[20] = slot; + /*_.SVBIND__V21*/ + meltfptr[20] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7338:/ getslot"); @@ -11978,13 +13104,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SCITER_BODY"); - /*_.SBODY__V22*/ meltfptr[21] = slot; + /*_.SBODY__V22*/ + meltfptr[21] = slot; }; ; - /*_#MULTIPLE_LENGTH__L6*/ meltfnum[0] = + /*_#MULTIPLE_LENGTH__L6*/ + meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.SVBIND__V21*/ meltfptr[20])));; /*^compute*/ - /*_.NBNDTUP__V23*/ meltfptr[22] = + /*_.NBNDTUP__V23*/ + meltfptr[22] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L6*/ meltfnum[0])));; MELT_CHECK_SIGNAL(); @@ -12000,10 +13129,12 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NCTX_SYMBCACHEMAP"); - /*_.SYCMAP__V25*/ meltfptr[24] = slot; + /*_.SYCMAP__V25*/ + meltfptr[24] = slot; }; ; - /*_.UNCACHELIST__V26*/ meltfptr[25] = + /*_.UNCACHELIST__V26*/ + meltfptr[25] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[7]))));; #if MELT_HAVE_DEBUG @@ -12015,10 +13146,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ meltfnum[1] = + /*_#IS_A__L7*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:7346:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V28*/ meltfptr[27] = (/*nil*/NULL);; @@ -12047,25 +13180,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7346; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SOPER__V19*/ meltfptr[18]; - /*_.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 ""), 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 ""), 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-normal.melt:7346:/ 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-normal.melt:7346:/ clear"); - /*clear*/ /*_#IS_A__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IFELSE___V28*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12094,7 +13233,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V32*/ meltfptr[31]; /*^multiapply.appl*/ - /*_.NARGS__V31*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NARGS__V31*/ + meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -12103,10 +13243,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L8*/ meltfnum[1] = + /*_#NULL__L8*/ + meltfnum[1] = (/*null*/(/*_.NBINDINGS__V32*/ meltfptr[31]) == NULL);; MELT_LOCATION("warmelt-normal.melt:7351:/ cond"); - /*cond*/ if (/*_#NULL__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#NULL__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12116,14 +13258,18 @@ meltlab_endgetargs: /*_.MAKE_LIST__V34*/ meltfptr[33] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[7]))));; MELT_LOCATION("warmelt-normal.melt:7351:/ compute"); - /*_.NBINDINGS__V32*/ meltfptr[31] = /*_.SETQ___V35*/ meltfptr[34] = /*_.MAKE_LIST__V34*/ meltfptr[33];; - /*_._IF___V33*/ meltfptr[32] = /*_.SETQ___V35*/ meltfptr[34];; + /*_.NBINDINGS__V32*/ + meltfptr[31] = /*_.SETQ___V35*/ meltfptr[34] = /*_.MAKE_LIST__V34*/ meltfptr[33];; + /*_._IF___V33*/ + meltfptr[32] = /*_.SETQ___V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7351:/ clear"); - /*clear*/ /*_.MAKE_LIST__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MAKE_LIST__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.SETQ___V35*/ + meltfptr[34] = 0 ; } ; } @@ -12153,7 +13299,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12162,7 +13309,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7352:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12199,16 +13347,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbindings="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V32*/ meltfptr[31]; - /*_.MELT_DEBUG_FUN__V37*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V36*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[34];; + /*_._IF___V36*/ + meltfptr[33] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7352:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[34] = 0 ; } ; } @@ -12221,7 +13373,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7352:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12230,9 +13383,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V36*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12260,7 +13415,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 2, "CITER_START_FORMALS"); - /*_.STARFORMALS__V39*/ meltfptr[33] = slot; + /*_.STARFORMALS__V39*/ + meltfptr[33] = slot; }; ; @@ -12283,7 +13439,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L11*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12292,7 +13449,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7354:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12325,16 +13483,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_citeration starformals"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.STARFORMALS__V39*/ meltfptr[33]; - /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V40*/ meltfptr[39] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];; + /*_._IF___V40*/ + meltfptr[39] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7354:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[40] = 0 ; } ; } @@ -12347,7 +13509,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7354:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12356,9 +13519,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V40*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12381,19 +13546,23 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7355:/ quasiblock"); - /*_#NBFORMALS__L13*/ meltfnum[8] = + /*_#NBFORMALS__L13*/ + meltfnum[8] = (melt_multiple_length((melt_ptr_t)(/*_.STARFORMALS__V39*/ meltfptr[33])));; /*^compute*/ - /*_#NBARGS__L14*/ meltfnum[9] = + /*_#NBARGS__L14*/ + meltfnum[9] = (melt_multiple_length((melt_ptr_t)(/*_.NARGS__V31*/ meltfptr[27])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#exeqI__L15*/ meltfnum[14] = + /*_#exeqI__L15*/ + meltfnum[14] = ((/*_#NBFORMALS__L13*/ meltfnum[8]) != (/*_#NBARGS__L14*/ meltfnum[9]));; MELT_LOCATION("warmelt-normal.melt:7358:/ cond"); - /*cond*/ if (/*_#exeqI__L15*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#exeqI__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12405,7 +13574,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V44*/ meltfptr[43] = slot; + /*_.NAMED_NAME__V44*/ + meltfptr[43] = slot; }; ; @@ -12424,13 +13594,15 @@ meltlab_endgetargs: argtab[2].meltbp_long = /*_#NBARGS__L14*/ meltfnum[9]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V44*/ meltfptr[43]; - /*_.ERROR_AT__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V45*/ + meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7360:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:7360:/ locexp"); @@ -12445,23 +13617,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:7358:/ quasiblock"); - /*_.PROGN___V47*/ meltfptr[46] = /*_.RETURN___V46*/ meltfptr[45];; + /*_.PROGN___V47*/ + meltfptr[46] = /*_.RETURN___V46*/ meltfptr[45];; /*^compute*/ - /*_._IF___V43*/ meltfptr[39] = /*_.PROGN___V47*/ meltfptr[46];; + /*_._IF___V43*/ + meltfptr[39] = /*_.PROGN___V47*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7358:/ clear"); - /*clear*/ /*_.NAMED_NAME__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.NAMED_NAME__V44*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.ERROR_AT__V45*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.RETURN___V46*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.PROGN___V47*/ + meltfptr[46] = 0 ; } ; } @@ -12472,21 +13651,27 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V42*/ meltfptr[40] = /*_._IF___V43*/ meltfptr[39];; + /*_.LET___V42*/ + meltfptr[40] = /*_._IF___V43*/ meltfptr[39];; MELT_LOCATION("warmelt-normal.melt:7355:/ clear"); - /*clear*/ /*_#NBFORMALS__L13*/ meltfnum[8] = 0 ; + /*clear*/ /*_#NBFORMALS__L13*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#NBARGS__L14*/ meltfnum[9] = 0 ; + /*clear*/ /*_#NBARGS__L14*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#exeqI__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#exeqI__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V43*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V43*/ + meltfptr[39] = 0 ; MELT_LOCATION("warmelt-normal.melt:7363:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V49*/ meltfptr[44] = + /*newclosure*/ /*_.LAMBDA___V49*/ + meltfptr[44] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ meltfrout->tabval[19])), (4)); ; /*^putclosedv*/ @@ -12513,7 +13698,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V49*/ meltfptr[44]))); ((meltclosure_ptr_t)/*_.LAMBDA___V49*/ meltfptr[44])->tabval[3] = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]); ; - /*_.LAMBDA___V48*/ meltfptr[43] = /*_.LAMBDA___V49*/ meltfptr[44];; + /*_.LAMBDA___V48*/ + meltfptr[43] = /*_.LAMBDA___V49*/ meltfptr[44];; MELT_CHECK_SIGNAL(); ; @@ -12526,7 +13712,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.STARFORMALS__V39*/ meltfptr[33]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V48*/ meltfptr[43]; - /*_.MULTIPLE_EVERY_BOTH__V50*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.NARGS__V31*/ meltfptr[27]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_EVERY_BOTH__V50*/ + meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.NARGS__V31*/ meltfptr[27]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -12549,7 +13736,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L16*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12558,7 +13746,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7389:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12591,16 +13780,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_citeration nbndtup"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NBNDTUP__V23*/ meltfptr[22]; - /*_.MELT_DEBUG_FUN__V52*/ meltfptr[39] = 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__V52*/ + meltfptr[39] = 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___V51*/ meltfptr[46] = /*_.MELT_DEBUG_FUN__V52*/ meltfptr[39];; + /*_._IF___V51*/ + meltfptr[46] = /*_.MELT_DEBUG_FUN__V52*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7389:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V52*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V52*/ + meltfptr[39] = 0 ; } ; } @@ -12613,7 +13806,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7389:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12622,9 +13816,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V51*/ meltfptr[46] = 0 ; + /*clear*/ /*_._IF___V51*/ + meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12664,7 +13860,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ meltfnum[14] = + /*_#MELT_NEED_DBG__L18*/ + meltfnum[14] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12673,7 +13870,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7391:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12706,16 +13904,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_citeration svbind"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SVBIND__V21*/ meltfptr[20]; - /*_.MELT_DEBUG_FUN__V54*/ meltfptr[46] = 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__V54*/ + meltfptr[46] = 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___V53*/ meltfptr[39] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[46];; + /*_._IF___V53*/ + meltfptr[39] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7391:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ meltfptr[46] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ + meltfptr[46] = 0 ; } ; } @@ -12728,7 +13930,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7391:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12737,9 +13940,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V53*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V53*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12767,16 +13972,20 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CITER_BODY_FORMALS"); - /*_.CITBFORM__V56*/ meltfptr[39] = slot; + /*_.CITBFORM__V56*/ + meltfptr[39] = slot; }; ; - /*_#NBCITBFORM__L20*/ meltfnum[8] = + /*_#NBCITBFORM__L20*/ + meltfnum[8] = (melt_multiple_length((melt_ptr_t)(/*_.CITBFORM__V56*/ meltfptr[39])));; /*^compute*/ - /*_.NLOCBINDTUP__V57*/ meltfptr[56] = + /*_.NLOCBINDTUP__V57*/ + meltfptr[56] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#NBCITBFORM__L20*/ meltfnum[8])));; /*^compute*/ - /*_.NSYMOCCTUP__V58*/ meltfptr[57] = + /*_.NSYMOCCTUP__V58*/ + meltfptr[57] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#NBCITBFORM__L20*/ meltfnum[8])));; #if MELT_HAVE_DEBUG @@ -12798,7 +14007,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L21*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12807,7 +14017,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7397:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12840,16 +14051,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_citeration citbform"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CITBFORM__V56*/ meltfptr[39]; - /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59] = 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__V60*/ + meltfptr[59] = 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___V59*/ meltfptr[58] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59];; + /*_._IF___V59*/ + meltfptr[58] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7397:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ + meltfptr[59] = 0 ; } ; } @@ -12862,7 +14077,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7397:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12871,9 +14087,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_._IF___V59*/ + meltfptr[58] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12896,16 +14114,19 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7398:/ quasiblock"); - /*_#NBSVBIND__L23*/ meltfnum[14] = + /*_#NBSVBIND__L23*/ + meltfnum[14] = (melt_multiple_length((melt_ptr_t)(/*_.SVBIND__V21*/ meltfptr[20])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#exeqI__L24*/ meltfnum[9] = + /*_#exeqI__L24*/ + meltfnum[9] = ((/*_#NBCITBFORM__L20*/ meltfnum[8]) != (/*_#NBSVBIND__L23*/ meltfnum[14]));; MELT_LOCATION("warmelt-normal.melt:7400:/ cond"); - /*cond*/ if (/*_#exeqI__L24*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#exeqI__L24*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12917,7 +14138,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V63*/ meltfptr[62] = slot; + /*_.NAMED_NAME__V63*/ + meltfptr[62] = slot; }; ; @@ -12936,13 +14158,15 @@ meltlab_endgetargs: argtab[2].meltbp_long = /*_#NBSVBIND__L23*/ meltfnum[14]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V63*/ meltfptr[62]; - /*_.ERROR_AT__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V64*/ + meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7404:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:7404:/ locexp"); @@ -12957,23 +14181,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:7400:/ quasiblock"); - /*_.PROGN___V66*/ meltfptr[65] = /*_.RETURN___V65*/ meltfptr[64];; + /*_.PROGN___V66*/ + meltfptr[65] = /*_.RETURN___V65*/ meltfptr[64];; /*^compute*/ - /*_._IF___V62*/ meltfptr[58] = /*_.PROGN___V66*/ meltfptr[65];; + /*_._IF___V62*/ + meltfptr[58] = /*_.PROGN___V66*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7400:/ clear"); - /*clear*/ /*_.NAMED_NAME__V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_.NAMED_NAME__V63*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.ERROR_AT__V64*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V65*/ meltfptr[64] = 0 ; + /*clear*/ /*_.RETURN___V65*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.PROGN___V66*/ + meltfptr[65] = 0 ; } ; } @@ -12984,19 +14215,24 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V61*/ meltfptr[59] = /*_._IF___V62*/ meltfptr[58];; + /*_.LET___V61*/ + meltfptr[59] = /*_._IF___V62*/ meltfptr[58];; MELT_LOCATION("warmelt-normal.melt:7398:/ clear"); - /*clear*/ /*_#NBSVBIND__L23*/ meltfnum[14] = 0 ; + /*clear*/ /*_#NBSVBIND__L23*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_#exeqI__L24*/ meltfnum[9] = 0 ; + /*clear*/ /*_#exeqI__L24*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V62*/ meltfptr[58] = 0 ; + /*clear*/ /*_._IF___V62*/ + meltfptr[58] = 0 ; MELT_LOCATION("warmelt-normal.melt:7407:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V68*/ meltfptr[63] = + /*newclosure*/ /*_.LAMBDA___V68*/ + meltfptr[63] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_28*/ meltfrout->tabval[28])), (7)); ; /*^putclosedv*/ @@ -13041,7 +14277,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 6>= 0 && 6< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V68*/ meltfptr[63]))); ((meltclosure_ptr_t)/*_.LAMBDA___V68*/ meltfptr[63])->tabval[6] = (melt_ptr_t)(/*_.BODYENV__V24*/ meltfptr[23]); ; - /*_.LAMBDA___V67*/ meltfptr[62] = /*_.LAMBDA___V68*/ meltfptr[63];; + /*_.LAMBDA___V67*/ + meltfptr[62] = /*_.LAMBDA___V68*/ meltfptr[63];; MELT_CHECK_SIGNAL(); ; @@ -13054,7 +14291,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CITBFORM__V56*/ meltfptr[39]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V67*/ meltfptr[62]; - /*_.MULTIPLE_EVERY_BOTH__V69*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SVBIND__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_EVERY_BOTH__V69*/ + meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SVBIND__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -13077,7 +14315,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L25*/ meltfnum[14] = + /*_#MELT_NEED_DBG__L25*/ + meltfnum[14] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13086,7 +14325,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7451:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L25*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L25*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13123,16 +14363,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nsymocctup="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NSYMOCCTUP__V58*/ meltfptr[57]; - /*_.MELT_DEBUG_FUN__V71*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V71*/ + meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V70*/ meltfptr[65] = /*_.MELT_DEBUG_FUN__V71*/ meltfptr[58];; + /*_._IF___V70*/ + meltfptr[65] = /*_.MELT_DEBUG_FUN__V71*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7451:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L26*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L26*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V71*/ meltfptr[58] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V71*/ + meltfptr[58] = 0 ; } ; } @@ -13145,7 +14389,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7451:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13154,9 +14399,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L25*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L25*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V70*/ meltfptr[65] = 0 ; + /*clear*/ /*_._IF___V70*/ + meltfptr[65] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13197,7 +14444,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V74*/ meltfptr[73]; /*^multiapply.appl*/ - /*_.NBODY__V73*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBODY__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NBODY__V73*/ + meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBODY__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -13223,7 +14471,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L27*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L27*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13232,7 +14481,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7456:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L27*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L27*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13269,16 +14519,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbodbindings="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V74*/ meltfptr[73]; - /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V76*/ + meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V75*/ meltfptr[74] = /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75];; + /*_._IF___V75*/ + meltfptr[74] = /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7456:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L28*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L28*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V76*/ + meltfptr[75] = 0 ; } ; } @@ -13291,7 +14545,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7456:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13300,9 +14555,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L27*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L27*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V75*/ meltfptr[74] = 0 ; + /*clear*/ /*_._IF___V75*/ + meltfptr[74] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13330,7 +14587,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 3, "CITER_STATE"); - /*_.CITSTATE__V78*/ meltfptr[74] = slot; + /*_.CITSTATE__V78*/ + meltfptr[74] = slot; }; ; @@ -13353,7 +14611,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHECKSIGNAL*/ meltfrout->tabval[30])), (1), "CLASS_NREP_CHECKSIGNAL"); - /*_.INST__V81*/ meltfptr[80] = + /*_.INST__V81*/ + meltfptr[80] = newobj; }; ; @@ -13366,7 +14625,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V81*/ meltfptr[80], "newly made instance"); ; - /*_.NCHINT__V80*/ meltfptr[79] = /*_.INST__V81*/ meltfptr[80];; + /*_.NCHINT__V80*/ + meltfptr[79] = /*_.INST__V81*/ meltfptr[80];; MELT_CHECK_SIGNAL(); ; @@ -13378,7 +14638,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[31])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V83*/ meltfptr[82] = + /*_.INST__V83*/ + meltfptr[82] = newobj; }; ; @@ -13406,7 +14667,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V83*/ meltfptr[82], "newly made instance"); ; - /*_.CITSTBIND__V82*/ meltfptr[81] = /*_.INST__V83*/ meltfptr[82];; + /*_.CITSTBIND__V82*/ + meltfptr[81] = /*_.INST__V83*/ meltfptr[82];; MELT_CHECK_SIGNAL(); ; @@ -13418,7 +14680,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[33])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V85*/ meltfptr[84] = + /*_.INST__V85*/ + meltfptr[84] = newobj; }; ; @@ -13446,13 +14709,15 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V85*/ meltfptr[84], "newly made instance"); ; - /*_.CITSTOCC__V84*/ meltfptr[83] = /*_.INST__V85*/ meltfptr[84];; + /*_.CITSTOCC__V84*/ + meltfptr[83] = /*_.INST__V85*/ meltfptr[84];; MELT_LOCATION("warmelt-normal.melt:7471:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CITER_EXPBEFORE"); - /*_.CITEXPBEFORE__V86*/ meltfptr[85] = slot; + /*_.CITEXPBEFORE__V86*/ + meltfptr[85] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7472:/ getslot"); @@ -13460,19 +14725,23 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CITER_EXPAFTER"); - /*_.CITEXPAFTER__V87*/ meltfptr[86] = slot; + /*_.CITEXPAFTER__V87*/ + meltfptr[86] = slot; }; ; - /*_#plI__L29*/ meltfnum[14] = + /*_#plI__L29*/ + meltfnum[14] = ((10) + (/*_#NBCITBFORM__L20*/ meltfnum[8]));; /*^compute*/ - /*_.CITLOCMAP__V88*/ meltfptr[87] = + /*_.CITLOCMAP__V88*/ + meltfptr[87] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[34])), (/*_#plI__L29*/ meltfnum[14])));; MELT_LOCATION("warmelt-normal.melt:7475:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V90*/ meltfptr[89] = + /*newclosure*/ /*_.LAMBDA___V90*/ + meltfptr[89] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_40*/ meltfrout->tabval[40])), (1)); ; /*^putclosedv*/ @@ -13481,7 +14750,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V90*/ meltfptr[89]))); ((meltclosure_ptr_t)/*_.LAMBDA___V90*/ meltfptr[89])->tabval[0] = (melt_ptr_t)(/*_.CITLOCMAP__V88*/ meltfptr[87]); ; - /*_.CITEXPANDER__V89*/ meltfptr[88] = /*_.LAMBDA___V90*/ meltfptr[89];; + /*_.CITEXPANDER__V89*/ + meltfptr[88] = /*_.LAMBDA___V90*/ meltfptr[89];; { MELT_LOCATION("warmelt-normal.melt:7490:/ locexp"); @@ -13510,7 +14780,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L30*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L30*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13519,7 +14790,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7491:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L30*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L30*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13556,16 +14828,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nsymocctup="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NSYMOCCTUP__V58*/ meltfptr[57]; - /*_.MELT_DEBUG_FUN__V92*/ meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V92*/ + meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V91*/ meltfptr[90] = /*_.MELT_DEBUG_FUN__V92*/ meltfptr[91];; + /*_._IF___V91*/ + meltfptr[90] = /*_.MELT_DEBUG_FUN__V92*/ meltfptr[91];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7491:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L31*/ meltfnum[30] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L31*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V92*/ meltfptr[91] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V92*/ + meltfptr[91] = 0 ; } ; } @@ -13578,7 +14854,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7491:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13587,9 +14864,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L30*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L30*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V91*/ meltfptr[90] = 0 ; + /*clear*/ /*_._IF___V91*/ + meltfptr[90] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13613,7 +14892,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V94*/ meltfptr[90] = + /*newclosure*/ /*_.LAMBDA___V94*/ + meltfptr[90] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_42*/ meltfrout->tabval[42])), (1)); ; /*^putclosedv*/ @@ -13622,7 +14902,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V94*/ meltfptr[90]))); ((meltclosure_ptr_t)/*_.LAMBDA___V94*/ meltfptr[90])->tabval[0] = (melt_ptr_t)(/*_.CITLOCMAP__V88*/ meltfptr[87]); ; - /*_.LAMBDA___V93*/ meltfptr[91] = /*_.LAMBDA___V94*/ meltfptr[90];; + /*_.LAMBDA___V93*/ + meltfptr[91] = /*_.LAMBDA___V94*/ meltfptr[90];; MELT_CHECK_SIGNAL(); ; @@ -13635,7 +14916,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NARGS__V31*/ meltfptr[27]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V93*/ meltfptr[91]; - /*_.MULTIPLE_EVERY_BOTH__V95*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.STARFORMALS__V39*/ meltfptr[33]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_EVERY_BOTH__V95*/ + meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.STARFORMALS__V39*/ meltfptr[33]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -13658,7 +14940,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L32*/ meltfnum[30] = + /*_#MELT_NEED_DBG__L32*/ + meltfnum[30] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13667,7 +14950,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7499:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L32*/ meltfnum[30]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L32*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13704,16 +14988,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " citbform="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CITBFORM__V56*/ meltfptr[39]; - /*_.MELT_DEBUG_FUN__V97*/ meltfptr[96] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V97*/ + meltfptr[96] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V96*/ meltfptr[95] = /*_.MELT_DEBUG_FUN__V97*/ meltfptr[96];; + /*_._IF___V96*/ + meltfptr[95] = /*_.MELT_DEBUG_FUN__V97*/ meltfptr[96];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7499:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L33*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L33*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V97*/ meltfptr[96] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V97*/ + meltfptr[96] = 0 ; } ; } @@ -13726,7 +15014,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7499:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13735,9 +15024,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L32*/ meltfnum[30] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L32*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V96*/ meltfptr[95] = 0 ; + /*clear*/ /*_._IF___V96*/ + meltfptr[95] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13761,7 +15052,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V99*/ meltfptr[95] = + /*newclosure*/ /*_.LAMBDA___V99*/ + meltfptr[95] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_46*/ meltfrout->tabval[46])), (2)); ; /*^putclosedv*/ @@ -13776,7 +15068,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V99*/ meltfptr[95]))); ((meltclosure_ptr_t)/*_.LAMBDA___V99*/ meltfptr[95])->tabval[1] = (melt_ptr_t)(/*_.NSYMOCCTUP__V58*/ meltfptr[57]); ; - /*_.LAMBDA___V98*/ meltfptr[96] = /*_.LAMBDA___V99*/ meltfptr[95];; + /*_.LAMBDA___V98*/ + meltfptr[96] = /*_.LAMBDA___V99*/ meltfptr[95];; MELT_CHECK_SIGNAL(); ; @@ -13787,7 +15080,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V98*/ meltfptr[96]; - /*_.MULTIPLE_EVERY__V100*/ meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[43])), (melt_ptr_t)(/*_.CITBFORM__V56*/ meltfptr[39]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_EVERY__V100*/ + meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[43])), (melt_ptr_t)(/*_.CITBFORM__V56*/ meltfptr[39]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -13810,7 +15104,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L34*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L34*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13819,7 +15114,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7510:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L34*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L34*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13852,16 +15148,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_citeration citlocmap done"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CITLOCMAP__V88*/ meltfptr[87]; - /*_.MELT_DEBUG_FUN__V102*/ meltfptr[101] = 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__V102*/ + meltfptr[101] = 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___V101*/ meltfptr[100] = /*_.MELT_DEBUG_FUN__V102*/ meltfptr[101];; + /*_._IF___V101*/ + meltfptr[100] = /*_.MELT_DEBUG_FUN__V102*/ meltfptr[101];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7510:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L35*/ meltfnum[30] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L35*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V102*/ meltfptr[101] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V102*/ + meltfptr[101] = 0 ; } ; } @@ -13874,7 +15174,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7510:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13883,9 +15184,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L34*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L34*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V101*/ meltfptr[100] = 0 ; + /*clear*/ /*_._IF___V101*/ + meltfptr[100] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13946,7 +15249,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L36*/ meltfnum[30] = + /*_#MELT_NEED_DBG__L36*/ + meltfnum[30] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13955,7 +15259,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7514:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L36*/ meltfnum[30]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L36*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13992,16 +15297,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " chkafter="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CHKAFTER__V105*/ meltfptr[104]; - /*_.MELT_DEBUG_FUN__V107*/ meltfptr[106] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V107*/ + meltfptr[106] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V106*/ meltfptr[105] = /*_.MELT_DEBUG_FUN__V107*/ meltfptr[106];; + /*_._IF___V106*/ + meltfptr[105] = /*_.MELT_DEBUG_FUN__V107*/ meltfptr[106];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7514:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L37*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L37*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V107*/ meltfptr[106] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V107*/ + meltfptr[106] = 0 ; } ; } @@ -14014,7 +15323,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7514:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14023,9 +15333,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L36*/ meltfnum[30] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L36*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V106*/ meltfptr[105] = 0 ; + /*clear*/ /*_._IF___V106*/ + meltfptr[105] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14059,7 +15371,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CITERATION*/ meltfrout->tabval[47])), (8), "CLASS_NREP_CITERATION"); - /*_.INST__V110*/ meltfptr[109] = + /*_.INST__V110*/ + meltfptr[109] = newobj; }; ; @@ -14107,13 +15420,15 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V110*/ meltfptr[109], "newly made instance"); ; - /*_.NCITER__V109*/ meltfptr[105] = /*_.INST__V110*/ meltfptr[109];; + /*_.NCITER__V109*/ + meltfptr[105] = /*_.INST__V110*/ meltfptr[109];; MELT_LOCATION("warmelt-normal.melt:7527:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V111*/ meltfptr[110] = slot; + /*_.NAMED_NAME__V111*/ + meltfptr[110] = slot; }; ; @@ -14136,7 +15451,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[31])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V114*/ meltfptr[113] = + /*_.INST__V114*/ + meltfptr[113] = newobj; }; ; @@ -14164,7 +15480,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V114*/ meltfptr[113], "newly made instance"); ; - /*_.CBIND__V113*/ meltfptr[112] = /*_.INST__V114*/ meltfptr[113];; + /*_.CBIND__V113*/ + meltfptr[112] = /*_.INST__V114*/ meltfptr[113];; MELT_CHECK_SIGNAL(); ; @@ -14176,7 +15493,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[33])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V116*/ meltfptr[115] = + /*_.INST__V116*/ + meltfptr[115] = newobj; }; ; @@ -14204,7 +15522,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V116*/ meltfptr[115], "newly made instance"); ; - /*_.CLOCC__V115*/ meltfptr[114] = /*_.INST__V116*/ meltfptr[115];; + /*_.CLOCC__V115*/ + meltfptr[114] = /*_.INST__V116*/ meltfptr[115];; { MELT_LOCATION("warmelt-normal.melt:7539:/ locexp"); @@ -14215,7 +15534,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V118*/ meltfptr[117] = + /*newclosure*/ /*_.LAMBDA___V118*/ + meltfptr[117] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_49*/ meltfrout->tabval[49])), (1)); ; /*^putclosedv*/ @@ -14224,7 +15544,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V118*/ meltfptr[117]))); ((meltclosure_ptr_t)/*_.LAMBDA___V118*/ meltfptr[117])->tabval[0] = (melt_ptr_t)(/*_.SYCMAP__V25*/ meltfptr[24]); ; - /*_.LAMBDA___V117*/ meltfptr[116] = /*_.LAMBDA___V118*/ meltfptr[117];; + /*_.LAMBDA___V117*/ + meltfptr[116] = /*_.LAMBDA___V118*/ meltfptr[117];; MELT_CHECK_SIGNAL(); ; @@ -14235,7 +15556,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V117*/ meltfptr[116]; - /*_.LIST_EVERY__V119*/ meltfptr[118] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[48])), (melt_ptr_t)(/*_.UNCACHELIST__V26*/ meltfptr[25]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_EVERY__V119*/ + meltfptr[118] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[48])), (melt_ptr_t)(/*_.UNCACHELIST__V26*/ meltfptr[25]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -14258,7 +15580,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L38*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L38*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14267,7 +15590,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7544:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L38*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L38*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14308,16 +15632,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " nbindings="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V32*/ meltfptr[31]; - /*_.MELT_DEBUG_FUN__V121*/ meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V121*/ + meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V120*/ meltfptr[119] = /*_.MELT_DEBUG_FUN__V121*/ meltfptr[120];; + /*_._IF___V120*/ + meltfptr[119] = /*_.MELT_DEBUG_FUN__V121*/ meltfptr[120];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7544:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L39*/ meltfnum[30] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L39*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V121*/ meltfptr[120] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V121*/ + meltfptr[120] = 0 ; } ; } @@ -14330,7 +15658,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7544:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14339,9 +15668,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L38*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L38*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V120*/ meltfptr[119] = 0 ; + /*clear*/ /*_._IF___V120*/ + meltfptr[119] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14367,7 +15698,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7546:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V115*/ meltfptr[114];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V115*/ meltfptr[114];; MELT_LOCATION("warmelt-normal.melt:7546:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -14375,152 +15707,219 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V108*/ meltfptr[106] = /*_.RETURN___V122*/ meltfptr[120];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V108*/ + meltfptr[106] = /*_.RETURN___V122*/ meltfptr[120];; MELT_LOCATION("warmelt-normal.melt:7516:/ clear"); - /*clear*/ /*_.NCITER__V109*/ meltfptr[105] = 0 ; + /*clear*/ /*_.NCITER__V109*/ + meltfptr[105] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V111*/ meltfptr[110] = 0 ; + /*clear*/ /*_.NAMED_NAME__V111*/ + meltfptr[110] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V112*/ meltfptr[111] = 0 ; + /*clear*/ /*_.CSYM__V112*/ + meltfptr[111] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V113*/ meltfptr[112] = 0 ; + /*clear*/ /*_.CBIND__V113*/ + meltfptr[112] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V115*/ meltfptr[114] = 0 ; + /*clear*/ /*_.CLOCC__V115*/ + meltfptr[114] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V117*/ meltfptr[116] = 0 ; + /*clear*/ /*_.LAMBDA___V117*/ + meltfptr[116] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_EVERY__V119*/ meltfptr[118] = 0 ; + /*clear*/ /*_.LIST_EVERY__V119*/ + meltfptr[118] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V122*/ meltfptr[120] = 0 ; - /*_.LET___V103*/ meltfptr[101] = /*_.LET___V108*/ meltfptr[106];; + /*clear*/ /*_.RETURN___V122*/ + meltfptr[120] = 0 ; + /*_.LET___V103*/ + meltfptr[101] = /*_.LET___V108*/ meltfptr[106];; MELT_LOCATION("warmelt-normal.melt:7511:/ clear"); - /*clear*/ /*_.CHKBEFORE__V104*/ meltfptr[100] = 0 ; + /*clear*/ /*_.CHKBEFORE__V104*/ + meltfptr[100] = 0 ; /*^clear*/ - /*clear*/ /*_.CHKAFTER__V105*/ meltfptr[104] = 0 ; + /*clear*/ /*_.CHKAFTER__V105*/ + meltfptr[104] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V108*/ meltfptr[106] = 0 ; - /*_.LET___V77*/ meltfptr[75] = /*_.LET___V103*/ meltfptr[101];; + /*clear*/ /*_.LET___V108*/ + meltfptr[106] = 0 ; + /*_.LET___V77*/ + meltfptr[75] = /*_.LET___V103*/ meltfptr[101];; MELT_LOCATION("warmelt-normal.melt:7457:/ clear"); - /*clear*/ /*_.CITSTATE__V78*/ meltfptr[74] = 0 ; + /*clear*/ /*_.CITSTATE__V78*/ + meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.CITSTSYM__V79*/ meltfptr[78] = 0 ; + /*clear*/ /*_.CITSTSYM__V79*/ + meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHINT__V80*/ meltfptr[79] = 0 ; + /*clear*/ /*_.NCHINT__V80*/ + meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_.CITSTBIND__V82*/ meltfptr[81] = 0 ; + /*clear*/ /*_.CITSTBIND__V82*/ + meltfptr[81] = 0 ; /*^clear*/ - /*clear*/ /*_.CITSTOCC__V84*/ meltfptr[83] = 0 ; + /*clear*/ /*_.CITSTOCC__V84*/ + meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_.CITEXPBEFORE__V86*/ meltfptr[85] = 0 ; + /*clear*/ /*_.CITEXPBEFORE__V86*/ + meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_.CITEXPAFTER__V87*/ meltfptr[86] = 0 ; + /*clear*/ /*_.CITEXPAFTER__V87*/ + meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L29*/ meltfnum[14] = 0 ; + /*clear*/ /*_#plI__L29*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.CITLOCMAP__V88*/ meltfptr[87] = 0 ; + /*clear*/ /*_.CITLOCMAP__V88*/ + meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.CITEXPANDER__V89*/ meltfptr[88] = 0 ; + /*clear*/ /*_.CITEXPANDER__V89*/ + meltfptr[88] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V93*/ meltfptr[91] = 0 ; + /*clear*/ /*_.LAMBDA___V93*/ + meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V95*/ meltfptr[94] = 0 ; + /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V95*/ + meltfptr[94] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V98*/ meltfptr[96] = 0 ; + /*clear*/ /*_.LAMBDA___V98*/ + meltfptr[96] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_EVERY__V100*/ meltfptr[99] = 0 ; + /*clear*/ /*_.MULTIPLE_EVERY__V100*/ + meltfptr[99] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V103*/ meltfptr[101] = 0 ; + /*clear*/ /*_.LET___V103*/ + meltfptr[101] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V72*/ meltfptr[58] = /*_.LET___V77*/ meltfptr[75];; + /*_.MULTI___V72*/ + meltfptr[58] = /*_.LET___V77*/ meltfptr[75];; MELT_LOCATION("warmelt-normal.melt:7453:/ clear"); - /*clear*/ /*_.LET___V77*/ meltfptr[75] = 0 ; + /*clear*/ /*_.LET___V77*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.NBODBINDINGS__V74*/ meltfptr[73] = 0 ; - /*_.LET___V55*/ meltfptr[46] = /*_.MULTI___V72*/ meltfptr[58];; + /*clear*/ /*_.NBODBINDINGS__V74*/ + meltfptr[73] = 0 ; + /*_.LET___V55*/ + meltfptr[46] = /*_.MULTI___V72*/ meltfptr[58];; MELT_LOCATION("warmelt-normal.melt:7392:/ clear"); - /*clear*/ /*_.CITBFORM__V56*/ meltfptr[39] = 0 ; + /*clear*/ /*_.CITBFORM__V56*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_#NBCITBFORM__L20*/ meltfnum[8] = 0 ; + /*clear*/ /*_#NBCITBFORM__L20*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.NLOCBINDTUP__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.NLOCBINDTUP__V57*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.NSYMOCCTUP__V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.NSYMOCCTUP__V58*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V61*/ meltfptr[59] = 0 ; + /*clear*/ /*_.LET___V61*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V67*/ meltfptr[62] = 0 ; + /*clear*/ /*_.LAMBDA___V67*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V69*/ meltfptr[64] = 0 ; + /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V69*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V72*/ meltfptr[58] = 0 ; - /*_.LET___V38*/ meltfptr[34] = /*_.LET___V55*/ meltfptr[46];; + /*clear*/ /*_.MULTI___V72*/ + meltfptr[58] = 0 ; + /*_.LET___V38*/ + meltfptr[34] = /*_.LET___V55*/ meltfptr[46];; MELT_LOCATION("warmelt-normal.melt:7353:/ clear"); - /*clear*/ /*_.STARFORMALS__V39*/ meltfptr[33] = 0 ; + /*clear*/ /*_.STARFORMALS__V39*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V42*/ meltfptr[40] = 0 ; + /*clear*/ /*_.LET___V42*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V48*/ meltfptr[43] = 0 ; + /*clear*/ /*_.LAMBDA___V48*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V50*/ meltfptr[45] = 0 ; + /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V50*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V55*/ meltfptr[46] = 0 ; + /*clear*/ /*_.LET___V55*/ + meltfptr[46] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V30*/ meltfptr[28] = /*_.LET___V38*/ meltfptr[34];; + /*_.MULTI___V30*/ + meltfptr[28] = /*_.LET___V38*/ meltfptr[34];; MELT_LOCATION("warmelt-normal.melt:7348:/ clear"); - /*clear*/ /*_#NULL__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V38*/ meltfptr[34] = 0 ; + /*clear*/ /*_.LET___V38*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDINGS__V32*/ meltfptr[31] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.MULTI___V30*/ meltfptr[28];; + /*clear*/ /*_.NBINDINGS__V32*/ + meltfptr[31] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.MULTI___V30*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:7334:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SOPER__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SOPER__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SARGS__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SARGS__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.SVBIND__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.SVBIND__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.SBODY__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.SBODY__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.NBNDTUP__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.NBNDTUP__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.BODYENV__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.BODYENV__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.SYCMAP__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.SYCMAP__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.UNCACHELIST__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.UNCACHELIST__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.IFCPP___V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V30*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MULTI___V30*/ + meltfptr[28] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7329:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:7329:/ locexp"); @@ -14535,17 +15934,22 @@ 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*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -14627,7 +16031,8 @@ meltrout_131_WARMELTmiNORMAL_LAMBDA_cl32(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_131_WARMELTmiNORMAL_LAMBDA_cl32 fromline 1756 */ - /* classy proc frame meltrout_131_WARMELTmiNORMAL_LAMBDA_cl32 */ MeltFrame_meltrout_131_WARMELTmiNORMAL_LAMBDA_cl32 + /* classy proc frame meltrout_131_WARMELTmiNORMAL_LAMBDA_cl32 */ + MeltFrame_meltrout_131_WARMELTmiNORMAL_LAMBDA_cl32 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_131_WARMELTmiNORMAL_LAMBDA_cl32 fromline 1785*/ #if ENABLE_CHECKING @@ -14640,7 +16045,8 @@ meltrout_131_WARMELTmiNORMAL_LAMBDA_cl32(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl32", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -14650,19 +16056,22 @@ meltrout_131_WARMELTmiNORMAL_LAMBDA_cl32(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7363:/ getarg"); - /*_.CURNARG__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CURNARG__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.CURFORB__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.CURFORB__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.CURFORB__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#IX__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; + /*_#IX__L1*/ + meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -14692,7 +16101,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L2*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14701,7 +16111,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7364:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14742,16 +16153,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " ix="; /*^apply.arg*/ argtab[8].meltbp_long = /*_#IX__L1*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), 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-normal.melt:7364:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -14764,7 +16179,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7364:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14773,9 +16189,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14805,10 +16223,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[2] = + /*_#IS_A__L4*/ + meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.CURFORB__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:7365:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -14837,25 +16257,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7365; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURFORB__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7365:/ 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-normal.melt:7365:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14876,7 +16302,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~ENV*/ meltfclos->tabval[0]); - /*_.CURCTYP__V10*/ meltfptr[3] = meltgc_send((melt_ptr_t)(/*_.CURNARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CURCTYP__V10*/ + meltfptr[3] = meltgc_send((melt_ptr_t)(/*_.CURNARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7367:/ getslot"); @@ -14884,7 +16311,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFORB__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FORMCTYP__V11*/ meltfptr[10] = slot; + /*_.FORMCTYP__V11*/ + meltfptr[10] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7368:/ getslot"); @@ -14892,16 +16320,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFORB__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.FORMARG__V12*/ meltfptr[11] = slot; + /*_.FORMARG__V12*/ + meltfptr[11] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L5*/ meltfnum[1] = + /*_#eqeq__L5*/ + meltfnum[1] = ((/*_.CURCTYP__V10*/ meltfptr[3]) == (/*_.FORMCTYP__V11*/ meltfptr[10]));; MELT_LOCATION("warmelt-normal.melt:7370:/ cond"); - /*cond*/ if (/*_#eqeq__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#eqeq__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14922,7 +16353,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[4])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V15*/ meltfptr[14] = + /*_.INST__V15*/ + meltfptr[14] = newobj; }; ; @@ -14950,7 +16382,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V15*/ meltfptr[14], "newly made instance"); ; - /*_.NLBIND__V14*/ meltfptr[13] = /*_.INST__V15*/ meltfptr[14];; + /*_.NLBIND__V14*/ + meltfptr[13] = /*_.INST__V15*/ meltfptr[14];; @@ -14959,10 +16392,12 @@ meltlab_endgetargs: meltgc_multiple_put_nth((melt_ptr_t)((/*~NBNDTUP*/ meltfclos->tabval[2])), (/*_#IX__L1*/ meltfnum[0]), (melt_ptr_t)(/*_.NLBIND__V14*/ meltfptr[13])); } ; - /*clear*/ /*_._IFELSE___V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ + meltfptr[12] = 0 ; MELT_LOCATION("warmelt-normal.melt:7371:/ clear"); - /*clear*/ /*_.NLBIND__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.NLBIND__V14*/ + meltfptr[13] = 0 ; /*epilog*/ } ; @@ -14976,7 +16411,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7381:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORMARG__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ @@ -14987,7 +16423,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FORMARG__V12*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V16*/ meltfptr[13] = slot; + /*_.NAMED_NAME__V16*/ + meltfptr[13] = slot; }; ; } @@ -14998,7 +16435,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:7383:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V10*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ @@ -15009,7 +16447,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V10*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V17*/ meltfptr[16] = slot; + /*_.NAMED_NAME__V17*/ + meltfptr[16] = slot; }; ; } @@ -15020,7 +16459,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:7384:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORMCTYP__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ @@ -15031,7 +16471,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FORMCTYP__V11*/ meltfptr[10]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V18*/ meltfptr[17] = slot; + /*_.NAMED_NAME__V18*/ + meltfptr[17] = slot; }; ; } @@ -15046,7 +16487,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~SOPER*/ meltfclos->tabval[3])) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V19*/ meltfptr[18] = slot; + /*_.NAMED_NAME__V19*/ + meltfptr[18] = slot; }; ; @@ -15070,52 +16512,68 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V18*/ meltfptr[17]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V19*/ meltfptr[18]; - /*_.ERROR_AT__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[5])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[1])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V20*/ + meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[5])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[1])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7379:/ quasiblock"); - /*_.PROGN___V21*/ meltfptr[20] = /*_.ERROR_AT__V20*/ meltfptr[19];; + /*_.PROGN___V21*/ + meltfptr[20] = /*_.ERROR_AT__V20*/ meltfptr[19];; /*^compute*/ - /*_._IFELSE___V13*/ meltfptr[12] = /*_.PROGN___V21*/ meltfptr[20];; + /*_._IFELSE___V13*/ + meltfptr[12] = /*_.PROGN___V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7370:/ clear"); - /*clear*/ /*_.NAMED_NAME__V16*/ meltfptr[13] = 0 ; + /*clear*/ /*_.NAMED_NAME__V16*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.NAMED_NAME__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.NAMED_NAME__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.NAMED_NAME__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.ERROR_AT__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.PROGN___V21*/ + meltfptr[20] = 0 ; } ; } ; - /*_.LET___V9*/ meltfptr[7] = /*_._IFELSE___V13*/ meltfptr[12];; + /*_.LET___V9*/ + meltfptr[7] = /*_._IFELSE___V13*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:7366:/ clear"); - /*clear*/ /*_.CURCTYP__V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_.CURCTYP__V10*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.FORMCTYP__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.FORMCTYP__V11*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.FORMARG__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.FORMARG__V12*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#eqeq__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ + meltfptr[12] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7363:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; { MELT_LOCATION("warmelt-normal.melt:7363:/ locexp"); @@ -15130,13 +16588,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.LET___V9*/ + meltfptr[7] = 0 ; } ; @@ -15218,7 +16679,8 @@ meltrout_132_WARMELTmiNORMAL_LAMBDA_cl33(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_132_WARMELTmiNORMAL_LAMBDA_cl33 fromline 1756 */ - /* classy proc frame meltrout_132_WARMELTmiNORMAL_LAMBDA_cl33 */ MeltFrame_meltrout_132_WARMELTmiNORMAL_LAMBDA_cl33 + /* classy proc frame meltrout_132_WARMELTmiNORMAL_LAMBDA_cl33 */ + MeltFrame_meltrout_132_WARMELTmiNORMAL_LAMBDA_cl33 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_132_WARMELTmiNORMAL_LAMBDA_cl33 fromline 1785*/ #if ENABLE_CHECKING @@ -15231,7 +16693,8 @@ meltrout_132_WARMELTmiNORMAL_LAMBDA_cl33(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl33", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -15241,19 +16704,22 @@ meltrout_132_WARMELTmiNORMAL_LAMBDA_cl33(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7407:/ getarg"); - /*_.CURVBIND__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CURVBIND__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.CURBFORM__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.CURBFORM__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.CURBFORM__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#IX__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; + /*_#IX__L1*/ + meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -15283,7 +16749,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L2*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15292,7 +16759,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7408:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15333,16 +16801,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " ix="; /*^apply.arg*/ argtab[8].meltbp_long = /*_#IX__L1*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), 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-normal.melt:7408:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -15355,7 +16827,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7408:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15364,9 +16837,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15396,10 +16871,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[2] = + /*_#IS_A__L4*/ + meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.CURVBIND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:7410:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -15428,25 +16905,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7410; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURVBIND__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7410:/ 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-normal.melt:7410:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15464,10 +16947,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CURBFORM__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:7411:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -15496,25 +16981,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7411; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURBFORM__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 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__V11*/ + meltfptr[10] = 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___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-normal.melt:7411:/ 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-normal.melt:7411:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15530,7 +17021,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVBIND__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.CURVSYM__V13*/ meltfptr[3] = slot; + /*_.CURVSYM__V13*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7413:/ getslot"); @@ -15538,7 +17030,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVBIND__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.CURCTYP__V14*/ meltfptr[13] = slot; + /*_.CURCTYP__V14*/ + meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7414:/ getslot"); @@ -15546,7 +17039,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURBFORM__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.CURVFOR__V15*/ meltfptr[14] = slot; + /*_.CURVFOR__V15*/ + meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7415:/ getslot"); @@ -15554,16 +17048,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURBFORM__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FORCTYP__V16*/ meltfptr[15] = slot; + /*_.FORCTYP__V16*/ + meltfptr[15] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L6*/ meltfnum[2] = + /*_#eqeq__L6*/ + meltfnum[2] = ((/*_.CURCTYP__V14*/ meltfptr[13]) == (/*_.FORCTYP__V16*/ meltfptr[15]));; MELT_LOCATION("warmelt-normal.melt:7417:/ cond"); - /*cond*/ if (/*_#eqeq__L6*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#eqeq__L6*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15584,7 +17081,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[3])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V19*/ meltfptr[18] = + /*_.INST__V19*/ + meltfptr[18] = newobj; }; ; @@ -15612,7 +17110,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V19*/ meltfptr[18], "newly made instance"); ; - /*_.NLVBIND__V18*/ meltfptr[17] = /*_.INST__V19*/ meltfptr[18];; + /*_.NLVBIND__V18*/ + meltfptr[17] = /*_.INST__V19*/ meltfptr[18];; MELT_CHECK_SIGNAL(); ; @@ -15624,7 +17123,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[4])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V21*/ meltfptr[20] = + /*_.INST__V21*/ + meltfptr[20] = newobj; }; ; @@ -15652,7 +17152,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V21*/ meltfptr[20], "newly made instance"); ; - /*_.CLOCC__V20*/ meltfptr[19] = /*_.INST__V21*/ meltfptr[20];; + /*_.CLOCC__V20*/ + meltfptr[19] = /*_.INST__V21*/ meltfptr[20];; { MELT_LOCATION("warmelt-normal.melt:7430:/ locexp"); @@ -15685,7 +17186,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15694,7 +17196,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7432:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15727,16 +17230,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_citeration nlvbind"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NLVBIND__V18*/ meltfptr[17]; - /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 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__V23*/ + meltfptr[22] = 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___V22*/ meltfptr[21] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; + /*_._IF___V22*/ + meltfptr[21] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7432:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ + meltfptr[22] = 0 ; } ; } @@ -15749,7 +17256,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7432:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15758,9 +17266,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_._IF___V22*/ + meltfptr[21] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15808,7 +17318,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15817,7 +17328,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7438:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15854,16 +17366,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " clocc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V25*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V25*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V24*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[21];; + /*_._IF___V24*/ + meltfptr[22] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7438:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ + meltfptr[21] = 0 ; } ; } @@ -15876,7 +17392,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7438:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15885,9 +17402,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V24*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IF___V24*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15915,12 +17434,15 @@ meltlab_endgetargs: meltgc_append_list((melt_ptr_t)((/*~UNCACHELIST*/ meltfclos->tabval[4])), (melt_ptr_t)(/*_.CURVSYM__V13*/ meltfptr[3])); } ; - /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ + meltfptr[16] = 0 ; MELT_LOCATION("warmelt-normal.melt:7418:/ clear"); - /*clear*/ /*_.NLVBIND__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.NLVBIND__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.CLOCC__V20*/ + meltfptr[19] = 0 ; /*epilog*/ } ; @@ -15934,7 +17456,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7443:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORCTYP__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ @@ -15945,7 +17468,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FORCTYP__V16*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V26*/ meltfptr[21] = slot; + /*_.NAMED_NAME__V26*/ + meltfptr[21] = slot; }; ; } @@ -15956,7 +17480,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:7444:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ @@ -15967,7 +17492,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V27*/ meltfptr[22] = slot; + /*_.NAMED_NAME__V27*/ + meltfptr[22] = slot; }; ; } @@ -15978,7 +17504,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:7445:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVSYM__V13*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ @@ -15989,7 +17516,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVSYM__V13*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V28*/ meltfptr[17] = slot; + /*_.NAMED_NAME__V28*/ + meltfptr[17] = slot; }; ; } @@ -16004,7 +17532,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~SOPER*/ meltfclos->tabval[5])) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V29*/ meltfptr[19] = slot; + /*_.NAMED_NAME__V29*/ + meltfptr[19] = slot; }; ; @@ -16028,47 +17557,63 @@ meltlab_endgetargs: argtab[4].meltbp_long = /*_#IX__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V29*/ meltfptr[19]; - /*_.ERROR_AT__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[5])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[0])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V30*/ + meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[5])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[0])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7441:/ quasiblock"); - /*_.PROGN___V31*/ meltfptr[30] = /*_.ERROR_AT__V30*/ meltfptr[29];; + /*_.PROGN___V31*/ + meltfptr[30] = /*_.ERROR_AT__V30*/ meltfptr[29];; /*^compute*/ - /*_._IFELSE___V17*/ meltfptr[16] = /*_.PROGN___V31*/ meltfptr[30];; + /*_._IFELSE___V17*/ + meltfptr[16] = /*_.PROGN___V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7417:/ clear"); - /*clear*/ /*_.NAMED_NAME__V26*/ meltfptr[21] = 0 ; + /*clear*/ /*_.NAMED_NAME__V26*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V27*/ meltfptr[22] = 0 ; + /*clear*/ /*_.NAMED_NAME__V27*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V28*/ meltfptr[17] = 0 ; + /*clear*/ /*_.NAMED_NAME__V28*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V29*/ meltfptr[19] = 0 ; + /*clear*/ /*_.NAMED_NAME__V29*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.ERROR_AT__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.PROGN___V31*/ + meltfptr[30] = 0 ; } ; } ; - /*_.LET___V12*/ meltfptr[10] = /*_._IFELSE___V17*/ meltfptr[16];; + /*_.LET___V12*/ + meltfptr[10] = /*_._IFELSE___V17*/ meltfptr[16];; MELT_LOCATION("warmelt-normal.melt:7412:/ clear"); - /*clear*/ /*_.CURVSYM__V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.CURVSYM__V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.CURCTYP__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.CURCTYP__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.CURVFOR__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.CURVFOR__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.FORCTYP__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.FORCTYP__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L6*/ meltfnum[2] = 0 ; + /*clear*/ /*_#eqeq__L6*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ + meltfptr[16] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -16079,7 +17624,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURVBIND__V2*/ meltfptr[1]; - /*_.PUT_ENV__V32*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)((/*~BODYENV*/ meltfclos->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V32*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)((/*~BODYENV*/ meltfclos->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -16088,7 +17634,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7407:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V32*/ meltfptr[21];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.PUT_ENV__V32*/ meltfptr[21];; { MELT_LOCATION("warmelt-normal.melt:7407:/ locexp"); @@ -16103,17 +17650,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.LET___V12*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V32*/ meltfptr[21] = 0 ; + /*clear*/ /*_.PUT_ENV__V32*/ + meltfptr[21] = 0 ; } ; @@ -16195,7 +17747,8 @@ meltrout_133_WARMELTmiNORMAL_LAMBDA_cl34(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_133_WARMELTmiNORMAL_LAMBDA_cl34 fromline 1756 */ - /* classy proc frame meltrout_133_WARMELTmiNORMAL_LAMBDA_cl34 */ MeltFrame_meltrout_133_WARMELTmiNORMAL_LAMBDA_cl34 + /* classy proc frame meltrout_133_WARMELTmiNORMAL_LAMBDA_cl34 */ + MeltFrame_meltrout_133_WARMELTmiNORMAL_LAMBDA_cl34 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_133_WARMELTmiNORMAL_LAMBDA_cl34 fromline 1785*/ #if ENABLE_CHECKING @@ -16208,7 +17761,8 @@ meltrout_133_WARMELTmiNORMAL_LAMBDA_cl34(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl34", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -16218,7 +17772,8 @@ meltrout_133_WARMELTmiNORMAL_LAMBDA_cl34(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7475:/ getarg"); - /*_.XTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.XTUP__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -16248,7 +17803,8 @@ 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)) @@ -16257,7 +17813,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7476:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16290,16 +17847,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_citeration expanding xtup="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.XTUP__V2*/ meltfptr[1]; - /*_.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 ""), 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 ""), 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-normal.melt:7476:/ 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 ; } ; } @@ -16312,7 +17873,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7476:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -16321,9 +17883,11 @@ 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*/ @@ -16347,7 +17911,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V6*/ meltfptr[2] = + /*newclosure*/ /*_.LAMBDA___V6*/ + meltfptr[2] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ meltfrout->tabval[5])), (1)); ; /*^putclosedv*/ @@ -16356,7 +17921,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V6*/ meltfptr[2]))); ((meltclosure_ptr_t)/*_.LAMBDA___V6*/ meltfptr[2])->tabval[0] = (melt_ptr_t)((/*~CITLOCMAP*/ meltfclos->tabval[0])); ; - /*_.LAMBDA___V5*/ meltfptr[3] = /*_.LAMBDA___V6*/ meltfptr[2];; + /*_.LAMBDA___V5*/ + meltfptr[3] = /*_.LAMBDA___V6*/ meltfptr[2];; MELT_CHECK_SIGNAL(); ; @@ -16367,7 +17933,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V5*/ meltfptr[3]; - /*_.MULTIPLE_MAP__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.XTUP__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_MAP__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.XTUP__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -16376,7 +17943,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7475:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.MULTIPLE_MAP__V7*/ meltfptr[6];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.MULTIPLE_MAP__V7*/ meltfptr[6];; { MELT_LOCATION("warmelt-normal.melt:7475:/ locexp"); @@ -16391,13 +17959,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LAMBDA___V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.LAMBDA___V5*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_MAP__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MULTIPLE_MAP__V7*/ + meltfptr[6] = 0 ; } ; @@ -16479,7 +18050,8 @@ meltrout_134_WARMELTmiNORMAL_LAMBDA_cl35(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_134_WARMELTmiNORMAL_LAMBDA_cl35 fromline 1756 */ - /* classy proc frame meltrout_134_WARMELTmiNORMAL_LAMBDA_cl35 */ MeltFrame_meltrout_134_WARMELTmiNORMAL_LAMBDA_cl35 + /* classy proc frame meltrout_134_WARMELTmiNORMAL_LAMBDA_cl35 */ + MeltFrame_meltrout_134_WARMELTmiNORMAL_LAMBDA_cl35 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_134_WARMELTmiNORMAL_LAMBDA_cl35 fromline 1785*/ #if ENABLE_CHECKING @@ -16492,7 +18064,8 @@ meltrout_134_WARMELTmiNORMAL_LAMBDA_cl35(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl35", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -16502,12 +18075,14 @@ meltrout_134_WARMELTmiNORMAL_LAMBDA_cl35(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7479:/ getarg"); - /*_.CURELEM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CURELEM__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; + /*_#IX__L1*/ + meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -16520,10 +18095,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[1] = + /*_#IS_A__L2*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CURELEM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:7480:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16533,17 +18110,20 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7481:/ quasiblock"); - /*_.EXELEM__V5*/ meltfptr[4] = + /*_.EXELEM__V5*/ + meltfptr[4] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)((/*~CITLOCMAP*/ meltfclos->tabval[0])), (meltobject_ptr_t)(/*_.CURELEM__V2*/ meltfptr[1]));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L3*/ meltfnum[2] = + /*_#NULL__L3*/ + meltfnum[2] = (/*null*/(/*_.EXELEM__V5*/ meltfptr[4]) == NULL);; MELT_LOCATION("warmelt-normal.melt:7482:/ cond"); - /*cond*/ if (/*_#NULL__L3*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#NULL__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16570,7 +18150,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L4*/ meltfnum[3] = + /*_#MELT_NEED_DBG__L4*/ + meltfnum[3] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16579,7 +18160,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7483:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16612,16 +18194,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_citeration bad curelem"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURELEM__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[1])), (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[1])), (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-normal.melt:7483:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L5*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = 0 ; } ; } @@ -16634,7 +18220,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7483:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -16643,9 +18230,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[3] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L4*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16681,7 +18270,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if (/*_.EXELEM__V5*/ meltfptr[4]) /*then*/ + /*cond*/ + if (/*_.EXELEM__V5*/ meltfptr[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -16708,23 +18298,28 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7484; - /*_.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 ""), 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 ""), 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-normal.melt:7484:/ 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-normal.melt:7484:/ clear"); - /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16733,19 +18328,25 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V4*/ meltfptr[3] = /*_.EXELEM__V5*/ meltfptr[4];; + /*_.LET___V4*/ + meltfptr[3] = /*_.EXELEM__V5*/ meltfptr[4];; MELT_LOCATION("warmelt-normal.melt:7481:/ clear"); - /*clear*/ /*_.EXELEM__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.EXELEM__V5*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#NULL__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; - /*_._IFELSE___V3*/ meltfptr[2] = /*_.LET___V4*/ meltfptr[3];; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; + /*_._IFELSE___V3*/ + meltfptr[2] = /*_.LET___V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7480:/ clear"); - /*clear*/ /*_.LET___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.LET___V4*/ + meltfptr[3] = 0 ; } ; } @@ -16758,7 +18359,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7479:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V3*/ meltfptr[2];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_._IFELSE___V3*/ meltfptr[2];; { MELT_LOCATION("warmelt-normal.melt:7479:/ locexp"); @@ -16773,13 +18375,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_._IFELSE___V3*/ + meltfptr[2] = 0 ; } ; @@ -16861,7 +18466,8 @@ meltrout_135_WARMELTmiNORMAL_LAMBDA_cl36(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_135_WARMELTmiNORMAL_LAMBDA_cl36 fromline 1756 */ - /* classy proc frame meltrout_135_WARMELTmiNORMAL_LAMBDA_cl36 */ MeltFrame_meltrout_135_WARMELTmiNORMAL_LAMBDA_cl36 + /* classy proc frame meltrout_135_WARMELTmiNORMAL_LAMBDA_cl36 */ + MeltFrame_meltrout_135_WARMELTmiNORMAL_LAMBDA_cl36 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_135_WARMELTmiNORMAL_LAMBDA_cl36 fromline 1785*/ #if ENABLE_CHECKING @@ -16874,7 +18480,8 @@ meltrout_135_WARMELTmiNORMAL_LAMBDA_cl36(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl36", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -16884,19 +18491,22 @@ meltrout_135_WARMELTmiNORMAL_LAMBDA_cl36(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7495:/ getarg"); - /*_.CURVLOC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CURVLOC__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.CURNARG__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.CURNARG__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.CURNARG__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#IX__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; + /*_#IX__L1*/ + meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -16926,7 +18536,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L2*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16935,7 +18546,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7496:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16972,16 +18584,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " curnarg="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURNARG__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7496:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -16994,7 +18610,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7496:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -17003,9 +18620,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17030,7 +18649,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVLOC__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V6*/ meltfptr[4] = slot; + /*_.BINDER__V6*/ + meltfptr[4] = slot; }; ; @@ -17047,7 +18667,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7495:/ clear"); - /*clear*/ /*_.BINDER__V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.BINDER__V6*/ + meltfptr[4] = 0 ; } ; @@ -17129,7 +18750,8 @@ meltrout_136_WARMELTmiNORMAL_LAMBDA_cl37(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_136_WARMELTmiNORMAL_LAMBDA_cl37 fromline 1756 */ - /* classy proc frame meltrout_136_WARMELTmiNORMAL_LAMBDA_cl37 */ MeltFrame_meltrout_136_WARMELTmiNORMAL_LAMBDA_cl37 + /* classy proc frame meltrout_136_WARMELTmiNORMAL_LAMBDA_cl37 */ + MeltFrame_meltrout_136_WARMELTmiNORMAL_LAMBDA_cl37 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_136_WARMELTmiNORMAL_LAMBDA_cl37 fromline 1785*/ #if ENABLE_CHECKING @@ -17142,7 +18764,8 @@ meltrout_136_WARMELTmiNORMAL_LAMBDA_cl37(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl37", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -17152,12 +18775,14 @@ meltrout_136_WARMELTmiNORMAL_LAMBDA_cl37(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7503:/ getarg"); - /*_.CURFORMB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CURFORMB__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; + /*_#IX__L1*/ + meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -17177,10 +18802,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[1] = + /*_#IS_A__L2*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CURFORMB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:7504:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; @@ -17209,25 +18836,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7504; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURFORMB__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V4*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4];; + /*_._IFELSE___V4*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7504:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V5*/ + meltfptr[4] = 0 ; } ; } ; - /*_.IFCPP___V3*/ meltfptr[2] = /*_._IFELSE___V4*/ meltfptr[3];; + /*_.IFCPP___V3*/ + meltfptr[2] = /*_._IFELSE___V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7504:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17240,10 +18873,12 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFORMB__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V6*/ meltfptr[4] = slot; + /*_.BINDER__V6*/ + meltfptr[4] = slot; }; ; - /*_.MULTIPLE_NTH__V7*/ meltfptr[3] = + /*_.MULTIPLE_NTH__V7*/ + meltfptr[3] = (melt_multiple_nth((melt_ptr_t)((/*~NSYMOCCTUP*/ meltfclos->tabval[1])), (/*_#IX__L1*/ meltfnum[0])));; { @@ -17259,11 +18894,14 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7503:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_.IFCPP___V3*/ + meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.BINDER__V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_NTH__V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_.MULTIPLE_NTH__V7*/ + meltfptr[3] = 0 ; } ; @@ -17345,7 +18983,8 @@ meltrout_137_WARMELTmiNORMAL_LAMBDA_cl38(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_137_WARMELTmiNORMAL_LAMBDA_cl38 fromline 1756 */ - /* classy proc frame meltrout_137_WARMELTmiNORMAL_LAMBDA_cl38 */ MeltFrame_meltrout_137_WARMELTmiNORMAL_LAMBDA_cl38 + /* classy proc frame meltrout_137_WARMELTmiNORMAL_LAMBDA_cl38 */ + MeltFrame_meltrout_137_WARMELTmiNORMAL_LAMBDA_cl38 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_137_WARMELTmiNORMAL_LAMBDA_cl38 fromline 1785*/ #if ENABLE_CHECKING @@ -17358,7 +18997,8 @@ meltrout_137_WARMELTmiNORMAL_LAMBDA_cl38(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl38", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -17368,7 +19008,8 @@ meltrout_137_WARMELTmiNORMAL_LAMBDA_cl38(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7543:/ getarg"); - /*_.CSY__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CSY__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -17467,7 +19108,8 @@ meltrout_138_WARMELTmiNORMAL_NORMEXP_DEFCMATCHER(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_138_WARMELTmiNORMAL_NORMEXP_DEFCMATCHER fromline 1756 */ - /* classy proc frame meltrout_138_WARMELTmiNORMAL_NORMEXP_DEFCMATCHER */ MeltFrame_meltrout_138_WARMELTmiNORMAL_NORMEXP_DEFCMATCHER + /* classy proc frame meltrout_138_WARMELTmiNORMAL_NORMEXP_DEFCMATCHER */ + MeltFrame_meltrout_138_WARMELTmiNORMAL_NORMEXP_DEFCMATCHER meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_138_WARMELTmiNORMAL_NORMEXP_DEFCMATCHER fromline 1785*/ #if ENABLE_CHECKING @@ -17480,7 +19122,8 @@ meltrout_138_WARMELTmiNORMAL_NORMEXP_DEFCMATCHER(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("NORMEXP_DEFCMATCHER", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -17490,26 +19133,30 @@ meltrout_138_WARMELTmiNORMAL_NORMEXP_DEFCMATCHER(meltclosure_ptr_t meltclosp_, m /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7559:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__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; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -17541,7 +19188,8 @@ 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)) @@ -17550,7 +19198,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7560:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17589,16 +19238,20 @@ meltlab_endgetargs: argtab[6].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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-normal.melt:7560:/ 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 ; } ; } @@ -17611,7 +19264,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7560:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -17620,9 +19274,11 @@ 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*/ @@ -17652,10 +19308,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:7561:/ 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);; @@ -17684,25 +19342,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7561; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (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[3])), (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-normal.melt:7561:/ 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-normal.melt:7561:/ 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*/ @@ -17720,10 +19384,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:7562:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -17752,25 +19418,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7562; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7562:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7562:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17788,10 +19460,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:7563:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -17820,25 +19494,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7563; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (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[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7563:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7563:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17854,7 +19534,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7565:/ getslot"); @@ -17862,7 +19543,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); - /*_.SNAME__V19*/ meltfptr[18] = slot; + /*_.SNAME__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7566:/ getslot"); @@ -17870,7 +19552,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SFORMAL_ARGS"); - /*_.SFORMALS__V20*/ meltfptr[19] = slot; + /*_.SFORMALS__V20*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7567:/ quasiblock"); @@ -17881,7 +19564,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SCMATDEF_CMATCHER"); - /*_.CM__V22*/ meltfptr[21] = slot; + /*_.CM__V22*/ + meltfptr[21] = slot; }; ; @@ -17904,7 +19588,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -17913,7 +19598,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7568:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17946,16 +19632,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defcmatcher cmatcher"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CM__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V23*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; + /*_._IF___V23*/ + meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7568:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[23] = 0 ; } ; } @@ -17968,7 +19658,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7568:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -17977,9 +19668,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IF___V23*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18009,10 +19702,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L8*/ meltfnum[1] = + /*_#IS_A__L8*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CM__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normal.melt:7569:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V26*/ meltfptr[22] = (/*nil*/NULL);; @@ -18041,25 +19736,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7569; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CM__V22*/ meltfptr[21]; - /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V27*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V26*/ meltfptr[22] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];; + /*_._IFELSE___V26*/ + meltfptr[22] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7569:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/ + meltfptr[26] = 0 ; } ; } ; - /*_.IFCPP___V25*/ meltfptr[23] = /*_._IFELSE___V26*/ meltfptr[22];; + /*_.IFCPP___V25*/ + meltfptr[23] = /*_._IFELSE___V26*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7569:/ clear"); - /*clear*/ /*_#IS_A__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V26*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IFELSE___V26*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18068,13 +19769,17 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V21*/ meltfptr[20] = /*_.CM__V22*/ meltfptr[21];; + /*_.LET___V21*/ + meltfptr[20] = /*_.CM__V22*/ meltfptr[21];; MELT_LOCATION("warmelt-normal.melt:7567:/ clear"); - /*clear*/ /*_.CM__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.CM__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V25*/ meltfptr[23] = 0 ; - /*_.CMATCHER__V28*/ meltfptr[26] = /*_.LET___V21*/ meltfptr[20];; + /*clear*/ /*_.IFCPP___V25*/ + meltfptr[23] = 0 ; + /*_.CMATCHER__V28*/ + meltfptr[26] = /*_.LET___V21*/ meltfptr[20];; MELT_LOCATION("warmelt-normal.melt:7571:/ quasiblock"); @@ -18088,7 +19793,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SNAME__V19*/ meltfptr[18]; - /*_.B__V30*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.B__V30*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -18111,7 +19817,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18120,7 +19827,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7572:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18157,16 +19865,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "; sname="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SNAME__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V32*/ + meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V31*/ meltfptr[23] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; + /*_._IF___V31*/ + meltfptr[23] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7572:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ + meltfptr[31] = 0 ; } ; } @@ -18179,7 +19891,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7572:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18188,9 +19901,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V31*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V31*/ + meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18220,10 +19935,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L11*/ meltfnum[1] = + /*_#IS_A__L11*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.B__V30*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_CMATCHER_BINDING*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:7573:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V34*/ meltfptr[23] = (/*nil*/NULL);; @@ -18252,25 +19969,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7573; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.B__V30*/ meltfptr[21]; - /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V35*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V34*/ meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; + /*_._IFELSE___V34*/ + meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7573:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ + meltfptr[34] = 0 ; } ; } ; - /*_.IFCPP___V33*/ meltfptr[31] = /*_._IFELSE___V34*/ meltfptr[23];; + /*_.IFCPP___V33*/ + meltfptr[31] = /*_._IFELSE___V34*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7573:/ clear"); - /*clear*/ /*_#IS_A__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V34*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IFELSE___V34*/ + meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18279,25 +20002,32 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V29*/ meltfptr[22] = /*_.B__V30*/ meltfptr[21];; + /*_.LET___V29*/ + meltfptr[22] = /*_.B__V30*/ meltfptr[21];; MELT_LOCATION("warmelt-normal.melt:7571:/ clear"); - /*clear*/ /*_.B__V30*/ meltfptr[21] = 0 ; + /*clear*/ /*_.B__V30*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V33*/ meltfptr[31] = 0 ; - /*_.CMBIND__V36*/ meltfptr[34] = /*_.LET___V29*/ meltfptr[22];; + /*clear*/ /*_.IFCPP___V33*/ + meltfptr[31] = 0 ; + /*_.CMBIND__V36*/ + meltfptr[34] = /*_.LET___V29*/ meltfptr[22];; /*^compute*/ - /*_#OBJECT_LENGTH__L12*/ meltfnum[0] = + /*_#OBJECT_LENGTH__L12*/ + meltfnum[0] = ((long)melt_object_length((melt_ptr_t)(/*_.CMATCHER__V28*/ meltfptr[26])));; /*^compute*/ - /*_.SLOTUP__V37*/ meltfptr[23] = + /*_.SLOTUP__V37*/ + meltfptr[23] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (/*_#OBJECT_LENGTH__L12*/ meltfnum[0])));; MELT_LOCATION("warmelt-normal.melt:7576:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMATCHER__V28*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 2, "AMATCH_IN"); - /*_.INSCMA__V38*/ meltfptr[21] = slot; + /*_.INSCMA__V38*/ + meltfptr[21] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7577:/ getslot"); @@ -18305,7 +20035,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMATCHER__V28*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 3, "AMATCH_MATCHBIND"); - /*_.MBICMA__V39*/ meltfptr[31] = slot; + /*_.MBICMA__V39*/ + meltfptr[31] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7578:/ getslot"); @@ -18313,7 +20044,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMATCHER__V28*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 4, "AMATCH_OUT"); - /*_.OUTSCMA__V40*/ meltfptr[39] = slot; + /*_.OUTSCMA__V40*/ + meltfptr[39] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7579:/ getslot"); @@ -18321,7 +20053,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMATCHER__V28*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CMATCH_STATE"); - /*_.STATCMA__V41*/ meltfptr[40] = slot; + /*_.STATCMA__V41*/ + meltfptr[40] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7580:/ getslot"); @@ -18329,7 +20062,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMATCHER__V28*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CMATCH_EXPTEST"); - /*_.TESTCMA__V42*/ meltfptr[41] = slot; + /*_.TESTCMA__V42*/ + meltfptr[41] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7581:/ getslot"); @@ -18337,7 +20071,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMATCHER__V28*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 7, "CMATCH_EXPFILL"); - /*_.FILLCMA__V43*/ meltfptr[42] = slot; + /*_.FILLCMA__V43*/ + meltfptr[42] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7582:/ getslot"); @@ -18345,25 +20080,31 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMATCHER__V28*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 8, "CMATCH_EXPOPER"); - /*_.OPERCMA__V44*/ meltfptr[43] = slot; + /*_.OPERCMA__V44*/ + meltfptr[43] = slot; }; ; - /*_#MULTIPLE_LENGTH__L13*/ meltfnum[1] = + /*_#MULTIPLE_LENGTH__L13*/ + meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.INSCMA__V38*/ meltfptr[21])));; /*^compute*/ - /*_.INSTUP__V45*/ meltfptr[44] = + /*_.INSTUP__V45*/ + meltfptr[44] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (/*_#MULTIPLE_LENGTH__L13*/ meltfnum[1])));; /*^compute*/ - /*_#MULTIPLE_LENGTH__L14*/ meltfnum[13] = + /*_#MULTIPLE_LENGTH__L14*/ + meltfnum[13] = (melt_multiple_length((melt_ptr_t)(/*_.OUTSCMA__V40*/ meltfptr[39])));; /*^compute*/ - /*_.OUTSTUP__V46*/ meltfptr[45] = + /*_.OUTSTUP__V46*/ + meltfptr[45] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (/*_#MULTIPLE_LENGTH__L14*/ meltfnum[13])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7585:/ cond"); - /*cond*/ if (/*_.TESTCMA__V42*/ meltfptr[41]) /*then*/ + /*cond*/ + if (/*_.TESTCMA__V42*/ meltfptr[41]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18373,16 +20114,20 @@ meltlab_endgetargs: /*_#MULTIPLE_LENGTH__L15*/ meltfnum[14] = (melt_multiple_length((melt_ptr_t)(/*_.TESTCMA__V42*/ meltfptr[41])));; /*^compute*/ - /*_.MAKE_MULTIPLE__V48*/ meltfptr[47] = + /*_.MAKE_MULTIPLE__V48*/ + meltfptr[47] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (/*_#MULTIPLE_LENGTH__L15*/ meltfnum[14])));; /*^compute*/ - /*_.TESTTUP__V47*/ meltfptr[46] = /*_.MAKE_MULTIPLE__V48*/ meltfptr[47];; + /*_.TESTTUP__V47*/ + meltfptr[46] = /*_.MAKE_MULTIPLE__V48*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7585:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_MULTIPLE__V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.MAKE_MULTIPLE__V48*/ + meltfptr[47] = 0 ; } ; } @@ -18396,7 +20141,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7586:/ cond"); - /*cond*/ if (/*_.FILLCMA__V43*/ meltfptr[42]) /*then*/ + /*cond*/ + if (/*_.FILLCMA__V43*/ meltfptr[42]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18406,16 +20152,20 @@ meltlab_endgetargs: /*_#MULTIPLE_LENGTH__L16*/ meltfnum[14] = (melt_multiple_length((melt_ptr_t)(/*_.FILLCMA__V43*/ meltfptr[42])));; /*^compute*/ - /*_.MAKE_MULTIPLE__V50*/ meltfptr[49] = + /*_.MAKE_MULTIPLE__V50*/ + meltfptr[49] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (/*_#MULTIPLE_LENGTH__L16*/ meltfnum[14])));; /*^compute*/ - /*_.FILLTUP__V49*/ meltfptr[47] = /*_.MAKE_MULTIPLE__V50*/ meltfptr[49];; + /*_.FILLTUP__V49*/ + meltfptr[47] = /*_.MAKE_MULTIPLE__V50*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7586:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L16*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L16*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_MULTIPLE__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.MAKE_MULTIPLE__V50*/ + meltfptr[49] = 0 ; } ; } @@ -18429,7 +20179,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7587:/ cond"); - /*cond*/ if (/*_.OPERCMA__V44*/ meltfptr[43]) /*then*/ + /*cond*/ + if (/*_.OPERCMA__V44*/ meltfptr[43]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18439,16 +20190,20 @@ meltlab_endgetargs: /*_#MULTIPLE_LENGTH__L17*/ meltfnum[14] = (melt_multiple_length((melt_ptr_t)(/*_.OPERCMA__V44*/ meltfptr[43])));; /*^compute*/ - /*_.MAKE_MULTIPLE__V52*/ meltfptr[51] = + /*_.MAKE_MULTIPLE__V52*/ + meltfptr[51] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (/*_#MULTIPLE_LENGTH__L17*/ meltfnum[14])));; /*^compute*/ - /*_.OPERTUP__V51*/ meltfptr[49] = /*_.MAKE_MULTIPLE__V52*/ meltfptr[51];; + /*_.OPERTUP__V51*/ + meltfptr[49] = /*_.MAKE_MULTIPLE__V52*/ meltfptr[51];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7587:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L17*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L17*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_MULTIPLE__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.MAKE_MULTIPLE__V52*/ + meltfptr[51] = 0 ; } ; } @@ -18459,22 +20214,28 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#MULTIPLE_LENGTH__L18*/ meltfnum[14] = + /*_#MULTIPLE_LENGTH__L18*/ + meltfnum[14] = (melt_multiple_length((melt_ptr_t)(/*_.INSCMA__V38*/ meltfptr[21])));; /*^compute*/ - /*_#MULTIPLE_LENGTH__L19*/ meltfnum[18] = + /*_#MULTIPLE_LENGTH__L19*/ + meltfnum[18] = (melt_multiple_length((melt_ptr_t)(/*_.OUTSCMA__V40*/ meltfptr[39])));; /*^compute*/ - /*_#plI__L20*/ meltfnum[19] = + /*_#plI__L20*/ + meltfnum[19] = ((/*_#MULTIPLE_LENGTH__L18*/ meltfnum[14]) + (/*_#MULTIPLE_LENGTH__L19*/ meltfnum[18]));; /*^compute*/ - /*_#stI__L21*/ meltfnum[20] = + /*_#stI__L21*/ + meltfnum[20] = ((/*_#plI__L20*/ meltfnum[19]) * (2));; /*^compute*/ - /*_#plI__L22*/ meltfnum[21] = + /*_#plI__L22*/ + meltfnum[21] = ((5) + (/*_#stI__L21*/ meltfnum[20]));; /*^compute*/ - /*_.FORMSYMBMAP__V53*/ meltfptr[51] = + /*_.FORMSYMBMAP__V53*/ + meltfptr[51] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[10])), (/*_#plI__L22*/ meltfnum[21])));; MELT_CHECK_SIGNAL(); @@ -18493,7 +20254,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[13])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V54*/ + meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[13])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7594:/ getslot"); @@ -18501,7 +20263,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V55*/ meltfptr[54] = slot; + /*_.NAMED_NAME__V55*/ + meltfptr[54] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7591:/ quasiblock"); @@ -18512,7 +20275,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ meltfrout->tabval[11])), (6), "CLASS_NREP_DATASTRING"); - /*_.INST__V57*/ meltfptr[56] = + /*_.INST__V57*/ + meltfptr[56] = newobj; }; ; @@ -18535,7 +20299,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V57*/ meltfptr[56], "newly made instance"); ; - /*_.NAMSTRDATA__V56*/ meltfptr[55] = /*_.INST__V57*/ meltfptr[56];; + /*_.NAMSTRDATA__V56*/ + meltfptr[55] = /*_.INST__V57*/ meltfptr[56];; MELT_CHECK_SIGNAL(); ; @@ -18553,13 +20318,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "class_cmatcher"; - /*_.NORMAL_PREDEF__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[12])), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V58*/ + meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[12])), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_#OBJ_HASH__L23*/ meltfnum[22] = + /*_#OBJ_HASH__L23*/ + meltfnum[22] = (melt_obj_hash((melt_ptr_t)(/*_.CMATCHER__V28*/ meltfptr[26])));; /*^compute*/ - /*_.MAKE_INTEGERBOX__V59*/ meltfptr[58] = + /*_.MAKE_INTEGERBOX__V59*/ + meltfptr[58] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[15])), (/*_#OBJ_HASH__L23*/ meltfnum[22])));; MELT_LOCATION("warmelt-normal.melt:7595:/ quasiblock"); @@ -18569,7 +20337,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ meltfrout->tabval[14])), (9), "CLASS_NREP_DATAINSTANCE"); - /*_.INST__V61*/ meltfptr[60] = + /*_.INST__V61*/ + meltfptr[60] = newobj; }; ; @@ -18602,7 +20371,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V61*/ meltfptr[60], "newly made instance"); ; - /*_.INSDATA__V60*/ meltfptr[59] = /*_.INST__V61*/ meltfptr[60];; + /*_.INSDATA__V60*/ + meltfptr[59] = /*_.INST__V61*/ meltfptr[60];; MELT_CHECK_SIGNAL(); ; @@ -18613,7 +20383,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INSDATA__V60*/ meltfptr[59]; - /*_.ADD_NCTX_DATA__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V62*/ + meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -18626,10 +20397,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V56*/ meltfptr[55]; - /*_.ADD_NCTX_DATA__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V63*/ + meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L24*/ meltfnum[23] = + /*_#GET_INT__L24*/ + meltfnum[23] = (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ meltfrout->tabval[17]))));; { @@ -18655,7 +20428,8 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_FORMALS__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.INSCMA__V38*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_FORMALS__V64*/ + meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.INSCMA__V38*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7609:/ quasiblock"); @@ -18678,7 +20452,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V65*/ + meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7609:/ quasiblock"); @@ -18689,7 +20464,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[19])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V67*/ meltfptr[66] = + /*_.INST__V67*/ + meltfptr[66] = newobj; }; ; @@ -18717,7 +20493,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V67*/ meltfptr[66], "newly made instance"); ; - /*_.INSTUPDATA__V66*/ meltfptr[65] = /*_.INST__V67*/ meltfptr[66];; + /*_.INSTUPDATA__V66*/ + meltfptr[65] = /*_.INST__V67*/ meltfptr[66];; MELT_CHECK_SIGNAL(); ; @@ -18728,10 +20505,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INSTUPDATA__V66*/ meltfptr[65]; - /*_.ADD_NCTX_DATA__V68*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V68*/ + meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L25*/ meltfnum[24] = + /*_#GET_INT__L25*/ + meltfnum[24] = (melt_get_int((melt_ptr_t)((/*!AMATCH_IN*/ meltfrout->tabval[20]))));; { @@ -18741,13 +20520,17 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7609:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V65*/ meltfptr[64] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V65*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.INSTUPDATA__V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.INSTUPDATA__V66*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V68*/ meltfptr[67] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V68*/ + meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L25*/ meltfnum[24] = 0 ; + /*clear*/ /*_#GET_INT__L25*/ + meltfnum[24] = 0 ; MELT_LOCATION("warmelt-normal.melt:7620:/ quasiblock"); @@ -18767,10 +20550,12 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.MBDATA__V69*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALBIND*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.MBICMA__V39*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MBDATA__V69*/ + meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALBIND*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.MBICMA__V39*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L26*/ meltfnum[24] = + /*_#GET_INT__L26*/ + meltfnum[24] = (melt_get_int((melt_ptr_t)((/*!AMATCH_MATCHBIND*/ meltfrout->tabval[22]))));; { @@ -18780,9 +20565,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7620:/ clear"); - /*clear*/ /*_.MBDATA__V69*/ meltfptr[64] = 0 ; + /*clear*/ /*_.MBDATA__V69*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L26*/ meltfnum[24] = 0 ; + /*clear*/ /*_#GET_INT__L26*/ + meltfnum[24] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -18801,7 +20588,8 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_FORMALS__V70*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.OUTSCMA__V40*/ meltfptr[39]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_FORMALS__V70*/ + meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.OUTSCMA__V40*/ meltfptr[39]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7626:/ quasiblock"); @@ -18824,7 +20612,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V71*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V71*/ + meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7626:/ quasiblock"); @@ -18835,7 +20624,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[19])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V73*/ meltfptr[72] = + /*_.INST__V73*/ + meltfptr[72] = newobj; }; ; @@ -18863,7 +20653,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V73*/ meltfptr[72], "newly made instance"); ; - /*_.OUTSTUPDATA__V72*/ meltfptr[64] = /*_.INST__V73*/ meltfptr[72];; + /*_.OUTSTUPDATA__V72*/ + meltfptr[64] = /*_.INST__V73*/ meltfptr[72];; MELT_CHECK_SIGNAL(); ; @@ -18874,10 +20665,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTSTUPDATA__V72*/ meltfptr[64]; - /*_.ADD_NCTX_DATA__V74*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V74*/ + meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L27*/ meltfnum[24] = + /*_#GET_INT__L27*/ + meltfnum[24] = (melt_get_int((melt_ptr_t)((/*!AMATCH_OUT*/ meltfrout->tabval[23]))));; { @@ -18887,13 +20680,17 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7626:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V71*/ meltfptr[67] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V71*/ + meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTSTUPDATA__V72*/ meltfptr[64] = 0 ; + /*clear*/ /*_.OUTSTUPDATA__V72*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V74*/ meltfptr[73] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V74*/ + meltfptr[73] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L27*/ meltfnum[24] = 0 ; + /*clear*/ /*_#GET_INT__L27*/ + meltfnum[24] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:7637:/ cppif.then"); @@ -18904,10 +20701,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L28*/ meltfnum[24] = + /*_#IS_A__L28*/ + meltfnum[24] = melt_is_instance_of((melt_ptr_t)(/*_.STATCMA__V41*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[24])));; MELT_LOCATION("warmelt-normal.melt:7637:/ cond"); - /*cond*/ if (/*_#IS_A__L28*/ meltfnum[24]) /*then*/ + /*cond*/ + if (/*_#IS_A__L28*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V76*/ meltfptr[64] = (/*nil*/NULL);; @@ -18936,25 +20735,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7637; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.STATCMA__V41*/ meltfptr[40]; - /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V77*/ + meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V76*/ meltfptr[64] = /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[73];; + /*_._IFELSE___V76*/ + meltfptr[64] = /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[73];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7637:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[73] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V77*/ + meltfptr[73] = 0 ; } ; } ; - /*_.IFCPP___V75*/ meltfptr[67] = /*_._IFELSE___V76*/ meltfptr[64];; + /*_.IFCPP___V75*/ + meltfptr[67] = /*_._IFELSE___V76*/ meltfptr[64];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7637:/ clear"); - /*clear*/ /*_#IS_A__L28*/ meltfnum[24] = 0 ; + /*clear*/ /*_#IS_A__L28*/ + meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V76*/ meltfptr[64] = 0 ; + /*clear*/ /*_._IFELSE___V76*/ + meltfptr[64] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18977,10 +20782,12 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.NSTATCMADATA__V78*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.STATCMA__V41*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NSTATCMADATA__V78*/ + meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.STATCMA__V41*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L29*/ meltfnum[24] = + /*_#GET_INT__L29*/ + meltfnum[24] = (melt_get_int((melt_ptr_t)((/*!CMATCH_STATE*/ meltfrout->tabval[26]))));; { @@ -18990,16 +20797,20 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7638:/ clear"); - /*clear*/ /*_.NSTATCMADATA__V78*/ meltfptr[73] = 0 ; + /*clear*/ /*_.NSTATCMADATA__V78*/ + meltfptr[73] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L29*/ meltfnum[24] = 0 ; + /*clear*/ /*_#GET_INT__L29*/ + meltfnum[24] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L30*/ meltfnum[24] = + /*_#IS_MULTIPLE__L30*/ + meltfnum[24] = (melt_magic_discr((melt_ptr_t)(/*_.TESTCMA__V42*/ meltfptr[41])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-normal.melt:7643:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L30*/ meltfnum[24]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L30*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19020,7 +20831,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_EXPANSION__V79*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.TESTCMA__V42*/ meltfptr[41]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_EXPANSION__V79*/ + meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.TESTCMA__V42*/ meltfptr[41]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7645:/ quasiblock"); @@ -19043,7 +20855,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V80*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V80*/ + meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7645:/ quasiblock"); @@ -19054,7 +20867,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[19])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V82*/ meltfptr[81] = + /*_.INST__V82*/ + meltfptr[81] = newobj; }; ; @@ -19082,7 +20896,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V82*/ meltfptr[81], "newly made instance"); ; - /*_.NTESTTUPDATA__V81*/ meltfptr[80] = /*_.INST__V82*/ meltfptr[81];; + /*_.NTESTTUPDATA__V81*/ + meltfptr[80] = /*_.INST__V82*/ meltfptr[81];; MELT_CHECK_SIGNAL(); ; @@ -19093,10 +20908,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NTESTTUPDATA__V81*/ meltfptr[80]; - /*_.ADD_NCTX_DATA__V83*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V83*/ + meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L31*/ meltfnum[30] = + /*_#GET_INT__L31*/ + meltfnum[30] = (melt_get_int((melt_ptr_t)((/*!CMATCH_EXPTEST*/ meltfrout->tabval[28]))));; { @@ -19106,20 +20923,25 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7645:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V80*/ meltfptr[73] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V80*/ + meltfptr[73] = 0 ; /*^clear*/ - /*clear*/ /*_.NTESTTUPDATA__V81*/ meltfptr[80] = 0 ; + /*clear*/ /*_.NTESTTUPDATA__V81*/ + meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V83*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L31*/ meltfnum[30] = 0 ; + /*clear*/ /*_#GET_INT__L31*/ + meltfnum[30] = 0 ; MELT_LOCATION("warmelt-normal.melt:7643:/ quasiblock"); /*epilog*/ /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_EXPANSION__V79*/ meltfptr[64] = 0 ; + /*clear*/ /*_.FILL_NORMAL_EXPANSION__V79*/ + meltfptr[64] = 0 ; } ; } /*noelse*/ @@ -19127,10 +20949,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L32*/ meltfnum[30] = + /*_#IS_MULTIPLE__L32*/ + meltfnum[30] = (melt_magic_discr((melt_ptr_t)(/*_.FILLCMA__V43*/ meltfptr[42])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-normal.melt:7656:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L32*/ meltfnum[30]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L32*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19151,7 +20975,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_EXPANSION__V84*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.FILLCMA__V43*/ meltfptr[42]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_EXPANSION__V84*/ + meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.FILLCMA__V43*/ meltfptr[42]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7658:/ quasiblock"); @@ -19174,7 +20999,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V85*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V85*/ + meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7658:/ quasiblock"); @@ -19185,7 +21011,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[19])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V87*/ meltfptr[64] = + /*_.INST__V87*/ + meltfptr[64] = newobj; }; ; @@ -19213,7 +21040,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V87*/ meltfptr[64], "newly made instance"); ; - /*_.NFILLTUPDATA__V86*/ meltfptr[82] = /*_.INST__V87*/ meltfptr[64];; + /*_.NFILLTUPDATA__V86*/ + meltfptr[82] = /*_.INST__V87*/ meltfptr[64];; MELT_CHECK_SIGNAL(); ; @@ -19224,10 +21052,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NFILLTUPDATA__V86*/ meltfptr[82]; - /*_.ADD_NCTX_DATA__V88*/ meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V88*/ + meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L33*/ meltfnum[32] = + /*_#GET_INT__L33*/ + meltfnum[32] = (melt_get_int((melt_ptr_t)((/*!CMATCH_EXPFILL*/ meltfrout->tabval[29]))));; { @@ -19237,20 +21067,25 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7658:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V85*/ meltfptr[80] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V85*/ + meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_.NFILLTUPDATA__V86*/ meltfptr[82] = 0 ; + /*clear*/ /*_.NFILLTUPDATA__V86*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V88*/ meltfptr[87] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V88*/ + meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L33*/ meltfnum[32] = 0 ; + /*clear*/ /*_#GET_INT__L33*/ + meltfnum[32] = 0 ; MELT_LOCATION("warmelt-normal.melt:7656:/ quasiblock"); /*epilog*/ /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_EXPANSION__V84*/ meltfptr[73] = 0 ; + /*clear*/ /*_.FILL_NORMAL_EXPANSION__V84*/ + meltfptr[73] = 0 ; } ; } /*noelse*/ @@ -19258,10 +21093,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L34*/ meltfnum[32] = + /*_#IS_MULTIPLE__L34*/ + meltfnum[32] = (melt_magic_discr((melt_ptr_t)(/*_.OPERCMA__V44*/ meltfptr[43])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-normal.melt:7669:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L34*/ meltfnum[32]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L34*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19282,7 +21119,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_EXPANSION__V89*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.OPERCMA__V44*/ meltfptr[43]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_EXPANSION__V89*/ + meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.OPERCMA__V44*/ meltfptr[43]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7671:/ quasiblock"); @@ -19305,7 +21143,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V90*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V90*/ + meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7671:/ quasiblock"); @@ -19316,7 +21155,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[19])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V92*/ meltfptr[73] = + /*_.INST__V92*/ + meltfptr[73] = newobj; }; ; @@ -19344,7 +21184,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V92*/ meltfptr[73], "newly made instance"); ; - /*_.NOPERTUPDATA__V91*/ meltfptr[87] = /*_.INST__V92*/ meltfptr[73];; + /*_.NOPERTUPDATA__V91*/ + meltfptr[87] = /*_.INST__V92*/ meltfptr[73];; MELT_CHECK_SIGNAL(); ; @@ -19355,10 +21196,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NOPERTUPDATA__V91*/ meltfptr[87]; - /*_.ADD_NCTX_DATA__V93*/ meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V93*/ + meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L35*/ meltfnum[34] = + /*_#GET_INT__L35*/ + meltfnum[34] = (melt_get_int((melt_ptr_t)((/*!CMATCH_EXPOPER*/ meltfrout->tabval[30]))));; { @@ -19368,20 +21211,25 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7671:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V90*/ meltfptr[82] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V90*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.NOPERTUPDATA__V91*/ meltfptr[87] = 0 ; + /*clear*/ /*_.NOPERTUPDATA__V91*/ + meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V93*/ meltfptr[92] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V93*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L35*/ meltfnum[34] = 0 ; + /*clear*/ /*_#GET_INT__L35*/ + meltfnum[34] = 0 ; MELT_LOCATION("warmelt-normal.melt:7669:/ quasiblock"); /*epilog*/ /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_EXPANSION__V89*/ meltfptr[80] = 0 ; + /*clear*/ /*_.FILL_NORMAL_EXPANSION__V89*/ + meltfptr[80] = 0 ; } ; } /*noelse*/ @@ -19390,7 +21238,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7682:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMBIND__V36*/ meltfptr[34]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ meltfrout->tabval[31]))) ) /*then*/ @@ -19437,7 +21286,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L36*/ meltfnum[34] = + /*_#MELT_NEED_DBG__L36*/ + meltfnum[34] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19446,7 +21296,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7684:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L36*/ meltfnum[34]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L36*/ meltfnum[34]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19479,16 +21330,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defcmatcher return insdata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.INSDATA__V60*/ meltfptr[59]; - /*_.MELT_DEBUG_FUN__V95*/ meltfptr[87] = 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__V95*/ + meltfptr[87] = 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___V94*/ meltfptr[82] = /*_.MELT_DEBUG_FUN__V95*/ meltfptr[87];; + /*_._IF___V94*/ + meltfptr[82] = /*_.MELT_DEBUG_FUN__V95*/ meltfptr[87];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7684:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L37*/ meltfnum[36] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L37*/ + meltfnum[36] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V95*/ meltfptr[87] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V95*/ + meltfptr[87] = 0 ; } ; } @@ -19501,7 +21356,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7684:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19510,9 +21366,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L36*/ meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L36*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V94*/ meltfptr[82] = 0 ; + /*clear*/ /*_._IF___V94*/ + meltfptr[82] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19538,7 +21396,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7685:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.INSDATA__V60*/ meltfptr[59];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.INSDATA__V60*/ meltfptr[59];; MELT_LOCATION("warmelt-normal.melt:7685:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -19546,108 +21405,157 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V17*/ meltfptr[15] = /*_.RETURN___V96*/ meltfptr[92];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V17*/ + meltfptr[15] = /*_.RETURN___V96*/ meltfptr[92];; MELT_LOCATION("warmelt-normal.melt:7564:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SNAME__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SNAME__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SFORMALS__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SFORMALS__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.LET___V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.CMATCHER__V28*/ meltfptr[26] = 0 ; + /*clear*/ /*_.CMATCHER__V28*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V29*/ meltfptr[22] = 0 ; + /*clear*/ /*_.LET___V29*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CMBIND__V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_.CMBIND__V36*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_#OBJECT_LENGTH__L12*/ meltfnum[0] = 0 ; + /*clear*/ /*_#OBJECT_LENGTH__L12*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.SLOTUP__V37*/ meltfptr[23] = 0 ; + /*clear*/ /*_.SLOTUP__V37*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.INSCMA__V38*/ meltfptr[21] = 0 ; + /*clear*/ /*_.INSCMA__V38*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.MBICMA__V39*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MBICMA__V39*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTSCMA__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.OUTSCMA__V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.STATCMA__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.STATCMA__V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTCMA__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.TESTCMA__V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.FILLCMA__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.FILLCMA__V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.OPERCMA__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.OPERCMA__V44*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L13*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L13*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.INSTUP__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.INSTUP__V45*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTSTUP__V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.OUTSTUP__V46*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTTUP__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.TESTTUP__V47*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.FILLTUP__V49*/ meltfptr[47] = 0 ; + /*clear*/ /*_.FILLTUP__V49*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.OPERTUP__V51*/ meltfptr[49] = 0 ; + /*clear*/ /*_.OPERTUP__V51*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L18*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L18*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L19*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L20*/ meltfnum[19] = 0 ; + /*clear*/ /*_#plI__L20*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_#stI__L21*/ meltfnum[20] = 0 ; + /*clear*/ /*_#stI__L21*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L22*/ meltfnum[21] = 0 ; + /*clear*/ /*_#plI__L22*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_.FORMSYMBMAP__V53*/ meltfptr[51] = 0 ; + /*clear*/ /*_.FORMSYMBMAP__V53*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V54*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.NAMED_NAME__V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMSTRDATA__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.NAMSTRDATA__V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V58*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_#OBJ_HASH__L23*/ meltfnum[22] = 0 ; + /*clear*/ /*_#OBJ_HASH__L23*/ + meltfnum[22] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V59*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.INSDATA__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.INSDATA__V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V62*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V63*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L24*/ meltfnum[23] = 0 ; + /*clear*/ /*_#GET_INT__L24*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_FORMALS__V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.FILL_NORMAL_FORMALS__V64*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_FORMALS__V70*/ meltfptr[65] = 0 ; + /*clear*/ /*_.FILL_NORMAL_FORMALS__V70*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V75*/ meltfptr[67] = 0 ; + /*clear*/ /*_.IFCPP___V75*/ + meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_MULTIPLE__L30*/ meltfnum[24] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L30*/ + meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_MULTIPLE__L32*/ meltfnum[30] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L32*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_MULTIPLE__L34*/ meltfnum[32] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L34*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V96*/ meltfptr[92] = 0 ; + /*clear*/ /*_.RETURN___V96*/ + meltfptr[92] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7559:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:7559:/ locexp"); @@ -19662,17 +21570,22 @@ 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*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -19754,7 +21667,8 @@ meltrout_139_WARMELTmiNORMAL_NORMEXP_DEFUNMATCHER(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_139_WARMELTmiNORMAL_NORMEXP_DEFUNMATCHER fromline 1756 */ - /* classy proc frame meltrout_139_WARMELTmiNORMAL_NORMEXP_DEFUNMATCHER */ MeltFrame_meltrout_139_WARMELTmiNORMAL_NORMEXP_DEFUNMATCHER + /* classy proc frame meltrout_139_WARMELTmiNORMAL_NORMEXP_DEFUNMATCHER */ + MeltFrame_meltrout_139_WARMELTmiNORMAL_NORMEXP_DEFUNMATCHER meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_139_WARMELTmiNORMAL_NORMEXP_DEFUNMATCHER fromline 1785*/ #if ENABLE_CHECKING @@ -19767,7 +21681,8 @@ meltrout_139_WARMELTmiNORMAL_NORMEXP_DEFUNMATCHER(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("NORMEXP_DEFUNMATCHER", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -19777,26 +21692,30 @@ meltrout_139_WARMELTmiNORMAL_NORMEXP_DEFUNMATCHER(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7694:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__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; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -19828,7 +21747,8 @@ 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)) @@ -19837,7 +21757,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7695:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19870,16 +21791,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defunmatcher start recv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7695:/ 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 ; } ; } @@ -19892,7 +21817,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7695:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19901,9 +21827,11 @@ 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*/ @@ -19933,10 +21861,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFUNMATCHER*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:7696:/ 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);; @@ -19965,25 +21895,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7696; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7696:/ 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-normal.melt:7696:/ 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*/ @@ -20001,10 +21937,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:7697:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -20031,25 +21969,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7697; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7697:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7697:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20067,10 +22011,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:7698:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -20097,25 +22043,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7698; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7698:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7698:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20131,7 +22083,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7700:/ getslot"); @@ -20139,11 +22092,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); - /*_.SNAME__V19*/ meltfptr[18] = slot; + /*_.SNAME__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7701:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION_FORMAL*/ meltfrout->tabval[5]))) ) /*then*/ @@ -20154,7 +22109,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SFORMAL_ARGS"); - /*_.SFORMAL_ARGS__V20*/ meltfptr[19] = slot; + /*_.SFORMAL_ARGS__V20*/ + meltfptr[19] = slot; }; ; } @@ -20165,14 +22121,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.SMATCHED__V21*/ meltfptr[20] = + /*_.SMATCHED__V21*/ + meltfptr[20] = (melt_multiple_nth((melt_ptr_t)(/*_.SFORMAL_ARGS__V20*/ meltfptr[19]), (0)));; MELT_LOCATION("warmelt-normal.melt:7702:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SFUMATDEF_INS"); - /*_.SINS__V22*/ meltfptr[21] = slot; + /*_.SINS__V22*/ + meltfptr[21] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7703:/ getslot"); @@ -20180,7 +22138,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "SFUMATDEF_OUTS"); - /*_.SOUTS__V23*/ meltfptr[22] = slot; + /*_.SOUTS__V23*/ + meltfptr[22] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7704:/ getslot"); @@ -20188,7 +22147,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 7, "SFUMATDEF_MATCHF"); - /*_.SMATCHF__V24*/ meltfptr[23] = slot; + /*_.SMATCHF__V24*/ + meltfptr[23] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7705:/ getslot"); @@ -20196,7 +22156,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 8, "SFUMATDEF_APPLYF"); - /*_.SAPPLYF__V25*/ meltfptr[24] = slot; + /*_.SAPPLYF__V25*/ + meltfptr[24] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7706:/ getslot"); @@ -20204,17 +22165,21 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 9, "SFUMATDEF_DATA"); - /*_.SDATA__V26*/ meltfptr[25] = slot; + /*_.SDATA__V26*/ + meltfptr[25] = slot; }; ; - /*_.RESBINDS__V27*/ meltfptr[26] = + /*_.RESBINDS__V27*/ + meltfptr[26] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));; /*^compute*/ - /*_.INSFMA__V28*/ meltfptr[27] = + /*_.INSFMA__V28*/ + meltfptr[27] = meltgc_new_subseq_multiple((melt_ptr_t)(/*_.SINS__V22*/ meltfptr[21]), (int)(1), (int)(-1)) ;; /*^compute*/ - /*_.MBIFMA__V29*/ meltfptr[28] = + /*_.MBIFMA__V29*/ + meltfptr[28] = (melt_multiple_nth((melt_ptr_t)(/*_.SINS__V22*/ meltfptr[21]), (0)));; MELT_LOCATION("warmelt-normal.melt:7710:/ quasiblock"); @@ -20229,7 +22194,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SNAME__V19*/ meltfptr[18]; - /*_.B__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.B__V31*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -20252,7 +22218,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20261,7 +22228,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7711:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20294,16 +22262,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defunmatcher fmbind"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.B__V31*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 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__V33*/ + meltfptr[32] = 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___V32*/ meltfptr[31] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; + /*_._IF___V32*/ + meltfptr[31] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7711:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[32] = 0 ; } ; } @@ -20316,7 +22288,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7711:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20325,9 +22298,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IF___V32*/ + meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20357,10 +22332,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L8*/ meltfnum[1] = + /*_#IS_A__L8*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.B__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_FUNMATCHER_BINDING*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:7712:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V35*/ meltfptr[31] = (/*nil*/NULL);; @@ -20389,25 +22366,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7712; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.B__V31*/ meltfptr[30]; - /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35] = 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__V36*/ + meltfptr[35] = 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___V35*/ meltfptr[31] = /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35];; + /*_._IFELSE___V35*/ + meltfptr[31] = /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7712:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V36*/ + meltfptr[35] = 0 ; } ; } ; - /*_.IFCPP___V34*/ meltfptr[32] = /*_._IFELSE___V35*/ meltfptr[31];; + /*_.IFCPP___V34*/ + meltfptr[32] = /*_._IFELSE___V35*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7712:/ clear"); - /*clear*/ /*_#IS_A__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V35*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IFELSE___V35*/ + meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20416,15 +22399,20 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V30*/ meltfptr[29] = /*_.B__V31*/ meltfptr[30];; + /*_.LET___V30*/ + meltfptr[29] = /*_.B__V31*/ meltfptr[30];; MELT_LOCATION("warmelt-normal.melt:7710:/ clear"); - /*clear*/ /*_.B__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.B__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V34*/ meltfptr[32] = 0 ; - /*_.FMBIND__V37*/ meltfptr[35] = /*_.LET___V30*/ meltfptr[29];; + /*clear*/ /*_.IFCPP___V34*/ + meltfptr[32] = 0 ; + /*_.FMBIND__V37*/ + meltfptr[35] = /*_.LET___V30*/ meltfptr[29];; MELT_LOCATION("warmelt-normal.melt:7714:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FMBIND__V37*/ meltfptr[35]), (melt_ptr_t)((/*!CLASS_FUNMATCHER_BINDING*/ meltfrout->tabval[8]))) ) /*then*/ @@ -20435,7 +22423,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FMBIND__V37*/ meltfptr[35]) /*=obj*/; melt_object_get_field(slot,obj, 2, "FMBIND_FUNMATCHER"); - /*_.FUNMATCHER__V38*/ meltfptr[31] = slot; + /*_.FUNMATCHER__V38*/ + meltfptr[31] = slot; }; ; } @@ -20465,7 +22454,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20474,7 +22464,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7716:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20507,16 +22498,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defunmatcher made funmatcher"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FUNMATCHER__V38*/ meltfptr[31]; - /*_.MELT_DEBUG_FUN__V40*/ meltfptr[32] = 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__V40*/ + meltfptr[32] = 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___V39*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[32];; + /*_._IF___V39*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7716:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ + meltfptr[32] = 0 ; } ; } @@ -20529,7 +22524,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7716:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20538,9 +22534,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V39*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20570,10 +22568,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L11*/ meltfnum[1] = + /*_#IS_A__L11*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SMATCHED__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-normal.melt:7717:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V42*/ meltfptr[30] = (/*nil*/NULL);; @@ -20602,25 +22602,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7717; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SMATCHED__V21*/ meltfptr[20]; - /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42] = 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__V43*/ + meltfptr[42] = 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___V42*/ meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42];; + /*_._IFELSE___V42*/ + meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7717:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V43*/ + meltfptr[42] = 0 ; } ; } ; - /*_.IFCPP___V41*/ meltfptr[32] = /*_._IFELSE___V42*/ meltfptr[30];; + /*_.IFCPP___V41*/ + meltfptr[32] = /*_._IFELSE___V42*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7717:/ clear"); - /*clear*/ /*_#IS_A__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V42*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V42*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20638,10 +22644,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L12*/ meltfnum[0] = + /*_#IS_MULTIPLE__L12*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.SINS__V22*/ meltfptr[21])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-normal.melt:7718:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L12*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V45*/ meltfptr[30] = (/*nil*/NULL);; @@ -20670,25 +22678,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7718; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SINS__V22*/ meltfptr[21]; - /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45] = 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__V46*/ + meltfptr[45] = 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___V45*/ meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45];; + /*_._IFELSE___V45*/ + meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7718:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/ + meltfptr[45] = 0 ; } ; } ; - /*_.IFCPP___V44*/ meltfptr[42] = /*_._IFELSE___V45*/ meltfptr[30];; + /*_.IFCPP___V44*/ + meltfptr[42] = /*_._IFELSE___V45*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7718:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L12*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L12*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V45*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V45*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20706,10 +22720,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L13*/ meltfnum[1] = + /*_#IS_MULTIPLE__L13*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SOUTS__V23*/ meltfptr[22])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-normal.melt:7719:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L13*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L13*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V48*/ meltfptr[30] = (/*nil*/NULL);; @@ -20738,25 +22754,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7719; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SOUTS__V23*/ meltfptr[22]; - /*_.MELT_ASSERT_FAILURE_FUN__V49*/ meltfptr[48] = 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__V49*/ + meltfptr[48] = 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___V48*/ meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V49*/ meltfptr[48];; + /*_._IFELSE___V48*/ + meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V49*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7719:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V49*/ + meltfptr[48] = 0 ; } ; } ; - /*_.IFCPP___V47*/ meltfptr[45] = /*_._IFELSE___V48*/ meltfptr[30];; + /*_.IFCPP___V47*/ + meltfptr[45] = /*_._IFELSE___V48*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7719:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L13*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L13*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V48*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V48*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20774,10 +22796,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L14*/ meltfnum[0] = + /*_#IS_A__L14*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MBIFMA__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-normal.melt:7720:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L14*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V51*/ meltfptr[30] = (/*nil*/NULL);; @@ -20806,25 +22830,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7720; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MBIFMA__V29*/ meltfptr[28]; - /*_.MELT_ASSERT_FAILURE_FUN__V52*/ meltfptr[51] = 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__V52*/ + meltfptr[51] = 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___V51*/ meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V52*/ meltfptr[51];; + /*_._IFELSE___V51*/ + meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V52*/ meltfptr[51];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7720:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V52*/ + meltfptr[51] = 0 ; } ; } ; - /*_.IFCPP___V50*/ meltfptr[48] = /*_._IFELSE___V51*/ meltfptr[30];; + /*_.IFCPP___V50*/ + meltfptr[48] = /*_._IFELSE___V51*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7720:/ clear"); - /*clear*/ /*_#IS_A__L14*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L14*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V51*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V51*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20851,7 +22881,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NMABINDS__V55*/ meltfptr[54];/*^multimsend.send*/ - /*_.NMATCHF__V54*/ meltfptr[30] = meltgc_send ((melt_ptr_t)(/*_.SMATCHF__V24*/ meltfptr[23]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NMATCHF__V54*/ + meltfptr[30] = meltgc_send ((melt_ptr_t)(/*_.SMATCHF__V24*/ meltfptr[23]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -20877,7 +22908,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L15*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L15*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20886,7 +22918,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7724:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L15*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20919,16 +22952,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defunmatcher nmatchf"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMATCHF__V54*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = 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__V57*/ + meltfptr[56] = 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___V56*/ meltfptr[55] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56];; + /*_._IF___V56*/ + meltfptr[55] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7724:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ + meltfptr[56] = 0 ; } ; } @@ -20941,7 +22978,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7724:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20950,9 +22988,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_._IF___V56*/ + meltfptr[55] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20982,7 +23022,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NMABINDS__V55*/ meltfptr[54]; - /*_.LIST_APPEND2LIST__V58*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.RESBINDS__V27*/ meltfptr[26]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V58*/ + meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.RESBINDS__V27*/ meltfptr[26]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -21004,7 +23045,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NAPBINDS__V61*/ meltfptr[60];/*^multimsend.send*/ - /*_.NAPPLF__V60*/ meltfptr[59] = meltgc_send ((melt_ptr_t)(/*_.SAPPLYF__V25*/ meltfptr[24]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NAPPLF__V60*/ + meltfptr[59] = meltgc_send ((melt_ptr_t)(/*_.SAPPLYF__V25*/ meltfptr[24]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -21030,7 +23072,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L17*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21039,7 +23082,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7729:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L17*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21072,16 +23116,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defunmatcher napplf"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NAPPLF__V60*/ meltfptr[59]; - /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = 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__V63*/ + meltfptr[62] = 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___V62*/ meltfptr[61] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];; + /*_._IF___V62*/ + meltfptr[61] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7729:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L18*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ + meltfptr[62] = 0 ; } ; } @@ -21094,7 +23142,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7729:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21103,9 +23152,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_._IF___V62*/ + meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21135,7 +23186,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NAPBINDS__V61*/ meltfptr[60]; - /*_.LIST_APPEND2LIST__V64*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.RESBINDS__V27*/ meltfptr[26]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V64*/ + meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.RESBINDS__V27*/ meltfptr[26]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -21157,7 +23209,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NDABINDS__V67*/ meltfptr[66];/*^multimsend.send*/ - /*_.NDATA__V66*/ meltfptr[65] = meltgc_send ((melt_ptr_t)(/*_.SDATA__V26*/ meltfptr[25]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NDATA__V66*/ + meltfptr[65] = meltgc_send ((melt_ptr_t)(/*_.SDATA__V26*/ meltfptr[25]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -21183,7 +23236,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L19*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L19*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21192,7 +23246,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7734:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21229,16 +23284,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " resbinds="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.RESBINDS__V27*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V69*/ + meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V68*/ meltfptr[67] = /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68];; + /*_._IF___V68*/ + meltfptr[67] = /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7734:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V69*/ + meltfptr[68] = 0 ; } ; } @@ -21251,7 +23310,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7734:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21260,9 +23320,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V68*/ meltfptr[67] = 0 ; + /*clear*/ /*_._IF___V68*/ + meltfptr[67] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21302,7 +23364,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V71*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[13])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V71*/ + meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[13])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7739:/ getslot"); @@ -21310,7 +23373,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V72*/ meltfptr[71] = slot; + /*_.NAMED_NAME__V72*/ + meltfptr[71] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7736:/ quasiblock"); @@ -21321,7 +23385,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ meltfrout->tabval[12])), (6), "CLASS_NREP_DATASTRING"); - /*_.INST__V74*/ meltfptr[73] = + /*_.INST__V74*/ + meltfptr[73] = newobj; }; ; @@ -21344,12 +23409,15 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V74*/ meltfptr[73], "newly made instance"); ; - /*_.NAMSTRDATA__V73*/ meltfptr[72] = /*_.INST__V74*/ meltfptr[73];; + /*_.NAMSTRDATA__V73*/ + meltfptr[72] = /*_.INST__V74*/ meltfptr[73];; /*^compute*/ - /*_#OBJECT_LENGTH__L21*/ meltfnum[0] = + /*_#OBJECT_LENGTH__L21*/ + meltfnum[0] = ((long)melt_object_length((melt_ptr_t)(/*_.FUNMATCHER__V38*/ meltfptr[31])));; /*^compute*/ - /*_.SLOTUP__V75*/ meltfptr[74] = + /*_.SLOTUP__V75*/ + meltfptr[74] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[15])), (/*_#OBJECT_LENGTH__L21*/ meltfnum[0])));; MELT_CHECK_SIGNAL(); @@ -21368,13 +23436,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "class_funmatcher"; - /*_.NORMAL_PREDEF__V76*/ meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[13])), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V76*/ + meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[13])), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_#NONZERO_HASH__L22*/ meltfnum[1] = + /*_#NONZERO_HASH__L22*/ + meltfnum[1] = (melt_nonzerohash());; /*^compute*/ - /*_.MAKE_INTEGERBOX__V77*/ meltfptr[76] = + /*_.MAKE_INTEGERBOX__V77*/ + meltfptr[76] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[18])), (/*_#NONZERO_HASH__L22*/ meltfnum[1])));; MELT_LOCATION("warmelt-normal.melt:7741:/ quasiblock"); @@ -21384,7 +23455,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ meltfrout->tabval[16])), (9), "CLASS_NREP_DATAINSTANCE"); - /*_.INST__V79*/ meltfptr[78] = + /*_.INST__V79*/ + meltfptr[78] = newobj; }; ; @@ -21417,36 +23489,47 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V79*/ meltfptr[78], "newly made instance"); ; - /*_.INSDATA__V78*/ meltfptr[77] = /*_.INST__V79*/ meltfptr[78];; + /*_.INSDATA__V78*/ + meltfptr[77] = /*_.INST__V79*/ meltfptr[78];; /*^compute*/ - /*_#MULTIPLE_LENGTH__L23*/ meltfnum[22] = + /*_#MULTIPLE_LENGTH__L23*/ + meltfnum[22] = (melt_multiple_length((melt_ptr_t)(/*_.INSFMA__V28*/ meltfptr[27])));; /*^compute*/ - /*_.INSTUP__V80*/ meltfptr[79] = + /*_.INSTUP__V80*/ + meltfptr[79] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[15])), (/*_#MULTIPLE_LENGTH__L23*/ meltfnum[22])));; /*^compute*/ - /*_#MULTIPLE_LENGTH__L24*/ meltfnum[23] = + /*_#MULTIPLE_LENGTH__L24*/ + meltfnum[23] = (melt_multiple_length((melt_ptr_t)(/*_.SOUTS__V23*/ meltfptr[22])));; /*^compute*/ - /*_.OUTSTUP__V81*/ meltfptr[80] = + /*_.OUTSTUP__V81*/ + meltfptr[80] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[15])), (/*_#MULTIPLE_LENGTH__L24*/ meltfnum[23])));; /*^compute*/ - /*_#MULTIPLE_LENGTH__L25*/ meltfnum[24] = + /*_#MULTIPLE_LENGTH__L25*/ + meltfnum[24] = (melt_multiple_length((melt_ptr_t)(/*_.INSFMA__V28*/ meltfptr[27])));; /*^compute*/ - /*_#MULTIPLE_LENGTH__L26*/ meltfnum[25] = + /*_#MULTIPLE_LENGTH__L26*/ + meltfnum[25] = (melt_multiple_length((melt_ptr_t)(/*_.SOUTS__V23*/ meltfptr[22])));; /*^compute*/ - /*_#plI__L27*/ meltfnum[26] = + /*_#plI__L27*/ + meltfnum[26] = ((/*_#MULTIPLE_LENGTH__L25*/ meltfnum[24]) + (/*_#MULTIPLE_LENGTH__L26*/ meltfnum[25]));; /*^compute*/ - /*_#stI__L28*/ meltfnum[27] = + /*_#stI__L28*/ + meltfnum[27] = ((/*_#plI__L27*/ meltfnum[26]) * (2));; /*^compute*/ - /*_#plI__L29*/ meltfnum[28] = + /*_#plI__L29*/ + meltfnum[28] = ((5) + (/*_#stI__L28*/ meltfnum[27]));; /*^compute*/ - /*_.FORMSYMBMAP__V82*/ meltfptr[81] = + /*_.FORMSYMBMAP__V82*/ + meltfptr[81] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[19])), (/*_#plI__L29*/ meltfnum[28])));; MELT_CHECK_SIGNAL(); @@ -21458,7 +23541,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V73*/ meltfptr[72]; - /*_.ADD_NCTX_DATA__V83*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V83*/ + meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -21471,10 +23555,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INSDATA__V78*/ meltfptr[77]; - /*_.ADD_NCTX_DATA__V84*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V84*/ + meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L30*/ meltfnum[29] = + /*_#GET_INT__L30*/ + meltfnum[29] = (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ meltfrout->tabval[21]))));; { @@ -21500,7 +23586,8 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_FORMALS__V85*/ meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.INSFMA__V28*/ meltfptr[27]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_FORMALS__V85*/ + meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.INSFMA__V28*/ meltfptr[27]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7761:/ quasiblock"); @@ -21523,7 +23610,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V86*/ meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[13])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[15])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V86*/ + meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[13])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[15])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7761:/ quasiblock"); @@ -21534,7 +23622,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[23])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V88*/ meltfptr[87] = + /*_.INST__V88*/ + meltfptr[87] = newobj; }; ; @@ -21562,7 +23651,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V88*/ meltfptr[87], "newly made instance"); ; - /*_.INSTUPDATA__V87*/ meltfptr[86] = /*_.INST__V88*/ meltfptr[87];; + /*_.INSTUPDATA__V87*/ + meltfptr[86] = /*_.INST__V88*/ meltfptr[87];; MELT_CHECK_SIGNAL(); ; @@ -21573,10 +23663,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INSTUPDATA__V87*/ meltfptr[86]; - /*_.ADD_NCTX_DATA__V89*/ meltfptr[88] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V89*/ + meltfptr[88] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L31*/ meltfnum[30] = + /*_#GET_INT__L31*/ + meltfnum[30] = (melt_get_int((melt_ptr_t)((/*!AMATCH_IN*/ meltfrout->tabval[24]))));; { @@ -21586,13 +23678,17 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7761:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V86*/ meltfptr[85] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V86*/ + meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_.INSTUPDATA__V87*/ meltfptr[86] = 0 ; + /*clear*/ /*_.INSTUPDATA__V87*/ + meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V89*/ meltfptr[88] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V89*/ + meltfptr[88] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L31*/ meltfnum[30] = 0 ; + /*clear*/ /*_#GET_INT__L31*/ + meltfnum[30] = 0 ; MELT_LOCATION("warmelt-normal.melt:7772:/ quasiblock"); @@ -21612,10 +23708,12 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.MBDATA__V90*/ meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALBIND*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.MBIFMA__V29*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MBDATA__V90*/ + meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALBIND*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.MBIFMA__V29*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L32*/ meltfnum[30] = + /*_#GET_INT__L32*/ + meltfnum[30] = (melt_get_int((melt_ptr_t)((/*!AMATCH_MATCHBIND*/ meltfrout->tabval[26]))));; { @@ -21625,9 +23723,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7772:/ clear"); - /*clear*/ /*_.MBDATA__V90*/ meltfptr[85] = 0 ; + /*clear*/ /*_.MBDATA__V90*/ + meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L32*/ meltfnum[30] = 0 ; + /*clear*/ /*_#GET_INT__L32*/ + meltfnum[30] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -21646,7 +23746,8 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_FORMALS__V91*/ meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.SOUTS__V23*/ meltfptr[22]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_FORMALS__V91*/ + meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.SOUTS__V23*/ meltfptr[22]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7778:/ quasiblock"); @@ -21669,7 +23770,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V92*/ meltfptr[88] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[13])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[15])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V92*/ + meltfptr[88] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[13])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[15])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7778:/ quasiblock"); @@ -21680,7 +23782,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[23])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V94*/ meltfptr[93] = + /*_.INST__V94*/ + meltfptr[93] = newobj; }; ; @@ -21708,7 +23811,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V94*/ meltfptr[93], "newly made instance"); ; - /*_.OUTSTUPDATA__V93*/ meltfptr[85] = /*_.INST__V94*/ meltfptr[93];; + /*_.OUTSTUPDATA__V93*/ + meltfptr[85] = /*_.INST__V94*/ meltfptr[93];; MELT_CHECK_SIGNAL(); ; @@ -21719,10 +23823,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTSTUPDATA__V93*/ meltfptr[85]; - /*_.ADD_NCTX_DATA__V95*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V95*/ + meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L33*/ meltfnum[30] = + /*_#GET_INT__L33*/ + meltfnum[30] = (melt_get_int((melt_ptr_t)((/*!AMATCH_OUT*/ meltfrout->tabval[27]))));; { @@ -21732,14 +23838,19 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7778:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V92*/ meltfptr[88] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V92*/ + meltfptr[88] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTSTUPDATA__V93*/ meltfptr[85] = 0 ; + /*clear*/ /*_.OUTSTUPDATA__V93*/ + meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V95*/ meltfptr[94] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V95*/ + meltfptr[94] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L33*/ meltfnum[30] = 0 ; - /*_#GET_INT__L34*/ meltfnum[30] = + /*clear*/ /*_#GET_INT__L33*/ + meltfnum[30] = 0 ; + /*_#GET_INT__L34*/ + meltfnum[30] = (melt_get_int((melt_ptr_t)((/*!FMATCH_MATCHF*/ meltfrout->tabval[28]))));; { @@ -21747,7 +23858,8 @@ meltlab_endgetargs: meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V75*/ meltfptr[74]), (/*_#GET_INT__L34*/ meltfnum[30]), (melt_ptr_t)(/*_.NMATCHF__V54*/ meltfptr[30])); } ; - /*_#GET_INT__L35*/ meltfnum[34] = + /*_#GET_INT__L35*/ + meltfnum[34] = (melt_get_int((melt_ptr_t)((/*!FMATCH_APPLYF*/ meltfrout->tabval[29]))));; { @@ -21755,7 +23867,8 @@ meltlab_endgetargs: meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V75*/ meltfptr[74]), (/*_#GET_INT__L35*/ meltfnum[34]), (melt_ptr_t)(/*_.NAPPLF__V60*/ meltfptr[59])); } ; - /*_#GET_INT__L36*/ meltfnum[35] = + /*_#GET_INT__L36*/ + meltfnum[35] = (melt_get_int((melt_ptr_t)((/*!FMATCH_DATA*/ meltfrout->tabval[30]))));; { @@ -21767,7 +23880,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7798:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FMBIND__V37*/ meltfptr[35]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ meltfrout->tabval[31]))) ) /*then*/ @@ -21814,7 +23928,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L37*/ meltfnum[36] = + /*_#MELT_NEED_DBG__L37*/ + meltfnum[36] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21823,7 +23938,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7800:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[36]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L37*/ meltfnum[36]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21856,16 +23972,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defunmatcher final fmbind"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FMBIND__V37*/ meltfptr[35]; - /*_.MELT_DEBUG_FUN__V97*/ meltfptr[85] = 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__V97*/ + meltfptr[85] = 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___V96*/ meltfptr[88] = /*_.MELT_DEBUG_FUN__V97*/ meltfptr[85];; + /*_._IF___V96*/ + meltfptr[88] = /*_.MELT_DEBUG_FUN__V97*/ meltfptr[85];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7800:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[37] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L38*/ + meltfnum[37] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V97*/ meltfptr[85] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V97*/ + meltfptr[85] = 0 ; } ; } @@ -21878,7 +23998,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7800:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21887,9 +24008,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[36] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L37*/ + meltfnum[36] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V96*/ meltfptr[88] = 0 ; + /*clear*/ /*_._IF___V96*/ + meltfptr[88] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21929,7 +24052,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L39*/ meltfnum[37] = + /*_#MELT_NEED_DBG__L39*/ + meltfnum[37] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21938,7 +24062,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7803:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L39*/ meltfnum[37]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L39*/ meltfnum[37]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21975,16 +24100,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " resbinds="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.RESBINDS__V27*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V99*/ meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V99*/ + meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V98*/ meltfptr[94] = /*_.MELT_DEBUG_FUN__V99*/ meltfptr[85];; + /*_._IF___V98*/ + meltfptr[94] = /*_.MELT_DEBUG_FUN__V99*/ meltfptr[85];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7803:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L40*/ meltfnum[36] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L40*/ + meltfnum[36] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V99*/ meltfptr[85] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V99*/ + meltfptr[85] = 0 ; } ; } @@ -21997,7 +24126,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7803:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -22006,9 +24136,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L39*/ meltfnum[37] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L39*/ + meltfnum[37] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V98*/ meltfptr[94] = 0 ; + /*clear*/ /*_._IF___V98*/ + meltfptr[94] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22034,7 +24166,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7805:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.INSDATA__V78*/ meltfptr[77];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.INSDATA__V78*/ meltfptr[77];; MELT_LOCATION("warmelt-normal.melt:7805:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -22042,148 +24175,211 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V70*/ meltfptr[68] = /*_.RETURN___V100*/ meltfptr[88];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V70*/ + meltfptr[68] = /*_.RETURN___V100*/ meltfptr[88];; MELT_LOCATION("warmelt-normal.melt:7735:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V71*/ meltfptr[67] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V71*/ + meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_.NAMED_NAME__V72*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMSTRDATA__V73*/ meltfptr[72] = 0 ; + /*clear*/ /*_.NAMSTRDATA__V73*/ + meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_#OBJECT_LENGTH__L21*/ meltfnum[0] = 0 ; + /*clear*/ /*_#OBJECT_LENGTH__L21*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.SLOTUP__V75*/ meltfptr[74] = 0 ; + /*clear*/ /*_.SLOTUP__V75*/ + meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V76*/ meltfptr[75] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V76*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_#NONZERO_HASH__L22*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NONZERO_HASH__L22*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V77*/ meltfptr[76] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V77*/ + meltfptr[76] = 0 ; /*^clear*/ - /*clear*/ /*_.INSDATA__V78*/ meltfptr[77] = 0 ; + /*clear*/ /*_.INSDATA__V78*/ + meltfptr[77] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L23*/ meltfnum[22] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L23*/ + meltfnum[22] = 0 ; /*^clear*/ - /*clear*/ /*_.INSTUP__V80*/ meltfptr[79] = 0 ; + /*clear*/ /*_.INSTUP__V80*/ + meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L24*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L24*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTSTUP__V81*/ meltfptr[80] = 0 ; + /*clear*/ /*_.OUTSTUP__V81*/ + meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L25*/ meltfnum[24] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L25*/ + meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L26*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L26*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L27*/ meltfnum[26] = 0 ; + /*clear*/ /*_#plI__L27*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_#stI__L28*/ meltfnum[27] = 0 ; + /*clear*/ /*_#stI__L28*/ + meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L29*/ meltfnum[28] = 0 ; + /*clear*/ /*_#plI__L29*/ + meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_.FORMSYMBMAP__V82*/ meltfptr[81] = 0 ; + /*clear*/ /*_.FORMSYMBMAP__V82*/ + meltfptr[81] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V83*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V84*/ meltfptr[83] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V84*/ + meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L30*/ meltfnum[29] = 0 ; + /*clear*/ /*_#GET_INT__L30*/ + meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_FORMALS__V85*/ meltfptr[84] = 0 ; + /*clear*/ /*_.FILL_NORMAL_FORMALS__V85*/ + meltfptr[84] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_FORMALS__V91*/ meltfptr[86] = 0 ; + /*clear*/ /*_.FILL_NORMAL_FORMALS__V91*/ + meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L34*/ meltfnum[30] = 0 ; + /*clear*/ /*_#GET_INT__L34*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L35*/ meltfnum[34] = 0 ; + /*clear*/ /*_#GET_INT__L35*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L36*/ meltfnum[35] = 0 ; + /*clear*/ /*_#GET_INT__L36*/ + meltfnum[35] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V100*/ meltfptr[88] = 0 ; + /*clear*/ /*_.RETURN___V100*/ + meltfptr[88] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V65*/ meltfptr[61] = /*_.LET___V70*/ meltfptr[68];; + /*_.MULTI___V65*/ + meltfptr[61] = /*_.LET___V70*/ meltfptr[68];; MELT_LOCATION("warmelt-normal.melt:7731:/ clear"); - /*clear*/ /*_.LET___V70*/ meltfptr[68] = 0 ; + /*clear*/ /*_.LET___V70*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.NDABINDS__V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_.NDABINDS__V67*/ + meltfptr[66] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V59*/ meltfptr[55] = /*_.MULTI___V65*/ meltfptr[61];; + /*_.MULTI___V59*/ + meltfptr[55] = /*_.MULTI___V65*/ meltfptr[61];; MELT_LOCATION("warmelt-normal.melt:7726:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V64*/ meltfptr[62] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V64*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V65*/ meltfptr[61] = 0 ; + /*clear*/ /*_.MULTI___V65*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.NAPBINDS__V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_.NAPBINDS__V61*/ + meltfptr[60] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V53*/ meltfptr[51] = /*_.MULTI___V59*/ meltfptr[55];; + /*_.MULTI___V53*/ + meltfptr[51] = /*_.MULTI___V59*/ meltfptr[55];; MELT_LOCATION("warmelt-normal.melt:7721:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V58*/ meltfptr[56] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V58*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V59*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MULTI___V59*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.NMABINDS__V55*/ meltfptr[54] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.MULTI___V53*/ meltfptr[51];; + /*clear*/ /*_.NMABINDS__V55*/ + meltfptr[54] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.MULTI___V53*/ meltfptr[51];; MELT_LOCATION("warmelt-normal.melt:7699:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SNAME__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SNAME__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SFORMAL_ARGS__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SFORMAL_ARGS__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.SMATCHED__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.SMATCHED__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.SINS__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.SINS__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.SOUTS__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.SOUTS__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.SMATCHF__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.SMATCHF__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.SAPPLYF__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.SAPPLYF__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.SDATA__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.SDATA__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.RESBINDS__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.RESBINDS__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.INSFMA__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.INSFMA__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.MBIFMA__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MBIFMA__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.LET___V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.FMBIND__V37*/ meltfptr[35] = 0 ; + /*clear*/ /*_.FMBIND__V37*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.FUNMATCHER__V38*/ meltfptr[31] = 0 ; + /*clear*/ /*_.FUNMATCHER__V38*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V41*/ meltfptr[32] = 0 ; + /*clear*/ /*_.IFCPP___V41*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V44*/ meltfptr[42] = 0 ; + /*clear*/ /*_.IFCPP___V44*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V47*/ meltfptr[45] = 0 ; + /*clear*/ /*_.IFCPP___V47*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V50*/ meltfptr[48] = 0 ; + /*clear*/ /*_.IFCPP___V50*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V53*/ meltfptr[51] = 0 ; + /*clear*/ /*_.MULTI___V53*/ + meltfptr[51] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7694:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:7694:/ locexp"); @@ -22198,17 +24394,22 @@ 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*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -22290,7 +24491,8 @@ meltrout_140_WARMELTmiNORMAL_NORMEXP_DEFCLASS(meltclosure_ptr_t meltclosp_, melt /* end of frame for routine meltrout_140_WARMELTmiNORMAL_NORMEXP_DEFCLASS fromline 1756 */ - /* classy proc frame meltrout_140_WARMELTmiNORMAL_NORMEXP_DEFCLASS */ MeltFrame_meltrout_140_WARMELTmiNORMAL_NORMEXP_DEFCLASS + /* classy proc frame meltrout_140_WARMELTmiNORMAL_NORMEXP_DEFCLASS */ + MeltFrame_meltrout_140_WARMELTmiNORMAL_NORMEXP_DEFCLASS meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_140_WARMELTmiNORMAL_NORMEXP_DEFCLASS fromline 1785*/ #if ENABLE_CHECKING @@ -22303,7 +24505,8 @@ meltrout_140_WARMELTmiNORMAL_NORMEXP_DEFCLASS(meltclosure_ptr_t meltclosp_, melt #define meltframe meltfram__ melt_trace_start("NORMEXP_DEFCLASS", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -22313,26 +24516,30 @@ meltrout_140_WARMELTmiNORMAL_NORMEXP_DEFCLASS(meltclosure_ptr_t meltclosp_, melt /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7816:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__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; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -22364,7 +24571,8 @@ 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)) @@ -22373,7 +24581,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7817:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22406,16 +24615,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defclass recv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7817:/ 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 ; } ; } @@ -22428,7 +24641,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7817:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -22437,9 +24651,11 @@ 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*/ @@ -22469,10 +24685,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:7818:/ 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);; @@ -22501,25 +24719,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7818; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7818:/ 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-normal.melt:7818:/ 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*/ @@ -22537,10 +24761,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:7819:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -22569,25 +24795,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7819; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 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__V13*/ + meltfptr[12] = 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___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7819:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7819:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22605,10 +24837,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:7820:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -22637,25 +24871,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7820; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7820:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7820:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22671,7 +24911,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7822:/ getslot"); @@ -22679,7 +24920,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); - /*_.SNAME__V19*/ meltfptr[18] = slot; + /*_.SNAME__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7823:/ getslot"); @@ -22687,7 +24929,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SOBJ_PREDEF"); - /*_.SPREDEF__V20*/ meltfptr[19] = slot; + /*_.SPREDEF__V20*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7824:/ getslot"); @@ -22695,7 +24938,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SCLASS_CLABIND"); - /*_.SCLABIND__V21*/ meltfptr[20] = slot; + /*_.SCLABIND__V21*/ + meltfptr[20] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7825:/ getslot"); @@ -22703,7 +24947,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "SCLASS_SUPERBIND"); - /*_.SUPERBIND__V22*/ meltfptr[21] = slot; + /*_.SUPERBIND__V22*/ + meltfptr[21] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7826:/ getslot"); @@ -22711,7 +24956,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 7, "SCLASS_FLDBINDS"); - /*_.SFLDBINDS__V23*/ meltfptr[22] = slot; + /*_.SFLDBINDS__V23*/ + meltfptr[22] = slot; }; ; @@ -22724,10 +24970,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[0] = + /*_#IS_A__L6*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SCLABIND__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:7828:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V25*/ meltfptr[24] = (/*nil*/NULL);; @@ -22756,25 +25004,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7828; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SCLABIND__V21*/ meltfptr[20]; - /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V26*/ + meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V25*/ meltfptr[24] = /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25];; + /*_._IFELSE___V25*/ + meltfptr[24] = /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7828:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V26*/ + meltfptr[25] = 0 ; } ; } ; - /*_.IFCPP___V24*/ meltfptr[23] = /*_._IFELSE___V25*/ meltfptr[24];; + /*_.IFCPP___V24*/ + meltfptr[23] = /*_._IFELSE___V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7828:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_._IFELSE___V25*/ + meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22790,7 +25044,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SCLABIND__V21*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 3, "CBIND_CLASS"); - /*_.CLAOBJ__V28*/ meltfptr[24] = slot; + /*_.CLAOBJ__V28*/ + meltfptr[24] = slot; }; ; @@ -22805,7 +25060,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.NAMSYMDATA__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NAMSYMDATA__V29*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7831:/ getslot"); @@ -22813,7 +25069,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMSTR__V30*/ meltfptr[29] = slot; + /*_.NAMSTR__V30*/ + meltfptr[29] = slot; }; ; @@ -22833,7 +25090,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V31*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7833:/ quasiblock"); @@ -22844,7 +25102,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ meltfrout->tabval[7])), (6), "CLASS_NREP_DATASTRING"); - /*_.INST__V33*/ meltfptr[32] = + /*_.INST__V33*/ + meltfptr[32] = newobj; }; ; @@ -22862,12 +25121,15 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V33*/ meltfptr[32], "newly made instance"); ; - /*_.NAMSTRDATA__V32*/ meltfptr[31] = /*_.INST__V33*/ meltfptr[32];; + /*_.NAMSTRDATA__V32*/ + meltfptr[31] = /*_.INST__V33*/ meltfptr[32];; /*^compute*/ - /*_#OBJ_LEN__L7*/ meltfnum[1] = + /*_#OBJ_LEN__L7*/ + meltfnum[1] = (melt_obj_len((melt_ptr_t)(/*_.CLAOBJ__V28*/ meltfptr[24])));; /*^compute*/ - /*_.CLASLOTS__V34*/ meltfptr[33] = + /*_.CLASLOTS__V34*/ + meltfptr[33] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[10])), (/*_#OBJ_LEN__L7*/ meltfnum[1])));; MELT_CHECK_SIGNAL(); @@ -22886,13 +25148,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "class_class"; - /*_.NORMAL_PREDEF__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V35*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_#OBJ_HASH__L8*/ meltfnum[0] = + /*_#OBJ_HASH__L8*/ + meltfnum[0] = (melt_obj_hash((melt_ptr_t)(/*_.CLAOBJ__V28*/ meltfptr[24])));; /*^compute*/ - /*_.MAKE_INTEGERBOX__V36*/ meltfptr[35] = + /*_.MAKE_INTEGERBOX__V36*/ + meltfptr[35] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[13])), (/*_#OBJ_HASH__L8*/ meltfnum[0])));; MELT_LOCATION("warmelt-normal.melt:7839:/ quasiblock"); @@ -22902,7 +25167,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ meltfrout->tabval[11])), (9), "CLASS_NREP_DATAINSTANCE"); - /*_.INST__V38*/ meltfptr[37] = + /*_.INST__V38*/ + meltfptr[37] = newobj; }; ; @@ -22945,19 +25211,23 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V38*/ meltfptr[37], "newly made instance"); ; - /*_.CLADATA__V37*/ meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; + /*_.CLADATA__V37*/ + meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; MELT_LOCATION("warmelt-normal.melt:7848:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLAOBJ__V28*/ meltfptr[24]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CLASS_ANCESTORS"); - /*_.ANCSEQ__V39*/ meltfptr[38] = slot; + /*_.ANCSEQ__V39*/ + meltfptr[38] = slot; }; ; - /*_#NBANC__L9*/ meltfnum[8] = + /*_#NBANC__L9*/ + meltfnum[8] = (melt_multiple_length((melt_ptr_t)(/*_.ANCSEQ__V39*/ meltfptr[38])));; /*^compute*/ - /*_.ANCTUP__V40*/ meltfptr[39] = + /*_.ANCTUP__V40*/ + meltfptr[39] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[10])), (/*_#NBANC__L9*/ meltfnum[8])));; MELT_CHECK_SIGNAL(); @@ -22976,7 +25246,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_class_sequence"; - /*_.NORMAL_PREDEF__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_CLASS_SEQUENCE*/ meltfrout->tabval[16])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V41*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_CLASS_SEQUENCE*/ meltfrout->tabval[16])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7851:/ quasiblock"); @@ -22987,7 +25258,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[15])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V43*/ meltfptr[42] = + /*_.INST__V43*/ + meltfptr[42] = newobj; }; ; @@ -23015,27 +25287,34 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V43*/ meltfptr[42], "newly made instance"); ; - /*_.ANCDATA__V42*/ meltfptr[41] = /*_.INST__V43*/ meltfptr[42];; + /*_.ANCDATA__V42*/ + meltfptr[41] = /*_.INST__V43*/ meltfptr[42];; MELT_LOCATION("warmelt-normal.melt:7858:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLAOBJ__V28*/ meltfptr[24]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); - /*_.FLDSEQ__V44*/ meltfptr[43] = slot; + /*_.FLDSEQ__V44*/ + meltfptr[43] = slot; }; ; - /*_#NBFLD__L10*/ meltfnum[9] = + /*_#NBFLD__L10*/ + meltfnum[9] = (melt_multiple_length((melt_ptr_t)(/*_.FLDSEQ__V44*/ meltfptr[43])));; /*^compute*/ - /*_#NBOWNFLD__L11*/ meltfnum[10] = + /*_#NBOWNFLD__L11*/ + meltfnum[10] = (melt_multiple_length((melt_ptr_t)(/*_.SFLDBINDS__V23*/ meltfptr[22])));; /*^compute*/ - /*_#NBSUPFLD__L12*/ meltfnum[11] = + /*_#NBSUPFLD__L12*/ + meltfnum[11] = ((/*_#NBFLD__L10*/ meltfnum[9]) - (/*_#NBOWNFLD__L11*/ meltfnum[10]));; /*^compute*/ - /*_#IX__L13*/ meltfnum[12] = 0;; + /*_#IX__L13*/ + meltfnum[12] = 0;; /*^compute*/ - /*_.FLDTUP__V45*/ meltfptr[44] = + /*_.FLDTUP__V45*/ + meltfptr[44] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[10])), (/*_#NBFLD__L10*/ meltfnum[9])));; MELT_CHECK_SIGNAL(); @@ -23054,7 +25333,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_field_sequence"; - /*_.NORMAL_PREDEF__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_FIELD_SEQUENCE*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V46*/ + meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_FIELD_SEQUENCE*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7864:/ quasiblock"); @@ -23065,7 +25345,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[15])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V48*/ meltfptr[47] = + /*_.INST__V48*/ + meltfptr[47] = newobj; }; ; @@ -23093,15 +25374,18 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V48*/ meltfptr[47], "newly made instance"); ; - /*_.FLDDATA__V47*/ meltfptr[46] = /*_.INST__V48*/ meltfptr[47];; + /*_.FLDDATA__V47*/ + meltfptr[46] = /*_.INST__V48*/ meltfptr[47];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L14*/ meltfnum[13] = + /*_#IS_A__L14*/ + meltfnum[13] = melt_is_instance_of((melt_ptr_t)(/*_.SUPERBIND__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[18])));; MELT_LOCATION("warmelt-normal.melt:7872:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#IS_A__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23113,7 +25397,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SUPERBIND__V22*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V50*/ meltfptr[49] = slot; + /*_.BINDER__V50*/ + meltfptr[49] = slot; }; ; @@ -23130,16 +25415,20 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.NORMAL_EXP__V51*/ meltfptr[50] = meltgc_send((melt_ptr_t)(/*_.BINDER__V50*/ meltfptr[49]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[19])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_EXP__V51*/ + meltfptr[50] = meltgc_send((melt_ptr_t)(/*_.BINDER__V50*/ meltfptr[49]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[19])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.SUPERDATA__V49*/ meltfptr[48] = /*_.NORMAL_EXP__V51*/ meltfptr[50];; + /*_.SUPERDATA__V49*/ + meltfptr[48] = /*_.NORMAL_EXP__V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7872:/ clear"); - /*clear*/ /*_.BINDER__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.BINDER__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_EXP__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.NORMAL_EXP__V51*/ + meltfptr[50] = 0 ; } ; } @@ -23159,10 +25448,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L15*/ meltfnum[14] = + /*_#IS_STRING__L15*/ + meltfnum[14] = (melt_magic_discr((melt_ptr_t)(/*_.NAMSTR__V30*/ meltfptr[29])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-normal.melt:7875:/ cond"); - /*cond*/ if (/*_#IS_STRING__L15*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V53*/ meltfptr[50] = (/*nil*/NULL);; @@ -23191,25 +25482,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7875; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NAMSTR__V30*/ meltfptr[29]; - /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[53] = 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__V54*/ + meltfptr[53] = 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___V53*/ meltfptr[50] = /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[53];; + /*_._IFELSE___V53*/ + meltfptr[50] = /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[53];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7875:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V54*/ + meltfptr[53] = 0 ; } ; } ; - /*_.IFCPP___V52*/ meltfptr[49] = /*_._IFELSE___V53*/ meltfptr[50];; + /*_.IFCPP___V52*/ + meltfptr[49] = /*_._IFELSE___V53*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7875:/ clear"); - /*clear*/ /*_#IS_STRING__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#IS_STRING__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V53*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IFELSE___V53*/ + meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23224,10 +25521,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L16*/ meltfnum[14] = + /*_#NULL__L16*/ + meltfnum[14] = (/*null*/(/*_.SUPERBIND__V22*/ meltfptr[21]) == NULL);; MELT_LOCATION("warmelt-normal.melt:7878:/ cond"); - /*cond*/ if (/*_#NULL__L16*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#NULL__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23237,11 +25536,13 @@ meltlab_endgetargs: /*_#NULL__L18*/ meltfnum[17] = (/*null*/(/*_.SPREDEF__V20*/ meltfptr[19]) == NULL);; /*^compute*/ - /*_#_IF___L17*/ meltfnum[16] = /*_#NULL__L18*/ meltfnum[17];; + /*_#_IF___L17*/ + meltfnum[16] = /*_#NULL__L18*/ meltfnum[17];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7878:/ clear"); - /*clear*/ /*_#NULL__L18*/ meltfnum[17] = 0 ; + /*clear*/ /*_#NULL__L18*/ + meltfnum[17] = 0 ; } ; } @@ -23252,7 +25553,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:7878:/ cond"); - /*cond*/ if (/*_#_IF___L17*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#_IF___L17*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23273,11 +25575,13 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:7884:/ quasiblock"); - /*_#DONTSTARTWITH_CLASS__L19*/ meltfnum[17] = 0;; + /*_#DONTSTARTWITH_CLASS__L19*/ + meltfnum[17] = 0;; { MELT_LOCATION("warmelt-normal.melt:7886:/ locexp"); - /*_#DONTSTARTWITH_CLASS__L19*/ meltfnum[17] + /*_#DONTSTARTWITH_CLASS__L19*/ + meltfnum[17] = strncmp (melt_string_str ((melt_ptr_t) /*_.NAMSTR__V30*/ meltfptr[29]), "CLASS_", strlen("CLASS_")); ; @@ -23287,7 +25591,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7892:/ cond"); - /*cond*/ if (/*_#DONTSTARTWITH_CLASS__L19*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#DONTSTARTWITH_CLASS__L19*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23307,7 +25612,8 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:7884:/ clear"); - /*clear*/ /*_#DONTSTARTWITH_CLASS__L19*/ meltfnum[17] = 0 ; + /*clear*/ /*_#DONTSTARTWITH_CLASS__L19*/ + meltfnum[17] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:7896:/ cppif.then"); @@ -23318,10 +25624,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L20*/ meltfnum[17] = + /*_#IS_A__L20*/ + meltfnum[17] = melt_is_instance_of((melt_ptr_t)(/*_.CLAOBJ__V28*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:7896:/ cond"); - /*cond*/ if (/*_#IS_A__L20*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#IS_A__L20*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V56*/ meltfptr[50] = (/*nil*/NULL);; @@ -23350,25 +25658,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7896; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CLAOBJ__V28*/ meltfptr[24]; - /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56] = 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__V57*/ + meltfptr[56] = 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___V56*/ meltfptr[50] = /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56];; + /*_._IFELSE___V56*/ + meltfptr[50] = /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7896:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V57*/ + meltfptr[56] = 0 ; } ; } ; - /*_.IFCPP___V55*/ meltfptr[53] = /*_._IFELSE___V56*/ meltfptr[50];; + /*_.IFCPP___V55*/ + meltfptr[53] = /*_._IFELSE___V56*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7896:/ clear"); - /*clear*/ /*_#IS_A__L20*/ meltfnum[17] = 0 ; + /*clear*/ /*_#IS_A__L20*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V56*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IFELSE___V56*/ + meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23386,7 +25700,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CLADATA__V37*/ meltfptr[36]; - /*_.ADD_NCTX_DATA__V58*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V58*/ + meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -23399,7 +25714,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V32*/ meltfptr[31]; - /*_.ADD_NCTX_DATA__V59*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V59*/ + meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -23412,7 +25728,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ANCDATA__V42*/ meltfptr[41]; - /*_.ADD_NCTX_DATA__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V60*/ + meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -23425,7 +25742,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FLDDATA__V47*/ meltfptr[46]; - /*_.ADD_NCTX_DATA__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V61*/ + meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -23440,7 +25758,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!NAMED_NAME*/ meltfrout->tabval[22]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V32*/ meltfptr[31]; - /*_.FILL_DATA_SLOT__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.CLADATA__V37*/ meltfptr[36]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_DATA_SLOT__V62*/ + meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.CLADATA__V37*/ meltfptr[36]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -23455,7 +25774,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!CLASS_ANCESTORS*/ meltfrout->tabval[23]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.ANCDATA__V42*/ meltfptr[41]; - /*_.FILL_DATA_SLOT__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.CLADATA__V37*/ meltfptr[36]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_DATA_SLOT__V63*/ + meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.CLADATA__V37*/ meltfptr[36]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -23470,7 +25790,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!CLASS_FIELDS*/ meltfrout->tabval[24]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.FLDDATA__V47*/ meltfptr[46]; - /*_.FILL_DATA_SLOT__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.CLADATA__V37*/ meltfptr[36]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_DATA_SLOT__V64*/ + meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.CLADATA__V37*/ meltfptr[36]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -23483,10 +25804,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L21*/ meltfnum[17] = + /*_#IS_A__L21*/ + meltfnum[17] = melt_is_instance_of((melt_ptr_t)(/*_.SCLABIND__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:7904:/ cond"); - /*cond*/ if (/*_#IS_A__L21*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#IS_A__L21*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V66*/ meltfptr[65] = (/*nil*/NULL);; @@ -23515,25 +25838,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7904; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SCLABIND__V21*/ meltfptr[20]; - /*_.MELT_ASSERT_FAILURE_FUN__V67*/ meltfptr[66] = 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__V67*/ + meltfptr[66] = 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___V66*/ meltfptr[65] = /*_.MELT_ASSERT_FAILURE_FUN__V67*/ meltfptr[66];; + /*_._IFELSE___V66*/ + meltfptr[65] = /*_.MELT_ASSERT_FAILURE_FUN__V67*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7904:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V67*/ + meltfptr[66] = 0 ; } ; } ; - /*_.IFCPP___V65*/ meltfptr[64] = /*_._IFELSE___V66*/ meltfptr[65];; + /*_.IFCPP___V65*/ + meltfptr[64] = /*_._IFELSE___V66*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7904:/ clear"); - /*clear*/ /*_#IS_A__L21*/ meltfnum[17] = 0 ; + /*clear*/ /*_#IS_A__L21*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_._IFELSE___V66*/ + meltfptr[65] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23545,7 +25874,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7905:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SCLABIND__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ meltfrout->tabval[25]))) ) /*then*/ @@ -23573,7 +25903,8 @@ meltlab_endgetargs: } /*noelse*/ ; MELT_LOCATION("warmelt-normal.melt:7907:/ compute"); - /*_#IX__L13*/ meltfnum[12] = /*_#SETQ___L22*/ meltfnum[17] = 0;; + /*_#IX__L13*/ + meltfnum[12] = /*_#SETQ___L22*/ meltfnum[17] = 0;; MELT_LOCATION("warmelt-normal.melt:7908:/ loop"); /*loop*/ { @@ -23589,10 +25920,12 @@ meltlabloop_LOOPSUPERFIELD_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#gteqI__L23*/ meltfnum[22] = + /*_#gteqI__L23*/ + meltfnum[22] = ((/*_#IX__L13*/ meltfnum[12]) >= (/*_#NBSUPFLD__L12*/ meltfnum[11]));; MELT_LOCATION("warmelt-normal.melt:7909:/ cond"); - /*cond*/ if (/*_#gteqI__L23*/ meltfnum[22]) /*then*/ + /*cond*/ + if (/*_#gteqI__L23*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23633,7 +25966,8 @@ meltlabloop_LOOPSUPERFIELD_1:;/*^loopbody*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDACC*/ meltfrout->tabval[27])), (3), "CLASS_NREP_FIELDACC"); - /*_.INST__V71*/ meltfptr[70] = + /*_.INST__V71*/ + meltfptr[70] = newobj; }; ; @@ -23656,9 +25990,11 @@ meltlabloop_LOOPSUPERFIELD_1:;/*^loopbody*/ melt_dbgtrace_written_object (/*_.INST__V71*/ meltfptr[70], "newly made instance"); ; - /*_.INST___V70*/ meltfptr[69] = /*_.INST__V71*/ meltfptr[70];; + /*_.INST___V70*/ + meltfptr[69] = /*_.INST__V71*/ meltfptr[70];; /*^compute*/ - /*_.MAKE_INTEGERBOX__V72*/ meltfptr[71] = + /*_.MAKE_INTEGERBOX__V72*/ + meltfptr[71] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[13])), (/*_#IX__L13*/ meltfnum[12])));; MELT_LOCATION("warmelt-normal.melt:7911:/ quasiblock"); @@ -23668,7 +26004,8 @@ meltlabloop_LOOPSUPERFIELD_1:;/*^loopbody*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MULTACC*/ meltfrout->tabval[26])), (3), "CLASS_NREP_MULTACC"); - /*_.INST__V74*/ meltfptr[73] = + /*_.INST__V74*/ + meltfptr[73] = newobj; }; ; @@ -23691,7 +26028,8 @@ meltlabloop_LOOPSUPERFIELD_1:;/*^loopbody*/ melt_dbgtrace_written_object (/*_.INST__V74*/ meltfptr[73], "newly made instance"); ; - /*_.SUPFLDATA__V73*/ meltfptr[72] = /*_.INST__V74*/ meltfptr[73];; + /*_.SUPFLDATA__V73*/ + meltfptr[72] = /*_.INST__V74*/ meltfptr[73];; { MELT_LOCATION("warmelt-normal.melt:7922:/ locexp"); @@ -23700,37 +26038,47 @@ meltlabloop_LOOPSUPERFIELD_1:;/*^loopbody*/ ; MELT_LOCATION("warmelt-normal.melt:7910:/ clear"); - /*clear*/ /*_.INST___V70*/ meltfptr[69] = 0 ; + /*clear*/ /*_.INST___V70*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V72*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.SUPFLDATA__V73*/ meltfptr[72] = 0 ; - /*_#plI__L24*/ meltfnum[23] = + /*clear*/ /*_.SUPFLDATA__V73*/ + meltfptr[72] = 0 ; + /*_#plI__L24*/ + meltfnum[23] = ((/*_#IX__L13*/ meltfnum[12]) + (1));; MELT_LOCATION("warmelt-normal.melt:7924:/ compute"); - /*_#IX__L13*/ meltfnum[12] = /*_#SETQ___L25*/ meltfnum[24] = /*_#plI__L24*/ meltfnum[23];; + /*_#IX__L13*/ + meltfnum[12] = /*_#SETQ___L25*/ meltfnum[24] = /*_#plI__L24*/ meltfnum[23];; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7908:/ clear"); - /*clear*/ /*_#gteqI__L23*/ meltfnum[22] = 0 ; + /*clear*/ /*_#gteqI__L23*/ + meltfnum[22] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L24*/ meltfnum[23] = 0 ; + /*clear*/ /*_#plI__L24*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L25*/ meltfnum[24] = 0 ; + /*clear*/ /*_#SETQ___L25*/ + meltfnum[24] = 0 ; } ; ; goto meltlabloop_LOOPSUPERFIELD_1; meltlabexit_LOOPSUPERFIELD_1:;/*^loopepilog*/ /*loopepilog*/ - /*_.FOREVER___V68*/ meltfptr[66] = /*_.LOOPSUPERFIELD__V69*/ meltfptr[65];; + /*_.FOREVER___V68*/ + meltfptr[66] = /*_.LOOPSUPERFIELD__V69*/ meltfptr[65];; } ; MELT_LOCATION("warmelt-normal.melt:7926:/ compute"); - /*_#IX__L13*/ meltfnum[12] = /*_#SETQ___L26*/ meltfnum[22] = 0;; + /*_#IX__L13*/ + meltfnum[12] = /*_#SETQ___L26*/ meltfnum[22] = 0;; MELT_LOCATION("warmelt-normal.melt:7928:/ loop"); /*loop*/ { @@ -23746,10 +26094,12 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#gteqI__L27*/ meltfnum[23] = + /*_#gteqI__L27*/ + meltfnum[23] = ((/*_#IX__L13*/ meltfnum[12]) >= (/*_#NBOWNFLD__L11*/ meltfnum[10]));; MELT_LOCATION("warmelt-normal.melt:7929:/ cond"); - /*cond*/ if (/*_#gteqI__L27*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#gteqI__L27*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23776,7 +26126,8 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ MELT_LOCATION("warmelt-normal.melt:7930:/ quasiblock"); - /*_.OWNFLDBIND__V77*/ meltfptr[72] = + /*_.OWNFLDBIND__V77*/ + meltfptr[72] = (melt_multiple_nth((melt_ptr_t)(/*_.SFLDBINDS__V23*/ meltfptr[22]), (/*_#IX__L13*/ meltfnum[12])));; #if MELT_HAVE_DEBUG @@ -23788,10 +26139,12 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L28*/ meltfnum[24] = + /*_#IS_A__L28*/ + meltfnum[24] = melt_is_instance_of((melt_ptr_t)(/*_.OWNFLDBIND__V77*/ meltfptr[72]), (melt_ptr_t)((/*!CLASS_FIELD_BINDING*/ meltfrout->tabval[28])));; MELT_LOCATION("warmelt-normal.melt:7931:/ cond"); - /*cond*/ if (/*_#IS_A__L28*/ meltfnum[24]) /*then*/ + /*cond*/ + if (/*_#IS_A__L28*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V79*/ meltfptr[78] = (/*nil*/NULL);; @@ -23820,25 +26173,31 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ argtab[2].meltbp_long = 7931; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OWNFLDBIND__V77*/ meltfptr[72]; - /*_.MELT_ASSERT_FAILURE_FUN__V80*/ meltfptr[79] = 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__V80*/ + meltfptr[79] = 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___V79*/ meltfptr[78] = /*_.MELT_ASSERT_FAILURE_FUN__V80*/ meltfptr[79];; + /*_._IFELSE___V79*/ + meltfptr[78] = /*_.MELT_ASSERT_FAILURE_FUN__V80*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7931:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V80*/ meltfptr[79] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V80*/ + meltfptr[79] = 0 ; } ; } ; - /*_.IFCPP___V78*/ meltfptr[77] = /*_._IFELSE___V79*/ meltfptr[78];; + /*_.IFCPP___V78*/ + meltfptr[77] = /*_._IFELSE___V79*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7931:/ clear"); - /*clear*/ /*_#IS_A__L28*/ meltfnum[24] = 0 ; + /*clear*/ /*_#IS_A__L28*/ + meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V79*/ meltfptr[78] = 0 ; + /*clear*/ /*_._IFELSE___V79*/ + meltfptr[78] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23854,7 +26213,8 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OWNFLDBIND__V77*/ meltfptr[72]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.OWNFLDSYM__V81*/ meltfptr[79] = slot; + /*_.OWNFLDSYM__V81*/ + meltfptr[79] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7933:/ getslot"); @@ -23862,7 +26222,8 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OWNFLDBIND__V77*/ meltfptr[72]) /*=obj*/; melt_object_get_field(slot,obj, 3, "FLBIND_FIELD"); - /*_.OWNFLD__V82*/ meltfptr[78] = slot; + /*_.OWNFLD__V82*/ + meltfptr[78] = slot; }; ; @@ -23875,10 +26236,12 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L29*/ meltfnum[24] = + /*_#IS_A__L29*/ + meltfnum[24] = melt_is_instance_of((melt_ptr_t)(/*_.OWNFLDSYM__V81*/ meltfptr[79]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[29])));; MELT_LOCATION("warmelt-normal.melt:7935:/ cond"); - /*cond*/ if (/*_#IS_A__L29*/ meltfnum[24]) /*then*/ + /*cond*/ + if (/*_#IS_A__L29*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V84*/ meltfptr[83] = (/*nil*/NULL);; @@ -23907,25 +26270,31 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ argtab[2].meltbp_long = 7935; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OWNFLDSYM__V81*/ meltfptr[79]; - /*_.MELT_ASSERT_FAILURE_FUN__V85*/ meltfptr[84] = 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__V85*/ + meltfptr[84] = 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___V84*/ meltfptr[83] = /*_.MELT_ASSERT_FAILURE_FUN__V85*/ meltfptr[84];; + /*_._IFELSE___V84*/ + meltfptr[83] = /*_.MELT_ASSERT_FAILURE_FUN__V85*/ meltfptr[84];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7935:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V85*/ meltfptr[84] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V85*/ + meltfptr[84] = 0 ; } ; } ; - /*_.IFCPP___V83*/ meltfptr[82] = /*_._IFELSE___V84*/ meltfptr[83];; + /*_.IFCPP___V83*/ + meltfptr[82] = /*_._IFELSE___V84*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7935:/ clear"); - /*clear*/ /*_#IS_A__L29*/ meltfnum[24] = 0 ; + /*clear*/ /*_#IS_A__L29*/ + meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V84*/ meltfptr[83] = 0 ; + /*clear*/ /*_._IFELSE___V84*/ + meltfptr[83] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23943,10 +26312,12 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L30*/ meltfnum[24] = + /*_#IS_A__L30*/ + meltfnum[24] = melt_is_instance_of((melt_ptr_t)(/*_.OWNFLD__V82*/ meltfptr[78]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[30])));; MELT_LOCATION("warmelt-normal.melt:7936:/ cond"); - /*cond*/ if (/*_#IS_A__L30*/ meltfnum[24]) /*then*/ + /*cond*/ + if (/*_#IS_A__L30*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V87*/ meltfptr[83] = (/*nil*/NULL);; @@ -23975,25 +26346,31 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ argtab[2].meltbp_long = 7936; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OWNFLD__V82*/ meltfptr[78]; - /*_.MELT_ASSERT_FAILURE_FUN__V88*/ meltfptr[87] = 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__V88*/ + meltfptr[87] = 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___V87*/ meltfptr[83] = /*_.MELT_ASSERT_FAILURE_FUN__V88*/ meltfptr[87];; + /*_._IFELSE___V87*/ + meltfptr[83] = /*_.MELT_ASSERT_FAILURE_FUN__V88*/ meltfptr[87];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7936:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V88*/ meltfptr[87] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V88*/ + meltfptr[87] = 0 ; } ; } ; - /*_.IFCPP___V86*/ meltfptr[84] = /*_._IFELSE___V87*/ meltfptr[83];; + /*_.IFCPP___V86*/ + meltfptr[84] = /*_._IFELSE___V87*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7936:/ clear"); - /*clear*/ /*_#IS_A__L30*/ meltfnum[24] = 0 ; + /*clear*/ /*_#IS_A__L30*/ + meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V87*/ meltfptr[83] = 0 ; + /*clear*/ /*_._IFELSE___V87*/ + meltfptr[83] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24016,13 +26393,16 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.OWNFLDSYMDATA__V89*/ meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.OWNFLDSYM__V81*/ meltfptr[79]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OWNFLDSYMDATA__V89*/ + meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.OWNFLDSYM__V81*/ meltfptr[79]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#OBJ_LEN__L31*/ meltfnum[24] = + /*_#OBJ_LEN__L31*/ + meltfnum[24] = (melt_obj_len((melt_ptr_t)(/*_.OWNFLD__V82*/ meltfptr[78])));; /*^compute*/ - /*_.OWNFLDSLOTS__V90*/ meltfptr[83] = + /*_.OWNFLDSLOTS__V90*/ + meltfptr[83] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[10])), (/*_#OBJ_LEN__L31*/ meltfnum[24])));; MELT_CHECK_SIGNAL(); @@ -24041,7 +26421,8 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V91*/ meltfptr[90] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V91*/ + meltfptr[90] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:7942:/ getslot"); @@ -24049,7 +26430,8 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OWNFLD__V82*/ meltfptr[78]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V92*/ meltfptr[91] = slot; + /*_.NAMED_NAME__V92*/ + meltfptr[91] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:7940:/ quasiblock"); @@ -24060,7 +26442,8 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ meltfrout->tabval[7])), (6), "CLASS_NREP_DATASTRING"); - /*_.INST__V94*/ meltfptr[93] = + /*_.INST__V94*/ + meltfptr[93] = newobj; }; ; @@ -24078,7 +26461,8 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ melt_dbgtrace_written_object (/*_.INST__V94*/ meltfptr[93], "newly made instance"); ; - /*_.OWNFLSTRDATA__V93*/ meltfptr[92] = /*_.INST__V94*/ meltfptr[93];; + /*_.OWNFLSTRDATA__V93*/ + meltfptr[92] = /*_.INST__V94*/ meltfptr[93];; MELT_CHECK_SIGNAL(); ; @@ -24096,19 +26480,24 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "class_field"; - /*_.NORMAL_PREDEF__V95*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[30])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V95*/ + meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[30])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_#OBJ_HASH__L32*/ meltfnum[31] = + /*_#OBJ_HASH__L32*/ + meltfnum[31] = (melt_obj_hash((melt_ptr_t)(/*_.OWNFLD__V82*/ meltfptr[78])));; /*^compute*/ - /*_.MAKE_INTEGERBOX__V96*/ meltfptr[95] = + /*_.MAKE_INTEGERBOX__V96*/ + meltfptr[95] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[13])), (/*_#OBJ_HASH__L32*/ meltfnum[31])));; /*^compute*/ - /*_#OBJ_NUM__L33*/ meltfnum[32] = + /*_#OBJ_NUM__L33*/ + meltfnum[32] = (melt_obj_num((melt_ptr_t)(/*_.OWNFLD__V82*/ meltfptr[78])));; /*^compute*/ - /*_.MAKE_INTEGERBOX__V97*/ meltfptr[96] = + /*_.MAKE_INTEGERBOX__V97*/ + meltfptr[96] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[13])), (/*_#OBJ_NUM__L33*/ meltfnum[32])));; MELT_LOCATION("warmelt-normal.melt:7944:/ quasiblock"); @@ -24118,7 +26507,8 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ meltfrout->tabval[11])), (9), "CLASS_NREP_DATAINSTANCE"); - /*_.INST__V99*/ meltfptr[98] = + /*_.INST__V99*/ + meltfptr[98] = newobj; }; ; @@ -24156,7 +26546,8 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ melt_dbgtrace_written_object (/*_.INST__V99*/ meltfptr[98], "newly made instance"); ; - /*_.OWNFLDATA__V98*/ meltfptr[97] = /*_.INST__V99*/ meltfptr[98];; + /*_.OWNFLDATA__V98*/ + meltfptr[97] = /*_.INST__V99*/ meltfptr[98];; MELT_CHECK_SIGNAL(); ; @@ -24167,7 +26558,8 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OWNFLDATA__V98*/ meltfptr[97]; - /*_.ADD_NCTX_DATA__V100*/ meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V100*/ + meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -24180,7 +26572,8 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OWNFLSTRDATA__V93*/ meltfptr[92]; - /*_.ADD_NCTX_DATA__V101*/ meltfptr[100] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V101*/ + meltfptr[100] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -24195,7 +26588,8 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!NAMED_NAME*/ meltfrout->tabval[22]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OWNFLSTRDATA__V93*/ meltfptr[92]; - /*_.FILL_DATA_SLOT__V102*/ meltfptr[101] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.OWNFLDATA__V98*/ meltfptr[97]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_DATA_SLOT__V102*/ + meltfptr[101] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.OWNFLDATA__V98*/ meltfptr[97]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -24210,10 +26604,12 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!FLD_OWNCLASS*/ meltfrout->tabval[31]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CLADATA__V37*/ meltfptr[36]; - /*_.FILL_DATA_SLOT__V103*/ meltfptr[102] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.OWNFLDATA__V98*/ meltfptr[97]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_DATA_SLOT__V103*/ + meltfptr[102] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.OWNFLDATA__V98*/ meltfptr[97]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#plI__L34*/ meltfnum[33] = + /*_#plI__L34*/ + meltfnum[33] = ((/*_#IX__L13*/ meltfnum[12]) + (/*_#NBSUPFLD__L12*/ meltfnum[11]));; { @@ -24225,7 +26621,8 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7958:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OWNFLDBIND__V77*/ meltfptr[72]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ meltfrout->tabval[25]))) ) /*then*/ @@ -24254,82 +26651,112 @@ meltlabloop_LOOPOWNFIELD_1:;/*^loopbody*/ ; MELT_LOCATION("warmelt-normal.melt:7937:/ clear"); - /*clear*/ /*_.OWNFLDSYMDATA__V89*/ meltfptr[87] = 0 ; + /*clear*/ /*_.OWNFLDSYMDATA__V89*/ + meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_#OBJ_LEN__L31*/ meltfnum[24] = 0 ; + /*clear*/ /*_#OBJ_LEN__L31*/ + meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_.OWNFLDSLOTS__V90*/ meltfptr[83] = 0 ; + /*clear*/ /*_.OWNFLDSLOTS__V90*/ + meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V91*/ meltfptr[90] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V91*/ + meltfptr[90] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V92*/ meltfptr[91] = 0 ; + /*clear*/ /*_.NAMED_NAME__V92*/ + meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_.OWNFLSTRDATA__V93*/ meltfptr[92] = 0 ; + /*clear*/ /*_.OWNFLSTRDATA__V93*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V95*/ meltfptr[94] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V95*/ + meltfptr[94] = 0 ; /*^clear*/ - /*clear*/ /*_#OBJ_HASH__L32*/ meltfnum[31] = 0 ; + /*clear*/ /*_#OBJ_HASH__L32*/ + meltfnum[31] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V96*/ meltfptr[95] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V96*/ + meltfptr[95] = 0 ; /*^clear*/ - /*clear*/ /*_#OBJ_NUM__L33*/ meltfnum[32] = 0 ; + /*clear*/ /*_#OBJ_NUM__L33*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V97*/ meltfptr[96] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V97*/ + meltfptr[96] = 0 ; /*^clear*/ - /*clear*/ /*_.OWNFLDATA__V98*/ meltfptr[97] = 0 ; + /*clear*/ /*_.OWNFLDATA__V98*/ + meltfptr[97] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V100*/ meltfptr[99] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V100*/ + meltfptr[99] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V101*/ meltfptr[100] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V101*/ + meltfptr[100] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_DATA_SLOT__V102*/ meltfptr[101] = 0 ; + /*clear*/ /*_.FILL_DATA_SLOT__V102*/ + meltfptr[101] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_DATA_SLOT__V103*/ meltfptr[102] = 0 ; + /*clear*/ /*_.FILL_DATA_SLOT__V103*/ + meltfptr[102] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L34*/ meltfnum[33] = 0 ; + /*clear*/ /*_#plI__L34*/ + meltfnum[33] = 0 ; MELT_LOCATION("warmelt-normal.melt:7932:/ clear"); - /*clear*/ /*_.OWNFLDSYM__V81*/ meltfptr[79] = 0 ; + /*clear*/ /*_.OWNFLDSYM__V81*/ + meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_.OWNFLD__V82*/ meltfptr[78] = 0 ; + /*clear*/ /*_.OWNFLD__V82*/ + meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_.IFCPP___V83*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V86*/ meltfptr[84] = 0 ; + /*clear*/ /*_.IFCPP___V86*/ + meltfptr[84] = 0 ; MELT_LOCATION("warmelt-normal.melt:7930:/ clear"); - /*clear*/ /*_.OWNFLDBIND__V77*/ meltfptr[72] = 0 ; + /*clear*/ /*_.OWNFLDBIND__V77*/ + meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V78*/ meltfptr[77] = 0 ; - /*_#plI__L35*/ meltfnum[24] = + /*clear*/ /*_.IFCPP___V78*/ + meltfptr[77] = 0 ; + /*_#plI__L35*/ + meltfnum[24] = ((/*_#IX__L13*/ meltfnum[12]) + (1));; MELT_LOCATION("warmelt-normal.melt:7960:/ compute"); - /*_#IX__L13*/ meltfnum[12] = /*_#SETQ___L36*/ meltfnum[31] = /*_#plI__L35*/ meltfnum[24];; + /*_#IX__L13*/ + meltfnum[12] = /*_#SETQ___L36*/ meltfnum[31] = /*_#plI__L35*/ meltfnum[24];; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7928:/ clear"); - /*clear*/ /*_#gteqI__L27*/ meltfnum[23] = 0 ; + /*clear*/ /*_#gteqI__L27*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L35*/ meltfnum[24] = 0 ; + /*clear*/ /*_#plI__L35*/ + meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L36*/ meltfnum[31] = 0 ; + /*clear*/ /*_#SETQ___L36*/ + meltfnum[31] = 0 ; } ; ; goto meltlabloop_LOOPOWNFIELD_1; meltlabexit_LOOPOWNFIELD_1:;/*^loopepilog*/ /*loopepilog*/ - /*_.FOREVER___V75*/ meltfptr[69] = /*_.LOOPOWNFIELD__V76*/ meltfptr[71];; + /*_.FOREVER___V75*/ + meltfptr[69] = /*_.LOOPOWNFIELD__V76*/ meltfptr[71];; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7963:/ cond"); - /*cond*/ if (/*_.SUPERDATA__V49*/ meltfptr[48]) /*then*/ + /*cond*/ + if (/*_.SUPERDATA__V49*/ meltfptr[48]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24348,14 +26775,17 @@ meltlabexit_LOOPOWNFIELD_1:;/*^loopepilog*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISC_SUPER*/ meltfrout->tabval[32]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SUPERDATA__V49*/ meltfptr[48]; - /*_.FILL_DATA_SLOT__V105*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.CLADATA__V37*/ meltfptr[36]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_DATA_SLOT__V105*/ + meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.CLADATA__V37*/ meltfptr[36]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V104*/ meltfptr[87] = /*_.FILL_DATA_SLOT__V105*/ meltfptr[83];; + /*_._IF___V104*/ + meltfptr[87] = /*_.FILL_DATA_SLOT__V105*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7963:/ clear"); - /*clear*/ /*_.FILL_DATA_SLOT__V105*/ meltfptr[83] = 0 ; + /*clear*/ /*_.FILL_DATA_SLOT__V105*/ + meltfptr[83] = 0 ; } ; } @@ -24366,7 +26796,8 @@ meltlabexit_LOOPOWNFIELD_1:;/*^loopepilog*/ } ; MELT_LOCATION("warmelt-normal.melt:7965:/ compute"); - /*_#IX__L13*/ meltfnum[12] = /*_#SETQ___L37*/ meltfnum[32] = 0;; + /*_#IX__L13*/ + meltfnum[12] = /*_#SETQ___L37*/ meltfnum[32] = 0;; MELT_LOCATION("warmelt-normal.melt:7967:/ loop"); /*loop*/ { @@ -24382,13 +26813,16 @@ meltlabloop_LOOPANCESTORSUPER_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#miI__L38*/ meltfnum[33] = + /*_#miI__L38*/ + meltfnum[33] = ((/*_#NBANC__L9*/ meltfnum[8]) - (1));; /*^compute*/ - /*_#gteqI__L39*/ meltfnum[23] = + /*_#gteqI__L39*/ + meltfnum[23] = ((/*_#IX__L13*/ meltfnum[12]) >= (/*_#miI__L38*/ meltfnum[33]));; MELT_LOCATION("warmelt-normal.melt:7968:/ cond"); - /*cond*/ if (/*_#gteqI__L39*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#gteqI__L39*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24429,7 +26863,8 @@ meltlabloop_LOOPANCESTORSUPER_1:;/*^loopbody*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDACC*/ meltfrout->tabval[27])), (3), "CLASS_NREP_FIELDACC"); - /*_.INST__V109*/ meltfptr[94] = + /*_.INST__V109*/ + meltfptr[94] = newobj; }; ; @@ -24452,9 +26887,11 @@ meltlabloop_LOOPANCESTORSUPER_1:;/*^loopbody*/ melt_dbgtrace_written_object (/*_.INST__V109*/ meltfptr[94], "newly made instance"); ; - /*_.INST___V108*/ meltfptr[92] = /*_.INST__V109*/ meltfptr[94];; + /*_.INST___V108*/ + meltfptr[92] = /*_.INST__V109*/ meltfptr[94];; /*^compute*/ - /*_.MAKE_INTEGERBOX__V110*/ meltfptr[95] = + /*_.MAKE_INTEGERBOX__V110*/ + meltfptr[95] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[13])), (/*_#IX__L13*/ meltfnum[12])));; MELT_LOCATION("warmelt-normal.melt:7970:/ quasiblock"); @@ -24464,7 +26901,8 @@ meltlabloop_LOOPANCESTORSUPER_1:;/*^loopbody*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MULTACC*/ meltfrout->tabval[26])), (3), "CLASS_NREP_MULTACC"); - /*_.INST__V112*/ meltfptr[97] = + /*_.INST__V112*/ + meltfptr[97] = newobj; }; ; @@ -24487,7 +26925,8 @@ meltlabloop_LOOPANCESTORSUPER_1:;/*^loopbody*/ melt_dbgtrace_written_object (/*_.INST__V112*/ meltfptr[97], "newly made instance"); ; - /*_.SUPANCDATA__V111*/ meltfptr[96] = /*_.INST__V112*/ meltfptr[97];; + /*_.SUPANCDATA__V111*/ + meltfptr[96] = /*_.INST__V112*/ meltfptr[97];; { MELT_LOCATION("warmelt-normal.melt:7978:/ locexp"); @@ -24496,42 +26935,53 @@ meltlabloop_LOOPANCESTORSUPER_1:;/*^loopbody*/ ; MELT_LOCATION("warmelt-normal.melt:7969:/ clear"); - /*clear*/ /*_.INST___V108*/ meltfptr[92] = 0 ; + /*clear*/ /*_.INST___V108*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V110*/ meltfptr[95] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V110*/ + meltfptr[95] = 0 ; /*^clear*/ - /*clear*/ /*_.SUPANCDATA__V111*/ meltfptr[96] = 0 ; - /*_#plI__L40*/ meltfnum[24] = + /*clear*/ /*_.SUPANCDATA__V111*/ + meltfptr[96] = 0 ; + /*_#plI__L40*/ + meltfnum[24] = ((/*_#IX__L13*/ meltfnum[12]) + (1));; MELT_LOCATION("warmelt-normal.melt:7980:/ compute"); - /*_#IX__L13*/ meltfnum[12] = /*_#SETQ___L41*/ meltfnum[31] = /*_#plI__L40*/ meltfnum[24];; + /*_#IX__L13*/ + meltfnum[12] = /*_#SETQ___L41*/ meltfnum[31] = /*_#plI__L40*/ meltfnum[24];; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7967:/ clear"); - /*clear*/ /*_#miI__L38*/ meltfnum[33] = 0 ; + /*clear*/ /*_#miI__L38*/ + meltfnum[33] = 0 ; /*^clear*/ - /*clear*/ /*_#gteqI__L39*/ meltfnum[23] = 0 ; + /*clear*/ /*_#gteqI__L39*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L40*/ meltfnum[24] = 0 ; + /*clear*/ /*_#plI__L40*/ + meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L41*/ meltfnum[31] = 0 ; + /*clear*/ /*_#SETQ___L41*/ + meltfnum[31] = 0 ; } ; ; goto meltlabloop_LOOPANCESTORSUPER_1; meltlabexit_LOOPANCESTORSUPER_1:;/*^loopepilog*/ /*loopepilog*/ - /*_.FOREVER___V106*/ meltfptr[90] = /*_.LOOPANCESTORSUPER__V107*/ meltfptr[91];; + /*_.FOREVER___V106*/ + meltfptr[90] = /*_.LOOPANCESTORSUPER__V107*/ meltfptr[91];; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7983:/ cond"); - /*cond*/ if (/*_.SUPERDATA__V49*/ meltfptr[48]) /*then*/ + /*cond*/ + if (/*_.SUPERDATA__V49*/ meltfptr[48]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24549,7 +26999,8 @@ meltlabexit_LOOPANCESTORSUPER_1:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#miI__L42*/ meltfnum[33] = 0 ; + /*clear*/ /*_#miI__L42*/ + meltfnum[33] = 0 ; } ; } /*noelse*/ @@ -24560,7 +27011,8 @@ meltlabexit_LOOPANCESTORSUPER_1:;/*^loopepilog*/ MELT_LOCATION("warmelt-normal.melt:7985:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLADATA__V37*/ meltfptr[36];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLADATA__V37*/ meltfptr[36];; MELT_LOCATION("warmelt-normal.melt:7985:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -24568,126 +27020,184 @@ meltlabexit_LOOPANCESTORSUPER_1:;/*^loopepilog*/ ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V27*/ meltfptr[25] = /*_.RETURN___V113*/ meltfptr[99];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V27*/ + meltfptr[25] = /*_.RETURN___V113*/ meltfptr[99];; MELT_LOCATION("warmelt-normal.melt:7829:/ clear"); - /*clear*/ /*_.CLAOBJ__V28*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CLAOBJ__V28*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMSYMDATA__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.NAMSYMDATA__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMSTR__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.NAMSTR__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMSTRDATA__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.NAMSTRDATA__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_#OBJ_LEN__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#OBJ_LEN__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.CLASLOTS__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.CLASLOTS__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_#OBJ_HASH__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#OBJ_HASH__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.CLADATA__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.CLADATA__V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.ANCSEQ__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.ANCSEQ__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_#NBANC__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#NBANC__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.ANCTUP__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.ANCTUP__V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.ANCDATA__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.ANCDATA__V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.FLDSEQ__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.FLDSEQ__V44*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_#NBFLD__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#NBFLD__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#NBOWNFLD__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#NBOWNFLD__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_#NBSUPFLD__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#NBSUPFLD__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IX__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.FLDTUP__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.FLDTUP__V45*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V46*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.FLDDATA__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.FLDDATA__V47*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#IS_A__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.SUPERDATA__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.SUPERDATA__V49*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V52*/ meltfptr[49] = 0 ; + /*clear*/ /*_.IFCPP___V52*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L16*/ meltfnum[14] = 0 ; + /*clear*/ /*_#NULL__L16*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#_IF___L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V55*/ meltfptr[53] = 0 ; + /*clear*/ /*_.IFCPP___V55*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V58*/ meltfptr[56] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V58*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V59*/ meltfptr[50] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V59*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V61*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_DATA_SLOT__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.FILL_DATA_SLOT__V62*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_DATA_SLOT__V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_.FILL_DATA_SLOT__V63*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_DATA_SLOT__V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.FILL_DATA_SLOT__V64*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V65*/ meltfptr[64] = 0 ; + /*clear*/ /*_.IFCPP___V65*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L22*/ meltfnum[17] = 0 ; + /*clear*/ /*_#SETQ___L22*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V68*/ meltfptr[66] = 0 ; + /*clear*/ /*_.FOREVER___V68*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L26*/ meltfnum[22] = 0 ; + /*clear*/ /*_#SETQ___L26*/ + meltfnum[22] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V75*/ meltfptr[69] = 0 ; + /*clear*/ /*_.FOREVER___V75*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V104*/ meltfptr[87] = 0 ; + /*clear*/ /*_._IF___V104*/ + meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L37*/ meltfnum[32] = 0 ; + /*clear*/ /*_#SETQ___L37*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V106*/ meltfptr[90] = 0 ; + /*clear*/ /*_.FOREVER___V106*/ + meltfptr[90] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V113*/ meltfptr[99] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.LET___V27*/ meltfptr[25];; + /*clear*/ /*_.RETURN___V113*/ + meltfptr[99] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.LET___V27*/ meltfptr[25];; MELT_LOCATION("warmelt-normal.melt:7821:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SNAME__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SNAME__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SPREDEF__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SPREDEF__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.SCLABIND__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.SCLABIND__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.SUPERBIND__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.SUPERBIND__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.SFLDBINDS__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.SFLDBINDS__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.IFCPP___V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V27*/ meltfptr[25] = 0 ; + /*clear*/ /*_.LET___V27*/ + meltfptr[25] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7816:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:7816:/ locexp"); @@ -24702,17 +27212,22 @@ meltlabexit_LOOPANCESTORSUPER_1:;/*^loopepilog*/ ; /*^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*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -24794,7 +27309,8 @@ meltrout_141_WARMELTmiNORMAL_NORMEXP_DEFINSTANCE(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_141_WARMELTmiNORMAL_NORMEXP_DEFINSTANCE fromline 1756 */ - /* classy proc frame meltrout_141_WARMELTmiNORMAL_NORMEXP_DEFINSTANCE */ MeltFrame_meltrout_141_WARMELTmiNORMAL_NORMEXP_DEFINSTANCE + /* classy proc frame meltrout_141_WARMELTmiNORMAL_NORMEXP_DEFINSTANCE */ + MeltFrame_meltrout_141_WARMELTmiNORMAL_NORMEXP_DEFINSTANCE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_141_WARMELTmiNORMAL_NORMEXP_DEFINSTANCE fromline 1785*/ #if ENABLE_CHECKING @@ -24807,7 +27323,8 @@ meltrout_141_WARMELTmiNORMAL_NORMEXP_DEFINSTANCE(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("NORMEXP_DEFINSTANCE", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -24817,26 +27334,30 @@ meltrout_141_WARMELTmiNORMAL_NORMEXP_DEFINSTANCE(meltclosure_ptr_t meltclosp_, m /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:7994:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__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; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -24868,7 +27389,8 @@ 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)) @@ -24877,7 +27399,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:7995:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24910,16 +27433,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_definstance recv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7995:/ 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 ; } ; } @@ -24932,7 +27459,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:7995:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -24941,9 +27469,11 @@ 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*/ @@ -24973,10 +27503,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINSTANCE*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:7996:/ 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);; @@ -25005,25 +27537,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7996; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:7996:/ 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-normal.melt:7996:/ 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*/ @@ -25041,10 +27579,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:7997:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -25073,25 +27613,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7997; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 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__V13*/ + meltfptr[12] = 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___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7997:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7997:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25109,10 +27655,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:7998:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -25141,25 +27689,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7998; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7998:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:7998:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25175,7 +27729,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8000:/ getslot"); @@ -25183,7 +27738,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); - /*_.SNAME__V19*/ meltfptr[18] = slot; + /*_.SNAME__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8001:/ getslot"); @@ -25191,7 +27747,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SOBJ_PREDEF"); - /*_.SPREDEF__V20*/ meltfptr[19] = slot; + /*_.SPREDEF__V20*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8002:/ getslot"); @@ -25199,7 +27756,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); - /*_.SDOCSTR__V21*/ meltfptr[20] = slot; + /*_.SDOCSTR__V21*/ + meltfptr[20] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8003:/ getslot"); @@ -25207,7 +27765,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SINST_CLASS"); - /*_.SINSTCLASS__V22*/ meltfptr[21] = slot; + /*_.SINSTCLASS__V22*/ + meltfptr[21] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8004:/ getslot"); @@ -25215,16 +27774,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "SINST_CLABIND"); - /*_.SINSTCLABND__V23*/ meltfptr[22] = slot; + /*_.SINSTCLABND__V23*/ + meltfptr[22] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[0] = + /*_#IS_A__L6*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLABND__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:8005:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25236,14 +27798,17 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SINSTCLABND__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V25*/ meltfptr[24] = slot; + /*_.BINDER__V25*/ + meltfptr[24] = slot; }; ; - /*_.SINSTCLASYM__V24*/ meltfptr[23] = /*_.BINDER__V25*/ meltfptr[24];; + /*_.SINSTCLASYM__V24*/ + meltfptr[23] = /*_.BINDER__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8005:/ clear"); - /*clear*/ /*_.BINDER__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.BINDER__V25*/ + meltfptr[24] = 0 ; } ; } @@ -25258,7 +27823,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 7, "SINST_OBJNUM"); - /*_.SINSTOBJNUM__V26*/ meltfptr[24] = slot; + /*_.SINSTOBJNUM__V26*/ + meltfptr[24] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8007:/ getslot"); @@ -25266,10 +27832,12 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 8, "SINST_FIELDS"); - /*_.SINSTFIELDS__V27*/ meltfptr[26] = slot; + /*_.SINSTFIELDS__V27*/ + meltfptr[26] = slot; }; ; - /*_.NBINDLIST__V28*/ meltfptr[27] = + /*_.NBINDLIST__V28*/ + meltfptr[27] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));; MELT_CHECK_SIGNAL(); @@ -25282,7 +27850,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7])), (1), "CLASS_REFERENCE"); - /*_.INST__V30*/ meltfptr[29] = + /*_.INST__V30*/ + meltfptr[29] = newobj; }; ; @@ -25295,7 +27864,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V30*/ meltfptr[29], "newly made instance"); ; - /*_.NBINDCONT__V29*/ meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; + /*_.NBINDCONT__V29*/ + meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; MELT_CHECK_SIGNAL(); ; @@ -25306,7 +27876,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SNAME__V19*/ meltfptr[18]; - /*_.BINDINS__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.BINDINS__V31*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -25321,16 +27892,19 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.NAMDATA__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NAMDATA__V32*/ + meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ meltfnum[1] = + /*_#IS_A__L7*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-normal.melt:8013:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25351,14 +27925,17 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.NORMAL_EXP__V34*/ meltfptr[33] = meltgc_send((melt_ptr_t)(/*_.SINSTCLASYM__V24*/ meltfptr[23]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[11])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_EXP__V34*/ + meltfptr[33] = meltgc_send((melt_ptr_t)(/*_.SINSTCLASYM__V24*/ meltfptr[23]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[11])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.ICLADATA__V33*/ meltfptr[32] = /*_.NORMAL_EXP__V34*/ meltfptr[33];; + /*_.ICLADATA__V33*/ + meltfptr[32] = /*_.NORMAL_EXP__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8013:/ clear"); - /*clear*/ /*_.NORMAL_EXP__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.NORMAL_EXP__V34*/ + meltfptr[33] = 0 ; } ; } @@ -25388,7 +27965,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L8*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -25397,7 +27975,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8016:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25430,16 +28009,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_definstance bindins"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BINDINS__V31*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 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__V36*/ + meltfptr[35] = 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___V35*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];; + /*_._IF___V35*/ + meltfptr[33] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8016:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ + meltfptr[35] = 0 ; } ; } @@ -25452,7 +28035,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8016:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -25461,9 +28045,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V35*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V35*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25493,10 +28079,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L10*/ meltfnum[8] = + /*_#IS_A__L10*/ + meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.BINDINS__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_INSTANCE_BINDING*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:8017:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V38*/ meltfptr[33] = (/*nil*/NULL);; @@ -25525,25 +28113,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8017; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BINDINS__V31*/ meltfptr[30]; - /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38] = 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__V39*/ + meltfptr[38] = 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___V38*/ meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38];; + /*_._IFELSE___V38*/ + meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8017:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V39*/ + meltfptr[38] = 0 ; } ; } ; - /*_.IFCPP___V37*/ meltfptr[35] = /*_._IFELSE___V38*/ meltfptr[33];; + /*_.IFCPP___V37*/ + meltfptr[35] = /*_._IFELSE___V38*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8017:/ clear"); - /*clear*/ /*_#IS_A__L10*/ meltfnum[8] = 0 ; + /*clear*/ /*_#IS_A__L10*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V38*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IFELSE___V38*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25555,10 +28149,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_NOT_A__L11*/ meltfnum[7] = + /*_#IS_NOT_A__L11*/ + meltfnum[7] = !melt_is_instance_of((melt_ptr_t)(/*_.ICLADATA__V33*/ meltfptr[32]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-normal.melt:8018:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L11*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L11*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25570,7 +28166,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V41*/ meltfptr[33] = slot; + /*_.NAMED_NAME__V41*/ + meltfptr[33] = slot; }; ; @@ -25585,7 +28182,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "invalid class $1 in definstance"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V41*/ meltfptr[33]; - /*_.ERROR_AT__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V42*/ + meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -25594,7 +28192,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:8020:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-normal.melt:8020:/ locexp"); @@ -25609,23 +28208,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:8018:/ quasiblock"); - /*_.PROGN___V44*/ meltfptr[43] = /*_.RETURN___V43*/ meltfptr[42];; + /*_.PROGN___V44*/ + meltfptr[43] = /*_.RETURN___V43*/ meltfptr[42];; /*^compute*/ - /*_._IF___V40*/ meltfptr[38] = /*_.PROGN___V44*/ meltfptr[43];; + /*_._IF___V40*/ + meltfptr[38] = /*_.PROGN___V44*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8018:/ clear"); - /*clear*/ /*_.NAMED_NAME__V41*/ meltfptr[33] = 0 ; + /*clear*/ /*_.NAMED_NAME__V41*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.ERROR_AT__V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.RETURN___V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.PROGN___V44*/ + meltfptr[43] = 0 ; } ; } @@ -25639,10 +28245,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L12*/ meltfnum[8] = + /*_#NULL__L12*/ + meltfnum[8] = (/*null*/(/*_.SPREDEF__V20*/ meltfptr[19]) == NULL);; MELT_LOCATION("warmelt-normal.melt:8022:/ cond"); - /*cond*/ if (/*_#NULL__L12*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#NULL__L12*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V45*/ meltfptr[33] = (/*nil*/NULL);; @@ -25658,10 +28266,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_INTEGERBOX__L13*/ meltfnum[12] = + /*_#IS_INTEGERBOX__L13*/ + meltfnum[12] = (melt_magic_discr((melt_ptr_t)(/*_.SPREDEF__V20*/ meltfptr[19])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-normal.melt:8023:/ cond"); - /*cond*/ if (/*_#IS_INTEGERBOX__L13*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#IS_INTEGERBOX__L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V46*/ meltfptr[41] = (/*nil*/NULL);; @@ -25677,10 +28287,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L14*/ meltfnum[13] = + /*_#IS_A__L14*/ + meltfnum[13] = melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-normal.melt:8024:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#IS_A__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V47*/ meltfptr[42] = (/*nil*/NULL);; @@ -25698,7 +28310,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V48*/ meltfptr[43] = slot; + /*_.NAMED_NAME__V48*/ + meltfptr[43] = slot; }; ; @@ -25713,7 +28326,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "bad predef $1 in DEFINSTANCE"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V48*/ meltfptr[43]; - /*_.ERROR_AT__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V49*/ + meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -25722,7 +28336,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:8027:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-normal.melt:8027:/ locexp"); @@ -25737,45 +28352,58 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:8025:/ quasiblock"); - /*_.PROGN___V51*/ meltfptr[50] = /*_.RETURN___V50*/ meltfptr[49];; + /*_.PROGN___V51*/ + meltfptr[50] = /*_.RETURN___V50*/ meltfptr[49];; /*^compute*/ - /*_._IFELSE___V47*/ meltfptr[42] = /*_.PROGN___V51*/ meltfptr[50];; + /*_._IFELSE___V47*/ + meltfptr[42] = /*_.PROGN___V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8024:/ clear"); - /*clear*/ /*_.NAMED_NAME__V48*/ meltfptr[43] = 0 ; + /*clear*/ /*_.NAMED_NAME__V48*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.ERROR_AT__V49*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.RETURN___V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.PROGN___V51*/ + meltfptr[50] = 0 ; } ; } ; - /*_._IFELSE___V46*/ meltfptr[41] = /*_._IFELSE___V47*/ meltfptr[42];; + /*_._IFELSE___V46*/ + meltfptr[41] = /*_._IFELSE___V47*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8023:/ clear"); - /*clear*/ /*_#IS_A__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#IS_A__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V47*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IFELSE___V47*/ + meltfptr[42] = 0 ; } ; } ; - /*_._IFELSE___V45*/ meltfptr[33] = /*_._IFELSE___V46*/ meltfptr[41];; + /*_._IFELSE___V45*/ + meltfptr[33] = /*_._IFELSE___V46*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8022:/ clear"); - /*clear*/ /*_#IS_INTEGERBOX__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_INTEGERBOX__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V46*/ meltfptr[41] = 0 ; + /*clear*/ /*_._IFELSE___V46*/ + meltfptr[41] = 0 ; } ; } @@ -25790,10 +28418,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L15*/ meltfnum[13] = + /*_#IS_A__L15*/ + meltfnum[13] = melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASS__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[15])));; MELT_LOCATION("warmelt-normal.melt:8028:/ cond"); - /*cond*/ if (/*_#IS_A__L15*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#IS_A__L15*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V53*/ meltfptr[48] = (/*nil*/NULL);; @@ -25822,25 +28452,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8028; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SINSTCLASS__V22*/ meltfptr[21]; - /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[49] = 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__V54*/ + meltfptr[49] = 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___V53*/ meltfptr[48] = /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[49];; + /*_._IFELSE___V53*/ + meltfptr[48] = /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8028:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[49] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V54*/ + meltfptr[49] = 0 ; } ; } ; - /*_.IFCPP___V52*/ meltfptr[43] = /*_._IFELSE___V53*/ meltfptr[48];; + /*_.IFCPP___V52*/ + meltfptr[43] = /*_._IFELSE___V53*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8028:/ clear"); - /*clear*/ /*_#IS_A__L15*/ meltfnum[13] = 0 ; + /*clear*/ /*_#IS_A__L15*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V53*/ meltfptr[48] = 0 ; + /*clear*/ /*_._IFELSE___V53*/ + meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25858,10 +28494,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L16*/ meltfnum[12] = + /*_#IS_A__L16*/ + meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-normal.melt:8029:/ cond"); - /*cond*/ if (/*_#IS_A__L16*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#IS_A__L16*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V56*/ meltfptr[42] = (/*nil*/NULL);; @@ -25890,25 +28528,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8029; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SINSTCLASYM__V24*/ meltfptr[23]; - /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[41] = 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__V57*/ + meltfptr[41] = 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___V56*/ meltfptr[42] = /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[41];; + /*_._IFELSE___V56*/ + meltfptr[42] = /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8029:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[41] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V57*/ + meltfptr[41] = 0 ; } ; } ; - /*_.IFCPP___V55*/ meltfptr[50] = /*_._IFELSE___V56*/ meltfptr[42];; + /*_.IFCPP___V55*/ + meltfptr[50] = /*_._IFELSE___V56*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8029:/ clear"); - /*clear*/ /*_#IS_A__L16*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_A__L16*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V56*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IFELSE___V56*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25924,22 +28568,27 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SINSTCLASS__V22*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); - /*_.CLASS_FIELDS__V59*/ meltfptr[48] = slot; + /*_.CLASS_FIELDS__V59*/ + meltfptr[48] = slot; }; ; - /*_#MULTIPLE_LENGTH__L17*/ meltfnum[13] = + /*_#MULTIPLE_LENGTH__L17*/ + meltfnum[13] = (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V59*/ meltfptr[48])));; /*^compute*/ - /*_.SLOTUP__V60*/ meltfptr[41] = + /*_.SLOTUP__V60*/ + meltfptr[41] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[16])), (/*_#MULTIPLE_LENGTH__L17*/ meltfnum[13])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NONZERO_HASH__L18*/ meltfnum[12] = + /*_#NONZERO_HASH__L18*/ + meltfnum[12] = (melt_nonzerohash());; /*^compute*/ - /*_.MAKE_INTEGERBOX__V61*/ meltfptr[42] = + /*_.MAKE_INTEGERBOX__V61*/ + meltfptr[42] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[18])), (/*_#NONZERO_HASH__L18*/ meltfnum[12])));; MELT_LOCATION("warmelt-normal.melt:8033:/ quasiblock"); @@ -25949,7 +28598,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ meltfrout->tabval[17])), (9), "CLASS_NREP_DATAINSTANCE"); - /*_.INST__V63*/ meltfptr[62] = + /*_.INST__V63*/ + meltfptr[62] = newobj; }; ; @@ -25992,7 +28642,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V63*/ meltfptr[62], "newly made instance"); ; - /*_.INSDATA__V62*/ meltfptr[61] = /*_.INST__V63*/ meltfptr[62];; + /*_.INSDATA__V62*/ + meltfptr[61] = /*_.INST__V63*/ meltfptr[62];; MELT_CHECK_SIGNAL(); ; @@ -26003,7 +28654,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INSDATA__V62*/ meltfptr[61]; - /*_.ADD_NCTX_DATA__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V64*/ + meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -26016,14 +28668,16 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.BINDINS__V31*/ meltfptr[30]; - /*_.PUT_ENV__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V65*/ + meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:8045:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDINS__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ meltfrout->tabval[21]))) ) /*then*/ @@ -26082,7 +28736,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ meltfnum[19] = + /*_#MELT_NEED_DBG__L20*/ + meltfnum[19] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -26091,7 +28746,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8050:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L20*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26124,16 +28780,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_definstance flda"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FLDA__V66*/ meltfptr[65]; - /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67] = 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__V68*/ + meltfptr[67] = 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___V67*/ meltfptr[66] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67];; + /*_._IF___V67*/ + meltfptr[66] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8050:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ + meltfptr[67] = 0 ; } ; } @@ -26146,7 +28806,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8050:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -26155,9 +28816,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_._IF___V67*/ + meltfptr[66] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26187,10 +28850,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L22*/ meltfnum[20] = + /*_#IS_A__L22*/ + meltfnum[20] = melt_is_instance_of((melt_ptr_t)(/*_.FLDA__V66*/ meltfptr[65]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ meltfrout->tabval[22])));; MELT_LOCATION("warmelt-normal.melt:8051:/ cond"); - /*cond*/ if (/*_#IS_A__L22*/ meltfnum[20]) /*then*/ + /*cond*/ + if (/*_#IS_A__L22*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V70*/ meltfptr[66] = (/*nil*/NULL);; @@ -26219,25 +28884,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8051; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FLDA__V66*/ meltfptr[65]; - /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[70] = 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__V71*/ + meltfptr[70] = 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___V70*/ meltfptr[66] = /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[70];; + /*_._IFELSE___V70*/ + meltfptr[66] = /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[70];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8051:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[70] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V71*/ + meltfptr[70] = 0 ; } ; } ; - /*_.IFCPP___V69*/ meltfptr[67] = /*_._IFELSE___V70*/ meltfptr[66];; + /*_.IFCPP___V69*/ + meltfptr[67] = /*_._IFELSE___V70*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8051:/ clear"); - /*clear*/ /*_#IS_A__L22*/ meltfnum[20] = 0 ; + /*clear*/ /*_#IS_A__L22*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V70*/ meltfptr[66] = 0 ; + /*clear*/ /*_._IFELSE___V70*/ + meltfptr[66] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26253,7 +28924,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLDA__V66*/ meltfptr[65]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SFLA_FIELD"); - /*_.CURFLD__V72*/ meltfptr[70] = slot; + /*_.CURFLD__V72*/ + meltfptr[70] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8053:/ getslot"); @@ -26261,10 +28933,12 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLDA__V66*/ meltfptr[65]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SFLA_EXPR"); - /*_.CUREXP__V73*/ meltfptr[66] = slot; + /*_.CUREXP__V73*/ + meltfptr[66] = slot; }; ; - /*_#CUROFF__L23*/ meltfnum[19] = + /*_#CUROFF__L23*/ + meltfnum[19] = (melt_obj_num((melt_ptr_t)(/*_.CURFLD__V72*/ meltfptr[70])));; #if MELT_HAVE_DEBUG @@ -26276,10 +28950,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L24*/ meltfnum[20] = + /*_#IS_A__L24*/ + meltfnum[20] = melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V72*/ meltfptr[70]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[23])));; MELT_LOCATION("warmelt-normal.melt:8056:/ cond"); - /*cond*/ if (/*_#IS_A__L24*/ meltfnum[20]) /*then*/ + /*cond*/ + if (/*_#IS_A__L24*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V75*/ meltfptr[74] = (/*nil*/NULL);; @@ -26308,25 +28984,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8056; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURFLD__V72*/ meltfptr[70]; - /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[75] = 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__V76*/ + meltfptr[75] = 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___V75*/ meltfptr[74] = /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[75];; + /*_._IFELSE___V75*/ + meltfptr[74] = /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[75];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8056:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[75] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V76*/ + meltfptr[75] = 0 ; } ; } ; - /*_.IFCPP___V74*/ meltfptr[73] = /*_._IFELSE___V75*/ meltfptr[74];; + /*_.IFCPP___V74*/ + meltfptr[73] = /*_._IFELSE___V75*/ meltfptr[74];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8056:/ clear"); - /*clear*/ /*_#IS_A__L24*/ meltfnum[20] = 0 ; + /*clear*/ /*_#IS_A__L24*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V75*/ meltfptr[74] = 0 ; + /*clear*/ /*_._IFELSE___V75*/ + meltfptr[74] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26342,16 +29024,20 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SINSTCLASS__V22*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); - /*_.CLASS_FIELDS__V77*/ meltfptr[75] = slot; + /*_.CLASS_FIELDS__V77*/ + meltfptr[75] = slot; }; ; - /*_.MULTIPLE_NTH__V78*/ meltfptr[74] = + /*_.MULTIPLE_NTH__V78*/ + meltfptr[74] = (melt_multiple_nth((melt_ptr_t)(/*_.CLASS_FIELDS__V77*/ meltfptr[75]), (/*_#CUROFF__L23*/ meltfnum[19])));; /*^compute*/ - /*_#exeq__L25*/ meltfnum[20] = + /*_#exeq__L25*/ + meltfnum[20] = ((/*_.MULTIPLE_NTH__V78*/ meltfptr[74]) != (/*_.CURFLD__V72*/ meltfptr[70]));; MELT_LOCATION("warmelt-normal.melt:8057:/ cond"); - /*cond*/ if (/*_#exeq__L25*/ meltfnum[20]) /*then*/ + /*cond*/ + if (/*_#exeq__L25*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26359,7 +29045,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8061:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V72*/ meltfptr[70]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[24]))) ) /*then*/ @@ -26370,7 +29057,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLD__V72*/ meltfptr[70]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V80*/ meltfptr[79] = slot; + /*_.NAMED_NAME__V80*/ + meltfptr[79] = slot; }; ; } @@ -26392,13 +29080,15 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "inappropriate field $1 in DEFINSTANCE"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V80*/ meltfptr[79]; - /*_.ERROR_AT__V81*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V81*/ + meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:8063:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:8063:/ locexp"); @@ -26413,23 +29103,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:8057:/ quasiblock"); - /*_.PROGN___V83*/ meltfptr[82] = /*_.RETURN___V82*/ meltfptr[81];; + /*_.PROGN___V83*/ + meltfptr[82] = /*_.RETURN___V82*/ meltfptr[81];; /*^compute*/ - /*_._IF___V79*/ meltfptr[78] = /*_.PROGN___V83*/ meltfptr[82];; + /*_._IF___V79*/ + meltfptr[78] = /*_.PROGN___V83*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8057:/ clear"); - /*clear*/ /*_.NAMED_NAME__V80*/ meltfptr[79] = 0 ; + /*clear*/ /*_.NAMED_NAME__V80*/ + meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V81*/ meltfptr[80] = 0 ; + /*clear*/ /*_.ERROR_AT__V81*/ + meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V82*/ meltfptr[81] = 0 ; + /*clear*/ /*_.RETURN___V82*/ + meltfptr[81] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_.PROGN___V83*/ + meltfptr[82] = 0 ; } ; } @@ -26459,7 +29156,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L26*/ meltfnum[25] = + /*_#MELT_NEED_DBG__L26*/ + meltfnum[25] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -26468,7 +29166,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8064:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L26*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26501,16 +29200,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_definstance field curexp"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V73*/ meltfptr[66]; - /*_.MELT_DEBUG_FUN__V85*/ meltfptr[80] = 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__V85*/ + meltfptr[80] = 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___V84*/ meltfptr[79] = /*_.MELT_DEBUG_FUN__V85*/ meltfptr[80];; + /*_._IF___V84*/ + meltfptr[79] = /*_.MELT_DEBUG_FUN__V85*/ meltfptr[80];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8064:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L27*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V85*/ meltfptr[80] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V85*/ + meltfptr[80] = 0 ; } ; } @@ -26523,7 +29226,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8064:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -26532,9 +29236,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L26*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V84*/ meltfptr[79] = 0 ; + /*clear*/ /*_._IF___V84*/ + meltfptr[79] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26573,7 +29279,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V87*/ meltfptr[82];/*^multimsend.send*/ - /*_.NCUR__V86*/ meltfptr[81] = meltgc_send ((melt_ptr_t)(/*_.CUREXP__V73*/ meltfptr[66]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[11]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NCUR__V86*/ + meltfptr[81] = meltgc_send ((melt_ptr_t)(/*_.CUREXP__V73*/ meltfptr[66]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[11]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -26599,7 +29306,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L28*/ meltfnum[26] = + /*_#MELT_NEED_DBG__L28*/ + meltfnum[26] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -26608,7 +29316,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8068:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L28*/ meltfnum[26]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L28*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26645,16 +29354,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbindcur="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V87*/ meltfptr[82]; - /*_.MELT_DEBUG_FUN__V89*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V89*/ + meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V88*/ meltfptr[80] = /*_.MELT_DEBUG_FUN__V89*/ meltfptr[79];; + /*_._IF___V88*/ + meltfptr[80] = /*_.MELT_DEBUG_FUN__V89*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8068:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L29*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L29*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V89*/ meltfptr[79] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V89*/ + meltfptr[79] = 0 ; } ; } @@ -26667,7 +29380,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8068:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -26676,9 +29390,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L28*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L28*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V88*/ meltfptr[80] = 0 ; + /*clear*/ /*_._IF___V88*/ + meltfptr[80] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26711,16 +29427,19 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.CURCTYPE__V91*/ meltfptr[80] = meltgc_send((melt_ptr_t)(/*_.NCUR__V86*/ meltfptr[81]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[25])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CURCTYPE__V91*/ + meltfptr[80] = meltgc_send((melt_ptr_t)(/*_.NCUR__V86*/ meltfptr[81]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[25])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#exeq__L30*/ meltfnum[25] = + /*_#exeq__L30*/ + meltfnum[25] = ((/*_.CURCTYPE__V91*/ meltfptr[80]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[26])));; MELT_LOCATION("warmelt-normal.melt:8071:/ cond"); - /*cond*/ if (/*_#exeq__L30*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#exeq__L30*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26728,7 +29447,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8074:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V72*/ meltfptr[70]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[24]))) ) /*then*/ @@ -26739,7 +29459,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLD__V72*/ meltfptr[70]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V93*/ meltfptr[92] = slot; + /*_.NAMED_NAME__V93*/ + meltfptr[92] = slot; }; ; } @@ -26750,7 +29471,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:8074:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYPE__V91*/ meltfptr[80]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[24]))) ) /*then*/ @@ -26761,7 +29483,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYPE__V91*/ meltfptr[80]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V94*/ meltfptr[93] = slot; + /*_.NAMED_NAME__V94*/ + meltfptr[93] = slot; }; ; } @@ -26785,18 +29508,23 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V93*/ meltfptr[92]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V94*/ meltfptr[93]; - /*_.ERROR_AT__V95*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V95*/ + meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V92*/ meltfptr[91] = /*_.ERROR_AT__V95*/ meltfptr[94];; + /*_._IF___V92*/ + meltfptr[91] = /*_.ERROR_AT__V95*/ meltfptr[94];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8071:/ clear"); - /*clear*/ /*_.NAMED_NAME__V93*/ meltfptr[92] = 0 ; + /*clear*/ /*_.NAMED_NAME__V93*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V94*/ meltfptr[93] = 0 ; + /*clear*/ /*_.NAMED_NAME__V94*/ + meltfptr[93] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V95*/ meltfptr[94] = 0 ; + /*clear*/ /*_.ERROR_AT__V95*/ + meltfptr[94] = 0 ; } ; } @@ -26807,14 +29535,18 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V90*/ meltfptr[79] = /*_._IF___V92*/ meltfptr[91];; + /*_.LET___V90*/ + meltfptr[79] = /*_._IF___V92*/ meltfptr[91];; MELT_LOCATION("warmelt-normal.melt:8069:/ clear"); - /*clear*/ /*_.CURCTYPE__V91*/ meltfptr[80] = 0 ; + /*clear*/ /*_.CURCTYPE__V91*/ + meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L30*/ meltfnum[25] = 0 ; + /*clear*/ /*_#exeq__L30*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V92*/ meltfptr[91] = 0 ; + /*clear*/ /*_._IF___V92*/ + meltfptr[91] = 0 ; { MELT_LOCATION("warmelt-normal.melt:8076:/ locexp"); @@ -26824,10 +29556,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L31*/ meltfnum[26] = + /*_#IS_LIST__L31*/ + meltfnum[26] = (melt_magic_discr((melt_ptr_t)(/*_.NBINDCUR__V87*/ meltfptr[82])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:8077:/ cond"); - /*cond*/ if (/*_#IS_LIST__L31*/ meltfnum[26]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L31*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26838,7 +29572,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NBINDCONT__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -26849,7 +29584,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NBINDCONT__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.THEBINDLIST__V96*/ meltfptr[92] = slot; + /*_.THEBINDLIST__V96*/ + meltfptr[92] = slot; }; ; } @@ -26869,16 +29605,19 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V87*/ meltfptr[82]; - /*_.LIST_APPEND2LIST__V97*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.THEBINDLIST__V96*/ meltfptr[92]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V97*/ + meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.THEBINDLIST__V96*/ meltfptr[92]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.THEBINDLIST__V96*/ meltfptr[92] = /*_.SETQ___V98*/ meltfptr[94] = /*_.LIST_APPEND2LIST__V97*/ meltfptr[93];; + /*_.THEBINDLIST__V96*/ + meltfptr[92] = /*_.SETQ___V98*/ meltfptr[94] = /*_.LIST_APPEND2LIST__V97*/ meltfptr[93];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:8080:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NBINDCONT__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -26907,11 +29646,14 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:8078:/ clear"); - /*clear*/ /*_.THEBINDLIST__V96*/ meltfptr[92] = 0 ; + /*clear*/ /*_.THEBINDLIST__V96*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_APPEND2LIST__V97*/ meltfptr[93] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V97*/ + meltfptr[93] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V98*/ meltfptr[94] = 0 ; + /*clear*/ /*_.SETQ___V98*/ + meltfptr[94] = 0 ; /*epilog*/ } ; @@ -26922,47 +29664,62 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:8065:/ clear"); - /*clear*/ /*_.LET___V90*/ meltfptr[79] = 0 ; + /*clear*/ /*_.LET___V90*/ + meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L31*/ meltfnum[26] = 0 ; + /*clear*/ /*_#IS_LIST__L31*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDCUR__V87*/ meltfptr[82] = 0 ; + /*clear*/ /*_.NBINDCUR__V87*/ + meltfptr[82] = 0 ; MELT_LOCATION("warmelt-normal.melt:8052:/ clear"); - /*clear*/ /*_.CURFLD__V72*/ meltfptr[70] = 0 ; + /*clear*/ /*_.CURFLD__V72*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.CUREXP__V73*/ meltfptr[66] = 0 ; + /*clear*/ /*_.CUREXP__V73*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_#CUROFF__L23*/ meltfnum[19] = 0 ; + /*clear*/ /*_#CUROFF__L23*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V74*/ meltfptr[73] = 0 ; + /*clear*/ /*_.IFCPP___V74*/ + meltfptr[73] = 0 ; /*^clear*/ - /*clear*/ /*_.CLASS_FIELDS__V77*/ meltfptr[75] = 0 ; + /*clear*/ /*_.CLASS_FIELDS__V77*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_NTH__V78*/ meltfptr[74] = 0 ; + /*clear*/ /*_.MULTIPLE_NTH__V78*/ + meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L25*/ meltfnum[20] = 0 ; + /*clear*/ /*_#exeq__L25*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V79*/ meltfptr[78] = 0 ; + /*clear*/ /*_._IF___V79*/ + meltfptr[78] = 0 ; if (/*_#IX__L19*/ meltfnum[18]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:8047:/ clear"); - /*clear*/ /*_.FLDA__V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.FLDA__V66*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IX__L19*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V69*/ meltfptr[67] = 0 ; + /*clear*/ /*_.IFCPP___V69*/ + meltfptr[67] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-normal.melt:8082:/ quasiblock"); /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NBINDCONT__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -26973,7 +29730,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NBINDCONT__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.THEBINDLIST__V100*/ meltfptr[91] = slot; + /*_.THEBINDLIST__V100*/ + meltfptr[91] = slot; }; ; } @@ -26993,19 +29751,23 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[16]); - /*_.NBINDTUP__V101*/ meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[28])), (melt_ptr_t)(/*_.THEBINDLIST__V100*/ meltfptr[91]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NBINDTUP__V101*/ + meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[28])), (melt_ptr_t)(/*_.THEBINDLIST__V100*/ meltfptr[91]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#MULTIPLE_LENGTH__L32*/ meltfnum[25] = + /*_#MULTIPLE_LENGTH__L32*/ + meltfnum[25] = (melt_multiple_length((melt_ptr_t)(/*_.NBINDTUP__V101*/ meltfptr[92])));; /*^compute*/ - /*_#gtI__L33*/ meltfnum[26] = + /*_#gtI__L33*/ + meltfnum[26] = ((/*_#MULTIPLE_LENGTH__L32*/ meltfnum[25]) > (0));; MELT_LOCATION("warmelt-normal.melt:8085:/ cond"); - /*cond*/ if (/*_#gtI__L33*/ meltfnum[26]) /*then*/ + /*cond*/ + if (/*_#gtI__L33*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27056,7 +29818,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L34*/ meltfnum[19] = + /*_#MELT_NEED_DBG__L34*/ + meltfnum[19] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -27065,7 +29828,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8088:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L34*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L34*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27098,16 +29862,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_definstance return insdata"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.INSDATA__V62*/ meltfptr[61]; - /*_.MELT_DEBUG_FUN__V103*/ meltfptr[94] = 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__V103*/ + meltfptr[94] = 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___V102*/ meltfptr[93] = /*_.MELT_DEBUG_FUN__V103*/ meltfptr[94];; + /*_._IF___V102*/ + meltfptr[93] = /*_.MELT_DEBUG_FUN__V103*/ meltfptr[94];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8088:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L35*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L35*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V103*/ meltfptr[94] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V103*/ + meltfptr[94] = 0 ; } ; } @@ -27120,7 +29888,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8088:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27129,9 +29898,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L34*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L34*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V102*/ meltfptr[93] = 0 ; + /*clear*/ /*_._IF___V102*/ + meltfptr[93] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27157,7 +29928,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:8089:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.INSDATA__V62*/ meltfptr[61];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.INSDATA__V62*/ meltfptr[61];; MELT_LOCATION("warmelt-normal.melt:8089:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -27165,96 +29937,139 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V99*/ meltfptr[80] = /*_.RETURN___V104*/ meltfptr[79];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V99*/ + meltfptr[80] = /*_.RETURN___V104*/ meltfptr[79];; MELT_LOCATION("warmelt-normal.melt:8082:/ clear"); - /*clear*/ /*_.THEBINDLIST__V100*/ meltfptr[91] = 0 ; + /*clear*/ /*_.THEBINDLIST__V100*/ + meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDTUP__V101*/ meltfptr[92] = 0 ; + /*clear*/ /*_.NBINDTUP__V101*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L32*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L32*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L33*/ meltfnum[26] = 0 ; + /*clear*/ /*_#gtI__L33*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V104*/ meltfptr[79] = 0 ; - /*_.LET___V58*/ meltfptr[49] = /*_.LET___V99*/ meltfptr[80];; + /*clear*/ /*_.RETURN___V104*/ + meltfptr[79] = 0 ; + /*_.LET___V58*/ + meltfptr[49] = /*_.LET___V99*/ meltfptr[80];; MELT_LOCATION("warmelt-normal.melt:8030:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V59*/ meltfptr[48] = 0 ; + /*clear*/ /*_.CLASS_FIELDS__V59*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L17*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L17*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.SLOTUP__V60*/ meltfptr[41] = 0 ; + /*clear*/ /*_.SLOTUP__V60*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_#NONZERO_HASH__L18*/ meltfnum[12] = 0 ; + /*clear*/ /*_#NONZERO_HASH__L18*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V61*/ meltfptr[42] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V61*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.INSDATA__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.INSDATA__V62*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V64*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V65*/ meltfptr[64] = 0 ; + /*clear*/ /*_.PUT_ENV__V65*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V99*/ meltfptr[80] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.LET___V58*/ meltfptr[49];; + /*clear*/ /*_.LET___V99*/ + meltfptr[80] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.LET___V58*/ meltfptr[49];; MELT_LOCATION("warmelt-normal.melt:7999:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SNAME__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SNAME__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SPREDEF__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SPREDEF__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.SDOCSTR__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.SDOCSTR__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.SINSTCLASS__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.SINSTCLASS__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.SINSTCLABND__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.SINSTCLABND__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.SINSTCLASYM__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.SINSTCLASYM__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.SINSTOBJNUM__V26*/ meltfptr[24] = 0 ; + /*clear*/ /*_.SINSTOBJNUM__V26*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.SINSTFIELDS__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.SINSTFIELDS__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDLIST__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.NBINDLIST__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDCONT__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.NBINDCONT__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDINS__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.BINDINS__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMDATA__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.NAMDATA__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.ICLADATA__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.ICLADATA__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V37*/ meltfptr[35] = 0 ; + /*clear*/ /*_.IFCPP___V37*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L11*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_NOT_A__L11*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ meltfptr[38] = 0 ; + /*clear*/ /*_._IF___V40*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L12*/ meltfnum[8] = 0 ; + /*clear*/ /*_#NULL__L12*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V45*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IFELSE___V45*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V52*/ meltfptr[43] = 0 ; + /*clear*/ /*_.IFCPP___V52*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V55*/ meltfptr[50] = 0 ; + /*clear*/ /*_.IFCPP___V55*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V58*/ meltfptr[49] = 0 ; + /*clear*/ /*_.LET___V58*/ + meltfptr[49] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:7994:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:7994:/ locexp"); @@ -27269,17 +30084,22 @@ 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*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -27361,7 +30181,8 @@ meltrout_142_WARMELTmiNORMAL_NORMEXP_DEFVAR(meltclosure_ptr_t meltclosp_, melt_p /* end of frame for routine meltrout_142_WARMELTmiNORMAL_NORMEXP_DEFVAR fromline 1756 */ - /* classy proc frame meltrout_142_WARMELTmiNORMAL_NORMEXP_DEFVAR */ MeltFrame_meltrout_142_WARMELTmiNORMAL_NORMEXP_DEFVAR + /* classy proc frame meltrout_142_WARMELTmiNORMAL_NORMEXP_DEFVAR */ + MeltFrame_meltrout_142_WARMELTmiNORMAL_NORMEXP_DEFVAR meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_142_WARMELTmiNORMAL_NORMEXP_DEFVAR fromline 1785*/ #if ENABLE_CHECKING @@ -27374,7 +30195,8 @@ meltrout_142_WARMELTmiNORMAL_NORMEXP_DEFVAR(meltclosure_ptr_t meltclosp_, melt_p #define meltframe meltfram__ melt_trace_start("NORMEXP_DEFVAR", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -27384,26 +30206,30 @@ meltrout_142_WARMELTmiNORMAL_NORMEXP_DEFVAR(meltclosure_ptr_t meltclosp_, melt_p /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:8096:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__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; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -27435,7 +30261,8 @@ 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)) @@ -27444,7 +30271,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8097:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27477,16 +30305,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defvar recv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:8097:/ 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 ; } ; } @@ -27499,7 +30331,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8097:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27508,9 +30341,11 @@ 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*/ @@ -27540,10 +30375,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFVAR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:8098:/ 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);; @@ -27572,25 +30409,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8098; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:8098:/ 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-normal.melt:8098:/ 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*/ @@ -27608,10 +30451,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:8099:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -27640,25 +30485,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8099; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 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__V13*/ + meltfptr[12] = 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___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8099:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8099:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27676,10 +30527,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:8100:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -27708,25 +30561,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8100; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8100:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8100:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27742,7 +30601,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8102:/ getslot"); @@ -27750,7 +30610,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); - /*_.SNAME__V19*/ meltfptr[18] = slot; + /*_.SNAME__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8103:/ getslot"); @@ -27758,7 +30619,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 12, "NCTX_MODULCONTEXT"); - /*_.MODCTX__V20*/ meltfptr[19] = slot; + /*_.MODCTX__V20*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8104:/ getslot"); @@ -27766,7 +30628,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 11, "NCTX_CURPROC"); - /*_.CURPROC__V21*/ meltfptr[20] = slot; + /*_.CURPROC__V21*/ + meltfptr[20] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8105:/ getslot"); @@ -27774,7 +30637,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 17, "MOCX_VARCOUNT"); - /*_.BNBVAR__V22*/ meltfptr[21] = slot; + /*_.BNBVAR__V22*/ + meltfptr[21] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8106:/ getslot"); @@ -27782,13 +30646,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 18, "MOCX_VARLIST"); - /*_.VARLIST__V23*/ meltfptr[22] = slot; + /*_.VARLIST__V23*/ + meltfptr[22] = slot; }; ; - /*_#GET_INT__L6*/ meltfnum[0] = + /*_#GET_INT__L6*/ + meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.BNBVAR__V22*/ meltfptr[21])));; /*^compute*/ - /*_#NUMVAR__L7*/ meltfnum[1] = + /*_#NUMVAR__L7*/ + meltfnum[1] = ((/*_#GET_INT__L6*/ meltfnum[0]) + (1));; #if MELT_HAVE_DEBUG @@ -27810,7 +30677,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L8*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -27819,7 +30687,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8109:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27852,16 +30721,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defvar modctx="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V24*/ meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; + /*_._IF___V24*/ + meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8109:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ + meltfptr[24] = 0 ; } ; } @@ -27874,7 +30747,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8109:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27883,9 +30757,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V24*/ + meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27908,10 +30784,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L10*/ meltfnum[8] = + /*_#IS_NOT_A__L10*/ + meltfnum[8] = !melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_NREP_INITPROC*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:8110:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L10*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27930,13 +30808,15 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "(DEFVAR $1) can appear only at top-level"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SNAME__V19*/ meltfptr[18]; - /*_.ERROR_AT__V27*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V27*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:8112:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:8112:/ locexp"); @@ -27951,21 +30831,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:8110:/ quasiblock"); - /*_.PROGN___V29*/ meltfptr[28] = /*_.RETURN___V28*/ meltfptr[27];; + /*_.PROGN___V29*/ + meltfptr[28] = /*_.RETURN___V28*/ meltfptr[27];; /*^compute*/ - /*_._IF___V26*/ meltfptr[24] = /*_.PROGN___V29*/ meltfptr[28];; + /*_._IF___V26*/ + meltfptr[24] = /*_.PROGN___V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8110:/ clear"); - /*clear*/ /*_.ERROR_AT__V27*/ meltfptr[23] = 0 ; + /*clear*/ /*_.ERROR_AT__V27*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.RETURN___V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.PROGN___V29*/ + meltfptr[28] = 0 ; } ; } @@ -27996,7 +30882,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[1].meltbp_aptr = (melt_ptr_t*) &/*_.GOTENV__V33*/ meltfptr[32]; /*^multiapply.appl*/ - /*_.VBIND__V31*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENCLOSING_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), restab); + /*_.VBIND__V31*/ + meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENCLOSING_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -28022,7 +30909,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L11*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28031,7 +30919,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8116:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L11*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28072,16 +30961,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n gotenv="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.GOTENV__V33*/ meltfptr[32]; - /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V34*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; + /*_._IF___V34*/ + meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8116:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = 0 ; } ; } @@ -28094,7 +30987,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8116:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28103,9 +30997,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V34*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28128,10 +31024,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#exeq__L13*/ meltfnum[11] = + /*_#exeq__L13*/ + meltfnum[11] = ((/*_.GOTENV__V33*/ meltfptr[32]) != (/*_.ENV__V3*/ meltfptr[2]));; MELT_LOCATION("warmelt-normal.melt:8118:/ cond"); - /*cond*/ if (/*_#exeq__L13*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#exeq__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_#OR___L14*/ meltfnum[7] = /*_#exeq__L13*/ meltfnum[11];; @@ -28147,17 +31045,20 @@ meltlab_endgetargs: /*_#IS_NOT_A__L15*/ meltfnum[14] = !melt_is_instance_of((melt_ptr_t)(/*_.VBIND__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_VARIABLE_BINDING*/ meltfrout->tabval[8])));; /*^compute*/ - /*_#OR___L14*/ meltfnum[7] = /*_#IS_NOT_A__L15*/ meltfnum[14];; + /*_#OR___L14*/ + meltfnum[7] = /*_#IS_NOT_A__L15*/ meltfnum[14];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8118:/ clear"); - /*clear*/ /*_#IS_NOT_A__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#IS_NOT_A__L15*/ + meltfnum[14] = 0 ; } ; } ; MELT_LOCATION("warmelt-normal.melt:8117:/ cond"); - /*cond*/ if (/*_#OR___L14*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#OR___L14*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28165,7 +31066,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8121:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[9]))) ) /*then*/ @@ -28176,7 +31078,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V37*/ meltfptr[33] = slot; + /*_.NAMED_NAME__V37*/ + meltfptr[33] = slot; }; ; } @@ -28198,13 +31101,15 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "cannot redefine variable $1 with DEFVAR"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V37*/ meltfptr[33]; - /*_.ERROR_AT__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V38*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:8122:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:8122:/ locexp"); @@ -28219,23 +31124,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:8117:/ quasiblock"); - /*_.PROGN___V40*/ meltfptr[39] = /*_.RETURN___V39*/ meltfptr[38];; + /*_.PROGN___V40*/ + meltfptr[39] = /*_.RETURN___V39*/ meltfptr[38];; /*^compute*/ - /*_._IF___V36*/ meltfptr[34] = /*_.PROGN___V40*/ meltfptr[39];; + /*_._IF___V36*/ + meltfptr[34] = /*_.PROGN___V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8117:/ clear"); - /*clear*/ /*_.NAMED_NAME__V37*/ meltfptr[33] = 0 ; + /*clear*/ /*_.NAMED_NAME__V37*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.ERROR_AT__V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.RETURN___V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.PROGN___V40*/ + meltfptr[39] = 0 ; } ; } @@ -28265,7 +31177,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ meltfnum[14] = + /*_#MELT_NEED_DBG__L16*/ + meltfnum[14] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28274,7 +31187,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8123:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28307,16 +31221,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defvar class_normal_module_variable_binding="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!CLASS_NORMAL_MODULE_VARIABLE_BINDING*/ meltfrout->tabval[10]); - /*_.MELT_DEBUG_FUN__V42*/ meltfptr[37] = 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__V42*/ + meltfptr[37] = 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___V41*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[37];; + /*_._IF___V41*/ + meltfptr[33] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8123:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ + meltfptr[37] = 0 ; } ; } @@ -28329,7 +31247,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8123:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28338,9 +31257,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V41*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V41*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28363,7 +31284,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:8124:/ quasiblock"); - /*_.BNUMVAR__V44*/ meltfptr[39] = + /*_.BNUMVAR__V44*/ + meltfptr[39] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#NUMVAR__L7*/ meltfnum[1]));; MELT_CHECK_SIGNAL(); @@ -28376,7 +31298,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_MODULE_VARIABLE_BINDING*/ meltfrout->tabval[10])), (3), "CLASS_NORMAL_MODULE_VARIABLE_BINDING"); - /*_.INST__V46*/ meltfptr[33] = + /*_.INST__V46*/ + meltfptr[33] = newobj; }; ; @@ -28394,7 +31317,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V46*/ meltfptr[33], "newly made instance"); ; - /*_.VARBND__V45*/ meltfptr[37] = /*_.INST__V46*/ meltfptr[33];; + /*_.VARBND__V45*/ + meltfptr[37] = /*_.INST__V46*/ meltfptr[33];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:8130:/ cppif.then"); @@ -28415,7 +31339,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L18*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28424,7 +31349,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8130:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28457,16 +31383,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defvar varbnd="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.VARBND__V45*/ meltfptr[37]; - /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = 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__V48*/ + meltfptr[47] = 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___V47*/ meltfptr[46] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47];; + /*_._IF___V47*/ + meltfptr[46] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8130:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ + meltfptr[47] = 0 ; } ; } @@ -28479,7 +31409,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8130:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28488,9 +31419,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_._IF___V47*/ + meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28526,7 +31459,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VARBND__V45*/ meltfptr[37]; - /*_.PUT_ENV__V49*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V49*/ + meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28555,7 +31489,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ meltfnum[14] = + /*_#MELT_NEED_DBG__L20*/ + meltfnum[14] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28564,7 +31499,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8134:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L20*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28597,16 +31533,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defvar updated varlist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.VARLIST__V23*/ meltfptr[22]; - /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 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__V51*/ + meltfptr[50] = 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___V50*/ meltfptr[46] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; + /*_._IF___V50*/ + meltfptr[46] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8134:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ + meltfptr[50] = 0 ; } ; } @@ -28619,7 +31559,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8134:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28628,9 +31569,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V50*/ meltfptr[46] = 0 ; + /*clear*/ /*_._IF___V50*/ + meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28653,7 +31596,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:8135:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:8135:/ locexp"); @@ -28668,66 +31612,92 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V43*/ meltfptr[38] = /*_.RETURN___V52*/ meltfptr[50];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V43*/ + meltfptr[38] = /*_.RETURN___V52*/ meltfptr[50];; MELT_LOCATION("warmelt-normal.melt:8124:/ clear"); - /*clear*/ /*_.BNUMVAR__V44*/ meltfptr[39] = 0 ; + /*clear*/ /*_.BNUMVAR__V44*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.VARBND__V45*/ meltfptr[37] = 0 ; + /*clear*/ /*_.VARBND__V45*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V49*/ meltfptr[47] = 0 ; + /*clear*/ /*_.PUT_ENV__V49*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V52*/ meltfptr[50] = 0 ; + /*clear*/ /*_.RETURN___V52*/ + meltfptr[50] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V30*/ meltfptr[23] = /*_.LET___V43*/ meltfptr[38];; + /*_.MULTI___V30*/ + meltfptr[23] = /*_.LET___V43*/ meltfptr[38];; MELT_LOCATION("warmelt-normal.melt:8113:/ clear"); - /*clear*/ /*_#exeq__L13*/ meltfnum[11] = 0 ; + /*clear*/ /*_#exeq__L13*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_#OR___L14*/ meltfnum[7] = 0 ; + /*clear*/ /*_#OR___L14*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IF___V36*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V43*/ meltfptr[38] = 0 ; + /*clear*/ /*_.LET___V43*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.PROCS__V32*/ meltfptr[28] = 0 ; + /*clear*/ /*_.PROCS__V32*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.GOTENV__V33*/ meltfptr[32] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.MULTI___V30*/ meltfptr[23];; + /*clear*/ /*_.GOTENV__V33*/ + meltfptr[32] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.MULTI___V30*/ meltfptr[23];; MELT_LOCATION("warmelt-normal.melt:8101:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SNAME__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SNAME__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MODCTX__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MODCTX__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPROC__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.CURPROC__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.BNBVAR__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.BNBVAR__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.VARLIST__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.VARLIST__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#GET_INT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#NUMVAR__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NUMVAR__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L10*/ meltfnum[8] = 0 ; + /*clear*/ /*_#IS_NOT_A__L10*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ meltfptr[24] = 0 ; + /*clear*/ /*_._IF___V26*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V30*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MULTI___V30*/ + meltfptr[23] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:8096:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:8096:/ locexp"); @@ -28742,17 +31712,22 @@ 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*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -28834,7 +31809,8 @@ meltrout_143_WARMELTmiNORMAL_NORMEXP_DEFINE(meltclosure_ptr_t meltclosp_, melt_p /* end of frame for routine meltrout_143_WARMELTmiNORMAL_NORMEXP_DEFINE fromline 1756 */ - /* classy proc frame meltrout_143_WARMELTmiNORMAL_NORMEXP_DEFINE */ MeltFrame_meltrout_143_WARMELTmiNORMAL_NORMEXP_DEFINE + /* classy proc frame meltrout_143_WARMELTmiNORMAL_NORMEXP_DEFINE */ + MeltFrame_meltrout_143_WARMELTmiNORMAL_NORMEXP_DEFINE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_143_WARMELTmiNORMAL_NORMEXP_DEFINE fromline 1785*/ #if ENABLE_CHECKING @@ -28847,7 +31823,8 @@ meltrout_143_WARMELTmiNORMAL_NORMEXP_DEFINE(meltclosure_ptr_t meltclosp_, melt_p #define meltframe meltfram__ melt_trace_start("NORMEXP_DEFINE", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -28857,26 +31834,30 @@ meltrout_143_WARMELTmiNORMAL_NORMEXP_DEFINE(meltclosure_ptr_t meltclosp_, melt_p /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:8141:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__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; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -28898,10 +31879,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ meltfnum[0] = + /*_#IS_A__L1*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINE*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:8142:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; @@ -28930,25 +31913,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8142; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8142:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ meltfptr[5] = /*_._IFELSE___V7*/ meltfptr[6];; + /*_.IFCPP___V6*/ + meltfptr[5] = /*_._IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8142:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28966,10 +31955,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[0] = + /*_#IS_A__L2*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:8143:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[6] = (/*nil*/NULL);; @@ -28998,25 +31989,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8143; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8143:/ 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[6];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8143:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L2*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29034,10 +32031,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[0] = + /*_#IS_A__L3*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:8144:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[6] = (/*nil*/NULL);; @@ -29066,25 +32065,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8144; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V13*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; + /*_._IFELSE___V13*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8144:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = 0 ; } ; } ; - /*_.IFCPP___V12*/ meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];; + /*_.IFCPP___V12*/ + meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8144:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V13*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29112,7 +32117,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L4*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29121,7 +32127,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8145:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29154,16 +32161,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp define recv"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V16*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V16*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V15*/ meltfptr[13] = /*_.MELT_DEBUG_FUN__V16*/ meltfptr[6];; + /*_._IF___V15*/ + meltfptr[13] = /*_.MELT_DEBUG_FUN__V16*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8145:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L5*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V16*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V16*/ + meltfptr[6] = 0 ; } ; } @@ -29176,7 +32187,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8145:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29185,9 +32197,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V15*/ meltfptr[13] = 0 ; + /*clear*/ /*_._IF___V15*/ + meltfptr[13] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29226,7 +32240,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[13] = slot; + /*_.SLOC__V18*/ + meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8149:/ getslot"); @@ -29234,7 +32249,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); - /*_.SNAME__V19*/ meltfptr[18] = slot; + /*_.SNAME__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8150:/ getslot"); @@ -29242,7 +32258,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SDEFINE_BODY"); - /*_.SBODY__V20*/ meltfptr[19] = slot; + /*_.SBODY__V20*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8151:/ quasiblock"); @@ -29258,7 +32275,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SNAME__V19*/ meltfptr[18]; - /*_.BDF__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.BDF__V22*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -29281,7 +32299,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[4] = + /*_#MELT_NEED_DBG__L6*/ + meltfnum[4] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29290,7 +32309,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8153:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29323,16 +32343,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_define binddef bdf="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BDF__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V23*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; + /*_._IF___V23*/ + meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8153:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[23] = 0 ; } ; } @@ -29345,7 +32369,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8153:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29354,9 +32379,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IF___V23*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29376,11 +32403,14 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V21*/ meltfptr[20] = /*_.BDF__V22*/ meltfptr[21];; + /*_.LET___V21*/ + meltfptr[20] = /*_.BDF__V22*/ meltfptr[21];; MELT_LOCATION("warmelt-normal.melt:8151:/ clear"); - /*clear*/ /*_.BDF__V22*/ meltfptr[21] = 0 ; - /*_.BINDDEF__V25*/ meltfptr[23] = /*_.LET___V21*/ meltfptr[20];; + /*clear*/ /*_.BDF__V22*/ + meltfptr[21] = 0 ; + /*_.BINDDEF__V25*/ + meltfptr[23] = /*_.LET___V21*/ meltfptr[20];; MELT_CHECK_SIGNAL(); ; @@ -29393,7 +32423,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; - /*_.NAMDATA__V26*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NAMDATA__V26*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:8157:/ getslot"); @@ -29401,7 +32432,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 11, "NCTX_CURPROC"); - /*_.CURPROC__V27*/ meltfptr[21] = slot; + /*_.CURPROC__V27*/ + meltfptr[21] = slot; }; ; @@ -29424,7 +32456,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[8])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V30*/ meltfptr[29] = + /*_.INST__V30*/ + meltfptr[29] = newobj; }; ; @@ -29452,13 +32485,15 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V30*/ meltfptr[29], "newly made instance"); ; - /*_.LOCBIND__V29*/ meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; + /*_.LOCBIND__V29*/ + meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; MELT_LOCATION("warmelt-normal.melt:8165:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NCTX_SYMBCACHEMAP"); - /*_.SYCMAP__V31*/ meltfptr[30] = slot; + /*_.SYCMAP__V31*/ + meltfptr[30] = slot; }; ; @@ -29481,7 +32516,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L8*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29490,7 +32526,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8167:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29531,16 +32568,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " sycmap="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.SYCMAP__V31*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V32*/ meltfptr[31] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; + /*_._IF___V32*/ + meltfptr[31] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8167:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[32] = 0 ; } ; } @@ -29553,7 +32594,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8167:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29562,9 +32604,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IF___V32*/ + meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29594,10 +32638,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L10*/ meltfnum[4] = + /*_#IS_MULTIPLE__L10*/ + meltfnum[4] = (melt_magic_discr((melt_ptr_t)(/*_.SBODY__V20*/ meltfptr[19])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-normal.melt:8168:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L10*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L10*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V35*/ meltfptr[31] = (/*nil*/NULL);; @@ -29626,25 +32672,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8168; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SBODY__V20*/ meltfptr[19]; - /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V36*/ + meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V35*/ meltfptr[31] = /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35];; + /*_._IFELSE___V35*/ + meltfptr[31] = /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8168:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V36*/ + meltfptr[35] = 0 ; } ; } ; - /*_.IFCPP___V34*/ meltfptr[32] = /*_._IFELSE___V35*/ meltfptr[31];; + /*_.IFCPP___V34*/ + meltfptr[32] = /*_._IFELSE___V35*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8168:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L10*/ meltfnum[4] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L10*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V35*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IFELSE___V35*/ + meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29662,10 +32714,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L11*/ meltfnum[0] = + /*_#IS_A__L11*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.BINDDEF__V25*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_DEFINED_VALUE_BINDING*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-normal.melt:8169:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L11*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V38*/ meltfptr[31] = (/*nil*/NULL);; @@ -29694,25 +32748,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8169; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BINDDEF__V25*/ meltfptr[23]; - /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V39*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V38*/ meltfptr[31] = /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38];; + /*_._IFELSE___V38*/ + meltfptr[31] = /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8169:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V39*/ + meltfptr[38] = 0 ; } ; } ; - /*_.IFCPP___V37*/ meltfptr[35] = /*_._IFELSE___V38*/ meltfptr[31];; + /*_.IFCPP___V37*/ + meltfptr[35] = /*_._IFELSE___V38*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8169:/ clear"); - /*clear*/ /*_#IS_A__L11*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L11*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V38*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IFELSE___V38*/ + meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29740,7 +32800,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[4] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[4] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29749,7 +32810,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8170:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29786,16 +32848,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " newenv="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V28*/ meltfptr[27]; - /*_.MELT_DEBUG_FUN__V41*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (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__V41*/ + meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (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___V40*/ meltfptr[38] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[31];; + /*_._IF___V40*/ + meltfptr[38] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8170:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[31] = 0 ; } ; } @@ -29808,7 +32874,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8170:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29817,9 +32884,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ meltfptr[38] = 0 ; + /*clear*/ /*_._IF___V40*/ + meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29842,10 +32911,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L14*/ meltfnum[0] = + /*_#IS_NOT_A__L14*/ + meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V27*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_INITPROC*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-normal.melt:8172:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L14*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L14*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29864,13 +32935,15 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "(DEFINE $1 ...) can appear only at top-level"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SNAME__V19*/ meltfptr[18]; - /*_.ERROR_AT__V43*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V43*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:8174:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:8174:/ locexp"); @@ -29885,21 +32958,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:8172:/ quasiblock"); - /*_.PROGN___V45*/ meltfptr[44] = /*_.RETURN___V44*/ meltfptr[43];; + /*_.PROGN___V45*/ + meltfptr[44] = /*_.RETURN___V44*/ meltfptr[43];; /*^compute*/ - /*_._IF___V42*/ meltfptr[31] = /*_.PROGN___V45*/ meltfptr[44];; + /*_._IF___V42*/ + meltfptr[31] = /*_.PROGN___V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8172:/ clear"); - /*clear*/ /*_.ERROR_AT__V43*/ meltfptr[38] = 0 ; + /*clear*/ /*_.ERROR_AT__V43*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.RETURN___V44*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.PROGN___V45*/ + meltfptr[44] = 0 ; } ; } @@ -29919,7 +32998,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOCBIND__V29*/ meltfptr[28]; - /*_.PUT_ENV__V46*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NEWENV__V28*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V46*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NEWENV__V28*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -29942,7 +33022,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L15*/ meltfnum[4] = + /*_#MELT_NEED_DBG__L15*/ + meltfnum[4] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29951,7 +33032,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8176:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L15*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29988,16 +33070,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n newenv="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V28*/ meltfptr[27]; - /*_.MELT_DEBUG_FUN__V48*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (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__V48*/ + meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (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___V47*/ meltfptr[43] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[44];; + /*_._IF___V47*/ + meltfptr[43] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8176:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ meltfptr[44] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ + meltfptr[44] = 0 ; } ; } @@ -30010,7 +33096,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8176:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30019,9 +33106,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V47*/ meltfptr[43] = 0 ; + /*clear*/ /*_._IF___V47*/ + meltfptr[43] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30062,7 +33151,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V51*/ meltfptr[50]; /*^multiapply.appl*/ - /*_.NBODY__V50*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SBODY__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NBODY__V50*/ + meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SBODY__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -30088,7 +33178,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ meltfnum[15] = + /*_#MELT_NEED_DBG__L17*/ + meltfnum[15] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30097,7 +33188,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8180:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30138,16 +33230,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " sname="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.SNAME__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V53*/ + meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V52*/ meltfptr[51] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52];; + /*_._IF___V52*/ + meltfptr[51] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8180:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L18*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V53*/ + meltfptr[52] = 0 ; } ; } @@ -30160,7 +33256,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8180:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30169,9 +33266,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_._IF___V52*/ + meltfptr[51] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30194,10 +33293,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L19*/ meltfnum[4] = + /*_#NULL__L19*/ + meltfnum[4] = (/*null*/(/*_.NBINDINGS__V51*/ meltfptr[50]) == NULL);; MELT_LOCATION("warmelt-normal.melt:8182:/ cond"); - /*cond*/ if (/*_#NULL__L19*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#NULL__L19*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30207,14 +33308,18 @@ meltlab_endgetargs: /*_.MAKE_LIST__V55*/ meltfptr[51] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[15]))));; MELT_LOCATION("warmelt-normal.melt:8183:/ compute"); - /*_.NBINDINGS__V51*/ meltfptr[50] = /*_.SETQ___V56*/ meltfptr[55] = /*_.MAKE_LIST__V55*/ meltfptr[51];; - /*_._IF___V54*/ meltfptr[52] = /*_.SETQ___V56*/ meltfptr[55];; + /*_.NBINDINGS__V51*/ + meltfptr[50] = /*_.SETQ___V56*/ meltfptr[55] = /*_.MAKE_LIST__V55*/ meltfptr[51];; + /*_._IF___V54*/ + meltfptr[52] = /*_.SETQ___V56*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8182:/ clear"); - /*clear*/ /*_.MAKE_LIST__V55*/ meltfptr[51] = 0 ; + /*clear*/ /*_.MAKE_LIST__V55*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.SETQ___V56*/ + meltfptr[55] = 0 ; } ; } @@ -30228,7 +33333,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:8185:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V27*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_INITPROC*/ meltfrout->tabval[11]))) ) /*then*/ @@ -30239,7 +33345,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPROC__V27*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NINIT_DEFBINDS"); - /*_.PROCDEFBINDS__V58*/ meltfptr[55] = slot; + /*_.PROCDEFBINDS__V58*/ + meltfptr[55] = slot; }; ; } @@ -30263,22 +33370,28 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; - /*_.NDEFNAME__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NDEFNAME__V59*/ + meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#NBODYLEN__L20*/ meltfnum[15] = + /*_#NBODYLEN__L20*/ + meltfnum[15] = (melt_multiple_length((melt_ptr_t)(/*_.NBODY__V50*/ meltfptr[43])));; /*^compute*/ - /*_.NLASTBODY__V60*/ meltfptr[59] = + /*_.NLASTBODY__V60*/ + meltfptr[59] = (melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V50*/ meltfptr[43]), (-1)));; /*^compute*/ - /*_#plI__L21*/ meltfnum[20] = + /*_#plI__L21*/ + meltfnum[20] = ((/*_#NBODYLEN__L20*/ meltfnum[15]) + (2));; /*^compute*/ - /*_.NEWBODY__V61*/ meltfptr[60] = + /*_.NEWBODY__V61*/ + meltfptr[60] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[17])), (/*_#plI__L21*/ meltfnum[20])));; MELT_LOCATION("warmelt-normal.melt:8190:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[18]))) ) /*then*/ @@ -30289,7 +33402,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.SNAMESTR__V62*/ meltfptr[61] = slot; + /*_.SNAMESTR__V62*/ + meltfptr[61] = slot; }; ; } @@ -30310,7 +33424,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_SETQ*/ meltfrout->tabval[19])), (3), "CLASS_NREP_SETQ"); - /*_.INST__V64*/ meltfptr[63] = + /*_.INST__V64*/ + meltfptr[63] = newobj; }; ; @@ -30333,7 +33448,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V64*/ meltfptr[63], "newly made instance"); ; - /*_.NLASTASSIGN__V63*/ meltfptr[62] = /*_.INST__V64*/ meltfptr[63];; + /*_.NLASTASSIGN__V63*/ + meltfptr[62] = /*_.INST__V64*/ meltfptr[63];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:8196:/ cppif.then"); @@ -30354,7 +33470,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L22*/ meltfnum[21] = + /*_#MELT_NEED_DBG__L22*/ + meltfnum[21] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30363,7 +33480,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8196:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L22*/ meltfnum[21]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L22*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30400,16 +33518,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ndefname="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NDEFNAME__V59*/ meltfptr[58]; - /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (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__V66*/ + meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (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___V65*/ meltfptr[64] = /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65];; + /*_._IF___V65*/ + meltfptr[64] = /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8196:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L23*/ meltfnum[22] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L23*/ + meltfnum[22] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V66*/ + meltfptr[65] = 0 ; } ; } @@ -30422,7 +33544,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8196:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30431,9 +33554,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L22*/ meltfnum[21] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L22*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V65*/ meltfptr[64] = 0 ; + /*clear*/ /*_._IF___V65*/ + meltfptr[64] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30457,7 +33582,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V68*/ meltfptr[64] = + /*newclosure*/ /*_.LAMBDA___V68*/ + meltfptr[64] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_22*/ meltfrout->tabval[22])), (1)); ; /*^putclosedv*/ @@ -30466,7 +33592,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V68*/ meltfptr[64]))); ((meltclosure_ptr_t)/*_.LAMBDA___V68*/ meltfptr[64])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V28*/ meltfptr[27]); ; - /*_.LAMBDA___V67*/ meltfptr[65] = /*_.LAMBDA___V68*/ meltfptr[64];; + /*_.LAMBDA___V67*/ + meltfptr[65] = /*_.LAMBDA___V68*/ meltfptr[64];; MELT_CHECK_SIGNAL(); ; @@ -30477,7 +33604,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V67*/ meltfptr[65]; - /*_.LIST_EVERY__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NBINDINGS__V51*/ meltfptr[50]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_EVERY__V69*/ + meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.NBINDINGS__V51*/ meltfptr[50]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -30504,9 +33632,11 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:8198:/ clear"); - /*clear*/ /*_.CURNBODY__V70*/ meltfptr[69] = 0 ; + /*clear*/ /*_.CURNBODY__V70*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_#BODIX__L24*/ meltfnum[22] = 0 ; + /*clear*/ /*_#BODIX__L24*/ + meltfnum[22] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -30515,7 +33645,8 @@ meltlab_endgetargs: meltgc_multiple_put_nth((melt_ptr_t)(/*_.NEWBODY__V61*/ meltfptr[60]), (/*_#NBODYLEN__L20*/ meltfnum[15]), (melt_ptr_t)(/*_.NLASTASSIGN__V63*/ meltfptr[62])); } ; - /*_#plI__L25*/ meltfnum[21] = + /*_#plI__L25*/ + meltfnum[21] = ((/*_#NBODYLEN__L20*/ meltfnum[15]) + (1));; { @@ -30549,7 +33680,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L26*/ meltfnum[25] = + /*_#MELT_NEED_DBG__L26*/ + meltfnum[25] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30558,7 +33690,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8205:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L26*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30599,16 +33732,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " newbody="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NEWBODY__V61*/ meltfptr[60]; - /*_.MELT_DEBUG_FUN__V72*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V72*/ + meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V71*/ meltfptr[70] = /*_.MELT_DEBUG_FUN__V72*/ meltfptr[71];; + /*_._IF___V71*/ + meltfptr[70] = /*_.MELT_DEBUG_FUN__V72*/ meltfptr[71];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8205:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L27*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V72*/ + meltfptr[71] = 0 ; } ; } @@ -30621,7 +33758,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8205:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30630,9 +33768,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L26*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V71*/ meltfptr[70] = 0 ; + /*clear*/ /*_._IF___V71*/ + meltfptr[70] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30665,7 +33805,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.CURCTYPE__V74*/ meltfptr[70] = meltgc_send((melt_ptr_t)(/*_.NDEFNAME__V59*/ meltfptr[58]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[23])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CURCTYPE__V74*/ + meltfptr[70] = meltgc_send((melt_ptr_t)(/*_.NDEFNAME__V59*/ meltfptr[58]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[23])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -30678,16 +33819,19 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V28*/ meltfptr[27]; - /*_.LASTCTYPE__V75*/ meltfptr[74] = meltgc_send((melt_ptr_t)(/*_.NLASTBODY__V60*/ meltfptr[59]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[23])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LASTCTYPE__V75*/ + meltfptr[74] = meltgc_send((melt_ptr_t)(/*_.NLASTBODY__V60*/ meltfptr[59]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[23])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#exeq__L28*/ meltfnum[26] = + /*_#exeq__L28*/ + meltfnum[26] = ((/*_.CURCTYPE__V74*/ meltfptr[70]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-normal.melt:8210:/ cond"); - /*cond*/ if (/*_#exeq__L28*/ meltfnum[26]) /*then*/ + /*cond*/ + if (/*_#exeq__L28*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30695,7 +33839,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8212:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYPE__V74*/ meltfptr[70]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[18]))) ) /*then*/ @@ -30706,7 +33851,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYPE__V74*/ meltfptr[70]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V77*/ meltfptr[76] = slot; + /*_.NAMED_NAME__V77*/ + meltfptr[76] = slot; }; ; } @@ -30730,16 +33876,20 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SNAMESTR__V62*/ meltfptr[61]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V77*/ meltfptr[76]; - /*_.ERROR_AT__V78*/ meltfptr[77] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V78*/ + meltfptr[77] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V76*/ meltfptr[75] = /*_.ERROR_AT__V78*/ meltfptr[77];; + /*_._IF___V76*/ + meltfptr[75] = /*_.ERROR_AT__V78*/ meltfptr[77];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8210:/ clear"); - /*clear*/ /*_.NAMED_NAME__V77*/ meltfptr[76] = 0 ; + /*clear*/ /*_.NAMED_NAME__V77*/ + meltfptr[76] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V78*/ meltfptr[77] = 0 ; + /*clear*/ /*_.ERROR_AT__V78*/ + meltfptr[77] = 0 ; } ; } @@ -30753,10 +33903,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#exeq__L29*/ meltfnum[25] = + /*_#exeq__L29*/ + meltfnum[25] = ((/*_.LASTCTYPE__V75*/ meltfptr[74]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-normal.melt:8213:/ cond"); - /*cond*/ if (/*_#exeq__L29*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#exeq__L29*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30764,7 +33916,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8215:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.LASTCTYPE__V75*/ meltfptr[74]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[18]))) ) /*then*/ @@ -30775,7 +33928,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LASTCTYPE__V75*/ meltfptr[74]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V80*/ meltfptr[77] = slot; + /*_.NAMED_NAME__V80*/ + meltfptr[77] = slot; }; ; } @@ -30799,16 +33953,20 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SNAMESTR__V62*/ meltfptr[61]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V80*/ meltfptr[77]; - /*_.ERROR_AT__V81*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V81*/ + meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V79*/ meltfptr[76] = /*_.ERROR_AT__V81*/ meltfptr[80];; + /*_._IF___V79*/ + meltfptr[76] = /*_.ERROR_AT__V81*/ meltfptr[80];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8213:/ clear"); - /*clear*/ /*_.NAMED_NAME__V80*/ meltfptr[77] = 0 ; + /*clear*/ /*_.NAMED_NAME__V80*/ + meltfptr[77] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V81*/ meltfptr[80] = 0 ; + /*clear*/ /*_.ERROR_AT__V81*/ + meltfptr[80] = 0 ; } ; } @@ -30819,20 +33977,27 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V73*/ meltfptr[71] = /*_._IF___V79*/ meltfptr[76];; + /*_.LET___V73*/ + meltfptr[71] = /*_._IF___V79*/ meltfptr[76];; MELT_LOCATION("warmelt-normal.melt:8207:/ clear"); - /*clear*/ /*_.CURCTYPE__V74*/ meltfptr[70] = 0 ; + /*clear*/ /*_.CURCTYPE__V74*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.LASTCTYPE__V75*/ meltfptr[74] = 0 ; + /*clear*/ /*_.LASTCTYPE__V75*/ + meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L28*/ meltfnum[26] = 0 ; + /*clear*/ /*_#exeq__L28*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V76*/ meltfptr[75] = 0 ; + /*clear*/ /*_._IF___V76*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L29*/ meltfnum[25] = 0 ; + /*clear*/ /*_#exeq__L29*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V79*/ meltfptr[76] = 0 ; + /*clear*/ /*_._IF___V79*/ + meltfptr[76] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:8217:/ cppif.then"); @@ -30853,7 +34018,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L30*/ meltfnum[26] = + /*_#MELT_NEED_DBG__L30*/ + meltfnum[26] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30862,7 +34028,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8217:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L30*/ meltfnum[26]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L30*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30903,16 +34070,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " sycmap="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.SYCMAP__V31*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V83*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V83*/ + meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V82*/ meltfptr[77] = /*_.MELT_DEBUG_FUN__V83*/ meltfptr[80];; + /*_._IF___V82*/ + meltfptr[77] = /*_.MELT_DEBUG_FUN__V83*/ meltfptr[80];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8217:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L31*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L31*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V83*/ meltfptr[80] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V83*/ + meltfptr[80] = 0 ; } ; } @@ -30925,7 +34096,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8217:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30934,9 +34106,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L30*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L30*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V82*/ meltfptr[77] = 0 ; + /*clear*/ /*_._IF___V82*/ + meltfptr[77] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30971,7 +34145,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V51*/ meltfptr[50]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; - /*_.NWRLET__V85*/ meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.NEWBODY__V61*/ meltfptr[60]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NWRLET__V85*/ + meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.NEWBODY__V61*/ meltfptr[60]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:8219:/ blockmultialloc"); @@ -30986,11 +34161,13 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0__LOCBIND_x1*/ - /*_.LOCBIND__V87*/ meltfptr[76] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__LOCBIND_x1; + /*_.LOCBIND__V87*/ + meltfptr[76] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__LOCBIND_x1; meltletrec_1_ptr->rpair_0__LOCBIND_x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ - /*_.LIST___V88*/ meltfptr[80] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; + /*_.LIST___V88*/ + meltfptr[80] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; meltletrec_1_ptr->rlist_1__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); @@ -31012,20 +34189,26 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V88*/ meltfptr[80]); ; - /*_.NLOCBINDINGS__V86*/ meltfptr[75] = /*_.LIST___V88*/ meltfptr[80];; + /*_.NLOCBINDINGS__V86*/ + meltfptr[75] = /*_.LIST___V88*/ meltfptr[80];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8219:/ clear"); - /*clear*/ /*_.LOCBIND__V87*/ meltfptr[76] = 0 ; + /*clear*/ /*_.LOCBIND__V87*/ + meltfptr[76] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V88*/ meltfptr[80] = 0 ; + /*clear*/ /*_.LIST___V88*/ + meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_.LOCBIND__V87*/ meltfptr[76] = 0 ; + /*clear*/ /*_.LOCBIND__V87*/ + meltfptr[76] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V88*/ meltfptr[80] = 0 ; + /*clear*/ /*_.LIST___V88*/ + meltfptr[80] = 0 ; } /*end multiallocblock*/ ; - /*_.SYCA__V89*/ meltfptr[77] = + /*_.SYCA__V89*/ + meltfptr[77] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.SYCMAP__V31*/ meltfptr[30]), (meltobject_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]));; @@ -31048,7 +34231,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L32*/ meltfnum[25] = + /*_#MELT_NEED_DBG__L32*/ + meltfnum[25] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31057,7 +34241,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8222:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L32*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L32*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31090,16 +34275,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_define nwrlet="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NWRLET__V85*/ meltfptr[74]; - /*_.MELT_DEBUG_FUN__V91*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V91*/ + meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V90*/ meltfptr[76] = /*_.MELT_DEBUG_FUN__V91*/ meltfptr[80];; + /*_._IF___V90*/ + meltfptr[76] = /*_.MELT_DEBUG_FUN__V91*/ meltfptr[80];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8222:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L33*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L33*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V91*/ meltfptr[80] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V91*/ + meltfptr[80] = 0 ; } ; } @@ -31112,7 +34301,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8222:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31121,9 +34311,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L32*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L32*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V90*/ meltfptr[76] = 0 ; + /*clear*/ /*_._IF___V90*/ + meltfptr[76] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31163,7 +34355,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L34*/ meltfnum[26] = + /*_#MELT_NEED_DBG__L34*/ + meltfnum[26] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31172,7 +34365,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8223:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L34*/ meltfnum[26]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L34*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31209,16 +34403,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " locbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.LOCBIND__V29*/ meltfptr[28]; - /*_.MELT_DEBUG_FUN__V93*/ meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (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__V93*/ + meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (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___V92*/ meltfptr[80] = /*_.MELT_DEBUG_FUN__V93*/ meltfptr[76];; + /*_._IF___V92*/ + meltfptr[80] = /*_.MELT_DEBUG_FUN__V93*/ meltfptr[76];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8223:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L35*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L35*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V93*/ meltfptr[76] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V93*/ + meltfptr[76] = 0 ; } ; } @@ -31231,7 +34429,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8223:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31240,9 +34439,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L34*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L34*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V92*/ meltfptr[80] = 0 ; + /*clear*/ /*_._IF___V92*/ + meltfptr[80] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31272,10 +34473,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L36*/ meltfnum[25] = + /*_#IS_A__L36*/ + meltfnum[25] = melt_is_instance_of((melt_ptr_t)(/*_.SYCA__V89*/ meltfptr[77]), (melt_ptr_t)((/*!CLASS_NREP_DEFINED_CONSTANT*/ meltfrout->tabval[25])));; MELT_LOCATION("warmelt-normal.melt:8224:/ cond"); - /*cond*/ if (/*_#IS_A__L36*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#IS_A__L36*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V95*/ meltfptr[80] = (/*nil*/NULL);; @@ -31304,25 +34507,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8224; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SYCA__V89*/ meltfptr[77]; - /*_.MELT_ASSERT_FAILURE_FUN__V96*/ meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V96*/ + meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V95*/ meltfptr[80] = /*_.MELT_ASSERT_FAILURE_FUN__V96*/ meltfptr[95];; + /*_._IFELSE___V95*/ + meltfptr[80] = /*_.MELT_ASSERT_FAILURE_FUN__V96*/ meltfptr[95];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8224:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V96*/ meltfptr[95] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V96*/ + meltfptr[95] = 0 ; } ; } ; - /*_.IFCPP___V94*/ meltfptr[76] = /*_._IFELSE___V95*/ meltfptr[80];; + /*_.IFCPP___V94*/ + meltfptr[76] = /*_._IFELSE___V95*/ meltfptr[80];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8224:/ clear"); - /*clear*/ /*_#IS_A__L36*/ meltfnum[25] = 0 ; + /*clear*/ /*_#IS_A__L36*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V95*/ meltfptr[80] = 0 ; + /*clear*/ /*_._IFELSE___V95*/ + meltfptr[80] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31357,7 +34566,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L37*/ meltfnum[26] = + /*_#MELT_NEED_DBG__L37*/ + meltfnum[26] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31366,7 +34576,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8226:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[26]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L37*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31399,16 +34610,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_define shrinked updated sycmap="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SYCMAP__V31*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V98*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V98*/ + meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V97*/ meltfptr[95] = /*_.MELT_DEBUG_FUN__V98*/ meltfptr[80];; + /*_._IF___V97*/ + meltfptr[95] = /*_.MELT_DEBUG_FUN__V98*/ meltfptr[80];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8226:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L38*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V98*/ meltfptr[80] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V98*/ + meltfptr[80] = 0 ; } ; } @@ -31421,7 +34636,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8226:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31430,9 +34646,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L37*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V97*/ meltfptr[95] = 0 ; + /*clear*/ /*_._IF___V97*/ + meltfptr[95] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31472,7 +34690,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L39*/ meltfnum[25] = + /*_#MELT_NEED_DBG__L39*/ + meltfnum[25] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31481,7 +34700,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8227:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L39*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L39*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31518,16 +34738,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nlocbindings="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NLOCBINDINGS__V86*/ meltfptr[75]; - /*_.MELT_DEBUG_FUN__V100*/ meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (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__V100*/ + meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (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___V99*/ meltfptr[80] = /*_.MELT_DEBUG_FUN__V100*/ meltfptr[95];; + /*_._IF___V99*/ + meltfptr[80] = /*_.MELT_DEBUG_FUN__V100*/ meltfptr[95];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8227:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L40*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L40*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V100*/ meltfptr[95] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V100*/ + meltfptr[95] = 0 ; } ; } @@ -31540,7 +34764,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8227:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31549,9 +34774,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L39*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L39*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V99*/ meltfptr[80] = 0 ; + /*clear*/ /*_._IF___V99*/ + meltfptr[80] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31577,7 +34804,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:8228:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.NWRLET__V85*/ meltfptr[74];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.NWRLET__V85*/ meltfptr[74];; MELT_LOCATION("warmelt-normal.melt:8228:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -31585,102 +34813,146 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V84*/ meltfptr[70] = /*_.RETURN___V101*/ meltfptr[95];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V84*/ + meltfptr[70] = /*_.RETURN___V101*/ meltfptr[95];; MELT_LOCATION("warmelt-normal.melt:8218:/ clear"); - /*clear*/ /*_.NWRLET__V85*/ meltfptr[74] = 0 ; + /*clear*/ /*_.NWRLET__V85*/ + meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.NLOCBINDINGS__V86*/ meltfptr[75] = 0 ; + /*clear*/ /*_.NLOCBINDINGS__V86*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.SYCA__V89*/ meltfptr[77] = 0 ; + /*clear*/ /*_.SYCA__V89*/ + meltfptr[77] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V94*/ meltfptr[76] = 0 ; + /*clear*/ /*_.IFCPP___V94*/ + meltfptr[76] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V101*/ meltfptr[95] = 0 ; - /*_.LET___V57*/ meltfptr[51] = /*_.LET___V84*/ meltfptr[70];; + /*clear*/ /*_.RETURN___V101*/ + meltfptr[95] = 0 ; + /*_.LET___V57*/ + meltfptr[51] = /*_.LET___V84*/ meltfptr[70];; MELT_LOCATION("warmelt-normal.melt:8184:/ clear"); - /*clear*/ /*_.PROCDEFBINDS__V58*/ meltfptr[55] = 0 ; + /*clear*/ /*_.PROCDEFBINDS__V58*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.NDEFNAME__V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.NDEFNAME__V59*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_#NBODYLEN__L20*/ meltfnum[15] = 0 ; + /*clear*/ /*_#NBODYLEN__L20*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.NLASTBODY__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.NLASTBODY__V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L21*/ meltfnum[20] = 0 ; + /*clear*/ /*_#plI__L21*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWBODY__V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_.NEWBODY__V61*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.SNAMESTR__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.SNAMESTR__V62*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.NLASTASSIGN__V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_.NLASTASSIGN__V63*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V67*/ meltfptr[65] = 0 ; + /*clear*/ /*_.LAMBDA___V67*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_EVERY__V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_.LIST_EVERY__V69*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L25*/ meltfnum[21] = 0 ; + /*clear*/ /*_#plI__L25*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V73*/ meltfptr[71] = 0 ; + /*clear*/ /*_.LET___V73*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V84*/ meltfptr[70] = 0 ; + /*clear*/ /*_.LET___V84*/ + meltfptr[70] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V49*/ meltfptr[44] = /*_.LET___V57*/ meltfptr[51];; + /*_.MULTI___V49*/ + meltfptr[44] = /*_.LET___V57*/ meltfptr[51];; MELT_LOCATION("warmelt-normal.melt:8177:/ clear"); - /*clear*/ /*_#NULL__L19*/ meltfnum[4] = 0 ; + /*clear*/ /*_#NULL__L19*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V54*/ meltfptr[52] = 0 ; + /*clear*/ /*_._IF___V54*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V57*/ meltfptr[51] = 0 ; + /*clear*/ /*_.LET___V57*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDINGS__V51*/ meltfptr[50] = 0 ; - /*_.LET___V17*/ meltfptr[6] = /*_.MULTI___V49*/ meltfptr[44];; + /*clear*/ /*_.NBINDINGS__V51*/ + meltfptr[50] = 0 ; + /*_.LET___V17*/ + meltfptr[6] = /*_.MULTI___V49*/ meltfptr[44];; MELT_LOCATION("warmelt-normal.melt:8147:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[13] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.SNAME__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SNAME__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SBODY__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SBODY__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.LET___V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDDEF__V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_.BINDDEF__V25*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMDATA__V26*/ meltfptr[22] = 0 ; + /*clear*/ /*_.NAMDATA__V26*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPROC__V27*/ meltfptr[21] = 0 ; + /*clear*/ /*_.CURPROC__V27*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWENV__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.NEWENV__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.LOCBIND__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.LOCBIND__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.SYCMAP__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.SYCMAP__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V34*/ meltfptr[32] = 0 ; + /*clear*/ /*_.IFCPP___V34*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V37*/ meltfptr[35] = 0 ; + /*clear*/ /*_.IFCPP___V37*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L14*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_NOT_A__L14*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IF___V42*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V46*/ meltfptr[38] = 0 ; + /*clear*/ /*_.PUT_ENV__V46*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V49*/ meltfptr[44] = 0 ; + /*clear*/ /*_.MULTI___V49*/ + meltfptr[44] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:8141:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; { MELT_LOCATION("warmelt-normal.melt:8141:/ locexp"); @@ -31695,17 +34967,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.IFCPP___V12*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[6] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[6] = 0 ; } ; @@ -31787,7 +35064,8 @@ meltrout_144_WARMELTmiNORMAL_LAMBDA_cl39(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_144_WARMELTmiNORMAL_LAMBDA_cl39 fromline 1756 */ - /* classy proc frame meltrout_144_WARMELTmiNORMAL_LAMBDA_cl39 */ MeltFrame_meltrout_144_WARMELTmiNORMAL_LAMBDA_cl39 + /* classy proc frame meltrout_144_WARMELTmiNORMAL_LAMBDA_cl39 */ + MeltFrame_meltrout_144_WARMELTmiNORMAL_LAMBDA_cl39 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_144_WARMELTmiNORMAL_LAMBDA_cl39 fromline 1785*/ #if ENABLE_CHECKING @@ -31800,7 +35078,8 @@ meltrout_144_WARMELTmiNORMAL_LAMBDA_cl39(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl39", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -31810,7 +35089,8 @@ meltrout_144_WARMELTmiNORMAL_LAMBDA_cl39(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:8197:/ getarg"); - /*_.NB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NB__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -31830,13 +35110,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NB__V2*/ meltfptr[1]; - /*_.PUT_ENV__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V3*/ + meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^quasiblock*/ - /*_._RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; { MELT_LOCATION("warmelt-normal.melt:8197:/ locexp"); @@ -31851,11 +35133,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.PUT_ENV__V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_.PUT_ENV__V3*/ + meltfptr[2] = 0 ; } ; @@ -31937,7 +35221,8 @@ meltrout_145_WARMELTmiNORMAL_NORMEXP_DEFSELECTOR(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_145_WARMELTmiNORMAL_NORMEXP_DEFSELECTOR fromline 1756 */ - /* classy proc frame meltrout_145_WARMELTmiNORMAL_NORMEXP_DEFSELECTOR */ MeltFrame_meltrout_145_WARMELTmiNORMAL_NORMEXP_DEFSELECTOR + /* classy proc frame meltrout_145_WARMELTmiNORMAL_NORMEXP_DEFSELECTOR */ + MeltFrame_meltrout_145_WARMELTmiNORMAL_NORMEXP_DEFSELECTOR meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_145_WARMELTmiNORMAL_NORMEXP_DEFSELECTOR fromline 1785*/ #if ENABLE_CHECKING @@ -31950,7 +35235,8 @@ meltrout_145_WARMELTmiNORMAL_NORMEXP_DEFSELECTOR(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("NORMEXP_DEFSELECTOR", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -31960,26 +35246,30 @@ meltrout_145_WARMELTmiNORMAL_NORMEXP_DEFSELECTOR(meltclosure_ptr_t meltclosp_, m /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:8236:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__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; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -32011,7 +35301,8 @@ 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)) @@ -32020,7 +35311,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8237:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32053,16 +35345,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp defselector recv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:8237:/ 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 ; } ; } @@ -32075,7 +35371,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8237:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -32084,9 +35381,11 @@ 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*/ @@ -32116,10 +35415,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFSELECTOR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:8238:/ 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);; @@ -32148,25 +35449,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8238; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__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-normal.melt:8238:/ 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-normal.melt:8238:/ 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*/ @@ -32184,10 +35491,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:8239:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -32216,25 +35525,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8239; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 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__V13*/ + meltfptr[12] = 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___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8239:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8239:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32252,10 +35567,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:8240:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -32284,25 +35601,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8240; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8240:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8240:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32318,7 +35641,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8243:/ getslot"); @@ -32326,7 +35650,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); - /*_.SNAME__V19*/ meltfptr[18] = slot; + /*_.SNAME__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8244:/ getslot"); @@ -32334,7 +35659,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SOBJ_PREDEF"); - /*_.SPREDEF__V20*/ meltfptr[19] = slot; + /*_.SPREDEF__V20*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8245:/ getslot"); @@ -32342,7 +35668,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); - /*_.SDOCSTR__V21*/ meltfptr[20] = slot; + /*_.SDOCSTR__V21*/ + meltfptr[20] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8246:/ getslot"); @@ -32350,7 +35677,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SINST_CLASS"); - /*_.SINSTCLASS__V22*/ meltfptr[21] = slot; + /*_.SINSTCLASS__V22*/ + meltfptr[21] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8247:/ getslot"); @@ -32358,16 +35686,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "SINST_CLABIND"); - /*_.SINSTCLABND__V23*/ meltfptr[22] = slot; + /*_.SINSTCLABND__V23*/ + meltfptr[22] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[0] = + /*_#IS_A__L6*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLABND__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:8248:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32379,14 +35710,17 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SINSTCLABND__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V25*/ meltfptr[24] = slot; + /*_.BINDER__V25*/ + meltfptr[24] = slot; }; ; - /*_.SINSTCLASYM__V24*/ meltfptr[23] = /*_.BINDER__V25*/ meltfptr[24];; + /*_.SINSTCLASYM__V24*/ + meltfptr[23] = /*_.BINDER__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8248:/ clear"); - /*clear*/ /*_.BINDER__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.BINDER__V25*/ + meltfptr[24] = 0 ; } ; } @@ -32401,7 +35735,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 7, "SINST_OBJNUM"); - /*_.SINSTOBJNUM__V26*/ meltfptr[24] = slot; + /*_.SINSTOBJNUM__V26*/ + meltfptr[24] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8250:/ getslot"); @@ -32409,7 +35744,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 8, "SINST_FIELDS"); - /*_.SINSTFIELDS__V27*/ meltfptr[26] = slot; + /*_.SINSTFIELDS__V27*/ + meltfptr[26] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8251:/ getslot"); @@ -32417,10 +35753,12 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 9, "SDEFSEL_FORMALS"); - /*_.SFORMALS__V28*/ meltfptr[27] = slot; + /*_.SFORMALS__V28*/ + meltfptr[27] = slot; }; ; - /*_.NBINDLIST__V29*/ meltfptr[28] = + /*_.NBINDLIST__V29*/ + meltfptr[28] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));; MELT_CHECK_SIGNAL(); @@ -32433,7 +35771,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7])), (1), "CLASS_REFERENCE"); - /*_.INST__V31*/ meltfptr[30] = + /*_.INST__V31*/ + meltfptr[30] = newobj; }; ; @@ -32446,7 +35785,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V31*/ meltfptr[30], "newly made instance"); ; - /*_.NBINDCONT__V30*/ meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; + /*_.NBINDCONT__V30*/ + meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; MELT_CHECK_SIGNAL(); ; @@ -32457,7 +35797,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SNAME__V19*/ meltfptr[18]; - /*_.BINDSEL__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.BINDSEL__V32*/ + meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -32472,16 +35813,19 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.NAMDATA__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NAMDATA__V33*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ meltfnum[1] = + /*_#IS_A__L7*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-normal.melt:8257:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32502,14 +35846,17 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.NORMAL_EXP__V35*/ meltfptr[34] = meltgc_send((melt_ptr_t)(/*_.SINSTCLASYM__V24*/ meltfptr[23]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[11])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_EXP__V35*/ + meltfptr[34] = meltgc_send((melt_ptr_t)(/*_.SINSTCLASYM__V24*/ meltfptr[23]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[11])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.ICLADATA__V34*/ meltfptr[33] = /*_.NORMAL_EXP__V35*/ meltfptr[34];; + /*_.ICLADATA__V34*/ + meltfptr[33] = /*_.NORMAL_EXP__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8257:/ clear"); - /*clear*/ /*_.NORMAL_EXP__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.NORMAL_EXP__V35*/ + meltfptr[34] = 0 ; } ; } @@ -32529,10 +35876,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L8*/ meltfnum[7] = + /*_#IS_A__L8*/ + meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.BINDSEL__V32*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:8260:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_A__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V37*/ meltfptr[36] = (/*nil*/NULL);; @@ -32561,25 +35910,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8260; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BINDSEL__V32*/ meltfptr[31]; - /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[37] = 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__V38*/ + meltfptr[37] = 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___V37*/ meltfptr[36] = /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[37];; + /*_._IFELSE___V37*/ + meltfptr[36] = /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8260:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V38*/ + meltfptr[37] = 0 ; } ; } ; - /*_.IFCPP___V36*/ meltfptr[34] = /*_._IFELSE___V37*/ meltfptr[36];; + /*_.IFCPP___V36*/ + meltfptr[34] = /*_._IFELSE___V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8260:/ clear"); - /*clear*/ /*_#IS_A__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_._IFELSE___V37*/ + meltfptr[36] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32591,10 +35946,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_NOT_A__L9*/ meltfnum[7] = + /*_#IS_NOT_A__L9*/ + meltfnum[7] = !melt_is_instance_of((melt_ptr_t)(/*_.ICLADATA__V34*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-normal.melt:8261:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L9*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32606,7 +35963,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V40*/ meltfptr[36] = slot; + /*_.NAMED_NAME__V40*/ + meltfptr[36] = slot; }; ; @@ -32621,7 +35979,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "invalid class in DEFSELECTOR $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V40*/ meltfptr[36]; - /*_.ERROR_AT__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V41*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -32630,7 +35989,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:8263:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-normal.melt:8263:/ locexp"); @@ -32645,23 +36005,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:8261:/ quasiblock"); - /*_.PROGN___V43*/ meltfptr[42] = /*_.RETURN___V42*/ meltfptr[41];; + /*_.PROGN___V43*/ + meltfptr[42] = /*_.RETURN___V42*/ meltfptr[41];; /*^compute*/ - /*_._IF___V39*/ meltfptr[37] = /*_.PROGN___V43*/ meltfptr[42];; + /*_._IF___V39*/ + meltfptr[37] = /*_.PROGN___V43*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8261:/ clear"); - /*clear*/ /*_.NAMED_NAME__V40*/ meltfptr[36] = 0 ; + /*clear*/ /*_.NAMED_NAME__V40*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.ERROR_AT__V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.RETURN___V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.PROGN___V43*/ + meltfptr[42] = 0 ; } ; } @@ -32675,7 +36042,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:8264:/ cond"); - /*cond*/ if (/*_.SPREDEF__V20*/ meltfptr[19]) /*then*/ + /*cond*/ + if (/*_.SPREDEF__V20*/ meltfptr[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32685,10 +36053,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_INTEGERBOX__L10*/ meltfnum[9] = + /*_#IS_INTEGERBOX__L10*/ + meltfnum[9] = (melt_magic_discr((melt_ptr_t)(/*_.SPREDEF__V20*/ meltfptr[19])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-normal.melt:8265:/ cond"); - /*cond*/ if (/*_#IS_INTEGERBOX__L10*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#IS_INTEGERBOX__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_#OR___L11*/ meltfnum[10] = /*_#IS_INTEGERBOX__L10*/ meltfnum[9];; @@ -32704,19 +36074,23 @@ meltlab_endgetargs: /*_#IS_A__L12*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[10])));; /*^compute*/ - /*_#OR___L11*/ meltfnum[10] = /*_#IS_A__L12*/ meltfnum[11];; + /*_#OR___L11*/ + meltfnum[10] = /*_#IS_A__L12*/ meltfnum[11];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8265:/ clear"); - /*clear*/ /*_#IS_A__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#IS_A__L12*/ + meltfnum[11] = 0 ; } ; } ; - /*_#NOT__L13*/ meltfnum[11] = + /*_#NOT__L13*/ + meltfnum[11] = (!(/*_#OR___L11*/ meltfnum[10]));; MELT_LOCATION("warmelt-normal.melt:8265:/ cond"); - /*cond*/ if (/*_#NOT__L13*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#NOT__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32728,7 +36102,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V46*/ meltfptr[41] = slot; + /*_.NAMED_NAME__V46*/ + meltfptr[41] = slot; }; ; @@ -32743,7 +36118,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "bad predef in DEFSELECTOR $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V46*/ meltfptr[41]; - /*_.ERROR_AT__V47*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V47*/ + meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -32752,7 +36128,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:8267:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-normal.melt:8267:/ locexp"); @@ -32767,23 +36144,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:8265:/ quasiblock"); - /*_.PROGN___V49*/ meltfptr[48] = /*_.RETURN___V48*/ meltfptr[47];; + /*_.PROGN___V49*/ + meltfptr[48] = /*_.RETURN___V48*/ meltfptr[47];; /*^compute*/ - /*_._IF___V45*/ meltfptr[40] = /*_.PROGN___V49*/ meltfptr[48];; + /*_._IF___V45*/ + meltfptr[40] = /*_.PROGN___V49*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8265:/ clear"); - /*clear*/ /*_.NAMED_NAME__V46*/ meltfptr[41] = 0 ; + /*clear*/ /*_.NAMED_NAME__V46*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V47*/ meltfptr[42] = 0 ; + /*clear*/ /*_.ERROR_AT__V47*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.RETURN___V48*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.PROGN___V49*/ + meltfptr[48] = 0 ; } ; } @@ -32794,17 +36178,22 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_._IF___V44*/ meltfptr[36] = /*_._IF___V45*/ meltfptr[40];; + /*_._IF___V44*/ + meltfptr[36] = /*_._IF___V45*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8264:/ clear"); - /*clear*/ /*_#IS_INTEGERBOX__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#IS_INTEGERBOX__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#OR___L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#OR___L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L13*/ meltfnum[11] = 0 ; + /*clear*/ /*_#NOT__L13*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V45*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IF___V45*/ + meltfptr[40] = 0 ; } ; } @@ -32824,10 +36213,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L14*/ meltfnum[9] = + /*_#IS_A__L14*/ + meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASS__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[15])));; MELT_LOCATION("warmelt-normal.melt:8268:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#IS_A__L14*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V51*/ meltfptr[42] = (/*nil*/NULL);; @@ -32856,25 +36247,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8268; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SINSTCLASS__V22*/ meltfptr[21]; - /*_.MELT_ASSERT_FAILURE_FUN__V52*/ meltfptr[47] = 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__V52*/ + meltfptr[47] = 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___V51*/ meltfptr[42] = /*_.MELT_ASSERT_FAILURE_FUN__V52*/ meltfptr[47];; + /*_._IFELSE___V51*/ + meltfptr[42] = /*_.MELT_ASSERT_FAILURE_FUN__V52*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8268:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V52*/ meltfptr[47] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V52*/ + meltfptr[47] = 0 ; } ; } ; - /*_.IFCPP___V50*/ meltfptr[41] = /*_._IFELSE___V51*/ meltfptr[42];; + /*_.IFCPP___V50*/ + meltfptr[41] = /*_._IFELSE___V51*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8268:/ clear"); - /*clear*/ /*_#IS_A__L14*/ meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L14*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V51*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IFELSE___V51*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32892,10 +36289,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L15*/ meltfnum[10] = + /*_#IS_A__L15*/ + meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-normal.melt:8269:/ cond"); - /*cond*/ if (/*_#IS_A__L15*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#IS_A__L15*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V54*/ meltfptr[40] = (/*nil*/NULL);; @@ -32924,25 +36323,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8269; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SINSTCLASYM__V24*/ meltfptr[23]; - /*_.MELT_ASSERT_FAILURE_FUN__V55*/ meltfptr[47] = 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__V55*/ + meltfptr[47] = 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___V54*/ meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V55*/ meltfptr[47];; + /*_._IFELSE___V54*/ + meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V55*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8269:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V55*/ meltfptr[47] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V55*/ + meltfptr[47] = 0 ; } ; } ; - /*_.IFCPP___V53*/ meltfptr[48] = /*_._IFELSE___V54*/ meltfptr[40];; + /*_.IFCPP___V53*/ + meltfptr[48] = /*_._IFELSE___V54*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8269:/ clear"); - /*clear*/ /*_#IS_A__L15*/ meltfnum[10] = 0 ; + /*clear*/ /*_#IS_A__L15*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V54*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IFELSE___V54*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32960,10 +36365,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L16*/ meltfnum[11] = + /*_#IS_A__L16*/ + meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-normal.melt:8270:/ cond"); - /*cond*/ if (/*_#IS_A__L16*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#IS_A__L16*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V57*/ meltfptr[47] = (/*nil*/NULL);; @@ -32992,25 +36399,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8270; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SNAME__V19*/ meltfptr[18]; - /*_.MELT_ASSERT_FAILURE_FUN__V58*/ meltfptr[40] = 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__V58*/ + meltfptr[40] = 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___V57*/ meltfptr[47] = /*_.MELT_ASSERT_FAILURE_FUN__V58*/ meltfptr[40];; + /*_._IFELSE___V57*/ + meltfptr[47] = /*_.MELT_ASSERT_FAILURE_FUN__V58*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8270:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V58*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V58*/ + meltfptr[40] = 0 ; } ; } ; - /*_.IFCPP___V56*/ meltfptr[42] = /*_._IFELSE___V57*/ meltfptr[47];; + /*_.IFCPP___V56*/ + meltfptr[42] = /*_._IFELSE___V57*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8270:/ clear"); - /*clear*/ /*_#IS_A__L16*/ meltfnum[11] = 0 ; + /*clear*/ /*_#IS_A__L16*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V57*/ meltfptr[47] = 0 ; + /*clear*/ /*_._IFELSE___V57*/ + meltfptr[47] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33026,13 +36439,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SINSTCLASS__V22*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); - /*_.CLASS_FIELDS__V60*/ meltfptr[47] = slot; + /*_.CLASS_FIELDS__V60*/ + meltfptr[47] = slot; }; ; - /*_#MULTIPLE_LENGTH__L17*/ meltfnum[9] = + /*_#MULTIPLE_LENGTH__L17*/ + meltfnum[9] = (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V60*/ meltfptr[47])));; /*^compute*/ - /*_.SLOTUP__V61*/ meltfptr[60] = + /*_.SLOTUP__V61*/ + meltfptr[60] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[16])), (/*_#MULTIPLE_LENGTH__L17*/ meltfnum[9])));; MELT_CHECK_SIGNAL(); @@ -33051,7 +36467,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[18])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[19])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V62*/ + meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[18])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[19])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:8277:/ getslot"); @@ -33059,7 +36476,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAME__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V63*/ meltfptr[62] = slot; + /*_.NAMED_NAME__V63*/ + meltfptr[62] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8274:/ quasiblock"); @@ -33070,7 +36488,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ meltfrout->tabval[17])), (6), "CLASS_NREP_DATASTRING"); - /*_.INST__V65*/ meltfptr[64] = + /*_.INST__V65*/ + meltfptr[64] = newobj; }; ; @@ -33093,15 +36512,18 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V65*/ meltfptr[64], "newly made instance"); ; - /*_.NAMSTRDATA__V64*/ meltfptr[63] = /*_.INST__V65*/ meltfptr[64];; + /*_.NAMSTRDATA__V64*/ + meltfptr[63] = /*_.INST__V65*/ meltfptr[64];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NONZERO_HASH__L18*/ meltfnum[10] = + /*_#NONZERO_HASH__L18*/ + meltfnum[10] = (melt_nonzerohash());; /*^compute*/ - /*_.MAKE_INTEGERBOX__V66*/ meltfptr[65] = + /*_.MAKE_INTEGERBOX__V66*/ + meltfptr[65] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[21])), (/*_#NONZERO_HASH__L18*/ meltfnum[10])));; MELT_LOCATION("warmelt-normal.melt:8278:/ quasiblock"); @@ -33111,7 +36533,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ meltfrout->tabval[20])), (9), "CLASS_NREP_DATAINSTANCE"); - /*_.INST__V68*/ meltfptr[67] = + /*_.INST__V68*/ + meltfptr[67] = newobj; }; ; @@ -33154,24 +36577,30 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V68*/ meltfptr[67], "newly made instance"); ; - /*_.INSDATA__V67*/ meltfptr[66] = /*_.INST__V68*/ meltfptr[67];; + /*_.INSDATA__V67*/ + meltfptr[66] = /*_.INST__V68*/ meltfptr[67];; /*^compute*/ - /*_#MULTIPLE_LENGTH__L19*/ meltfnum[11] = + /*_#MULTIPLE_LENGTH__L19*/ + meltfnum[11] = (melt_multiple_length((melt_ptr_t)(/*_.SFORMALS__V28*/ meltfptr[27])));; /*^compute*/ - /*_#stI__L20*/ meltfnum[19] = + /*_#stI__L20*/ + meltfnum[19] = ((/*_#MULTIPLE_LENGTH__L19*/ meltfnum[11]) * (2));; /*^compute*/ - /*_#plI__L21*/ meltfnum[20] = + /*_#plI__L21*/ + meltfnum[20] = ((3) + (/*_#stI__L20*/ meltfnum[19]));; /*^compute*/ - /*_.FORMSYMBMAP__V69*/ meltfptr[68] = + /*_.FORMSYMBMAP__V69*/ + meltfptr[68] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[22])), (/*_#plI__L21*/ meltfnum[20])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:8288:/ cond"); - /*cond*/ if (/*_.SFORMALS__V28*/ meltfptr[27]) /*then*/ + /*cond*/ + if (/*_.SFORMALS__V28*/ meltfptr[27]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33181,10 +36610,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:8289:/ quasiblock"); - /*_#NBFORMALS__L22*/ meltfnum[21] = + /*_#NBFORMALS__L22*/ + meltfnum[21] = (melt_multiple_length((melt_ptr_t)(/*_.SFORMALS__V28*/ meltfptr[27])));; /*^compute*/ - /*_.NFORMALTUPLE__V72*/ meltfptr[71] = + /*_.NFORMALTUPLE__V72*/ + meltfptr[71] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[16])), (/*_#NBFORMALS__L22*/ meltfnum[21])));; MELT_CHECK_SIGNAL(); @@ -33203,7 +36634,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V73*/ meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[18])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[16])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V73*/ + meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[18])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[16])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:8291:/ quasiblock"); @@ -33214,7 +36646,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[23])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V75*/ meltfptr[74] = + /*_.INST__V75*/ + meltfptr[74] = newobj; }; ; @@ -33242,7 +36675,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V75*/ meltfptr[74], "newly made instance"); ; - /*_.NFORMDATA__V74*/ meltfptr[73] = /*_.INST__V75*/ meltfptr[74];; + /*_.NFORMDATA__V74*/ + meltfptr[73] = /*_.INST__V75*/ meltfptr[74];; MELT_CHECK_SIGNAL(); ; @@ -33261,7 +36695,8 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_FORMALS__V76*/ meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.SFORMALS__V28*/ meltfptr[27]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_FORMALS__V76*/ + meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.SFORMALS__V28*/ meltfptr[27]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -33274,7 +36709,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NFORMDATA__V74*/ meltfptr[73]; - /*_.ADD_NCTX_DATA__V77*/ meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V77*/ + meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -33289,30 +36725,41 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!SDEFSEL_FORMALS*/ meltfrout->tabval[27]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NFORMDATA__V74*/ meltfptr[73]; - /*_.FILL_DATA_SLOT__V78*/ meltfptr[77] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[26])), (melt_ptr_t)(/*_.INSDATA__V67*/ meltfptr[66]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_DATA_SLOT__V78*/ + meltfptr[77] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ meltfrout->tabval[26])), (melt_ptr_t)(/*_.INSDATA__V67*/ meltfptr[66]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V71*/ meltfptr[70] = /*_.NFORMALTUPLE__V72*/ meltfptr[71];; + /*_.LET___V71*/ + meltfptr[70] = /*_.NFORMALTUPLE__V72*/ meltfptr[71];; MELT_LOCATION("warmelt-normal.melt:8289:/ clear"); - /*clear*/ /*_#NBFORMALS__L22*/ meltfnum[21] = 0 ; + /*clear*/ /*_#NBFORMALS__L22*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_.NFORMALTUPLE__V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_.NFORMALTUPLE__V72*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V73*/ meltfptr[72] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V73*/ + meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.NFORMDATA__V74*/ meltfptr[73] = 0 ; + /*clear*/ /*_.NFORMDATA__V74*/ + meltfptr[73] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_FORMALS__V76*/ meltfptr[75] = 0 ; + /*clear*/ /*_.FILL_NORMAL_FORMALS__V76*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V77*/ meltfptr[76] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V77*/ + meltfptr[76] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_DATA_SLOT__V78*/ meltfptr[77] = 0 ; - /*_.NFORMTUP__V70*/ meltfptr[69] = /*_.LET___V71*/ meltfptr[70];; + /*clear*/ /*_.FILL_DATA_SLOT__V78*/ + meltfptr[77] = 0 ; + /*_.NFORMTUP__V70*/ + meltfptr[69] = /*_.LET___V71*/ meltfptr[70];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8288:/ clear"); - /*clear*/ /*_.LET___V71*/ meltfptr[70] = 0 ; + /*clear*/ /*_.LET___V71*/ + meltfptr[70] = 0 ; } ; } @@ -33332,7 +36779,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INSDATA__V67*/ meltfptr[66]; - /*_.ADD_NCTX_DATA__V79*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V79*/ + meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -33345,14 +36793,16 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V64*/ meltfptr[63]; - /*_.ADD_NCTX_DATA__V80*/ meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V80*/ + meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:8306:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDSEL__V32*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ meltfrout->tabval[28]))) ) /*then*/ @@ -33401,10 +36851,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L24*/ meltfnum[23] = + /*_#IS_A__L24*/ + meltfnum[23] = melt_is_instance_of((melt_ptr_t)(/*_.FLDA__V81*/ meltfptr[73]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ meltfrout->tabval[29])));; MELT_LOCATION("warmelt-normal.melt:8311:/ cond"); - /*cond*/ if (/*_#IS_A__L24*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#IS_A__L24*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V83*/ meltfptr[76] = (/*nil*/NULL);; @@ -33433,25 +36885,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8311; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FLDA__V81*/ meltfptr[73]; - /*_.MELT_ASSERT_FAILURE_FUN__V84*/ meltfptr[77] = 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__V84*/ + meltfptr[77] = 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___V83*/ meltfptr[76] = /*_.MELT_ASSERT_FAILURE_FUN__V84*/ meltfptr[77];; + /*_._IFELSE___V83*/ + meltfptr[76] = /*_.MELT_ASSERT_FAILURE_FUN__V84*/ meltfptr[77];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8311:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V84*/ meltfptr[77] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V84*/ + meltfptr[77] = 0 ; } ; } ; - /*_.IFCPP___V82*/ meltfptr[75] = /*_._IFELSE___V83*/ meltfptr[76];; + /*_.IFCPP___V82*/ + meltfptr[75] = /*_._IFELSE___V83*/ meltfptr[76];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8311:/ clear"); - /*clear*/ /*_#IS_A__L24*/ meltfnum[23] = 0 ; + /*clear*/ /*_#IS_A__L24*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V83*/ meltfptr[76] = 0 ; + /*clear*/ /*_._IFELSE___V83*/ + meltfptr[76] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33467,7 +36925,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLDA__V81*/ meltfptr[73]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SFLA_FIELD"); - /*_.CURFLD__V85*/ meltfptr[70] = slot; + /*_.CURFLD__V85*/ + meltfptr[70] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8313:/ getslot"); @@ -33475,10 +36934,12 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLDA__V81*/ meltfptr[73]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SFLA_EXPR"); - /*_.CUREXP__V86*/ meltfptr[77] = slot; + /*_.CUREXP__V86*/ + meltfptr[77] = slot; }; ; - /*_#CUROFF__L25*/ meltfnum[23] = + /*_#CUROFF__L25*/ + meltfnum[23] = (melt_obj_num((melt_ptr_t)(/*_.CURFLD__V85*/ meltfptr[70])));; #if MELT_HAVE_DEBUG @@ -33490,10 +36951,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L26*/ meltfnum[25] = + /*_#IS_A__L26*/ + meltfnum[25] = melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V85*/ meltfptr[70]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[30])));; MELT_LOCATION("warmelt-normal.melt:8316:/ cond"); - /*cond*/ if (/*_#IS_A__L26*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#IS_A__L26*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V88*/ meltfptr[87] = (/*nil*/NULL);; @@ -33522,25 +36985,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8316; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURFLD__V85*/ meltfptr[70]; - /*_.MELT_ASSERT_FAILURE_FUN__V89*/ meltfptr[88] = 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__V89*/ + meltfptr[88] = 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___V88*/ meltfptr[87] = /*_.MELT_ASSERT_FAILURE_FUN__V89*/ meltfptr[88];; + /*_._IFELSE___V88*/ + meltfptr[87] = /*_.MELT_ASSERT_FAILURE_FUN__V89*/ meltfptr[88];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8316:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V89*/ meltfptr[88] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V89*/ + meltfptr[88] = 0 ; } ; } ; - /*_.IFCPP___V87*/ meltfptr[76] = /*_._IFELSE___V88*/ meltfptr[87];; + /*_.IFCPP___V87*/ + meltfptr[76] = /*_._IFELSE___V88*/ meltfptr[87];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8316:/ clear"); - /*clear*/ /*_#IS_A__L26*/ meltfnum[25] = 0 ; + /*clear*/ /*_#IS_A__L26*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V88*/ meltfptr[87] = 0 ; + /*clear*/ /*_._IFELSE___V88*/ + meltfptr[87] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33563,16 +37032,20 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SINSTCLASS__V22*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); - /*_.CLASS_FIELDS__V91*/ meltfptr[87] = slot; + /*_.CLASS_FIELDS__V91*/ + meltfptr[87] = slot; }; ; - /*_.MULTIPLE_NTH__V92*/ meltfptr[91] = + /*_.MULTIPLE_NTH__V92*/ + meltfptr[91] = (melt_multiple_nth((melt_ptr_t)(/*_.CLASS_FIELDS__V91*/ meltfptr[87]), (/*_#CUROFF__L25*/ meltfnum[23])));; /*^compute*/ - /*_#eqeq__L27*/ meltfnum[25] = + /*_#eqeq__L27*/ + meltfnum[25] = ((/*_.MULTIPLE_NTH__V92*/ meltfptr[91]) == (/*_.CURFLD__V85*/ meltfptr[70]));; MELT_LOCATION("warmelt-normal.melt:8317:/ cond"); - /*cond*/ if (/*_#eqeq__L27*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#eqeq__L27*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V93*/ meltfptr[92] = (/*nil*/NULL);; @@ -33603,29 +37076,37 @@ meltlab_endgetargs: argtab[3].meltbp_long = /*_#CUROFF__L25*/ meltfnum[23]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURFLD__V85*/ meltfptr[70]; - /*_.MELT_ASSERT_FAILURE_FUN__V94*/ meltfptr[93] = 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__V94*/ + meltfptr[93] = 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___V93*/ meltfptr[92] = /*_.MELT_ASSERT_FAILURE_FUN__V94*/ meltfptr[93];; + /*_._IFELSE___V93*/ + meltfptr[92] = /*_.MELT_ASSERT_FAILURE_FUN__V94*/ meltfptr[93];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8317:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V94*/ meltfptr[93] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V94*/ + meltfptr[93] = 0 ; } ; } ; - /*_.IFCPP___V90*/ meltfptr[88] = /*_._IFELSE___V93*/ meltfptr[92];; + /*_.IFCPP___V90*/ + meltfptr[88] = /*_._IFELSE___V93*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8317:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V91*/ meltfptr[87] = 0 ; + /*clear*/ /*_.CLASS_FIELDS__V91*/ + meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_NTH__V92*/ meltfptr[91] = 0 ; + /*clear*/ /*_.MULTIPLE_NTH__V92*/ + meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L27*/ meltfnum[25] = 0 ; + /*clear*/ /*_#eqeq__L27*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V93*/ meltfptr[92] = 0 ; + /*clear*/ /*_._IFELSE___V93*/ + meltfptr[92] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33652,7 +37133,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V96*/ meltfptr[87];/*^multimsend.send*/ - /*_.NCUR__V95*/ meltfptr[93] = meltgc_send ((melt_ptr_t)(/*_.CUREXP__V86*/ meltfptr[77]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[11]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NCUR__V95*/ + meltfptr[93] = meltgc_send ((melt_ptr_t)(/*_.CUREXP__V86*/ meltfptr[77]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[11]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -33667,10 +37149,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L28*/ meltfnum[25] = + /*_#IS_LIST__L28*/ + meltfnum[25] = (melt_magic_discr((melt_ptr_t)(/*_.NBINDCUR__V96*/ meltfptr[87])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:8324:/ cond"); - /*cond*/ if (/*_#IS_LIST__L28*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L28*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33681,7 +37165,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NBINDCONT__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -33692,7 +37177,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NBINDCONT__V30*/ meltfptr[29]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.THEBINDLIST__V97*/ meltfptr[91] = slot; + /*_.THEBINDLIST__V97*/ + meltfptr[91] = slot; }; ; } @@ -33712,16 +37198,19 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V96*/ meltfptr[87]; - /*_.LIST_APPEND2LIST__V98*/ meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[31])), (melt_ptr_t)(/*_.THEBINDLIST__V97*/ meltfptr[91]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V98*/ + meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[31])), (melt_ptr_t)(/*_.THEBINDLIST__V97*/ meltfptr[91]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.THEBINDLIST__V97*/ meltfptr[91] = /*_.SETQ___V99*/ meltfptr[98] = /*_.LIST_APPEND2LIST__V98*/ meltfptr[92];; + /*_.THEBINDLIST__V97*/ + meltfptr[91] = /*_.SETQ___V99*/ meltfptr[98] = /*_.LIST_APPEND2LIST__V98*/ meltfptr[92];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:8327:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NBINDCONT__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -33750,11 +37239,14 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:8325:/ clear"); - /*clear*/ /*_.THEBINDLIST__V97*/ meltfptr[91] = 0 ; + /*clear*/ /*_.THEBINDLIST__V97*/ + meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_APPEND2LIST__V98*/ meltfptr[92] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V98*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V99*/ meltfptr[98] = 0 ; + /*clear*/ /*_.SETQ___V99*/ + meltfptr[98] = 0 ; /*epilog*/ } ; @@ -33765,39 +37257,50 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:8320:/ clear"); - /*clear*/ /*_#IS_LIST__L28*/ meltfnum[25] = 0 ; + /*clear*/ /*_#IS_LIST__L28*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDCUR__V96*/ meltfptr[87] = 0 ; + /*clear*/ /*_.NBINDCUR__V96*/ + meltfptr[87] = 0 ; MELT_LOCATION("warmelt-normal.melt:8312:/ clear"); - /*clear*/ /*_.CURFLD__V85*/ meltfptr[70] = 0 ; + /*clear*/ /*_.CURFLD__V85*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.CUREXP__V86*/ meltfptr[77] = 0 ; + /*clear*/ /*_.CUREXP__V86*/ + meltfptr[77] = 0 ; /*^clear*/ - /*clear*/ /*_#CUROFF__L25*/ meltfnum[23] = 0 ; + /*clear*/ /*_#CUROFF__L25*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V87*/ meltfptr[76] = 0 ; + /*clear*/ /*_.IFCPP___V87*/ + meltfptr[76] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V90*/ meltfptr[88] = 0 ; + /*clear*/ /*_.IFCPP___V90*/ + meltfptr[88] = 0 ; if (/*_#IX__L23*/ meltfnum[21]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:8308:/ clear"); - /*clear*/ /*_.FLDA__V81*/ meltfptr[73] = 0 ; + /*clear*/ /*_.FLDA__V81*/ + meltfptr[73] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L23*/ meltfnum[21] = 0 ; + /*clear*/ /*_#IX__L23*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V82*/ meltfptr[75] = 0 ; + /*clear*/ /*_.IFCPP___V82*/ + meltfptr[75] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-normal.melt:8329:/ quasiblock"); /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NBINDCONT__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -33808,7 +37311,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NBINDCONT__V30*/ meltfptr[29]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.THEBINDLIST__V101*/ meltfptr[92] = slot; + /*_.THEBINDLIST__V101*/ + meltfptr[92] = slot; }; ; } @@ -33828,19 +37332,23 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[16]); - /*_.NBINDTUP__V102*/ meltfptr[98] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[32])), (melt_ptr_t)(/*_.THEBINDLIST__V101*/ meltfptr[92]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NBINDTUP__V102*/ + meltfptr[98] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[32])), (melt_ptr_t)(/*_.THEBINDLIST__V101*/ meltfptr[92]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#MULTIPLE_LENGTH__L29*/ meltfnum[25] = + /*_#MULTIPLE_LENGTH__L29*/ + meltfnum[25] = (melt_multiple_length((melt_ptr_t)(/*_.NBINDTUP__V102*/ meltfptr[98])));; /*^compute*/ - /*_#gtI__L30*/ meltfnum[23] = + /*_#gtI__L30*/ + meltfnum[23] = ((/*_#MULTIPLE_LENGTH__L29*/ meltfnum[25]) > (0));; MELT_LOCATION("warmelt-normal.melt:8332:/ cond"); - /*cond*/ if (/*_#gtI__L30*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#gtI__L30*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33871,7 +37379,8 @@ meltlab_endgetargs: ; } /*noelse*/ ; - /*_#GET_INT__L31*/ meltfnum[30] = + /*_#GET_INT__L31*/ + meltfnum[30] = (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ meltfrout->tabval[33]))));; { @@ -33882,10 +37391,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L32*/ meltfnum[31] = + /*_#IS_A__L32*/ + meltfnum[31] = melt_is_instance_of((melt_ptr_t)(/*_.BINDSEL__V32*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:8336:/ cond"); - /*cond*/ if (/*_#IS_A__L32*/ meltfnum[31]) /*then*/ + /*cond*/ + if (/*_#IS_A__L32*/ meltfnum[31]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33896,7 +37407,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:8337:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDSEL__V32*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ meltfrout->tabval[28]))) ) /*then*/ @@ -33948,7 +37460,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L33*/ meltfnum[32] = + /*_#MELT_NEED_DBG__L33*/ + meltfnum[32] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -33957,7 +37470,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8339:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L33*/ meltfnum[32]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L33*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33990,16 +37504,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defselector return insdata"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.INSDATA__V67*/ meltfptr[66]; - /*_.MELT_DEBUG_FUN__V104*/ meltfptr[87] = 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__V104*/ + meltfptr[87] = 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___V103*/ meltfptr[93] = /*_.MELT_DEBUG_FUN__V104*/ meltfptr[87];; + /*_._IF___V103*/ + meltfptr[93] = /*_.MELT_DEBUG_FUN__V104*/ meltfptr[87];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8339:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L34*/ meltfnum[33] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L34*/ + meltfnum[33] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V104*/ meltfptr[87] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V104*/ + meltfptr[87] = 0 ; } ; } @@ -34012,7 +37530,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8339:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -34021,9 +37540,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L33*/ meltfnum[32] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L33*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V103*/ meltfptr[93] = 0 ; + /*clear*/ /*_._IF___V103*/ + meltfptr[93] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34049,7 +37570,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:8340:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.INSDATA__V67*/ meltfptr[66];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.INSDATA__V67*/ meltfptr[66];; MELT_LOCATION("warmelt-normal.melt:8340:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -34057,118 +37579,172 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V100*/ meltfptr[91] = /*_.RETURN___V105*/ meltfptr[70];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V100*/ + meltfptr[91] = /*_.RETURN___V105*/ meltfptr[70];; MELT_LOCATION("warmelt-normal.melt:8329:/ clear"); - /*clear*/ /*_.THEBINDLIST__V101*/ meltfptr[92] = 0 ; + /*clear*/ /*_.THEBINDLIST__V101*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDTUP__V102*/ meltfptr[98] = 0 ; + /*clear*/ /*_.NBINDTUP__V102*/ + meltfptr[98] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L29*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L29*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L30*/ meltfnum[23] = 0 ; + /*clear*/ /*_#gtI__L30*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L31*/ meltfnum[30] = 0 ; + /*clear*/ /*_#GET_INT__L31*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L32*/ meltfnum[31] = 0 ; + /*clear*/ /*_#IS_A__L32*/ + meltfnum[31] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V105*/ meltfptr[70] = 0 ; - /*_.LET___V59*/ meltfptr[40] = /*_.LET___V100*/ meltfptr[91];; + /*clear*/ /*_.RETURN___V105*/ + meltfptr[70] = 0 ; + /*_.LET___V59*/ + meltfptr[40] = /*_.LET___V100*/ meltfptr[91];; MELT_LOCATION("warmelt-normal.melt:8271:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V60*/ meltfptr[47] = 0 ; + /*clear*/ /*_.CLASS_FIELDS__V60*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L17*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L17*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.SLOTUP__V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_.SLOTUP__V61*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V62*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_.NAMED_NAME__V63*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMSTRDATA__V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.NAMSTRDATA__V64*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_#NONZERO_HASH__L18*/ meltfnum[10] = 0 ; + /*clear*/ /*_#NONZERO_HASH__L18*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V66*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.INSDATA__V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_.INSDATA__V67*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L19*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L19*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_#stI__L20*/ meltfnum[19] = 0 ; + /*clear*/ /*_#stI__L20*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L21*/ meltfnum[20] = 0 ; + /*clear*/ /*_#plI__L21*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.FORMSYMBMAP__V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_.FORMSYMBMAP__V69*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.NFORMTUP__V70*/ meltfptr[69] = 0 ; + /*clear*/ /*_.NFORMTUP__V70*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V79*/ meltfptr[71] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V79*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V80*/ meltfptr[72] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V80*/ + meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V100*/ meltfptr[91] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.LET___V59*/ meltfptr[40];; + /*clear*/ /*_.LET___V100*/ + meltfptr[91] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.LET___V59*/ meltfptr[40];; MELT_LOCATION("warmelt-normal.melt:8241:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SNAME__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SNAME__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SPREDEF__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SPREDEF__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.SDOCSTR__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.SDOCSTR__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.SINSTCLASS__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.SINSTCLASS__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.SINSTCLABND__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.SINSTCLABND__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.SINSTCLASYM__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.SINSTCLASYM__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.SINSTOBJNUM__V26*/ meltfptr[24] = 0 ; + /*clear*/ /*_.SINSTOBJNUM__V26*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.SINSTFIELDS__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.SINSTFIELDS__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.SFORMALS__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.SFORMALS__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDLIST__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.NBINDLIST__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDCONT__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.NBINDCONT__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDSEL__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.BINDSEL__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMDATA__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.NAMDATA__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.ICLADATA__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.ICLADATA__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_.IFCPP___V36*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_NOT_A__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ meltfptr[37] = 0 ; + /*clear*/ /*_._IF___V39*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V44*/ meltfptr[36] = 0 ; + /*clear*/ /*_._IF___V44*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V50*/ meltfptr[41] = 0 ; + /*clear*/ /*_.IFCPP___V50*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V53*/ meltfptr[48] = 0 ; + /*clear*/ /*_.IFCPP___V53*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V56*/ meltfptr[42] = 0 ; + /*clear*/ /*_.IFCPP___V56*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V59*/ meltfptr[40] = 0 ; + /*clear*/ /*_.LET___V59*/ + meltfptr[40] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:8236:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:8236:/ locexp"); @@ -34183,17 +37759,22 @@ 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*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -34275,7 +37856,8 @@ meltrout_146_WARMELTmiNORMAL_NORMAL_EXPORTED_VALUE(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_146_WARMELTmiNORMAL_NORMAL_EXPORTED_VALUE fromline 1756 */ - /* classy proc frame meltrout_146_WARMELTmiNORMAL_NORMAL_EXPORTED_VALUE */ MeltFrame_meltrout_146_WARMELTmiNORMAL_NORMAL_EXPORTED_VALUE + /* classy proc frame meltrout_146_WARMELTmiNORMAL_NORMAL_EXPORTED_VALUE */ + MeltFrame_meltrout_146_WARMELTmiNORMAL_NORMAL_EXPORTED_VALUE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_146_WARMELTmiNORMAL_NORMAL_EXPORTED_VALUE fromline 1785*/ #if ENABLE_CHECKING @@ -34288,7 +37870,8 @@ meltrout_146_WARMELTmiNORMAL_NORMAL_EXPORTED_VALUE(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("NORMAL_EXPORTED_VALUE", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -34298,40 +37881,46 @@ meltrout_146_WARMELTmiNORMAL_NORMAL_EXPORTED_VALUE(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:8353:/ getarg"); - /*_.SYM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.SYM__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NEXP__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NEXP__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.ENV__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.NCX__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V6*/ meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; + /*_.PSLOC__V6*/ + meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5])) != NULL); /*getarg#5*/ /*^getarg*/ if (meltxargdescr_[4] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.BINDSLIST__V7*/ meltfptr[6] = (meltxargtab_[4].meltbp_aptr) ? (*(meltxargtab_[4].meltbp_aptr)) : NULL; + /*_.BINDSLIST__V7*/ + meltfptr[6] = (meltxargtab_[4].meltbp_aptr) ? (*(meltxargtab_[4].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V7*/ meltfptr[6])) != NULL); ; @@ -34363,7 +37952,8 @@ 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)) @@ -34372,7 +37962,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8354:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34409,16 +38000,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nexp="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NEXP__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V9*/ + meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V8*/ meltfptr[7] = /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8];; + /*_._IF___V8*/ + meltfptr[7] = /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8354:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V9*/ + meltfptr[8] = 0 ; } ; } @@ -34431,7 +38026,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8354:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -34440,9 +38036,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IF___V8*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34472,10 +38070,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:8355:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[7] = (/*nil*/NULL);; @@ -34504,25 +38104,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8355; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SYM__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = 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__V12*/ + meltfptr[11] = 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___V11*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; + /*_._IFELSE___V11*/ + meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8355:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/ + meltfptr[11] = 0 ; } ; } ; - /*_.IFCPP___V10*/ meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[7];; + /*_.IFCPP___V10*/ + meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8355:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V11*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V11*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34540,10 +38146,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:8356:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V14*/ meltfptr[7] = (/*nil*/NULL);; @@ -34572,25 +38180,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8356; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NEXP__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = 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__V15*/ + meltfptr[14] = 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___V14*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; + /*_._IFELSE___V14*/ + meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8356:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ + meltfptr[14] = 0 ; } ; } ; - /*_.IFCPP___V13*/ meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[7];; + /*_.IFCPP___V13*/ + meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8356:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V14*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V14*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34608,10 +38222,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:8357:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[7] = (/*nil*/NULL);; @@ -34640,25 +38256,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8357; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 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__V18*/ + meltfptr[17] = 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___V17*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; + /*_._IFELSE___V17*/ + meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8357:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ + meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V16*/ meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[7];; + /*_.IFCPP___V16*/ + meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8357:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34676,10 +38298,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[0] = + /*_#IS_A__L6*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:8358:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V20*/ meltfptr[7] = (/*nil*/NULL);; @@ -34706,25 +38330,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 8358; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V20*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];; + /*_._IFELSE___V20*/ + meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8358:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/ + meltfptr[20] = 0 ; } ; } ; - /*_.IFCPP___V19*/ meltfptr[17] = /*_._IFELSE___V20*/ meltfptr[7];; + /*_.IFCPP___V19*/ + meltfptr[17] = /*_._IFELSE___V20*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8358:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V20*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V20*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34742,10 +38372,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L7*/ meltfnum[1] = + /*_#IS_LIST__L7*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V7*/ meltfptr[6])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:8359:/ cond"); - /*cond*/ if (/*_#IS_LIST__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V23*/ meltfptr[7] = (/*nil*/NULL);; @@ -34774,25 +38406,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 8359; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V7*/ meltfptr[6]; - /*_.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_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_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V23*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; + /*_._IFELSE___V23*/ + meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8359:/ 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[7];; + /*_.IFCPP___V22*/ + meltfptr[20] = /*_._IFELSE___V23*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8359:/ clear"); - /*clear*/ /*_#IS_LIST__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34824,7 +38462,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ meltfptr[4]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V6*/ meltfptr[5]; - /*_.SYMDATA__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SYMDATA__V27*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:8362:/ getslot"); @@ -34832,7 +38471,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NCTX_INITPROC"); - /*_.INIPROC__V28*/ meltfptr[27] = slot; + /*_.INIPROC__V28*/ + meltfptr[27] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8363:/ getslot"); @@ -34840,18 +38480,21 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 11, "NCTX_CURPROC"); - /*_.CURPROC__V29*/ meltfptr[28] = slot; + /*_.CURPROC__V29*/ + meltfptr[28] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:8364:/ quasiblock"); - /*_.SB__V31*/ meltfptr[30] = + /*_.SB__V31*/ + meltfptr[30] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[9])), (const char*)0);; { MELT_LOCATION("warmelt-normal.melt:8365:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V31*/ meltfptr[30]), ( "norm.exp.val : ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V31*/ meltfptr[30]), ( "norm.exp.val : ")); } ; MELT_LOCATION("warmelt-normal.melt:8366:/ getslot"); @@ -34859,7 +38502,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V32*/ meltfptr[31] = slot; + /*_.NAMED_NAME__V32*/ + meltfptr[31] = slot; }; ; @@ -34869,18 +38513,23 @@ meltlab_endgetargs: melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V32*/ meltfptr[31]))); } ; - /*_.LET___V30*/ meltfptr[29] = /*_.SB__V31*/ meltfptr[30];; + /*_.LET___V30*/ + meltfptr[29] = /*_.SB__V31*/ meltfptr[30];; MELT_LOCATION("warmelt-normal.melt:8364:/ clear"); - /*clear*/ /*_.SB__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.SB__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V32*/ meltfptr[31] = 0 ; - /*_.CSBUF__V33*/ meltfptr[30] = /*_.LET___V30*/ meltfptr[29];; + /*clear*/ /*_.NAMED_NAME__V32*/ + meltfptr[31] = 0 ; + /*_.CSBUF__V33*/ + meltfptr[30] = /*_.LET___V30*/ meltfptr[29];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_.STRBUF2STRING__V34*/ meltfptr[31] = + /*_.STRBUF2STRING__V34*/ + meltfptr[31] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[11])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V33*/ meltfptr[30]))));; MELT_LOCATION("warmelt-normal.melt:8368:/ quasiblock"); @@ -34890,7 +38539,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ meltfrout->tabval[10])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE"); - /*_.INST__V36*/ meltfptr[35] = + /*_.INST__V36*/ + meltfptr[35] = newobj; }; ; @@ -34908,7 +38558,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V36*/ meltfptr[35], "newly made instance"); ; - /*_.SCURENVBOX__V35*/ meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; + /*_.SCURENVBOX__V35*/ + meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:8372:/ cppif.then"); @@ -34929,7 +38580,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L8*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -34938,7 +38590,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8372:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34971,16 +38624,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normal_exported_value scurenvbox="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SCURENVBOX__V35*/ meltfptr[34]; - /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 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__V38*/ + meltfptr[37] = 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___V37*/ meltfptr[36] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; + /*_._IF___V37*/ + meltfptr[36] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8372:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ + meltfptr[37] = 0 ; } ; } @@ -34993,7 +38650,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8372:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -35002,9 +38660,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_._IF___V37*/ + meltfptr[36] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35043,7 +38703,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V6*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V41*/ meltfptr[40];/*^multimsend.send*/ - /*_.NCURENVBOX__V40*/ meltfptr[36] = meltgc_send ((melt_ptr_t)(/*_.SCURENVBOX__V35*/ meltfptr[34]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[12]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NCURENVBOX__V40*/ + meltfptr[36] = meltgc_send ((melt_ptr_t)(/*_.SCURENVBOX__V35*/ meltfptr[34]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[12]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -35069,7 +38730,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -35078,7 +38740,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8376:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35115,16 +38778,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " curenvbinds="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V41*/ meltfptr[40]; - /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V42*/ meltfptr[41] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];; + /*_._IF___V42*/ + meltfptr[41] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8376:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[42] = 0 ; } ; } @@ -35137,7 +38804,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8376:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -35146,9 +38814,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_._IF___V42*/ + meltfptr[41] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35178,7 +38848,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V41*/ meltfptr[40]; - /*_.LIST_APPEND2LIST__V44*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.BINDSLIST__V7*/ meltfptr[6]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V44*/ + meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.BINDSLIST__V7*/ meltfptr[6]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:8379:/ quasiblock"); @@ -35195,7 +38866,8 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x20*/ - /*_.TUPLREC___V47*/ meltfptr[46] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x20; + /*_.TUPLREC___V47*/ + meltfptr[46] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x20; meltletrec_1_ptr->rtup_0__TUPLREC__x20.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x20.nbval = 3; @@ -35221,13 +38893,16 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V47*/ meltfptr[46]); ; - /*_.ARGTUP__V46*/ meltfptr[45] = /*_.TUPLREC___V47*/ meltfptr[46];; + /*_.ARGTUP__V46*/ + meltfptr[45] = /*_.TUPLREC___V47*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8380:/ clear"); - /*clear*/ /*_.TUPLREC___V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.TUPLREC___V47*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.TUPLREC___V47*/ + meltfptr[46] = 0 ; } /*end multiallocblock*/ ; @@ -35250,7 +38925,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V6*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "hook_value_exporter"; - /*_.NORMAL_PREDEF__V48*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[19])), (melt_ptr_t)((/*!HOOK_VALUE_EXPORTER*/ meltfrout->tabval[20])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V48*/ + meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[19])), (melt_ptr_t)((/*!HOOK_VALUE_EXPORTER*/ meltfrout->tabval[20])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:8393:/ blockmultialloc"); @@ -35264,7 +38940,8 @@ meltlab_endgetargs: meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x21*/ - /*_.TUPLREC___V50*/ meltfptr[49] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x21; + /*_.TUPLREC___V50*/ + meltfptr[49] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x21; meltletrec_2_ptr->rtup_0__TUPLREC__x21.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_2_ptr->rtup_0__TUPLREC__x21.nbval = 0; @@ -35272,16 +38949,20 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V50*/ meltfptr[49]); ; - /*_.TUPLE___V49*/ meltfptr[48] = /*_.TUPLREC___V50*/ meltfptr[49];; + /*_.TUPLE___V49*/ + meltfptr[48] = /*_.TUPLREC___V50*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8393:/ clear"); - /*clear*/ /*_.TUPLREC___V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.TUPLREC___V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.TUPLREC___V50*/ + meltfptr[49] = 0 ; } /*end multiallocblock*/ ; - /*_.HOOK_DATA__V51*/ meltfptr[49] = + /*_.HOOK_DATA__V51*/ + meltfptr[49] = melt_hook_data((melt_ptr_t)(/*!HOOK_VALUE_EXPORTER*/ meltfrout->tabval[20]));; MELT_LOCATION("warmelt-normal.melt:8386:/ quasiblock"); @@ -35291,7 +38972,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_HOOK_CALL*/ meltfrout->tabval[16])), (7), "CLASS_NREP_HOOK_CALL"); - /*_.INST__V53*/ meltfptr[52] = + /*_.INST__V53*/ + meltfptr[52] = newobj; }; ; @@ -35334,7 +39016,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V53*/ meltfptr[52], "newly made instance"); ; - /*_.INST___V52*/ meltfptr[51] = /*_.INST__V53*/ meltfptr[52];; + /*_.INST___V52*/ + meltfptr[51] = /*_.INST__V53*/ meltfptr[52];; MELT_LOCATION("warmelt-normal.melt:8381:/ quasiblock"); @@ -35343,7 +39026,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[14])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V55*/ meltfptr[54] = + /*_.INST__V55*/ + meltfptr[54] = newobj; }; ; @@ -35371,7 +39055,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V55*/ meltfptr[54], "newly made instance"); ; - /*_.CBIND__V54*/ meltfptr[53] = /*_.INST__V55*/ meltfptr[54];; + /*_.CBIND__V54*/ + meltfptr[53] = /*_.INST__V55*/ meltfptr[54];; MELT_CHECK_SIGNAL(); ; @@ -35383,7 +39068,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[21])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V57*/ meltfptr[56] = + /*_.INST__V57*/ + meltfptr[56] = newobj; }; ; @@ -35411,7 +39097,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V57*/ meltfptr[56], "newly made instance"); ; - /*_.SYOCC__V56*/ meltfptr[55] = /*_.INST__V57*/ meltfptr[56];; + /*_.SYOCC__V56*/ + meltfptr[55] = /*_.INST__V57*/ meltfptr[56];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:8403:/ cppif.then"); @@ -35432,7 +39119,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -35441,7 +39129,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:8403:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35478,16 +39167,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " syocc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SYOCC__V56*/ meltfptr[55]; - /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V59*/ + meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V58*/ meltfptr[57] = /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58];; + /*_._IF___V58*/ + meltfptr[57] = /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:8403:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V59*/ + meltfptr[58] = 0 ; } ; } @@ -35500,7 +39193,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:8403:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -35509,9 +39203,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_._IF___V58*/ + meltfptr[57] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35537,61 +39233,84 @@ meltlab_endgetargs: meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V7*/ meltfptr[6]), (melt_ptr_t)(/*_.CBIND__V54*/ meltfptr[53])); } ; - /*_.LET___V45*/ meltfptr[41] = /*_.SYOCC__V56*/ meltfptr[55];; + /*_.LET___V45*/ + meltfptr[41] = /*_.SYOCC__V56*/ meltfptr[55];; MELT_LOCATION("warmelt-normal.melt:8379:/ clear"); - /*clear*/ /*_.ARGTUP__V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.ARGTUP__V46*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V48*/ meltfptr[46] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V48*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.TUPLE___V49*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_DATA__V51*/ meltfptr[49] = 0 ; + /*clear*/ /*_.HOOK_DATA__V51*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.INST___V52*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.CBIND__V54*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.SYOCC__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.SYOCC__V56*/ + meltfptr[55] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V39*/ meltfptr[37] = /*_.LET___V45*/ meltfptr[41];; + /*_.MULTI___V39*/ + meltfptr[37] = /*_.LET___V45*/ meltfptr[41];; MELT_LOCATION("warmelt-normal.melt:8373:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V44*/ meltfptr[42] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V44*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V45*/ meltfptr[41] = 0 ; + /*clear*/ /*_.LET___V45*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.CURENVBINDS__V41*/ meltfptr[40] = 0 ; - /*_.LET___V25*/ meltfptr[23] = /*_.MULTI___V39*/ meltfptr[37];; + /*clear*/ /*_.CURENVBINDS__V41*/ + meltfptr[40] = 0 ; + /*_.LET___V25*/ + meltfptr[23] = /*_.MULTI___V39*/ meltfptr[37];; MELT_LOCATION("warmelt-normal.melt:8360:/ clear"); - /*clear*/ /*_.CSYMEXPO__V26*/ meltfptr[7] = 0 ; + /*clear*/ /*_.CSYMEXPO__V26*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.SYMDATA__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.SYMDATA__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.INIPROC__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.INIPROC__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPROC__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CURPROC__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.LET___V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.CSBUF__V33*/ meltfptr[30] = 0 ; + /*clear*/ /*_.CSBUF__V33*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V34*/ meltfptr[31] = 0 ; + /*clear*/ /*_.STRBUF2STRING__V34*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.SCURENVBOX__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.SCURENVBOX__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V39*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MULTI___V39*/ + meltfptr[37] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:8353:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V25*/ meltfptr[23];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V25*/ meltfptr[23];; { MELT_LOCATION("warmelt-normal.melt:8353:/ locexp"); @@ -35606,21 +39325,28 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; + /*clear*/ /*_.IFCPP___V10*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; + /*clear*/ /*_.IFCPP___V13*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ meltfptr[14] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V19*/ meltfptr[17] = 0 ; + /*clear*/ /*_.IFCPP___V19*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V22*/ meltfptr[20] = 0 ; + /*clear*/ /*_.IFCPP___V22*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_.LET___V25*/ + meltfptr[23] = 0 ; } ; |