diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-normatch+01.cc')
-rw-r--r-- | gcc/melt/generated/warmelt-normatch+01.cc | 12264 |
1 files changed, 8176 insertions, 4088 deletions
diff --git a/gcc/melt/generated/warmelt-normatch+01.cc b/gcc/melt/generated/warmelt-normatch+01.cc index a55d9e3ff2f..f0e087fa489 100644 --- a/gcc/melt/generated/warmelt-normatch+01.cc +++ b/gcc/melt/generated/warmelt-normatch+01.cc @@ -920,7 +920,8 @@ meltrout_8_WARMELTmiNORMATCH_SCANPAT_SRCPATCOMPOSITE(meltclosure_ptr_t meltclosp /* end of frame for routine meltrout_8_WARMELTmiNORMATCH_SCANPAT_SRCPATCOMPOSITE fromline 1756 */ - /* classy proc frame meltrout_8_WARMELTmiNORMATCH_SCANPAT_SRCPATCOMPOSITE */ MeltFrame_meltrout_8_WARMELTmiNORMATCH_SCANPAT_SRCPATCOMPOSITE + /* classy proc frame meltrout_8_WARMELTmiNORMATCH_SCANPAT_SRCPATCOMPOSITE */ + MeltFrame_meltrout_8_WARMELTmiNORMATCH_SCANPAT_SRCPATCOMPOSITE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_8_WARMELTmiNORMATCH_SCANPAT_SRCPATCOMPOSITE fromline 1785*/ #if ENABLE_CHECKING @@ -933,7 +934,8 @@ meltrout_8_WARMELTmiNORMATCH_SCANPAT_SRCPATCOMPOSITE(meltclosure_ptr_t meltclosp #define meltframe meltfram__ melt_trace_start("SCANPAT_SRCPATCOMPOSITE", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -943,26 +945,30 @@ meltrout_8_WARMELTmiNORMATCH_SCANPAT_SRCPATCOMPOSITE(meltclosure_ptr_t meltclosp /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:286:/ 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; - /*_.PSLOC__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.PSLOC__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.CTYP__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.CTYP__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.CTYP__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PCN__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PCN__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4])) != NULL); ; @@ -984,10 +990,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ meltfnum[0] = + /*_#IS_A__L1*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normatch.melt:287:/ 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);; @@ -1014,25 +1022,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 287; - /*_.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 ""), 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 ""), 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-normatch.melt:287:/ 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-normatch.melt:287:/ 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*/ @@ -1060,7 +1074,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)) @@ -1069,7 +1084,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:288:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1106,16 +1122,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ctyp="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CTYP__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V10*/ meltfptr[6] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V10*/ + meltfptr[6] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V9*/ meltfptr[7] = /*_.MELT_DEBUG_FUN__V10*/ meltfptr[6];; + /*_._IF___V9*/ + meltfptr[7] = /*_.MELT_DEBUG_FUN__V10*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:288:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V10*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V10*/ + meltfptr[6] = 0 ; } ; } @@ -1128,7 +1148,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:288:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -1137,9 +1158,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IF___V9*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1169,10 +1192,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[2] = + /*_#IS_A__L4*/ + meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:289:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[7] = (/*nil*/NULL);; @@ -1199,25 +1224,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 289; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 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__V13*/ + meltfptr[12] = 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___V12*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:289:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[6] = /*_._IFELSE___V12*/ meltfptr[7];; + /*_.IFCPP___V11*/ + meltfptr[6] = /*_._IFELSE___V12*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:289:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1235,10 +1266,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[0] = + /*_#IS_A__L5*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_COMPOSITE*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normatch.melt:290:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[7] = (/*nil*/NULL);; @@ -1265,25 +1298,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 290; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 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__V16*/ + meltfptr[15] = 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___V15*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:290:/ 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[7];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:290:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1299,7 +1338,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__V17*/ meltfptr[15] = slot; + /*_.SLOC__V17*/ + meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:292:/ quasiblock"); @@ -1310,7 +1350,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, "SPAC_OPERATOR"); - /*_.SOP__V19*/ meltfptr[18] = slot; + /*_.SOP__V19*/ + meltfptr[18] = slot; }; ; @@ -1333,7 +1374,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[2] = + /*_#MELT_NEED_DBG__L6*/ + meltfnum[2] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1342,7 +1384,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:293:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1375,16 +1418,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "scanpat_srcpatcomposite soper"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SOP__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 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__V21*/ + meltfptr[20] = 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___V20*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; + /*_._IF___V20*/ + meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:293:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ + meltfptr[20] = 0 ; } ; } @@ -1397,7 +1444,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:293:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -1406,9 +1454,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IF___V20*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1438,10 +1488,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L8*/ meltfnum[0] = + /*_#IS_A__L8*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SOP__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normatch.melt:294:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V23*/ meltfptr[19] = (/*nil*/NULL);; @@ -1468,25 +1520,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 294; - /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = 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__V24*/ + meltfptr[23] = 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___V23*/ meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; + /*_._IFELSE___V23*/ + meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:294:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ + meltfptr[23] = 0 ; } ; } ; - /*_.IFCPP___V22*/ meltfptr[20] = /*_._IFELSE___V23*/ meltfptr[19];; + /*_.IFCPP___V22*/ + meltfptr[20] = /*_._IFELSE___V23*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:294:/ clear"); - /*clear*/ /*_#IS_A__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1495,19 +1553,24 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V18*/ meltfptr[7] = /*_.SOP__V19*/ meltfptr[18];; + /*_.LET___V18*/ + meltfptr[7] = /*_.SOP__V19*/ meltfptr[18];; MELT_LOCATION("warmelt-normatch.melt:292:/ clear"); - /*clear*/ /*_.SOP__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SOP__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V22*/ meltfptr[20] = 0 ; - /*_.SOPER__V25*/ meltfptr[23] = /*_.LET___V18*/ meltfptr[7];; + /*clear*/ /*_.IFCPP___V22*/ + meltfptr[20] = 0 ; + /*_.SOPER__V25*/ + meltfptr[23] = /*_.LET___V18*/ meltfptr[7];; MELT_LOCATION("warmelt-normatch.melt:296:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 7, "SPAC_INARGS"); - /*_.SINS__V26*/ meltfptr[19] = slot; + /*_.SINS__V26*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:297:/ getslot"); @@ -1515,7 +1578,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, "SPAC_OUTARGS"); - /*_.SOUTS__V27*/ meltfptr[18] = slot; + /*_.SOUTS__V27*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:298:/ quasiblock"); @@ -1526,7 +1590,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V25*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 3, "AMATCH_MATCHBIND"); - /*_.MB__V29*/ meltfptr[28] = slot; + /*_.MB__V29*/ + meltfptr[28] = slot; }; ; @@ -1549,7 +1614,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[2] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[2] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1558,7 +1624,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:299:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1591,16 +1658,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "scanpat_srcpatcomposite matmb"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MB__V29*/ meltfptr[28]; - /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 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__V31*/ + meltfptr[30] = 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___V30*/ meltfptr[29] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; + /*_._IF___V30*/ + meltfptr[29] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:299:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ + meltfptr[30] = 0 ; } ; } @@ -1613,7 +1684,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:299:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -1622,9 +1694,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IF___V30*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1654,10 +1728,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L11*/ meltfnum[0] = + /*_#IS_A__L11*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MB__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normatch.melt:300:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L11*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V33*/ meltfptr[29] = (/*nil*/NULL);; @@ -1684,25 +1760,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 300; - /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = 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__V34*/ + meltfptr[33] = 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___V33*/ meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; + /*_._IFELSE___V33*/ + meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:300:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ + meltfptr[33] = 0 ; } ; } ; - /*_.IFCPP___V32*/ meltfptr[30] = /*_._IFELSE___V33*/ meltfptr[29];; + /*_.IFCPP___V32*/ + meltfptr[30] = /*_._IFELSE___V33*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:300:/ clear"); - /*clear*/ /*_#IS_A__L11*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L11*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V33*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IFELSE___V33*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1711,19 +1793,24 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V28*/ meltfptr[20] = /*_.MB__V29*/ meltfptr[28];; + /*_.LET___V28*/ + meltfptr[20] = /*_.MB__V29*/ meltfptr[28];; MELT_LOCATION("warmelt-normatch.melt:298:/ clear"); - /*clear*/ /*_.MB__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MB__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V32*/ meltfptr[30] = 0 ; - /*_.MATMB__V35*/ meltfptr[33] = /*_.LET___V28*/ meltfptr[20];; + /*clear*/ /*_.IFCPP___V32*/ + meltfptr[30] = 0 ; + /*_.MATMB__V35*/ + meltfptr[33] = /*_.LET___V28*/ meltfptr[20];; MELT_LOCATION("warmelt-normatch.melt:302:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V25*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 2, "AMATCH_IN"); - /*_.MATIN__V36*/ meltfptr[29] = slot; + /*_.MATIN__V36*/ + meltfptr[29] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:303:/ getslot"); @@ -1731,7 +1818,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V25*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 4, "AMATCH_OUT"); - /*_.MATOUT__V37*/ meltfptr[28] = slot; + /*_.MATOUT__V37*/ + meltfptr[28] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:304:/ getslot"); @@ -1739,7 +1827,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V25*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.OPNAM__V38*/ meltfptr[30] = slot; + /*_.OPNAM__V38*/ + meltfptr[30] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:305:/ getslot"); @@ -1747,7 +1836,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MATMB__V35*/ meltfptr[33]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.MATCTYP__V39*/ meltfptr[38] = slot; + /*_.MATCTYP__V39*/ + meltfptr[38] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:306:/ getslot"); @@ -1755,7 +1845,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 2, "PCTN_ENV"); - /*_.ENV__V40*/ meltfptr[39] = slot; + /*_.ENV__V40*/ + meltfptr[39] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:307:/ getslot"); @@ -1763,7 +1854,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 0, "PCTN_NORMCTXT"); - /*_.NCX__V41*/ meltfptr[40] = slot; + /*_.NCX__V41*/ + meltfptr[40] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:308:/ getslot"); @@ -1771,7 +1863,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 6, "PCTN_BINDLIST"); - /*_.BINDLIST__V42*/ meltfptr[41] = slot; + /*_.BINDLIST__V42*/ + meltfptr[41] = slot; }; ; @@ -1784,10 +1877,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L12*/ meltfnum[2] = + /*_#IS_A__L12*/ + meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.MATCTYP__V39*/ meltfptr[38]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:310:/ cond"); - /*cond*/ if (/*_#IS_A__L12*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#IS_A__L12*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V44*/ meltfptr[43] = (/*nil*/NULL);; @@ -1814,25 +1909,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 310; - /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44] = 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__V45*/ + meltfptr[44] = 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___V44*/ meltfptr[43] = /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44];; + /*_._IFELSE___V44*/ + meltfptr[43] = /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:310:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V45*/ + meltfptr[44] = 0 ; } ; } ; - /*_.IFCPP___V43*/ meltfptr[42] = /*_._IFELSE___V44*/ meltfptr[43];; + /*_.IFCPP___V43*/ + meltfptr[42] = /*_._IFELSE___V44*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:310:/ clear"); - /*clear*/ /*_#IS_A__L12*/ meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L12*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_._IFELSE___V44*/ + meltfptr[43] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1860,7 +1961,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L13*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1869,7 +1971,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:311:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L13*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1902,16 +2005,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "scanpat_srcpatcomposite matout"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MATOUT__V37*/ meltfptr[28]; - /*_.MELT_DEBUG_FUN__V47*/ meltfptr[43] = 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__V47*/ + meltfptr[43] = 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___V46*/ meltfptr[44] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[43];; + /*_._IF___V46*/ + meltfptr[44] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:311:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V47*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V47*/ + meltfptr[43] = 0 ; } ; } @@ -1924,7 +2031,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:311:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -1933,9 +2041,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V46*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IF___V46*/ + meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1958,10 +2068,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#exeq__L15*/ meltfnum[2] = + /*_#exeq__L15*/ + meltfnum[2] = ((/*_.CTYP__V4*/ meltfptr[3]) != (/*_.MATCTYP__V39*/ meltfptr[38]));; MELT_LOCATION("warmelt-normatch.melt:312:/ cond"); - /*cond*/ if (/*_#exeq__L15*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#exeq__L15*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1973,7 +2085,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MATCTYP__V39*/ meltfptr[38]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V49*/ meltfptr[44] = slot; + /*_.NAMED_NAME__V49*/ + meltfptr[44] = slot; }; ; @@ -1987,7 +2100,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYP__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V50*/ meltfptr[49] = slot; + /*_.NAMED_NAME__V50*/ + meltfptr[49] = slot; }; ; @@ -2016,7 +2130,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)) @@ -2025,7 +2140,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:317:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2066,16 +2182,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " mismatched recv="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V52*/ + meltfptr[51] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V51*/ meltfptr[50] = /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51];; + /*_._IF___V51*/ + meltfptr[50] = /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:317:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V52*/ + meltfptr[51] = 0 ; } ; } @@ -2088,7 +2208,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:317:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2097,9 +2218,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IF___V51*/ + meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2122,7 +2245,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:320:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normatch.melt:320:/ locexp"); @@ -2137,23 +2261,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normatch.melt:312:/ quasiblock"); - /*_.PROGN___V54*/ meltfptr[50] = /*_.RETURN___V53*/ meltfptr[51];; + /*_.PROGN___V54*/ + meltfptr[50] = /*_.RETURN___V53*/ meltfptr[51];; /*^compute*/ - /*_._IFELSE___V48*/ meltfptr[43] = /*_.PROGN___V54*/ meltfptr[50];; + /*_._IFELSE___V48*/ + meltfptr[43] = /*_.PROGN___V54*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:312:/ clear"); - /*clear*/ /*_.NAMED_NAME__V49*/ meltfptr[44] = 0 ; + /*clear*/ /*_.NAMED_NAME__V49*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.NAMED_NAME__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V53*/ meltfptr[51] = 0 ; + /*clear*/ /*_.RETURN___V53*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V54*/ meltfptr[50] = 0 ; + /*clear*/ /*_.PROGN___V54*/ + meltfptr[50] = 0 ; } ; } @@ -2184,7 +2315,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.BINDINS__V56*/ meltfptr[49]; /*^multiapply.appl*/ - /*_.NINS__V55*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.SINS__V26*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NINS__V55*/ + meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.SINS__V26*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -2210,7 +2342,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)) @@ -2219,7 +2352,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:324:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2252,16 +2386,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "scanpat_srcpatcomposite nins"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NINS__V55*/ meltfptr[44]; - /*_.MELT_DEBUG_FUN__V58*/ meltfptr[50] = 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__V58*/ + meltfptr[50] = 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___V57*/ meltfptr[51] = /*_.MELT_DEBUG_FUN__V58*/ meltfptr[50];; + /*_._IF___V57*/ + meltfptr[51] = /*_.MELT_DEBUG_FUN__V58*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:324:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V58*/ meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V58*/ + meltfptr[50] = 0 ; } ; } @@ -2274,7 +2412,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:324:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2283,9 +2422,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V57*/ meltfptr[51] = 0 ; + /*clear*/ /*_._IF___V57*/ + meltfptr[51] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2309,7 +2450,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:325:/ cond"); - /*cond*/ if (/*_.BINDINS__V56*/ meltfptr[49]) /*then*/ + /*cond*/ + if (/*_.BINDINS__V56*/ meltfptr[49]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2326,14 +2468,17 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.BINDINS__V56*/ meltfptr[49]; - /*_.LIST_APPEND2LIST__V60*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.BINDLIST__V42*/ meltfptr[41]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V60*/ + meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.BINDLIST__V42*/ meltfptr[41]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V59*/ meltfptr[50] = /*_.LIST_APPEND2LIST__V60*/ meltfptr[51];; + /*_._IF___V59*/ + meltfptr[50] = /*_.LIST_APPEND2LIST__V60*/ meltfptr[51];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:325:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V60*/ meltfptr[51] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V60*/ + meltfptr[51] = 0 ; } ; } @@ -2363,7 +2508,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L20*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2372,7 +2518,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:326:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L20*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2409,16 +2556,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " matout="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MATOUT__V37*/ meltfptr[28]; - /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V62*/ + meltfptr[61] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V61*/ meltfptr[51] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61];; + /*_._IF___V61*/ + meltfptr[51] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:326:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ + meltfptr[61] = 0 ; } ; } @@ -2431,7 +2582,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:326:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2440,9 +2592,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V61*/ meltfptr[51] = 0 ; + /*clear*/ /*_._IF___V61*/ + meltfptr[51] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2494,7 +2648,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L23*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L23*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2503,7 +2658,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:330:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L23*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2536,16 +2692,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "scanpat_srcpatcomposite before scan_pattern pout"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.POUT__V63*/ meltfptr[61]; - /*_.MELT_DEBUG_FUN__V65*/ meltfptr[64] = 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__V65*/ + meltfptr[64] = 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___V64*/ meltfptr[51] = /*_.MELT_DEBUG_FUN__V65*/ meltfptr[64];; + /*_._IF___V64*/ + meltfptr[51] = /*_.MELT_DEBUG_FUN__V65*/ meltfptr[64];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:330:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L24*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V65*/ meltfptr[64] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V65*/ + meltfptr[64] = 0 ; } ; } @@ -2558,7 +2718,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:330:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2567,9 +2728,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L23*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V64*/ meltfptr[51] = 0 ; + /*clear*/ /*_._IF___V64*/ + meltfptr[51] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2592,10 +2755,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:331:/ quasiblock"); - /*_.CUROBIND__V66*/ meltfptr[64] = + /*_.CUROBIND__V66*/ + meltfptr[64] = (melt_multiple_nth((melt_ptr_t)(/*_.MATOUT__V37*/ meltfptr[28]), (/*_#IX__L22*/ meltfnum[16])));; MELT_LOCATION("warmelt-normatch.melt:332:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROBIND__V66*/ meltfptr[64]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[6]))) ) /*then*/ @@ -2606,7 +2771,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROBIND__V66*/ meltfptr[64]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.CURCTYPE__V67*/ meltfptr[51] = slot; + /*_.CURCTYPE__V67*/ + meltfptr[51] = slot; }; ; } @@ -2636,7 +2802,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L25*/ meltfnum[23] = + /*_#MELT_NEED_DBG__L25*/ + meltfnum[23] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2645,7 +2812,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:334:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L25*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L25*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2682,16 +2850,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " curctype="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYPE__V67*/ meltfptr[51]; - /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68] = 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 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[2])), (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-normatch.melt:334:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L26*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L26*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V69*/ + meltfptr[68] = 0 ; } ; } @@ -2704,7 +2876,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:334:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2713,9 +2886,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L25*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L25*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V68*/ meltfptr[67] = 0 ; + /*clear*/ /*_._IF___V68*/ + meltfptr[67] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2745,10 +2920,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L27*/ meltfnum[0] = + /*_#IS_A__L27*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURCTYPE__V67*/ meltfptr[51]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:335:/ cond"); - /*cond*/ if (/*_#IS_A__L27*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L27*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V71*/ meltfptr[67] = (/*nil*/NULL);; @@ -2775,25 +2952,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 335; - /*_.MELT_ASSERT_FAILURE_FUN__V72*/ meltfptr[71] = 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__V72*/ + meltfptr[71] = 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___V71*/ meltfptr[67] = /*_.MELT_ASSERT_FAILURE_FUN__V72*/ meltfptr[71];; + /*_._IFELSE___V71*/ + meltfptr[67] = /*_.MELT_ASSERT_FAILURE_FUN__V72*/ meltfptr[71];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:335:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V72*/ + meltfptr[71] = 0 ; } ; } ; - /*_.IFCPP___V70*/ meltfptr[68] = /*_._IFELSE___V71*/ meltfptr[67];; + /*_.IFCPP___V70*/ + meltfptr[68] = /*_._IFELSE___V71*/ meltfptr[67];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:335:/ clear"); - /*clear*/ /*_#IS_A__L27*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L27*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V71*/ meltfptr[67] = 0 ; + /*clear*/ /*_._IFELSE___V71*/ + meltfptr[67] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2815,7 +2998,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYPE__V67*/ meltfptr[51]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.SCAN_PATTERN__V73*/ meltfptr[71] = meltgc_send((melt_ptr_t)(/*_.POUT__V63*/ meltfptr[61]), (melt_ptr_t)((/*!SCAN_PATTERN*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SCAN_PATTERN__V73*/ + meltfptr[71] = meltgc_send((melt_ptr_t)(/*_.POUT__V63*/ meltfptr[61]), (melt_ptr_t)((/*!SCAN_PATTERN*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -2838,7 +3022,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L28*/ meltfnum[23] = + /*_#MELT_NEED_DBG__L28*/ + meltfnum[23] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2847,7 +3032,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:337:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L28*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L28*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2880,16 +3066,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "scanpat_srcpatcomposite after scan_pattern pout"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.POUT__V63*/ meltfptr[61]; - /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74] = 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__V75*/ + meltfptr[74] = 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___V74*/ meltfptr[67] = /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74];; + /*_._IF___V74*/ + meltfptr[67] = /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:337:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L29*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L29*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V75*/ + meltfptr[74] = 0 ; } ; } @@ -2902,7 +3092,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:337:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2911,9 +3102,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L28*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L28*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V74*/ meltfptr[67] = 0 ; + /*clear*/ /*_._IF___V74*/ + meltfptr[67] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2935,22 +3128,28 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:331:/ clear"); - /*clear*/ /*_.CUROBIND__V66*/ meltfptr[64] = 0 ; + /*clear*/ /*_.CUROBIND__V66*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.CURCTYPE__V67*/ meltfptr[51] = 0 ; + /*clear*/ /*_.CURCTYPE__V67*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V70*/ meltfptr[68] = 0 ; + /*clear*/ /*_.IFCPP___V70*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.SCAN_PATTERN__V73*/ meltfptr[71] = 0 ; + /*clear*/ /*_.SCAN_PATTERN__V73*/ + meltfptr[71] = 0 ; if (/*_#IX__L22*/ meltfnum[16]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:327:/ clear"); - /*clear*/ /*_.POUT__V63*/ meltfptr[61] = 0 ; + /*clear*/ /*_.POUT__V63*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L22*/ meltfnum[16] = 0 ; + /*clear*/ /*_#IX__L22*/ + meltfnum[16] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -2973,7 +3172,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L30*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L30*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2982,7 +3182,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:339:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L30*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L30*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3015,16 +3216,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "scanpat_srcpatcomposite end recv"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V77*/ meltfptr[67] = 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__V77*/ + meltfptr[67] = 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___V76*/ meltfptr[74] = /*_.MELT_DEBUG_FUN__V77*/ meltfptr[67];; + /*_._IF___V76*/ + meltfptr[74] = /*_.MELT_DEBUG_FUN__V77*/ meltfptr[67];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:339:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L31*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L31*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V77*/ meltfptr[67] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V77*/ + meltfptr[67] = 0 ; } ; } @@ -3037,7 +3242,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:339:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3046,9 +3252,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L30*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L30*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V76*/ meltfptr[74] = 0 ; + /*clear*/ /*_._IF___V76*/ + meltfptr[74] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3073,56 +3281,78 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:321:/ clear"); - /*clear*/ /*_._IF___V59*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IF___V59*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDINS__V56*/ meltfptr[49] = 0 ; + /*clear*/ /*_.BINDINS__V56*/ + meltfptr[49] = 0 ; MELT_LOCATION("warmelt-normatch.melt:291:/ clear"); - /*clear*/ /*_.SLOC__V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.SLOC__V17*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V18*/ meltfptr[7] = 0 ; + /*clear*/ /*_.LET___V18*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.SOPER__V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_.SOPER__V25*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.SINS__V26*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SINS__V26*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.SOUTS__V27*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SOUTS__V27*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V28*/ meltfptr[20] = 0 ; + /*clear*/ /*_.LET___V28*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MATMB__V35*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MATMB__V35*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.MATIN__V36*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MATIN__V36*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MATOUT__V37*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MATOUT__V37*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.OPNAM__V38*/ meltfptr[30] = 0 ; + /*clear*/ /*_.OPNAM__V38*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MATCTYP__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MATCTYP__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.ENV__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.ENV__V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.NCX__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.NCX__V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDLIST__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.BINDLIST__V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.IFCPP___V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L15*/ meltfnum[2] = 0 ; + /*clear*/ /*_#exeq__L15*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V48*/ meltfptr[43] = 0 ; + /*clear*/ /*_._IFELSE___V48*/ + meltfptr[43] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:286:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; } ; @@ -3204,7 +3434,8 @@ meltrout_9_WARMELTmiNORMATCH_SCANPAT_SRCPATOR(meltclosure_ptr_t meltclosp_, melt /* end of frame for routine meltrout_9_WARMELTmiNORMATCH_SCANPAT_SRCPATOR fromline 1756 */ - /* classy proc frame meltrout_9_WARMELTmiNORMATCH_SCANPAT_SRCPATOR */ MeltFrame_meltrout_9_WARMELTmiNORMATCH_SCANPAT_SRCPATOR + /* classy proc frame meltrout_9_WARMELTmiNORMATCH_SCANPAT_SRCPATOR */ + MeltFrame_meltrout_9_WARMELTmiNORMATCH_SCANPAT_SRCPATOR meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_9_WARMELTmiNORMATCH_SCANPAT_SRCPATOR fromline 1785*/ #if ENABLE_CHECKING @@ -3217,7 +3448,8 @@ meltrout_9_WARMELTmiNORMATCH_SCANPAT_SRCPATOR(meltclosure_ptr_t meltclosp_, melt #define meltframe meltfram__ melt_trace_start("SCANPAT_SRCPATOR", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -3227,26 +3459,30 @@ meltrout_9_WARMELTmiNORMATCH_SCANPAT_SRCPATOR(meltclosure_ptr_t meltclosp_, melt /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:348:/ 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; - /*_.PSLOC__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.PSLOC__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.CTYP__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.CTYP__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.CTYP__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PCN__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PCN__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4])) != NULL); ; @@ -3278,7 +3514,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)) @@ -3287,7 +3524,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:349:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3320,16 +3558,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "scanpat_srcpator 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-normatch.melt:349:/ 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 ; } ; } @@ -3342,7 +3584,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:349:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3351,9 +3594,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*/ @@ -3383,10 +3628,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:350:/ 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);; @@ -3413,25 +3660,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 350; - /*_.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-normatch.melt:350:/ 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-normatch.melt:350:/ 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*/ @@ -3449,10 +3702,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_OR*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:351:/ 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);; @@ -3479,25 +3734,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 351; - /*_.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-normatch.melt:351:/ 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-normatch.melt:351:/ 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*/ @@ -3525,7 +3786,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3534,7 +3796,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:352:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3567,16 +3830,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "scanpat_srcpator pcn start"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.MELT_DEBUG_FUN__V15*/ 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__V15*/ + 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___V14*/ meltfptr[12] = /*_.MELT_DEBUG_FUN__V15*/ meltfptr[5];; + /*_._IF___V14*/ + meltfptr[12] = /*_.MELT_DEBUG_FUN__V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:352:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V15*/ + meltfptr[5] = 0 ; } ; } @@ -3589,7 +3856,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:352:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3598,9 +3866,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_._IF___V14*/ + meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3628,7 +3898,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__V16*/ meltfptr[5] = slot; + /*_.SLOC__V16*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:354:/ getslot"); @@ -3636,7 +3907,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, "ORPAT_DISJ"); - /*_.SDISJ__V17*/ meltfptr[12] = slot; + /*_.SDISJ__V17*/ + meltfptr[12] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:355:/ getslot"); @@ -3644,33 +3916,40 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 3, "PCTN_MAPATVAR"); - /*_.PVARMAP__V18*/ meltfptr[17] = slot; + /*_.PVARMAP__V18*/ + meltfptr[17] = slot; }; ; - /*_#CNTPVARMAP__L7*/ meltfnum[0] = + /*_#CNTPVARMAP__L7*/ + meltfnum[0] = (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.PVARMAP__V18*/ meltfptr[17])));; /*^compute*/ - /*_#stI__L8*/ meltfnum[1] = + /*_#stI__L8*/ + meltfnum[1] = ((/*_#CNTPVARMAP__L7*/ meltfnum[0]) * (2));; /*^compute*/ - /*_#plI__L9*/ meltfnum[8] = + /*_#plI__L9*/ + meltfnum[8] = ((4) + (/*_#stI__L8*/ meltfnum[1]));; /*^compute*/ - /*_.OWNVARMAP__V19*/ meltfptr[18] = + /*_.OWNVARMAP__V19*/ + meltfptr[18] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[4])), (/*_#plI__L9*/ meltfnum[8])));; MELT_LOCATION("warmelt-normatch.melt:358:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 10, "PCTN_VARHANDLERS"); - /*_.VARHDLERLIST__V20*/ meltfptr[19] = slot; + /*_.VARHDLERLIST__V20*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:360:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V22*/ meltfptr[21] = + /*newclosure*/ /*_.LAMBDA___V22*/ + meltfptr[21] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ meltfrout->tabval[8])), (2)); ; /*^putclosedv*/ @@ -3685,20 +3964,25 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ meltfptr[21]))); ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ meltfptr[21])->tabval[1] = (melt_ptr_t)(/*_.OWNVARMAP__V19*/ meltfptr[18]); ; - /*_.OWNVARHANDLER__V21*/ meltfptr[20] = /*_.LAMBDA___V22*/ meltfptr[21];; + /*_.OWNVARHANDLER__V21*/ + meltfptr[20] = /*_.LAMBDA___V22*/ meltfptr[21];; MELT_LOCATION("warmelt-normatch.melt:368:/ quasiblock"); - /*_#stI__L10*/ meltfnum[9] = + /*_#stI__L10*/ + meltfnum[9] = ((/*_#CNTPVARMAP__L7*/ meltfnum[0]) * (5));; /*^compute*/ - /*_#diI__L11*/ meltfnum[10] = + /*_#diI__L11*/ + meltfnum[10] = (melt_idiv((/*_#stI__L10*/ meltfnum[9]), (4)));; /*^compute*/ - /*_#plI__L12*/ meltfnum[11] = + /*_#plI__L12*/ + meltfnum[11] = ((3) + (/*_#diI__L11*/ meltfnum[10]));; /*^compute*/ - /*_.INIMAP__V24*/ meltfptr[23] = + /*_.INIMAP__V24*/ + meltfptr[23] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[4])), (/*_#plI__L12*/ meltfnum[11])));; /*citerblock FOREACH_IN_MAPOBJECT*/ { @@ -3712,15 +3996,18 @@ meltlab_endgetargs: meltcit1__EACHOBMAP_ix++) { /*_.CURSYM__V25*/ meltfptr[24] = NULL; - /*_.CURPATVAR__V26*/ meltfptr[25] = NULL; - /*_.CURSYM__V25*/ meltfptr[24] = (melt_ptr_t) (((meltmapobjects_ptr_t)/*_.PVARMAP__V18*/ meltfptr[17])->entab[meltcit1__EACHOBMAP_ix].e_at); + /*_.CURPATVAR__V26*/ + meltfptr[25] = NULL; + /*_.CURSYM__V25*/ + meltfptr[24] = (melt_ptr_t) (((meltmapobjects_ptr_t)/*_.PVARMAP__V18*/ meltfptr[17])->entab[meltcit1__EACHOBMAP_ix].e_at); if (/*_.CURSYM__V25*/ meltfptr[24] == HTAB_DELETED_ENTRY) { /*_.CURSYM__V25*/ meltfptr[24] = NULL; continue; }; if (!/*_.CURSYM__V25*/ meltfptr[24]) continue; - /*_.CURPATVAR__V26*/ meltfptr[25] = ((meltmapobjects_ptr_t)/*_.PVARMAP__V18*/ meltfptr[17])->entab[meltcit1__EACHOBMAP_ix].e_va; + /*_.CURPATVAR__V26*/ + meltfptr[25] = ((meltmapobjects_ptr_t)/*_.PVARMAP__V18*/ meltfptr[17])->entab[meltcit1__EACHOBMAP_ix].e_va; if (!/*_.CURPATVAR__V26*/ meltfptr[25]) continue; @@ -3734,30 +4021,40 @@ meltlab_endgetargs: } ; /* foreach_in_mapobject end meltcit1__EACHOBMAP */ - /*_.CURSYM__V25*/ meltfptr[24] = NULL; - /*_.CURPATVAR__V26*/ meltfptr[25] = NULL; + /*_.CURSYM__V25*/ + meltfptr[24] = NULL; + /*_.CURPATVAR__V26*/ + meltfptr[25] = NULL; } /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:372:/ clear"); - /*clear*/ /*_.CURSYM__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CURSYM__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPATVAR__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.CURPATVAR__V26*/ + meltfptr[25] = 0 ; } /*endciterblock FOREACH_IN_MAPOBJECT*/ ; - /*_.LET___V23*/ meltfptr[22] = /*_.INIMAP__V24*/ meltfptr[23];; + /*_.LET___V23*/ + meltfptr[22] = /*_.INIMAP__V24*/ meltfptr[23];; MELT_LOCATION("warmelt-normatch.melt:368:/ clear"); - /*clear*/ /*_#stI__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#stI__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#diI__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#diI__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#plI__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.INIMAP__V24*/ meltfptr[23] = 0 ; - /*_.INIPVARMAP__V27*/ meltfptr[23] = /*_.LET___V23*/ meltfptr[22];; + /*clear*/ /*_.INIMAP__V24*/ + meltfptr[23] = 0 ; + /*_.INIPVARMAP__V27*/ + meltfptr[23] = /*_.LET___V23*/ meltfptr[22];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:378:/ cppif.then"); @@ -3778,7 +4075,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L13*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3787,7 +4085,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:378:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L13*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3820,16 +4119,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "scanpat_srcpator sdisj"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SDISJ__V17*/ meltfptr[12]; - /*_.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[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; + /*_._IF___V28*/ + meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:378:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ + meltfptr[28] = 0 ; } ; } @@ -3842,7 +4145,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:378:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3851,9 +4155,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V28*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3883,10 +4189,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L15*/ meltfnum[11] = + /*_#IS_MULTIPLE__L15*/ + meltfnum[11] = (melt_magic_discr((melt_ptr_t)(/*_.SDISJ__V17*/ meltfptr[12])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-normatch.melt:379:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L15*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L15*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V31*/ meltfptr[27] = (/*nil*/NULL);; @@ -3913,25 +4221,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 379; - /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31] = 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__V32*/ + meltfptr[31] = 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___V31*/ meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; + /*_._IFELSE___V31*/ + meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:379:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ + meltfptr[31] = 0 ; } ; } ; - /*_.IFCPP___V30*/ meltfptr[28] = /*_._IFELSE___V31*/ meltfptr[27];; + /*_.IFCPP___V30*/ + meltfptr[28] = /*_._IFELSE___V31*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:379:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L15*/ meltfnum[11] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L15*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V31*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IFELSE___V31*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3977,7 +4291,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L17*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3986,7 +4301,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:384:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L17*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4019,16 +4335,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "scanpat_srcpator dis"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.DIS__V33*/ 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[27] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; + /*_._IF___V34*/ + meltfptr[27] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:384:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L18*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = 0 ; } ; } @@ -4041,7 +4361,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:384:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4050,9 +4371,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V34*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V34*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4086,7 +4409,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CTYP__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.SCAN_PATTERN__V36*/ meltfptr[34] = meltgc_send((melt_ptr_t)(/*_.DIS__V33*/ meltfptr[31]), (melt_ptr_t)((/*!SCAN_PATTERN*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SCAN_PATTERN__V36*/ + meltfptr[34] = meltgc_send((melt_ptr_t)(/*_.DIS__V33*/ meltfptr[31]), (melt_ptr_t)((/*!SCAN_PATTERN*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#IX__L16*/ meltfnum[10]<0) break; @@ -4095,23 +4419,29 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:381:/ clear"); - /*clear*/ /*_.DIS__V33*/ meltfptr[31] = 0 ; + /*clear*/ /*_.DIS__V33*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L16*/ meltfnum[10] = 0 ; + /*clear*/ /*_#IX__L16*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.SCAN_PATTERN__V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_.SCAN_PATTERN__V36*/ + meltfptr[34] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-normatch.melt:387:/ quasiblock"); - /*_#MAPOBJECT_COUNT__L19*/ meltfnum[11] = + /*_#MAPOBJECT_COUNT__L19*/ + meltfnum[11] = (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.PVARMAP__V18*/ meltfptr[17])));; /*^compute*/ - /*_#INCRPVARMAP__L20*/ meltfnum[9] = + /*_#INCRPVARMAP__L20*/ + meltfnum[9] = ((/*_#MAPOBJECT_COUNT__L19*/ meltfnum[11]) - (/*_#CNTPVARMAP__L7*/ meltfnum[0]));; MELT_LOCATION("warmelt-normatch.melt:390:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -4122,7 +4452,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 5, "PCTN_MAPOR"); - /*_.PMAPOR__V37*/ meltfptr[27] = slot; + /*_.PMAPOR__V37*/ + meltfptr[27] = slot; }; ; } @@ -4133,19 +4464,24 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#stI__L21*/ meltfnum[20] = + /*_#stI__L21*/ + meltfnum[20] = ((/*_#INCRPVARMAP__L20*/ meltfnum[9]) * (5));; /*^compute*/ - /*_#diI__L22*/ meltfnum[21] = + /*_#diI__L22*/ + meltfnum[21] = (melt_idiv((/*_#stI__L21*/ meltfnum[20]), (4)));; /*^compute*/ - /*_#plI__L23*/ meltfnum[22] = + /*_#plI__L23*/ + meltfnum[22] = ((3) + (/*_#diI__L22*/ meltfnum[21]));; /*^compute*/ - /*_.ORVARMAP__V38*/ meltfptr[37] = + /*_.ORVARMAP__V38*/ + meltfptr[37] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[4])), (/*_#plI__L23*/ meltfnum[22])));; /*^compute*/ - /*_.OLDVARHDLER__V39*/ meltfptr[38] = + /*_.OLDVARHDLER__V39*/ + meltfptr[38] = (meltgc_popfirst_list((melt_ptr_t)(/*_.VARHDLERLIST__V20*/ meltfptr[19])));; #if MELT_HAVE_DEBUG @@ -4157,10 +4493,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MAPOBJECT__L24*/ meltfnum[23] = + /*_#IS_MAPOBJECT__L24*/ + meltfnum[23] = /*is_mapobject:*/(melt_magic_discr((melt_ptr_t)(/*_.PMAPOR__V37*/ meltfptr[27])) == MELTOBMAG_MAPOBJECTS);; MELT_LOCATION("warmelt-normatch.melt:395:/ cond"); - /*cond*/ if (/*_#IS_MAPOBJECT__L24*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#IS_MAPOBJECT__L24*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V41*/ meltfptr[40] = (/*nil*/NULL);; @@ -4187,25 +4525,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 395; - /*_.MELT_ASSERT_FAILURE_FUN__V42*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V42*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V41*/ meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V42*/ meltfptr[41];; + /*_._IFELSE___V41*/ + meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V42*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:395:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V42*/ + meltfptr[41] = 0 ; } ; } ; - /*_.IFCPP___V40*/ meltfptr[39] = /*_._IFELSE___V41*/ meltfptr[40];; + /*_.IFCPP___V40*/ + meltfptr[39] = /*_._IFELSE___V41*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:395:/ clear"); - /*clear*/ /*_#IS_MAPOBJECT__L24*/ meltfnum[23] = 0 ; + /*clear*/ /*_#IS_MAPOBJECT__L24*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IFELSE___V41*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4223,10 +4567,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L25*/ meltfnum[23] = + /*_#eqeq__L25*/ + meltfnum[23] = ((/*_.OLDVARHDLER__V39*/ meltfptr[38]) == (/*_.OWNVARHANDLER__V21*/ meltfptr[20]));; MELT_LOCATION("warmelt-normatch.melt:396:/ cond"); - /*cond*/ if (/*_#eqeq__L25*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#eqeq__L25*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V44*/ meltfptr[40] = (/*nil*/NULL);; @@ -4253,25 +4599,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 396; - /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44] = 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__V45*/ + meltfptr[44] = 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___V44*/ meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44];; + /*_._IFELSE___V44*/ + meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:396:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V45*/ + meltfptr[44] = 0 ; } ; } ; - /*_.IFCPP___V43*/ meltfptr[41] = /*_._IFELSE___V44*/ meltfptr[40];; + /*_.IFCPP___V43*/ + meltfptr[41] = /*_._IFELSE___V44*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:396:/ clear"); - /*clear*/ /*_#eqeq__L25*/ meltfnum[23] = 0 ; + /*clear*/ /*_#eqeq__L25*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V44*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IFELSE___V44*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4291,15 +4643,18 @@ meltlab_endgetargs: meltcit3__EACHOBMAP_ix++) { /*_.CURSYM__V46*/ meltfptr[44] = NULL; - /*_.CURPATVAR__V47*/ meltfptr[40] = NULL; - /*_.CURSYM__V46*/ meltfptr[44] = (melt_ptr_t) (((meltmapobjects_ptr_t)/*_.PVARMAP__V18*/ meltfptr[17])->entab[meltcit3__EACHOBMAP_ix].e_at); + /*_.CURPATVAR__V47*/ + meltfptr[40] = NULL; + /*_.CURSYM__V46*/ + meltfptr[44] = (melt_ptr_t) (((meltmapobjects_ptr_t)/*_.PVARMAP__V18*/ meltfptr[17])->entab[meltcit3__EACHOBMAP_ix].e_at); if (/*_.CURSYM__V46*/ meltfptr[44] == HTAB_DELETED_ENTRY) { /*_.CURSYM__V46*/ meltfptr[44] = NULL; continue; }; if (!/*_.CURSYM__V46*/ meltfptr[44]) continue; - /*_.CURPATVAR__V47*/ meltfptr[40] = ((meltmapobjects_ptr_t)/*_.PVARMAP__V18*/ meltfptr[17])->entab[meltcit3__EACHOBMAP_ix].e_va; + /*_.CURPATVAR__V47*/ + meltfptr[40] = ((meltmapobjects_ptr_t)/*_.PVARMAP__V18*/ meltfptr[17])->entab[meltcit3__EACHOBMAP_ix].e_va; if (!/*_.CURPATVAR__V47*/ meltfptr[40]) continue; @@ -4314,10 +4669,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L26*/ meltfnum[23] = + /*_#IS_A__L26*/ + meltfnum[23] = melt_is_instance_of((melt_ptr_t)(/*_.CURSYM__V46*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-normatch.melt:401:/ cond"); - /*cond*/ if (/*_#IS_A__L26*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#IS_A__L26*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V49*/ meltfptr[48] = (/*nil*/NULL);; @@ -4344,25 +4701,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 401; - /*_.MELT_ASSERT_FAILURE_FUN__V50*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V50*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V49*/ meltfptr[48] = /*_.MELT_ASSERT_FAILURE_FUN__V50*/ meltfptr[49];; + /*_._IFELSE___V49*/ + meltfptr[48] = /*_.MELT_ASSERT_FAILURE_FUN__V50*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:401:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V50*/ + meltfptr[49] = 0 ; } ; } ; - /*_.IFCPP___V48*/ meltfptr[47] = /*_._IFELSE___V49*/ meltfptr[48];; + /*_.IFCPP___V48*/ + meltfptr[47] = /*_._IFELSE___V49*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:401:/ clear"); - /*clear*/ /*_#IS_A__L26*/ meltfnum[23] = 0 ; + /*clear*/ /*_#IS_A__L26*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_._IFELSE___V49*/ + meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4380,10 +4743,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L27*/ meltfnum[23] = + /*_#IS_A__L27*/ + meltfnum[23] = melt_is_instance_of((melt_ptr_t)(/*_.CURPATVAR__V47*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_VARIABLE*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-normatch.melt:402:/ cond"); - /*cond*/ if (/*_#IS_A__L27*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#IS_A__L27*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V52*/ meltfptr[48] = (/*nil*/NULL);; @@ -4410,25 +4775,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 402; - /*_.MELT_ASSERT_FAILURE_FUN__V53*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V53*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V52*/ meltfptr[48] = /*_.MELT_ASSERT_FAILURE_FUN__V53*/ meltfptr[52];; + /*_._IFELSE___V52*/ + meltfptr[48] = /*_.MELT_ASSERT_FAILURE_FUN__V53*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:402:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V53*/ + meltfptr[52] = 0 ; } ; } ; - /*_.IFCPP___V51*/ meltfptr[49] = /*_._IFELSE___V52*/ meltfptr[48];; + /*_.IFCPP___V51*/ + meltfptr[49] = /*_._IFELSE___V52*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:402:/ clear"); - /*clear*/ /*_#IS_A__L27*/ meltfnum[23] = 0 ; + /*clear*/ /*_#IS_A__L27*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V52*/ meltfptr[48] = 0 ; + /*clear*/ /*_._IFELSE___V52*/ + meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4447,7 +4818,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:405:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPATVAR__V47*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_VARIABLE*/ meltfrout->tabval[11]))) ) /*then*/ @@ -4458,7 +4830,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPATVAR__V47*/ meltfptr[40]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SPATVAR_SYMB"); - /*_.SPATVAR_SYMB__V55*/ meltfptr[48] = slot; + /*_.SPATVAR_SYMB__V55*/ + meltfptr[48] = slot; }; ; } @@ -4469,10 +4842,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#eqeq__L28*/ meltfnum[23] = + /*_#eqeq__L28*/ + meltfnum[23] = ((/*_.SPATVAR_SYMB__V55*/ meltfptr[48]) == (/*_.CURSYM__V46*/ meltfptr[44]));; MELT_LOCATION("warmelt-normatch.melt:404:/ cond"); - /*cond*/ if (/*_#eqeq__L28*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#eqeq__L28*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V56*/ meltfptr[55] = (/*nil*/NULL);; @@ -4499,27 +4874,34 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 404; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V56*/ meltfptr[55] = /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56];; + /*_._IFELSE___V56*/ + meltfptr[55] = /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:404:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V57*/ + meltfptr[56] = 0 ; } ; } ; - /*_.IFCPP___V54*/ meltfptr[52] = /*_._IFELSE___V56*/ meltfptr[55];; + /*_.IFCPP___V54*/ + meltfptr[52] = /*_._IFELSE___V56*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:404:/ clear"); - /*clear*/ /*_.SPATVAR_SYMB__V55*/ meltfptr[48] = 0 ; + /*clear*/ /*_.SPATVAR_SYMB__V55*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L28*/ meltfnum[23] = 0 ; + /*clear*/ /*_#eqeq__L28*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_._IFELSE___V56*/ + meltfptr[55] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4531,14 +4913,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_.MAPOBJECT_GET__V58*/ meltfptr[56] = + /*_.MAPOBJECT_GET__V58*/ + meltfptr[56] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.INIPVARMAP__V27*/ meltfptr[23]), (meltobject_ptr_t)(/*_.CURSYM__V46*/ meltfptr[44]));; /*^compute*/ - /*_#NULL__L29*/ meltfnum[23] = + /*_#NULL__L29*/ + meltfnum[23] = (/*null*/(/*_.MAPOBJECT_GET__V58*/ meltfptr[56]) == NULL);; MELT_LOCATION("warmelt-normatch.melt:406:/ cond"); - /*cond*/ if (/*_#NULL__L29*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#NULL__L29*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4559,27 +4944,36 @@ meltlab_endgetargs: } /*noelse*/ ; /* foreach_in_mapobject end meltcit3__EACHOBMAP */ - /*_.CURSYM__V46*/ meltfptr[44] = NULL; - /*_.CURPATVAR__V47*/ meltfptr[40] = NULL; + /*_.CURSYM__V46*/ + meltfptr[44] = NULL; + /*_.CURPATVAR__V47*/ + meltfptr[40] = NULL; } /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:398:/ clear"); - /*clear*/ /*_.CURSYM__V46*/ meltfptr[44] = 0 ; + /*clear*/ /*_.CURSYM__V46*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPATVAR__V47*/ meltfptr[40] = 0 ; + /*clear*/ /*_.CURPATVAR__V47*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.IFCPP___V48*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V51*/ meltfptr[49] = 0 ; + /*clear*/ /*_.IFCPP___V51*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V54*/ meltfptr[52] = 0 ; + /*clear*/ /*_.IFCPP___V54*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPOBJECT_GET__V58*/ meltfptr[56] = 0 ; + /*clear*/ /*_.MAPOBJECT_GET__V58*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L29*/ meltfnum[23] = 0 ; + /*clear*/ /*_#NULL__L29*/ + meltfnum[23] = 0 ; } /*endciterblock FOREACH_IN_MAPOBJECT*/ ; @@ -4602,7 +4996,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L30*/ meltfnum[29] = + /*_#MELT_NEED_DBG__L30*/ + meltfnum[29] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4611,7 +5006,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:409:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L30*/ meltfnum[29]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L30*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4644,16 +5040,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "scanpat_srcpator orvarmap"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ORVARMAP__V38*/ meltfptr[37]; - /*_.MELT_DEBUG_FUN__V60*/ meltfptr[55] = 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[55] = 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[48] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[55];; + /*_._IF___V59*/ + meltfptr[48] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:409:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L31*/ meltfnum[30] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L31*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ + meltfptr[55] = 0 ; } ; } @@ -4666,7 +5066,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:409:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4675,9 +5076,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L30*/ meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L30*/ + meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V59*/ meltfptr[48] = 0 ; + /*clear*/ /*_._IF___V59*/ + meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4707,25 +5110,35 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:387:/ clear"); - /*clear*/ /*_#MAPOBJECT_COUNT__L19*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MAPOBJECT_COUNT__L19*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_#INCRPVARMAP__L20*/ meltfnum[9] = 0 ; + /*clear*/ /*_#INCRPVARMAP__L20*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.PMAPOR__V37*/ meltfptr[27] = 0 ; + /*clear*/ /*_.PMAPOR__V37*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#stI__L21*/ meltfnum[20] = 0 ; + /*clear*/ /*_#stI__L21*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_#diI__L22*/ meltfnum[21] = 0 ; + /*clear*/ /*_#diI__L22*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L23*/ meltfnum[22] = 0 ; + /*clear*/ /*_#plI__L23*/ + meltfnum[22] = 0 ; /*^clear*/ - /*clear*/ /*_.ORVARMAP__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.ORVARMAP__V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.OLDVARHDLER__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.OLDVARHDLER__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.IFCPP___V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V43*/ meltfptr[41] = 0 ; + /*clear*/ /*_.IFCPP___V43*/ + meltfptr[41] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:412:/ cppif.then"); @@ -4746,7 +5159,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)) @@ -4755,7 +5169,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:412:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L32*/ meltfnum[30]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L32*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4792,16 +5207,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " recv="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V62*/ meltfptr[48] = 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__V62*/ + meltfptr[48] = 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___V61*/ meltfptr[55] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[48];; + /*_._IF___V61*/ + meltfptr[55] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:412:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L33*/ meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L33*/ + meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ meltfptr[48] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ + meltfptr[48] = 0 ; } ; } @@ -4814,7 +5233,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:412:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4823,9 +5243,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L32*/ meltfnum[30] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L32*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V61*/ meltfptr[55] = 0 ; + /*clear*/ /*_._IF___V61*/ + meltfptr[55] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4847,38 +5269,52 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:353:/ clear"); - /*clear*/ /*_.SLOC__V16*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V16*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SDISJ__V17*/ meltfptr[12] = 0 ; + /*clear*/ /*_.SDISJ__V17*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.PVARMAP__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.PVARMAP__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_#CNTPVARMAP__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#CNTPVARMAP__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#stI__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#stI__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#plI__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.OWNVARMAP__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.OWNVARMAP__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.VARHDLERLIST__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.VARHDLERLIST__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.OWNVARHANDLER__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.OWNVARHANDLER__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.LET___V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.INIPVARMAP__V27*/ meltfptr[23] = 0 ; + /*clear*/ /*_.INIPVARMAP__V27*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V30*/ meltfptr[28] = 0 ; + /*clear*/ /*_.IFCPP___V30*/ + meltfptr[28] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:348:/ 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 ; } ; @@ -4960,7 +5396,8 @@ meltrout_10_WARMELTmiNORMATCH_LAMBDA_cl1(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_10_WARMELTmiNORMATCH_LAMBDA_cl1 fromline 1756 */ - /* classy proc frame meltrout_10_WARMELTmiNORMATCH_LAMBDA_cl1 */ MeltFrame_meltrout_10_WARMELTmiNORMATCH_LAMBDA_cl1 + /* classy proc frame meltrout_10_WARMELTmiNORMATCH_LAMBDA_cl1 */ + MeltFrame_meltrout_10_WARMELTmiNORMATCH_LAMBDA_cl1 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_10_WARMELTmiNORMATCH_LAMBDA_cl1 fromline 1785*/ #if ENABLE_CHECKING @@ -4973,7 +5410,8 @@ meltrout_10_WARMELTmiNORMATCH_LAMBDA_cl1(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl1", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -4983,19 +5421,22 @@ meltrout_10_WARMELTmiNORMATCH_LAMBDA_cl1(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:360:/ getarg"); - /*_.MVAR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.MVAR__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MYPCN__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MYPCN__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MYPCN__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PVAR__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.PVAR__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PVAR__V4*/ meltfptr[3])) != NULL); ; @@ -5027,7 +5468,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)) @@ -5036,7 +5478,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:361:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5069,16 +5512,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "scanpat_srcpator.ownvarhandler mvar"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MVAR__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-normatch.melt:361:/ 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 ; } ; } @@ -5091,7 +5538,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:361:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5100,9 +5548,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*/ @@ -5132,10 +5582,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MVAR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_VARIABLE*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:362:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -5162,25 +5614,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 362; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:362:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; + /*_.IFCPP___V7*/ + meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:362:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5198,10 +5656,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L4*/ meltfnum[0] = + /*_#eqeq__L4*/ + meltfnum[0] = ((/*_.MYPCN__V3*/ meltfptr[2]) == ((/*~PCN*/ meltfclos->tabval[0])));; MELT_LOCATION("warmelt-normatch.melt:363:/ cond"); - /*cond*/ if (/*_#eqeq__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#eqeq__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[4] = (/*nil*/NULL);; @@ -5228,25 +5688,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 363; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V11*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; + /*_._IFELSE___V11*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:363:/ 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[4];; + /*_.IFCPP___V10*/ + meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:363:/ clear"); - /*clear*/ /*_#eqeq__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#eqeq__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V11*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V11*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5262,7 +5728,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MVAR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SPATVAR_SYMB"); - /*_.MSYMB__V13*/ meltfptr[11] = slot; + /*_.MSYMB__V13*/ + meltfptr[11] = slot; }; ; @@ -5275,16 +5742,19 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:364:/ clear"); - /*clear*/ /*_.MSYMB__V13*/ meltfptr[11] = 0 ; + /*clear*/ /*_.MSYMB__V13*/ + meltfptr[11] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:360:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; + /*clear*/ /*_.IFCPP___V10*/ + meltfptr[8] = 0 ; } ; @@ -5366,7 +5836,8 @@ meltrout_11_WARMELTmiNORMATCH_SCANPAT_SRCPATAND(meltclosure_ptr_t meltclosp_, me /* end of frame for routine meltrout_11_WARMELTmiNORMATCH_SCANPAT_SRCPATAND fromline 1756 */ - /* classy proc frame meltrout_11_WARMELTmiNORMATCH_SCANPAT_SRCPATAND */ MeltFrame_meltrout_11_WARMELTmiNORMATCH_SCANPAT_SRCPATAND + /* classy proc frame meltrout_11_WARMELTmiNORMATCH_SCANPAT_SRCPATAND */ + MeltFrame_meltrout_11_WARMELTmiNORMATCH_SCANPAT_SRCPATAND meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_11_WARMELTmiNORMATCH_SCANPAT_SRCPATAND fromline 1785*/ #if ENABLE_CHECKING @@ -5379,7 +5850,8 @@ meltrout_11_WARMELTmiNORMATCH_SCANPAT_SRCPATAND(meltclosure_ptr_t meltclosp_, me #define meltframe meltfram__ melt_trace_start("SCANPAT_SRCPATAND", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -5389,26 +5861,30 @@ meltrout_11_WARMELTmiNORMATCH_SCANPAT_SRCPATAND(meltclosure_ptr_t meltclosp_, me /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:422:/ 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; - /*_.PSLOC__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.PSLOC__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.CTYP__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.CTYP__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.CTYP__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PCN__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PCN__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4])) != NULL); ; @@ -5440,7 +5916,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)) @@ -5449,7 +5926,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:423:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5490,16 +5968,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n pcn="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.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_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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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-normatch.melt:423:/ 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 ; } ; } @@ -5512,7 +5994,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:423:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5521,9 +6004,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*/ @@ -5553,10 +6038,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:424:/ 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);; @@ -5583,25 +6070,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 424; - /*_.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-normatch.melt:424:/ 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-normatch.melt:424:/ 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*/ @@ -5619,10 +6112,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_AND*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:425:/ 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);; @@ -5649,25 +6144,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 425; - /*_.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-normatch.melt:425:/ 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-normatch.melt:425:/ 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*/ @@ -5683,7 +6184,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__V14*/ meltfptr[12] = slot; + /*_.SLOC__V14*/ + meltfptr[12] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:427:/ getslot"); @@ -5691,7 +6193,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, "ANDPAT_CONJ"); - /*_.SCONJ__V15*/ meltfptr[5] = slot; + /*_.SCONJ__V15*/ + meltfptr[5] = slot; }; ; @@ -5704,10 +6207,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L5*/ meltfnum[1] = + /*_#IS_MULTIPLE__L5*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SCONJ__V15*/ meltfptr[5])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-normatch.melt:429:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; @@ -5734,25 +6239,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 429; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V17*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; + /*_._IFELSE___V17*/ + meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:429:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ + meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V16*/ meltfptr[15] = /*_._IFELSE___V17*/ meltfptr[16];; + /*_.IFCPP___V16*/ + meltfptr[15] = /*_._IFELSE___V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:429:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ + meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5792,7 +6303,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)) @@ -5801,7 +6313,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:433:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5838,16 +6351,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n ix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#IX__L6*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 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_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V21*/ + meltfptr[20] = 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V20*/ meltfptr[16] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; + /*_._IF___V20*/ + meltfptr[16] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:433:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ + meltfptr[20] = 0 ; } ; } @@ -5860,7 +6377,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:433:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5869,9 +6387,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V20*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IF___V20*/ + meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5905,7 +6425,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CTYP__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.SCAN_PATTERN__V22*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.DIS__V19*/ meltfptr[17]), (melt_ptr_t)((/*!SCAN_PATTERN*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SCAN_PATTERN__V22*/ + meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.DIS__V19*/ meltfptr[17]), (melt_ptr_t)((/*!SCAN_PATTERN*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#IX__L6*/ meltfnum[0]<0) break; @@ -5914,11 +6435,14 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:430:/ clear"); - /*clear*/ /*_.DIS__V19*/ meltfptr[17] = 0 ; + /*clear*/ /*_.DIS__V19*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IX__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.SCAN_PATTERN__V22*/ meltfptr[20] = 0 ; + /*clear*/ /*_.SCAN_PATTERN__V22*/ + meltfptr[20] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -5941,7 +6465,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)) @@ -5950,7 +6475,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:436:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5983,16 +6509,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "scanpat_srcpatand end recv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.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[16] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; + /*_._IF___V23*/ + meltfptr[16] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:436:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[23] = 0 ; } ; } @@ -6005,7 +6535,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:436:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6014,9 +6545,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V23*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IF___V23*/ + meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6038,20 +6571,25 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:426:/ clear"); - /*clear*/ /*_.SLOC__V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.SLOC__V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.SCONJ__V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SCONJ__V15*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ + meltfptr[15] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:422:/ 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 ; } ; @@ -6133,7 +6671,8 @@ meltrout_12_WARMELTmiNORMATCH_REGISTER_NEW_NORMTESTER(meltclosure_ptr_t meltclos /* end of frame for routine meltrout_12_WARMELTmiNORMATCH_REGISTER_NEW_NORMTESTER fromline 1756 */ - /* classy proc frame meltrout_12_WARMELTmiNORMATCH_REGISTER_NEW_NORMTESTER */ MeltFrame_meltrout_12_WARMELTmiNORMATCH_REGISTER_NEW_NORMTESTER + /* classy proc frame meltrout_12_WARMELTmiNORMATCH_REGISTER_NEW_NORMTESTER */ + MeltFrame_meltrout_12_WARMELTmiNORMATCH_REGISTER_NEW_NORMTESTER meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_12_WARMELTmiNORMATCH_REGISTER_NEW_NORMTESTER fromline 1785*/ #if ENABLE_CHECKING @@ -6146,7 +6685,8 @@ meltrout_12_WARMELTmiNORMATCH_REGISTER_NEW_NORMTESTER(meltclosure_ptr_t meltclos #define meltframe meltfram__ melt_trace_start("REGISTER_NEW_NORMTESTER", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -6156,12 +6696,14 @@ meltrout_12_WARMELTmiNORMATCH_REGISTER_NEW_NORMTESTER(meltclosure_ptr_t meltclos /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:575:/ getarg"); - /*_.NTEST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NTEST__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PCN__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.PCN__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PCN__V3*/ meltfptr[2])) != NULL); ; @@ -6193,7 +6735,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)) @@ -6202,7 +6745,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:576:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6239,16 +6783,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " pcn="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__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-normatch.melt:576:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -6261,7 +6809,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:576:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6270,9 +6819,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6302,10 +6853,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NTEST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:577:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -6332,25 +6885,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 577; - /*_.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 ""), 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 ""), 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-normatch.melt:577:/ 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-normatch.melt:577:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6368,10 +6927,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCN__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:578:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -6398,25 +6959,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 578; - /*_.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 ""), 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 ""), 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-normatch.melt:578:/ 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-normatch.melt:578:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6432,7 +6999,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NTEST__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NTEST_MATCHED"); - /*_.NMATCHED__V13*/ meltfptr[3] = slot; + /*_.NMATCHED__V13*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:580:/ getslot"); @@ -6440,7 +7008,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 7, "PCTN_STUFFMAP"); - /*_.STUFFMAP__V14*/ meltfptr[13] = slot; + /*_.STUFFMAP__V14*/ + meltfptr[13] = slot; }; ; @@ -6453,10 +7022,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L5*/ meltfnum[1] = + /*_#IS_OBJECT__L5*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.NMATCHED__V13*/ meltfptr[3])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-normatch.melt:582:/ cond"); - /*cond*/ if (/*_#IS_OBJECT__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_OBJECT__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; @@ -6483,25 +7054,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 582; - /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V17*/ + meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V16*/ meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; + /*_._IFELSE___V16*/ + meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:582:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ + meltfptr[16] = 0 ; } ; } ; - /*_.IFCPP___V15*/ meltfptr[14] = /*_._IFELSE___V16*/ meltfptr[15];; + /*_.IFCPP___V15*/ + meltfptr[14] = /*_._IFELSE___V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:582:/ clear"); - /*clear*/ /*_#IS_OBJECT__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_OBJECT__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ + meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6519,10 +7096,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MAPOBJECT__L6*/ meltfnum[0] = + /*_#IS_MAPOBJECT__L6*/ + meltfnum[0] = /*is_mapobject:*/(melt_magic_discr((melt_ptr_t)(/*_.STUFFMAP__V14*/ meltfptr[13])) == MELTOBMAG_MAPOBJECTS);; MELT_LOCATION("warmelt-normatch.melt:583:/ cond"); - /*cond*/ if (/*_#IS_MAPOBJECT__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_MAPOBJECT__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[15] = (/*nil*/NULL);; @@ -6549,25 +7128,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 583; - /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 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__V20*/ + meltfptr[19] = 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___V19*/ meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; + /*_._IFELSE___V19*/ + meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:583:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ + meltfptr[19] = 0 ; } ; } ; - /*_.IFCPP___V18*/ meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[15];; + /*_.IFCPP___V18*/ + meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:583:/ clear"); - /*clear*/ /*_#IS_MAPOBJECT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MAPOBJECT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V19*/ meltfptr[15] = 0 ; + /*clear*/ /*_._IFELSE___V19*/ + meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6581,17 +7166,20 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:586:/ quasiblock"); - /*_.NTL__V23*/ meltfptr[22] = + /*_.NTL__V23*/ + meltfptr[22] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STUFFMAP__V14*/ meltfptr[13]), (meltobject_ptr_t)(/*_.NMATCHED__V13*/ meltfptr[3]));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_LIST__L7*/ meltfnum[1] = + /*_#IS_LIST__L7*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.NTL__V23*/ meltfptr[22])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normatch.melt:587:/ cond"); - /*cond*/ if (/*_#IS_LIST__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V24*/ meltfptr[23] = /*_.NTL__V23*/ meltfptr[22];; @@ -6607,7 +7195,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:589:/ quasiblock"); - /*_.NEWNTL__V26*/ meltfptr[25] = + /*_.NEWNTL__V26*/ + meltfptr[25] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; { @@ -6617,28 +7206,37 @@ meltlab_endgetargs: (melt_ptr_t)(/*_.NEWNTL__V26*/ meltfptr[25])); } ; - /*_.LET___V25*/ meltfptr[24] = /*_.NEWNTL__V26*/ meltfptr[25];; + /*_.LET___V25*/ + meltfptr[24] = /*_.NEWNTL__V26*/ meltfptr[25];; MELT_LOCATION("warmelt-normatch.melt:589:/ clear"); - /*clear*/ /*_.NEWNTL__V26*/ meltfptr[25] = 0 ; - /*_._IFELSE___V24*/ meltfptr[23] = /*_.LET___V25*/ meltfptr[24];; + /*clear*/ /*_.NEWNTL__V26*/ + meltfptr[25] = 0 ; + /*_._IFELSE___V24*/ + meltfptr[23] = /*_.LET___V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:587:/ clear"); - /*clear*/ /*_.LET___V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.LET___V25*/ + meltfptr[24] = 0 ; } ; } ; - /*_.LET___V22*/ meltfptr[15] = /*_._IFELSE___V24*/ meltfptr[23];; + /*_.LET___V22*/ + meltfptr[15] = /*_._IFELSE___V24*/ meltfptr[23];; MELT_LOCATION("warmelt-normatch.melt:586:/ clear"); - /*clear*/ /*_.NTL__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.NTL__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V24*/ meltfptr[23] = 0 ; - /*_.NTLIST__V27*/ meltfptr[25] = /*_.LET___V22*/ meltfptr[15];; + /*clear*/ /*_._IFELSE___V24*/ + meltfptr[23] = 0 ; + /*_.NTLIST__V27*/ + meltfptr[25] = /*_.LET___V22*/ meltfptr[15];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:594:/ cppif.then"); @@ -6649,10 +7247,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L8*/ meltfnum[0] = + /*_#IS_LIST__L8*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.NTLIST__V27*/ meltfptr[25])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normatch.melt:594:/ cond"); - /*cond*/ if (/*_#IS_LIST__L8*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V29*/ meltfptr[22] = (/*nil*/NULL);; @@ -6679,25 +7279,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 594; - /*_.MELT_ASSERT_FAILURE_FUN__V30*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V30*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V29*/ meltfptr[22] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[23];; + /*_._IFELSE___V29*/ + meltfptr[22] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:594:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/ + meltfptr[23] = 0 ; } ; } ; - /*_.IFCPP___V28*/ meltfptr[24] = /*_._IFELSE___V29*/ meltfptr[22];; + /*_.IFCPP___V28*/ + meltfptr[24] = /*_._IFELSE___V29*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:594:/ clear"); - /*clear*/ /*_#IS_LIST__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_LIST__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V29*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IFELSE___V29*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6731,7 +7337,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6740,7 +7347,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:596:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6773,16 +7381,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "register_new_normtester updated stuffmap"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.STUFFMAP__V14*/ meltfptr[13]; - /*_.MELT_DEBUG_FUN__V32*/ 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__V32*/ + 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___V31*/ meltfptr[23] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[22];; + /*_._IF___V31*/ + meltfptr[23] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:596:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ + meltfptr[22] = 0 ; } ; } @@ -6795,7 +7407,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:596:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6804,9 +7417,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V31*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V31*/ + meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6829,7 +7444,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:597:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normatch.melt:597:/ locexp"); @@ -6844,36 +7460,49 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V21*/ meltfptr[19] = /*_.RETURN___V33*/ meltfptr[22];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V21*/ + meltfptr[19] = /*_.RETURN___V33*/ meltfptr[22];; MELT_LOCATION("warmelt-normatch.melt:584:/ clear"); - /*clear*/ /*_.LET___V22*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V22*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.NTLIST__V27*/ meltfptr[25] = 0 ; + /*clear*/ /*_.NTLIST__V27*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V28*/ meltfptr[24] = 0 ; + /*clear*/ /*_.IFCPP___V28*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V33*/ meltfptr[22] = 0 ; - /*_.LET___V12*/ meltfptr[10] = /*_.LET___V21*/ meltfptr[19];; + /*clear*/ /*_.RETURN___V33*/ + meltfptr[22] = 0 ; + /*_.LET___V12*/ + meltfptr[10] = /*_.LET___V21*/ meltfptr[19];; MELT_LOCATION("warmelt-normatch.melt:579:/ clear"); - /*clear*/ /*_.NMATCHED__V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.NMATCHED__V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.STUFFMAP__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.STUFFMAP__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V18*/ meltfptr[16] = 0 ; + /*clear*/ /*_.IFCPP___V18*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V21*/ meltfptr[19] = 0 ; + /*clear*/ /*_.LET___V21*/ + meltfptr[19] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:575:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-normatch.melt:575:/ locexp"); @@ -6888,15 +7517,19 @@ 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 ; } ; @@ -6978,7 +7611,8 @@ meltrout_13_WARMELTmiNORMATCH_PUT_TESTER_THEN(meltclosure_ptr_t meltclosp_, melt /* end of frame for routine meltrout_13_WARMELTmiNORMATCH_PUT_TESTER_THEN fromline 1756 */ - /* classy proc frame meltrout_13_WARMELTmiNORMATCH_PUT_TESTER_THEN */ MeltFrame_meltrout_13_WARMELTmiNORMATCH_PUT_TESTER_THEN + /* classy proc frame meltrout_13_WARMELTmiNORMATCH_PUT_TESTER_THEN */ + MeltFrame_meltrout_13_WARMELTmiNORMATCH_PUT_TESTER_THEN meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_13_WARMELTmiNORMATCH_PUT_TESTER_THEN fromline 1785*/ #if ENABLE_CHECKING @@ -6991,7 +7625,8 @@ meltrout_13_WARMELTmiNORMATCH_PUT_TESTER_THEN(meltclosure_ptr_t meltclosp_, melt #define meltframe meltfram__ melt_trace_start("PUT_TESTER_THEN", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -7001,12 +7636,14 @@ meltrout_13_WARMELTmiNORMATCH_PUT_TESTER_THEN(meltclosure_ptr_t meltclosp_, melt /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:605:/ getarg"); - /*_.CURTESTER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CURTESTER__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.THENTESTER__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.THENTESTER__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.THENTESTER__V3*/ meltfptr[2])) != NULL); ; @@ -7038,7 +7675,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)) @@ -7047,7 +7685,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:606:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7084,16 +7723,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " thentester="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.THENTESTER__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-normatch.melt:606:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -7106,7 +7749,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:606:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -7115,9 +7759,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7147,10 +7793,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CURTESTER__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:607:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -7177,25 +7825,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 607; - /*_.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 ""), 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 ""), 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-normatch.melt:607:/ 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-normatch.melt:607:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7213,10 +7867,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.THENTESTER__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:608:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -7243,25 +7899,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 608; - /*_.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 ""), 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 ""), 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-normatch.melt:608:/ 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-normatch.melt:608:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7284,13 +7946,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURTESTER__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NTEST_THEN"); - /*_.NTEST_THEN__V13*/ meltfptr[3] = slot; + /*_.NTEST_THEN__V13*/ + meltfptr[3] = slot; }; ; - /*_#NULL__L5*/ meltfnum[1] = + /*_#NULL__L5*/ + meltfnum[1] = (/*null*/(/*_.NTEST_THEN__V13*/ meltfptr[3]) == NULL);; MELT_LOCATION("warmelt-normatch.melt:609:/ cond"); - /*cond*/ if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; @@ -7317,27 +7982,34 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 609; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V14*/ meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; + /*_._IFELSE___V14*/ + meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:609:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ + meltfptr[14] = 0 ; } ; } ; - /*_.IFCPP___V12*/ meltfptr[10] = /*_._IFELSE___V14*/ meltfptr[13];; + /*_.IFCPP___V12*/ + meltfptr[10] = /*_._IFELSE___V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:609:/ clear"); - /*clear*/ /*_.NTEST_THEN__V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.NTEST_THEN__V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_._IFELSE___V14*/ + meltfptr[13] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7353,7 +8025,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.THENTESTER__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 6, "NTEST_COMEFROM"); - /*_.THENCOME__V16*/ meltfptr[14] = slot; + /*_.THENCOME__V16*/ + meltfptr[14] = slot; }; ; @@ -7366,10 +8039,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L6*/ meltfnum[0] = + /*_#IS_LIST__L6*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.THENCOME__V16*/ meltfptr[14])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normatch.melt:612:/ cond"); - /*cond*/ if (/*_#IS_LIST__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[13] = (/*nil*/NULL);; @@ -7396,25 +8071,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 612; - /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V19*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V18*/ meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; + /*_._IFELSE___V18*/ + meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:612:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ + meltfptr[18] = 0 ; } ; } ; - /*_.IFCPP___V17*/ meltfptr[3] = /*_._IFELSE___V18*/ meltfptr[13];; + /*_.IFCPP___V17*/ + meltfptr[3] = /*_._IFELSE___V18*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:612:/ clear"); - /*clear*/ /*_#IS_LIST__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_LIST__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V18*/ meltfptr[13] = 0 ; + /*clear*/ /*_._IFELSE___V18*/ + meltfptr[13] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7430,9 +8111,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:611:/ clear"); - /*clear*/ /*_.THENCOME__V16*/ meltfptr[14] = 0 ; + /*clear*/ /*_.THENCOME__V16*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ meltfptr[3] = 0 ; + /*clear*/ /*_.IFCPP___V17*/ + meltfptr[3] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:614:/ cppif.then"); @@ -7443,10 +8126,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L7*/ meltfnum[1] = + /*_#IS_NOT_A__L7*/ + meltfnum[1] = !melt_is_instance_of((melt_ptr_t)(/*_.CURTESTER__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_SUCCESS*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:614:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[13] = (/*nil*/NULL);; @@ -7473,25 +8158,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 614; - /*_.MELT_ASSERT_FAILURE_FUN__V22*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V21*/ meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[14];; + /*_._IFELSE___V21*/ + meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:614:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[14] = 0 ; } ; } ; - /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[13];; + /*_.IFCPP___V20*/ + meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:614:/ clear"); - /*clear*/ /*_#IS_NOT_A__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_NOT_A__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ meltfptr[13] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ + meltfptr[13] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7521,10 +8212,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L8*/ meltfnum[0] = + /*_#IS_A__L8*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURTESTER__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_DISJUNCTION*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normatch.melt:618:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7539,7 +8232,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURTESTER__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NTDISJUNCTS"); - /*_.CURDISJTUPLE__V23*/ meltfptr[3] = slot; + /*_.CURDISJTUPLE__V23*/ + meltfptr[3] = slot; }; ; @@ -7562,7 +8256,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7571,7 +8266,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:620:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7604,16 +8300,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "put_tester_then curdisjtuple"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURDISJTUPLE__V23*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V25*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V25*/ + meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V24*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[13];; + /*_._IF___V24*/ + meltfptr[14] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:620:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ + meltfptr[13] = 0 ; } ; } @@ -7626,7 +8326,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:620:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -7635,9 +8336,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V24*/ meltfptr[14] = 0 ; + /*clear*/ /*_._IF___V24*/ + meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7689,7 +8392,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7698,7 +8402,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:624:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7731,16 +8436,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "put_tester_then curdisj="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURDISJ__V26*/ meltfptr[13]; - /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = 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__V28*/ + meltfptr[27] = 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___V27*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; + /*_._IF___V27*/ + meltfptr[14] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:624:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ + meltfptr[27] = 0 ; } ; } @@ -7753,7 +8462,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:624:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -7762,9 +8472,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V27*/ meltfptr[14] = 0 ; + /*clear*/ /*_._IF___V27*/ + meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7798,7 +8510,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5])), (1), "CLASS_REFERENCE"); - /*_.INST__V30*/ meltfptr[14] = + /*_.INST__V30*/ + meltfptr[14] = newobj; }; ; @@ -7811,7 +8524,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V30*/ meltfptr[14], "newly made instance"); ; - /*_.CURCONT__V29*/ meltfptr[27] = /*_.INST__V30*/ meltfptr[14];; + /*_.CURCONT__V29*/ + meltfptr[27] = /*_.INST__V30*/ meltfptr[14];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:626:/ cppif.then"); @@ -7832,7 +8546,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)) @@ -7841,7 +8556,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:626:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7874,16 +8590,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "put_tester_then curcont start="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCONT__V29*/ meltfptr[27]; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V31*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; + /*_._IF___V31*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:626:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ + meltfptr[31] = 0 ; } ; } @@ -7896,7 +8616,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:626:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -7905,9 +8626,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V31*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7937,7 +8660,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURCONT__V29*/ meltfptr[27]; - /*_.SET_NEW_TESTER_LAST_THEN__V33*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.THENTESTER__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SET_NEW_TESTER_LAST_THEN__V33*/ + meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.THENTESTER__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -7960,7 +8684,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L16*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7969,7 +8694,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:628:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8002,16 +8728,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "put_tester_then curcont done"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCONT__V29*/ meltfptr[27]; - /*_.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[30] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; + /*_._IF___V34*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:628:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = 0 ; } ; } @@ -8024,7 +8754,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:628:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8033,9 +8764,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V34*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V34*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8057,23 +8790,28 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:625:/ clear"); - /*clear*/ /*_.CURCONT__V29*/ meltfptr[27] = 0 ; + /*clear*/ /*_.CURCONT__V29*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.SET_NEW_TESTER_LAST_THEN__V33*/ meltfptr[31] = 0 ; + /*clear*/ /*_.SET_NEW_TESTER_LAST_THEN__V33*/ + meltfptr[31] = 0 ; if (/*_#DISJIX__L11*/ meltfnum[9]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:621:/ clear"); - /*clear*/ /*_.CURDISJ__V26*/ meltfptr[13] = 0 ; + /*clear*/ /*_.CURDISJ__V26*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_#DISJIX__L11*/ meltfnum[9] = 0 ; + /*clear*/ /*_#DISJIX__L11*/ + meltfnum[9] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-normatch.melt:619:/ clear"); - /*clear*/ /*_.CURDISJTUPLE__V23*/ meltfptr[3] = 0 ; + /*clear*/ /*_.CURDISJTUPLE__V23*/ + meltfptr[3] = 0 ; /*epilog*/ } ; @@ -8099,7 +8837,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)) @@ -8108,7 +8847,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:631:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8141,16 +8881,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "put_tester_then curtester done"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURTESTER__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V37*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V36*/ meltfptr[34] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[30];; + /*_._IF___V36*/ + meltfptr[34] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:631:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[30] = 0 ; } ; } @@ -8163,7 +8907,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:631:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8172,9 +8917,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IF___V36*/ + meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8200,15 +8947,20 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:605:/ 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*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.IFCPP___V12*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V20*/ meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L8*/ + meltfnum[0] = 0 ; } ; @@ -8290,7 +9042,8 @@ meltrout_14_WARMELTmiNORMATCH_SET_NEW_TESTER_LAST_THEN(meltclosure_ptr_t meltclo /* end of frame for routine meltrout_14_WARMELTmiNORMATCH_SET_NEW_TESTER_LAST_THEN fromline 1756 */ - /* classy proc frame meltrout_14_WARMELTmiNORMATCH_SET_NEW_TESTER_LAST_THEN */ MeltFrame_meltrout_14_WARMELTmiNORMATCH_SET_NEW_TESTER_LAST_THEN + /* classy proc frame meltrout_14_WARMELTmiNORMATCH_SET_NEW_TESTER_LAST_THEN */ + MeltFrame_meltrout_14_WARMELTmiNORMATCH_SET_NEW_TESTER_LAST_THEN meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_14_WARMELTmiNORMATCH_SET_NEW_TESTER_LAST_THEN fromline 1785*/ #if ENABLE_CHECKING @@ -8303,7 +9056,8 @@ meltrout_14_WARMELTmiNORMATCH_SET_NEW_TESTER_LAST_THEN(meltclosure_ptr_t meltclo #define meltframe meltfram__ melt_trace_start("SET_NEW_TESTER_LAST_THEN", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -8313,12 +9067,14 @@ meltrout_14_WARMELTmiNORMATCH_SET_NEW_TESTER_LAST_THEN(meltclosure_ptr_t meltclo /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:635:/ getarg"); - /*_.NEWTESTER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NEWTESTER__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.TESTERCONT__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.TESTERCONT__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.TESTERCONT__V3*/ meltfptr[2])) != NULL); ; @@ -8350,7 +9106,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)) @@ -8359,7 +9116,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:636:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8396,16 +9154,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " testercont="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.TESTERCONT__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-normatch.melt:636:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -8418,7 +9180,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:636:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8427,9 +9190,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8470,10 +9235,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NEWTESTER__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:638:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -8500,25 +9267,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 638; - /*_.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 ""), 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 ""), 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-normatch.melt:638:/ 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-normatch.melt:638:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8536,10 +9309,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.TESTERCONT__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:639:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -8566,25 +9341,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 639; - /*_.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 ""), 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 ""), 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-normatch.melt:639:/ 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-normatch.melt:639:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8596,7 +9377,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTERCONT__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[3]))) ) /*then*/ @@ -8607,7 +9389,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TESTERCONT__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.CURTESTER__V12*/ meltfptr[10] = slot; + /*_.CURTESTER__V12*/ + meltfptr[10] = slot; }; ; } @@ -8649,7 +9432,8 @@ meltlabloop_LASTESTERLOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8658,7 +9442,8 @@ meltlabloop_LASTESTERLOOP_1:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:643:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8691,16 +9476,20 @@ meltlabloop_LASTESTERLOOP_1:;/*^loopbody*/ argtab[3].meltbp_cstring = "set_new_tester_last_then loop curtester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURTESTER__V12*/ meltfptr[10]; - /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V15*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; + /*_._IF___V15*/ + meltfptr[14] = /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:643:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V16*/ + meltfptr[15] = 0 ; } ; } @@ -8713,7 +9502,8 @@ meltlabloop_LASTESTERLOOP_1:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:643:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8722,9 +9512,11 @@ meltlabloop_LASTESTERLOOP_1:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_._IF___V15*/ + meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8748,7 +9540,8 @@ meltlabloop_LASTESTERLOOP_1:;/*^loopbody*/ /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURTESTER__V12*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[1]))) ) /*then*/ @@ -8759,7 +9552,8 @@ meltlabloop_LASTESTERLOOP_1:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURTESTER__V12*/ meltfptr[10]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NTEST_THEN"); - /*_.NEXTESTER__V18*/ meltfptr[14] = slot; + /*_.NEXTESTER__V18*/ + meltfptr[14] = slot; }; ; } @@ -8773,10 +9567,12 @@ meltlabloop_LASTESTERLOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L7*/ meltfnum[0] = + /*_#IS_A__L7*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NEXTESTER__V18*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:646:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8784,12 +9580,15 @@ meltlabloop_LASTESTERLOOP_1:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:647:/ compute"); - /*_.CURTESTER__V12*/ meltfptr[10] = /*_.SETQ___V20*/ meltfptr[19] = /*_.NEXTESTER__V18*/ meltfptr[14];; - /*_._IFELSE___V19*/ meltfptr[18] = /*_.SETQ___V20*/ meltfptr[19];; + /*_.CURTESTER__V12*/ + meltfptr[10] = /*_.SETQ___V20*/ meltfptr[19] = /*_.NEXTESTER__V18*/ meltfptr[14];; + /*_._IFELSE___V19*/ + meltfptr[18] = /*_.SETQ___V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:646:/ clear"); - /*clear*/ /*_.SETQ___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SETQ___V20*/ + meltfptr[19] = 0 ; } ; } @@ -8804,7 +9603,8 @@ meltlabloop_LASTESTERLOOP_1:;/*^loopbody*/ /*^compute*/ - /*_.LASTESTERLOOP__V14*/ meltfptr[13] = /*_._IFELSE___V19*/ meltfptr[18] = /*reallynil*/ NULL ;; + /*_.LASTESTERLOOP__V14*/ + meltfptr[13] = /*_._IFELSE___V19*/ meltfptr[18] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -8817,28 +9617,34 @@ meltlabloop_LASTESTERLOOP_1:;/*^loopbody*/ ; } ; - /*_.LET___V17*/ meltfptr[15] = /*_._IFELSE___V19*/ meltfptr[18];; + /*_.LET___V17*/ + meltfptr[15] = /*_._IFELSE___V19*/ meltfptr[18];; MELT_LOCATION("warmelt-normatch.melt:645:/ clear"); - /*clear*/ /*_.NEXTESTER__V18*/ meltfptr[14] = 0 ; + /*clear*/ /*_.NEXTESTER__V18*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_._IFELSE___V19*/ + meltfptr[18] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:641:/ clear"); - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; ; goto meltlabloop_LASTESTERLOOP_1; meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ /*loopepilog*/ - /*_.FOREVER___V13*/ meltfptr[3] = /*_.LASTESTERLOOP__V14*/ meltfptr[13];; + /*_.FOREVER___V13*/ + meltfptr[3] = /*_.LASTESTERLOOP__V14*/ meltfptr[13];; } ; @@ -8861,7 +9667,8 @@ meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ 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)) @@ -8870,7 +9677,8 @@ meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:649:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8903,16 +9711,20 @@ meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ argtab[3].meltbp_cstring = "set_new_tester_last_then final curtester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURTESTER__V12*/ meltfptr[10]; - /*_.MELT_DEBUG_FUN__V22*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V21*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[14];; + /*_._IF___V21*/ + meltfptr[19] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:649:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[14] = 0 ; } ; } @@ -8925,7 +9737,8 @@ meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:649:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8934,9 +9747,11 @@ meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V21*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IF___V21*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8967,7 +9782,8 @@ meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if (/*_.CURTESTER__V12*/ meltfptr[10]) /*then*/ + /*cond*/ + if (/*_.CURTESTER__V12*/ meltfptr[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V24*/ meltfptr[15] = (/*nil*/NULL);; @@ -8994,23 +9810,28 @@ meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 650; - /*_.MELT_ASSERT_FAILURE_FUN__V25*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V25*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V24*/ meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[14];; + /*_._IFELSE___V24*/ + meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:650:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ + meltfptr[14] = 0 ; } ; } ; - /*_.IFCPP___V23*/ meltfptr[18] = /*_._IFELSE___V24*/ meltfptr[15];; + /*_.IFCPP___V23*/ + meltfptr[18] = /*_._IFELSE___V24*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:650:/ clear"); - /*clear*/ /*_._IFELSE___V24*/ meltfptr[15] = 0 ; + /*clear*/ /*_._IFELSE___V24*/ + meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9022,7 +9843,8 @@ meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:651:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTERCONT__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[3]))) ) /*then*/ @@ -9059,7 +9881,8 @@ meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTESTER__V2*/ meltfptr[1]; - /*_.PUT_TESTER_THEN__V26*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!PUT_TESTER_THEN*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CURTESTER__V12*/ meltfptr[10]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_TESTER_THEN__V26*/ + meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!PUT_TESTER_THEN*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CURTESTER__V12*/ meltfptr[10]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -9082,7 +9905,8 @@ meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9091,7 +9915,8 @@ meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:653:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9124,16 +9949,20 @@ meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ argtab[3].meltbp_cstring = "set_new_tester_last_then end testercont"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TESTERCONT__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V28*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V28*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V27*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[15];; + /*_._IF___V27*/ + meltfptr[14] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:653:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ + meltfptr[15] = 0 ; } ; } @@ -9146,7 +9975,8 @@ meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:653:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9155,9 +9985,11 @@ meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V27*/ meltfptr[14] = 0 ; + /*clear*/ /*_._IF___V27*/ + meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9179,22 +10011,28 @@ meltlabexit_LASTESTERLOOP_1:;/*^loopepilog*/ ; MELT_LOCATION("warmelt-normatch.melt:640:/ clear"); - /*clear*/ /*_.CURTESTER__V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.CURTESTER__V12*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.FOREVER___V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V23*/ meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V23*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_TESTER_THEN__V26*/ meltfptr[19] = 0 ; + /*clear*/ /*_.PUT_TESTER_THEN__V26*/ + meltfptr[19] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:635:/ 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 ; } ; @@ -9276,7 +10114,8 @@ meltrout_15_WARMELTmiNORMATCH_SET_NEW_TESTER_ALL_ELSES(meltclosure_ptr_t meltclo /* end of frame for routine meltrout_15_WARMELTmiNORMATCH_SET_NEW_TESTER_ALL_ELSES fromline 1756 */ - /* classy proc frame meltrout_15_WARMELTmiNORMATCH_SET_NEW_TESTER_ALL_ELSES */ MeltFrame_meltrout_15_WARMELTmiNORMATCH_SET_NEW_TESTER_ALL_ELSES + /* classy proc frame meltrout_15_WARMELTmiNORMATCH_SET_NEW_TESTER_ALL_ELSES */ + MeltFrame_meltrout_15_WARMELTmiNORMATCH_SET_NEW_TESTER_ALL_ELSES meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_15_WARMELTmiNORMATCH_SET_NEW_TESTER_ALL_ELSES fromline 1785*/ #if ENABLE_CHECKING @@ -9289,7 +10128,8 @@ meltrout_15_WARMELTmiNORMATCH_SET_NEW_TESTER_ALL_ELSES(meltclosure_ptr_t meltclo #define meltframe meltfram__ melt_trace_start("SET_NEW_TESTER_ALL_ELSES", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -9299,19 +10139,22 @@ meltrout_15_WARMELTmiNORMATCH_SET_NEW_TESTER_ALL_ELSES(meltclosure_ptr_t meltclo /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:660:/ getarg"); - /*_.NEWTESTER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NEWTESTER__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PARTESTER__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.PARTESTER__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PARTESTER__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.UPDATLIST__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.UPDATLIST__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.UPDATLIST__V4*/ meltfptr[3])) != NULL); ; @@ -9343,7 +10186,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)) @@ -9352,7 +10196,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:661:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9393,16 +10238,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. updatlist="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.UPDATLIST__V4*/ meltfptr[3]; - /*_.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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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-normatch.melt:661:/ 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 ; } ; } @@ -9415,7 +10264,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:661:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9424,9 +10274,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*/ @@ -9467,10 +10319,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NEWTESTER__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:664:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -9497,25 +10351,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 664; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:664:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; + /*_.IFCPP___V7*/ + meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:664:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9533,10 +10393,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PARTESTER__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:665:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[4] = (/*nil*/NULL);; @@ -9563,25 +10425,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 665; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V11*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; + /*_._IFELSE___V11*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:665:/ 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[4];; + /*_.IFCPP___V10*/ + meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:665:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V11*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V11*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9593,10 +10461,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L5*/ meltfnum[1] = + /*_#NULL__L5*/ + meltfnum[1] = (/*null*/(/*_.UPDATLIST__V4*/ meltfptr[3]) == NULL);; MELT_LOCATION("warmelt-normatch.melt:666:/ cond"); - /*cond*/ if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9606,14 +10476,18 @@ meltlab_endgetargs: /*_.MAKE_LIST__V14*/ meltfptr[4] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-normatch.melt:667:/ compute"); - /*_.UPDATLIST__V4*/ meltfptr[3] = /*_.SETQ___V15*/ meltfptr[14] = /*_.MAKE_LIST__V14*/ meltfptr[4];; - /*_._IF___V13*/ meltfptr[11] = /*_.SETQ___V15*/ meltfptr[14];; + /*_.UPDATLIST__V4*/ + meltfptr[3] = /*_.SETQ___V15*/ meltfptr[14] = /*_.MAKE_LIST__V14*/ meltfptr[4];; + /*_._IF___V13*/ + meltfptr[11] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:666:/ clear"); - /*clear*/ /*_.MAKE_LIST__V14*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MAKE_LIST__V14*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.SETQ___V15*/ + meltfptr[14] = 0 ; } ; } @@ -9633,10 +10507,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L6*/ meltfnum[0] = + /*_#IS_LIST__L6*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.UPDATLIST__V4*/ meltfptr[3])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normatch.melt:668:/ cond"); - /*cond*/ if (/*_#IS_LIST__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[14] = (/*nil*/NULL);; @@ -9663,25 +10539,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 668; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V17*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; + /*_._IFELSE___V17*/ + meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:668:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ + meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V16*/ meltfptr[4] = /*_._IFELSE___V17*/ meltfptr[14];; + /*_.IFCPP___V16*/ + meltfptr[4] = /*_._IFELSE___V17*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:668:/ clear"); - /*clear*/ /*_#IS_LIST__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_LIST__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ meltfptr[14] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ + meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9721,7 +10603,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L7*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9730,7 +10613,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:671:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9763,16 +10647,20 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ argtab[3].meltbp_cstring = "set_new_tester_all_elses allelseloop partester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PARTESTER__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V21*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; + /*_._IF___V21*/ + meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:671:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[21] = 0 ; } ; } @@ -9785,7 +10673,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:671:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9794,9 +10683,11 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IF___V21*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9819,10 +10710,12 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#NULL__L9*/ meltfnum[7] = + /*_#NULL__L9*/ + meltfnum[7] = (/*null*/(/*_.PARTESTER__V3*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-normatch.melt:673:/ cond"); - /*cond*/ if (/*_#NULL__L9*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#NULL__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9833,7 +10726,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ /*^compute*/ - /*_.ALLELSELOOP__V20*/ meltfptr[14] = /*_._IFELSE___V23*/ meltfptr[21] = /*reallynil*/ NULL ;; + /*_.ALLELSELOOP__V20*/ + meltfptr[14] = /*_._IFELSE___V23*/ meltfptr[21] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -9856,10 +10750,12 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L10*/ meltfnum[0] = + /*_#IS_A__L10*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PARTESTER__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANYTESTER*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normatch.melt:675:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9874,7 +10770,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PARTESTER__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NTEST_ELSE"); - /*_.ELTEST__V26*/ meltfptr[25] = slot; + /*_.ELTEST__V26*/ + meltfptr[25] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:677:/ getslot"); @@ -9882,16 +10779,19 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PARTESTER__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NTEST_THEN"); - /*_.THTEST__V27*/ meltfptr[26] = slot; + /*_.THTEST__V27*/ + meltfptr[26] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#NULL__L11*/ meltfnum[10] = + /*_#NULL__L11*/ + meltfnum[10] = (/*null*/(/*_.ELTEST__V26*/ meltfptr[25]) == NULL);; MELT_LOCATION("warmelt-normatch.melt:680:/ cond"); - /*cond*/ if (/*_#NULL__L11*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#NULL__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9902,7 +10802,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:681:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PARTESTER__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[1]))) ) /*then*/ @@ -9949,7 +10850,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9958,7 +10860,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:682:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9991,16 +10894,20 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ argtab[3].meltbp_cstring = "set_new_tester_all_elses updated partester="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PARTESTER__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V29*/ meltfptr[28] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; + /*_._IF___V29*/ + meltfptr[28] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:682:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[29] = 0 ; } ; } @@ -10013,7 +10920,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:682:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10022,9 +10930,11 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_._IF___V29*/ + meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10077,10 +10987,12 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L14*/ meltfnum[12] = + /*_#eqeq__L14*/ + meltfnum[12] = ((/*_.CURTEST__V32*/ meltfptr[28]) == (/*_.PARTESTER__V3*/ meltfptr[2]));; MELT_LOCATION("warmelt-normatch.melt:689:/ cond"); - /*cond*/ if (/*_#eqeq__L14*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#eqeq__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10091,7 +11003,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ /*^compute*/ - /*_.ALLELSELOOP__V20*/ meltfptr[14] = /*reallynil*/ NULL ;; + /*_.ALLELSELOOP__V20*/ + meltfptr[14] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -10107,10 +11020,12 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L15*/ meltfnum[11] = + /*_#eqeq__L15*/ + meltfnum[11] = ((/*_.CURTEST__V32*/ meltfptr[28]) == (/*_.NEWTESTER__V2*/ meltfptr[1]));; MELT_LOCATION("warmelt-normatch.melt:691:/ cond"); - /*cond*/ if (/*_#eqeq__L15*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#eqeq__L15*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10121,7 +11036,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ /*^compute*/ - /*_.ALLELSELOOP__V20*/ meltfptr[14] = /*reallynil*/ NULL ;; + /*_.ALLELSELOOP__V20*/ + meltfptr[14] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -10136,35 +11052,45 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURPAIR__V31*/ meltfptr[29] = NULL; - /*_.CURTEST__V32*/ meltfptr[28] = NULL; + /*_.CURTEST__V32*/ + meltfptr[28] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:686:/ clear"); - /*clear*/ /*_.CURPAIR__V31*/ meltfptr[29] = 0 ; + /*clear*/ /*_.CURPAIR__V31*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.CURTEST__V32*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CURTEST__V32*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L14*/ meltfnum[12] = 0 ; + /*clear*/ /*_#eqeq__L14*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L15*/ meltfnum[11] = 0 ; + /*clear*/ /*_#eqeq__L15*/ + meltfnum[11] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_LOCATION("warmelt-normatch.melt:694:/ compute"); - /*_.PARTESTER__V3*/ meltfptr[2] = /*_.SETQ___V33*/ meltfptr[32] = /*_.ELTEST__V26*/ meltfptr[25];; + /*_.PARTESTER__V3*/ + meltfptr[2] = /*_.SETQ___V33*/ meltfptr[32] = /*_.ELTEST__V26*/ meltfptr[25];; MELT_LOCATION("warmelt-normatch.melt:685:/ quasiblock"); - /*_.PROGN___V34*/ meltfptr[33] = /*_.SETQ___V33*/ meltfptr[32];; + /*_.PROGN___V34*/ + meltfptr[33] = /*_.SETQ___V33*/ meltfptr[32];; /*^compute*/ - /*_._IFELSE___V28*/ meltfptr[27] = /*_.PROGN___V34*/ meltfptr[33];; + /*_._IFELSE___V28*/ + meltfptr[27] = /*_.PROGN___V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:680:/ clear"); - /*clear*/ /*_.SETQ___V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.SETQ___V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.PROGN___V34*/ + meltfptr[33] = 0 ; } ; } @@ -10189,7 +11115,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ meltfnum[15] = + /*_#MELT_NEED_DBG__L16*/ + meltfnum[15] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10198,7 +11125,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:696:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10235,16 +11163,20 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ argtab[5].meltbp_cstring = "\n thtest="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.THTEST__V27*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V36*/ meltfptr[33] = 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__V36*/ + meltfptr[33] = 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___V35*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[33];; + /*_._IF___V35*/ + meltfptr[32] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:696:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ + meltfptr[33] = 0 ; } ; } @@ -10257,7 +11189,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:696:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10266,9 +11199,11 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V35*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V35*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10291,10 +11226,12 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L18*/ meltfnum[16] = + /*_#IS_A__L18*/ + meltfnum[16] = melt_is_instance_of((melt_ptr_t)(/*_.THTEST__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANYTESTER*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normatch.melt:698:/ cond"); - /*cond*/ if (/*_#IS_A__L18*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#IS_A__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10314,10 +11251,12 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L19*/ meltfnum[15] = + /*_#eqeq__L19*/ + meltfnum[15] = ((/*_.CURTEST__V39*/ meltfptr[38]) == (/*_.THTEST__V27*/ meltfptr[26]));; MELT_LOCATION("warmelt-normatch.melt:702:/ cond"); - /*cond*/ if (/*_#eqeq__L19*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#eqeq__L19*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10328,7 +11267,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ /*^compute*/ - /*_.ALLELSELOOP__V20*/ meltfptr[14] = /*reallynil*/ NULL ;; + /*_.ALLELSELOOP__V20*/ + meltfptr[14] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -10344,10 +11284,12 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L20*/ meltfnum[19] = + /*_#eqeq__L20*/ + meltfnum[19] = ((/*_.CURTEST__V39*/ meltfptr[38]) == (/*_.NEWTESTER__V2*/ meltfptr[1]));; MELT_LOCATION("warmelt-normatch.melt:704:/ cond"); - /*cond*/ if (/*_#eqeq__L20*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#eqeq__L20*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10358,7 +11300,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ /*^compute*/ - /*_.ALLELSELOOP__V20*/ meltfptr[14] = /*reallynil*/ NULL ;; + /*_.ALLELSELOOP__V20*/ + meltfptr[14] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -10373,19 +11316,24 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ ; } /* end foreach_pair_component_in_list meltcit2__EACHLIST */ /*_.CURPAIR__V38*/ meltfptr[32] = NULL; - /*_.CURTEST__V39*/ meltfptr[38] = NULL; + /*_.CURTEST__V39*/ + meltfptr[38] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:699:/ clear"); - /*clear*/ /*_.CURPAIR__V38*/ meltfptr[32] = 0 ; + /*clear*/ /*_.CURPAIR__V38*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.CURTEST__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.CURTEST__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L19*/ meltfnum[15] = 0 ; + /*clear*/ /*_#eqeq__L19*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L20*/ meltfnum[19] = 0 ; + /*clear*/ /*_#eqeq__L20*/ + meltfnum[19] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -10408,7 +11356,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ meltfnum[20] = + /*_#MELT_NEED_DBG__L21*/ + meltfnum[20] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10417,7 +11366,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:707:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[20]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10450,16 +11400,20 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ argtab[3].meltbp_cstring = "set_new_tester_all_elses before recursion"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.THTEST__V27*/ meltfptr[26]; - /*_.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-normatch.melt:707:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[21] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[40] = 0 ; } ; } @@ -10472,7 +11426,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:707:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10481,9 +11436,11 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V40*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10515,7 +11472,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.THTEST__V27*/ meltfptr[26]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.UPDATLIST__V4*/ meltfptr[3]; - /*_.SET_NEW_TESTER_ALL_ELSES__V42*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_ALL_ELSES*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.NEWTESTER__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SET_NEW_TESTER_ALL_ELSES__V42*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_ALL_ELSES*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.NEWTESTER__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -10538,7 +11496,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L23*/ meltfnum[21] = + /*_#MELT_NEED_DBG__L23*/ + meltfnum[21] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10547,7 +11506,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:709:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[21]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L23*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10580,16 +11540,20 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ argtab[3].meltbp_cstring = "set_new_tester_all_elses after recursion"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.THTEST__V27*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = 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__V44*/ + meltfptr[43] = 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___V43*/ meltfptr[39] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];; + /*_._IF___V43*/ + meltfptr[39] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:709:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L24*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ + meltfptr[43] = 0 ; } ; } @@ -10602,7 +11566,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:709:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10611,9 +11576,11 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[21] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L23*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V43*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V43*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10639,7 +11606,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_.SET_NEW_TESTER_ALL_ELSES__V42*/ meltfptr[40] = 0 ; + /*clear*/ /*_.SET_NEW_TESTER_ALL_ELSES__V42*/ + meltfptr[40] = 0 ; } ; } @@ -10650,25 +11618,34 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ } ; /*^compute*/ - /*_.LET___V25*/ meltfptr[24] = /*_._IFELSE___V37*/ meltfptr[33];; + /*_.LET___V25*/ + meltfptr[24] = /*_._IFELSE___V37*/ meltfptr[33];; MELT_LOCATION("warmelt-normatch.melt:676:/ clear"); - /*clear*/ /*_.ELTEST__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.ELTEST__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.THTEST__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.THTEST__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#NULL__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IFELSE___V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#IS_A__L18*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V37*/ meltfptr[33] = 0 ; - /*_._IFELSE___V24*/ meltfptr[20] = /*_.LET___V25*/ meltfptr[24];; + /*clear*/ /*_._IFELSE___V37*/ + meltfptr[33] = 0 ; + /*_._IFELSE___V24*/ + meltfptr[20] = /*_.LET___V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:675:/ clear"); - /*clear*/ /*_.LET___V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.LET___V25*/ + meltfptr[24] = 0 ; } ; } @@ -10683,7 +11660,8 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ /*^compute*/ - /*_.ALLELSELOOP__V20*/ meltfptr[14] = /*reallynil*/ NULL ;; + /*_.ALLELSELOOP__V20*/ + meltfptr[14] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -10699,13 +11677,16 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ ; } ; - /*_._IFELSE___V23*/ meltfptr[21] = /*_._IFELSE___V24*/ meltfptr[20];; + /*_._IFELSE___V23*/ + meltfptr[21] = /*_._IFELSE___V24*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:673:/ clear"); - /*clear*/ /*_#IS_A__L10*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L10*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V24*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IFELSE___V24*/ + meltfptr[20] = 0 ; } ; } @@ -10716,16 +11697,19 @@ meltlabloop_ALLELSELOOP_1:;/*^loopbody*/ /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:669:/ clear"); - /*clear*/ /*_#NULL__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#NULL__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ + meltfptr[21] = 0 ; } ; ; goto meltlabloop_ALLELSELOOP_1; meltlabexit_ALLELSELOOP_1:;/*^loopepilog*/ /*loopepilog*/ - /*_.FOREVER___V19*/ meltfptr[17] = /*_.ALLELSELOOP__V20*/ meltfptr[14];; + /*_.FOREVER___V19*/ + meltfptr[17] = /*_.ALLELSELOOP__V20*/ meltfptr[14];; } ; @@ -10748,7 +11732,8 @@ meltlabexit_ALLELSELOOP_1:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L25*/ meltfnum[20] = + /*_#MELT_NEED_DBG__L25*/ + meltfnum[20] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10757,7 +11742,8 @@ meltlabexit_ALLELSELOOP_1:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:715:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L25*/ meltfnum[20]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L25*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10790,16 +11776,20 @@ meltlabexit_ALLELSELOOP_1:;/*^loopepilog*/ argtab[3].meltbp_cstring = "set_new_tester_all_elses return updatlist"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.UPDATLIST__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V46*/ 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__V46*/ + 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___V45*/ meltfptr[43] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[39];; + /*_._IF___V45*/ + meltfptr[43] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:715:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L26*/ meltfnum[21] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L26*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ + meltfptr[39] = 0 ; } ; } @@ -10812,7 +11802,8 @@ meltlabexit_ALLELSELOOP_1:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:715:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10821,9 +11812,11 @@ meltlabexit_ALLELSELOOP_1:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L25*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L25*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V45*/ meltfptr[43] = 0 ; + /*clear*/ /*_._IF___V45*/ + meltfptr[43] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10849,7 +11842,8 @@ meltlabexit_ALLELSELOOP_1:;/*^loopepilog*/ MELT_LOCATION("warmelt-normatch.melt:716:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.UPDATLIST__V4*/ meltfptr[3];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.UPDATLIST__V4*/ meltfptr[3];; { MELT_LOCATION("warmelt-normatch.melt:716:/ locexp"); @@ -10864,14 +11858,16 @@ meltlabexit_ALLELSELOOP_1:;/*^loopepilog*/ ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:660:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.RETURN___V47*/ meltfptr[40];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.RETURN___V47*/ meltfptr[40];; { MELT_LOCATION("warmelt-normatch.melt:660:/ locexp"); @@ -10886,23 +11882,31 @@ meltlabexit_ALLELSELOOP_1:;/*^loopepilog*/ ; /*^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___V10*/ meltfptr[8] = 0 ; + /*clear*/ /*_.IFCPP___V10*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V13*/ meltfptr[11] = 0 ; + /*clear*/ /*_._IF___V13*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V19*/ meltfptr[17] = 0 ; + /*clear*/ /*_.FOREVER___V19*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V47*/ meltfptr[40] = 0 ; + /*clear*/ /*_.RETURN___V47*/ + meltfptr[40] = 0 ; } ; @@ -10984,7 +11988,8 @@ meltrout_16_WARMELTmiNORMATCH_NORMPAT_ANYRECV(meltclosure_ptr_t meltclosp_, melt /* end of frame for routine meltrout_16_WARMELTmiNORMATCH_NORMPAT_ANYRECV fromline 1756 */ - /* classy proc frame meltrout_16_WARMELTmiNORMATCH_NORMPAT_ANYRECV */ MeltFrame_meltrout_16_WARMELTmiNORMATCH_NORMPAT_ANYRECV + /* classy proc frame meltrout_16_WARMELTmiNORMATCH_NORMPAT_ANYRECV */ + MeltFrame_meltrout_16_WARMELTmiNORMATCH_NORMPAT_ANYRECV meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_16_WARMELTmiNORMATCH_NORMPAT_ANYRECV fromline 1785*/ #if ENABLE_CHECKING @@ -10997,7 +12002,8 @@ meltrout_16_WARMELTmiNORMATCH_NORMPAT_ANYRECV(meltclosure_ptr_t meltclosp_, melt #define meltframe meltfram__ melt_trace_start("NORMPAT_ANYRECV", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -11007,26 +12013,30 @@ meltrout_16_WARMELTmiNORMATCH_NORMPAT_ANYRECV(meltclosure_ptr_t meltclosp_, melt /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:726:/ 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; - /*_.NMATCH__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NMATCH__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.HDLER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.HDLER__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.HDLER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PCN__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PCN__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4])) != NULL); ; @@ -11058,7 +12068,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)) @@ -11067,7 +12078,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:727:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11100,16 +12112,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_anyrecv 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-normatch.melt:727:/ 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 ; } ; } @@ -11122,7 +12138,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:727:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -11131,9 +12148,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*/ @@ -11163,10 +12182,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:728:/ 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);; @@ -11193,25 +12214,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 728; - /*_.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-normatch.melt:728:/ 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-normatch.melt:728:/ 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*/ @@ -11222,10 +12249,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:729:/ quasiblock"); - /*_.MYCLASS__V12*/ meltfptr[5] = + /*_.MYCLASS__V12*/ + meltfptr[5] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-normatch.melt:730:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MYCLASS__V12*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3]))) ) /*then*/ @@ -11236,7 +12265,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MYCLASS__V12*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.MYCLASSNAME__V13*/ meltfptr[12] = slot; + /*_.MYCLASSNAME__V13*/ + meltfptr[12] = slot; }; ; } @@ -11247,7 +12277,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:731:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -11258,7 +12289,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 1, "PCTN_SRC"); - /*_.PCTN_SRC__V14*/ meltfptr[13] = slot; + /*_.PCTN_SRC__V14*/ + meltfptr[13] = slot; }; ; } @@ -11269,7 +12301,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:731:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCTN_SRC__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -11280,7 +12313,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCTN_SRC__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.PSLOC__V15*/ meltfptr[14] = slot; + /*_.PSLOC__V15*/ + meltfptr[14] = slot; }; ; } @@ -11307,7 +12341,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; @@ -11334,23 +12369,28 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 735; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V17*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; + /*_._IFELSE___V17*/ + meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:735:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ + meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V16*/ meltfptr[15] = /*_._IFELSE___V17*/ meltfptr[16];; + /*_.IFCPP___V16*/ + meltfptr[15] = /*_._IFELSE___V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:735:/ clear"); - /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ + meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11359,25 +12399,32 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V11*/ meltfptr[9] = /*_.IFCPP___V16*/ meltfptr[15];; + /*_.LET___V11*/ + meltfptr[9] = /*_.IFCPP___V16*/ meltfptr[15];; MELT_LOCATION("warmelt-normatch.melt:729:/ clear"); - /*clear*/ /*_.MYCLASS__V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_.MYCLASS__V12*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MYCLASSNAME__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MYCLASSNAME__V13*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.PCTN_SRC__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.PCTN_SRC__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.PSLOC__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.PSLOC__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ + meltfptr[15] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:726:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; { MELT_LOCATION("warmelt-normatch.melt:726:/ locexp"); @@ -11392,13 +12439,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.LET___V11*/ + meltfptr[9] = 0 ; } ; @@ -11480,7 +12530,8 @@ meltrout_17_WARMELTmiNORMATCH_NORMPAT_ANYPAT(meltclosure_ptr_t meltclosp_, melt_ /* end of frame for routine meltrout_17_WARMELTmiNORMATCH_NORMPAT_ANYPAT fromline 1756 */ - /* classy proc frame meltrout_17_WARMELTmiNORMATCH_NORMPAT_ANYPAT */ MeltFrame_meltrout_17_WARMELTmiNORMATCH_NORMPAT_ANYPAT + /* classy proc frame meltrout_17_WARMELTmiNORMATCH_NORMPAT_ANYPAT */ + MeltFrame_meltrout_17_WARMELTmiNORMATCH_NORMPAT_ANYPAT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_17_WARMELTmiNORMATCH_NORMPAT_ANYPAT fromline 1785*/ #if ENABLE_CHECKING @@ -11493,7 +12544,8 @@ meltrout_17_WARMELTmiNORMATCH_NORMPAT_ANYPAT(meltclosure_ptr_t meltclosp_, melt_ #define meltframe meltfram__ melt_trace_start("NORMPAT_ANYPAT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -11503,26 +12555,30 @@ meltrout_17_WARMELTmiNORMATCH_NORMPAT_ANYPAT(meltclosure_ptr_t meltclosp_, melt_ /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:742:/ 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; - /*_.NMATCH__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NMATCH__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.HDLER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.HDLER__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.HDLER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PCN__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PCN__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4])) != NULL); ; @@ -11554,7 +12610,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)) @@ -11563,7 +12620,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:743:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11596,16 +12654,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_anyrecv 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-normatch.melt:743:/ 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 ; } ; } @@ -11618,7 +12680,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:743:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -11627,9 +12690,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*/ @@ -11659,10 +12724,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:744:/ 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);; @@ -11689,25 +12756,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 744; - /*_.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-normatch.melt:744:/ 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-normatch.melt:744:/ 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*/ @@ -11725,10 +12798,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:745:/ 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);; @@ -11755,25 +12830,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 745; - /*_.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-normatch.melt:745:/ 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-normatch.melt:745:/ 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*/ @@ -11784,10 +12865,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:746:/ quasiblock"); - /*_.MYCLASS__V15*/ meltfptr[5] = + /*_.MYCLASS__V15*/ + meltfptr[5] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-normatch.melt:747:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MYCLASS__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -11798,7 +12881,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MYCLASS__V15*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.MYCLASSNAME__V16*/ meltfptr[15] = slot; + /*_.MYCLASSNAME__V16*/ + meltfptr[15] = slot; }; ; } @@ -11809,7 +12893,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:748:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -11820,7 +12905,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 1, "PCTN_SRC"); - /*_.PCTN_SRC__V17*/ meltfptr[16] = slot; + /*_.PCTN_SRC__V17*/ + meltfptr[16] = slot; }; ; } @@ -11831,7 +12917,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:748:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCTN_SRC__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -11842,7 +12929,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCTN_SRC__V17*/ meltfptr[16]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.PSLOC__V18*/ meltfptr[17] = slot; + /*_.PSLOC__V18*/ + meltfptr[17] = slot; }; ; } @@ -11872,7 +12960,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -11881,7 +12970,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:750:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11922,16 +13012,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " nmatch="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NMATCH__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = 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__V20*/ + meltfptr[19] = 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___V19*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; + /*_._IF___V19*/ + meltfptr[18] = /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:750:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V20*/ + meltfptr[19] = 0 ; } ; } @@ -11944,7 +13038,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:750:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -11953,9 +13048,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_._IF___V19*/ + meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11992,7 +13089,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V22*/ meltfptr[18] = (/*nil*/NULL);; @@ -12019,23 +13117,28 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 753; - /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = 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__V23*/ + meltfptr[22] = 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___V22*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; + /*_._IFELSE___V22*/ + meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:753:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ + meltfptr[22] = 0 ; } ; } ; - /*_.IFCPP___V21*/ meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[18];; + /*_.IFCPP___V21*/ + meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:753:/ clear"); - /*clear*/ /*_._IFELSE___V22*/ meltfptr[18] = 0 ; + /*clear*/ /*_._IFELSE___V22*/ + meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12044,25 +13147,32 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V14*/ meltfptr[12] = /*_.IFCPP___V21*/ meltfptr[19];; + /*_.LET___V14*/ + meltfptr[12] = /*_.IFCPP___V21*/ meltfptr[19];; MELT_LOCATION("warmelt-normatch.melt:746:/ clear"); - /*clear*/ /*_.MYCLASS__V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_.MYCLASS__V15*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MYCLASSNAME__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MYCLASSNAME__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.PCTN_SRC__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.PCTN_SRC__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.PSLOC__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.PSLOC__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V21*/ meltfptr[19] = 0 ; + /*clear*/ /*_.IFCPP___V21*/ + meltfptr[19] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:742:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { MELT_LOCATION("warmelt-normatch.melt:742:/ locexp"); @@ -12077,15 +13187,19 @@ 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*/ /*_.LET___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.LET___V14*/ + meltfptr[12] = 0 ; } ; @@ -12167,7 +13281,8 @@ meltrout_18_WARMELTmiNORMATCH_NORMVARPAT_GENREUSETEST(meltclosure_ptr_t meltclos /* end of frame for routine meltrout_18_WARMELTmiNORMATCH_NORMVARPAT_GENREUSETEST fromline 1756 */ - /* classy proc frame meltrout_18_WARMELTmiNORMATCH_NORMVARPAT_GENREUSETEST */ MeltFrame_meltrout_18_WARMELTmiNORMATCH_NORMVARPAT_GENREUSETEST + /* classy proc frame meltrout_18_WARMELTmiNORMATCH_NORMVARPAT_GENREUSETEST */ + MeltFrame_meltrout_18_WARMELTmiNORMATCH_NORMVARPAT_GENREUSETEST meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_18_WARMELTmiNORMATCH_NORMVARPAT_GENREUSETEST fromline 1785*/ #if ENABLE_CHECKING @@ -12180,7 +13295,8 @@ meltrout_18_WARMELTmiNORMATCH_NORMVARPAT_GENREUSETEST(meltclosure_ptr_t meltclos #define meltframe meltfram__ melt_trace_start("NORMVARPAT_GENREUSETEST", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -12190,47 +13306,54 @@ meltrout_18_WARMELTmiNORMATCH_NORMVARPAT_GENREUSETEST(meltclosure_ptr_t meltclos /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:762:/ getarg"); - /*_.SLOC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.SLOC__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NMATCH__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NMATCH__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.LOCOCC__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.LOCOCC__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.LOCOCC__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.TESTLIST__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.TESTLIST__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.TESTLIST__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.TSTUFF__V6*/ meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; + /*_.TSTUFF__V6*/ + meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.TSTUFF__V6*/ meltfptr[5])) != NULL); /*getarg#5*/ /*^getarg*/ if (meltxargdescr_[4] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.HDLER__V7*/ meltfptr[6] = (meltxargtab_[4].meltbp_aptr) ? (*(meltxargtab_[4].meltbp_aptr)) : NULL; + /*_.HDLER__V7*/ + meltfptr[6] = (meltxargtab_[4].meltbp_aptr) ? (*(meltxargtab_[4].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.HDLER__V7*/ meltfptr[6])) != NULL); /*getarg#6*/ /*^getarg*/ if (meltxargdescr_[5] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PCN__V8*/ meltfptr[7] = (meltxargtab_[5].meltbp_aptr) ? (*(meltxargtab_[5].meltbp_aptr)) : NULL; + /*_.PCN__V8*/ + meltfptr[7] = (meltxargtab_[5].meltbp_aptr) ? (*(meltxargtab_[5].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PCN__V8*/ meltfptr[7])) != NULL); ; @@ -12252,10 +13375,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ meltfnum[0] = + /*_#IS_A__L1*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCN__V8*/ meltfptr[7]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normatch.melt:763:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; @@ -12282,25 +13407,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 763; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[9] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[9] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:763:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[8] = /*_._IFELSE___V10*/ meltfptr[9];; + /*_.IFCPP___V9*/ + meltfptr[8] = /*_._IFELSE___V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:763:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[9] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12318,10 +13449,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[0] = + /*_#IS_A__L2*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.LOCOCC__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normatch.melt:764:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[9] = (/*nil*/NULL);; @@ -12348,25 +13481,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 764; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V13*/ meltfptr[9] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; + /*_._IFELSE___V13*/ + meltfptr[9] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:764:/ 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[9];; + /*_.IFCPP___V12*/ + meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:764:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L2*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V13*/ meltfptr[9] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ + meltfptr[9] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12377,9 +13516,11 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:765:/ quasiblock"); - /*_.TESTER__V16*/ meltfptr[9] = (/*nil*/NULL);; + /*_.TESTER__V16*/ + meltfptr[9] = (/*nil*/NULL);; /*^compute*/ - /*_.CURHDLER__V17*/ meltfptr[16] = /*_.HDLER__V7*/ meltfptr[6];; + /*_.CURHDLER__V17*/ + meltfptr[16] = /*_.HDLER__V7*/ meltfptr[6];; MELT_LOCATION("warmelt-normatch.melt:769:/ loop"); /*loop*/ { @@ -12412,7 +13553,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L3*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12421,7 +13563,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:771:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12454,16 +13597,20 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ argtab[3].meltbp_cstring = "normvarpat_genreusetest tstuff"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TSTUFF__V6*/ meltfptr[5]; - /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V21*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V20*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; + /*_._IF___V20*/ + meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:771:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ + meltfptr[20] = 0 ; } ; } @@ -12476,7 +13623,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:771:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12485,9 +13633,11 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IF___V20*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12511,7 +13661,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:773:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NORMTESTER_SAME*/ meltfrout->tabval[4]))) ) /*then*/ @@ -12522,7 +13673,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TSTUFF__V6*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NTSAME_IDENTICAL"); - /*_.NTSAME_IDENTICAL__V22*/ meltfptr[20] = slot; + /*_.NTSAME_IDENTICAL__V22*/ + meltfptr[20] = slot; }; ; } @@ -12533,10 +13685,12 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ } ; /*^compute*/ - /*_#eqeq__L5*/ meltfnum[3] = + /*_#eqeq__L5*/ + meltfnum[3] = ((/*_.NTSAME_IDENTICAL__V22*/ meltfptr[20]) == (/*_.LOCOCC__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-normatch.melt:773:/ cond"); - /*cond*/ if (/*_#eqeq__L5*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#eqeq__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12544,12 +13698,14 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:774:/ compute"); - /*_.TESTER__V16*/ meltfptr[9] = /*_.SETQ___V24*/ meltfptr[23] = /*_.TSTUFF__V6*/ meltfptr[5];; + /*_.TESTER__V16*/ + meltfptr[9] = /*_.SETQ___V24*/ meltfptr[23] = /*_.TSTUFF__V6*/ meltfptr[5];; MELT_LOCATION("warmelt-normatch.melt:775:/ quasiblock"); /*^compute*/ - /*_.LOOPSTUFF__V19*/ meltfptr[18] = /*reallynil*/ NULL ;; + /*_.LOOPSTUFF__V19*/ + meltfptr[18] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -12563,7 +13719,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_.SETQ___V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.SETQ___V24*/ + meltfptr[23] = 0 ; } ; } @@ -12577,10 +13734,12 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[0] = + /*_#IS_A__L6*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normatch.melt:777:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12588,7 +13747,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:778:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -12599,7 +13759,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TSTUFF__V6*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NTEST_ELSE"); - /*_.NTEST_ELSE__V26*/ meltfptr[25] = slot; + /*_.NTEST_ELSE__V26*/ + meltfptr[25] = slot; }; ; } @@ -12610,12 +13771,14 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ } ; MELT_LOCATION("warmelt-normatch.melt:778:/ compute"); - /*_.TSTUFF__V6*/ meltfptr[5] = /*_.SETQ___V27*/ meltfptr[26] = /*_.NTEST_ELSE__V26*/ meltfptr[25];; + /*_.TSTUFF__V6*/ + meltfptr[5] = /*_.SETQ___V27*/ meltfptr[26] = /*_.NTEST_ELSE__V26*/ meltfptr[25];; MELT_LOCATION("warmelt-normatch.melt:780:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V29*/ meltfptr[28] = + /*newclosure*/ /*_.LAMBDA___V29*/ + meltfptr[28] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ meltfrout->tabval[8])), (1)); ; /*^putclosedv*/ @@ -12624,27 +13787,36 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ meltfptr[28]))); ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ meltfptr[28])->tabval[0] = (melt_ptr_t)(/*_.TSTUFF__V6*/ meltfptr[5]); ; - /*_.LAMBDA___V28*/ meltfptr[27] = /*_.LAMBDA___V29*/ meltfptr[28];; + /*_.LAMBDA___V28*/ + meltfptr[27] = /*_.LAMBDA___V29*/ meltfptr[28];; MELT_LOCATION("warmelt-normatch.melt:779:/ compute"); - /*_.CURHDLER__V17*/ meltfptr[16] = /*_.SETQ___V30*/ meltfptr[29] = /*_.LAMBDA___V28*/ meltfptr[27];; + /*_.CURHDLER__V17*/ + meltfptr[16] = /*_.SETQ___V30*/ meltfptr[29] = /*_.LAMBDA___V28*/ meltfptr[27];; MELT_LOCATION("warmelt-normatch.melt:777:/ quasiblock"); - /*_.PROGN___V31*/ meltfptr[30] = /*_.SETQ___V30*/ meltfptr[29];; + /*_.PROGN___V31*/ + meltfptr[30] = /*_.SETQ___V30*/ meltfptr[29];; /*^compute*/ - /*_._IFELSE___V25*/ meltfptr[23] = /*_.PROGN___V31*/ meltfptr[30];; + /*_._IFELSE___V25*/ + meltfptr[23] = /*_.PROGN___V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:777:/ clear"); - /*clear*/ /*_.NTEST_ELSE__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.NTEST_ELSE__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.SETQ___V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.LAMBDA___V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.SETQ___V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.PROGN___V31*/ + meltfptr[30] = 0 ; } ; } @@ -12661,7 +13833,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_.MAKE_LIST__V32*/ meltfptr[25] = + /*_.MAKE_LIST__V32*/ + meltfptr[25] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[9]))));; MELT_LOCATION("warmelt-normatch.melt:788:/ quasiblock"); @@ -12671,7 +13844,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMTESTER_SAME*/ meltfrout->tabval[4])), (8), "CLASS_NORMTESTER_SAME"); - /*_.INST__V34*/ meltfptr[27] = + /*_.INST__V34*/ + meltfptr[27] = newobj; }; ; @@ -12714,7 +13888,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ melt_dbgtrace_written_object (/*_.INST__V34*/ meltfptr[27], "newly made instance"); ; - /*_.NEWTESTER__V33*/ meltfptr[26] = /*_.INST__V34*/ meltfptr[27];; + /*_.NEWTESTER__V33*/ + meltfptr[26] = /*_.INST__V34*/ meltfptr[27];; { MELT_LOCATION("warmelt-normatch.melt:797:/ locexp"); @@ -12736,7 +13911,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V8*/ meltfptr[7]; - /*_.REGISTER_NEW_NORMTESTER__V35*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_NEW_NORMTESTER*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.NEWTESTER__V33*/ meltfptr[26]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.REGISTER_NEW_NORMTESTER__V35*/ + meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_NEW_NORMTESTER*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.NEWTESTER__V33*/ meltfptr[26]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -12759,7 +13935,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ 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)) @@ -12768,7 +13945,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:799:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12801,16 +13979,20 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ argtab[3].meltbp_cstring = "normvarpat_genreusetest newtester same"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTESTER__V33*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V36*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; + /*_._IF___V36*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:799:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[36] = 0 ; } ; } @@ -12823,7 +14005,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:799:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12832,9 +14015,11 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V36*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12855,7 +14040,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normatch.melt:800:/ compute"); - /*_.TESTER__V16*/ meltfptr[9] = /*_.SETQ___V38*/ meltfptr[36] = /*_.NEWTESTER__V33*/ meltfptr[26];; + /*_.TESTER__V16*/ + meltfptr[9] = /*_.SETQ___V38*/ meltfptr[36] = /*_.NEWTESTER__V33*/ meltfptr[26];; { MELT_LOCATION("warmelt-normatch.melt:801:/ locexp"); @@ -12875,7 +14061,8 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ /*^compute*/ - /*_.LOOPSTUFF__V19*/ meltfptr[18] = /*reallynil*/ NULL ;; + /*_.LOOPSTUFF__V19*/ + meltfptr[18] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -12885,15 +14072,20 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ ; MELT_LOCATION("warmelt-normatch.melt:788:/ clear"); - /*clear*/ /*_.MAKE_LIST__V32*/ meltfptr[25] = 0 ; + /*clear*/ /*_.MAKE_LIST__V32*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWTESTER__V33*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NEWTESTER__V33*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.REGISTER_NEW_NORMTESTER__V35*/ meltfptr[29] = 0 ; + /*clear*/ /*_.REGISTER_NEW_NORMTESTER__V35*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V38*/ meltfptr[36] = 0 ; + /*clear*/ /*_.SETQ___V38*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.CURHDLER__V39*/ meltfptr[30] = 0 ; + /*clear*/ /*_.CURHDLER__V39*/ + meltfptr[30] = 0 ; MELT_LOCATION("warmelt-normatch.melt:787:/ quasiblock"); @@ -12902,13 +14094,16 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ ; } ; - /*_._IFELSE___V23*/ meltfptr[19] = /*_._IFELSE___V25*/ meltfptr[23];; + /*_._IFELSE___V23*/ + meltfptr[19] = /*_._IFELSE___V25*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:773:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IFELSE___V25*/ + meltfptr[23] = 0 ; } ; } @@ -12919,36 +14114,45 @@ meltlabloop_LOOPSTUFF_1:;/*^loopbody*/ /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:769:/ clear"); - /*clear*/ /*_.NTSAME_IDENTICAL__V22*/ meltfptr[20] = 0 ; + /*clear*/ /*_.NTSAME_IDENTICAL__V22*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L5*/ meltfnum[3] = 0 ; + /*clear*/ /*_#eqeq__L5*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ + meltfptr[19] = 0 ; } ; ; goto meltlabloop_LOOPSTUFF_1; meltlabexit_LOOPSTUFF_1:;/*^loopepilog*/ /*loopepilog*/ - /*_.FOREVER___V18*/ meltfptr[17] = /*_.LOOPSTUFF__V19*/ meltfptr[18];; + /*_.FOREVER___V18*/ + meltfptr[17] = /*_.LOOPSTUFF__V19*/ meltfptr[18];; } ; /*^compute*/ - /*_.LET___V15*/ meltfptr[13] = /*_.FOREVER___V18*/ meltfptr[17];; + /*_.LET___V15*/ + meltfptr[13] = /*_.FOREVER___V18*/ meltfptr[17];; MELT_LOCATION("warmelt-normatch.melt:765:/ clear"); - /*clear*/ /*_.TESTER__V16*/ meltfptr[9] = 0 ; + /*clear*/ /*_.TESTER__V16*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.CURHDLER__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.CURHDLER__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.FOREVER___V18*/ + meltfptr[17] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:762:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[13];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V15*/ meltfptr[13];; { MELT_LOCATION("warmelt-normatch.melt:762:/ locexp"); @@ -12963,15 +14167,19 @@ meltlabexit_LOOPSTUFF_1:;/*^loopepilog*/ ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.IFCPP___V12*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V15*/ meltfptr[13] = 0 ; + /*clear*/ /*_.LET___V15*/ + meltfptr[13] = 0 ; } ; @@ -13053,7 +14261,8 @@ meltrout_19_WARMELTmiNORMATCH_LAMBDA_cl2(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_19_WARMELTmiNORMATCH_LAMBDA_cl2 fromline 1756 */ - /* classy proc frame meltrout_19_WARMELTmiNORMATCH_LAMBDA_cl2 */ MeltFrame_meltrout_19_WARMELTmiNORMATCH_LAMBDA_cl2 + /* classy proc frame meltrout_19_WARMELTmiNORMATCH_LAMBDA_cl2 */ + MeltFrame_meltrout_19_WARMELTmiNORMATCH_LAMBDA_cl2 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_19_WARMELTmiNORMATCH_LAMBDA_cl2 fromline 1785*/ #if ENABLE_CHECKING @@ -13066,7 +14275,8 @@ meltrout_19_WARMELTmiNORMATCH_LAMBDA_cl2(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl2", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -13076,7 +14286,8 @@ meltrout_19_WARMELTmiNORMATCH_LAMBDA_cl2(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:780:/ getarg"); - /*_.TESTER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.TESTER__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -13101,7 +14312,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:782:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~TSTUFF*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[0]))) ) /*then*/ @@ -13148,7 +14360,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)) @@ -13157,7 +14370,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:783:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13190,16 +14404,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normvarpat_genreusetest lambda curhdler updatelse of tstuff="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*~TSTUFF*/ meltfclos->tabval[0]); - /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 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__V4*/ + meltfptr[3] = 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___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; + /*_._IF___V3*/ + meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:783:/ 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 ; } ; } @@ -13212,7 +14430,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:783:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13221,9 +14440,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*/ @@ -13244,7 +14465,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normatch.melt:784:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTER__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[0]))) ) /*then*/ @@ -13255,7 +14477,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TESTER__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "NTEST_COMEFROM"); - /*_.NTEST_COMEFROM__V5*/ meltfptr[3] = slot; + /*_.NTEST_COMEFROM__V5*/ + meltfptr[3] = slot; }; ; } @@ -13277,7 +14500,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:780:/ clear"); - /*clear*/ /*_.NTEST_COMEFROM__V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.NTEST_COMEFROM__V5*/ + meltfptr[3] = 0 ; } ; @@ -13359,7 +14583,8 @@ meltrout_20_WARMELTmiNORMATCH_NORMPAT_VARIABLEPAT(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_20_WARMELTmiNORMATCH_NORMPAT_VARIABLEPAT fromline 1756 */ - /* classy proc frame meltrout_20_WARMELTmiNORMATCH_NORMPAT_VARIABLEPAT */ MeltFrame_meltrout_20_WARMELTmiNORMATCH_NORMPAT_VARIABLEPAT + /* classy proc frame meltrout_20_WARMELTmiNORMATCH_NORMPAT_VARIABLEPAT */ + MeltFrame_meltrout_20_WARMELTmiNORMATCH_NORMPAT_VARIABLEPAT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_20_WARMELTmiNORMATCH_NORMPAT_VARIABLEPAT fromline 1785*/ #if ENABLE_CHECKING @@ -13372,7 +14597,8 @@ meltrout_20_WARMELTmiNORMATCH_NORMPAT_VARIABLEPAT(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("NORMPAT_VARIABLEPAT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -13382,26 +14608,30 @@ meltrout_20_WARMELTmiNORMATCH_NORMPAT_VARIABLEPAT(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:814:/ 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; - /*_.NMATCH__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NMATCH__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.HDLER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.HDLER__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.HDLER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PCN__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PCN__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4])) != NULL); ; @@ -13433,7 +14663,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)) @@ -13442,7 +14673,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:815:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13479,16 +14711,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nmatch="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NMATCH__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 ""), 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 ""), 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-normatch.melt:815:/ 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 ; } ; } @@ -13501,7 +14737,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:815:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13510,9 +14747,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*/ @@ -13542,10 +14781,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_PATTERN_VARIABLE*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:816:/ 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);; @@ -13572,25 +14813,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 816; - /*_.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-normatch.melt:816:/ 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-normatch.melt:816:/ 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*/ @@ -13608,10 +14855,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:817:/ 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);; @@ -13638,25 +14887,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 817; - /*_.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-normatch.melt:817:/ 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-normatch.melt:817:/ 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*/ @@ -13679,7 +14934,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ @@ -13690,7 +14946,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 7, "PCTN_STUFFMAP"); - /*_.STUFFMAP__V15*/ meltfptr[5] = slot; + /*_.STUFFMAP__V15*/ + meltfptr[5] = slot; }; ; } @@ -13701,7 +14958,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:820:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ @@ -13712,7 +14970,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 8, "PCTN_PVARLOCMAP"); - /*_.PVARLOCMAP__V16*/ meltfptr[15] = slot; + /*_.PVARLOCMAP__V16*/ + meltfptr[15] = slot; }; ; } @@ -13723,7 +14982,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:821:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ @@ -13734,7 +14994,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 1, "PCTN_SRC"); - /*_.PCTN_SRC__V17*/ meltfptr[16] = slot; + /*_.PCTN_SRC__V17*/ + meltfptr[16] = slot; }; ; } @@ -13745,7 +15006,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:821:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCTN_SRC__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -13756,7 +15018,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCTN_SRC__V17*/ meltfptr[16]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.PSLOC__V18*/ meltfptr[17] = slot; + /*_.PSLOC__V18*/ + meltfptr[17] = slot; }; ; } @@ -13767,7 +15030,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:822:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -13778,7 +15042,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__V19*/ meltfptr[18] = slot; + /*_.SLOC__V19*/ + meltfptr[18] = slot; }; ; } @@ -13789,7 +15054,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:823:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_VARIABLE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -13800,7 +15066,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, "SPATVAR_SYMB"); - /*_.PATVAR__V20*/ meltfptr[19] = slot; + /*_.PATVAR__V20*/ + meltfptr[19] = slot; }; ; } @@ -13811,15 +15078,18 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.TSTUFF__V21*/ meltfptr[20] = + /*_.TSTUFF__V21*/ + meltfptr[20] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STUFFMAP__V15*/ meltfptr[5]), (meltobject_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2]));; /*^compute*/ - /*_.LOCOCC__V22*/ meltfptr[21] = + /*_.LOCOCC__V22*/ + meltfptr[21] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.PVARLOCMAP__V16*/ meltfptr[15]), (meltobject_ptr_t)(/*_.PATVAR__V20*/ meltfptr[19]));; MELT_LOCATION("warmelt-normatch.melt:826:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ @@ -13830,7 +15100,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 2, "PCTN_ENV"); - /*_.ENV__V23*/ meltfptr[22] = slot; + /*_.ENV__V23*/ + meltfptr[22] = slot; }; ; } @@ -13841,7 +15112,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:827:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ @@ -13852,7 +15124,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 0, "PCTN_NORMCTXT"); - /*_.NCX__V24*/ meltfptr[23] = slot; + /*_.NCX__V24*/ + meltfptr[23] = slot; }; ; } @@ -13863,7 +15136,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:828:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ @@ -13874,7 +15148,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 9, "PCTN_TESTS"); - /*_.TESTLIST__V25*/ meltfptr[24] = slot; + /*_.TESTLIST__V25*/ + meltfptr[24] = slot; }; ; } @@ -13904,7 +15179,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13913,7 +15189,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:830:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13954,16 +15231,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " patvar="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PATVAR__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V26*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; + /*_._IF___V26*/ + meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:830:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[26] = 0 ; } ; } @@ -13976,7 +15257,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:830:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13985,9 +15267,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V26*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14010,10 +15294,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ meltfnum[0] = + /*_#IS_A__L7*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.LOCOCC__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normatch.melt:833:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14040,7 +15326,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)) @@ -14049,7 +15336,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:835:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14082,16 +15370,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_variablepat alreadybound lococc"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LOCOCC__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V29*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; + /*_._IF___V29*/ + meltfptr[25] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:835:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[29] = 0 ; } ; } @@ -14104,7 +15396,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:835:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14113,9 +15406,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[25] = 0 ; + /*clear*/ /*_._IF___V29*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14155,21 +15450,26 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HDLER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.NORMVARPAT_GENREUSETEST__V31*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!NORMVARPAT_GENREUSETEST*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMVARPAT_GENREUSETEST__V31*/ + meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!NORMVARPAT_GENREUSETEST*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normatch.melt:833:/ quasiblock"); - /*_.PROGN___V32*/ meltfptr[25] = /*_.NORMVARPAT_GENREUSETEST__V31*/ meltfptr[29];; + /*_.PROGN___V32*/ + meltfptr[25] = /*_.NORMVARPAT_GENREUSETEST__V31*/ meltfptr[29];; /*^compute*/ - /*_._IFELSE___V28*/ meltfptr[26] = /*_.PROGN___V32*/ meltfptr[25];; + /*_._IFELSE___V28*/ + meltfptr[26] = /*_.PROGN___V32*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:833:/ clear"); - /*clear*/ /*_.NORMVARPAT_GENREUSETEST__V31*/ meltfptr[29] = 0 ; + /*clear*/ /*_.NORMVARPAT_GENREUSETEST__V31*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V32*/ meltfptr[25] = 0 ; + /*clear*/ /*_.PROGN___V32*/ + meltfptr[25] = 0 ; } ; } @@ -14183,10 +15483,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L10*/ meltfnum[8] = + /*_#IS_A__L10*/ + meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.LOCOCC__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NORMAL_OR_VARIABLE*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normatch.melt:839:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14213,7 +15515,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L11*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14222,7 +15525,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:840:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14255,16 +15559,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_variablepat lococc orvariable"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LOCOCC__V22*/ meltfptr[21]; - /*_.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[25] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; + /*_._IF___V34*/ + meltfptr[25] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:840:/ 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 ; } ; } @@ -14277,7 +15585,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:840:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14286,9 +15595,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V34*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V34*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14316,7 +15627,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LOCOCC__V22*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NORVAR_LOCSYM"); - /*_.REALOCOCC__V37*/ meltfptr[25] = slot; + /*_.REALOCOCC__V37*/ + meltfptr[25] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:843:/ getslot"); @@ -14324,11 +15636,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LOCOCC__V22*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NORVAR_PATVAR"); - /*_.NPATVAR__V38*/ meltfptr[37] = slot; + /*_.NPATVAR__V38*/ + meltfptr[37] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:844:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NPATVAR__V38*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_VARIABLE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -14339,7 +15653,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NPATVAR__V38*/ meltfptr[37]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SPATVAR_SYMB"); - /*_.PATSYM__V39*/ meltfptr[38] = slot; + /*_.PATSYM__V39*/ + meltfptr[38] = slot; }; ; } @@ -14369,7 +15684,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L13*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14378,7 +15694,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:846:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14411,16 +15728,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_variablepat orvariable npatvar"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NPATVAR__V38*/ meltfptr[37]; - /*_.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-normatch.melt:846:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[40] = 0 ; } ; } @@ -14433,7 +15754,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:846:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14442,9 +15764,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V40*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14474,10 +15798,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L15*/ meltfnum[1] = + /*_#eqeq__L15*/ + meltfnum[1] = ((/*_.PATSYM__V39*/ meltfptr[38]) == (/*_.PATVAR__V20*/ meltfptr[19]));; MELT_LOCATION("warmelt-normatch.melt:847:/ cond"); - /*cond*/ if (/*_#eqeq__L15*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#eqeq__L15*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V43*/ meltfptr[39] = (/*nil*/NULL);; @@ -14504,25 +15830,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 847; - /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[43] = 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__V44*/ + meltfptr[43] = 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___V43*/ meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[43];; + /*_._IFELSE___V43*/ + meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:847:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V44*/ + meltfptr[43] = 0 ; } ; } ; - /*_.IFCPP___V42*/ meltfptr[40] = /*_._IFELSE___V43*/ meltfptr[39];; + /*_.IFCPP___V42*/ + meltfptr[40] = /*_._IFELSE___V43*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:847:/ clear"); - /*clear*/ /*_#eqeq__L15*/ meltfnum[1] = 0 ; + /*clear*/ /*_#eqeq__L15*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V43*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IFELSE___V43*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14550,7 +15882,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L16*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14559,7 +15892,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:848:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14592,16 +15926,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_variablepat orvariable realococc"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.REALOCOCC__V37*/ meltfptr[25]; - /*_.MELT_DEBUG_FUN__V46*/ 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__V46*/ + 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___V45*/ meltfptr[43] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[39];; + /*_._IF___V45*/ + meltfptr[43] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:848:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ + meltfptr[39] = 0 ; } ; } @@ -14614,7 +15952,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:848:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14623,9 +15962,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V45*/ meltfptr[43] = 0 ; + /*clear*/ /*_._IF___V45*/ + meltfptr[43] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14648,10 +15989,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L18*/ meltfnum[1] = + /*_#NULL__L18*/ + meltfnum[1] = (/*null*/(/*_.REALOCOCC__V37*/ meltfptr[25]) == NULL);; MELT_LOCATION("warmelt-normatch.melt:849:/ cond"); - /*cond*/ if (/*_#NULL__L18*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#NULL__L18*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14671,7 +16014,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V23*/ meltfptr[22]; - /*_.CTYP__V48*/ meltfptr[43] = meltgc_send((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CTYP__V48*/ + meltfptr[43] = meltgc_send((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -14685,7 +16029,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[9])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V50*/ meltfptr[49] = + /*_.INST__V50*/ + meltfptr[49] = newobj; }; ; @@ -14713,7 +16058,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V50*/ meltfptr[49], "newly made instance"); ; - /*_.CBIND__V49*/ meltfptr[48] = /*_.INST__V50*/ meltfptr[49];; + /*_.CBIND__V49*/ + meltfptr[48] = /*_.INST__V50*/ meltfptr[49];; MELT_CHECK_SIGNAL(); ; @@ -14725,7 +16071,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[5])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V52*/ meltfptr[51] = + /*_.INST__V52*/ + meltfptr[51] = newobj; }; ; @@ -14753,7 +16100,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V52*/ meltfptr[51], "newly made instance"); ; - /*_.CLOCC__V51*/ meltfptr[50] = /*_.INST__V52*/ meltfptr[51];; + /*_.CLOCC__V51*/ + meltfptr[50] = /*_.INST__V52*/ meltfptr[51];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:865:/ cppif.then"); @@ -14774,7 +16122,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L19*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L19*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14783,7 +16132,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:865:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14816,16 +16166,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_variablepat fresh orvariable clocc"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V51*/ meltfptr[50]; - /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53] = 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[53] = 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[52] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53];; + /*_._IF___V53*/ + meltfptr[52] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:865:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ + meltfptr[53] = 0 ; } ; } @@ -14838,7 +16192,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:865:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14847,9 +16202,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_._IF___V53*/ + meltfptr[52] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14873,7 +16230,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:866:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.LOCOCC__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NORMAL_OR_VARIABLE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -14925,7 +16283,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ meltfnum[19] = + /*_#MELT_NEED_DBG__L21*/ + meltfnum[19] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14934,7 +16293,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:869:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14967,16 +16327,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_variablepat updated fresh orvariable lococc"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LOCOCC__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V56*/ meltfptr[52] = 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__V56*/ + meltfptr[52] = 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___V55*/ meltfptr[53] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[52];; + /*_._IF___V55*/ + meltfptr[53] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:869:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ meltfptr[52] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ + meltfptr[52] = 0 ; } ; } @@ -14989,7 +16353,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:869:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14998,9 +16363,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V55*/ meltfptr[53] = 0 ; + /*clear*/ /*_._IF___V55*/ + meltfptr[53] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15032,7 +16399,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:872:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCX__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[10]))) ) /*then*/ @@ -15043,7 +16411,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V24*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NCTX_SYMBCACHEMAP"); - /*_.NCTX_SYMBCACHEMAP__V57*/ meltfptr[52] = slot; + /*_.NCTX_SYMBCACHEMAP__V57*/ + meltfptr[52] = slot; }; ; } @@ -15089,7 +16458,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L23*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L23*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15098,7 +16468,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:874:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L23*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15131,16 +16502,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_variablepat updated fresh orvariable pvarlocmap"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PVARLOCMAP__V16*/ meltfptr[15]; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V58*/ meltfptr[53] = /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58];; + /*_._IF___V58*/ + meltfptr[53] = /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:874:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L24*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V59*/ + meltfptr[58] = 0 ; } ; } @@ -15153,7 +16528,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:874:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15162,9 +16538,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L23*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V58*/ meltfptr[53] = 0 ; + /*clear*/ /*_._IF___V58*/ + meltfptr[53] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15181,7 +16559,8 @@ meltlab_endgetargs: /*void*/(void)0; } ; - /*clear*/ /*_._IFELSE___V47*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IFELSE___V47*/ + meltfptr[39] = 0 ; /*epilog*/ } @@ -15189,13 +16568,17 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:851:/ clear"); - /*clear*/ /*_.CTYP__V48*/ meltfptr[43] = 0 ; + /*clear*/ /*_.CTYP__V48*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.CBIND__V49*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.CLOCC__V51*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.NCTX_SYMBCACHEMAP__V57*/ meltfptr[52] = 0 ; + /*clear*/ /*_.NCTX_SYMBCACHEMAP__V57*/ + meltfptr[52] = 0 ; /*epilog*/ } ; @@ -15211,10 +16594,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L25*/ meltfnum[19] = + /*_#IS_A__L25*/ + meltfnum[19] = melt_is_instance_of((melt_ptr_t)(/*_.REALOCOCC__V37*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normatch.melt:880:/ cond"); - /*cond*/ if (/*_#IS_A__L25*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#IS_A__L25*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15241,7 +16626,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L26*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L26*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15250,7 +16636,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:881:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L26*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15283,16 +16670,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_variablepat bound orvariable realococccc"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.REALOCOCC__V37*/ meltfptr[25]; - /*_.MELT_DEBUG_FUN__V62*/ meltfptr[43] = 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__V62*/ + meltfptr[43] = 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___V61*/ meltfptr[53] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[43];; + /*_._IF___V61*/ + meltfptr[53] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:881:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L27*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ + meltfptr[43] = 0 ; } ; } @@ -15305,7 +16696,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:881:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15314,9 +16706,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L26*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V61*/ meltfptr[53] = 0 ; + /*clear*/ /*_._IF___V61*/ + meltfptr[53] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15356,21 +16750,26 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HDLER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.NORMVARPAT_GENREUSETEST__V63*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!NORMVARPAT_GENREUSETEST*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMVARPAT_GENREUSETEST__V63*/ + meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!NORMVARPAT_GENREUSETEST*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normatch.melt:880:/ quasiblock"); - /*_.PROGN___V64*/ meltfptr[50] = /*_.NORMVARPAT_GENREUSETEST__V63*/ meltfptr[48];; + /*_.PROGN___V64*/ + meltfptr[50] = /*_.NORMVARPAT_GENREUSETEST__V63*/ meltfptr[48];; /*^compute*/ - /*_._IFELSE___V60*/ meltfptr[58] = /*_.PROGN___V64*/ meltfptr[50];; + /*_._IFELSE___V60*/ + meltfptr[58] = /*_.PROGN___V64*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:880:/ clear"); - /*clear*/ /*_.NORMVARPAT_GENREUSETEST__V63*/ meltfptr[48] = 0 ; + /*clear*/ /*_.NORMVARPAT_GENREUSETEST__V63*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V64*/ meltfptr[50] = 0 ; + /*clear*/ /*_.PROGN___V64*/ + meltfptr[50] = 0 ; } ; } @@ -15384,10 +16783,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L28*/ meltfnum[26] = + /*_#IS_A__L28*/ + meltfnum[26] = melt_is_instance_of((melt_ptr_t)(/*_.REALOCOCC__V37*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-normatch.melt:886:/ cond"); - /*cond*/ if (/*_#IS_A__L28*/ meltfnum[26]) /*then*/ + /*cond*/ + if (/*_#IS_A__L28*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15407,11 +16808,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V23*/ meltfptr[22]; - /*_.CTYP__V66*/ meltfptr[43] = meltgc_send((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CTYP__V66*/ + meltfptr[43] = meltgc_send((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normatch.melt:889:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.REALOCOCC__V37*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[11]))) ) /*then*/ @@ -15422,7 +16825,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.REALOCOCC__V37*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.BXCLOCC__V67*/ meltfptr[53] = slot; + /*_.BXCLOCC__V67*/ + meltfptr[53] = slot; }; ; } @@ -15452,7 +16856,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L29*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L29*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15461,7 +16866,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:891:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L29*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L29*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15494,16 +16900,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_variablepat bxclocc"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BXCLOCC__V67*/ meltfptr[53]; - /*_.MELT_DEBUG_FUN__V69*/ 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__V69*/ + 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___V68*/ meltfptr[48] = /*_.MELT_DEBUG_FUN__V69*/ meltfptr[50];; + /*_._IF___V68*/ + meltfptr[48] = /*_.MELT_DEBUG_FUN__V69*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:891:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L30*/ meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L30*/ + meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V69*/ meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V69*/ + meltfptr[50] = 0 ; } ; } @@ -15516,7 +16926,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:891:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15525,9 +16936,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L29*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L29*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V68*/ meltfptr[48] = 0 ; + /*clear*/ /*_._IF___V68*/ + meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15557,10 +16970,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L31*/ meltfnum[29] = + /*_#IS_A__L31*/ + meltfnum[29] = melt_is_instance_of((melt_ptr_t)(/*_.BXCLOCC__V67*/ meltfptr[53]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normatch.melt:892:/ cond"); - /*cond*/ if (/*_#IS_A__L31*/ meltfnum[29]) /*then*/ + /*cond*/ + if (/*_#IS_A__L31*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V71*/ meltfptr[48] = (/*nil*/NULL);; @@ -15587,25 +17002,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 892; - /*_.MELT_ASSERT_FAILURE_FUN__V72*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V72*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V71*/ meltfptr[48] = /*_.MELT_ASSERT_FAILURE_FUN__V72*/ meltfptr[71];; + /*_._IFELSE___V71*/ + meltfptr[48] = /*_.MELT_ASSERT_FAILURE_FUN__V72*/ meltfptr[71];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:892:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V72*/ + meltfptr[71] = 0 ; } ; } ; - /*_.IFCPP___V70*/ meltfptr[50] = /*_._IFELSE___V71*/ meltfptr[48];; + /*_.IFCPP___V70*/ + meltfptr[50] = /*_._IFELSE___V71*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:892:/ clear"); - /*clear*/ /*_#IS_A__L31*/ meltfnum[29] = 0 ; + /*clear*/ /*_#IS_A__L31*/ + meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V71*/ meltfptr[48] = 0 ; + /*clear*/ /*_._IFELSE___V71*/ + meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15621,16 +17042,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BXCLOCC__V67*/ meltfptr[53]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NOCC_CTYP"); - /*_.PREVCTYP__V73*/ meltfptr[71] = slot; + /*_.PREVCTYP__V73*/ + meltfptr[71] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#exeq__L32*/ meltfnum[11] = + /*_#exeq__L32*/ + meltfnum[11] = ((/*_.CTYP__V66*/ meltfptr[43]) != (/*_.PREVCTYP__V73*/ meltfptr[71]));; MELT_LOCATION("warmelt-normatch.melt:897:/ cond"); - /*cond*/ if (/*_#exeq__L32*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#exeq__L32*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15645,7 +17069,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BXCLOCC__V67*/ meltfptr[53]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.PREVSLOC__V74*/ meltfptr[48] = slot; + /*_.PREVSLOC__V74*/ + meltfptr[48] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:901:/ getslot"); @@ -15653,11 +17078,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BXCLOCC__V67*/ meltfptr[53]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NOCC_SYMB"); - /*_.NOCC_SYMB__V75*/ meltfptr[74] = slot; + /*_.NOCC_SYMB__V75*/ + meltfptr[74] = slot; }; ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NOCC_SYMB__V75*/ meltfptr[74]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[12]))) ) /*then*/ @@ -15668,7 +17095,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NOCC_SYMB__V75*/ meltfptr[74]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V76*/ meltfptr[75] = slot; + /*_.NAMED_NAME__V76*/ + meltfptr[75] = slot; }; ; } @@ -15685,7 +17113,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:903:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V66*/ meltfptr[43]), (melt_ptr_t)((/*!CLASS_QUASI_CTYPE*/ meltfrout->tabval[13]))) ) /*then*/ @@ -15696,7 +17125,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYP__V66*/ meltfptr[43]) /*=obj*/; melt_object_get_field(slot,obj, 2, "CTYPE_KEYWORD"); - /*_.CTYPE_KEYWORD__V77*/ meltfptr[76] = slot; + /*_.CTYPE_KEYWORD__V77*/ + meltfptr[76] = slot; }; ; } @@ -15707,7 +17137,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:903:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V77*/ meltfptr[76]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[12]))) ) /*then*/ @@ -15718,7 +17149,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYPE_KEYWORD__V77*/ meltfptr[76]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V78*/ meltfptr[77] = slot; + /*_.NAMED_NAME__V78*/ + meltfptr[77] = slot; }; ; } @@ -15735,7 +17167,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:905:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PREVCTYP__V73*/ meltfptr[71]), (melt_ptr_t)((/*!CLASS_QUASI_CTYPE*/ meltfrout->tabval[13]))) ) /*then*/ @@ -15746,7 +17179,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PREVCTYP__V73*/ meltfptr[71]) /*=obj*/; melt_object_get_field(slot,obj, 2, "CTYPE_KEYWORD"); - /*_.CTYPE_KEYWORD__V79*/ meltfptr[78] = slot; + /*_.CTYPE_KEYWORD__V79*/ + meltfptr[78] = slot; }; ; } @@ -15757,7 +17191,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:905:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V79*/ meltfptr[78]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[12]))) ) /*then*/ @@ -15768,7 +17203,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYPE_KEYWORD__V79*/ meltfptr[78]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V80*/ meltfptr[79] = slot; + /*_.NAMED_NAME__V80*/ + meltfptr[79] = slot; }; ; } @@ -15786,19 +17222,26 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:898:/ clear"); - /*clear*/ /*_.PREVSLOC__V74*/ meltfptr[48] = 0 ; + /*clear*/ /*_.PREVSLOC__V74*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.NOCC_SYMB__V75*/ meltfptr[74] = 0 ; + /*clear*/ /*_.NOCC_SYMB__V75*/ + meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V76*/ meltfptr[75] = 0 ; + /*clear*/ /*_.NAMED_NAME__V76*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_KEYWORD__V77*/ meltfptr[76] = 0 ; + /*clear*/ /*_.CTYPE_KEYWORD__V77*/ + meltfptr[76] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V78*/ meltfptr[77] = 0 ; + /*clear*/ /*_.NAMED_NAME__V78*/ + meltfptr[77] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_KEYWORD__V79*/ meltfptr[78] = 0 ; + /*clear*/ /*_.CTYPE_KEYWORD__V79*/ + meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V80*/ meltfptr[79] = 0 ; + /*clear*/ /*_.NAMED_NAME__V80*/ + meltfptr[79] = 0 ; /*epilog*/ } ; @@ -15806,14 +17249,17 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:894:/ clear"); - /*clear*/ /*_.PREVCTYP__V73*/ meltfptr[71] = 0 ; + /*clear*/ /*_.PREVCTYP__V73*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L32*/ meltfnum[11] = 0 ; + /*clear*/ /*_#exeq__L32*/ + meltfnum[11] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:907:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.LOCOCC__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NORMAL_OR_VARIABLE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -15865,7 +17311,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L33*/ meltfnum[29] = + /*_#MELT_NEED_DBG__L33*/ + meltfnum[29] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15874,7 +17321,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:910:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L33*/ meltfnum[29]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L33*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15907,16 +17355,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_variablepat updated reusing orvariable lococc"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LOCOCC__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V82*/ meltfptr[74] = 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__V82*/ + meltfptr[74] = 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___V81*/ meltfptr[48] = /*_.MELT_DEBUG_FUN__V82*/ meltfptr[74];; + /*_._IF___V81*/ + meltfptr[48] = /*_.MELT_DEBUG_FUN__V82*/ meltfptr[74];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:910:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L34*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L34*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V82*/ meltfptr[74] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V82*/ + meltfptr[74] = 0 ; } ; } @@ -15929,7 +17381,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:910:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15938,9 +17391,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L33*/ meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L33*/ + meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V81*/ meltfptr[48] = 0 ; + /*clear*/ /*_._IF___V81*/ + meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15971,14 +17426,18 @@ meltlab_endgetargs: ; } ; - /*_._IFELSE___V65*/ meltfptr[52] = /*_.IFCPP___V70*/ meltfptr[50];; + /*_._IFELSE___V65*/ + meltfptr[52] = /*_.IFCPP___V70*/ meltfptr[50];; MELT_LOCATION("warmelt-normatch.melt:887:/ clear"); - /*clear*/ /*_.CTYP__V66*/ meltfptr[43] = 0 ; + /*clear*/ /*_.CTYP__V66*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.BXCLOCC__V67*/ meltfptr[53] = 0 ; + /*clear*/ /*_.BXCLOCC__V67*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V70*/ meltfptr[50] = 0 ; + /*clear*/ /*_.IFCPP___V70*/ + meltfptr[50] = 0 ; /*epilog*/ } ; @@ -16002,7 +17461,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V84*/ meltfptr[76] = (/*nil*/NULL);; @@ -16029,23 +17489,28 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 915; - /*_.MELT_ASSERT_FAILURE_FUN__V85*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V85*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V84*/ meltfptr[76] = /*_.MELT_ASSERT_FAILURE_FUN__V85*/ meltfptr[77];; + /*_._IFELSE___V84*/ + meltfptr[76] = /*_.MELT_ASSERT_FAILURE_FUN__V85*/ meltfptr[77];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:915:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V85*/ meltfptr[77] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V85*/ + meltfptr[77] = 0 ; } ; } ; - /*_.IFCPP___V83*/ meltfptr[75] = /*_._IFELSE___V84*/ meltfptr[76];; + /*_.IFCPP___V83*/ + meltfptr[75] = /*_._IFELSE___V84*/ meltfptr[76];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:915:/ clear"); - /*clear*/ /*_._IFELSE___V84*/ meltfptr[76] = 0 ; + /*clear*/ /*_._IFELSE___V84*/ + meltfptr[76] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16056,67 +17521,88 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:914:/ quasiblock"); - /*_.PROGN___V86*/ meltfptr[78] = /*_.IFCPP___V83*/ meltfptr[75];; + /*_.PROGN___V86*/ + meltfptr[78] = /*_.IFCPP___V83*/ meltfptr[75];; /*^compute*/ - /*_._IFELSE___V65*/ meltfptr[52] = /*_.PROGN___V86*/ meltfptr[78];; + /*_._IFELSE___V65*/ + meltfptr[52] = /*_.PROGN___V86*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:886:/ clear"); - /*clear*/ /*_.IFCPP___V83*/ meltfptr[75] = 0 ; + /*clear*/ /*_.IFCPP___V83*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V86*/ meltfptr[78] = 0 ; + /*clear*/ /*_.PROGN___V86*/ + meltfptr[78] = 0 ; } ; } ; - /*_._IFELSE___V60*/ meltfptr[58] = /*_._IFELSE___V65*/ meltfptr[52];; + /*_._IFELSE___V60*/ + meltfptr[58] = /*_._IFELSE___V65*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:880:/ clear"); - /*clear*/ /*_#IS_A__L28*/ meltfnum[26] = 0 ; + /*clear*/ /*_#IS_A__L28*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V65*/ meltfptr[52] = 0 ; + /*clear*/ /*_._IFELSE___V65*/ + meltfptr[52] = 0 ; } ; } ; - /*_._IFELSE___V47*/ meltfptr[39] = /*_._IFELSE___V60*/ meltfptr[58];; + /*_._IFELSE___V47*/ + meltfptr[39] = /*_._IFELSE___V60*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:849:/ clear"); - /*clear*/ /*_#IS_A__L25*/ meltfnum[19] = 0 ; + /*clear*/ /*_#IS_A__L25*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V60*/ meltfptr[58] = 0 ; + /*clear*/ /*_._IFELSE___V60*/ + meltfptr[58] = 0 ; } ; } ; - /*_.LET___V36*/ meltfptr[34] = /*_._IFELSE___V47*/ meltfptr[39];; + /*_.LET___V36*/ + meltfptr[34] = /*_._IFELSE___V47*/ meltfptr[39];; MELT_LOCATION("warmelt-normatch.melt:842:/ clear"); - /*clear*/ /*_.REALOCOCC__V37*/ meltfptr[25] = 0 ; + /*clear*/ /*_.REALOCOCC__V37*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.NPATVAR__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.NPATVAR__V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.PATSYM__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.PATSYM__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V42*/ meltfptr[40] = 0 ; + /*clear*/ /*_.IFCPP___V42*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L18*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L18*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V47*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IFELSE___V47*/ + meltfptr[39] = 0 ; MELT_LOCATION("warmelt-normatch.melt:839:/ quasiblock"); - /*_.PROGN___V87*/ meltfptr[79] = /*_.LET___V36*/ meltfptr[34];; + /*_.PROGN___V87*/ + meltfptr[79] = /*_.LET___V36*/ meltfptr[34];; /*^compute*/ - /*_._IFELSE___V33*/ meltfptr[29] = /*_.PROGN___V87*/ meltfptr[79];; + /*_._IFELSE___V33*/ + meltfptr[29] = /*_.PROGN___V87*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:839:/ clear"); - /*clear*/ /*_.LET___V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_.LET___V36*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V87*/ meltfptr[79] = 0 ; + /*clear*/ /*_.PROGN___V87*/ + meltfptr[79] = 0 ; } ; } @@ -16130,10 +17616,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L35*/ meltfnum[11] = + /*_#NULL__L35*/ + meltfnum[11] = (/*null*/(/*_.LOCOCC__V22*/ meltfptr[21]) == NULL);; MELT_LOCATION("warmelt-normatch.melt:921:/ cond"); - /*cond*/ if (/*_#NULL__L35*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#NULL__L35*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16153,7 +17641,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V23*/ meltfptr[22]; - /*_.CTYP__V89*/ meltfptr[74] = meltgc_send((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CTYP__V89*/ + meltfptr[74] = meltgc_send((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -16167,7 +17656,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[9])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V91*/ meltfptr[43] = + /*_.INST__V91*/ + meltfptr[43] = newobj; }; ; @@ -16195,7 +17685,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V91*/ meltfptr[43], "newly made instance"); ; - /*_.CBIND__V90*/ meltfptr[48] = /*_.INST__V91*/ meltfptr[43];; + /*_.CBIND__V90*/ + meltfptr[48] = /*_.INST__V91*/ meltfptr[43];; MELT_CHECK_SIGNAL(); ; @@ -16207,7 +17698,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[5])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V93*/ meltfptr[50] = + /*_.INST__V93*/ + meltfptr[50] = newobj; }; ; @@ -16235,7 +17727,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V93*/ meltfptr[50], "newly made instance"); ; - /*_.CLOCC__V92*/ meltfptr[53] = /*_.INST__V93*/ meltfptr[50];; + /*_.CLOCC__V92*/ + meltfptr[53] = /*_.INST__V93*/ meltfptr[50];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:935:/ cppif.then"); @@ -16256,7 +17749,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L36*/ meltfnum[29] = + /*_#MELT_NEED_DBG__L36*/ + meltfnum[29] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16265,7 +17759,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:935:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L36*/ meltfnum[29]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L36*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16302,16 +17797,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " clocc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V92*/ meltfptr[53]; - /*_.MELT_DEBUG_FUN__V95*/ meltfptr[76] = 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__V95*/ + meltfptr[76] = 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___V94*/ meltfptr[77] = /*_.MELT_DEBUG_FUN__V95*/ meltfptr[76];; + /*_._IF___V94*/ + meltfptr[77] = /*_.MELT_DEBUG_FUN__V95*/ meltfptr[76];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:935:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L37*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L37*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V95*/ meltfptr[76] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V95*/ + meltfptr[76] = 0 ; } ; } @@ -16324,7 +17823,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:935:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -16333,9 +17833,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L36*/ meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L36*/ + meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V94*/ meltfptr[77] = 0 ; + /*clear*/ /*_._IF___V94*/ + meltfptr[77] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16367,7 +17869,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:938:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCX__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[10]))) ) /*then*/ @@ -16378,7 +17881,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V24*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NCTX_SYMBCACHEMAP"); - /*_.NCTX_SYMBCACHEMAP__V96*/ meltfptr[75] = slot; + /*_.NCTX_SYMBCACHEMAP__V96*/ + meltfptr[75] = slot; }; ; } @@ -16424,7 +17928,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L38*/ meltfnum[19] = + /*_#MELT_NEED_DBG__L38*/ + meltfnum[19] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16433,7 +17938,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:940:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L38*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L38*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16474,16 +17980,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " pvarlocmap="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PVARLOCMAP__V16*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V98*/ meltfptr[52] = 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__V98*/ + meltfptr[52] = 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___V97*/ meltfptr[78] = /*_.MELT_DEBUG_FUN__V98*/ meltfptr[52];; + /*_._IF___V97*/ + meltfptr[78] = /*_.MELT_DEBUG_FUN__V98*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:940:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L39*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L39*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V98*/ meltfptr[52] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V98*/ + meltfptr[52] = 0 ; } ; } @@ -16496,7 +18006,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:940:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -16505,9 +18016,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L38*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L38*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V97*/ meltfptr[78] = 0 ; + /*clear*/ /*_._IF___V97*/ + meltfptr[78] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16524,7 +18037,8 @@ meltlab_endgetargs: /*void*/(void)0; } ; - /*clear*/ /*_._IFELSE___V88*/ meltfptr[71] = 0 ; + /*clear*/ /*_._IFELSE___V88*/ + meltfptr[71] = 0 ; /*epilog*/ } @@ -16532,13 +18046,17 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:922:/ clear"); - /*clear*/ /*_.CTYP__V89*/ meltfptr[74] = 0 ; + /*clear*/ /*_.CTYP__V89*/ + meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V90*/ meltfptr[48] = 0 ; + /*clear*/ /*_.CBIND__V90*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V92*/ meltfptr[53] = 0 ; + /*clear*/ /*_.CLOCC__V92*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.NCTX_SYMBCACHEMAP__V96*/ meltfptr[75] = 0 ; + /*clear*/ /*_.NCTX_SYMBCACHEMAP__V96*/ + meltfptr[75] = 0 ; /*epilog*/ } ; @@ -16562,7 +18080,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V100*/ meltfptr[25] = (/*nil*/NULL);; @@ -16589,23 +18108,28 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 945; - /*_.MELT_ASSERT_FAILURE_FUN__V101*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V101*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V100*/ meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V101*/ meltfptr[37];; + /*_._IFELSE___V100*/ + meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V101*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:945:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V101*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V101*/ + meltfptr[37] = 0 ; } ; } ; - /*_.IFCPP___V99*/ meltfptr[58] = /*_._IFELSE___V100*/ meltfptr[25];; + /*_.IFCPP___V99*/ + meltfptr[58] = /*_._IFELSE___V100*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:945:/ clear"); - /*clear*/ /*_._IFELSE___V100*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V100*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16616,76 +18140,101 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:944:/ quasiblock"); - /*_.PROGN___V102*/ meltfptr[38] = /*_.IFCPP___V99*/ meltfptr[58];; + /*_.PROGN___V102*/ + meltfptr[38] = /*_.IFCPP___V99*/ meltfptr[58];; /*^compute*/ - /*_._IFELSE___V88*/ meltfptr[71] = /*_.PROGN___V102*/ meltfptr[38];; + /*_._IFELSE___V88*/ + meltfptr[71] = /*_.PROGN___V102*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:921:/ clear"); - /*clear*/ /*_.IFCPP___V99*/ meltfptr[58] = 0 ; + /*clear*/ /*_.IFCPP___V99*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V102*/ meltfptr[38] = 0 ; + /*clear*/ /*_.PROGN___V102*/ + meltfptr[38] = 0 ; } ; } ; - /*_._IFELSE___V33*/ meltfptr[29] = /*_._IFELSE___V88*/ meltfptr[71];; + /*_._IFELSE___V33*/ + meltfptr[29] = /*_._IFELSE___V88*/ meltfptr[71];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:839:/ clear"); - /*clear*/ /*_#NULL__L35*/ meltfnum[11] = 0 ; + /*clear*/ /*_#NULL__L35*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V88*/ meltfptr[71] = 0 ; + /*clear*/ /*_._IFELSE___V88*/ + meltfptr[71] = 0 ; } ; } ; - /*_._IFELSE___V28*/ meltfptr[26] = /*_._IFELSE___V33*/ meltfptr[29];; + /*_._IFELSE___V28*/ + meltfptr[26] = /*_._IFELSE___V33*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:833:/ clear"); - /*clear*/ /*_#IS_A__L10*/ meltfnum[8] = 0 ; + /*clear*/ /*_#IS_A__L10*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V33*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IFELSE___V33*/ + meltfptr[29] = 0 ; } ; } ; - /*_.LET___V14*/ meltfptr[12] = /*_._IFELSE___V28*/ meltfptr[26];; + /*_.LET___V14*/ + meltfptr[12] = /*_._IFELSE___V28*/ meltfptr[26];; MELT_LOCATION("warmelt-normatch.melt:819:/ clear"); - /*clear*/ /*_.STUFFMAP__V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_.STUFFMAP__V15*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.PVARLOCMAP__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.PVARLOCMAP__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.PCTN_SRC__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.PCTN_SRC__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.PSLOC__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.PSLOC__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.SLOC__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SLOC__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.PATVAR__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.PATVAR__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.TSTUFF__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.TSTUFF__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.LOCOCC__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.LOCOCC__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.ENV__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.ENV__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.NCX__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.NCX__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTLIST__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.TESTLIST__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V28*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IFELSE___V28*/ + meltfptr[26] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:814:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { MELT_LOCATION("warmelt-normatch.melt:814:/ locexp"); @@ -16700,15 +18249,19 @@ 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*/ /*_.LET___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.LET___V14*/ + meltfptr[12] = 0 ; } ; @@ -16790,7 +18343,8 @@ meltrout_21_WARMELTmiNORMATCH_NORMPAT_JOKERPAT(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_21_WARMELTmiNORMATCH_NORMPAT_JOKERPAT fromline 1756 */ - /* classy proc frame meltrout_21_WARMELTmiNORMATCH_NORMPAT_JOKERPAT */ MeltFrame_meltrout_21_WARMELTmiNORMATCH_NORMPAT_JOKERPAT + /* classy proc frame meltrout_21_WARMELTmiNORMATCH_NORMPAT_JOKERPAT */ + MeltFrame_meltrout_21_WARMELTmiNORMATCH_NORMPAT_JOKERPAT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_21_WARMELTmiNORMATCH_NORMPAT_JOKERPAT fromline 1785*/ #if ENABLE_CHECKING @@ -16803,7 +18357,8 @@ meltrout_21_WARMELTmiNORMATCH_NORMPAT_JOKERPAT(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("NORMPAT_JOKERPAT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -16813,26 +18368,30 @@ meltrout_21_WARMELTmiNORMATCH_NORMPAT_JOKERPAT(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:958:/ 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; - /*_.NMATCH__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NMATCH__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.HDLER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.HDLER__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.HDLER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PCN__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PCN__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4])) != NULL); ; @@ -16864,7 +18423,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)) @@ -16873,7 +18433,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:959:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16910,16 +18471,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nmatch="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NMATCH__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 ""), 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 ""), 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-normatch.melt:959:/ 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 ; } ; } @@ -16932,7 +18497,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:959:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -16941,9 +18507,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*/ @@ -16973,10 +18541,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_PATTERN_JOKER_VARIABLE*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:960:/ 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);; @@ -17003,25 +18573,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 960; - /*_.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-normatch.melt:960:/ 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-normatch.melt:960:/ 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*/ @@ -17039,10 +18615,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:961:/ 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);; @@ -17069,25 +18647,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 961; - /*_.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-normatch.melt:961:/ 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-normatch.melt:961:/ 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*/ @@ -17101,7 +18685,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:958:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V11*/ meltfptr[9];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.IFCPP___V11*/ meltfptr[9];; { MELT_LOCATION("warmelt-normatch.melt:958:/ locexp"); @@ -17116,13 +18701,16 @@ 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 ; } ; @@ -17204,7 +18792,8 @@ meltrout_22_WARMELTmiNORMATCH_NORMPAT_INSTANCEPAT(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_22_WARMELTmiNORMATCH_NORMPAT_INSTANCEPAT fromline 1756 */ - /* classy proc frame meltrout_22_WARMELTmiNORMATCH_NORMPAT_INSTANCEPAT */ MeltFrame_meltrout_22_WARMELTmiNORMATCH_NORMPAT_INSTANCEPAT + /* classy proc frame meltrout_22_WARMELTmiNORMATCH_NORMPAT_INSTANCEPAT */ + MeltFrame_meltrout_22_WARMELTmiNORMATCH_NORMPAT_INSTANCEPAT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_22_WARMELTmiNORMATCH_NORMPAT_INSTANCEPAT fromline 1785*/ #if ENABLE_CHECKING @@ -17217,7 +18806,8 @@ meltrout_22_WARMELTmiNORMATCH_NORMPAT_INSTANCEPAT(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("NORMPAT_INSTANCEPAT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -17227,26 +18817,30 @@ meltrout_22_WARMELTmiNORMATCH_NORMPAT_INSTANCEPAT(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:972:/ 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; - /*_.NMATCH__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NMATCH__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.HDLER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.HDLER__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.HDLER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PCN__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PCN__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4])) != NULL); ; @@ -17278,7 +18872,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)) @@ -17287,7 +18882,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:973:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17324,16 +18920,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nmatch="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NMATCH__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 ""), 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 ""), 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-normatch.melt:973:/ 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 ; } ; } @@ -17346,7 +18946,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:973:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -17355,9 +18956,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*/ @@ -17387,10 +18990,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:974:/ 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);; @@ -17417,25 +19022,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 974; - /*_.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-normatch.melt:974:/ 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-normatch.melt:974:/ 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*/ @@ -17453,10 +19064,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_INSTANCE*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:975:/ 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);; @@ -17483,25 +19096,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 975; - /*_.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-normatch.melt:975:/ 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-normatch.melt:975:/ 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*/ @@ -17513,7 +19132,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -17524,7 +19144,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 1, "PCTN_SRC"); - /*_.PCTN_SRC__V14*/ meltfptr[12] = slot; + /*_.PCTN_SRC__V14*/ + meltfptr[12] = slot; }; ; } @@ -17535,7 +19156,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:976:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCTN_SRC__V14*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -17546,7 +19168,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCTN_SRC__V14*/ meltfptr[12]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.PSLOC__V15*/ meltfptr[5] = slot; + /*_.PSLOC__V15*/ + meltfptr[5] = slot; }; ; } @@ -17557,7 +19180,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:977:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -17568,7 +19192,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__V16*/ meltfptr[15] = slot; + /*_.SLOC__V16*/ + meltfptr[15] = slot; }; ; } @@ -17583,11 +19208,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 2, "PCTN_ENV"); - /*_.ENV__V17*/ meltfptr[16] = slot; + /*_.ENV__V17*/ + meltfptr[16] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:979:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_OBJECT*/ meltfrout->tabval[5]))) ) /*then*/ @@ -17598,7 +19225,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, "SPAT_CLASS"); - /*_.PATCLA__V18*/ meltfptr[17] = slot; + /*_.PATCLA__V18*/ + meltfptr[17] = slot; }; ; } @@ -17609,7 +19237,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:980:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_OBJECT*/ meltfrout->tabval[5]))) ) /*then*/ @@ -17620,7 +19249,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, "SPAT_FIELDS"); - /*_.PATFIELDS__V19*/ meltfptr[18] = slot; + /*_.PATFIELDS__V19*/ + meltfptr[18] = slot; }; ; } @@ -17631,9 +19261,11 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.OLDENV__V20*/ meltfptr[19] = /*_.ENV__V17*/ meltfptr[16];; + /*_.OLDENV__V20*/ + meltfptr[19] = /*_.ENV__V17*/ meltfptr[16];; MELT_LOCATION("warmelt-normatch.melt:982:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -17644,7 +19276,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 0, "PCTN_NORMCTXT"); - /*_.NCX__V21*/ meltfptr[20] = slot; + /*_.NCX__V21*/ + meltfptr[20] = slot; }; ; } @@ -17655,7 +19288,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:983:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -17666,7 +19300,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 7, "PCTN_STUFFMAP"); - /*_.STUFFMAP__V22*/ meltfptr[21] = slot; + /*_.STUFFMAP__V22*/ + meltfptr[21] = slot; }; ; } @@ -17677,15 +19312,19 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.TSTUFF__V23*/ meltfptr[22] = + /*_.TSTUFF__V23*/ + meltfptr[22] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STUFFMAP__V22*/ meltfptr[21]), (meltobject_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2]));; /*^compute*/ - /*_.TESTER__V24*/ meltfptr[23] = (/*nil*/NULL);; + /*_.TESTER__V24*/ + meltfptr[23] = (/*nil*/NULL);; /*^compute*/ - /*_.CURHDLER__V25*/ meltfptr[24] = /*_.HDLER__V4*/ meltfptr[3];; + /*_.CURHDLER__V25*/ + meltfptr[24] = /*_.HDLER__V4*/ meltfptr[3];; MELT_LOCATION("warmelt-normatch.melt:987:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -17696,7 +19335,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 9, "PCTN_TESTS"); - /*_.TESTLIST__V26*/ meltfptr[25] = slot; + /*_.TESTLIST__V26*/ + meltfptr[25] = slot; }; ; } @@ -17720,7 +19360,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V21*/ meltfptr[20]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V16*/ meltfptr[15]; - /*_.NPATCLA__V27*/ meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.PATCLA__V18*/ meltfptr[17]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NPATCLA__V27*/ + meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.PATCLA__V18*/ meltfptr[17]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -17733,10 +19374,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PATCLA__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normatch.melt:992:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V29*/ meltfptr[28] = (/*nil*/NULL);; @@ -17763,25 +19406,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 992; - /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29] = 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__V30*/ + meltfptr[29] = 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___V29*/ meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29];; + /*_._IFELSE___V29*/ + meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:992:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/ + meltfptr[29] = 0 ; } ; } ; - /*_.IFCPP___V28*/ meltfptr[27] = /*_._IFELSE___V29*/ meltfptr[28];; + /*_.IFCPP___V28*/ + meltfptr[27] = /*_._IFELSE___V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:992:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_._IFELSE___V29*/ + meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17821,7 +19470,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ 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)) @@ -17830,7 +19480,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:996:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17863,16 +19514,20 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ argtab[3].meltbp_cstring = "normpat_instancepat loop tstuff"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TSTUFF__V23*/ meltfptr[22]; - /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 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__V34*/ + meltfptr[33] = 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___V33*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];; + /*_._IF___V33*/ + meltfptr[32] = /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:996:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V34*/ + meltfptr[33] = 0 ; } ; } @@ -17885,7 +19540,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:996:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -17894,9 +19550,11 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V33*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17920,7 +19578,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:999:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NORMTESTER_INSTANCE*/ meltfrout->tabval[8]))) ) /*then*/ @@ -17931,7 +19590,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TSTUFF__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NTINST_CLASS"); - /*_.NTINST_CLASS__V35*/ meltfptr[33] = slot; + /*_.NTINST_CLASS__V35*/ + meltfptr[33] = slot; }; ; } @@ -17942,10 +19602,12 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ } ; /*^compute*/ - /*_#eqeq__L8*/ meltfnum[1] = + /*_#eqeq__L8*/ + meltfnum[1] = ((/*_.NTINST_CLASS__V35*/ meltfptr[33]) == (/*_.PATCLA__V18*/ meltfptr[17]));; MELT_LOCATION("warmelt-normatch.melt:999:/ cond"); - /*cond*/ if (/*_#eqeq__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#eqeq__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17953,12 +19615,14 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1000:/ compute"); - /*_.TESTER__V24*/ meltfptr[23] = /*_.SETQ___V37*/ meltfptr[36] = /*_.TSTUFF__V23*/ meltfptr[22];; + /*_.TESTER__V24*/ + meltfptr[23] = /*_.SETQ___V37*/ meltfptr[36] = /*_.TSTUFF__V23*/ meltfptr[22];; MELT_LOCATION("warmelt-normatch.melt:1001:/ quasiblock"); /*^compute*/ - /*_.LOOPSTUFF__V32*/ meltfptr[28] = /*reallynil*/ NULL ;; + /*_.LOOPSTUFF__V32*/ + meltfptr[28] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -17972,7 +19636,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_.SETQ___V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.SETQ___V37*/ + meltfptr[36] = 0 ; } ; } @@ -17986,10 +19651,12 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[0] = + /*_#IS_A__L9*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-normatch.melt:1003:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17997,7 +19664,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1004:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[9]))) ) /*then*/ @@ -18008,7 +19676,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TSTUFF__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NTEST_ELSE"); - /*_.NTEST_ELSE__V39*/ meltfptr[38] = slot; + /*_.NTEST_ELSE__V39*/ + meltfptr[38] = slot; }; ; } @@ -18019,12 +19688,14 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ } ; MELT_LOCATION("warmelt-normatch.melt:1004:/ compute"); - /*_.TSTUFF__V23*/ meltfptr[22] = /*_.SETQ___V40*/ meltfptr[39] = /*_.NTEST_ELSE__V39*/ meltfptr[38];; + /*_.TSTUFF__V23*/ + meltfptr[22] = /*_.SETQ___V40*/ meltfptr[39] = /*_.NTEST_ELSE__V39*/ meltfptr[38];; MELT_LOCATION("warmelt-normatch.melt:1006:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V42*/ meltfptr[41] = + /*newclosure*/ /*_.LAMBDA___V42*/ + meltfptr[41] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ meltfrout->tabval[12])), (1)); ; /*^putclosedv*/ @@ -18033,27 +19704,36 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V42*/ meltfptr[41]))); ((meltclosure_ptr_t)/*_.LAMBDA___V42*/ meltfptr[41])->tabval[0] = (melt_ptr_t)(/*_.TSTUFF__V23*/ meltfptr[22]); ; - /*_.LAMBDA___V41*/ meltfptr[40] = /*_.LAMBDA___V42*/ meltfptr[41];; + /*_.LAMBDA___V41*/ + meltfptr[40] = /*_.LAMBDA___V42*/ meltfptr[41];; MELT_LOCATION("warmelt-normatch.melt:1005:/ compute"); - /*_.CURHDLER__V25*/ meltfptr[24] = /*_.SETQ___V43*/ meltfptr[42] = /*_.LAMBDA___V41*/ meltfptr[40];; + /*_.CURHDLER__V25*/ + meltfptr[24] = /*_.SETQ___V43*/ meltfptr[42] = /*_.LAMBDA___V41*/ meltfptr[40];; MELT_LOCATION("warmelt-normatch.melt:1003:/ quasiblock"); - /*_.PROGN___V44*/ meltfptr[43] = /*_.SETQ___V43*/ meltfptr[42];; + /*_.PROGN___V44*/ + meltfptr[43] = /*_.SETQ___V43*/ meltfptr[42];; /*^compute*/ - /*_._IFELSE___V38*/ meltfptr[36] = /*_.PROGN___V44*/ meltfptr[43];; + /*_._IFELSE___V38*/ + meltfptr[36] = /*_.PROGN___V44*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1003:/ clear"); - /*clear*/ /*_.NTEST_ELSE__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.NTEST_ELSE__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.SETQ___V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.LAMBDA___V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.SETQ___V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.PROGN___V44*/ + meltfptr[43] = 0 ; } ; } @@ -18068,7 +19748,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ MELT_LOCATION("warmelt-normatch.melt:1018:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PATCLA__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[7]))) ) /*then*/ @@ -18079,7 +19760,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PATCLA__V18*/ meltfptr[17]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); - /*_.CLASS_FIELDS__V45*/ meltfptr[38] = slot; + /*_.CLASS_FIELDS__V45*/ + meltfptr[38] = slot; }; ; } @@ -18090,19 +19772,23 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ } ; /*^compute*/ - /*_#MULTIPLE_LENGTH__L10*/ meltfnum[9] = + /*_#MULTIPLE_LENGTH__L10*/ + meltfnum[9] = (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V45*/ meltfptr[38])));; /*^compute*/ - /*_.NEWFIELDLOCS__V46*/ meltfptr[39] = + /*_.NEWFIELDLOCS__V46*/ + meltfptr[39] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[13])), (/*_#MULTIPLE_LENGTH__L10*/ meltfnum[9])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_.MAKE_LIST__V47*/ meltfptr[40] = + /*_.MAKE_LIST__V47*/ + meltfptr[40] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[14]))));; /*^compute*/ - /*_.MAKE_LIST__V48*/ meltfptr[42] = + /*_.MAKE_LIST__V48*/ + meltfptr[42] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[14]))));; MELT_LOCATION("warmelt-normatch.melt:1021:/ quasiblock"); @@ -18112,7 +19798,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMTESTER_INSTANCE*/ meltfrout->tabval[8])), (9), "CLASS_NORMTESTER_INSTANCE"); - /*_.INST__V50*/ meltfptr[49] = + /*_.INST__V50*/ + meltfptr[49] = newobj; }; ; @@ -18160,7 +19847,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ melt_dbgtrace_written_object (/*_.INST__V50*/ meltfptr[49], "newly made instance"); ; - /*_.NEWTESTER__V49*/ meltfptr[43] = /*_.INST__V50*/ meltfptr[49];; + /*_.NEWTESTER__V49*/ + meltfptr[43] = /*_.INST__V50*/ meltfptr[49];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1032:/ cppif.then"); @@ -18181,7 +19869,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = + /*_#MELT_NEED_DBG__L11*/ + meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18190,7 +19879,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1032:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18223,16 +19913,20 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ argtab[3].meltbp_cstring = "normpat_instancepat newtester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTESTER__V49*/ meltfptr[43]; - /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51] = 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[51] = 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[50] = /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51];; + /*_._IF___V51*/ + meltfptr[50] = /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1032:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V52*/ + meltfptr[51] = 0 ; } ; } @@ -18245,7 +19939,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1032:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18254,9 +19949,11 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IF___V51*/ + meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18286,11 +19983,13 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.REGISTER_NEW_NORMTESTER__V53*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_NEW_NORMTESTER*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NEWTESTER__V49*/ meltfptr[43]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.REGISTER_NEW_NORMTESTER__V53*/ + meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_NEW_NORMTESTER*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NEWTESTER__V49*/ meltfptr[43]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normatch.melt:1034:/ compute"); - /*_.TESTER__V24*/ meltfptr[23] = /*_.SETQ___V54*/ meltfptr[50] = /*_.NEWTESTER__V49*/ meltfptr[43];; + /*_.TESTER__V24*/ + meltfptr[23] = /*_.SETQ___V54*/ meltfptr[50] = /*_.NEWTESTER__V49*/ meltfptr[43];; { MELT_LOCATION("warmelt-normatch.melt:1035:/ locexp"); @@ -18317,7 +20016,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L13*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18326,7 +20026,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1036:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18359,16 +20060,20 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ argtab[3].meltbp_cstring = "normpat_instancepat before calling curhdler"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURHDLER__V25*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55] = 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__V56*/ + meltfptr[55] = 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___V55*/ meltfptr[54] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55];; + /*_._IF___V55*/ + meltfptr[54] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1036:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ + meltfptr[55] = 0 ; } ; } @@ -18381,7 +20086,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1036:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18390,9 +20096,11 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_._IF___V55*/ + meltfptr[54] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18441,7 +20149,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ 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)) @@ -18450,7 +20159,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1038:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L15*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18483,16 +20193,20 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ argtab[3].meltbp_cstring = "normpat_instancepat after calling curhdler"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURHDLER__V25*/ meltfptr[24]; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V58*/ meltfptr[54] = /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58];; + /*_._IF___V58*/ + meltfptr[54] = /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1038:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V59*/ + meltfptr[58] = 0 ; } ; } @@ -18505,7 +20219,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1038:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18514,9 +20229,11 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V58*/ meltfptr[54] = 0 ; + /*clear*/ /*_._IF___V58*/ + meltfptr[54] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18540,7 +20257,8 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ /*^compute*/ - /*_.LOOPSTUFF__V32*/ meltfptr[28] = /*reallynil*/ NULL ;; + /*_.LOOPSTUFF__V32*/ + meltfptr[28] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -18550,23 +20268,32 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ ; MELT_LOCATION("warmelt-normatch.melt:1014:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V45*/ meltfptr[38] = 0 ; + /*clear*/ /*_.CLASS_FIELDS__V45*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWFIELDLOCS__V46*/ meltfptr[39] = 0 ; + /*clear*/ /*_.NEWFIELDLOCS__V46*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V47*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MAKE_LIST__V47*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V48*/ meltfptr[42] = 0 ; + /*clear*/ /*_.MAKE_LIST__V48*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWTESTER__V49*/ meltfptr[43] = 0 ; + /*clear*/ /*_.NEWTESTER__V49*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.REGISTER_NEW_NORMTESTER__V53*/ meltfptr[51] = 0 ; + /*clear*/ /*_.REGISTER_NEW_NORMTESTER__V53*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V54*/ meltfptr[50] = 0 ; + /*clear*/ /*_.SETQ___V54*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.CURHDLER__V57*/ meltfptr[55] = 0 ; + /*clear*/ /*_.CURHDLER__V57*/ + meltfptr[55] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1013:/ quasiblock"); @@ -18575,13 +20302,16 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ ; } ; - /*_._IFELSE___V36*/ meltfptr[32] = /*_._IFELSE___V38*/ meltfptr[36];; + /*_._IFELSE___V36*/ + meltfptr[32] = /*_._IFELSE___V38*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:999:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V38*/ meltfptr[36] = 0 ; + /*clear*/ /*_._IFELSE___V38*/ + meltfptr[36] = 0 ; } ; } @@ -18592,18 +20322,22 @@ meltlabloop_LOOPSTUFF_2:;/*^loopbody*/ /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:994:/ clear"); - /*clear*/ /*_.NTINST_CLASS__V35*/ meltfptr[33] = 0 ; + /*clear*/ /*_.NTINST_CLASS__V35*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#eqeq__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V36*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IFELSE___V36*/ + meltfptr[32] = 0 ; } ; ; goto meltlabloop_LOOPSTUFF_2; meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*loopepilog*/ - /*_.FOREVER___V31*/ meltfptr[29] = /*_.LOOPSTUFF__V32*/ meltfptr[28];; + /*_.FOREVER___V31*/ + meltfptr[29] = /*_.LOOPSTUFF__V32*/ meltfptr[28];; } ; @@ -18626,7 +20360,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L17*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18635,7 +20370,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1043:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L17*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18676,16 +20412,20 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[7].meltbp_cstring = " patcla="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PATCLA__V18*/ meltfptr[17]; - /*_.MELT_DEBUG_FUN__V61*/ meltfptr[54] = 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__V61*/ + meltfptr[54] = 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___V60*/ meltfptr[58] = /*_.MELT_DEBUG_FUN__V61*/ meltfptr[54];; + /*_._IF___V60*/ + meltfptr[58] = /*_.MELT_DEBUG_FUN__V61*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1043:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L18*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V61*/ meltfptr[54] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V61*/ + meltfptr[54] = 0 ; } ; } @@ -18698,7 +20438,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1043:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18707,9 +20448,11 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V60*/ meltfptr[58] = 0 ; + /*clear*/ /*_._IF___V60*/ + meltfptr[58] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18733,7 +20476,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTER__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[9]))) ) /*then*/ @@ -18744,7 +20488,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TESTER__V24*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NTEST_LOCCLIST"); - /*_.TESTLOCCL__V62*/ meltfptr[38] = slot; + /*_.TESTLOCCL__V62*/ + meltfptr[38] = slot; }; ; } @@ -18765,7 +20510,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[16])), (1), "CLASS_REFERENCE"); - /*_.INST__V64*/ meltfptr[40] = + /*_.INST__V64*/ + meltfptr[40] = newobj; }; ; @@ -18778,15 +20524,18 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V64*/ meltfptr[40], "newly made instance"); ; - /*_.TESTERCONT__V63*/ meltfptr[39] = /*_.INST__V64*/ meltfptr[40];; + /*_.TESTERCONT__V63*/ + meltfptr[39] = /*_.INST__V64*/ meltfptr[40];; MELT_LOCATION("warmelt-normatch.melt:1051:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V66*/ meltfptr[43] = + /*newclosure*/ /*_.LAMBDA___V66*/ + meltfptr[43] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ meltfrout->tabval[21])), (0)); ; - /*_.LAMBDA___V65*/ meltfptr[42] = /*_.LAMBDA___V66*/ meltfptr[43];; + /*_.LAMBDA___V65*/ + meltfptr[42] = /*_.LAMBDA___V66*/ meltfptr[43];; MELT_CHECK_SIGNAL(); ; @@ -18799,7 +20548,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V65*/ meltfptr[42]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[13]); - /*_.SORTEDPATFIELDS__V67*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.PATFIELDS__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SORTEDPATFIELDS__V67*/ + meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.PATFIELDS__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -18822,7 +20572,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L19*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L19*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18831,7 +20582,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1069:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18868,16 +20620,20 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[5].meltbp_cstring = " sortedpatfields="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SORTEDPATFIELDS__V67*/ meltfptr[51]; - /*_.MELT_DEBUG_FUN__V69*/ meltfptr[55] = 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[55] = 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[50] = /*_.MELT_DEBUG_FUN__V69*/ meltfptr[55];; + /*_._IF___V68*/ + meltfptr[50] = /*_.MELT_DEBUG_FUN__V69*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1069:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V69*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V69*/ + meltfptr[55] = 0 ; } ; } @@ -18890,7 +20646,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1069:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18899,9 +20656,11 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V68*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IF___V68*/ + meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18931,10 +20690,12 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L21*/ meltfnum[1] = + /*_#IS_LIST__L21*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.TESTLOCCL__V62*/ meltfptr[38])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normatch.melt:1070:/ cond"); - /*cond*/ if (/*_#IS_LIST__L21*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L21*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V71*/ meltfptr[33] = (/*nil*/NULL);; @@ -18961,25 +20722,31 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1070; - /*_.MELT_ASSERT_FAILURE_FUN__V72*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V72*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V71*/ meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V72*/ meltfptr[32];; + /*_._IFELSE___V71*/ + meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V72*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1070:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V72*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V72*/ + meltfptr[32] = 0 ; } ; } ; - /*_.IFCPP___V70*/ meltfptr[36] = /*_._IFELSE___V71*/ meltfptr[33];; + /*_.IFCPP___V70*/ + meltfptr[36] = /*_._IFELSE___V71*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1070:/ clear"); - /*clear*/ /*_#IS_LIST__L21*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L21*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V71*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IFELSE___V71*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19019,7 +20786,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L23*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L23*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19028,7 +20796,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1074:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L23*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19065,16 +20834,20 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[5].meltbp_cstring = " testercont="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.TESTERCONT__V63*/ meltfptr[39]; - /*_.MELT_DEBUG_FUN__V75*/ meltfptr[55] = 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__V75*/ + meltfptr[55] = 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___V74*/ meltfptr[58] = /*_.MELT_DEBUG_FUN__V75*/ meltfptr[55];; + /*_._IF___V74*/ + meltfptr[58] = /*_.MELT_DEBUG_FUN__V75*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1074:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L24*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V75*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V75*/ + meltfptr[55] = 0 ; } ; } @@ -19087,7 +20860,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1074:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19096,9 +20870,11 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L23*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V74*/ meltfptr[58] = 0 ; + /*clear*/ /*_._IF___V74*/ + meltfptr[58] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19128,10 +20904,12 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L25*/ meltfnum[9] = + /*_#IS_A__L25*/ + meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.CURPATF__V73*/ meltfptr[54]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[22])));; MELT_LOCATION("warmelt-normatch.melt:1075:/ cond"); - /*cond*/ if (/*_#IS_A__L25*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#IS_A__L25*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V77*/ meltfptr[32] = (/*nil*/NULL);; @@ -19158,25 +20936,31 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1075; - /*_.MELT_ASSERT_FAILURE_FUN__V78*/ meltfptr[33] = 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__V78*/ + meltfptr[33] = 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___V77*/ meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V78*/ meltfptr[33];; + /*_._IFELSE___V77*/ + meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V78*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1075:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V78*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V78*/ + meltfptr[33] = 0 ; } ; } ; - /*_.IFCPP___V76*/ meltfptr[50] = /*_._IFELSE___V77*/ meltfptr[32];; + /*_.IFCPP___V76*/ + meltfptr[50] = /*_._IFELSE___V77*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1075:/ clear"); - /*clear*/ /*_#IS_A__L25*/ meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L25*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V77*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IFELSE___V77*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19188,7 +20972,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPATF__V73*/ meltfptr[54]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -19199,7 +20984,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPATF__V73*/ meltfptr[54]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.FLOC__V79*/ meltfptr[55] = slot; + /*_.FLOC__V79*/ + meltfptr[55] = slot; }; ; } @@ -19210,7 +20996,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ } ; MELT_LOCATION("warmelt-normatch.melt:1077:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPATF__V73*/ meltfptr[54]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[22]))) ) /*then*/ @@ -19221,7 +21008,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPATF__V73*/ meltfptr[54]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SPAF_FIELD"); - /*_.CURFLD__V80*/ meltfptr[58] = slot; + /*_.CURFLD__V80*/ + meltfptr[58] = slot; }; ; } @@ -19232,7 +21020,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ } ; MELT_LOCATION("warmelt-normatch.melt:1078:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPATF__V73*/ meltfptr[54]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[22]))) ) /*then*/ @@ -19243,7 +21032,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPATF__V73*/ meltfptr[54]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SPAF_PATTERN"); - /*_.CURSUBPAT__V81*/ meltfptr[33] = slot; + /*_.CURSUBPAT__V81*/ + meltfptr[33] = slot; }; ; } @@ -19254,7 +21044,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ } ; MELT_LOCATION("warmelt-normatch.melt:1079:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V80*/ meltfptr[58]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[23]))) ) /*then*/ @@ -19265,7 +21056,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLD__V80*/ meltfptr[58]) /*=obj*/; melt_object_get_field(slot,obj, 2, "FLD_OWNCLASS"); - /*_.CURFLDCLA__V82*/ meltfptr[32] = slot; + /*_.CURFLDCLA__V82*/ + meltfptr[32] = slot; }; ; } @@ -19279,7 +21071,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V84*/ meltfptr[83] = + /*newclosure*/ /*_.LAMBDA___V84*/ + meltfptr[83] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_29*/ meltfrout->tabval[29])), (1)); ; /*^putclosedv*/ @@ -19288,7 +21081,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V84*/ meltfptr[83]))); ((meltclosure_ptr_t)/*_.LAMBDA___V84*/ meltfptr[83])->tabval[0] = (melt_ptr_t)(/*_.TESTERCONT__V63*/ meltfptr[39]); ; - /*_.SUBHDLER__V83*/ meltfptr[82] = /*_.LAMBDA___V84*/ meltfptr[83];; + /*_.SUBHDLER__V83*/ + meltfptr[82] = /*_.LAMBDA___V84*/ meltfptr[83];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1093:/ cppif.then"); @@ -19309,7 +21103,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L26*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L26*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19318,7 +21113,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1093:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L26*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19351,16 +21147,20 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_instancepat curfld"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURFLD__V80*/ meltfptr[58]; - /*_.MELT_DEBUG_FUN__V86*/ 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__V86*/ + 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___V85*/ meltfptr[84] = /*_.MELT_DEBUG_FUN__V86*/ meltfptr[85];; + /*_._IF___V85*/ + meltfptr[84] = /*_.MELT_DEBUG_FUN__V86*/ meltfptr[85];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1093:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L27*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V86*/ meltfptr[85] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V86*/ + meltfptr[85] = 0 ; } ; } @@ -19373,7 +21173,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1093:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19382,9 +21183,11 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L26*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V85*/ meltfptr[84] = 0 ; + /*clear*/ /*_._IF___V85*/ + meltfptr[84] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19407,10 +21210,12 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L28*/ meltfnum[11] = + /*_#eqeq__L28*/ + meltfnum[11] = ((/*_.CURFLDCLA__V82*/ meltfptr[32]) == (/*_.PATCLA__V18*/ meltfptr[17]));; MELT_LOCATION("warmelt-normatch.melt:1094:/ cond"); - /*cond*/ if (/*_#eqeq__L28*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#eqeq__L28*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V87*/ meltfptr[85] = (/*nil*/NULL);; @@ -19426,10 +21231,12 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#SUBCLASS_OF__L29*/ meltfnum[9] = + /*_#SUBCLASS_OF__L29*/ + meltfnum[9] = melt_is_subclass_of((meltobject_ptr_t)(/*_.PATCLA__V18*/ meltfptr[17]), (meltobject_ptr_t)(/*_.CURFLDCLA__V82*/ meltfptr[32]));; MELT_LOCATION("warmelt-normatch.melt:1095:/ cond"); - /*cond*/ if (/*_#SUBCLASS_OF__L29*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#SUBCLASS_OF__L29*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V88*/ meltfptr[84] = (/*nil*/NULL);; @@ -19443,7 +21250,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1096:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V80*/ meltfptr[58]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[30]))) ) /*then*/ @@ -19454,7 +21262,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLD__V80*/ meltfptr[58]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V89*/ meltfptr[88] = slot; + /*_.NAMED_NAME__V89*/ + meltfptr[88] = slot; }; ; } @@ -19476,18 +21285,22 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1095:/ clear"); - /*clear*/ /*_.NAMED_NAME__V89*/ meltfptr[88] = 0 ; + /*clear*/ /*_.NAMED_NAME__V89*/ + meltfptr[88] = 0 ; } ; } ; - /*_._IFELSE___V87*/ meltfptr[85] = /*_._IFELSE___V88*/ meltfptr[84];; + /*_._IFELSE___V87*/ + meltfptr[85] = /*_._IFELSE___V88*/ meltfptr[84];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1094:/ clear"); - /*clear*/ /*_#SUBCLASS_OF__L29*/ meltfnum[9] = 0 ; + /*clear*/ /*_#SUBCLASS_OF__L29*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V88*/ meltfptr[84] = 0 ; + /*clear*/ /*_._IFELSE___V88*/ + meltfptr[84] = 0 ; } ; } @@ -19512,7 +21325,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L30*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L30*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19521,7 +21335,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1097:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L30*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L30*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19554,16 +21369,20 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_instancepat before normal_pattern cursubpat"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURSUBPAT__V81*/ meltfptr[33]; - /*_.MELT_DEBUG_FUN__V91*/ meltfptr[84] = 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__V91*/ + meltfptr[84] = 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___V90*/ meltfptr[88] = /*_.MELT_DEBUG_FUN__V91*/ meltfptr[84];; + /*_._IF___V90*/ + meltfptr[88] = /*_.MELT_DEBUG_FUN__V91*/ meltfptr[84];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1097:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L31*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L31*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V91*/ meltfptr[84] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V91*/ + meltfptr[84] = 0 ; } ; } @@ -19576,7 +21395,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1097:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19585,9 +21405,11 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L30*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L30*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V90*/ meltfptr[88] = 0 ; + /*clear*/ /*_._IF___V90*/ + meltfptr[88] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19610,7 +21432,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_LOCATION("warmelt-normatch.melt:1098:/ quasiblock"); - /*_.CURLOCCL__V92*/ meltfptr[84] = (/*nil*/NULL);; + /*_.CURLOCCL__V92*/ + meltfptr[84] = (/*nil*/NULL);; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1100:/ cppif.then"); @@ -19631,7 +21454,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L32*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L32*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19640,7 +21464,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1100:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L32*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L32*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19673,16 +21498,20 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_instancepat scanning testloccl"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TESTLOCCL__V62*/ meltfptr[38]; - /*_.MELT_DEBUG_FUN__V94*/ meltfptr[93] = 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__V94*/ + meltfptr[93] = 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___V93*/ meltfptr[88] = /*_.MELT_DEBUG_FUN__V94*/ meltfptr[93];; + /*_._IF___V93*/ + meltfptr[88] = /*_.MELT_DEBUG_FUN__V94*/ meltfptr[93];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1100:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L33*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L33*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V94*/ meltfptr[93] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V94*/ + meltfptr[93] = 0 ; } ; } @@ -19695,7 +21524,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1100:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19704,9 +21534,11 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L32*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L32*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V93*/ meltfptr[88] = 0 ; + /*clear*/ /*_._IF___V93*/ + meltfptr[88] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19746,10 +21578,12 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L34*/ meltfnum[0] = + /*_#IS_A__L34*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.TESTLOCSY__V96*/ meltfptr[88]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[31])));; MELT_LOCATION("warmelt-normatch.melt:1105:/ cond"); - /*cond*/ if (/*_#IS_A__L34*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L34*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V98*/ meltfptr[97] = (/*nil*/NULL);; @@ -19776,25 +21610,31 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1105; - /*_.MELT_ASSERT_FAILURE_FUN__V99*/ meltfptr[98] = 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__V99*/ + meltfptr[98] = 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___V98*/ meltfptr[97] = /*_.MELT_ASSERT_FAILURE_FUN__V99*/ meltfptr[98];; + /*_._IFELSE___V98*/ + meltfptr[97] = /*_.MELT_ASSERT_FAILURE_FUN__V99*/ meltfptr[98];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1105:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V99*/ meltfptr[98] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V99*/ + meltfptr[98] = 0 ; } ; } ; - /*_.IFCPP___V97*/ meltfptr[96] = /*_._IFELSE___V98*/ meltfptr[97];; + /*_.IFCPP___V97*/ + meltfptr[96] = /*_._IFELSE___V98*/ meltfptr[97];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1105:/ clear"); - /*clear*/ /*_#IS_A__L34*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L34*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V98*/ meltfptr[97] = 0 ; + /*clear*/ /*_._IFELSE___V98*/ + meltfptr[97] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19806,7 +21646,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1107:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTLOCSY__V96*/ meltfptr[88]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ meltfrout->tabval[32]))) ) /*then*/ @@ -19817,7 +21658,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TESTLOCSY__V96*/ meltfptr[88]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NOCC_BIND"); - /*_.NOCC_BIND__V100*/ meltfptr[98] = slot; + /*_.NOCC_BIND__V100*/ + meltfptr[98] = slot; }; ; } @@ -19828,7 +21670,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ } ; MELT_LOCATION("warmelt-normatch.melt:1107:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NOCC_BIND__V100*/ meltfptr[98]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ meltfrout->tabval[33]))) ) /*then*/ @@ -19839,7 +21682,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NOCC_BIND__V100*/ meltfptr[98]) /*=obj*/; melt_object_get_field(slot,obj, 2, "LETBIND_EXPR"); - /*_.LETBIND_EXPR__V101*/ meltfptr[97] = slot; + /*_.LETBIND_EXPR__V101*/ + meltfptr[97] = slot; }; ; } @@ -19850,7 +21694,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ } ; MELT_LOCATION("warmelt-normatch.melt:1107:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.LETBIND_EXPR__V101*/ meltfptr[97]), (melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ meltfrout->tabval[34]))) ) /*then*/ @@ -19861,7 +21706,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LETBIND_EXPR__V101*/ meltfptr[97]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NUGET_FIELD"); - /*_.NUGET_FIELD__V102*/ meltfptr[101] = slot; + /*_.NUGET_FIELD__V102*/ + meltfptr[101] = slot; }; ; } @@ -19872,10 +21718,12 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ } ; /*^compute*/ - /*_#eqeq__L35*/ meltfnum[1] = + /*_#eqeq__L35*/ + meltfnum[1] = ((/*_.CURFLD__V80*/ meltfptr[58]) == (/*_.NUGET_FIELD__V102*/ meltfptr[101]));; MELT_LOCATION("warmelt-normatch.melt:1106:/ cond"); - /*cond*/ if (/*_#eqeq__L35*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#eqeq__L35*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19883,23 +21731,30 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1109:/ compute"); - /*_.TESTPAIR__V95*/ meltfptr[93] = /*_.SETQ___V104*/ meltfptr[103] = (/*nil*/NULL);; + /*_.TESTPAIR__V95*/ + meltfptr[93] = /*_.SETQ___V104*/ meltfptr[103] = (/*nil*/NULL);; MELT_LOCATION("warmelt-normatch.melt:1110:/ compute"); - /*_.CURLOCCL__V92*/ meltfptr[84] = /*_.SETQ___V105*/ meltfptr[104] = /*_.TESTLOCSY__V96*/ meltfptr[88];; + /*_.CURLOCCL__V92*/ + meltfptr[84] = /*_.SETQ___V105*/ meltfptr[104] = /*_.TESTLOCSY__V96*/ meltfptr[88];; MELT_LOCATION("warmelt-normatch.melt:1108:/ quasiblock"); - /*_.PROGN___V106*/ meltfptr[105] = /*_.SETQ___V105*/ meltfptr[104];; + /*_.PROGN___V106*/ + meltfptr[105] = /*_.SETQ___V105*/ meltfptr[104];; /*^compute*/ - /*_._IF___V103*/ meltfptr[102] = /*_.PROGN___V106*/ meltfptr[105];; + /*_._IF___V103*/ + meltfptr[102] = /*_.PROGN___V106*/ meltfptr[105];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1106:/ clear"); - /*clear*/ /*_.SETQ___V104*/ meltfptr[103] = 0 ; + /*clear*/ /*_.SETQ___V104*/ + meltfptr[103] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V105*/ meltfptr[104] = 0 ; + /*clear*/ /*_.SETQ___V105*/ + meltfptr[104] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V106*/ meltfptr[105] = 0 ; + /*clear*/ /*_.PROGN___V106*/ + meltfptr[105] = 0 ; } ; } @@ -19911,27 +21766,36 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ ; } /* end foreach_pair_component_in_list meltcit2__EACHLIST */ /*_.TESTPAIR__V95*/ meltfptr[93] = NULL; - /*_.TESTLOCSY__V96*/ meltfptr[88] = NULL; + /*_.TESTLOCSY__V96*/ + meltfptr[88] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:1102:/ clear"); - /*clear*/ /*_.TESTPAIR__V95*/ meltfptr[93] = 0 ; + /*clear*/ /*_.TESTPAIR__V95*/ + meltfptr[93] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTLOCSY__V96*/ meltfptr[88] = 0 ; + /*clear*/ /*_.TESTLOCSY__V96*/ + meltfptr[88] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V97*/ meltfptr[96] = 0 ; + /*clear*/ /*_.IFCPP___V97*/ + meltfptr[96] = 0 ; /*^clear*/ - /*clear*/ /*_.NOCC_BIND__V100*/ meltfptr[98] = 0 ; + /*clear*/ /*_.NOCC_BIND__V100*/ + meltfptr[98] = 0 ; /*^clear*/ - /*clear*/ /*_.LETBIND_EXPR__V101*/ meltfptr[97] = 0 ; + /*clear*/ /*_.LETBIND_EXPR__V101*/ + meltfptr[97] = 0 ; /*^clear*/ - /*clear*/ /*_.NUGET_FIELD__V102*/ meltfptr[101] = 0 ; + /*clear*/ /*_.NUGET_FIELD__V102*/ + meltfptr[101] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L35*/ meltfnum[1] = 0 ; + /*clear*/ /*_#eqeq__L35*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V103*/ meltfptr[102] = 0 ; + /*clear*/ /*_._IF___V103*/ + meltfptr[102] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -19954,7 +21818,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L36*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L36*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19963,7 +21828,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1112:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L36*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L36*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19996,16 +21862,20 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_instancepat got curloccl"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURLOCCL__V92*/ meltfptr[84]; - /*_.MELT_DEBUG_FUN__V108*/ meltfptr[104] = 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__V108*/ + meltfptr[104] = 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___V107*/ meltfptr[103] = /*_.MELT_DEBUG_FUN__V108*/ meltfptr[104];; + /*_._IF___V107*/ + meltfptr[103] = /*_.MELT_DEBUG_FUN__V108*/ meltfptr[104];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1112:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L37*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L37*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V108*/ meltfptr[104] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V108*/ + meltfptr[104] = 0 ; } ; } @@ -20018,7 +21888,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1112:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20027,9 +21898,11 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L36*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L36*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V107*/ meltfptr[103] = 0 ; + /*clear*/ /*_._IF___V107*/ + meltfptr[103] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20052,10 +21925,12 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#NULL__L38*/ meltfnum[0] = + /*_#NULL__L38*/ + meltfnum[0] = (/*null*/(/*_.CURLOCCL__V92*/ meltfptr[84]) == NULL);; MELT_LOCATION("warmelt-normatch.melt:1114:/ cond"); - /*cond*/ if (/*_#NULL__L38*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#NULL__L38*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20066,7 +21941,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_LOCATION("warmelt-normatch.melt:1116:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V80*/ meltfptr[58]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[30]))) ) /*then*/ @@ -20077,7 +21953,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLD__V80*/ meltfptr[58]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V111*/ meltfptr[103] = slot; + /*_.NAMED_NAME__V111*/ + meltfptr[103] = slot; }; ; } @@ -20107,7 +21984,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ meltfrout->tabval[34])), (3), "CLASS_NREP_UNSAFE_GET_FIELD"); - /*_.INST__V114*/ meltfptr[113] = + /*_.INST__V114*/ + meltfptr[113] = newobj; }; ; @@ -20130,7 +22008,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V114*/ meltfptr[113], "newly made instance"); ; - /*_.NFLEXP__V113*/ meltfptr[112] = /*_.INST__V114*/ meltfptr[113];; + /*_.NFLEXP__V113*/ + meltfptr[112] = /*_.INST__V114*/ meltfptr[113];; MELT_CHECK_SIGNAL(); ; @@ -20142,7 +22021,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[36])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V116*/ meltfptr[115] = + /*_.INST__V116*/ + meltfptr[115] = newobj; }; ; @@ -20170,7 +22050,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V116*/ meltfptr[115], "newly made instance"); ; - /*_.NEWBIND__V115*/ meltfptr[114] = /*_.INST__V116*/ meltfptr[115];; + /*_.NEWBIND__V115*/ + meltfptr[114] = /*_.INST__V116*/ meltfptr[115];; MELT_CHECK_SIGNAL(); ; @@ -20182,7 +22063,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[31])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V118*/ meltfptr[117] = + /*_.INST__V118*/ + meltfptr[117] = newobj; }; ; @@ -20210,7 +22092,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V118*/ meltfptr[117], "newly made instance"); ; - /*_.NEWLOCC__V117*/ meltfptr[116] = /*_.INST__V118*/ meltfptr[117];; + /*_.NEWLOCC__V117*/ + meltfptr[116] = /*_.INST__V118*/ meltfptr[117];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1133:/ cppif.then"); @@ -20231,7 +22114,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L39*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L39*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20240,7 +22124,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1133:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L39*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L39*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20277,16 +22162,20 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[5].meltbp_cstring = "\n* newlocc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NEWLOCC__V117*/ meltfptr[116]; - /*_.MELT_DEBUG_FUN__V120*/ meltfptr[119] = 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__V120*/ + meltfptr[119] = 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___V119*/ meltfptr[118] = /*_.MELT_DEBUG_FUN__V120*/ meltfptr[119];; + /*_._IF___V119*/ + meltfptr[118] = /*_.MELT_DEBUG_FUN__V120*/ meltfptr[119];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1133:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L40*/ meltfnum[39] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L40*/ + meltfnum[39] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V120*/ meltfptr[119] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V120*/ + meltfptr[119] = 0 ; } ; } @@ -20299,7 +22188,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1133:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20308,9 +22198,11 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L39*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L39*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V119*/ meltfptr[118] = 0 ; + /*clear*/ /*_._IF___V119*/ + meltfptr[118] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20331,7 +22223,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normatch.melt:1136:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTER__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_NORMTESTER_INSTANCE*/ meltfrout->tabval[8]))) ) /*then*/ @@ -20342,7 +22235,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TESTER__V24*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 8, "NTINST_FIELDLOCS"); - /*_.NTINST_FIELDLOCS__V121*/ meltfptr[119] = slot; + /*_.NTINST_FIELDLOCS__V121*/ + meltfptr[119] = slot; }; ; } @@ -20353,7 +22247,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ } ; /*^compute*/ - /*_#GET_INT__L41*/ meltfnum[39] = + /*_#GET_INT__L41*/ + meltfnum[39] = (melt_get_int((melt_ptr_t)(/*_.CURFLD__V80*/ meltfptr[58])));; { @@ -20362,7 +22257,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ } ; MELT_LOCATION("warmelt-normatch.melt:1140:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCX__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[38]))) ) /*then*/ @@ -20373,7 +22269,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V21*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NCTX_SYMBCACHEMAP"); - /*_.NCTX_SYMBCACHEMAP__V122*/ meltfptr[118] = slot; + /*_.NCTX_SYMBCACHEMAP__V122*/ + meltfptr[118] = slot; }; ; } @@ -20411,7 +22308,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L42*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L42*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20420,7 +22318,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1141:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L42*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L42*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20453,16 +22352,20 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_instancepat updated fieldlocs tester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TESTER__V24*/ meltfptr[23]; - /*_.MELT_DEBUG_FUN__V124*/ meltfptr[123] = 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__V124*/ + meltfptr[123] = 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___V123*/ meltfptr[122] = /*_.MELT_DEBUG_FUN__V124*/ meltfptr[123];; + /*_._IF___V123*/ + meltfptr[122] = /*_.MELT_DEBUG_FUN__V124*/ meltfptr[123];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1141:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L43*/ meltfnum[42] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L43*/ + meltfnum[42] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V124*/ meltfptr[123] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V124*/ + meltfptr[123] = 0 ; } ; } @@ -20475,7 +22378,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1141:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20484,9 +22388,11 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L42*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L42*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V123*/ meltfptr[122] = 0 ; + /*clear*/ /*_._IF___V123*/ + meltfptr[122] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20532,7 +22438,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L44*/ meltfnum[42] = + /*_#MELT_NEED_DBG__L44*/ + meltfnum[42] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20541,7 +22448,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1143:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L44*/ meltfnum[42]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L44*/ meltfnum[42]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20574,16 +22482,20 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_instancepat made newlocc"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWLOCC__V117*/ meltfptr[116]; - /*_.MELT_DEBUG_FUN__V126*/ meltfptr[122] = 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__V126*/ + meltfptr[122] = 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___V125*/ meltfptr[123] = /*_.MELT_DEBUG_FUN__V126*/ meltfptr[122];; + /*_._IF___V125*/ + meltfptr[123] = /*_.MELT_DEBUG_FUN__V126*/ meltfptr[122];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1143:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L45*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L45*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V126*/ meltfptr[122] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V126*/ + meltfptr[122] = 0 ; } ; } @@ -20596,7 +22508,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1143:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20605,9 +22518,11 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L44*/ meltfnum[42] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L44*/ + meltfnum[42] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V125*/ meltfptr[123] = 0 ; + /*clear*/ /*_._IF___V125*/ + meltfptr[123] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20628,32 +22543,45 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normatch.melt:1144:/ compute"); - /*_.CURLOCCL__V92*/ meltfptr[84] = /*_.SETQ___V127*/ meltfptr[122] = /*_.NEWLOCC__V117*/ meltfptr[116];; - /*_.LET___V110*/ meltfptr[104] = /*_.SETQ___V127*/ meltfptr[122];; + /*_.CURLOCCL__V92*/ + meltfptr[84] = /*_.SETQ___V127*/ meltfptr[122] = /*_.NEWLOCC__V117*/ meltfptr[116];; + /*_.LET___V110*/ + meltfptr[104] = /*_.SETQ___V127*/ meltfptr[122];; MELT_LOCATION("warmelt-normatch.melt:1115:/ clear"); - /*clear*/ /*_.NAMED_NAME__V111*/ meltfptr[103] = 0 ; + /*clear*/ /*_.NAMED_NAME__V111*/ + meltfptr[103] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWSYM__V112*/ meltfptr[111] = 0 ; + /*clear*/ /*_.NEWSYM__V112*/ + meltfptr[111] = 0 ; /*^clear*/ - /*clear*/ /*_.NFLEXP__V113*/ meltfptr[112] = 0 ; + /*clear*/ /*_.NFLEXP__V113*/ + meltfptr[112] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWBIND__V115*/ meltfptr[114] = 0 ; + /*clear*/ /*_.NEWBIND__V115*/ + meltfptr[114] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWLOCC__V117*/ meltfptr[116] = 0 ; + /*clear*/ /*_.NEWLOCC__V117*/ + meltfptr[116] = 0 ; /*^clear*/ - /*clear*/ /*_.NTINST_FIELDLOCS__V121*/ meltfptr[119] = 0 ; + /*clear*/ /*_.NTINST_FIELDLOCS__V121*/ + meltfptr[119] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L41*/ meltfnum[39] = 0 ; + /*clear*/ /*_#GET_INT__L41*/ + meltfnum[39] = 0 ; /*^clear*/ - /*clear*/ /*_.NCTX_SYMBCACHEMAP__V122*/ meltfptr[118] = 0 ; + /*clear*/ /*_.NCTX_SYMBCACHEMAP__V122*/ + meltfptr[118] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V127*/ meltfptr[122] = 0 ; - /*_._IF___V109*/ meltfptr[105] = /*_.LET___V110*/ meltfptr[104];; + /*clear*/ /*_.SETQ___V127*/ + meltfptr[122] = 0 ; + /*_._IF___V109*/ + meltfptr[105] = /*_.LET___V110*/ meltfptr[104];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1114:/ clear"); - /*clear*/ /*_.LET___V110*/ meltfptr[104] = 0 ; + /*clear*/ /*_.LET___V110*/ + meltfptr[104] = 0 ; } ; } @@ -20683,7 +22611,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L46*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L46*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20692,7 +22621,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1146:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L46*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L46*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20725,16 +22655,20 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_instancepat before normal_pattern cursubpat"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURSUBPAT__V81*/ meltfptr[33]; - /*_.MELT_DEBUG_FUN__V129*/ meltfptr[103] = 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__V129*/ + meltfptr[103] = 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___V128*/ meltfptr[123] = /*_.MELT_DEBUG_FUN__V129*/ meltfptr[103];; + /*_._IF___V128*/ + meltfptr[123] = /*_.MELT_DEBUG_FUN__V129*/ meltfptr[103];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1146:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L47*/ meltfnum[42] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L47*/ + meltfnum[42] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V129*/ meltfptr[103] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V129*/ + meltfptr[103] = 0 ; } ; } @@ -20747,7 +22681,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1146:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20756,9 +22691,11 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L46*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L46*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V128*/ meltfptr[123] = 0 ; + /*clear*/ /*_._IF___V128*/ + meltfptr[123] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20792,7 +22729,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SUBHDLER__V83*/ meltfptr[82]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.NORMAL_PATTERN__V130*/ meltfptr[111] = meltgc_send((melt_ptr_t)(/*_.CURSUBPAT__V81*/ meltfptr[33]), (melt_ptr_t)((/*!NORMAL_PATTERN*/ meltfrout->tabval[39])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PATTERN__V130*/ + meltfptr[111] = meltgc_send((melt_ptr_t)(/*_.CURSUBPAT__V81*/ meltfptr[33]), (melt_ptr_t)((/*!NORMAL_PATTERN*/ meltfrout->tabval[39])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -20815,7 +22753,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L48*/ meltfnum[39] = + /*_#MELT_NEED_DBG__L48*/ + meltfnum[39] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20824,7 +22763,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1148:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L48*/ meltfnum[39]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L48*/ meltfnum[39]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20861,16 +22801,20 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[5].meltbp_cstring = " curpatf="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURPATF__V73*/ meltfptr[54]; - /*_.MELT_DEBUG_FUN__V132*/ meltfptr[114] = 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__V132*/ + meltfptr[114] = 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___V131*/ meltfptr[112] = /*_.MELT_DEBUG_FUN__V132*/ meltfptr[114];; + /*_._IF___V131*/ + meltfptr[112] = /*_.MELT_DEBUG_FUN__V132*/ meltfptr[114];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1148:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L49*/ meltfnum[42] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L49*/ + meltfnum[42] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V132*/ meltfptr[114] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V132*/ + meltfptr[114] = 0 ; } ; } @@ -20883,7 +22827,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1148:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20892,9 +22837,11 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L48*/ meltfnum[39] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L48*/ + meltfnum[39] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V131*/ meltfptr[112] = 0 ; + /*clear*/ /*_._IF___V131*/ + meltfptr[112] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20916,52 +22863,71 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ ; MELT_LOCATION("warmelt-normatch.melt:1098:/ clear"); - /*clear*/ /*_.CURLOCCL__V92*/ meltfptr[84] = 0 ; + /*clear*/ /*_.CURLOCCL__V92*/ + meltfptr[84] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L38*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NULL__L38*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V109*/ meltfptr[105] = 0 ; + /*clear*/ /*_._IF___V109*/ + meltfptr[105] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PATTERN__V130*/ meltfptr[111] = 0 ; + /*clear*/ /*_.NORMAL_PATTERN__V130*/ + meltfptr[111] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1076:/ clear"); - /*clear*/ /*_.FLOC__V79*/ meltfptr[55] = 0 ; + /*clear*/ /*_.FLOC__V79*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.CURFLD__V80*/ meltfptr[58] = 0 ; + /*clear*/ /*_.CURFLD__V80*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.CURSUBPAT__V81*/ meltfptr[33] = 0 ; + /*clear*/ /*_.CURSUBPAT__V81*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.CURFLDCLA__V82*/ meltfptr[32] = 0 ; + /*clear*/ /*_.CURFLDCLA__V82*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.SUBHDLER__V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_.SUBHDLER__V83*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L28*/ meltfnum[11] = 0 ; + /*clear*/ /*_#eqeq__L28*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V87*/ meltfptr[85] = 0 ; + /*clear*/ /*_._IFELSE___V87*/ + meltfptr[85] = 0 ; if (/*_#PATIX__L22*/ meltfnum[10]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:1071:/ clear"); - /*clear*/ /*_.CURPATF__V73*/ meltfptr[54] = 0 ; + /*clear*/ /*_.CURPATF__V73*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_#PATIX__L22*/ meltfnum[10] = 0 ; + /*clear*/ /*_#PATIX__L22*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V76*/ meltfptr[50] = 0 ; + /*clear*/ /*_.IFCPP___V76*/ + meltfptr[50] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-normatch.melt:1044:/ clear"); - /*clear*/ /*_.TESTLOCCL__V62*/ meltfptr[38] = 0 ; + /*clear*/ /*_.TESTLOCCL__V62*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTERCONT__V63*/ meltfptr[39] = 0 ; + /*clear*/ /*_.TESTERCONT__V63*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V65*/ meltfptr[42] = 0 ; + /*clear*/ /*_.LAMBDA___V65*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.SORTEDPATFIELDS__V67*/ meltfptr[51] = 0 ; + /*clear*/ /*_.SORTEDPATFIELDS__V67*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V70*/ meltfptr[36] = 0 ; + /*clear*/ /*_.IFCPP___V70*/ + meltfptr[36] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1152:/ cppif.then"); @@ -20982,7 +22948,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L50*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L50*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20991,7 +22958,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1152:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L50*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L50*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21024,16 +22992,20 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_instancepat final tester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TESTER__V24*/ meltfptr[23]; - /*_.MELT_DEBUG_FUN__V134*/ meltfptr[119] = 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__V134*/ + meltfptr[119] = 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___V133*/ meltfptr[116] = /*_.MELT_DEBUG_FUN__V134*/ meltfptr[119];; + /*_._IF___V133*/ + meltfptr[116] = /*_.MELT_DEBUG_FUN__V134*/ meltfptr[119];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1152:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L51*/ meltfnum[42] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L51*/ + meltfnum[42] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V134*/ meltfptr[119] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V134*/ + meltfptr[119] = 0 ; } ; } @@ -21046,7 +23018,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1152:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21055,9 +23028,11 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L50*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L50*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V133*/ meltfptr[116] = 0 ; + /*clear*/ /*_._IF___V133*/ + meltfptr[116] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21079,37 +23054,53 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ ; MELT_LOCATION("warmelt-normatch.melt:976:/ clear"); - /*clear*/ /*_.PCTN_SRC__V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.PCTN_SRC__V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.PSLOC__V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_.PSLOC__V15*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SLOC__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.SLOC__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.ENV__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.ENV__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.PATCLA__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.PATCLA__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.PATFIELDS__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.PATFIELDS__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.OLDENV__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.OLDENV__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.NCX__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.NCX__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.STUFFMAP__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.STUFFMAP__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.TSTUFF__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.TSTUFF__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTER__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.TESTER__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.CURHDLER__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CURHDLER__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTLIST__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.TESTLIST__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.NPATCLA__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NPATCLA__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.IFCPP___V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V31*/ meltfptr[29] = 0 ; + /*clear*/ /*_.FOREVER___V31*/ + meltfptr[29] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1154:/ cppif.then"); @@ -21130,7 +23121,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L52*/ meltfnum[39] = + /*_#MELT_NEED_DBG__L52*/ + meltfnum[39] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21139,7 +23131,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1154:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L52*/ meltfnum[39]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L52*/ meltfnum[39]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21172,16 +23165,20 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_instancepat recv end"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V136*/ meltfptr[122] = 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__V136*/ + meltfptr[122] = 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___V135*/ meltfptr[118] = /*_.MELT_DEBUG_FUN__V136*/ meltfptr[122];; + /*_._IF___V135*/ + meltfptr[118] = /*_.MELT_DEBUG_FUN__V136*/ meltfptr[122];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1154:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L53*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L53*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V136*/ meltfptr[122] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V136*/ + meltfptr[122] = 0 ; } ; } @@ -21194,7 +23191,8 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1154:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21203,9 +23201,11 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L52*/ meltfnum[39] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L52*/ + meltfnum[39] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V135*/ meltfptr[118] = 0 ; + /*clear*/ /*_._IF___V135*/ + meltfptr[118] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21231,9 +23231,11 @@ meltlabexit_LOOPSTUFF_2:;/*^loopepilog*/ /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:972:/ 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 ; } ; @@ -21315,7 +23317,8 @@ meltrout_23_WARMELTmiNORMATCH_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_23_WARMELTmiNORMATCH_LAMBDA_cl3 fromline 1756 */ - /* classy proc frame meltrout_23_WARMELTmiNORMATCH_LAMBDA_cl3 */ MeltFrame_meltrout_23_WARMELTmiNORMATCH_LAMBDA_cl3 + /* classy proc frame meltrout_23_WARMELTmiNORMATCH_LAMBDA_cl3 */ + MeltFrame_meltrout_23_WARMELTmiNORMATCH_LAMBDA_cl3 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_23_WARMELTmiNORMATCH_LAMBDA_cl3 fromline 1785*/ #if ENABLE_CHECKING @@ -21328,7 +23331,8 @@ meltrout_23_WARMELTmiNORMATCH_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl3", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -21338,7 +23342,8 @@ meltrout_23_WARMELTmiNORMATCH_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1006:/ getarg"); - /*_.TESTER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.TESTER__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -21363,7 +23368,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1008:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~TSTUFF*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[0]))) ) /*then*/ @@ -21410,7 +23416,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)) @@ -21419,7 +23426,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1009:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21452,16 +23460,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_instancepat lambda updatelse of tstuff="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*~TSTUFF*/ meltfclos->tabval[0]); - /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 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__V4*/ + meltfptr[3] = 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___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; + /*_._IF___V3*/ + meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1009:/ 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 ; } ; } @@ -21474,7 +23486,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1009:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21483,9 +23496,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*/ @@ -21506,7 +23521,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normatch.melt:1010:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTER__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[0]))) ) /*then*/ @@ -21517,7 +23533,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TESTER__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "NTEST_COMEFROM"); - /*_.NTEST_COMEFROM__V5*/ meltfptr[3] = slot; + /*_.NTEST_COMEFROM__V5*/ + meltfptr[3] = slot; }; ; } @@ -21539,7 +23556,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1006:/ clear"); - /*clear*/ /*_.NTEST_COMEFROM__V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.NTEST_COMEFROM__V5*/ + meltfptr[3] = 0 ; } ; @@ -21621,7 +23639,8 @@ meltrout_24_WARMELTmiNORMATCH_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_24_WARMELTmiNORMATCH_LAMBDA_cl4 fromline 1756 */ - /* classy proc frame meltrout_24_WARMELTmiNORMATCH_LAMBDA_cl4 */ MeltFrame_meltrout_24_WARMELTmiNORMATCH_LAMBDA_cl4 + /* classy proc frame meltrout_24_WARMELTmiNORMATCH_LAMBDA_cl4 */ + MeltFrame_meltrout_24_WARMELTmiNORMATCH_LAMBDA_cl4 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_24_WARMELTmiNORMATCH_LAMBDA_cl4 fromline 1785*/ #if ENABLE_CHECKING @@ -21634,7 +23653,8 @@ meltrout_24_WARMELTmiNORMATCH_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl4", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -21644,12 +23664,14 @@ meltrout_24_WARMELTmiNORMATCH_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1051:/ getarg"); - /*_.PF1__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.PF1__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PF2__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.PF2__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PF2__V3*/ meltfptr[2])) != NULL); ; @@ -21671,10 +23693,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ meltfnum[0] = + /*_#IS_A__L1*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PF1__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normatch.melt:1052:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; @@ -21701,25 +23725,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1052; - /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 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__V6*/ + meltfptr[5] = 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___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; + /*_._IFELSE___V5*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1052:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ + meltfptr[5] = 0 ; } ; } ; - /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; + /*_.IFCPP___V4*/ + meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1052:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V5*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21737,10 +23767,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[0] = + /*_#IS_A__L2*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PF2__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normatch.melt:1053:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -21767,25 +23799,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1053; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1053:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; + /*_.IFCPP___V7*/ + meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1053:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L2*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21797,7 +23835,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1055:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PF1__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[0]))) ) /*then*/ @@ -21808,7 +23847,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PF1__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SPAF_PATTERN"); - /*_.SPAF_PATTERN__V11*/ meltfptr[4] = slot; + /*_.SPAF_PATTERN__V11*/ + meltfptr[4] = slot; }; ; } @@ -21819,7 +23859,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1054:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SPAF_PATTERN__V11*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN*/ meltfrout->tabval[2]))) ) /*then*/ @@ -21830,7 +23871,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SPAF_PATTERN__V11*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 2, "PAT_WEIGHT"); - /*_.PAT_WEIGHT__V12*/ meltfptr[11] = slot; + /*_.PAT_WEIGHT__V12*/ + meltfptr[11] = slot; }; ; } @@ -21841,10 +23883,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#WPF1__L3*/ meltfnum[0] = + /*_#WPF1__L3*/ + meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.PAT_WEIGHT__V12*/ meltfptr[11])));; MELT_LOCATION("warmelt-normatch.melt:1057:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PF2__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[0]))) ) /*then*/ @@ -21855,7 +23899,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PF2__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SPAF_PATTERN"); - /*_.SPAF_PATTERN__V13*/ meltfptr[12] = slot; + /*_.SPAF_PATTERN__V13*/ + meltfptr[12] = slot; }; ; } @@ -21866,7 +23911,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1056:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SPAF_PATTERN__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN*/ meltfrout->tabval[2]))) ) /*then*/ @@ -21877,7 +23923,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SPAF_PATTERN__V13*/ meltfptr[12]) /*=obj*/; melt_object_get_field(slot,obj, 2, "PAT_WEIGHT"); - /*_.PAT_WEIGHT__V14*/ meltfptr[13] = slot; + /*_.PAT_WEIGHT__V14*/ + meltfptr[13] = slot; }; ; } @@ -21888,16 +23935,19 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#WPF2__L4*/ meltfnum[3] = + /*_#WPF2__L4*/ + meltfnum[3] = (melt_get_int((melt_ptr_t)(/*_.PAT_WEIGHT__V14*/ meltfptr[13])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#eqeqI__L5*/ meltfnum[4] = + /*_#eqeqI__L5*/ + meltfnum[4] = ((/*_#WPF2__L4*/ meltfnum[3]) == (/*_#WPF2__L4*/ meltfnum[3]));; MELT_LOCATION("warmelt-normatch.melt:1059:/ cond"); - /*cond*/ if (/*_#eqeqI__L5*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#eqeqI__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21910,7 +23960,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1060:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_3*/ meltfrout->tabval[3]);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*!konst_3*/ meltfrout->tabval[3]);; MELT_LOCATION("warmelt-normatch.melt:1060:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -21918,12 +23969,15 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_._IFELSE___V15*/ meltfptr[14] = /*_.RETURN___V16*/ meltfptr[15];; + /*finalret*/ + goto meltlabend_rout ; + /*_._IFELSE___V15*/ + meltfptr[14] = /*_.RETURN___V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1059:/ clear"); - /*clear*/ /*_.RETURN___V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.RETURN___V16*/ + meltfptr[15] = 0 ; } ; } @@ -21937,10 +23991,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#ltI__L6*/ meltfnum[5] = + /*_#ltI__L6*/ + meltfnum[5] = ((/*_#WPF1__L3*/ meltfnum[0]) < (/*_#WPF2__L4*/ meltfnum[3]));; MELT_LOCATION("warmelt-normatch.melt:1061:/ cond"); - /*cond*/ if (/*_#ltI__L6*/ meltfnum[5]) /*then*/ + /*cond*/ + if (/*_#ltI__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21953,7 +24009,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1062:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_4*/ meltfrout->tabval[4]);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*!konst_4*/ meltfrout->tabval[4]);; MELT_LOCATION("warmelt-normatch.melt:1062:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -21961,12 +24018,15 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_._IFELSE___V17*/ meltfptr[15] = /*_.RETURN___V18*/ meltfptr[17];; + /*finalret*/ + goto meltlabend_rout ; + /*_._IFELSE___V17*/ + meltfptr[15] = /*_.RETURN___V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1061:/ clear"); - /*clear*/ /*_.RETURN___V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.RETURN___V18*/ + meltfptr[17] = 0 ; } ; } @@ -21983,7 +24043,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1064:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_5*/ meltfrout->tabval[5]);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*!konst_5*/ meltfrout->tabval[5]);; MELT_LOCATION("warmelt-normatch.melt:1064:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -21991,59 +24052,77 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normatch.melt:1063:/ quasiblock"); - /*_.PROGN___V20*/ meltfptr[19] = /*_.RETURN___V19*/ meltfptr[17];; + /*_.PROGN___V20*/ + meltfptr[19] = /*_.RETURN___V19*/ meltfptr[17];; /*^compute*/ - /*_._IFELSE___V17*/ meltfptr[15] = /*_.PROGN___V20*/ meltfptr[19];; + /*_._IFELSE___V17*/ + meltfptr[15] = /*_.PROGN___V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1061:/ clear"); - /*clear*/ /*_.RETURN___V19*/ meltfptr[17] = 0 ; + /*clear*/ /*_.RETURN___V19*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.PROGN___V20*/ + meltfptr[19] = 0 ; } ; } ; - /*_._IFELSE___V15*/ meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1059:/ clear"); - /*clear*/ /*_#ltI__L6*/ meltfnum[5] = 0 ; + /*clear*/ /*_#ltI__L6*/ + meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ + meltfptr[15] = 0 ; } ; } ; - /*_.LET___V10*/ meltfptr[8] = /*_._IFELSE___V15*/ meltfptr[14];; + /*_.LET___V10*/ + meltfptr[8] = /*_._IFELSE___V15*/ meltfptr[14];; MELT_LOCATION("warmelt-normatch.melt:1054:/ clear"); - /*clear*/ /*_.SPAF_PATTERN__V11*/ meltfptr[4] = 0 ; + /*clear*/ /*_.SPAF_PATTERN__V11*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.PAT_WEIGHT__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.PAT_WEIGHT__V12*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_#WPF1__L3*/ meltfnum[0] = 0 ; + /*clear*/ /*_#WPF1__L3*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.SPAF_PATTERN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.SPAF_PATTERN__V13*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.PAT_WEIGHT__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.PAT_WEIGHT__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_#WPF2__L4*/ meltfnum[3] = 0 ; + /*clear*/ /*_#WPF2__L4*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeqI__L5*/ meltfnum[4] = 0 ; + /*clear*/ /*_#eqeqI__L5*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[14] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1051:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-normatch.melt:1051:/ locexp"); @@ -22058,15 +24137,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.IFCPP___V4*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V10*/ meltfptr[8] = 0 ; + /*clear*/ /*_.LET___V10*/ + meltfptr[8] = 0 ; } ; @@ -22148,7 +24231,8 @@ meltrout_25_WARMELTmiNORMATCH_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_25_WARMELTmiNORMATCH_LAMBDA_cl5 fromline 1756 */ - /* classy proc frame meltrout_25_WARMELTmiNORMATCH_LAMBDA_cl5 */ MeltFrame_meltrout_25_WARMELTmiNORMATCH_LAMBDA_cl5 + /* classy proc frame meltrout_25_WARMELTmiNORMATCH_LAMBDA_cl5 */ + MeltFrame_meltrout_25_WARMELTmiNORMATCH_LAMBDA_cl5 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_25_WARMELTmiNORMATCH_LAMBDA_cl5 fromline 1785*/ #if ENABLE_CHECKING @@ -22161,7 +24245,8 @@ meltrout_25_WARMELTmiNORMATCH_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl5", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -22171,7 +24256,8 @@ meltrout_25_WARMELTmiNORMATCH_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1081:/ getarg"); - /*_.NEWSUBTESTER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NEWSUBTESTER__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -22201,7 +24287,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)) @@ -22210,7 +24297,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1082:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22247,16 +24335,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "testercont="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &(/*~TESTERCONT*/ meltfclos->tabval[0]); - /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_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 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-normatch.melt:1082:/ 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 ; } ; } @@ -22269,7 +24361,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1082:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -22278,9 +24371,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*/ @@ -22315,7 +24410,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~TESTERCONT*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -22326,7 +24422,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~TESTERCONT*/ meltfclos->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.PREVTESTER__V6*/ meltfptr[2] = slot; + /*_.PREVTESTER__V6*/ + meltfptr[2] = slot; }; ; } @@ -22356,7 +24453,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -22365,7 +24463,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1086:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22398,16 +24497,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_instancepat.subhdler prevtester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PREVTESTER__V6*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 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__V8*/ + meltfptr[7] = 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___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; + /*_._IF___V7*/ + meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1086:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = 0 ; } ; } @@ -22420,7 +24523,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1086:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -22429,9 +24533,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V7*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22461,10 +24567,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[0] = + /*_#IS_A__L5*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PREVTESTER__V6*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANYTESTER*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normatch.melt:1087:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[6] = (/*nil*/NULL);; @@ -22491,25 +24599,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1087; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), 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-normatch.melt:1087:/ 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-normatch.melt:1087:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22527,17 +24641,22 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~TESTERCONT*/ meltfclos->tabval[0]); - /*_.SET_NEW_TESTER_LAST_THEN__V12*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.NEWSUBTESTER__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SET_NEW_TESTER_LAST_THEN__V12*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.NEWSUBTESTER__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V5*/ meltfptr[3] = /*_.SET_NEW_TESTER_LAST_THEN__V12*/ meltfptr[10];; + /*_.LET___V5*/ + meltfptr[3] = /*_.SET_NEW_TESTER_LAST_THEN__V12*/ meltfptr[10];; MELT_LOCATION("warmelt-normatch.melt:1085:/ clear"); - /*clear*/ /*_.PREVTESTER__V6*/ meltfptr[2] = 0 ; + /*clear*/ /*_.PREVTESTER__V6*/ + meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.SET_NEW_TESTER_LAST_THEN__V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.SET_NEW_TESTER_LAST_THEN__V12*/ + meltfptr[10] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1090:/ cppif.then"); @@ -22558,7 +24677,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L6*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -22567,7 +24687,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1090:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22600,16 +24721,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_instancepat.subhdler end newsubtester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWSUBTESTER__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V14*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V14*/ + meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V13*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[2];; + /*_._IF___V13*/ + meltfptr[6] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1090:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ meltfptr[2] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ + meltfptr[2] = 0 ; } ; } @@ -22622,7 +24747,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1090:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -22631,9 +24757,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V13*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V13*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22659,7 +24787,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1081:/ clear"); - /*clear*/ /*_.LET___V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.LET___V5*/ + meltfptr[3] = 0 ; } ; @@ -22741,7 +24870,8 @@ meltrout_26_WARMELTmiNORMATCH_NORMPAT_TUPLEPAT(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_26_WARMELTmiNORMATCH_NORMPAT_TUPLEPAT fromline 1756 */ - /* classy proc frame meltrout_26_WARMELTmiNORMATCH_NORMPAT_TUPLEPAT */ MeltFrame_meltrout_26_WARMELTmiNORMATCH_NORMPAT_TUPLEPAT + /* classy proc frame meltrout_26_WARMELTmiNORMATCH_NORMPAT_TUPLEPAT */ + MeltFrame_meltrout_26_WARMELTmiNORMATCH_NORMPAT_TUPLEPAT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_26_WARMELTmiNORMATCH_NORMPAT_TUPLEPAT fromline 1785*/ #if ENABLE_CHECKING @@ -22754,7 +24884,8 @@ meltrout_26_WARMELTmiNORMATCH_NORMPAT_TUPLEPAT(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("NORMPAT_TUPLEPAT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -22764,26 +24895,30 @@ meltrout_26_WARMELTmiNORMATCH_NORMPAT_TUPLEPAT(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1168:/ 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; - /*_.NMATCH__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NMATCH__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.HDLER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.HDLER__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.HDLER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PCN__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PCN__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4])) != NULL); ; @@ -22815,7 +24950,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)) @@ -22824,7 +24960,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1169:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22865,16 +25002,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " pcn="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.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_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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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-normatch.melt:1169:/ 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 ; } ; } @@ -22887,7 +25028,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1169:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -22896,9 +25038,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*/ @@ -22928,10 +25072,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:1170:/ 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);; @@ -22958,25 +25104,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1170; - /*_.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-normatch.melt:1170:/ 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-normatch.melt:1170:/ 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*/ @@ -22994,10 +25146,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_TUPLE*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:1171:/ 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);; @@ -23024,25 +25178,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1171; - /*_.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-normatch.melt:1171:/ 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-normatch.melt:1171:/ 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*/ @@ -23054,7 +25214,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1173:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -23065,7 +25226,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__V14*/ meltfptr[12] = slot; + /*_.SLOC__V14*/ + meltfptr[12] = slot; }; ; } @@ -23076,7 +25238,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1174:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_CONSTRUCT*/ meltfrout->tabval[5]))) ) /*then*/ @@ -23087,7 +25250,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, "CTPAT_SUBPA"); - /*_.TUPSUBPA__V15*/ meltfptr[5] = slot; + /*_.TUPSUBPA__V15*/ + meltfptr[5] = slot; }; ; } @@ -23098,10 +25262,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#NBCOMP__L5*/ meltfnum[1] = + /*_#NBCOMP__L5*/ + meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.TUPSUBPA__V15*/ meltfptr[5])));; MELT_LOCATION("warmelt-normatch.melt:1176:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -23112,7 +25278,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 0, "PCTN_NORMCTXT"); - /*_.NCX__V16*/ meltfptr[15] = slot; + /*_.NCX__V16*/ + meltfptr[15] = slot; }; ; } @@ -23123,7 +25290,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1177:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -23134,7 +25302,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 7, "PCTN_STUFFMAP"); - /*_.STUFFMAP__V17*/ meltfptr[16] = slot; + /*_.STUFFMAP__V17*/ + meltfptr[16] = slot; }; ; } @@ -23145,15 +25314,19 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.TSTUFF__V18*/ meltfptr[17] = + /*_.TSTUFF__V18*/ + meltfptr[17] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STUFFMAP__V17*/ meltfptr[16]), (meltobject_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2]));; /*^compute*/ - /*_.CURHDLER__V19*/ meltfptr[18] = /*_.HDLER__V4*/ meltfptr[3];; + /*_.CURHDLER__V19*/ + meltfptr[18] = /*_.HDLER__V4*/ meltfptr[3];; /*^compute*/ - /*_.TESTER__V20*/ meltfptr[19] = (/*nil*/NULL);; + /*_.TESTER__V20*/ + meltfptr[19] = (/*nil*/NULL);; MELT_LOCATION("warmelt-normatch.melt:1181:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -23164,7 +25337,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 9, "PCTN_TESTS"); - /*_.TESTLIST__V21*/ meltfptr[20] = slot; + /*_.TESTLIST__V21*/ + meltfptr[20] = slot; }; ; } @@ -23194,7 +25368,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)) @@ -23203,7 +25378,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1183:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23240,16 +25416,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbcomp="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#NBCOMP__L5*/ meltfnum[1]; - /*_.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 MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), 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 MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), 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-normatch.melt:1183:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ + meltfptr[22] = 0 ; } ; } @@ -23262,7 +25442,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1183:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -23271,9 +25452,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_._IF___V22*/ + meltfptr[21] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23325,7 +25508,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ meltfnum[6] = + /*_#MELT_NEED_DBG__L8*/ + meltfnum[6] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -23334,7 +25518,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1187:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23367,16 +25552,20 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ argtab[3].meltbp_cstring = "normpat_tuplepat loop tstuff="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TSTUFF__V18*/ meltfptr[17]; - /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V26*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; + /*_._IF___V26*/ + meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1187:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[26] = 0 ; } ; } @@ -23389,7 +25578,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1187:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -23398,9 +25588,11 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V26*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23426,10 +25618,12 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L10*/ meltfnum[0] = + /*_#IS_A__L10*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_NORMTESTER_TUPLE*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normatch.melt:1189:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23437,7 +25631,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1191:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_NORMTESTER_TUPLE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -23448,7 +25643,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TSTUFF__V18*/ meltfptr[17]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NTTUPLE_COMPONENTS"); - /*_.NTTUPLE_COMPONENTS__V28*/ meltfptr[26] = slot; + /*_.NTTUPLE_COMPONENTS__V28*/ + meltfptr[26] = slot; }; ; } @@ -23459,21 +25655,27 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ } ; /*^compute*/ - /*_#MULTIPLE_LENGTH__L12*/ meltfnum[11] = + /*_#MULTIPLE_LENGTH__L12*/ + meltfnum[11] = (melt_multiple_length((melt_ptr_t)(/*_.NTTUPLE_COMPONENTS__V28*/ meltfptr[26])));; /*^compute*/ - /*_#eqeqI__L13*/ meltfnum[12] = + /*_#eqeqI__L13*/ + meltfnum[12] = ((/*_#MULTIPLE_LENGTH__L12*/ meltfnum[11]) == (/*_#NBCOMP__L5*/ meltfnum[1]));; /*^compute*/ - /*_#_IF___L11*/ meltfnum[6] = /*_#eqeqI__L13*/ meltfnum[12];; + /*_#_IF___L11*/ + meltfnum[6] = /*_#eqeqI__L13*/ meltfnum[12];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1189:/ clear"); - /*clear*/ /*_.NTTUPLE_COMPONENTS__V28*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NTTUPLE_COMPONENTS__V28*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeqI__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#eqeqI__L13*/ + meltfnum[12] = 0 ; } ; } @@ -23484,7 +25686,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ } ; MELT_LOCATION("warmelt-normatch.melt:1189:/ cond"); - /*cond*/ if (/*_#_IF___L11*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#_IF___L11*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23511,7 +25714,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L14*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -23520,7 +25724,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1193:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23553,16 +25758,20 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ argtab[3].meltbp_cstring = "normpat_tuplepat found tstuff="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TSTUFF__V18*/ meltfptr[17]; - /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V31*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V30*/ meltfptr[26] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; + /*_._IF___V30*/ + meltfptr[26] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1193:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ + meltfptr[30] = 0 ; } ; } @@ -23575,7 +25784,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1193:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -23584,9 +25794,11 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IF___V30*/ + meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23607,19 +25819,24 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normatch.melt:1194:/ compute"); - /*_.TESTER__V20*/ meltfptr[19] = /*_.SETQ___V32*/ meltfptr[30] = /*_.TSTUFF__V18*/ meltfptr[17];; + /*_.TESTER__V20*/ + meltfptr[19] = /*_.SETQ___V32*/ meltfptr[30] = /*_.TSTUFF__V18*/ meltfptr[17];; MELT_LOCATION("warmelt-normatch.melt:1189:/ quasiblock"); - /*_.PROGN___V33*/ meltfptr[26] = /*_.SETQ___V32*/ meltfptr[30];; + /*_.PROGN___V33*/ + meltfptr[26] = /*_.SETQ___V32*/ meltfptr[30];; /*^compute*/ - /*_._IFELSE___V29*/ meltfptr[25] = /*_.PROGN___V33*/ meltfptr[26];; + /*_._IFELSE___V29*/ + meltfptr[25] = /*_.PROGN___V33*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1189:/ clear"); - /*clear*/ /*_.SETQ___V32*/ meltfptr[30] = 0 ; + /*clear*/ /*_.SETQ___V32*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V33*/ meltfptr[26] = 0 ; + /*clear*/ /*_.PROGN___V33*/ + meltfptr[26] = 0 ; } ; } @@ -23633,10 +25850,12 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L16*/ meltfnum[12] = + /*_#IS_A__L16*/ + meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normatch.melt:1196:/ cond"); - /*cond*/ if (/*_#IS_A__L16*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#IS_A__L16*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23644,7 +25863,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1197:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -23655,7 +25875,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TSTUFF__V18*/ meltfptr[17]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NTEST_ELSE"); - /*_.NTEST_ELSE__V35*/ meltfptr[26] = slot; + /*_.NTEST_ELSE__V35*/ + meltfptr[26] = slot; }; ; } @@ -23666,12 +25887,14 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ } ; MELT_LOCATION("warmelt-normatch.melt:1197:/ compute"); - /*_.TSTUFF__V18*/ meltfptr[17] = /*_.SETQ___V36*/ meltfptr[35] = /*_.NTEST_ELSE__V35*/ meltfptr[26];; + /*_.TSTUFF__V18*/ + meltfptr[17] = /*_.SETQ___V36*/ meltfptr[35] = /*_.NTEST_ELSE__V35*/ meltfptr[26];; MELT_LOCATION("warmelt-normatch.melt:1199:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V38*/ meltfptr[37] = + /*newclosure*/ /*_.LAMBDA___V38*/ + meltfptr[37] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ meltfrout->tabval[10])), (1)); ; /*^putclosedv*/ @@ -23680,27 +25903,36 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V38*/ meltfptr[37]))); ((meltclosure_ptr_t)/*_.LAMBDA___V38*/ meltfptr[37])->tabval[0] = (melt_ptr_t)(/*_.TSTUFF__V18*/ meltfptr[17]); ; - /*_.LAMBDA___V37*/ meltfptr[36] = /*_.LAMBDA___V38*/ meltfptr[37];; + /*_.LAMBDA___V37*/ + meltfptr[36] = /*_.LAMBDA___V38*/ meltfptr[37];; MELT_LOCATION("warmelt-normatch.melt:1198:/ compute"); - /*_.CURHDLER__V19*/ meltfptr[18] = /*_.SETQ___V39*/ meltfptr[38] = /*_.LAMBDA___V37*/ meltfptr[36];; + /*_.CURHDLER__V19*/ + meltfptr[18] = /*_.SETQ___V39*/ meltfptr[38] = /*_.LAMBDA___V37*/ meltfptr[36];; MELT_LOCATION("warmelt-normatch.melt:1196:/ quasiblock"); - /*_.PROGN___V40*/ meltfptr[39] = /*_.SETQ___V39*/ meltfptr[38];; + /*_.PROGN___V40*/ + meltfptr[39] = /*_.SETQ___V39*/ meltfptr[38];; /*^compute*/ - /*_._IFELSE___V34*/ meltfptr[30] = /*_.PROGN___V40*/ meltfptr[39];; + /*_._IFELSE___V34*/ + meltfptr[30] = /*_.PROGN___V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1196:/ clear"); - /*clear*/ /*_.NTEST_ELSE__V35*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NTEST_ELSE__V35*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.SETQ___V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.LAMBDA___V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.SETQ___V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.PROGN___V40*/ + meltfptr[39] = 0 ; } ; } @@ -23714,16 +25946,19 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ MELT_LOCATION("warmelt-normatch.melt:1207:/ quasiblock"); - /*_.NEWCOMPLOCS__V41*/ meltfptr[26] = + /*_.NEWCOMPLOCS__V41*/ + meltfptr[26] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[11])), (/*_#NBCOMP__L5*/ meltfnum[1])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_.MAKE_LIST__V42*/ meltfptr[35] = + /*_.MAKE_LIST__V42*/ + meltfptr[35] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[12]))));; /*^compute*/ - /*_.MAKE_LIST__V43*/ meltfptr[36] = + /*_.MAKE_LIST__V43*/ + meltfptr[36] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[12]))));; MELT_LOCATION("warmelt-normatch.melt:1210:/ quasiblock"); @@ -23733,7 +25968,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMTESTER_TUPLE*/ meltfrout->tabval[6])), (8), "CLASS_NORMTESTER_TUPLE"); - /*_.INST__V45*/ meltfptr[39] = + /*_.INST__V45*/ + meltfptr[39] = newobj; }; ; @@ -23776,7 +26012,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ melt_dbgtrace_written_object (/*_.INST__V45*/ meltfptr[39], "newly made instance"); ; - /*_.NEWTESTER__V44*/ meltfptr[38] = /*_.INST__V45*/ meltfptr[39];; + /*_.NEWTESTER__V44*/ + meltfptr[38] = /*_.INST__V45*/ meltfptr[39];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1220:/ cppif.then"); @@ -23797,7 +26034,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L17*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -23806,7 +26044,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1220:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L17*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23839,16 +26078,20 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ argtab[3].meltbp_cstring = "normpat_tuplepat newtester="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTESTER__V44*/ meltfptr[38]; - /*_.MELT_DEBUG_FUN__V47*/ 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__V47*/ + 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___V46*/ meltfptr[45] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];; + /*_._IF___V46*/ + meltfptr[45] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1220:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L18*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V47*/ + meltfptr[46] = 0 ; } ; } @@ -23861,7 +26104,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1220:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -23870,9 +26114,11 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_._IF___V46*/ + meltfptr[45] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23902,11 +26148,13 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.REGISTER_NEW_NORMTESTER__V48*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_NEW_NORMTESTER*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NEWTESTER__V44*/ meltfptr[38]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.REGISTER_NEW_NORMTESTER__V48*/ + meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_NEW_NORMTESTER*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NEWTESTER__V44*/ meltfptr[38]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normatch.melt:1222:/ compute"); - /*_.TESTER__V20*/ meltfptr[19] = /*_.SETQ___V49*/ meltfptr[45] = /*_.NEWTESTER__V44*/ meltfptr[38];; + /*_.TESTER__V20*/ + meltfptr[19] = /*_.SETQ___V49*/ meltfptr[45] = /*_.NEWTESTER__V44*/ meltfptr[38];; { MELT_LOCATION("warmelt-normatch.melt:1223:/ locexp"); @@ -23933,7 +26181,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L19*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L19*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -23942,7 +26191,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1224:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23975,16 +26225,20 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ argtab[3].meltbp_cstring = "normpat_tuplepat before calling curhdler"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURHDLER__V19*/ meltfptr[18]; - /*_.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[49] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; + /*_._IF___V50*/ + meltfptr[49] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1224:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ + meltfptr[50] = 0 ; } ; } @@ -23997,7 +26251,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1224:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -24006,9 +26261,11 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_._IF___V50*/ + meltfptr[49] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24057,7 +26314,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L21*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -24066,7 +26324,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1226:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24099,16 +26358,20 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ argtab[3].meltbp_cstring = "normpat_tuplepat after calling curhdler"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURHDLER__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53] = 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[53] = 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[49] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53];; + /*_._IF___V53*/ + meltfptr[49] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1226:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ + meltfptr[53] = 0 ; } ; } @@ -24121,7 +26384,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1226:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -24130,9 +26394,11 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V53*/ meltfptr[49] = 0 ; + /*clear*/ /*_._IF___V53*/ + meltfptr[49] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24156,7 +26422,8 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ /*^compute*/ - /*_.LOOPSTUFF__V25*/ meltfptr[21] = /*reallynil*/ NULL ;; + /*_.LOOPSTUFF__V25*/ + meltfptr[21] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -24166,19 +26433,26 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ ; MELT_LOCATION("warmelt-normatch.melt:1207:/ clear"); - /*clear*/ /*_.NEWCOMPLOCS__V41*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NEWCOMPLOCS__V41*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V42*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MAKE_LIST__V42*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V43*/ meltfptr[36] = 0 ; + /*clear*/ /*_.MAKE_LIST__V43*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWTESTER__V44*/ meltfptr[38] = 0 ; + /*clear*/ /*_.NEWTESTER__V44*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.REGISTER_NEW_NORMTESTER__V48*/ meltfptr[46] = 0 ; + /*clear*/ /*_.REGISTER_NEW_NORMTESTER__V48*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V49*/ meltfptr[45] = 0 ; + /*clear*/ /*_.SETQ___V49*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.CURHDLER__V52*/ meltfptr[50] = 0 ; + /*clear*/ /*_.CURHDLER__V52*/ + meltfptr[50] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1206:/ quasiblock"); @@ -24187,13 +26461,16 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ ; } ; - /*_._IFELSE___V29*/ meltfptr[25] = /*_._IFELSE___V34*/ meltfptr[30];; + /*_._IFELSE___V29*/ + meltfptr[25] = /*_._IFELSE___V34*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1189:/ clear"); - /*clear*/ /*_#IS_A__L16*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_A__L16*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V34*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V34*/ + meltfptr[30] = 0 ; } ; } @@ -24204,18 +26481,22 @@ meltlabloop_LOOPSTUFF_3:;/*^loopbody*/ /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1185:/ clear"); - /*clear*/ /*_#IS_A__L10*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L10*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L11*/ meltfnum[6] = 0 ; + /*clear*/ /*_#_IF___L11*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V29*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V29*/ + meltfptr[25] = 0 ; } ; ; goto meltlabloop_LOOPSTUFF_3; meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*loopepilog*/ - /*_.FOREVER___V24*/ meltfptr[22] = /*_.LOOPSTUFF__V25*/ meltfptr[21];; + /*_.FOREVER___V24*/ + meltfptr[22] = /*_.LOOPSTUFF__V25*/ meltfptr[21];; } ; @@ -24238,7 +26519,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L23*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L23*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -24247,7 +26529,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1233:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L23*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24288,16 +26571,20 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[7].meltbp_cstring = "\n tupsubpa="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.TUPSUBPA__V15*/ meltfptr[5]; - /*_.MELT_DEBUG_FUN__V56*/ meltfptr[49] = 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__V56*/ + meltfptr[49] = 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___V55*/ meltfptr[53] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[49];; + /*_._IF___V55*/ + meltfptr[53] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1233:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L24*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ meltfptr[49] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ + meltfptr[49] = 0 ; } ; } @@ -24310,7 +26597,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1233:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -24319,9 +26607,11 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L23*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V55*/ meltfptr[53] = 0 ; + /*clear*/ /*_._IF___V55*/ + meltfptr[53] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24345,7 +26635,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTER__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -24356,7 +26647,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TESTER__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NTEST_LOCCLIST"); - /*_.TESTLOCCL__V57*/ meltfptr[26] = slot; + /*_.TESTLOCCL__V57*/ + meltfptr[26] = slot; }; ; } @@ -24377,7 +26669,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[14])), (1), "CLASS_REFERENCE"); - /*_.INST__V59*/ meltfptr[36] = + /*_.INST__V59*/ + meltfptr[36] = newobj; }; ; @@ -24390,11 +26683,13 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V59*/ meltfptr[36], "newly made instance"); ; - /*_.TESTERCONT__V58*/ meltfptr[35] = /*_.INST__V59*/ meltfptr[36];; + /*_.TESTERCONT__V58*/ + meltfptr[35] = /*_.INST__V59*/ meltfptr[36];; MELT_LOCATION("warmelt-normatch.melt:1240:/ quasiblock"); - /*_.LISTSUBPA__V61*/ meltfptr[46] = + /*_.LISTSUBPA__V61*/ + meltfptr[46] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[12]))));; /*citerblock FOREACH_IN_MULTIPLE*/ { @@ -24411,10 +26706,12 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L26*/ meltfnum[0] = + /*_#IS_NOT_A__L26*/ + meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.SUBPA__V62*/ meltfptr[45]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ meltfrout->tabval[15])));; MELT_LOCATION("warmelt-normatch.melt:1247:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L26*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L26*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24424,7 +26721,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_.MAKE_INTEGERBOX__V63*/ meltfptr[50] = + /*_.MAKE_INTEGERBOX__V63*/ + meltfptr[50] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[17])), (/*_#SUBIX__L25*/ meltfnum[12])));; MELT_LOCATION("warmelt-normatch.melt:1249:/ quasiblock"); @@ -24434,7 +26732,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_TUPLE_COMPONENT_PATTERN*/ meltfrout->tabval[16])), (2), "CLASS_TUPLE_COMPONENT_PATTERN"); - /*_.INST__V65*/ meltfptr[25] = + /*_.INST__V65*/ + meltfptr[25] = newobj; }; ; @@ -24452,7 +26751,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V65*/ meltfptr[25], "newly made instance"); ; - /*_.INST___V64*/ meltfptr[30] = /*_.INST__V65*/ meltfptr[25];; + /*_.INST___V64*/ + meltfptr[30] = /*_.INST__V65*/ meltfptr[25];; { MELT_LOCATION("warmelt-normatch.melt:1248:/ locexp"); @@ -24462,9 +26762,11 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1247:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V63*/ meltfptr[50] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V63*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V64*/ meltfptr[30] = 0 ; + /*clear*/ /*_.INST___V64*/ + meltfptr[30] = 0 ; } ; } /*noelse*/ @@ -24475,11 +26777,14 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:1243:/ clear"); - /*clear*/ /*_.SUBPA__V62*/ meltfptr[45] = 0 ; + /*clear*/ /*_.SUBPA__V62*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_#SUBIX__L25*/ meltfnum[12] = 0 ; + /*clear*/ /*_#SUBIX__L25*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L26*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_NOT_A__L26*/ + meltfnum[0] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -24502,7 +26807,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L27*/ meltfnum[6] = + /*_#MELT_NEED_DBG__L27*/ + meltfnum[6] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -24511,7 +26817,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1252:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L27*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L27*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24544,16 +26851,20 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_tuplepat unsorted listsubpa="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LISTSUBPA__V61*/ meltfptr[46]; - /*_.MELT_DEBUG_FUN__V67*/ meltfptr[53] = 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__V67*/ + meltfptr[53] = 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___V66*/ meltfptr[49] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[53];; + /*_._IF___V66*/ + meltfptr[49] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[53];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1252:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L28*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L28*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V67*/ meltfptr[53] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V67*/ + meltfptr[53] = 0 ; } ; } @@ -24566,7 +26877,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1252:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -24575,9 +26887,11 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L27*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L27*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V66*/ meltfptr[49] = 0 ; + /*clear*/ /*_._IF___V66*/ + meltfptr[49] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24607,24 +26921,31 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[11]); - /*_.LIST_TO_MULTIPLE__V68*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.LISTSUBPA__V61*/ meltfptr[46]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_TO_MULTIPLE__V68*/ + meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.LISTSUBPA__V61*/ meltfptr[46]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V60*/ meltfptr[38] = /*_.LIST_TO_MULTIPLE__V68*/ meltfptr[50];; + /*_.LET___V60*/ + meltfptr[38] = /*_.LIST_TO_MULTIPLE__V68*/ meltfptr[50];; MELT_LOCATION("warmelt-normatch.melt:1240:/ clear"); - /*clear*/ /*_.LISTSUBPA__V61*/ meltfptr[46] = 0 ; + /*clear*/ /*_.LISTSUBPA__V61*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_TO_MULTIPLE__V68*/ meltfptr[50] = 0 ; - /*_.UNSORTEDSUBPA__V69*/ meltfptr[30] = /*_.LET___V60*/ meltfptr[38];; + /*clear*/ /*_.LIST_TO_MULTIPLE__V68*/ + meltfptr[50] = 0 ; + /*_.UNSORTEDSUBPA__V69*/ + meltfptr[30] = /*_.LET___V60*/ meltfptr[38];; MELT_LOCATION("warmelt-normatch.melt:1258:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V71*/ meltfptr[49] = + /*newclosure*/ /*_.LAMBDA___V71*/ + meltfptr[49] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_22*/ meltfrout->tabval[22])), (0)); ; - /*_.LAMBDA___V70*/ meltfptr[53] = /*_.LAMBDA___V71*/ meltfptr[49];; + /*_.LAMBDA___V70*/ + meltfptr[53] = /*_.LAMBDA___V71*/ meltfptr[49];; MELT_CHECK_SIGNAL(); ; @@ -24637,7 +26958,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V70*/ meltfptr[53]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[11]); - /*_.SORTEDSUBPA__V72*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.UNSORTEDSUBPA__V69*/ meltfptr[30]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SORTEDSUBPA__V72*/ + meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.UNSORTEDSUBPA__V69*/ meltfptr[30]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -24660,7 +26982,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L29*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L29*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -24669,7 +26992,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1267:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L29*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L29*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24710,16 +27034,20 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[7].meltbp_cstring = "\n sortedsubpa="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.SORTEDSUBPA__V72*/ meltfptr[46]; - /*_.MELT_DEBUG_FUN__V74*/ meltfptr[73] = 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__V74*/ + meltfptr[73] = 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___V73*/ meltfptr[50] = /*_.MELT_DEBUG_FUN__V74*/ meltfptr[73];; + /*_._IF___V73*/ + meltfptr[50] = /*_.MELT_DEBUG_FUN__V74*/ meltfptr[73];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1267:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L30*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L30*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V74*/ meltfptr[73] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V74*/ + meltfptr[73] = 0 ; } ; } @@ -24732,7 +27060,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1267:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -24741,9 +27070,11 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L29*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L29*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V73*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IF___V73*/ + meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24773,10 +27104,12 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L31*/ meltfnum[6] = + /*_#IS_LIST__L31*/ + meltfnum[6] = (melt_magic_discr((melt_ptr_t)(/*_.TESTLOCCL__V57*/ meltfptr[26])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normatch.melt:1270:/ cond"); - /*cond*/ if (/*_#IS_LIST__L31*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L31*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V76*/ meltfptr[50] = (/*nil*/NULL);; @@ -24803,25 +27136,31 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1270; - /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[76] = 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__V77*/ + meltfptr[76] = 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___V76*/ meltfptr[50] = /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[76];; + /*_._IFELSE___V76*/ + meltfptr[50] = /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[76];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1270:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[76] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V77*/ + meltfptr[76] = 0 ; } ; } ; - /*_.IFCPP___V75*/ meltfptr[73] = /*_._IFELSE___V76*/ meltfptr[50];; + /*_.IFCPP___V75*/ + meltfptr[73] = /*_._IFELSE___V76*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1270:/ clear"); - /*clear*/ /*_#IS_LIST__L31*/ meltfnum[6] = 0 ; + /*clear*/ /*_#IS_LIST__L31*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V76*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IFELSE___V76*/ + meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24861,7 +27200,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L33*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L33*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -24870,7 +27210,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1274:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L33*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L33*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24907,16 +27248,20 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[5].meltbp_cstring = " tupatix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#TUPATIX__L32*/ meltfnum[11]; - /*_.MELT_DEBUG_FUN__V80*/ 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_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V80*/ + 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V79*/ meltfptr[50] = /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79];; + /*_._IF___V79*/ + meltfptr[50] = /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1274:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L34*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L34*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V80*/ + meltfptr[79] = 0 ; } ; } @@ -24929,7 +27274,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1274:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -24938,9 +27284,11 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L33*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L33*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V79*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IF___V79*/ + meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24970,10 +27318,12 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L35*/ meltfnum[6] = + /*_#IS_A__L35*/ + meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.CURTUPAT__V78*/ meltfptr[76]), (melt_ptr_t)((/*!CLASS_TUPLE_COMPONENT_PATTERN*/ meltfrout->tabval[16])));; MELT_LOCATION("warmelt-normatch.melt:1275:/ cond"); - /*cond*/ if (/*_#IS_A__L35*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#IS_A__L35*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V82*/ meltfptr[50] = (/*nil*/NULL);; @@ -25000,25 +27350,31 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1275; - /*_.MELT_ASSERT_FAILURE_FUN__V83*/ meltfptr[82] = 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__V83*/ + meltfptr[82] = 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___V82*/ meltfptr[50] = /*_.MELT_ASSERT_FAILURE_FUN__V83*/ meltfptr[82];; + /*_._IFELSE___V82*/ + meltfptr[50] = /*_.MELT_ASSERT_FAILURE_FUN__V83*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1275:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V83*/ + meltfptr[82] = 0 ; } ; } ; - /*_.IFCPP___V81*/ meltfptr[79] = /*_._IFELSE___V82*/ meltfptr[50];; + /*_.IFCPP___V81*/ + meltfptr[79] = /*_._IFELSE___V82*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1275:/ clear"); - /*clear*/ /*_#IS_A__L35*/ meltfnum[6] = 0 ; + /*clear*/ /*_#IS_A__L35*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V82*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IFELSE___V82*/ + meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25030,7 +27386,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURTUPAT__V78*/ meltfptr[76]), (melt_ptr_t)((/*!CLASS_TUPLE_COMPONENT_PATTERN*/ meltfrout->tabval[16]))) ) /*then*/ @@ -25041,7 +27398,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURTUPAT__V78*/ meltfptr[76]) /*=obj*/; melt_object_get_field(slot,obj, 0, "TUPCP_PATTERN"); - /*_.CURPAT__V84*/ meltfptr[82] = slot; + /*_.CURPAT__V84*/ + meltfptr[82] = slot; }; ; } @@ -25052,7 +27410,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ } ; MELT_LOCATION("warmelt-normatch.melt:1277:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURTUPAT__V78*/ meltfptr[76]), (melt_ptr_t)((/*!CLASS_TUPLE_COMPONENT_PATTERN*/ meltfrout->tabval[16]))) ) /*then*/ @@ -25063,7 +27422,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURTUPAT__V78*/ meltfptr[76]) /*=obj*/; melt_object_get_field(slot,obj, 1, "TUPCP_INDEX"); - /*_.TUPCP_INDEX__V85*/ meltfptr[50] = slot; + /*_.TUPCP_INDEX__V85*/ + meltfptr[50] = slot; }; ; } @@ -25074,13 +27434,15 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ } ; /*^compute*/ - /*_#PATIX__L36*/ meltfnum[17] = + /*_#PATIX__L36*/ + meltfnum[17] = (melt_get_int((melt_ptr_t)(/*_.TUPCP_INDEX__V85*/ meltfptr[50])));; MELT_LOCATION("warmelt-normatch.melt:1279:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V87*/ meltfptr[86] = + /*newclosure*/ /*_.LAMBDA___V87*/ + meltfptr[86] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_28*/ meltfrout->tabval[28])), (1)); ; /*^putclosedv*/ @@ -25089,7 +27451,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V87*/ meltfptr[86]))); ((meltclosure_ptr_t)/*_.LAMBDA___V87*/ meltfptr[86])->tabval[0] = (melt_ptr_t)(/*_.TESTERCONT__V58*/ meltfptr[35]); ; - /*_.SUBHDLER__V86*/ meltfptr[85] = /*_.LAMBDA___V87*/ meltfptr[86];; + /*_.SUBHDLER__V86*/ + meltfptr[85] = /*_.LAMBDA___V87*/ meltfptr[86];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1291:/ cppif.then"); @@ -25110,7 +27473,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L37*/ meltfnum[6] = + /*_#MELT_NEED_DBG__L37*/ + meltfnum[6] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -25119,7 +27483,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1291:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L37*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25156,16 +27521,20 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[5].meltbp_cstring = " patix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#PATIX__L36*/ meltfnum[17]; - /*_.MELT_DEBUG_FUN__V89*/ meltfptr[88] = 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_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V89*/ + meltfptr[88] = 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V88*/ meltfptr[87] = /*_.MELT_DEBUG_FUN__V89*/ meltfptr[88];; + /*_._IF___V88*/ + meltfptr[87] = /*_.MELT_DEBUG_FUN__V89*/ meltfptr[88];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1291:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[37] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L38*/ + meltfnum[37] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V89*/ meltfptr[88] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V89*/ + meltfptr[88] = 0 ; } ; } @@ -25178,7 +27547,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1291:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -25187,9 +27557,11 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L37*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V88*/ meltfptr[87] = 0 ; + /*clear*/ /*_._IF___V88*/ + meltfptr[87] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25212,7 +27584,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_LOCATION("warmelt-normatch.melt:1292:/ quasiblock"); - /*_.CURLOCCL__V90*/ meltfptr[88] = (/*nil*/NULL);; + /*_.CURLOCCL__V90*/ + meltfptr[88] = (/*nil*/NULL);; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1294:/ cppif.then"); @@ -25233,7 +27606,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ 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)) @@ -25242,7 +27616,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1294:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L39*/ meltfnum[37]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L39*/ meltfnum[37]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25275,16 +27650,20 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_tuplepat scanning testloccl"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TESTLOCCL__V57*/ meltfptr[26]; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V91*/ meltfptr[87] = /*_.MELT_DEBUG_FUN__V92*/ meltfptr[91];; + /*_._IF___V91*/ + meltfptr[87] = /*_.MELT_DEBUG_FUN__V92*/ meltfptr[91];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1294:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L40*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L40*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V92*/ meltfptr[91] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V92*/ + meltfptr[91] = 0 ; } ; } @@ -25297,7 +27676,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1294:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -25306,9 +27686,11 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L39*/ meltfnum[37] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L39*/ + meltfnum[37] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V91*/ meltfptr[87] = 0 ; + /*clear*/ /*_._IF___V91*/ + meltfptr[87] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25348,10 +27730,12 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L41*/ meltfnum[6] = + /*_#IS_A__L41*/ + meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.TESTLOCSY__V94*/ meltfptr[87]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[29])));; MELT_LOCATION("warmelt-normatch.melt:1299:/ cond"); - /*cond*/ if (/*_#IS_A__L41*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#IS_A__L41*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V96*/ meltfptr[95] = (/*nil*/NULL);; @@ -25378,25 +27762,31 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1299; - /*_.MELT_ASSERT_FAILURE_FUN__V97*/ meltfptr[96] = 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__V97*/ + meltfptr[96] = 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___V96*/ meltfptr[95] = /*_.MELT_ASSERT_FAILURE_FUN__V97*/ meltfptr[96];; + /*_._IFELSE___V96*/ + meltfptr[95] = /*_.MELT_ASSERT_FAILURE_FUN__V97*/ meltfptr[96];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1299:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V97*/ meltfptr[96] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V97*/ + meltfptr[96] = 0 ; } ; } ; - /*_.IFCPP___V95*/ meltfptr[94] = /*_._IFELSE___V96*/ meltfptr[95];; + /*_.IFCPP___V95*/ + meltfptr[94] = /*_._IFELSE___V96*/ meltfptr[95];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1299:/ clear"); - /*clear*/ /*_#IS_A__L41*/ meltfnum[6] = 0 ; + /*clear*/ /*_#IS_A__L41*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V96*/ meltfptr[95] = 0 ; + /*clear*/ /*_._IFELSE___V96*/ + meltfptr[95] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25408,7 +27798,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1301:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTLOCSY__V94*/ meltfptr[87]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ meltfrout->tabval[30]))) ) /*then*/ @@ -25419,7 +27810,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TESTLOCSY__V94*/ meltfptr[87]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NOCC_BIND"); - /*_.NOCC_BIND__V98*/ meltfptr[96] = slot; + /*_.NOCC_BIND__V98*/ + meltfptr[96] = slot; }; ; } @@ -25430,7 +27822,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ } ; MELT_LOCATION("warmelt-normatch.melt:1301:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NOCC_BIND__V98*/ meltfptr[96]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ meltfrout->tabval[31]))) ) /*then*/ @@ -25441,7 +27834,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NOCC_BIND__V98*/ meltfptr[96]) /*=obj*/; melt_object_get_field(slot,obj, 2, "LETBIND_EXPR"); - /*_.LETBIND_EXPR__V99*/ meltfptr[95] = slot; + /*_.LETBIND_EXPR__V99*/ + meltfptr[95] = slot; }; ; } @@ -25452,7 +27846,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ } ; MELT_LOCATION("warmelt-normatch.melt:1301:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.LETBIND_EXPR__V99*/ meltfptr[95]), (melt_ptr_t)((/*!CLASS_NREP_UNSAFE_NTH_COMPONENT*/ meltfrout->tabval[32]))) ) /*then*/ @@ -25463,7 +27858,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LETBIND_EXPR__V99*/ meltfptr[95]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NUNTH_INDEX"); - /*_.NUNTH_INDEX__V100*/ meltfptr[99] = slot; + /*_.NUNTH_INDEX__V100*/ + meltfptr[99] = slot; }; ; } @@ -25474,13 +27870,16 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ } ; /*^compute*/ - /*_#GET_INT__L42*/ meltfnum[37] = + /*_#GET_INT__L42*/ + meltfnum[37] = (melt_get_int((melt_ptr_t)(/*_.NUNTH_INDEX__V100*/ meltfptr[99])));; /*^compute*/ - /*_#eqeqI__L43*/ meltfnum[6] = + /*_#eqeqI__L43*/ + meltfnum[6] = ((/*_#PATIX__L36*/ meltfnum[17]) == (/*_#GET_INT__L42*/ meltfnum[37]));; MELT_LOCATION("warmelt-normatch.melt:1300:/ cond"); - /*cond*/ if (/*_#eqeqI__L43*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#eqeqI__L43*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25488,23 +27887,30 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1303:/ compute"); - /*_.TESTPAIR__V93*/ meltfptr[91] = /*_.SETQ___V102*/ meltfptr[101] = (/*nil*/NULL);; + /*_.TESTPAIR__V93*/ + meltfptr[91] = /*_.SETQ___V102*/ meltfptr[101] = (/*nil*/NULL);; MELT_LOCATION("warmelt-normatch.melt:1304:/ compute"); - /*_.CURLOCCL__V90*/ meltfptr[88] = /*_.SETQ___V103*/ meltfptr[102] = /*_.TESTLOCSY__V94*/ meltfptr[87];; + /*_.CURLOCCL__V90*/ + meltfptr[88] = /*_.SETQ___V103*/ meltfptr[102] = /*_.TESTLOCSY__V94*/ meltfptr[87];; MELT_LOCATION("warmelt-normatch.melt:1302:/ quasiblock"); - /*_.PROGN___V104*/ meltfptr[103] = /*_.SETQ___V103*/ meltfptr[102];; + /*_.PROGN___V104*/ + meltfptr[103] = /*_.SETQ___V103*/ meltfptr[102];; /*^compute*/ - /*_._IF___V101*/ meltfptr[100] = /*_.PROGN___V104*/ meltfptr[103];; + /*_._IF___V101*/ + meltfptr[100] = /*_.PROGN___V104*/ meltfptr[103];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1300:/ clear"); - /*clear*/ /*_.SETQ___V102*/ meltfptr[101] = 0 ; + /*clear*/ /*_.SETQ___V102*/ + meltfptr[101] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V103*/ meltfptr[102] = 0 ; + /*clear*/ /*_.SETQ___V103*/ + meltfptr[102] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V104*/ meltfptr[103] = 0 ; + /*clear*/ /*_.PROGN___V104*/ + meltfptr[103] = 0 ; } ; } @@ -25516,29 +27922,39 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ ; } /* end foreach_pair_component_in_list meltcit3__EACHLIST */ /*_.TESTPAIR__V93*/ meltfptr[91] = NULL; - /*_.TESTLOCSY__V94*/ meltfptr[87] = NULL; + /*_.TESTLOCSY__V94*/ + meltfptr[87] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:1296:/ clear"); - /*clear*/ /*_.TESTPAIR__V93*/ meltfptr[91] = 0 ; + /*clear*/ /*_.TESTPAIR__V93*/ + meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTLOCSY__V94*/ meltfptr[87] = 0 ; + /*clear*/ /*_.TESTLOCSY__V94*/ + meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V95*/ meltfptr[94] = 0 ; + /*clear*/ /*_.IFCPP___V95*/ + meltfptr[94] = 0 ; /*^clear*/ - /*clear*/ /*_.NOCC_BIND__V98*/ meltfptr[96] = 0 ; + /*clear*/ /*_.NOCC_BIND__V98*/ + meltfptr[96] = 0 ; /*^clear*/ - /*clear*/ /*_.LETBIND_EXPR__V99*/ meltfptr[95] = 0 ; + /*clear*/ /*_.LETBIND_EXPR__V99*/ + meltfptr[95] = 0 ; /*^clear*/ - /*clear*/ /*_.NUNTH_INDEX__V100*/ meltfptr[99] = 0 ; + /*clear*/ /*_.NUNTH_INDEX__V100*/ + meltfptr[99] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L42*/ meltfnum[37] = 0 ; + /*clear*/ /*_#GET_INT__L42*/ + meltfnum[37] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeqI__L43*/ meltfnum[6] = 0 ; + /*clear*/ /*_#eqeqI__L43*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V101*/ meltfptr[100] = 0 ; + /*clear*/ /*_._IF___V101*/ + meltfptr[100] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -25561,7 +27977,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L44*/ meltfnum[43] = + /*_#MELT_NEED_DBG__L44*/ + meltfnum[43] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -25570,7 +27987,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1306:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L44*/ meltfnum[43]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L44*/ meltfnum[43]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25603,16 +28021,20 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_tuplepat got curloccl="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURLOCCL__V90*/ meltfptr[88]; - /*_.MELT_DEBUG_FUN__V106*/ meltfptr[102] = 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__V106*/ + meltfptr[102] = 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___V105*/ meltfptr[101] = /*_.MELT_DEBUG_FUN__V106*/ meltfptr[102];; + /*_._IF___V105*/ + meltfptr[101] = /*_.MELT_DEBUG_FUN__V106*/ meltfptr[102];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1306:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L45*/ meltfnum[44] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L45*/ + meltfnum[44] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V106*/ meltfptr[102] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V106*/ + meltfptr[102] = 0 ; } ; } @@ -25625,7 +28047,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1306:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -25634,9 +28057,11 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L44*/ meltfnum[43] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L44*/ + meltfnum[43] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V105*/ meltfptr[101] = 0 ; + /*clear*/ /*_._IF___V105*/ + meltfptr[101] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25659,10 +28084,12 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#NULL__L46*/ meltfnum[44] = + /*_#NULL__L46*/ + meltfnum[44] = (/*null*/(/*_.CURLOCCL__V90*/ meltfptr[88]) == NULL);; MELT_LOCATION("warmelt-normatch.melt:1308:/ cond"); - /*cond*/ if (/*_#NULL__L46*/ meltfnum[44]) /*then*/ + /*cond*/ + if (/*_#NULL__L46*/ meltfnum[44]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25684,7 +28111,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_.MAKE_INTEGERBOX__V110*/ meltfptr[109] = + /*_.MAKE_INTEGERBOX__V110*/ + meltfptr[109] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[17])), (/*_#PATIX__L36*/ meltfnum[17])));; MELT_LOCATION("warmelt-normatch.melt:1311:/ quasiblock"); @@ -25694,7 +28122,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_NTH_COMPONENT*/ meltfrout->tabval[32])), (3), "CLASS_NREP_UNSAFE_NTH_COMPONENT"); - /*_.INST__V112*/ meltfptr[111] = + /*_.INST__V112*/ + meltfptr[111] = newobj; }; ; @@ -25717,7 +28146,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V112*/ meltfptr[111], "newly made instance"); ; - /*_.NUNTHEXP__V111*/ meltfptr[110] = /*_.INST__V112*/ meltfptr[111];; + /*_.NUNTHEXP__V111*/ + meltfptr[110] = /*_.INST__V112*/ meltfptr[111];; MELT_CHECK_SIGNAL(); ; @@ -25729,7 +28159,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[35])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V114*/ meltfptr[113] = + /*_.INST__V114*/ + meltfptr[113] = newobj; }; ; @@ -25757,7 +28188,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V114*/ meltfptr[113], "newly made instance"); ; - /*_.NEWBIND__V113*/ meltfptr[112] = /*_.INST__V114*/ meltfptr[113];; + /*_.NEWBIND__V113*/ + meltfptr[112] = /*_.INST__V114*/ meltfptr[113];; MELT_CHECK_SIGNAL(); ; @@ -25769,7 +28201,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[29])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V116*/ meltfptr[115] = + /*_.INST__V116*/ + meltfptr[115] = newobj; }; ; @@ -25797,7 +28230,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V116*/ meltfptr[115], "newly made instance"); ; - /*_.NEWLOCC__V115*/ meltfptr[114] = /*_.INST__V116*/ meltfptr[115];; + /*_.NEWLOCC__V115*/ + meltfptr[114] = /*_.INST__V116*/ meltfptr[115];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1328:/ cppif.then"); @@ -25818,7 +28252,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L47*/ meltfnum[43] = + /*_#MELT_NEED_DBG__L47*/ + meltfnum[43] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -25827,7 +28262,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1328:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L47*/ meltfnum[43]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L47*/ meltfnum[43]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25864,16 +28300,20 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[5].meltbp_cstring = "\n* newbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NEWBIND__V113*/ meltfptr[112]; - /*_.MELT_DEBUG_FUN__V118*/ meltfptr[117] = 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__V118*/ + meltfptr[117] = 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___V117*/ meltfptr[116] = /*_.MELT_DEBUG_FUN__V118*/ meltfptr[117];; + /*_._IF___V117*/ + meltfptr[116] = /*_.MELT_DEBUG_FUN__V118*/ meltfptr[117];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1328:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L48*/ meltfnum[47] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L48*/ + meltfnum[47] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V118*/ meltfptr[117] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V118*/ + meltfptr[117] = 0 ; } ; } @@ -25886,7 +28326,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1328:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -25895,9 +28336,11 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L47*/ meltfnum[43] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L47*/ + meltfnum[43] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V117*/ meltfptr[116] = 0 ; + /*clear*/ /*_._IF___V117*/ + meltfptr[116] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25918,7 +28361,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normatch.melt:1331:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTER__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NORMTESTER_TUPLE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -25929,7 +28373,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TESTER__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NTTUPLE_COMPONENTS"); - /*_.NTTUPLE_COMPONENTS__V119*/ meltfptr[117] = slot; + /*_.NTTUPLE_COMPONENTS__V119*/ + meltfptr[117] = slot; }; ; } @@ -25946,7 +28391,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ } ; MELT_LOCATION("warmelt-normatch.melt:1336:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCX__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[37]))) ) /*then*/ @@ -25957,7 +28403,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V16*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NCTX_SYMBCACHEMAP"); - /*_.NCTX_SYMBCACHEMAP__V120*/ meltfptr[116] = slot; + /*_.NCTX_SYMBCACHEMAP__V120*/ + meltfptr[116] = slot; }; ; } @@ -25995,7 +28442,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L49*/ meltfnum[47] = + /*_#MELT_NEED_DBG__L49*/ + meltfnum[47] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -26004,7 +28452,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1337:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L49*/ meltfnum[47]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L49*/ meltfnum[47]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26037,16 +28486,20 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_tuplepat updated components tester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TESTER__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V122*/ meltfptr[121] = 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__V122*/ + meltfptr[121] = 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___V121*/ meltfptr[120] = /*_.MELT_DEBUG_FUN__V122*/ meltfptr[121];; + /*_._IF___V121*/ + meltfptr[120] = /*_.MELT_DEBUG_FUN__V122*/ meltfptr[121];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1337:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L50*/ meltfnum[43] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L50*/ + meltfnum[43] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V122*/ meltfptr[121] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V122*/ + meltfptr[121] = 0 ; } ; } @@ -26059,7 +28512,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1337:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -26068,9 +28522,11 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L49*/ meltfnum[47] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L49*/ + meltfnum[47] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V121*/ meltfptr[120] = 0 ; + /*clear*/ /*_._IF___V121*/ + meltfptr[120] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26116,7 +28572,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L51*/ meltfnum[43] = + /*_#MELT_NEED_DBG__L51*/ + meltfnum[43] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -26125,7 +28582,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1339:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L51*/ meltfnum[43]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L51*/ meltfnum[43]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26158,16 +28616,20 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_tuplepat made newlocc"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWLOCC__V115*/ meltfptr[114]; - /*_.MELT_DEBUG_FUN__V124*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V124*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V123*/ meltfptr[121] = /*_.MELT_DEBUG_FUN__V124*/ meltfptr[120];; + /*_._IF___V123*/ + meltfptr[121] = /*_.MELT_DEBUG_FUN__V124*/ meltfptr[120];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1339:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L52*/ meltfnum[47] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L52*/ + meltfnum[47] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V124*/ meltfptr[120] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V124*/ + meltfptr[120] = 0 ; } ; } @@ -26180,7 +28642,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1339:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -26189,9 +28652,11 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L51*/ meltfnum[43] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L51*/ + meltfnum[43] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V123*/ meltfptr[121] = 0 ; + /*clear*/ /*_._IF___V123*/ + meltfptr[121] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26212,30 +28677,42 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normatch.melt:1340:/ compute"); - /*_.CURLOCCL__V90*/ meltfptr[88] = /*_.SETQ___V125*/ meltfptr[120] = /*_.NEWLOCC__V115*/ meltfptr[114];; - /*_.LET___V108*/ meltfptr[102] = /*_.SETQ___V125*/ meltfptr[120];; + /*_.CURLOCCL__V90*/ + meltfptr[88] = /*_.SETQ___V125*/ meltfptr[120] = /*_.NEWLOCC__V115*/ meltfptr[114];; + /*_.LET___V108*/ + meltfptr[102] = /*_.SETQ___V125*/ meltfptr[120];; MELT_LOCATION("warmelt-normatch.melt:1309:/ clear"); - /*clear*/ /*_.NEWSYM__V109*/ meltfptr[101] = 0 ; + /*clear*/ /*_.NEWSYM__V109*/ + meltfptr[101] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V110*/ meltfptr[109] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V110*/ + meltfptr[109] = 0 ; /*^clear*/ - /*clear*/ /*_.NUNTHEXP__V111*/ meltfptr[110] = 0 ; + /*clear*/ /*_.NUNTHEXP__V111*/ + meltfptr[110] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWBIND__V113*/ meltfptr[112] = 0 ; + /*clear*/ /*_.NEWBIND__V113*/ + meltfptr[112] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWLOCC__V115*/ meltfptr[114] = 0 ; + /*clear*/ /*_.NEWLOCC__V115*/ + meltfptr[114] = 0 ; /*^clear*/ - /*clear*/ /*_.NTTUPLE_COMPONENTS__V119*/ meltfptr[117] = 0 ; + /*clear*/ /*_.NTTUPLE_COMPONENTS__V119*/ + meltfptr[117] = 0 ; /*^clear*/ - /*clear*/ /*_.NCTX_SYMBCACHEMAP__V120*/ meltfptr[116] = 0 ; + /*clear*/ /*_.NCTX_SYMBCACHEMAP__V120*/ + meltfptr[116] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V125*/ meltfptr[120] = 0 ; - /*_._IF___V107*/ meltfptr[103] = /*_.LET___V108*/ meltfptr[102];; + /*clear*/ /*_.SETQ___V125*/ + meltfptr[120] = 0 ; + /*_._IF___V107*/ + meltfptr[103] = /*_.LET___V108*/ meltfptr[102];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1308:/ clear"); - /*clear*/ /*_.LET___V108*/ meltfptr[102] = 0 ; + /*clear*/ /*_.LET___V108*/ + meltfptr[102] = 0 ; } ; } @@ -26265,7 +28742,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L53*/ meltfnum[47] = + /*_#MELT_NEED_DBG__L53*/ + meltfnum[47] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -26274,7 +28752,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1342:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L53*/ meltfnum[47]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L53*/ meltfnum[47]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26311,16 +28790,20 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[5].meltbp_cstring = " curloccl="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURLOCCL__V90*/ meltfptr[88]; - /*_.MELT_DEBUG_FUN__V127*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V127*/ + 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V126*/ meltfptr[121] = /*_.MELT_DEBUG_FUN__V127*/ meltfptr[101];; + /*_._IF___V126*/ + meltfptr[121] = /*_.MELT_DEBUG_FUN__V127*/ meltfptr[101];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1342:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L54*/ meltfnum[43] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L54*/ + meltfnum[43] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V127*/ meltfptr[101] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V127*/ + meltfptr[101] = 0 ; } ; } @@ -26333,7 +28816,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1342:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -26342,9 +28826,11 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L53*/ meltfnum[47] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L53*/ + meltfnum[47] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V126*/ meltfptr[121] = 0 ; + /*clear*/ /*_._IF___V126*/ + meltfptr[121] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26378,7 +28864,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SUBHDLER__V86*/ meltfptr[85]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.NORMAL_PATTERN__V128*/ meltfptr[109] = meltgc_send((melt_ptr_t)(/*_.CURPAT__V84*/ meltfptr[82]), (melt_ptr_t)((/*!NORMAL_PATTERN*/ meltfrout->tabval[38])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PATTERN__V128*/ + meltfptr[109] = meltgc_send((melt_ptr_t)(/*_.CURPAT__V84*/ meltfptr[82]), (melt_ptr_t)((/*!NORMAL_PATTERN*/ meltfrout->tabval[38])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -26401,7 +28888,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L55*/ meltfnum[43] = + /*_#MELT_NEED_DBG__L55*/ + meltfnum[43] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -26410,7 +28898,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1344:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L55*/ meltfnum[43]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L55*/ meltfnum[43]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26447,16 +28936,20 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[5].meltbp_cstring = " patix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#PATIX__L36*/ meltfnum[17]; - /*_.MELT_DEBUG_FUN__V130*/ meltfptr[112] = 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_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V130*/ + meltfptr[112] = 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V129*/ meltfptr[110] = /*_.MELT_DEBUG_FUN__V130*/ meltfptr[112];; + /*_._IF___V129*/ + meltfptr[110] = /*_.MELT_DEBUG_FUN__V130*/ meltfptr[112];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1344:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L56*/ meltfnum[47] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L56*/ + meltfnum[47] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V130*/ meltfptr[112] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V130*/ + meltfptr[112] = 0 ; } ; } @@ -26469,7 +28962,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1344:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -26478,9 +28972,11 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L55*/ meltfnum[43] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L55*/ + meltfnum[43] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V129*/ meltfptr[110] = 0 ; + /*clear*/ /*_._IF___V129*/ + meltfptr[110] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26502,33 +28998,44 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ ; MELT_LOCATION("warmelt-normatch.melt:1292:/ clear"); - /*clear*/ /*_.CURLOCCL__V90*/ meltfptr[88] = 0 ; + /*clear*/ /*_.CURLOCCL__V90*/ + meltfptr[88] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L46*/ meltfnum[44] = 0 ; + /*clear*/ /*_#NULL__L46*/ + meltfnum[44] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V107*/ meltfptr[103] = 0 ; + /*clear*/ /*_._IF___V107*/ + meltfptr[103] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PATTERN__V128*/ meltfptr[109] = 0 ; + /*clear*/ /*_.NORMAL_PATTERN__V128*/ + meltfptr[109] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1276:/ clear"); - /*clear*/ /*_.CURPAT__V84*/ meltfptr[82] = 0 ; + /*clear*/ /*_.CURPAT__V84*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPCP_INDEX__V85*/ meltfptr[50] = 0 ; + /*clear*/ /*_.TUPCP_INDEX__V85*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_#PATIX__L36*/ meltfnum[17] = 0 ; + /*clear*/ /*_#PATIX__L36*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.SUBHDLER__V86*/ meltfptr[85] = 0 ; + /*clear*/ /*_.SUBHDLER__V86*/ + meltfptr[85] = 0 ; if (/*_#TUPATIX__L32*/ meltfnum[11]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:1271:/ clear"); - /*clear*/ /*_.CURTUPAT__V78*/ meltfptr[76] = 0 ; + /*clear*/ /*_.CURTUPAT__V78*/ + meltfptr[76] = 0 ; /*^clear*/ - /*clear*/ /*_#TUPATIX__L32*/ meltfnum[11] = 0 ; + /*clear*/ /*_#TUPATIX__L32*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V81*/ meltfptr[79] = 0 ; + /*clear*/ /*_.IFCPP___V81*/ + meltfptr[79] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -26551,7 +29058,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L57*/ meltfnum[47] = + /*_#MELT_NEED_DBG__L57*/ + meltfnum[47] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -26560,7 +29068,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1346:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L57*/ meltfnum[47]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L57*/ meltfnum[47]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26593,16 +29102,20 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_tuplepat final tester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TESTER__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V132*/ meltfptr[117] = 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__V132*/ + meltfptr[117] = 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___V131*/ meltfptr[114] = /*_.MELT_DEBUG_FUN__V132*/ meltfptr[117];; + /*_._IF___V131*/ + meltfptr[114] = /*_.MELT_DEBUG_FUN__V132*/ meltfptr[117];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1346:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L58*/ meltfnum[43] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L58*/ + meltfnum[43] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V132*/ meltfptr[117] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V132*/ + meltfptr[117] = 0 ; } ; } @@ -26615,7 +29128,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1346:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -26624,9 +29138,11 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L57*/ meltfnum[47] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L57*/ + meltfnum[47] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V131*/ meltfptr[114] = 0 ; + /*clear*/ /*_._IF___V131*/ + meltfptr[114] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26666,7 +29182,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L59*/ meltfnum[44] = + /*_#MELT_NEED_DBG__L59*/ + meltfnum[44] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -26675,7 +29192,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1347:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L59*/ meltfnum[44]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L59*/ meltfnum[44]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26708,16 +29226,20 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_tuplepat recv end"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V134*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V134*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V133*/ meltfptr[116] = /*_.MELT_DEBUG_FUN__V134*/ meltfptr[120];; + /*_._IF___V133*/ + meltfptr[116] = /*_.MELT_DEBUG_FUN__V134*/ meltfptr[120];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1347:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L60*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L60*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V134*/ meltfptr[120] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V134*/ + meltfptr[120] = 0 ; } ; } @@ -26730,7 +29252,8 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1347:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -26739,9 +29262,11 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L59*/ meltfnum[44] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L59*/ + meltfnum[44] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V133*/ meltfptr[116] = 0 ; + /*clear*/ /*_._IF___V133*/ + meltfptr[116] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26763,49 +29288,68 @@ meltlabexit_LOOPSTUFF_3:;/*^loopepilog*/ ; MELT_LOCATION("warmelt-normatch.melt:1235:/ clear"); - /*clear*/ /*_.TESTLOCCL__V57*/ meltfptr[26] = 0 ; + /*clear*/ /*_.TESTLOCCL__V57*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTERCONT__V58*/ meltfptr[35] = 0 ; + /*clear*/ /*_.TESTERCONT__V58*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V60*/ meltfptr[38] = 0 ; + /*clear*/ /*_.LET___V60*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.UNSORTEDSUBPA__V69*/ meltfptr[30] = 0 ; + /*clear*/ /*_.UNSORTEDSUBPA__V69*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V70*/ meltfptr[53] = 0 ; + /*clear*/ /*_.LAMBDA___V70*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.SORTEDSUBPA__V72*/ meltfptr[46] = 0 ; + /*clear*/ /*_.SORTEDSUBPA__V72*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V75*/ meltfptr[73] = 0 ; + /*clear*/ /*_.IFCPP___V75*/ + meltfptr[73] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1172:/ clear"); - /*clear*/ /*_.SLOC__V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.SLOC__V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPSUBPA__V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_.TUPSUBPA__V15*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_#NBCOMP__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NBCOMP__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.NCX__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.NCX__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.STUFFMAP__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.STUFFMAP__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.TSTUFF__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.TSTUFF__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.CURHDLER__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.CURHDLER__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTER__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.TESTER__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTLIST__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.TESTLIST__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V24*/ meltfptr[22] = 0 ; + /*clear*/ /*_.FOREVER___V24*/ + meltfptr[22] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1168:/ 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 ; } ; @@ -26887,7 +29431,8 @@ meltrout_27_WARMELTmiNORMATCH_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_27_WARMELTmiNORMATCH_LAMBDA_cl6 fromline 1756 */ - /* classy proc frame meltrout_27_WARMELTmiNORMATCH_LAMBDA_cl6 */ MeltFrame_meltrout_27_WARMELTmiNORMATCH_LAMBDA_cl6 + /* classy proc frame meltrout_27_WARMELTmiNORMATCH_LAMBDA_cl6 */ + MeltFrame_meltrout_27_WARMELTmiNORMATCH_LAMBDA_cl6 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_27_WARMELTmiNORMATCH_LAMBDA_cl6 fromline 1785*/ #if ENABLE_CHECKING @@ -26900,7 +29445,8 @@ meltrout_27_WARMELTmiNORMATCH_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl6", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -26910,7 +29456,8 @@ meltrout_27_WARMELTmiNORMATCH_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1199:/ getarg"); - /*_.TESTER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.TESTER__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -26935,7 +29482,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1201:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~TSTUFF*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[0]))) ) /*then*/ @@ -26982,7 +29530,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)) @@ -26991,7 +29540,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1202:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27024,16 +29574,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_tuplepat lambda updatelse of tstuff="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*~TSTUFF*/ meltfclos->tabval[0]); - /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 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__V4*/ + meltfptr[3] = 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___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; + /*_._IF___V3*/ + meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1202:/ 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 ; } ; } @@ -27046,7 +29600,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1202:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27055,9 +29610,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*/ @@ -27078,7 +29635,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normatch.melt:1203:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTER__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[0]))) ) /*then*/ @@ -27089,7 +29647,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TESTER__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "NTEST_COMEFROM"); - /*_.NTEST_COMEFROM__V5*/ meltfptr[3] = slot; + /*_.NTEST_COMEFROM__V5*/ + meltfptr[3] = slot; }; ; } @@ -27111,7 +29670,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1199:/ clear"); - /*clear*/ /*_.NTEST_COMEFROM__V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.NTEST_COMEFROM__V5*/ + meltfptr[3] = 0 ; } ; @@ -27193,7 +29753,8 @@ meltrout_28_WARMELTmiNORMATCH_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_28_WARMELTmiNORMATCH_LAMBDA_cl7 fromline 1756 */ - /* classy proc frame meltrout_28_WARMELTmiNORMATCH_LAMBDA_cl7 */ MeltFrame_meltrout_28_WARMELTmiNORMATCH_LAMBDA_cl7 + /* classy proc frame meltrout_28_WARMELTmiNORMATCH_LAMBDA_cl7 */ + MeltFrame_meltrout_28_WARMELTmiNORMATCH_LAMBDA_cl7 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_28_WARMELTmiNORMATCH_LAMBDA_cl7 fromline 1785*/ #if ENABLE_CHECKING @@ -27206,7 +29767,8 @@ meltrout_28_WARMELTmiNORMATCH_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl7", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -27216,12 +29778,14 @@ meltrout_28_WARMELTmiNORMATCH_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1258:/ getarg"); - /*_.SUPA1__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.SUPA1__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.SUPA2__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.SUPA2__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SUPA2__V3*/ meltfptr[2])) != NULL); ; @@ -27237,7 +29801,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SUPA1__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_TUPLE_COMPONENT_PATTERN*/ meltfrout->tabval[0]))) ) /*then*/ @@ -27248,7 +29813,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SUPA1__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "TUPCP_PATTERN"); - /*_.TUPCP_PATTERN__V5*/ meltfptr[4] = slot; + /*_.TUPCP_PATTERN__V5*/ + meltfptr[4] = slot; }; ; } @@ -27259,7 +29825,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1259:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TUPCP_PATTERN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN*/ meltfrout->tabval[1]))) ) /*then*/ @@ -27270,7 +29837,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TUPCP_PATTERN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 2, "PAT_WEIGHT"); - /*_.PAT_WEIGHT__V6*/ meltfptr[5] = slot; + /*_.PAT_WEIGHT__V6*/ + meltfptr[5] = slot; }; ; } @@ -27281,10 +29849,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#WP1__L1*/ meltfnum[0] = + /*_#WP1__L1*/ + meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.PAT_WEIGHT__V6*/ meltfptr[5])));; MELT_LOCATION("warmelt-normatch.melt:1260:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SUPA2__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_TUPLE_COMPONENT_PATTERN*/ meltfrout->tabval[0]))) ) /*then*/ @@ -27295,7 +29865,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SUPA2__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "TUPCP_PATTERN"); - /*_.TUPCP_PATTERN__V7*/ meltfptr[6] = slot; + /*_.TUPCP_PATTERN__V7*/ + meltfptr[6] = slot; }; ; } @@ -27306,7 +29877,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1260:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TUPCP_PATTERN__V7*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN*/ meltfrout->tabval[1]))) ) /*then*/ @@ -27317,7 +29889,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TUPCP_PATTERN__V7*/ meltfptr[6]) /*=obj*/; melt_object_get_field(slot,obj, 2, "PAT_WEIGHT"); - /*_.PAT_WEIGHT__V8*/ meltfptr[7] = slot; + /*_.PAT_WEIGHT__V8*/ + meltfptr[7] = slot; }; ; } @@ -27328,16 +29901,19 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#WP2__L2*/ meltfnum[1] = + /*_#WP2__L2*/ + meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.PAT_WEIGHT__V8*/ meltfptr[7])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#eqeqI__L3*/ meltfnum[2] = + /*_#eqeqI__L3*/ + meltfnum[2] = ((/*_#WP1__L1*/ meltfnum[0]) == (/*_#WP2__L2*/ meltfnum[1]));; MELT_LOCATION("warmelt-normatch.melt:1262:/ cond"); - /*cond*/ if (/*_#eqeqI__L3*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#eqeqI__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[8] = (/*!konst_2*/ meltfrout->tabval[2]);; @@ -27353,10 +29929,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#ltI__L4*/ meltfnum[3] = + /*_#ltI__L4*/ + meltfnum[3] = ((/*_#WP1__L1*/ meltfnum[0]) < (/*_#WP2__L2*/ meltfnum[1]));; MELT_LOCATION("warmelt-normatch.melt:1263:/ cond"); - /*cond*/ if (/*_#ltI__L4*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#ltI__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[9] = (/*!konst_3*/ meltfrout->tabval[3]);; @@ -27372,50 +29950,66 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1264:/ quasiblock"); - /*_.PROGN___V11*/ meltfptr[10] = (/*!konst_4*/ meltfrout->tabval[4]);; + /*_.PROGN___V11*/ + meltfptr[10] = (/*!konst_4*/ meltfrout->tabval[4]);; /*^compute*/ - /*_._IFELSE___V10*/ meltfptr[9] = /*_.PROGN___V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[9] = /*_.PROGN___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1263:/ clear"); - /*clear*/ /*_.PROGN___V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.PROGN___V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_._IFELSE___V9*/ meltfptr[8] = /*_._IFELSE___V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[8] = /*_._IFELSE___V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1262:/ clear"); - /*clear*/ /*_#ltI__L4*/ meltfnum[3] = 0 ; + /*clear*/ /*_#ltI__L4*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.LET___V4*/ meltfptr[3] = /*_._IFELSE___V9*/ meltfptr[8];; + /*_.LET___V4*/ + meltfptr[3] = /*_._IFELSE___V9*/ meltfptr[8];; MELT_LOCATION("warmelt-normatch.melt:1259:/ clear"); - /*clear*/ /*_.TUPCP_PATTERN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.TUPCP_PATTERN__V5*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.PAT_WEIGHT__V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.PAT_WEIGHT__V6*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_#WP1__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#WP1__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPCP_PATTERN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.TUPCP_PATTERN__V7*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.PAT_WEIGHT__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.PAT_WEIGHT__V8*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_#WP2__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#WP2__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeqI__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#eqeqI__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ + meltfptr[8] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1258:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[3];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V4*/ meltfptr[3];; { MELT_LOCATION("warmelt-normatch.melt:1258:/ locexp"); @@ -27430,11 +30024,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.LET___V4*/ + meltfptr[3] = 0 ; } ; @@ -27516,7 +30112,8 @@ meltrout_29_WARMELTmiNORMATCH_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_29_WARMELTmiNORMATCH_LAMBDA_cl8 fromline 1756 */ - /* classy proc frame meltrout_29_WARMELTmiNORMATCH_LAMBDA_cl8 */ MeltFrame_meltrout_29_WARMELTmiNORMATCH_LAMBDA_cl8 + /* classy proc frame meltrout_29_WARMELTmiNORMATCH_LAMBDA_cl8 */ + MeltFrame_meltrout_29_WARMELTmiNORMATCH_LAMBDA_cl8 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_29_WARMELTmiNORMATCH_LAMBDA_cl8 fromline 1785*/ #if ENABLE_CHECKING @@ -27529,7 +30126,8 @@ meltrout_29_WARMELTmiNORMATCH_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl8", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -27539,7 +30137,8 @@ meltrout_29_WARMELTmiNORMATCH_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1279:/ getarg"); - /*_.NEWSUBTESTER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NEWSUBTESTER__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -27569,7 +30168,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)) @@ -27578,7 +30178,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1280:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27615,16 +30216,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "testercont="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &(/*~TESTERCONT*/ meltfclos->tabval[0]); - /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_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 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-normatch.melt:1280:/ 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 ; } ; } @@ -27637,7 +30242,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1280:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27646,9 +30252,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*/ @@ -27683,7 +30291,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~TESTERCONT*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -27694,7 +30303,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~TESTERCONT*/ meltfclos->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.PREVTESTER__V6*/ meltfptr[2] = slot; + /*_.PREVTESTER__V6*/ + meltfptr[2] = slot; }; ; } @@ -27724,7 +30334,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -27733,7 +30344,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1284:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27766,16 +30378,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_tuplepat.subhdler prevtester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PREVTESTER__V6*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 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__V8*/ + meltfptr[7] = 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___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; + /*_._IF___V7*/ + meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1284:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = 0 ; } ; } @@ -27788,7 +30404,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1284:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27797,9 +30414,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V7*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27829,10 +30448,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[0] = + /*_#IS_A__L5*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PREVTESTER__V6*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANYTESTER*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normatch.melt:1285:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[6] = (/*nil*/NULL);; @@ -27859,25 +30480,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1285; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), 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-normatch.melt:1285:/ 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-normatch.melt:1285:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27895,17 +30522,22 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~TESTERCONT*/ meltfclos->tabval[0]); - /*_.SET_NEW_TESTER_LAST_THEN__V12*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.NEWSUBTESTER__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SET_NEW_TESTER_LAST_THEN__V12*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.NEWSUBTESTER__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V5*/ meltfptr[3] = /*_.SET_NEW_TESTER_LAST_THEN__V12*/ meltfptr[10];; + /*_.LET___V5*/ + meltfptr[3] = /*_.SET_NEW_TESTER_LAST_THEN__V12*/ meltfptr[10];; MELT_LOCATION("warmelt-normatch.melt:1283:/ clear"); - /*clear*/ /*_.PREVTESTER__V6*/ meltfptr[2] = 0 ; + /*clear*/ /*_.PREVTESTER__V6*/ + meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.SET_NEW_TESTER_LAST_THEN__V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.SET_NEW_TESTER_LAST_THEN__V12*/ + meltfptr[10] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1288:/ cppif.then"); @@ -27926,7 +30558,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L6*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -27935,7 +30568,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1288:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27968,16 +30602,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_tuplepat.subhdler end newsubtester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWSUBTESTER__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V14*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V14*/ + meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V13*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[2];; + /*_._IF___V13*/ + meltfptr[6] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1288:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ meltfptr[2] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ + meltfptr[2] = 0 ; } ; } @@ -27990,7 +30628,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1288:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27999,9 +30638,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V13*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V13*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28027,7 +30668,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1279:/ clear"); - /*clear*/ /*_.LET___V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.LET___V5*/ + meltfptr[3] = 0 ; } ; @@ -28109,7 +30751,8 @@ meltrout_30_WARMELTmiNORMATCH_NORMPAT_ANDPAT(meltclosure_ptr_t meltclosp_, melt_ /* end of frame for routine meltrout_30_WARMELTmiNORMATCH_NORMPAT_ANDPAT fromline 1756 */ - /* classy proc frame meltrout_30_WARMELTmiNORMATCH_NORMPAT_ANDPAT */ MeltFrame_meltrout_30_WARMELTmiNORMATCH_NORMPAT_ANDPAT + /* classy proc frame meltrout_30_WARMELTmiNORMATCH_NORMPAT_ANDPAT */ + MeltFrame_meltrout_30_WARMELTmiNORMATCH_NORMPAT_ANDPAT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_30_WARMELTmiNORMATCH_NORMPAT_ANDPAT fromline 1785*/ #if ENABLE_CHECKING @@ -28122,7 +30765,8 @@ meltrout_30_WARMELTmiNORMATCH_NORMPAT_ANDPAT(meltclosure_ptr_t meltclosp_, melt_ #define meltframe meltfram__ melt_trace_start("NORMPAT_ANDPAT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -28132,26 +30776,30 @@ meltrout_30_WARMELTmiNORMATCH_NORMPAT_ANDPAT(meltclosure_ptr_t meltclosp_, melt_ /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1356:/ 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; - /*_.NMATCH__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NMATCH__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.HDLER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.HDLER__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.HDLER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PCN__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PCN__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4])) != NULL); ; @@ -28183,7 +30831,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)) @@ -28192,7 +30841,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1357:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28233,16 +30883,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " pcn="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.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_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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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-normatch.melt:1357:/ 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 ; } ; } @@ -28255,7 +30909,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1357:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28264,9 +30919,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*/ @@ -28307,10 +30964,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:1359:/ 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);; @@ -28337,25 +30996,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1359; - /*_.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-normatch.melt:1359:/ 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-normatch.melt:1359:/ 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*/ @@ -28373,10 +31038,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_AND*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:1360:/ 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);; @@ -28403,25 +31070,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1360; - /*_.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-normatch.melt:1360:/ 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-normatch.melt:1360:/ 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*/ @@ -28433,7 +31106,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1362:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -28444,7 +31118,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__V14*/ meltfptr[12] = slot; + /*_.SLOC__V14*/ + meltfptr[12] = slot; }; ; } @@ -28455,7 +31130,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1363:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_AND*/ meltfrout->tabval[3]))) ) /*then*/ @@ -28466,7 +31142,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, "ANDPAT_CONJ"); - /*_.CONJPATS__V15*/ meltfptr[5] = slot; + /*_.CONJPATS__V15*/ + meltfptr[5] = slot; }; ; } @@ -28487,7 +31164,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5])), (1), "CLASS_REFERENCE"); - /*_.INST__V17*/ meltfptr[16] = + /*_.INST__V17*/ + meltfptr[16] = newobj; }; ; @@ -28495,12 +31173,14 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V17*/ meltfptr[16], "newly made instance"); ; - /*_.TESTERCONT__V16*/ meltfptr[15] = /*_.INST__V17*/ meltfptr[16];; + /*_.TESTERCONT__V16*/ + meltfptr[15] = /*_.INST__V17*/ meltfptr[16];; MELT_LOCATION("warmelt-normatch.melt:1366:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V19*/ meltfptr[18] = + /*newclosure*/ /*_.LAMBDA___V19*/ + meltfptr[18] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ meltfrout->tabval[10])), (2)); ; /*^putclosedv*/ @@ -28515,7 +31195,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V19*/ meltfptr[18]))); ((meltclosure_ptr_t)/*_.LAMBDA___V19*/ meltfptr[18])->tabval[1] = (melt_ptr_t)(/*_.HDLER__V4*/ meltfptr[3]); ; - /*_.SUBHDLER__V18*/ meltfptr[17] = /*_.LAMBDA___V19*/ meltfptr[18];; + /*_.SUBHDLER__V18*/ + meltfptr[17] = /*_.LAMBDA___V19*/ meltfptr[18];; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ @@ -28548,7 +31229,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)) @@ -28557,7 +31239,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1387:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28602,16 +31285,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n ..nmatch="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.NMATCH__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V21*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; + /*_._IF___V21*/ + meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1387:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[21] = 0 ; } ; } @@ -28624,7 +31311,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1387:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28633,9 +31321,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IF___V21*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28669,7 +31359,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SUBHDLER__V18*/ meltfptr[17]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.NORMAL_PATTERN__V23*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.SUBPAT__V20*/ meltfptr[19]), (melt_ptr_t)((/*!NORMAL_PATTERN*/ meltfrout->tabval[11])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PATTERN__V23*/ + meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.SUBPAT__V20*/ meltfptr[19]), (melt_ptr_t)((/*!NORMAL_PATTERN*/ meltfrout->tabval[11])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28692,7 +31383,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ meltfnum[6] = + /*_#MELT_NEED_DBG__L8*/ + meltfnum[6] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28701,7 +31393,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1390:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28738,16 +31431,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " testercont="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.TESTERCONT__V16*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V24*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; + /*_._IF___V24*/ + meltfptr[20] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1390:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ + meltfptr[24] = 0 ; } ; } @@ -28760,7 +31457,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1390:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28769,9 +31467,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V24*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IF___V24*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28797,11 +31497,14 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:1384:/ clear"); - /*clear*/ /*_.SUBPAT__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SUBPAT__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#SUBIX__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#SUBIX__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PATTERN__V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_.NORMAL_PATTERN__V23*/ + meltfptr[21] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -28824,7 +31527,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28833,7 +31537,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1393:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28870,16 +31575,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " testercont="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.TESTERCONT__V16*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V27*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V26*/ meltfptr[24] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[20];; + /*_._IF___V26*/ + meltfptr[24] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1393:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[20] = 0 ; } ; } @@ -28892,7 +31601,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1393:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28901,9 +31611,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ meltfptr[24] = 0 ; + /*clear*/ /*_._IF___V26*/ + meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28925,22 +31637,28 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:1361:/ clear"); - /*clear*/ /*_.SLOC__V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.SLOC__V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.CONJPATS__V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_.CONJPATS__V15*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTERCONT__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.TESTERCONT__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.SUBHDLER__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.SUBHDLER__V18*/ + meltfptr[17] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1356:/ 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 ; } ; @@ -29022,7 +31740,8 @@ meltrout_31_WARMELTmiNORMATCH_LAMBDA_cl9(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_31_WARMELTmiNORMATCH_LAMBDA_cl9 fromline 1756 */ - /* classy proc frame meltrout_31_WARMELTmiNORMATCH_LAMBDA_cl9 */ MeltFrame_meltrout_31_WARMELTmiNORMATCH_LAMBDA_cl9 + /* classy proc frame meltrout_31_WARMELTmiNORMATCH_LAMBDA_cl9 */ + MeltFrame_meltrout_31_WARMELTmiNORMATCH_LAMBDA_cl9 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_31_WARMELTmiNORMATCH_LAMBDA_cl9 fromline 1785*/ #if ENABLE_CHECKING @@ -29035,7 +31754,8 @@ meltrout_31_WARMELTmiNORMATCH_LAMBDA_cl9(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("LAMBDA_cl9", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -29045,7 +31765,8 @@ meltrout_31_WARMELTmiNORMATCH_LAMBDA_cl9(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1366:/ getarg"); - /*_.NEWTESTER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NEWTESTER__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -29075,7 +31796,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)) @@ -29084,7 +31806,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1367:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29121,16 +31844,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " testercont="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &(/*~TESTERCONT*/ meltfclos->tabval[0]); - /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_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 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-normatch.melt:1367:/ 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 ; } ; } @@ -29143,7 +31870,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1367:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29152,9 +31880,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*/ @@ -29178,7 +31908,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~TESTERCONT*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -29189,7 +31920,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~TESTERCONT*/ meltfclos->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.PREVTESTER__V5*/ meltfptr[3] = slot; + /*_.PREVTESTER__V5*/ + meltfptr[3] = slot; }; ; } @@ -29203,10 +31935,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PREVTESTER__V5*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normatch.melt:1371:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29233,7 +31967,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)) @@ -29242,7 +31977,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1372:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29275,16 +32011,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_andpat.subhdler prevtester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PREVTESTER__V5*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 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__V8*/ + meltfptr[7] = 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___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; + /*_._IF___V7*/ + meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1372:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L5*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = 0 ; } ; } @@ -29297,7 +32037,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1372:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29306,9 +32047,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V7*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29338,21 +32081,26 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~TESTERCONT*/ meltfclos->tabval[0]); - /*_.SET_NEW_TESTER_LAST_THEN__V9*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NEWTESTER__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SET_NEW_TESTER_LAST_THEN__V9*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NEWTESTER__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normatch.melt:1371:/ quasiblock"); - /*_.PROGN___V10*/ meltfptr[6] = /*_.SET_NEW_TESTER_LAST_THEN__V9*/ meltfptr[7];; + /*_.PROGN___V10*/ + meltfptr[6] = /*_.SET_NEW_TESTER_LAST_THEN__V9*/ meltfptr[7];; /*^compute*/ - /*_._IFELSE___V6*/ meltfptr[2] = /*_.PROGN___V10*/ meltfptr[6];; + /*_._IFELSE___V6*/ + meltfptr[2] = /*_.PROGN___V10*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1371:/ clear"); - /*clear*/ /*_.SET_NEW_TESTER_LAST_THEN__V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.SET_NEW_TESTER_LAST_THEN__V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V10*/ meltfptr[6] = 0 ; + /*clear*/ /*_.PROGN___V10*/ + meltfptr[6] = 0 ; } ; } @@ -29383,7 +32131,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)) @@ -29392,7 +32141,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1376:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29425,16 +32175,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_andpat.subhdler before calling hdler newtester="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTESTER__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V12*/ 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__V12*/ + 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___V11*/ meltfptr[7] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[6];; + /*_._IF___V11*/ + meltfptr[7] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1376:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V12*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V12*/ + meltfptr[6] = 0 ; } ; } @@ -29447,7 +32201,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1376:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29456,9 +32211,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V11*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IF___V11*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29491,7 +32248,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1378:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~TESTERCONT*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -29538,7 +32296,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)) @@ -29547,7 +32306,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1379:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29580,16 +32340,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_andpat.subhdler after calling hdler newtester="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTESTER__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 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__V15*/ + meltfptr[14] = 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___V14*/ meltfptr[7] = /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];; + /*_._IF___V14*/ + meltfptr[7] = /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1379:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V15*/ + meltfptr[14] = 0 ; } ; } @@ -29602,7 +32366,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1379:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29611,9 +32376,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V14*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IF___V14*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29639,7 +32406,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1371:/ clear"); - /*clear*/ /*_.HDLER__V13*/ meltfptr[6] = 0 ; + /*clear*/ /*_.HDLER__V13*/ + meltfptr[6] = 0 ; } ; } @@ -29664,7 +32432,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[4] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[4] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29673,7 +32442,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1381:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29706,16 +32476,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_andpat.subhdler done testercont="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*~TESTERCONT*/ meltfclos->tabval[0]); - /*_.MELT_DEBUG_FUN__V17*/ meltfptr[7] = 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__V17*/ + meltfptr[7] = 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___V16*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V17*/ meltfptr[7];; + /*_._IF___V16*/ + meltfptr[14] = /*_.MELT_DEBUG_FUN__V17*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1381:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V17*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V17*/ + meltfptr[7] = 0 ; } ; } @@ -29728,7 +32502,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1381:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29737,9 +32512,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V16*/ meltfptr[14] = 0 ; + /*clear*/ /*_._IF___V16*/ + meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29761,11 +32538,14 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:1369:/ clear"); - /*clear*/ /*_.PREVTESTER__V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.PREVTESTER__V5*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ meltfptr[2] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ + meltfptr[2] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -29851,7 +32631,8 @@ meltrout_32_WARMELTmiNORMATCH_NORMPAT_ORPAT(meltclosure_ptr_t meltclosp_, melt_p /* end of frame for routine meltrout_32_WARMELTmiNORMATCH_NORMPAT_ORPAT fromline 1756 */ - /* classy proc frame meltrout_32_WARMELTmiNORMATCH_NORMPAT_ORPAT */ MeltFrame_meltrout_32_WARMELTmiNORMATCH_NORMPAT_ORPAT + /* classy proc frame meltrout_32_WARMELTmiNORMATCH_NORMPAT_ORPAT */ + MeltFrame_meltrout_32_WARMELTmiNORMATCH_NORMPAT_ORPAT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_32_WARMELTmiNORMATCH_NORMPAT_ORPAT fromline 1785*/ #if ENABLE_CHECKING @@ -29864,7 +32645,8 @@ meltrout_32_WARMELTmiNORMATCH_NORMPAT_ORPAT(meltclosure_ptr_t meltclosp_, melt_p #define meltframe meltfram__ melt_trace_start("NORMPAT_ORPAT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -29874,26 +32656,30 @@ meltrout_32_WARMELTmiNORMATCH_NORMPAT_ORPAT(meltclosure_ptr_t meltclosp_, melt_p /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1406:/ 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; - /*_.NMATCH__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NMATCH__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.HDLER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.HDLER__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.HDLER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PCN__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PCN__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4])) != NULL); ; @@ -29925,7 +32711,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)) @@ -29934,7 +32721,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1407:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29975,16 +32763,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " pcn="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.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_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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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-normatch.melt:1407:/ 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 ; } ; } @@ -29997,7 +32789,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1407:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30006,9 +32799,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*/ @@ -30049,10 +32844,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:1409:/ 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);; @@ -30079,25 +32876,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1409; - /*_.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-normatch.melt:1409:/ 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-normatch.melt:1409:/ 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*/ @@ -30115,10 +32918,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_OR*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:1410:/ 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);; @@ -30145,25 +32950,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1410; - /*_.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-normatch.melt:1410:/ 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-normatch.melt:1410:/ 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*/ @@ -30175,7 +32986,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1412:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -30186,7 +32998,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__V14*/ meltfptr[12] = slot; + /*_.SLOC__V14*/ + meltfptr[12] = slot; }; ; } @@ -30197,7 +33010,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1413:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_OR*/ meltfrout->tabval[3]))) ) /*then*/ @@ -30208,7 +33022,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, "ORPAT_DISJ"); - /*_.DISJPATS__V15*/ meltfptr[5] = slot; + /*_.DISJPATS__V15*/ + meltfptr[5] = slot; }; ; } @@ -30219,7 +33034,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1414:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -30230,7 +33046,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 9, "PCTN_TESTS"); - /*_.TESTLIST__V16*/ meltfptr[15] = slot; + /*_.TESTLIST__V16*/ + meltfptr[15] = slot; }; ; } @@ -30241,10 +33058,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.SUBTESTLIST__V17*/ meltfptr[16] = + /*_.SUBTESTLIST__V17*/ + meltfptr[16] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; MELT_LOCATION("warmelt-normatch.melt:1416:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -30255,7 +33074,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 7, "PCTN_STUFFMAP"); - /*_.STUFFMAP__V18*/ meltfptr[17] = slot; + /*_.STUFFMAP__V18*/ + meltfptr[17] = slot; }; ; } @@ -30266,7 +33086,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1417:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -30277,7 +33098,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 8, "PCTN_PVARLOCMAP"); - /*_.PVARLOCMAP__V19*/ meltfptr[18] = slot; + /*_.PVARLOCMAP__V19*/ + meltfptr[18] = slot; }; ; } @@ -30288,7 +33110,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1418:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -30299,7 +33122,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 5, "PCTN_MAPOR"); - /*_.MAPOR__V20*/ meltfptr[19] = slot; + /*_.MAPOR__V20*/ + meltfptr[19] = slot; }; ; } @@ -30310,7 +33134,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1419:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -30321,7 +33146,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 0, "PCTN_NORMCTXT"); - /*_.NCX__V21*/ meltfptr[20] = slot; + /*_.NCX__V21*/ + meltfptr[20] = slot; }; ; } @@ -30332,7 +33158,8 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.ORVARMAP__V22*/ meltfptr[21] = + /*_.ORVARMAP__V22*/ + meltfptr[21] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MAPOR__V20*/ meltfptr[19]), (meltobject_ptr_t)(/*_.RECV__V2*/ meltfptr[1]));; @@ -30347,7 +33174,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_.MAKE_LIST__V24*/ meltfptr[23] = + /*_.MAKE_LIST__V24*/ + meltfptr[23] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; MELT_LOCATION("warmelt-normatch.melt:1422:/ quasiblock"); @@ -30357,7 +33185,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMTESTER_DISJUNCTION*/ meltfrout->tabval[7])), (10), "CLASS_NORMTESTER_DISJUNCTION"); - /*_.INST__V26*/ meltfptr[25] = + /*_.INST__V26*/ + meltfptr[25] = newobj; }; ; @@ -30405,12 +33234,14 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V26*/ meltfptr[25], "newly made instance"); ; - /*_.DISJTESTER__V25*/ meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; + /*_.DISJTESTER__V25*/ + meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; MELT_LOCATION("warmelt-normatch.melt:1435:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V28*/ meltfptr[27] = + /*newclosure*/ /*_.LAMBDA___V28*/ + meltfptr[27] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ meltfrout->tabval[13])), (3)); ; /*^putclosedv*/ @@ -30431,7 +33262,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ meltfptr[27]))); ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ meltfptr[27])->tabval[2] = (melt_ptr_t)(/*_.PVARLOCMAP__V19*/ meltfptr[18]); ; - /*_.LAMBDA___V27*/ meltfptr[26] = /*_.LAMBDA___V28*/ meltfptr[27];; + /*_.LAMBDA___V27*/ + meltfptr[26] = /*_.LAMBDA___V28*/ meltfptr[27];; MELT_CHECK_SIGNAL(); ; @@ -30442,7 +33274,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V27*/ meltfptr[26]; - /*_.SORTORVARS__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SORTEDORSYMBS__V23*/ meltfptr[22]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SORTORVARS__V29*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SORTEDORSYMBS__V23*/ meltfptr[22]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -30456,7 +33289,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[14])), (1), "CLASS_REFERENCE"); - /*_.INST__V31*/ meltfptr[30] = + /*_.INST__V31*/ + meltfptr[30] = newobj; }; ; @@ -30469,7 +33303,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V31*/ meltfptr[30], "newly made instance"); ; - /*_.PREVCONT__V30*/ meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; + /*_.PREVCONT__V30*/ + meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1458:/ cppif.then"); @@ -30490,7 +33325,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30499,7 +33335,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1458:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30540,16 +33377,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " orvarmap="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.ORVARMAP__V22*/ meltfptr[21]; - /*_.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 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[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[31] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; + /*_._IF___V32*/ + meltfptr[31] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1458:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[32] = 0 ; } ; } @@ -30562,7 +33403,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1458:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30571,9 +33413,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IF___V32*/ + meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30603,10 +33447,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MAPOBJECT__L7*/ meltfnum[0] = + /*_#IS_MAPOBJECT__L7*/ + meltfnum[0] = /*is_mapobject:*/(melt_magic_discr((melt_ptr_t)(/*_.ORVARMAP__V22*/ meltfptr[21])) == MELTOBMAG_MAPOBJECTS);; MELT_LOCATION("warmelt-normatch.melt:1460:/ cond"); - /*cond*/ if (/*_#IS_MAPOBJECT__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_MAPOBJECT__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V35*/ meltfptr[31] = (/*nil*/NULL);; @@ -30633,25 +33479,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1460; - /*_.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 ""), 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 ""), 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-normatch.melt:1460:/ 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-normatch.melt:1460:/ clear"); - /*clear*/ /*_#IS_MAPOBJECT__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MAPOBJECT__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V35*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IFELSE___V35*/ + meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30679,7 +33531,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)) @@ -30688,7 +33541,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1461:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30729,16 +33583,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " disjtester="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.DISJTESTER__V25*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V38*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V38*/ + 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V37*/ meltfptr[35] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[31];; + /*_._IF___V37*/ + meltfptr[35] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1461:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ + meltfptr[31] = 0 ; } ; } @@ -30751,7 +33609,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1461:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30760,9 +33619,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V37*/ meltfptr[35] = 0 ; + /*clear*/ /*_._IF___V37*/ + meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30792,7 +33653,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.REGISTER_NEW_NORMTESTER__V39*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_NEW_NORMTESTER*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.DISJTESTER__V25*/ meltfptr[24]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.REGISTER_NEW_NORMTESTER__V39*/ + meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_NEW_NORMTESTER*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.DISJTESTER__V25*/ meltfptr[24]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -30830,7 +33692,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30839,7 +33702,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1467:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30872,16 +33736,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_orpat handled disjtester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.DISJTESTER__V25*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = 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[41] = 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[40] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41];; + /*_._IF___V41*/ + meltfptr[40] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1467:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ + meltfptr[41] = 0 ; } ; } @@ -30894,7 +33762,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1467:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30903,9 +33772,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IF___V41*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30940,7 +33811,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1473:/ quasiblock"); - /*_.CLEARLOCLIST__V44*/ meltfptr[40] = + /*_.CLEARLOCLIST__V44*/ + meltfptr[40] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*citerblock FOREACH_IN_MULTIPLE*/ { @@ -30964,10 +33836,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L14*/ meltfnum[13] = + /*_#IS_A__L14*/ + meltfnum[13] = melt_is_instance_of((melt_ptr_t)(/*_.CURORVAR__V45*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_NORMAL_OR_VARIABLE*/ meltfrout->tabval[16])));; MELT_LOCATION("warmelt-normatch.melt:1478:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#IS_A__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V47*/ meltfptr[46] = (/*nil*/NULL);; @@ -30994,25 +33868,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1478; - /*_.MELT_ASSERT_FAILURE_FUN__V48*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V48*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V47*/ meltfptr[46] = /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[47];; + /*_._IFELSE___V47*/ + meltfptr[46] = /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1478:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V48*/ + meltfptr[47] = 0 ; } ; } ; - /*_.IFCPP___V46*/ meltfptr[45] = /*_._IFELSE___V47*/ meltfptr[46];; + /*_.IFCPP___V46*/ + meltfptr[45] = /*_._IFELSE___V47*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1478:/ clear"); - /*clear*/ /*_#IS_A__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#IS_A__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_._IFELSE___V47*/ + meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31028,16 +33908,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURORVAR__V45*/ meltfptr[44]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NORVAR_LOCSYM"); - /*_.ORVARLOCC__V49*/ meltfptr[47] = slot; + /*_.ORVARLOCC__V49*/ + meltfptr[47] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L15*/ meltfnum[13] = + /*_#IS_A__L15*/ + meltfnum[13] = melt_is_instance_of((melt_ptr_t)(/*_.ORVARLOCC__V49*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[17])));; MELT_LOCATION("warmelt-normatch.melt:1481:/ cond"); - /*cond*/ if (/*_#IS_A__L15*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#IS_A__L15*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31058,7 +33941,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[14])), (1), "CLASS_REFERENCE"); - /*_.INST__V51*/ meltfptr[50] = + /*_.INST__V51*/ + meltfptr[50] = newobj; }; ; @@ -31071,12 +33955,14 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V51*/ meltfptr[50], "newly made instance"); ; - /*_.ORVARCONT__V50*/ meltfptr[46] = /*_.INST__V51*/ meltfptr[50];; + /*_.ORVARCONT__V50*/ + meltfptr[46] = /*_.INST__V51*/ meltfptr[50];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1483:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURORVAR__V45*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_NORMAL_OR_VARIABLE*/ meltfrout->tabval[16]))) ) /*then*/ @@ -31111,7 +33997,8 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:1482:/ clear"); - /*clear*/ /*_.ORVARCONT__V50*/ meltfptr[46] = 0 ; + /*clear*/ /*_.ORVARCONT__V50*/ + meltfptr[46] = 0 ; /*epilog*/ } ; @@ -31119,20 +34006,25 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:1479:/ clear"); - /*clear*/ /*_.ORVARLOCC__V49*/ meltfptr[47] = 0 ; + /*clear*/ /*_.ORVARLOCC__V49*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L15*/ meltfnum[13] = 0 ; + /*clear*/ /*_#IS_A__L15*/ + meltfnum[13] = 0 ; if (/*_#ORVIX__L13*/ meltfnum[0]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:1475:/ clear"); - /*clear*/ /*_.CURORVAR__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.CURORVAR__V45*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_#ORVIX__L13*/ meltfnum[0] = 0 ; + /*clear*/ /*_#ORVIX__L13*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.IFCPP___V46*/ + meltfptr[45] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-normatch.melt:1487:/ quasiblock"); @@ -31141,7 +34033,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_.MAKE_LIST__V52*/ meltfptr[46] = + /*_.MAKE_LIST__V52*/ + meltfptr[46] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; MELT_CHECK_SIGNAL(); @@ -31153,7 +34046,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[20]); - /*_.LIST_TO_MULTIPLE__V53*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.CLEARLOCLIST__V44*/ meltfptr[40]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_TO_MULTIPLE__V53*/ + meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.CLEARLOCLIST__V44*/ meltfptr[40]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normatch.melt:1488:/ quasiblock"); @@ -31164,7 +34058,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMTESTER_OR_CLEAR*/ meltfrout->tabval[18])), (8), "CLASS_NORMTESTER_OR_CLEAR"); - /*_.INST__V55*/ meltfptr[54] = + /*_.INST__V55*/ + meltfptr[54] = newobj; }; ; @@ -31202,7 +34097,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V55*/ meltfptr[54], "newly made instance"); ; - /*_.NORCLEAR__V54*/ meltfptr[53] = /*_.INST__V55*/ meltfptr[54];; + /*_.NORCLEAR__V54*/ + meltfptr[53] = /*_.INST__V55*/ meltfptr[54];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1499:/ cppif.then"); @@ -31223,7 +34119,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L16*/ + meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31232,7 +34129,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1499:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31265,16 +34163,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_orpat curdisj before normalization"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURDISJ__V43*/ meltfptr[41]; - /*_.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-normatch.melt:1499:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ + meltfptr[56] = 0 ; } ; } @@ -31287,7 +34189,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1499:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31296,9 +34199,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_._IF___V56*/ + meltfptr[55] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31322,7 +34227,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1502:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PREVCONT__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[14]))) ) /*then*/ @@ -31333,7 +34239,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PREVCONT__V30*/ meltfptr[29]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.PREVTEST__V58*/ meltfptr[56] = slot; + /*_.PREVTEST__V58*/ + meltfptr[56] = slot; }; ; } @@ -31344,7 +34251,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1503:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PREVTEST__V58*/ meltfptr[56]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[21]))) ) /*then*/ @@ -31355,7 +34263,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PREVTEST__V58*/ meltfptr[56]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.PREVLOC__V59*/ meltfptr[55] = slot; + /*_.PREVLOC__V59*/ + meltfptr[55] = slot; }; ; } @@ -31385,7 +34294,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)) @@ -31394,7 +34304,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1505:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31431,16 +34342,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " norclear="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NORCLEAR__V54*/ meltfptr[53]; - /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = 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__V61*/ + meltfptr[60] = 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___V60*/ meltfptr[59] = /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60];; + /*_._IF___V60*/ + meltfptr[59] = /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1505:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V61*/ + meltfptr[60] = 0 ; } ; } @@ -31453,7 +34368,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1505:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31462,9 +34378,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_._IF___V60*/ + meltfptr[59] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31510,7 +34428,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L20*/ + meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31519,7 +34438,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1507:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L20*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31556,16 +34476,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " prevtest="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.PREVTEST__V58*/ meltfptr[56]; - /*_.MELT_DEBUG_FUN__V63*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V63*/ + 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V62*/ meltfptr[60] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[59];; + /*_._IF___V62*/ + meltfptr[60] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[59];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1507:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ meltfptr[59] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ + meltfptr[59] = 0 ; } ; } @@ -31578,7 +34502,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1507:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31587,9 +34512,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V62*/ meltfptr[60] = 0 ; + /*clear*/ /*_._IF___V62*/ + meltfptr[60] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31619,14 +34546,16 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.PREVTEST__V58*/ meltfptr[56]; - /*_.SET_NEW_TESTER_ALL_ELSES__V64*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_ALL_ELSES*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.NORCLEAR__V54*/ meltfptr[53]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SET_NEW_TESTER_ALL_ELSES__V64*/ + meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_ALL_ELSES*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.NORCLEAR__V54*/ meltfptr[53]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1509:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PREVCONT__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[14]))) ) /*then*/ @@ -31673,7 +34602,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L22*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L22*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31682,7 +34612,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1510:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L22*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L22*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31715,16 +34646,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_orpat prevcont with norclear"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PREVCONT__V30*/ meltfptr[29]; - /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65] = 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__V66*/ + meltfptr[65] = 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___V65*/ meltfptr[60] = /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65];; + /*_._IF___V65*/ + meltfptr[60] = /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1510:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L23*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L23*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V66*/ + meltfptr[65] = 0 ; } ; } @@ -31737,7 +34672,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1510:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31746,9 +34682,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L22*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L22*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V65*/ meltfptr[60] = 0 ; + /*clear*/ /*_._IF___V65*/ + meltfptr[60] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31782,7 +34720,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[14])), (1), "CLASS_REFERENCE"); - /*_.INST__V68*/ meltfptr[60] = + /*_.INST__V68*/ + meltfptr[60] = newobj; }; ; @@ -31795,12 +34734,14 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V68*/ meltfptr[60], "newly made instance"); ; - /*_.SUBDISJCONT__V67*/ meltfptr[65] = /*_.INST__V68*/ meltfptr[60];; + /*_.SUBDISJCONT__V67*/ + meltfptr[65] = /*_.INST__V68*/ meltfptr[60];; MELT_LOCATION("warmelt-normatch.melt:1515:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V70*/ meltfptr[69] = + /*newclosure*/ /*_.LAMBDA___V70*/ + meltfptr[69] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_26*/ meltfrout->tabval[26])), (3)); ; /*^putclosedv*/ @@ -31821,7 +34762,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V70*/ meltfptr[69]))); ((meltclosure_ptr_t)/*_.LAMBDA___V70*/ meltfptr[69])->tabval[2] = (melt_ptr_t)(/*_.SUBTESTLIST__V17*/ meltfptr[16]); ; - /*_.SUBDISJHANDLER__V69*/ meltfptr[68] = /*_.LAMBDA___V70*/ meltfptr[69];; + /*_.SUBDISJHANDLER__V69*/ + meltfptr[68] = /*_.LAMBDA___V70*/ meltfptr[69];; MELT_CHECK_SIGNAL(); ; @@ -31836,7 +34778,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SUBDISJHANDLER__V69*/ meltfptr[68]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.NORMAL_PATTERN__V71*/ meltfptr[70] = meltgc_send((melt_ptr_t)(/*_.CURDISJ__V43*/ meltfptr[41]), (melt_ptr_t)((/*!NORMAL_PATTERN*/ meltfrout->tabval[27])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PATTERN__V71*/ + meltfptr[70] = meltgc_send((melt_ptr_t)(/*_.CURDISJ__V43*/ meltfptr[41]), (melt_ptr_t)((/*!NORMAL_PATTERN*/ meltfrout->tabval[27])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -31859,7 +34802,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L24*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L24*/ + meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31868,7 +34812,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1533:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L24*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L24*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31901,16 +34846,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_orpat curdisj after normalization"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURDISJ__V43*/ meltfptr[41]; - /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72] = 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__V73*/ + meltfptr[72] = 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___V72*/ meltfptr[71] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72];; + /*_._IF___V72*/ + meltfptr[71] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1533:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L25*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L25*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ + meltfptr[72] = 0 ; } ; } @@ -31923,7 +34872,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1533:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31932,9 +34882,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L24*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L24*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_._IF___V72*/ + meltfptr[71] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31958,7 +34910,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1535:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SUBDISJCONT__V67*/ meltfptr[65]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[14]))) ) /*then*/ @@ -31969,7 +34922,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SUBDISJCONT__V67*/ meltfptr[65]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.LASTDISJ__V74*/ meltfptr[72] = slot; + /*_.LASTDISJ__V74*/ + meltfptr[72] = slot; }; ; } @@ -31984,13 +34938,15 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PREVCONT__V30*/ meltfptr[29]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.PREVTESTRANS__V75*/ meltfptr[71] = slot; + /*_.PREVTESTRANS__V75*/ + meltfptr[71] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_LIST__V76*/ meltfptr[75] = + /*_.MAKE_LIST__V76*/ + meltfptr[75] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; MELT_LOCATION("warmelt-normatch.melt:1537:/ quasiblock"); @@ -32000,7 +34956,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMTESTER_OR_TRANSMIT*/ meltfrout->tabval[28])), (9), "CLASS_NORMTESTER_OR_TRANSMIT"); - /*_.INST__V78*/ meltfptr[77] = + /*_.INST__V78*/ + meltfptr[77] = newobj; }; ; @@ -32043,7 +35000,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V78*/ meltfptr[77], "newly made instance"); ; - /*_.NORTRANSM__V77*/ meltfptr[76] = /*_.INST__V78*/ meltfptr[77];; + /*_.NORTRANSM__V77*/ + meltfptr[76] = /*_.INST__V78*/ meltfptr[77];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1547:/ cppif.then"); @@ -32064,7 +35022,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L26*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L26*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -32073,7 +35032,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1547:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L26*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32106,16 +35066,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_orpat prevtestrans"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PREVTESTRANS__V75*/ meltfptr[71]; - /*_.MELT_DEBUG_FUN__V80*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V80*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V79*/ meltfptr[78] = /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79];; + /*_._IF___V79*/ + meltfptr[78] = /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1547:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L27*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V80*/ + meltfptr[79] = 0 ; } ; } @@ -32128,7 +35092,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1547:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -32137,9 +35102,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L26*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V79*/ meltfptr[78] = 0 ; + /*clear*/ /*_._IF___V79*/ + meltfptr[78] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32185,7 +35152,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L28*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L28*/ + meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -32194,7 +35162,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1549:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L28*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L28*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32231,16 +35200,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " prevcont="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.PREVCONT__V30*/ meltfptr[29]; - /*_.MELT_DEBUG_FUN__V82*/ meltfptr[78] = 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__V82*/ + meltfptr[78] = 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___V81*/ meltfptr[79] = /*_.MELT_DEBUG_FUN__V82*/ meltfptr[78];; + /*_._IF___V81*/ + meltfptr[79] = /*_.MELT_DEBUG_FUN__V82*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1549:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L29*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L29*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V82*/ meltfptr[78] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V82*/ + meltfptr[78] = 0 ; } ; } @@ -32253,7 +35226,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1549:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -32262,9 +35236,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L28*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L28*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V81*/ meltfptr[79] = 0 ; + /*clear*/ /*_._IF___V81*/ + meltfptr[79] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32294,16 +35270,19 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.PREVCONT__V30*/ meltfptr[29]; - /*_.SET_NEW_TESTER_LAST_THEN__V83*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[29])), (melt_ptr_t)(/*_.NORTRANSM__V77*/ meltfptr[76]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SET_NEW_TESTER_LAST_THEN__V83*/ + meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[29])), (melt_ptr_t)(/*_.NORTRANSM__V77*/ meltfptr[76]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#NULL__L30*/ meltfnum[16] = + /*_#NULL__L30*/ + meltfnum[16] = (/*null*/(/*_.LASTDISJ__V74*/ meltfptr[72]) == NULL);; MELT_LOCATION("warmelt-normatch.melt:1554:/ cond"); - /*cond*/ if (/*_#NULL__L30*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#NULL__L30*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32323,31 +35302,43 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:1534:/ clear"); - /*clear*/ /*_.LASTDISJ__V74*/ meltfptr[72] = 0 ; + /*clear*/ /*_.LASTDISJ__V74*/ + meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.PREVTESTRANS__V75*/ meltfptr[71] = 0 ; + /*clear*/ /*_.PREVTESTRANS__V75*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V76*/ meltfptr[75] = 0 ; + /*clear*/ /*_.MAKE_LIST__V76*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.NORTRANSM__V77*/ meltfptr[76] = 0 ; + /*clear*/ /*_.NORTRANSM__V77*/ + meltfptr[76] = 0 ; /*^clear*/ - /*clear*/ /*_.SET_NEW_TESTER_LAST_THEN__V83*/ meltfptr[78] = 0 ; + /*clear*/ /*_.SET_NEW_TESTER_LAST_THEN__V83*/ + meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L30*/ meltfnum[16] = 0 ; + /*clear*/ /*_#NULL__L30*/ + meltfnum[16] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1512:/ clear"); - /*clear*/ /*_.SUBDISJCONT__V67*/ meltfptr[65] = 0 ; + /*clear*/ /*_.SUBDISJCONT__V67*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.SUBDISJHANDLER__V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_.SUBDISJHANDLER__V69*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PATTERN__V71*/ meltfptr[70] = 0 ; + /*clear*/ /*_.NORMAL_PATTERN__V71*/ + meltfptr[70] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1501:/ clear"); - /*clear*/ /*_.PREVTEST__V58*/ meltfptr[56] = 0 ; + /*clear*/ /*_.PREVTEST__V58*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.PREVLOC__V59*/ meltfptr[55] = 0 ; + /*clear*/ /*_.PREVLOC__V59*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.SET_NEW_TESTER_ALL_ELSES__V64*/ meltfptr[59] = 0 ; + /*clear*/ /*_.SET_NEW_TESTER_ALL_ELSES__V64*/ + meltfptr[59] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1559:/ cppif.then"); @@ -32368,7 +35359,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L31*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L31*/ + meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -32377,7 +35369,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1559:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L31*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L31*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32410,16 +35403,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_orpat done curdisj"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURDISJ__V43*/ meltfptr[41]; - /*_.MELT_DEBUG_FUN__V85*/ meltfptr[72] = 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[72] = 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[72];; + /*_._IF___V84*/ + meltfptr[79] = /*_.MELT_DEBUG_FUN__V85*/ meltfptr[72];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1559:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L32*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L32*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V85*/ meltfptr[72] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V85*/ + meltfptr[72] = 0 ; } ; } @@ -32432,7 +35429,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1559:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -32441,9 +35439,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L31*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L31*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V84*/ meltfptr[79] = 0 ; + /*clear*/ /*_._IF___V84*/ + meltfptr[79] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32465,23 +35465,29 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:1487:/ clear"); - /*clear*/ /*_.MAKE_LIST__V52*/ meltfptr[46] = 0 ; + /*clear*/ /*_.MAKE_LIST__V52*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_TO_MULTIPLE__V53*/ meltfptr[47] = 0 ; + /*clear*/ /*_.LIST_TO_MULTIPLE__V53*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.NORCLEAR__V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.NORCLEAR__V54*/ + meltfptr[53] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1473:/ clear"); - /*clear*/ /*_.CLEARLOCLIST__V44*/ meltfptr[40] = 0 ; + /*clear*/ /*_.CLEARLOCLIST__V44*/ + meltfptr[40] = 0 ; if (/*_#DISJIX__L12*/ meltfnum[1]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:1470:/ clear"); - /*clear*/ /*_.CURDISJ__V43*/ meltfptr[41] = 0 ; + /*clear*/ /*_.CURDISJ__V43*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_#DISJIX__L12*/ meltfnum[1] = 0 ; + /*clear*/ /*_#DISJIX__L12*/ + meltfnum[1] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -32504,7 +35510,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L33*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L33*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -32513,7 +35520,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1564:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L33*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L33*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32546,16 +35554,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_orpat pvarlocmap before freshorvar"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PVARLOCMAP__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V87*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V87*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V86*/ meltfptr[71] = /*_.MELT_DEBUG_FUN__V87*/ meltfptr[75];; + /*_._IF___V86*/ + meltfptr[71] = /*_.MELT_DEBUG_FUN__V87*/ meltfptr[75];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1564:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L34*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L34*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V87*/ meltfptr[75] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V87*/ + meltfptr[75] = 0 ; } ; } @@ -32568,7 +35580,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1564:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -32577,9 +35590,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L33*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L33*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V86*/ meltfptr[71] = 0 ; + /*clear*/ /*_._IF___V86*/ + meltfptr[71] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32619,7 +35634,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L35*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L35*/ + meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -32628,7 +35644,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1565:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L35*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L35*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32661,16 +35678,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_orpat final subtestlist"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SUBTESTLIST__V17*/ meltfptr[16]; - /*_.MELT_DEBUG_FUN__V89*/ meltfptr[78] = 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__V89*/ + meltfptr[78] = 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___V88*/ meltfptr[76] = /*_.MELT_DEBUG_FUN__V89*/ meltfptr[78];; + /*_._IF___V88*/ + meltfptr[76] = /*_.MELT_DEBUG_FUN__V89*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1565:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L36*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L36*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V89*/ meltfptr[78] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V89*/ + meltfptr[78] = 0 ; } ; } @@ -32683,7 +35704,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1565:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -32692,9 +35714,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L35*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L35*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V88*/ meltfptr[76] = 0 ; + /*clear*/ /*_._IF___V88*/ + meltfptr[76] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32721,10 +35745,12 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V91*/ meltfptr[68] = + /*newclosure*/ /*_.LAMBDA___V91*/ + meltfptr[68] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_35*/ meltfrout->tabval[35])), (0)); ; - /*_.LAMBDA___V90*/ meltfptr[65] = /*_.LAMBDA___V91*/ meltfptr[68];; + /*_.LAMBDA___V90*/ + meltfptr[65] = /*_.LAMBDA___V91*/ meltfptr[68];; MELT_CHECK_SIGNAL(); ; @@ -32735,7 +35761,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V90*/ meltfptr[65]; - /*_.FRESHORVAR__V92*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SORTORVARS__V29*/ meltfptr[28]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FRESHORVAR__V92*/ + meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SORTORVARS__V29*/ meltfptr[28]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -32758,7 +35785,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L37*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L37*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -32767,7 +35795,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1583:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L37*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32800,16 +35829,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_orpat final freshorvar"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FRESHORVAR__V92*/ meltfptr[70]; - /*_.MELT_DEBUG_FUN__V94*/ meltfptr[55] = 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__V94*/ + meltfptr[55] = 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___V93*/ meltfptr[56] = /*_.MELT_DEBUG_FUN__V94*/ meltfptr[55];; + /*_._IF___V93*/ + meltfptr[56] = /*_.MELT_DEBUG_FUN__V94*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1583:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L38*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V94*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V94*/ + meltfptr[55] = 0 ; } ; } @@ -32822,7 +35855,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1583:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -32831,9 +35865,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L37*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V93*/ meltfptr[56] = 0 ; + /*clear*/ /*_._IF___V93*/ + meltfptr[56] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32866,11 +35902,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[20]); - /*_.LIST_TO_MULTIPLE__V95*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.SUBTESTLIST__V17*/ meltfptr[16]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_TO_MULTIPLE__V95*/ + meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.SUBTESTLIST__V17*/ meltfptr[16]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normatch.melt:1584:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISJTESTER__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_NORMTESTER_DISJUNCTION*/ meltfrout->tabval[7]))) ) /*then*/ @@ -32922,7 +35960,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L39*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L39*/ + meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -32931,7 +35970,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1588:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L39*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L39*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32964,16 +36004,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_orpat final disjtester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.DISJTESTER__V25*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V97*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V97*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V96*/ meltfptr[72] = /*_.MELT_DEBUG_FUN__V97*/ meltfptr[79];; + /*_._IF___V96*/ + meltfptr[72] = /*_.MELT_DEBUG_FUN__V97*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1588:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L40*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L40*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V97*/ meltfptr[79] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V97*/ + meltfptr[79] = 0 ; } ; } @@ -32986,7 +36030,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1588:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -32995,9 +36040,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L39*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L39*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V96*/ meltfptr[72] = 0 ; + /*clear*/ /*_._IF___V96*/ + meltfptr[72] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33019,11 +36066,14 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:1566:/ clear"); - /*clear*/ /*_.LAMBDA___V90*/ meltfptr[65] = 0 ; + /*clear*/ /*_.LAMBDA___V90*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.FRESHORVAR__V92*/ meltfptr[70] = 0 ; + /*clear*/ /*_.FRESHORVAR__V92*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_TO_MULTIPLE__V95*/ meltfptr[59] = 0 ; + /*clear*/ /*_.LIST_TO_MULTIPLE__V95*/ + meltfptr[59] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1592:/ cppif.then"); @@ -33044,7 +36094,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L41*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L41*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -33053,7 +36104,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1592:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L41*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L41*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33086,16 +36138,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "enf normpat_orpat recv"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V99*/ 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__V99*/ + 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___V98*/ meltfptr[46] = /*_.MELT_DEBUG_FUN__V99*/ meltfptr[47];; + /*_._IF___V98*/ + meltfptr[46] = /*_.MELT_DEBUG_FUN__V99*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1592:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L42*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L42*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V99*/ meltfptr[47] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V99*/ + meltfptr[47] = 0 ; } ; } @@ -33108,7 +36164,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1592:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -33117,9 +36174,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L41*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L41*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V98*/ meltfptr[46] = 0 ; + /*clear*/ /*_._IF___V98*/ + meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33141,50 +36200,70 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:1411:/ clear"); - /*clear*/ /*_.SLOC__V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.SLOC__V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.DISJPATS__V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_.DISJPATS__V15*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTLIST__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.TESTLIST__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.SUBTESTLIST__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.SUBTESTLIST__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.STUFFMAP__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.STUFFMAP__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.PVARLOCMAP__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.PVARLOCMAP__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPOR__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MAPOR__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.NCX__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.NCX__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.ORVARMAP__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.ORVARMAP__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.SORTEDORSYMBS__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.SORTEDORSYMBS__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MAKE_LIST__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.DISJTESTER__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.DISJTESTER__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.LAMBDA___V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.SORTORVARS__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.SORTORVARS__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.PREVCONT__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.PREVCONT__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V34*/ meltfptr[32] = 0 ; + /*clear*/ /*_.IFCPP___V34*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.REGISTER_NEW_NORMTESTER__V39*/ meltfptr[31] = 0 ; + /*clear*/ /*_.REGISTER_NEW_NORMTESTER__V39*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.HDLER__V40*/ meltfptr[35] = 0 ; + /*clear*/ /*_.HDLER__V40*/ + meltfptr[35] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1406:/ 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 ; } ; @@ -33266,7 +36345,8 @@ meltrout_33_WARMELTmiNORMATCH_LAMBDA_cl10(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_33_WARMELTmiNORMATCH_LAMBDA_cl10 fromline 1756 */ - /* classy proc frame meltrout_33_WARMELTmiNORMATCH_LAMBDA_cl10 */ MeltFrame_meltrout_33_WARMELTmiNORMATCH_LAMBDA_cl10 + /* classy proc frame meltrout_33_WARMELTmiNORMATCH_LAMBDA_cl10 */ + MeltFrame_meltrout_33_WARMELTmiNORMATCH_LAMBDA_cl10 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_33_WARMELTmiNORMATCH_LAMBDA_cl10 fromline 1785*/ #if ENABLE_CHECKING @@ -33279,7 +36359,8 @@ meltrout_33_WARMELTmiNORMATCH_LAMBDA_cl10(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("LAMBDA_cl10", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -33289,12 +36370,14 @@ meltrout_33_WARMELTmiNORMATCH_LAMBDA_cl10(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1435:/ getarg"); - /*_.ORSYMB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.ORSYMB__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#ORIX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; + /*_#ORIX__L1*/ + meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -33307,7 +36390,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1436:/ quasiblock"); - /*_.CURVARPAT__V4*/ meltfptr[3] = + /*_.CURVARPAT__V4*/ + meltfptr[3] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)((/*~ORVARMAP*/ meltfclos->tabval[0])), (meltobject_ptr_t)(/*_.ORSYMB__V2*/ meltfptr[1]));; @@ -33321,7 +36405,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_OR_VARIABLE*/ meltfrout->tabval[0])), (4), "CLASS_NORMAL_OR_VARIABLE"); - /*_.INST__V6*/ meltfptr[5] = + /*_.INST__V6*/ + meltfptr[5] = newobj; }; ; @@ -33349,7 +36434,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V6*/ meltfptr[5], "newly made instance"); ; - /*_.CURORVAR__V5*/ meltfptr[4] = /*_.INST__V6*/ meltfptr[5];; + /*_.CURORVAR__V5*/ + meltfptr[4] = /*_.INST__V6*/ meltfptr[5];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1445:/ cppif.then"); @@ -33360,10 +36446,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[1] = + /*_#IS_A__L2*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CURVARPAT__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_VARIABLE*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:1445:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; @@ -33390,25 +36478,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1445; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + 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 ""), 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-normatch.melt:1445:/ 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-normatch.melt:1445:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33442,7 +36536,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -33451,7 +36546,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1448:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33492,16 +36588,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " orsymb="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.ORSYMB__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V11*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (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__V11*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (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___V10*/ meltfptr[8] = /*_.MELT_DEBUG_FUN__V11*/ meltfptr[7];; + /*_._IF___V10*/ + meltfptr[8] = /*_.MELT_DEBUG_FUN__V11*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1448:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V11*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V11*/ + meltfptr[7] = 0 ; } ; } @@ -33514,7 +36614,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1448:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -33523,9 +36624,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V10*/ meltfptr[8] = 0 ; + /*clear*/ /*_._IF___V10*/ + meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33573,7 +36676,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[3] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[3] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -33582,7 +36686,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1451:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33615,16 +36720,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_orpat/sortlambda updated pvarlocmap"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*~PVARLOCMAP*/ meltfclos->tabval[2]); - /*_.MELT_DEBUG_FUN__V13*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V12*/ meltfptr[7] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[8];; + /*_._IF___V12*/ + meltfptr[7] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1451:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[8] = 0 ; } ; } @@ -33637,7 +36746,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1451:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -33646,9 +36756,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[3] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V12*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IF___V12*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33674,7 +36786,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1452:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CURORVAR__V5*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CURORVAR__V5*/ meltfptr[4];; { MELT_LOCATION("warmelt-normatch.melt:1452:/ locexp"); @@ -33689,21 +36802,28 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V3*/ meltfptr[2] = /*_.RETURN___V14*/ meltfptr[8];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V3*/ + meltfptr[2] = /*_.RETURN___V14*/ meltfptr[8];; MELT_LOCATION("warmelt-normatch.melt:1436:/ clear"); - /*clear*/ /*_.CURVARPAT__V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.CURVARPAT__V4*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.CURORVAR__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.CURORVAR__V5*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V14*/ meltfptr[8] = 0 ; + /*clear*/ /*_.RETURN___V14*/ + meltfptr[8] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1435:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; { MELT_LOCATION("warmelt-normatch.melt:1435:/ locexp"); @@ -33718,11 +36838,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_.LET___V3*/ + meltfptr[2] = 0 ; } ; @@ -33804,7 +36926,8 @@ meltrout_34_WARMELTmiNORMATCH_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_34_WARMELTmiNORMATCH_LAMBDA_cl11 fromline 1756 */ - /* classy proc frame meltrout_34_WARMELTmiNORMATCH_LAMBDA_cl11 */ MeltFrame_meltrout_34_WARMELTmiNORMATCH_LAMBDA_cl11 + /* classy proc frame meltrout_34_WARMELTmiNORMATCH_LAMBDA_cl11 */ + MeltFrame_meltrout_34_WARMELTmiNORMATCH_LAMBDA_cl11 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_34_WARMELTmiNORMATCH_LAMBDA_cl11 fromline 1785*/ #if ENABLE_CHECKING @@ -33817,7 +36940,8 @@ meltrout_34_WARMELTmiNORMATCH_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("LAMBDA_cl11", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -33827,7 +36951,8 @@ meltrout_34_WARMELTmiNORMATCH_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1515:/ getarg"); - /*_.SUBTESTER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.SUBTESTER__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -33857,7 +36982,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)) @@ -33866,7 +36992,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1516:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33899,16 +37026,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_orpat.lambda subtester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SUBTESTER__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-normatch.melt:1516:/ 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 ; } ; } @@ -33921,7 +37052,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1516:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -33930,9 +37062,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*/ @@ -33956,7 +37090,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1517:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~SUBDISJCONT*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -33991,7 +37126,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~PREVCONT*/ meltfclos->tabval[1])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.PREVTESTSUB__V5*/ meltfptr[3] = slot; + /*_.PREVTESTSUB__V5*/ + meltfptr[3] = slot; }; ; @@ -34020,7 +37156,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -34029,7 +37166,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1522:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34066,16 +37204,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " prevcont="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &(/*~PREVCONT*/ meltfclos->tabval[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 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[2] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1522:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = 0 ; } ; } @@ -34088,7 +37230,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1522:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -34097,9 +37240,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ meltfptr[2] = 0 ; + /*clear*/ /*_._IF___V6*/ + meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34129,7 +37274,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~PREVCONT*/ meltfclos->tabval[1]); - /*_.SET_NEW_TESTER_LAST_THEN__V8*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SUBTESTER__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SET_NEW_TESTER_LAST_THEN__V8*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SUBTESTER__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -34152,7 +37298,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)) @@ -34161,7 +37308,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1525:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34194,16 +37342,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_orpat.lambda done subtester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SUBTESTER__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 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__V10*/ + meltfptr[9] = 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___V9*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; + /*_._IF___V9*/ + meltfptr[2] = /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1525:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V10*/ + meltfptr[9] = 0 ; } ; } @@ -34216,7 +37368,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1525:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -34225,9 +37378,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V9*/ meltfptr[2] = 0 ; + /*clear*/ /*_._IF___V9*/ + meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34251,7 +37406,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1526:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~PREVCONT*/ meltfclos->tabval[1])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -34298,7 +37454,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)) @@ -34307,7 +37464,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1527:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34340,16 +37498,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_orpat prevcont with subtester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*~PREVCONT*/ meltfclos->tabval[1]); - /*_.MELT_DEBUG_FUN__V12*/ meltfptr[2] = 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__V12*/ + meltfptr[2] = 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___V11*/ meltfptr[9] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[2];; + /*_._IF___V11*/ + meltfptr[9] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1527:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V12*/ meltfptr[2] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V12*/ + meltfptr[2] = 0 ; } ; } @@ -34362,7 +37524,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1527:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -34371,9 +37534,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_._IF___V11*/ + meltfptr[9] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34395,9 +37560,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:1518:/ clear"); - /*clear*/ /*_.PREVTESTSUB__V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.PREVTESTSUB__V5*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.SET_NEW_TESTER_LAST_THEN__V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.SET_NEW_TESTER_LAST_THEN__V8*/ + meltfptr[6] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -34483,7 +37650,8 @@ meltrout_35_WARMELTmiNORMATCH_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_35_WARMELTmiNORMATCH_LAMBDA_cl12 fromline 1756 */ - /* classy proc frame meltrout_35_WARMELTmiNORMATCH_LAMBDA_cl12 */ MeltFrame_meltrout_35_WARMELTmiNORMATCH_LAMBDA_cl12 + /* classy proc frame meltrout_35_WARMELTmiNORMATCH_LAMBDA_cl12 */ + MeltFrame_meltrout_35_WARMELTmiNORMATCH_LAMBDA_cl12 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_35_WARMELTmiNORMATCH_LAMBDA_cl12 fromline 1785*/ #if ENABLE_CHECKING @@ -34496,7 +37664,8 @@ meltrout_35_WARMELTmiNORMATCH_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("LAMBDA_cl12", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -34506,12 +37675,14 @@ meltrout_35_WARMELTmiNORMATCH_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1569:/ getarg"); - /*_.CURORVAR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CURORVAR__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#ORIX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; + /*_#ORIX__L1*/ + meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -34531,10 +37702,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[1] = + /*_#IS_A__L2*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CURORVAR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_OR_VARIABLE*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normatch.melt:1570:/ 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);; @@ -34561,25 +37734,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1570; - /*_.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 ""), 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 ""), 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-normatch.melt:1570:/ 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-normatch.melt:1570:/ 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*/ @@ -34595,7 +37774,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURORVAR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NORVAR_LOCSYM"); - /*_.ORLOCSY__V7*/ meltfptr[3] = slot; + /*_.ORLOCSY__V7*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:1572:/ getslot"); @@ -34603,11 +37783,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURORVAR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NORVAR_PATVAR"); - /*_.PATVAR__V8*/ meltfptr[7] = slot; + /*_.PATVAR__V8*/ + meltfptr[7] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:1573:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PATVAR__V8*/ meltfptr[7]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_VARIABLE*/ meltfrout->tabval[2]))) ) /*then*/ @@ -34618,7 +37800,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PATVAR__V8*/ meltfptr[7]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SPATVAR_SYMB"); - /*_.ORSYMB__V9*/ meltfptr[8] = slot; + /*_.ORSYMB__V9*/ + meltfptr[8] = slot; }; ; } @@ -34632,10 +37815,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.ORLOCSY__V7*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:1575:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34643,7 +37828,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1576:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ORLOCSY__V7*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[3]))) ) /*then*/ @@ -34654,7 +37840,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ORLOCSY__V7*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V11*/ meltfptr[10] = slot; + /*_.REFERENCED_VALUE__V11*/ + meltfptr[10] = slot; }; ; } @@ -34665,14 +37852,18 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1576:/ compute"); - /*_.ORLOCSY__V7*/ meltfptr[3] = /*_.SETQ___V12*/ meltfptr[11] = /*_.REFERENCED_VALUE__V11*/ meltfptr[10];; - /*_._IF___V10*/ meltfptr[9] = /*_.SETQ___V12*/ meltfptr[11];; + /*_.ORLOCSY__V7*/ + meltfptr[3] = /*_.SETQ___V12*/ meltfptr[11] = /*_.REFERENCED_VALUE__V11*/ meltfptr[10];; + /*_._IF___V10*/ + meltfptr[9] = /*_.SETQ___V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1575:/ clear"); - /*clear*/ /*_.REFERENCED_VALUE__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V11*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.SETQ___V12*/ + meltfptr[11] = 0 ; } ; } @@ -34702,7 +37893,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)) @@ -34711,7 +37903,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1578:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34748,16 +37941,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " orlocsy="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.ORLOCSY__V7*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V14*/ meltfptr[11] = 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__V14*/ + meltfptr[11] = 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___V13*/ meltfptr[10] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[11];; + /*_._IF___V13*/ + meltfptr[10] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1578:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L5*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ meltfptr[11] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ + meltfptr[11] = 0 ; } ; } @@ -34770,7 +37967,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1578:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -34779,9 +37977,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[3] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L4*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V13*/ meltfptr[10] = 0 ; + /*clear*/ /*_._IF___V13*/ + meltfptr[10] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34807,7 +38007,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1579:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.ORLOCSY__V7*/ meltfptr[3];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.ORLOCSY__V7*/ meltfptr[3];; { MELT_LOCATION("warmelt-normatch.melt:1579:/ locexp"); @@ -34822,28 +38023,37 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V6*/ meltfptr[4] = /*_.RETURN___V15*/ meltfptr[11];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V6*/ + meltfptr[4] = /*_.RETURN___V15*/ meltfptr[11];; MELT_LOCATION("warmelt-normatch.melt:1571:/ clear"); - /*clear*/ /*_.ORLOCSY__V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_.ORLOCSY__V7*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.PATVAR__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.PATVAR__V8*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.ORSYMB__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.ORSYMB__V9*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_._IF___V10*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V15*/ meltfptr[11] = 0 ; + /*clear*/ /*_.RETURN___V15*/ + meltfptr[11] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1569:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-normatch.melt:1569:/ locexp"); @@ -34858,13 +38068,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___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V6*/ + meltfptr[4] = 0 ; } ; @@ -34946,7 +38159,8 @@ meltrout_36_WARMELTmiNORMATCH_NORMPAT_ANYMATCHPAT(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_36_WARMELTmiNORMATCH_NORMPAT_ANYMATCHPAT fromline 1756 */ - /* classy proc frame meltrout_36_WARMELTmiNORMATCH_NORMPAT_ANYMATCHPAT */ MeltFrame_meltrout_36_WARMELTmiNORMATCH_NORMPAT_ANYMATCHPAT + /* classy proc frame meltrout_36_WARMELTmiNORMATCH_NORMPAT_ANYMATCHPAT */ + MeltFrame_meltrout_36_WARMELTmiNORMATCH_NORMPAT_ANYMATCHPAT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_36_WARMELTmiNORMATCH_NORMPAT_ANYMATCHPAT fromline 1785*/ #if ENABLE_CHECKING @@ -34959,7 +38173,8 @@ meltrout_36_WARMELTmiNORMATCH_NORMPAT_ANYMATCHPAT(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("NORMPAT_ANYMATCHPAT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -34969,26 +38184,30 @@ meltrout_36_WARMELTmiNORMATCH_NORMPAT_ANYMATCHPAT(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1602:/ 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; - /*_.NMATCH__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NMATCH__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.HDLER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.HDLER__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.HDLER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PCN__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PCN__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4])) != NULL); ; @@ -35020,7 +38239,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)) @@ -35029,7 +38249,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1603:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35070,16 +38291,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " pcn="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.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_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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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-normatch.melt:1603:/ 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 ; } ; } @@ -35092,7 +38317,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1603:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -35101,9 +38327,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*/ @@ -35133,10 +38361,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:1605:/ 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);; @@ -35163,25 +38393,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1605; - /*_.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-normatch.melt:1605:/ 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-normatch.melt:1605:/ 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*/ @@ -35199,10 +38435,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_MATCHER*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:1606:/ 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);; @@ -35229,25 +38467,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1606; - /*_.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-normatch.melt:1606:/ 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-normatch.melt:1606:/ 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*/ @@ -35270,7 +38514,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1609:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -35281,7 +38526,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__V14*/ meltfptr[12] = slot; + /*_.SLOC__V14*/ + meltfptr[12] = slot; }; ; } @@ -35292,7 +38538,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1610:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_COMPOSITE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -35303,7 +38550,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, "SPAC_OPERATOR"); - /*_.MAT__V15*/ meltfptr[5] = slot; + /*_.MAT__V15*/ + meltfptr[5] = slot; }; ; } @@ -35314,7 +38562,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1611:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_COMPOSITE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -35325,7 +38574,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, "SPAC_OPERBIND"); - /*_.MATOPBIND__V16*/ meltfptr[15] = slot; + /*_.MATOPBIND__V16*/ + meltfptr[15] = slot; }; ; } @@ -35336,7 +38586,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1612:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_COMPOSITE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -35347,7 +38598,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, "SPAC_INARGS"); - /*_.INARGS__V17*/ meltfptr[16] = slot; + /*_.INARGS__V17*/ + meltfptr[16] = slot; }; ; } @@ -35358,7 +38610,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1613:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_COMPOSITE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -35369,7 +38622,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, "SPAC_OUTARGS"); - /*_.OUTARGS__V18*/ meltfptr[17] = slot; + /*_.OUTARGS__V18*/ + meltfptr[17] = slot; }; ; } @@ -35384,16 +38638,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 2, "PCTN_ENV"); - /*_.ENV__V19*/ meltfptr[18] = slot; + /*_.ENV__V19*/ + meltfptr[18] = slot; }; ; - /*_.OLDENV__V20*/ meltfptr[19] = /*_.ENV__V19*/ meltfptr[18];; + /*_.OLDENV__V20*/ + meltfptr[19] = /*_.ENV__V19*/ meltfptr[18];; MELT_LOCATION("warmelt-normatch.melt:1616:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 0, "PCTN_NORMCTXT"); - /*_.NCX__V21*/ meltfptr[20] = slot; + /*_.NCX__V21*/ + meltfptr[20] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:1617:/ getslot"); @@ -35401,7 +38658,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 6, "PCTN_BINDLIST"); - /*_.BINDLIST__V22*/ meltfptr[21] = slot; + /*_.BINDLIST__V22*/ + meltfptr[21] = slot; }; ; MELT_LOCATION("warmelt-normatch.melt:1618:/ getslot"); @@ -35409,7 +38667,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 7, "PCTN_STUFFMAP"); - /*_.STUFFMAP__V23*/ meltfptr[22] = slot; + /*_.STUFFMAP__V23*/ + meltfptr[22] = slot; }; ; @@ -35422,11 +38681,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V19*/ meltfptr[18]; - /*_.MATCHCTYPE__V24*/ meltfptr[23] = meltgc_send((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MATCHCTYPE__V24*/ + meltfptr[23] = meltgc_send((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normatch.melt:1620:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -35437,7 +38698,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 9, "PCTN_TESTS"); - /*_.TESTLIST__V25*/ meltfptr[24] = slot; + /*_.TESTLIST__V25*/ + meltfptr[24] = slot; }; ; } @@ -35457,10 +38719,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MAT__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normatch.melt:1622:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V27*/ meltfptr[26] = (/*nil*/NULL);; @@ -35487,25 +38751,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1622; - /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27] = 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__V28*/ + meltfptr[27] = 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___V27*/ meltfptr[26] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];; + /*_._IFELSE___V27*/ + meltfptr[26] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1622:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/ + meltfptr[27] = 0 ; } ; } ; - /*_.IFCPP___V26*/ meltfptr[25] = /*_._IFELSE___V27*/ meltfptr[26];; + /*_.IFCPP___V26*/ + meltfptr[25] = /*_._IFELSE___V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1622:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IFELSE___V27*/ + meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35523,10 +38793,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[0] = + /*_#IS_A__L6*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MATOPBIND__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normatch.melt:1623:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V30*/ meltfptr[26] = (/*nil*/NULL);; @@ -35553,25 +38825,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1623; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V30*/ meltfptr[26] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30];; + /*_._IFELSE___V30*/ + meltfptr[26] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1623:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V31*/ + meltfptr[30] = 0 ; } ; } ; - /*_.IFCPP___V29*/ meltfptr[27] = /*_._IFELSE___V30*/ meltfptr[26];; + /*_.IFCPP___V29*/ + meltfptr[27] = /*_._IFELSE___V30*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1623:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V30*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IFELSE___V30*/ + meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35599,7 +38877,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)) @@ -35608,7 +38887,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1624:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35649,16 +38929,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " matopbind="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.MATOPBIND__V16*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V33*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V32*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[26];; + /*_._IF___V32*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1624:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[26] = 0 ; } ; } @@ -35671,7 +38955,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1624:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -35680,9 +38965,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*/ @@ -35709,7 +38996,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MATOPBIND__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[8]))) ) /*then*/ @@ -35720,7 +39008,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MATOPBIND__V16*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.MV__V35*/ meltfptr[30] = slot; + /*_.MV__V35*/ + meltfptr[30] = slot; }; ; } @@ -35750,7 +39039,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)) @@ -35759,7 +39049,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1629:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35792,16 +39083,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_anymatchpat matvar="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MV__V35*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 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__V37*/ + meltfptr[36] = 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___V36*/ meltfptr[35] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; + /*_._IF___V36*/ + meltfptr[35] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1629:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[36] = 0 ; } ; } @@ -35814,7 +39109,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1629:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -35823,9 +39119,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_._IF___V36*/ + meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35868,13 +39166,16 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MV__V35*/ meltfptr[30]; - /*_.MVBIND__V39*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.ENV__V19*/ meltfptr[18]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MVBIND__V39*/ + meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.ENV__V19*/ meltfptr[18]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#NULL__L12*/ meltfnum[0] = + /*_#NULL__L12*/ + meltfnum[0] = (/*null*/(/*_.MVBIND__V39*/ meltfptr[35]) == NULL);; MELT_LOCATION("warmelt-normatch.melt:1637:/ cond"); - /*cond*/ if (/*_#NULL__L12*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#NULL__L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_#OR___L13*/ meltfnum[12] = /*_#NULL__L12*/ meltfnum[0];; @@ -35890,25 +39191,32 @@ meltlab_endgetargs: /*_#eqeq__L14*/ meltfnum[13] = ((/*_.MVBIND__V39*/ meltfptr[35]) == (/*_.MATOPBIND__V16*/ meltfptr[15]));; /*^compute*/ - /*_#OR___L13*/ meltfnum[12] = /*_#eqeq__L14*/ meltfnum[13];; + /*_#OR___L13*/ + meltfnum[12] = /*_#eqeq__L14*/ meltfnum[13];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1637:/ clear"); - /*clear*/ /*_#eqeq__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#eqeq__L14*/ + meltfnum[13] = 0 ; } ; } ; - /*_#LET___L11*/ meltfnum[1] = /*_#OR___L13*/ meltfnum[12];; + /*_#LET___L11*/ + meltfnum[1] = /*_#OR___L13*/ meltfnum[12];; MELT_LOCATION("warmelt-normatch.melt:1635:/ clear"); - /*clear*/ /*_.MVBIND__V39*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MVBIND__V39*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L12*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NULL__L12*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#OR___L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#OR___L13*/ + meltfnum[12] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1634:/ cond"); - /*cond*/ if (/*_#LET___L11*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#LET___L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V40*/ meltfptr[35] = (/*nil*/NULL);; @@ -35941,25 +39249,31 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MATOPBIND__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V19*/ meltfptr[18]; - /*_.MELT_ASSERT_FAILURE_FUN__V41*/ 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 MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V41*/ + 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 MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V40*/ meltfptr[35] = /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[40];; + /*_._IFELSE___V40*/ + meltfptr[35] = /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1634:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V41*/ + meltfptr[40] = 0 ; } ; } ; - /*_.IFCPP___V38*/ meltfptr[36] = /*_._IFELSE___V40*/ meltfptr[35];; + /*_.IFCPP___V38*/ + meltfptr[36] = /*_._IFELSE___V40*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1634:/ clear"); - /*clear*/ /*_#LET___L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#LET___L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V40*/ meltfptr[35] = 0 ; + /*clear*/ /*_._IFELSE___V40*/ + meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35968,13 +39282,17 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V34*/ meltfptr[26] = /*_.MV__V35*/ meltfptr[30];; + /*_.LET___V34*/ + meltfptr[26] = /*_.MV__V35*/ meltfptr[30];; MELT_LOCATION("warmelt-normatch.melt:1628:/ clear"); - /*clear*/ /*_.MV__V35*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MV__V35*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V38*/ meltfptr[36] = 0 ; - /*_.MATVAR__V42*/ meltfptr[40] = /*_.LET___V34*/ meltfptr[26];; + /*clear*/ /*_.IFCPP___V38*/ + meltfptr[36] = 0 ; + /*_.MATVAR__V42*/ + meltfptr[40] = /*_.LET___V34*/ meltfptr[26];; MELT_CHECK_SIGNAL(); ; @@ -35988,11 +39306,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MATVAR__V42*/ meltfptr[40]; - /*_.FIND_ENV__V43*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.ENV__V19*/ meltfptr[18]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FIND_ENV__V43*/ + meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.ENV__V19*/ meltfptr[18]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^cond*/ - /*cond*/ if (/*_.FIND_ENV__V43*/ meltfptr[35]) /*then*/ + /*cond*/ + if (/*_.FIND_ENV__V43*/ meltfptr[35]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36013,14 +39333,17 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V21*/ meltfptr[20]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V14*/ meltfptr[12]; - /*_.NORMAL_EXP__V45*/ meltfptr[36] = meltgc_send((melt_ptr_t)(/*_.MATVAR__V42*/ meltfptr[40]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_EXP__V45*/ + meltfptr[36] = meltgc_send((melt_ptr_t)(/*_.MATVAR__V42*/ meltfptr[40]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.MATNDATA__V44*/ meltfptr[30] = /*_.NORMAL_EXP__V45*/ meltfptr[36];; + /*_.MATNDATA__V44*/ + meltfptr[30] = /*_.NORMAL_EXP__V45*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1643:/ clear"); - /*clear*/ /*_.NORMAL_EXP__V45*/ meltfptr[36] = 0 ; + /*clear*/ /*_.NORMAL_EXP__V45*/ + meltfptr[36] = 0 ; } ; } @@ -36050,7 +39373,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L15*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L15*/ + meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -36059,7 +39383,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1646:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L15*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36092,16 +39417,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_anymatchpat matndata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MATNDATA__V44*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V47*/ 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__V47*/ + 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___V46*/ meltfptr[36] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];; + /*_._IF___V46*/ + meltfptr[36] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1646:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V47*/ + meltfptr[46] = 0 ; } ; } @@ -36114,7 +39443,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1646:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -36123,9 +39453,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V46*/ meltfptr[36] = 0 ; + /*clear*/ /*_._IF___V46*/ + meltfptr[36] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -36166,7 +39498,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.BINDINS__V49*/ meltfptr[36]; /*^multiapply.appl*/ - /*_.NINS__V48*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.INARGS__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NINS__V48*/ + meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.INARGS__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -36192,7 +39525,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ meltfnum[12] = + /*_#MELT_NEED_DBG__L17*/ + meltfnum[12] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -36201,7 +39535,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1650:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L17*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36238,16 +39573,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " bindins="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.BINDINS__V49*/ meltfptr[36]; - /*_.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 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V50*/ meltfptr[49] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; + /*_._IF___V50*/ + meltfptr[49] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1650:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L18*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ + meltfptr[50] = 0 ; } ; } @@ -36260,7 +39599,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1650:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -36269,9 +39609,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_._IF___V50*/ + meltfptr[49] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -36295,7 +39637,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1651:/ cond"); - /*cond*/ if (/*_.BINDINS__V49*/ meltfptr[36]) /*then*/ + /*cond*/ + if (/*_.BINDINS__V49*/ meltfptr[36]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36312,14 +39655,17 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.BINDINS__V49*/ meltfptr[36]; - /*_.LIST_APPEND2LIST__V53*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.BINDLIST__V22*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V53*/ + meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.BINDLIST__V22*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V52*/ meltfptr[50] = /*_.LIST_APPEND2LIST__V53*/ meltfptr[49];; + /*_._IF___V52*/ + meltfptr[50] = /*_.LIST_APPEND2LIST__V53*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1651:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V53*/ meltfptr[49] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V53*/ + meltfptr[49] = 0 ; } ; } @@ -36333,7 +39679,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1653:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MAT__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[7]))) ) /*then*/ @@ -36344,7 +39691,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MAT__V15*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 2, "AMATCH_IN"); - /*_.INMATCHS__V54*/ meltfptr[49] = slot; + /*_.INMATCHS__V54*/ + meltfptr[49] = slot; }; ; } @@ -36355,7 +39703,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1654:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MAT__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[7]))) ) /*then*/ @@ -36366,7 +39715,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MAT__V15*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 4, "AMATCH_OUT"); - /*_.OUTMATCHS__V55*/ meltfptr[54] = slot; + /*_.OUTMATCHS__V55*/ + meltfptr[54] = slot; }; ; } @@ -36377,7 +39727,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1655:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MAT__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[7]))) ) /*then*/ @@ -36388,7 +39739,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MAT__V15*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 3, "AMATCH_MATCHBIND"); - /*_.MATBIND__V56*/ meltfptr[55] = slot; + /*_.MATBIND__V56*/ + meltfptr[55] = slot; }; ; } @@ -36399,14 +39751,17 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.OUTBINDS__V57*/ meltfptr[56] = (/*nil*/NULL);; + /*_.OUTBINDS__V57*/ + meltfptr[56] = (/*nil*/NULL);; /*^compute*/ - /*_.TESTER__V58*/ meltfptr[57] = (/*nil*/NULL);; + /*_.TESTER__V58*/ + meltfptr[57] = (/*nil*/NULL);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1660:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MATBIND__V56*/ meltfptr[55]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[13]))) ) /*then*/ @@ -36417,7 +39772,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MATBIND__V56*/ meltfptr[55]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V59*/ meltfptr[58] = slot; + /*_.FBIND_TYPE__V59*/ + meltfptr[58] = slot; }; ; } @@ -36428,10 +39784,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#exeq__L19*/ meltfnum[0] = + /*_#exeq__L19*/ + meltfnum[0] = ((/*_.MATCHCTYPE__V24*/ meltfptr[23]) != (/*_.FBIND_TYPE__V59*/ meltfptr[58]));; MELT_LOCATION("warmelt-normatch.melt:1660:/ cond"); - /*cond*/ if (/*_#exeq__L19*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#exeq__L19*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36439,7 +39797,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1661:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MATCHCTYPE__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[14]))) ) /*then*/ @@ -36450,7 +39809,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MATCHCTYPE__V24*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V60*/ meltfptr[59] = slot; + /*_.NAMED_NAME__V60*/ + meltfptr[59] = slot; }; ; } @@ -36467,7 +39827,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1662:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MATBIND__V56*/ meltfptr[55]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[13]))) ) /*then*/ @@ -36478,7 +39839,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MATBIND__V56*/ meltfptr[55]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V61*/ meltfptr[60] = slot; + /*_.FBIND_TYPE__V61*/ + meltfptr[60] = slot; }; ; } @@ -36489,7 +39851,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1662:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V61*/ meltfptr[60]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[14]))) ) /*then*/ @@ -36500,7 +39863,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V61*/ meltfptr[60]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V62*/ meltfptr[61] = slot; + /*_.NAMED_NAME__V62*/ + meltfptr[61] = slot; }; ; } @@ -36522,11 +39886,14 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.NAMED_NAME__V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V61*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.NAMED_NAME__V62*/ + meltfptr[61] = 0 ; } ; } /*noelse*/ @@ -36551,7 +39918,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L20*/ + meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -36560,7 +39928,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1664:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L20*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36597,16 +39966,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "inmatchs="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.INMATCHS__V54*/ meltfptr[49]; - /*_.MELT_DEBUG_FUN__V64*/ meltfptr[60] = 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__V64*/ + meltfptr[60] = 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___V63*/ meltfptr[59] = /*_.MELT_DEBUG_FUN__V64*/ meltfptr[60];; + /*_._IF___V63*/ + meltfptr[59] = /*_.MELT_DEBUG_FUN__V64*/ meltfptr[60];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1664:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V64*/ meltfptr[60] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V64*/ + meltfptr[60] = 0 ; } ; } @@ -36619,7 +39992,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1664:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -36628,9 +40002,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V63*/ meltfptr[59] = 0 ; + /*clear*/ /*_._IF___V63*/ + meltfptr[59] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -36653,19 +40029,23 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1665:/ quasiblock"); - /*_#NBINARGS__L22*/ meltfnum[12] = + /*_#NBINARGS__L22*/ + meltfnum[12] = (melt_multiple_length((melt_ptr_t)(/*_.INARGS__V17*/ meltfptr[16])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#MULTIPLE_LENGTH__L23*/ meltfnum[1] = + /*_#MULTIPLE_LENGTH__L23*/ + meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.INMATCHS__V54*/ meltfptr[49])));; /*^compute*/ - /*_#exeqI__L24*/ meltfnum[13] = + /*_#exeqI__L24*/ + meltfnum[13] = ((/*_#NBINARGS__L22*/ meltfnum[12]) != (/*_#MULTIPLE_LENGTH__L23*/ meltfnum[1]));; MELT_LOCATION("warmelt-normatch.melt:1666:/ cond"); - /*cond*/ if (/*_#exeqI__L24*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#exeqI__L24*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36673,7 +40053,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1670:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MAT__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[14]))) ) /*then*/ @@ -36684,7 +40065,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MAT__V15*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V65*/ meltfptr[61] = slot; + /*_.NAMED_NAME__V65*/ + meltfptr[61] = slot; }; ; } @@ -36703,7 +40085,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1666:/ clear"); - /*clear*/ /*_.NAMED_NAME__V65*/ meltfptr[61] = 0 ; + /*clear*/ /*_.NAMED_NAME__V65*/ + meltfptr[61] = 0 ; } ; } /*noelse*/ @@ -36711,10 +40094,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#gtI__L25*/ meltfnum[24] = + /*_#gtI__L25*/ + meltfnum[24] = ((/*_#NBINARGS__L22*/ meltfnum[12]) > (0));; MELT_LOCATION("warmelt-normatch.melt:1671:/ cond"); - /*cond*/ if (/*_#gtI__L25*/ meltfnum[24]) /*then*/ + /*cond*/ + if (/*_#gtI__L25*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36765,7 +40150,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L27*/ meltfnum[26] = + /*_#MELT_NEED_DBG__L27*/ + meltfnum[26] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -36774,7 +40160,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1676:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L27*/ meltfnum[26]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L27*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36807,16 +40194,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_anymatchpat ncurin"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCURIN__V67*/ meltfptr[59]; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V68*/ meltfptr[61] = /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68];; + /*_._IF___V68*/ + meltfptr[61] = /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1676:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L28*/ meltfnum[27] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L28*/ + meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V69*/ + meltfptr[68] = 0 ; } ; } @@ -36829,7 +40220,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1676:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -36838,9 +40230,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L27*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L27*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V68*/ meltfptr[61] = 0 ; + /*clear*/ /*_._IF___V68*/ + meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -36863,7 +40257,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1677:/ quasiblock"); - /*_.CURMATCH__V71*/ meltfptr[61] = + /*_.CURMATCH__V71*/ + meltfptr[61] = (melt_multiple_nth((melt_ptr_t)(/*_.INMATCHS__V54*/ meltfptr[49]), (/*_#IX__L26*/ meltfnum[25])));; MELT_CHECK_SIGNAL(); @@ -36875,11 +40270,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V19*/ meltfptr[18]; - /*_.CURCTYPE__V72*/ meltfptr[71] = meltgc_send((melt_ptr_t)(/*_.NCURIN__V67*/ meltfptr[59]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CURCTYPE__V72*/ + meltfptr[71] = meltgc_send((melt_ptr_t)(/*_.NCURIN__V67*/ meltfptr[59]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normatch.melt:1679:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURMATCH__V71*/ meltfptr[61]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[13]))) ) /*then*/ @@ -36890,7 +40287,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURMATCH__V71*/ meltfptr[61]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.MATCHTYPE__V73*/ meltfptr[72] = slot; + /*_.MATCHTYPE__V73*/ + meltfptr[72] = slot; }; ; } @@ -36920,7 +40318,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L29*/ meltfnum[27] = + /*_#MELT_NEED_DBG__L29*/ + meltfnum[27] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -36929,7 +40328,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1681:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L29*/ meltfnum[27]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L29*/ meltfnum[27]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36962,16 +40362,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_anymatchpat curmatch"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURMATCH__V71*/ meltfptr[61]; - /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74] = 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__V75*/ + meltfptr[74] = 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___V74*/ meltfptr[73] = /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74];; + /*_._IF___V74*/ + meltfptr[73] = /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1681:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L30*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L30*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V75*/ + meltfptr[74] = 0 ; } ; } @@ -36984,7 +40388,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1681:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -36993,9 +40398,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L29*/ meltfnum[27] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L29*/ + meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V74*/ meltfptr[73] = 0 ; + /*clear*/ /*_._IF___V74*/ + meltfptr[73] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37025,10 +40432,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L31*/ meltfnum[26] = + /*_#IS_A__L31*/ + meltfnum[26] = melt_is_instance_of((melt_ptr_t)(/*_.CURMATCH__V71*/ meltfptr[61]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-normatch.melt:1682:/ cond"); - /*cond*/ if (/*_#IS_A__L31*/ meltfnum[26]) /*then*/ + /*cond*/ + if (/*_#IS_A__L31*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V77*/ meltfptr[73] = (/*nil*/NULL);; @@ -37055,25 +40464,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1682; - /*_.MELT_ASSERT_FAILURE_FUN__V78*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V78*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V77*/ meltfptr[73] = /*_.MELT_ASSERT_FAILURE_FUN__V78*/ meltfptr[77];; + /*_._IFELSE___V77*/ + meltfptr[73] = /*_.MELT_ASSERT_FAILURE_FUN__V78*/ meltfptr[77];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1682:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V78*/ meltfptr[77] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V78*/ + meltfptr[77] = 0 ; } ; } ; - /*_.IFCPP___V76*/ meltfptr[74] = /*_._IFELSE___V77*/ meltfptr[73];; + /*_.IFCPP___V76*/ + meltfptr[74] = /*_._IFELSE___V77*/ meltfptr[73];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1682:/ clear"); - /*clear*/ /*_#IS_A__L31*/ meltfnum[26] = 0 ; + /*clear*/ /*_#IS_A__L31*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V77*/ meltfptr[73] = 0 ; + /*clear*/ /*_._IFELSE___V77*/ + meltfptr[73] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37101,7 +40516,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L32*/ meltfnum[27] = + /*_#MELT_NEED_DBG__L32*/ + meltfnum[27] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -37110,7 +40526,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1684:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L32*/ meltfnum[27]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L32*/ meltfnum[27]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37147,16 +40564,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " matchtype="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MATCHTYPE__V73*/ meltfptr[72]; - /*_.MELT_DEBUG_FUN__V80*/ meltfptr[73] = 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__V80*/ + meltfptr[73] = 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___V79*/ meltfptr[77] = /*_.MELT_DEBUG_FUN__V80*/ meltfptr[73];; + /*_._IF___V79*/ + meltfptr[77] = /*_.MELT_DEBUG_FUN__V80*/ meltfptr[73];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1684:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L33*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L33*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V80*/ meltfptr[73] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V80*/ + meltfptr[73] = 0 ; } ; } @@ -37169,7 +40590,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1684:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -37178,9 +40600,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L32*/ meltfnum[27] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L32*/ + meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V79*/ meltfptr[77] = 0 ; + /*clear*/ /*_._IF___V79*/ + meltfptr[77] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37203,10 +40627,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#exeq__L34*/ meltfnum[26] = + /*_#exeq__L34*/ + meltfnum[26] = ((/*_.CURCTYPE__V72*/ meltfptr[71]) != (/*_.MATCHTYPE__V73*/ meltfptr[72]));; MELT_LOCATION("warmelt-normatch.melt:1685:/ cond"); - /*cond*/ if (/*_#exeq__L34*/ meltfnum[26]) /*then*/ + /*cond*/ + if (/*_#exeq__L34*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37214,7 +40640,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1689:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MAT__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[14]))) ) /*then*/ @@ -37225,7 +40652,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MAT__V15*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V82*/ meltfptr[77] = slot; + /*_.NAMED_NAME__V82*/ + meltfptr[77] = slot; }; ; } @@ -37242,7 +40670,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1692:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURMATCH__V71*/ meltfptr[61]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[8]))) ) /*then*/ @@ -37253,7 +40682,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURMATCH__V71*/ meltfptr[61]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V83*/ meltfptr[82] = slot; + /*_.BINDER__V83*/ + meltfptr[82] = slot; }; ; } @@ -37264,7 +40694,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1692:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V83*/ meltfptr[82]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[14]))) ) /*then*/ @@ -37275,7 +40706,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V83*/ meltfptr[82]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V84*/ meltfptr[83] = slot; + /*_.NAMED_NAME__V84*/ + meltfptr[83] = slot; }; ; } @@ -37292,7 +40724,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1695:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYPE__V72*/ meltfptr[71]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[14]))) ) /*then*/ @@ -37303,7 +40736,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYPE__V72*/ meltfptr[71]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V85*/ meltfptr[84] = slot; + /*_.NAMED_NAME__V85*/ + meltfptr[84] = slot; }; ; } @@ -37320,7 +40754,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1698:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MATCHTYPE__V73*/ meltfptr[72]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[14]))) ) /*then*/ @@ -37331,7 +40766,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MATCHTYPE__V73*/ meltfptr[72]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V86*/ meltfptr[85] = slot; + /*_.NAMED_NAME__V86*/ + meltfptr[85] = slot; }; ; } @@ -37353,15 +40789,20 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1685:/ clear"); - /*clear*/ /*_.NAMED_NAME__V82*/ meltfptr[77] = 0 ; + /*clear*/ /*_.NAMED_NAME__V82*/ + meltfptr[77] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_.BINDER__V83*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V84*/ meltfptr[83] = 0 ; + /*clear*/ /*_.NAMED_NAME__V84*/ + meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V85*/ meltfptr[84] = 0 ; + /*clear*/ /*_.NAMED_NAME__V85*/ + meltfptr[84] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V86*/ meltfptr[85] = 0 ; + /*clear*/ /*_.NAMED_NAME__V86*/ + meltfptr[85] = 0 ; } ; } @@ -37379,7 +40820,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1702:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURMATCH__V71*/ meltfptr[61]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[8]))) ) /*then*/ @@ -37390,7 +40832,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURMATCH__V71*/ meltfptr[61]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V88*/ meltfptr[82] = slot; + /*_.BINDER__V88*/ + meltfptr[82] = slot; }; ; } @@ -37408,7 +40851,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[16])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V90*/ meltfptr[84] = + /*_.INST__V90*/ + meltfptr[84] = newobj; }; ; @@ -37436,7 +40880,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V90*/ meltfptr[84], "newly made instance"); ; - /*_.NEWB__V89*/ meltfptr[83] = /*_.INST__V90*/ meltfptr[84];; + /*_.NEWB__V89*/ + meltfptr[83] = /*_.INST__V90*/ meltfptr[84];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1707:/ cppif.then"); @@ -37457,7 +40902,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L35*/ meltfnum[27] = + /*_#MELT_NEED_DBG__L35*/ + meltfnum[27] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -37466,7 +40912,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1707:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L35*/ meltfnum[27]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L35*/ meltfnum[27]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37499,16 +40946,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_anymatchpat newb="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWB__V89*/ meltfptr[83]; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V91*/ meltfptr[85] = /*_.MELT_DEBUG_FUN__V92*/ meltfptr[91];; + /*_._IF___V91*/ + meltfptr[85] = /*_.MELT_DEBUG_FUN__V92*/ meltfptr[91];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1707:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L36*/ meltfnum[35] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L36*/ + meltfnum[35] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V92*/ meltfptr[91] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V92*/ + meltfptr[91] = 0 ; } ; } @@ -37521,7 +40972,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1707:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -37530,9 +40982,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L35*/ meltfnum[27] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L35*/ + meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V91*/ meltfptr[85] = 0 ; + /*clear*/ /*_._IF___V91*/ + meltfptr[85] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37562,60 +41016,79 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWB__V89*/ meltfptr[83]; - /*_.PUT_ENV__V93*/ meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.NEWENV__V66*/ meltfptr[60]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V93*/ + meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.NEWENV__V66*/ meltfptr[60]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V87*/ meltfptr[77] = /*_.PUT_ENV__V93*/ meltfptr[91];; + /*_.LET___V87*/ + meltfptr[77] = /*_.PUT_ENV__V93*/ meltfptr[91];; MELT_LOCATION("warmelt-normatch.melt:1700:/ clear"); - /*clear*/ /*_.BINDER__V88*/ meltfptr[82] = 0 ; + /*clear*/ /*_.BINDER__V88*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWB__V89*/ meltfptr[83] = 0 ; + /*clear*/ /*_.NEWB__V89*/ + meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V93*/ meltfptr[91] = 0 ; - /*_._IFELSE___V81*/ meltfptr[73] = /*_.LET___V87*/ meltfptr[77];; + /*clear*/ /*_.PUT_ENV__V93*/ + meltfptr[91] = 0 ; + /*_._IFELSE___V81*/ + meltfptr[73] = /*_.LET___V87*/ meltfptr[77];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1685:/ clear"); - /*clear*/ /*_.LET___V87*/ meltfptr[77] = 0 ; + /*clear*/ /*_.LET___V87*/ + meltfptr[77] = 0 ; } ; } ; - /*_.LET___V70*/ meltfptr[68] = /*_._IFELSE___V81*/ meltfptr[73];; + /*_.LET___V70*/ + meltfptr[68] = /*_._IFELSE___V81*/ meltfptr[73];; MELT_LOCATION("warmelt-normatch.melt:1677:/ clear"); - /*clear*/ /*_.CURMATCH__V71*/ meltfptr[61] = 0 ; + /*clear*/ /*_.CURMATCH__V71*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.CURCTYPE__V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_.CURCTYPE__V72*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.MATCHTYPE__V73*/ meltfptr[72] = 0 ; + /*clear*/ /*_.MATCHTYPE__V73*/ + meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V76*/ meltfptr[74] = 0 ; + /*clear*/ /*_.IFCPP___V76*/ + meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L34*/ meltfnum[26] = 0 ; + /*clear*/ /*_#exeq__L34*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V81*/ meltfptr[73] = 0 ; + /*clear*/ /*_._IFELSE___V81*/ + meltfptr[73] = 0 ; if (/*_#IX__L26*/ meltfnum[25]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:1673:/ clear"); - /*clear*/ /*_.NCURIN__V67*/ meltfptr[59] = 0 ; + /*clear*/ /*_.NCURIN__V67*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L26*/ meltfnum[25] = 0 ; + /*clear*/ /*_#IX__L26*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V70*/ meltfptr[68] = 0 ; + /*clear*/ /*_.LET___V70*/ + meltfptr[68] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-normatch.melt:1710:/ compute"); - /*_.ENV__V19*/ meltfptr[18] = /*_.SETQ___V94*/ meltfptr[85] = /*_.NEWENV__V66*/ meltfptr[60];; + /*_.ENV__V19*/ + meltfptr[18] = /*_.SETQ___V94*/ meltfptr[85] = /*_.NEWENV__V66*/ meltfptr[60];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1711:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -37644,9 +41117,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:1672:/ clear"); - /*clear*/ /*_.NEWENV__V66*/ meltfptr[60] = 0 ; + /*clear*/ /*_.NEWENV__V66*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V94*/ meltfptr[85] = 0 ; + /*clear*/ /*_.SETQ___V94*/ + meltfptr[85] = 0 ; /*epilog*/ } ; @@ -37654,13 +41129,17 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:1665:/ clear"); - /*clear*/ /*_#NBINARGS__L22*/ meltfnum[12] = 0 ; + /*clear*/ /*_#NBINARGS__L22*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L23*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L23*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#exeqI__L24*/ meltfnum[13] = 0 ; + /*clear*/ /*_#exeqI__L24*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L25*/ meltfnum[24] = 0 ; + /*clear*/ /*_#gtI__L25*/ + meltfnum[24] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1714:/ cppif.then"); @@ -37681,7 +41160,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L37*/ meltfnum[35] = + /*_#MELT_NEED_DBG__L37*/ + meltfnum[35] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -37690,7 +41170,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1714:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[35]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L37*/ meltfnum[35]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37727,16 +41208,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " outmatchs="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OUTMATCHS__V55*/ meltfptr[54]; - /*_.MELT_DEBUG_FUN__V96*/ meltfptr[83] = 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__V96*/ + meltfptr[83] = 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___V95*/ meltfptr[82] = /*_.MELT_DEBUG_FUN__V96*/ meltfptr[83];; + /*_._IF___V95*/ + meltfptr[82] = /*_.MELT_DEBUG_FUN__V96*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1714:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[27] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L38*/ + meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V96*/ meltfptr[83] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V96*/ + meltfptr[83] = 0 ; } ; } @@ -37749,7 +41234,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1714:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -37758,9 +41244,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[35] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L37*/ + meltfnum[35] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V95*/ meltfptr[82] = 0 ; + /*clear*/ /*_._IF___V95*/ + meltfptr[82] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37783,19 +41271,23 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1715:/ quasiblock"); - /*_#NBOUTARGS__L39*/ meltfnum[26] = + /*_#NBOUTARGS__L39*/ + meltfnum[26] = (melt_multiple_length((melt_ptr_t)(/*_.OUTARGS__V18*/ meltfptr[17])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#MULTIPLE_LENGTH__L40*/ meltfnum[12] = + /*_#MULTIPLE_LENGTH__L40*/ + meltfnum[12] = (melt_multiple_length((melt_ptr_t)(/*_.OUTMATCHS__V55*/ meltfptr[54])));; /*^compute*/ - /*_#exeqI__L41*/ meltfnum[1] = + /*_#exeqI__L41*/ + meltfnum[1] = ((/*_#NBOUTARGS__L39*/ meltfnum[26]) != (/*_#MULTIPLE_LENGTH__L40*/ meltfnum[12]));; MELT_LOCATION("warmelt-normatch.melt:1716:/ cond"); - /*cond*/ if (/*_#exeqI__L41*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#exeqI__L41*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37803,7 +41295,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1720:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MAT__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[14]))) ) /*then*/ @@ -37814,7 +41307,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MAT__V15*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V98*/ meltfptr[77] = slot; + /*_.NAMED_NAME__V98*/ + meltfptr[77] = slot; }; ; } @@ -37833,7 +41327,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1716:/ clear"); - /*clear*/ /*_.NAMED_NAME__V98*/ meltfptr[77] = 0 ; + /*clear*/ /*_.NAMED_NAME__V98*/ + meltfptr[77] = 0 ; } ; } /*noelse*/ @@ -37841,11 +41336,13 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1721:/ quasiblock"); - /*_.TSTUFF__V100*/ meltfptr[71] = + /*_.TSTUFF__V100*/ + meltfptr[71] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STUFFMAP__V23*/ meltfptr[22]), (meltobject_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2]));; /*^compute*/ - /*_.CURHDLER__V101*/ meltfptr[72] = /*_.HDLER__V4*/ meltfptr[3];; + /*_.CURHDLER__V101*/ + meltfptr[72] = /*_.HDLER__V4*/ meltfptr[3];; MELT_LOCATION("warmelt-normatch.melt:1724:/ loop"); /*loop*/ { @@ -37878,7 +41375,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L42*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L42*/ + meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -37887,7 +41385,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1726:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L42*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L42*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37920,16 +41419,20 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ argtab[3].meltbp_cstring = "normpat_anymatchpat tstuff"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TSTUFF__V100*/ meltfptr[71]; - /*_.MELT_DEBUG_FUN__V105*/ 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__V105*/ + 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___V104*/ meltfptr[60] = /*_.MELT_DEBUG_FUN__V105*/ meltfptr[85];; + /*_._IF___V104*/ + meltfptr[60] = /*_.MELT_DEBUG_FUN__V105*/ meltfptr[85];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1726:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L43*/ meltfnum[24] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L43*/ + meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V105*/ meltfptr[85] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V105*/ + meltfptr[85] = 0 ; } ; } @@ -37942,7 +41445,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1726:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -37951,9 +41455,11 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L42*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L42*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V104*/ meltfptr[60] = 0 ; + /*clear*/ /*_._IF___V104*/ + meltfptr[60] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37979,10 +41485,12 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L44*/ meltfnum[27] = + /*_#IS_A__L44*/ + meltfnum[27] = melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V100*/ meltfptr[71]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ meltfrout->tabval[18])));; MELT_LOCATION("warmelt-normatch.melt:1728:/ cond"); - /*cond*/ if (/*_#IS_A__L44*/ meltfnum[27]) /*then*/ + /*cond*/ + if (/*_#IS_A__L44*/ meltfnum[27]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37990,7 +41498,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1729:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V100*/ meltfptr[71]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ meltfrout->tabval[18]))) ) /*then*/ @@ -38001,7 +41510,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TSTUFF__V100*/ meltfptr[71]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NTMATCH_MATCHER"); - /*_.NTMATCH_MATCHER__V106*/ meltfptr[83] = slot; + /*_.NTMATCH_MATCHER__V106*/ + meltfptr[83] = slot; }; ; } @@ -38012,16 +41522,20 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ } ; /*^compute*/ - /*_#eqeq__L46*/ meltfnum[24] = + /*_#eqeq__L46*/ + meltfnum[24] = ((/*_.NTMATCH_MATCHER__V106*/ meltfptr[83]) == (/*_.MAT__V15*/ meltfptr[5]));; /*^compute*/ - /*_#_IF___L45*/ meltfnum[35] = /*_#eqeq__L46*/ meltfnum[24];; + /*_#_IF___L45*/ + meltfnum[35] = /*_#eqeq__L46*/ meltfnum[24];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1728:/ clear"); - /*clear*/ /*_.NTMATCH_MATCHER__V106*/ meltfptr[83] = 0 ; + /*clear*/ /*_.NTMATCH_MATCHER__V106*/ + meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L46*/ meltfnum[24] = 0 ; + /*clear*/ /*_#eqeq__L46*/ + meltfnum[24] = 0 ; } ; } @@ -38032,7 +41546,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ } ; MELT_LOCATION("warmelt-normatch.melt:1728:/ cond"); - /*cond*/ if (/*_#_IF___L45*/ meltfnum[35]) /*then*/ + /*cond*/ + if (/*_#_IF___L45*/ meltfnum[35]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38043,7 +41558,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V100*/ meltfptr[71]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ meltfrout->tabval[18]))) ) /*then*/ @@ -38054,7 +41570,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TSTUFF__V100*/ meltfptr[71]) /*=obj*/; melt_object_get_field(slot,obj, 9, "NTMATCH_INARGS"); - /*_.TINARGS__V109*/ meltfptr[85] = slot; + /*_.TINARGS__V109*/ + meltfptr[85] = slot; }; ; } @@ -38065,7 +41582,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ } ; /*^compute*/ - /*_#GOOD__L47*/ meltfnum[13] = 1;; + /*_#GOOD__L47*/ + meltfnum[13] = 1;; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit2__EACHTUP */ @@ -38081,16 +41599,19 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ MELT_LOCATION("warmelt-normatch.melt:1736:/ quasiblock"); - /*_.NTHINS__V111*/ meltfptr[83] = + /*_.NTHINS__V111*/ + meltfptr[83] = (melt_multiple_nth((melt_ptr_t)(/*_.NINS__V48*/ meltfptr[46]), (/*_#IX__L48*/ meltfnum[24])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#exeq__L50*/ meltfnum[49] = + /*_#exeq__L50*/ + meltfnum[49] = ((/*_.CURINARG__V110*/ meltfptr[60]) != (/*_.NTHINS__V111*/ meltfptr[83]));; MELT_LOCATION("warmelt-normatch.melt:1737:/ cond"); - /*cond*/ if (/*_#exeq__L50*/ meltfnum[49]) /*then*/ + /*cond*/ + if (/*_#exeq__L50*/ meltfnum[49]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38098,12 +41619,15 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1738:/ compute"); - /*_#GOOD__L47*/ meltfnum[13] = /*_#SETQ___L52*/ meltfnum[51] = 0;; - /*_#_IF___L51*/ meltfnum[50] = /*_#SETQ___L52*/ meltfnum[51];; + /*_#GOOD__L47*/ + meltfnum[13] = /*_#SETQ___L52*/ meltfnum[51] = 0;; + /*_#_IF___L51*/ + meltfnum[50] = /*_#SETQ___L52*/ meltfnum[51];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1737:/ clear"); - /*clear*/ /*_#SETQ___L52*/ meltfnum[51] = 0 ; + /*clear*/ /*_#SETQ___L52*/ + meltfnum[51] = 0 ; } ; } @@ -38114,32 +41638,40 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ } ; /*^compute*/ - /*_#LET___L49*/ meltfnum[48] = /*_#_IF___L51*/ meltfnum[50];; + /*_#LET___L49*/ + meltfnum[48] = /*_#_IF___L51*/ meltfnum[50];; MELT_LOCATION("warmelt-normatch.melt:1736:/ clear"); - /*clear*/ /*_.NTHINS__V111*/ meltfptr[83] = 0 ; + /*clear*/ /*_.NTHINS__V111*/ + meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L50*/ meltfnum[49] = 0 ; + /*clear*/ /*_#exeq__L50*/ + meltfnum[49] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L51*/ meltfnum[50] = 0 ; + /*clear*/ /*_#_IF___L51*/ + meltfnum[50] = 0 ; if (/*_#IX__L48*/ meltfnum[24]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:1733:/ clear"); - /*clear*/ /*_.CURINARG__V110*/ meltfptr[60] = 0 ; + /*clear*/ /*_.CURINARG__V110*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L48*/ meltfnum[24] = 0 ; + /*clear*/ /*_#IX__L48*/ + meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_#LET___L49*/ meltfnum[48] = 0 ; + /*clear*/ /*_#LET___L49*/ + meltfnum[48] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1740:/ cond"); - /*cond*/ if (/*_#GOOD__L47*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#GOOD__L47*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38166,7 +41698,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L53*/ meltfnum[51] = + /*_#MELT_NEED_DBG__L53*/ + meltfnum[51] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -38175,7 +41708,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1742:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L53*/ meltfnum[51]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L53*/ meltfnum[51]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38208,16 +41742,20 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ argtab[3].meltbp_cstring = "normpat_anymatchpat good tstuff"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TSTUFF__V100*/ meltfptr[71]; - /*_.MELT_DEBUG_FUN__V114*/ meltfptr[113] = 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__V114*/ + meltfptr[113] = 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___V113*/ meltfptr[112] = /*_.MELT_DEBUG_FUN__V114*/ meltfptr[113];; + /*_._IF___V113*/ + meltfptr[112] = /*_.MELT_DEBUG_FUN__V114*/ meltfptr[113];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1742:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L54*/ meltfnum[49] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L54*/ + meltfnum[49] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V114*/ meltfptr[113] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V114*/ + meltfptr[113] = 0 ; } ; } @@ -38230,7 +41768,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1742:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -38239,9 +41778,11 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L53*/ meltfnum[51] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L53*/ + meltfnum[51] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V113*/ meltfptr[112] = 0 ; + /*clear*/ /*_._IF___V113*/ + meltfptr[112] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38262,12 +41803,14 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normatch.melt:1743:/ compute"); - /*_.TESTER__V58*/ meltfptr[57] = /*_.SETQ___V115*/ meltfptr[113] = /*_.TSTUFF__V100*/ meltfptr[71];; + /*_.TESTER__V58*/ + meltfptr[57] = /*_.SETQ___V115*/ meltfptr[113] = /*_.TSTUFF__V100*/ meltfptr[71];; MELT_LOCATION("warmelt-normatch.melt:1744:/ quasiblock"); /*^compute*/ - /*_.LOOPSTUFF__V103*/ meltfptr[73] = /*reallynil*/ NULL ;; + /*_.LOOPSTUFF__V103*/ + meltfptr[73] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -38281,7 +41824,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1740:/ clear"); - /*clear*/ /*_.SETQ___V115*/ meltfptr[113] = 0 ; + /*clear*/ /*_.SETQ___V115*/ + meltfptr[113] = 0 ; } ; } @@ -38293,7 +41837,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1746:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V100*/ meltfptr[71]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[19]))) ) /*then*/ @@ -38304,7 +41849,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TSTUFF__V100*/ meltfptr[71]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NTEST_ELSE"); - /*_.NTEST_ELSE__V116*/ meltfptr[112] = slot; + /*_.NTEST_ELSE__V116*/ + meltfptr[112] = slot; }; ; } @@ -38315,12 +41861,14 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ } ; MELT_LOCATION("warmelt-normatch.melt:1746:/ compute"); - /*_.TSTUFF__V100*/ meltfptr[71] = /*_.SETQ___V117*/ meltfptr[113] = /*_.NTEST_ELSE__V116*/ meltfptr[112];; + /*_.TSTUFF__V100*/ + meltfptr[71] = /*_.SETQ___V117*/ meltfptr[113] = /*_.NTEST_ELSE__V116*/ meltfptr[112];; MELT_LOCATION("warmelt-normatch.melt:1748:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V119*/ meltfptr[118] = + /*newclosure*/ /*_.LAMBDA___V119*/ + meltfptr[118] = (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*/ @@ -38329,39 +41877,52 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V119*/ meltfptr[118]))); ((meltclosure_ptr_t)/*_.LAMBDA___V119*/ meltfptr[118])->tabval[0] = (melt_ptr_t)(/*_.TSTUFF__V100*/ meltfptr[71]); ; - /*_.LAMBDA___V118*/ meltfptr[117] = /*_.LAMBDA___V119*/ meltfptr[118];; + /*_.LAMBDA___V118*/ + meltfptr[117] = /*_.LAMBDA___V119*/ meltfptr[118];; MELT_LOCATION("warmelt-normatch.melt:1747:/ compute"); - /*_.CURHDLER__V101*/ meltfptr[72] = /*_.SETQ___V120*/ meltfptr[119] = /*_.LAMBDA___V118*/ meltfptr[117];; + /*_.CURHDLER__V101*/ + meltfptr[72] = /*_.SETQ___V120*/ meltfptr[119] = /*_.LAMBDA___V118*/ meltfptr[117];; MELT_LOCATION("warmelt-normatch.melt:1745:/ quasiblock"); - /*_.PROGN___V121*/ meltfptr[120] = /*_.SETQ___V120*/ meltfptr[119];; + /*_.PROGN___V121*/ + meltfptr[120] = /*_.SETQ___V120*/ meltfptr[119];; /*^compute*/ - /*_._IFELSE___V112*/ meltfptr[83] = /*_.PROGN___V121*/ meltfptr[120];; + /*_._IFELSE___V112*/ + meltfptr[83] = /*_.PROGN___V121*/ meltfptr[120];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1740:/ clear"); - /*clear*/ /*_.NTEST_ELSE__V116*/ meltfptr[112] = 0 ; + /*clear*/ /*_.NTEST_ELSE__V116*/ + meltfptr[112] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V117*/ meltfptr[113] = 0 ; + /*clear*/ /*_.SETQ___V117*/ + meltfptr[113] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V118*/ meltfptr[117] = 0 ; + /*clear*/ /*_.LAMBDA___V118*/ + meltfptr[117] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V120*/ meltfptr[119] = 0 ; + /*clear*/ /*_.SETQ___V120*/ + meltfptr[119] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V121*/ meltfptr[120] = 0 ; + /*clear*/ /*_.PROGN___V121*/ + meltfptr[120] = 0 ; } ; } ; - /*_.LET___V108*/ meltfptr[77] = /*_._IFELSE___V112*/ meltfptr[83];; + /*_.LET___V108*/ + meltfptr[77] = /*_._IFELSE___V112*/ meltfptr[83];; MELT_LOCATION("warmelt-normatch.melt:1730:/ clear"); - /*clear*/ /*_.TINARGS__V109*/ meltfptr[85] = 0 ; + /*clear*/ /*_.TINARGS__V109*/ + meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_#GOOD__L47*/ meltfnum[13] = 0 ; + /*clear*/ /*_#GOOD__L47*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V112*/ meltfptr[83] = 0 ; + /*clear*/ /*_._IFELSE___V112*/ + meltfptr[83] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1756:/ cppif.then"); @@ -38373,7 +41934,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V123*/ meltfptr[113] = (/*nil*/NULL);; @@ -38400,23 +41962,28 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1756; - /*_.MELT_ASSERT_FAILURE_FUN__V124*/ meltfptr[117] = 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__V124*/ + meltfptr[117] = 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___V123*/ meltfptr[113] = /*_.MELT_ASSERT_FAILURE_FUN__V124*/ meltfptr[117];; + /*_._IFELSE___V123*/ + meltfptr[113] = /*_.MELT_ASSERT_FAILURE_FUN__V124*/ meltfptr[117];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1756:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V124*/ meltfptr[117] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V124*/ + meltfptr[117] = 0 ; } ; } ; - /*_.IFCPP___V122*/ meltfptr[112] = /*_._IFELSE___V123*/ meltfptr[113];; + /*_.IFCPP___V122*/ + meltfptr[112] = /*_._IFELSE___V123*/ meltfptr[113];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1756:/ clear"); - /*clear*/ /*_._IFELSE___V123*/ meltfptr[113] = 0 ; + /*clear*/ /*_._IFELSE___V123*/ + meltfptr[113] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38427,17 +41994,22 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ MELT_LOCATION("warmelt-normatch.melt:1728:/ quasiblock"); - /*_.PROGN___V125*/ meltfptr[119] = /*_.IFCPP___V122*/ meltfptr[112];; + /*_.PROGN___V125*/ + meltfptr[119] = /*_.IFCPP___V122*/ meltfptr[112];; /*^compute*/ - /*_._IFELSE___V107*/ meltfptr[82] = /*_.PROGN___V125*/ meltfptr[119];; + /*_._IFELSE___V107*/ + meltfptr[82] = /*_.PROGN___V125*/ meltfptr[119];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1728:/ clear"); - /*clear*/ /*_.LET___V108*/ meltfptr[77] = 0 ; + /*clear*/ /*_.LET___V108*/ + meltfptr[77] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V122*/ meltfptr[112] = 0 ; + /*clear*/ /*_.IFCPP___V122*/ + meltfptr[112] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V125*/ meltfptr[119] = 0 ; + /*clear*/ /*_.PROGN___V125*/ + meltfptr[119] = 0 ; } ; } @@ -38451,10 +42023,12 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L55*/ meltfnum[50] = + /*_#IS_A__L55*/ + meltfnum[50] = melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V100*/ meltfptr[71]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[19])));; MELT_LOCATION("warmelt-normatch.melt:1758:/ cond"); - /*cond*/ if (/*_#IS_A__L55*/ meltfnum[50]) /*then*/ + /*cond*/ + if (/*_#IS_A__L55*/ meltfnum[50]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38462,7 +42036,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1759:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V100*/ meltfptr[71]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[19]))) ) /*then*/ @@ -38473,7 +42048,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TSTUFF__V100*/ meltfptr[71]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NTEST_ELSE"); - /*_.NTEST_ELSE__V127*/ meltfptr[85] = slot; + /*_.NTEST_ELSE__V127*/ + meltfptr[85] = slot; }; ; } @@ -38484,12 +42060,14 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ } ; MELT_LOCATION("warmelt-normatch.melt:1759:/ compute"); - /*_.TSTUFF__V100*/ meltfptr[71] = /*_.SETQ___V128*/ meltfptr[83] = /*_.NTEST_ELSE__V127*/ meltfptr[85];; + /*_.TSTUFF__V100*/ + meltfptr[71] = /*_.SETQ___V128*/ meltfptr[83] = /*_.NTEST_ELSE__V127*/ meltfptr[85];; MELT_LOCATION("warmelt-normatch.melt:1761:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V130*/ meltfptr[113] = + /*newclosure*/ /*_.LAMBDA___V130*/ + meltfptr[113] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_25*/ meltfrout->tabval[25])), (1)); ; /*^putclosedv*/ @@ -38498,27 +42076,36 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V130*/ meltfptr[113]))); ((meltclosure_ptr_t)/*_.LAMBDA___V130*/ meltfptr[113])->tabval[0] = (melt_ptr_t)(/*_.TSTUFF__V100*/ meltfptr[71]); ; - /*_.LAMBDA___V129*/ meltfptr[117] = /*_.LAMBDA___V130*/ meltfptr[113];; + /*_.LAMBDA___V129*/ + meltfptr[117] = /*_.LAMBDA___V130*/ meltfptr[113];; MELT_LOCATION("warmelt-normatch.melt:1760:/ compute"); - /*_.CURHDLER__V101*/ meltfptr[72] = /*_.SETQ___V131*/ meltfptr[77] = /*_.LAMBDA___V129*/ meltfptr[117];; + /*_.CURHDLER__V101*/ + meltfptr[72] = /*_.SETQ___V131*/ meltfptr[77] = /*_.LAMBDA___V129*/ meltfptr[117];; MELT_LOCATION("warmelt-normatch.melt:1758:/ quasiblock"); - /*_.PROGN___V132*/ meltfptr[112] = /*_.SETQ___V131*/ meltfptr[77];; + /*_.PROGN___V132*/ + meltfptr[112] = /*_.SETQ___V131*/ meltfptr[77];; /*^compute*/ - /*_._IFELSE___V126*/ meltfptr[120] = /*_.PROGN___V132*/ meltfptr[112];; + /*_._IFELSE___V126*/ + meltfptr[120] = /*_.PROGN___V132*/ meltfptr[112];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1758:/ clear"); - /*clear*/ /*_.NTEST_ELSE__V127*/ meltfptr[85] = 0 ; + /*clear*/ /*_.NTEST_ELSE__V127*/ + meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V128*/ meltfptr[83] = 0 ; + /*clear*/ /*_.SETQ___V128*/ + meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V129*/ meltfptr[117] = 0 ; + /*clear*/ /*_.LAMBDA___V129*/ + meltfptr[117] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V131*/ meltfptr[77] = 0 ; + /*clear*/ /*_.SETQ___V131*/ + meltfptr[77] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V132*/ meltfptr[112] = 0 ; + /*clear*/ /*_.PROGN___V132*/ + meltfptr[112] = 0 ; } ; } @@ -38536,7 +42123,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V134*/ meltfptr[85] = + /*newclosure*/ /*_.LAMBDA___V134*/ + meltfptr[85] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_35*/ meltfrout->tabval[35])), (2)); ; /*^putclosedv*/ @@ -38551,7 +42139,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V134*/ meltfptr[85]))); ((meltclosure_ptr_t)/*_.LAMBDA___V134*/ meltfptr[85])->tabval[1] = (melt_ptr_t)(/*_.NCX__V21*/ meltfptr[20]); ; - /*_.LAMBDA___V133*/ meltfptr[119] = /*_.LAMBDA___V134*/ meltfptr[85];; + /*_.LAMBDA___V133*/ + meltfptr[119] = /*_.LAMBDA___V134*/ meltfptr[85];; MELT_CHECK_SIGNAL(); ; @@ -38562,7 +42151,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V133*/ meltfptr[119]; - /*_.OUTLOCS__V135*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[26])), (melt_ptr_t)(/*_.OUTMATCHS__V55*/ meltfptr[54]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTLOCS__V135*/ + meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[26])), (melt_ptr_t)(/*_.OUTMATCHS__V55*/ meltfptr[54]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -38577,7 +42167,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ /*_.MULTIPLE_TO_LIST__V136*/ meltfptr[117] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_TO_LIST*/ meltfrout->tabval[36])), (melt_ptr_t)(/*_.OUTLOCS__V135*/ meltfptr[83]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; - /*_.MAKE_LIST__V137*/ meltfptr[77] = + /*_.MAKE_LIST__V137*/ + meltfptr[77] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[37]))));; MELT_LOCATION("warmelt-normatch.melt:1799:/ quasiblock"); @@ -38587,7 +42178,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ meltfrout->tabval[18])), (11), "CLASS_NORMTESTER_MATCHER"); - /*_.INST__V139*/ meltfptr[138] = + /*_.INST__V139*/ + meltfptr[138] = newobj; }; ; @@ -38645,7 +42237,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ melt_dbgtrace_written_object (/*_.INST__V139*/ meltfptr[138], "newly made instance"); ; - /*_.NEWTESTER__V138*/ meltfptr[112] = /*_.INST__V139*/ meltfptr[138];; + /*_.NEWTESTER__V138*/ + meltfptr[112] = /*_.INST__V139*/ meltfptr[138];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1815:/ cppif.then"); @@ -38666,7 +42259,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L56*/ meltfnum[49] = + /*_#MELT_NEED_DBG__L56*/ + meltfnum[49] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -38675,7 +42269,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1815:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L56*/ meltfnum[49]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L56*/ meltfnum[49]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38708,16 +42303,20 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ argtab[3].meltbp_cstring = "normpat_anymatchpat newtester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTESTER__V138*/ meltfptr[112]; - /*_.MELT_DEBUG_FUN__V141*/ meltfptr[140] = 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__V141*/ + meltfptr[140] = 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___V140*/ meltfptr[139] = /*_.MELT_DEBUG_FUN__V141*/ meltfptr[140];; + /*_._IF___V140*/ + meltfptr[139] = /*_.MELT_DEBUG_FUN__V141*/ meltfptr[140];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1815:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L57*/ meltfnum[51] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L57*/ + meltfnum[51] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V141*/ meltfptr[140] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V141*/ + meltfptr[140] = 0 ; } ; } @@ -38730,7 +42329,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1815:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -38739,9 +42339,11 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L56*/ meltfnum[49] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L56*/ + meltfnum[49] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V140*/ meltfptr[139] = 0 ; + /*clear*/ /*_._IF___V140*/ + meltfptr[139] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38771,11 +42373,13 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.REGISTER_NEW_NORMTESTER__V142*/ meltfptr[140] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_NEW_NORMTESTER*/ meltfrout->tabval[38])), (melt_ptr_t)(/*_.NEWTESTER__V138*/ meltfptr[112]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.REGISTER_NEW_NORMTESTER__V142*/ + meltfptr[140] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_NEW_NORMTESTER*/ meltfrout->tabval[38])), (melt_ptr_t)(/*_.NEWTESTER__V138*/ meltfptr[112]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normatch.melt:1817:/ compute"); - /*_.TESTER__V58*/ meltfptr[57] = /*_.SETQ___V143*/ meltfptr[139] = /*_.NEWTESTER__V138*/ meltfptr[112];; + /*_.TESTER__V58*/ + meltfptr[57] = /*_.SETQ___V143*/ meltfptr[139] = /*_.NEWTESTER__V138*/ meltfptr[112];; { MELT_LOCATION("warmelt-normatch.melt:1818:/ locexp"); @@ -38806,7 +42410,8 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ /*^compute*/ - /*_.LOOPSTUFF__V103*/ meltfptr[73] = /*reallynil*/ NULL ;; + /*_.LOOPSTUFF__V103*/ + meltfptr[73] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -38816,21 +42421,29 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ ; MELT_LOCATION("warmelt-normatch.melt:1769:/ clear"); - /*clear*/ /*_.LAMBDA___V133*/ meltfptr[119] = 0 ; + /*clear*/ /*_.LAMBDA___V133*/ + meltfptr[119] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTLOCS__V135*/ meltfptr[83] = 0 ; + /*clear*/ /*_.OUTLOCS__V135*/ + meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_TO_LIST__V136*/ meltfptr[117] = 0 ; + /*clear*/ /*_.MULTIPLE_TO_LIST__V136*/ + meltfptr[117] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V137*/ meltfptr[77] = 0 ; + /*clear*/ /*_.MAKE_LIST__V137*/ + meltfptr[77] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWTESTER__V138*/ meltfptr[112] = 0 ; + /*clear*/ /*_.NEWTESTER__V138*/ + meltfptr[112] = 0 ; /*^clear*/ - /*clear*/ /*_.REGISTER_NEW_NORMTESTER__V142*/ meltfptr[140] = 0 ; + /*clear*/ /*_.REGISTER_NEW_NORMTESTER__V142*/ + meltfptr[140] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V143*/ meltfptr[139] = 0 ; + /*clear*/ /*_.SETQ___V143*/ + meltfptr[139] = 0 ; /*^clear*/ - /*clear*/ /*_.CURHDLER__V144*/ meltfptr[143] = 0 ; + /*clear*/ /*_.CURHDLER__V144*/ + meltfptr[143] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1768:/ quasiblock"); @@ -38839,13 +42452,16 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ ; } ; - /*_._IFELSE___V107*/ meltfptr[82] = /*_._IFELSE___V126*/ meltfptr[120];; + /*_._IFELSE___V107*/ + meltfptr[82] = /*_._IFELSE___V126*/ meltfptr[120];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1728:/ clear"); - /*clear*/ /*_#IS_A__L55*/ meltfnum[50] = 0 ; + /*clear*/ /*_#IS_A__L55*/ + meltfnum[50] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V126*/ meltfptr[120] = 0 ; + /*clear*/ /*_._IFELSE___V126*/ + meltfptr[120] = 0 ; } ; } @@ -38856,39 +42472,52 @@ meltlabloop_LOOPSTUFF_4:;/*^loopbody*/ /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1724:/ clear"); - /*clear*/ /*_#IS_A__L44*/ meltfnum[27] = 0 ; + /*clear*/ /*_#IS_A__L44*/ + meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L45*/ meltfnum[35] = 0 ; + /*clear*/ /*_#_IF___L45*/ + meltfnum[35] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V107*/ meltfptr[82] = 0 ; + /*clear*/ /*_._IFELSE___V107*/ + meltfptr[82] = 0 ; } ; ; goto meltlabloop_LOOPSTUFF_4; meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ /*loopepilog*/ - /*_.FOREVER___V102*/ meltfptr[74] = /*_.LOOPSTUFF__V103*/ meltfptr[73];; + /*_.FOREVER___V102*/ + meltfptr[74] = /*_.LOOPSTUFF__V103*/ meltfptr[73];; } ; /*^compute*/ - /*_.LET___V99*/ meltfptr[61] = /*_.FOREVER___V102*/ meltfptr[74];; + /*_.LET___V99*/ + meltfptr[61] = /*_.FOREVER___V102*/ meltfptr[74];; MELT_LOCATION("warmelt-normatch.melt:1721:/ clear"); - /*clear*/ /*_.TSTUFF__V100*/ meltfptr[71] = 0 ; + /*clear*/ /*_.TSTUFF__V100*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.CURHDLER__V101*/ meltfptr[72] = 0 ; + /*clear*/ /*_.CURHDLER__V101*/ + meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V102*/ meltfptr[74] = 0 ; - /*_.LET___V97*/ meltfptr[91] = /*_.LET___V99*/ meltfptr[61];; + /*clear*/ /*_.FOREVER___V102*/ + meltfptr[74] = 0 ; + /*_.LET___V97*/ + meltfptr[91] = /*_.LET___V99*/ meltfptr[61];; MELT_LOCATION("warmelt-normatch.melt:1715:/ clear"); - /*clear*/ /*_#NBOUTARGS__L39*/ meltfnum[26] = 0 ; + /*clear*/ /*_#NBOUTARGS__L39*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L40*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L40*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#exeqI__L41*/ meltfnum[1] = 0 ; + /*clear*/ /*_#exeqI__L41*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V99*/ meltfptr[61] = 0 ; + /*clear*/ /*_.LET___V99*/ + meltfptr[61] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1826:/ cppif.then"); @@ -38909,7 +42538,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L58*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L58*/ + meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -38918,7 +42548,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1826:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L58*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L58*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38951,16 +42582,20 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_anymatchpat got tester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TESTER__V58*/ meltfptr[57]; - /*_.MELT_DEBUG_FUN__V146*/ meltfptr[83] = 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__V146*/ + meltfptr[83] = 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___V145*/ meltfptr[119] = /*_.MELT_DEBUG_FUN__V146*/ meltfptr[83];; + /*_._IF___V145*/ + meltfptr[119] = /*_.MELT_DEBUG_FUN__V146*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1826:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L59*/ meltfnum[51] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L59*/ + meltfnum[51] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V146*/ meltfptr[83] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V146*/ + meltfptr[83] = 0 ; } ; } @@ -38973,7 +42608,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1826:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -38982,9 +42618,11 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L58*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L58*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V145*/ meltfptr[119] = 0 ; + /*clear*/ /*_._IF___V145*/ + meltfptr[119] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39014,10 +42652,12 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L60*/ meltfnum[49] = + /*_#IS_A__L60*/ + meltfnum[49] = melt_is_instance_of((melt_ptr_t)(/*_.TESTER__V58*/ meltfptr[57]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ meltfrout->tabval[18])));; MELT_LOCATION("warmelt-normatch.melt:1827:/ cond"); - /*cond*/ if (/*_#IS_A__L60*/ meltfnum[49]) /*then*/ + /*cond*/ + if (/*_#IS_A__L60*/ meltfnum[49]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V148*/ meltfptr[77] = (/*nil*/NULL);; @@ -39044,25 +42684,31 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1827; - /*_.MELT_ASSERT_FAILURE_FUN__V149*/ meltfptr[112] = 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__V149*/ + meltfptr[112] = 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___V148*/ meltfptr[77] = /*_.MELT_ASSERT_FAILURE_FUN__V149*/ meltfptr[112];; + /*_._IFELSE___V148*/ + meltfptr[77] = /*_.MELT_ASSERT_FAILURE_FUN__V149*/ meltfptr[112];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1827:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V149*/ meltfptr[112] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V149*/ + meltfptr[112] = 0 ; } ; } ; - /*_.IFCPP___V147*/ meltfptr[117] = /*_._IFELSE___V148*/ meltfptr[77];; + /*_.IFCPP___V147*/ + meltfptr[117] = /*_._IFELSE___V148*/ meltfptr[77];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1827:/ clear"); - /*clear*/ /*_#IS_A__L60*/ meltfnum[49] = 0 ; + /*clear*/ /*_#IS_A__L60*/ + meltfnum[49] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V148*/ meltfptr[77] = 0 ; + /*clear*/ /*_._IFELSE___V148*/ + meltfptr[77] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39074,7 +42720,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTER__V58*/ meltfptr[57]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ meltfrout->tabval[18]))) ) /*then*/ @@ -39085,7 +42732,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TESTER__V58*/ meltfptr[57]) /*=obj*/; melt_object_get_field(slot,obj, 10, "NTMATCH_OUTLOCS"); - /*_.OUTLOCS__V150*/ meltfptr[140] = slot; + /*_.OUTLOCS__V150*/ + meltfptr[140] = slot; }; ; } @@ -39115,7 +42763,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L61*/ meltfnum[50] = + /*_#MELT_NEED_DBG__L61*/ + meltfnum[50] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -39124,7 +42773,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1830:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L61*/ meltfnum[50]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L61*/ meltfnum[50]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -39165,16 +42815,20 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ argtab[7].meltbp_cstring = " outmatchs="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OUTMATCHS__V55*/ meltfptr[54]; - /*_.MELT_DEBUG_FUN__V152*/ meltfptr[143] = 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__V152*/ + meltfptr[143] = 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___V151*/ meltfptr[139] = /*_.MELT_DEBUG_FUN__V152*/ meltfptr[143];; + /*_._IF___V151*/ + meltfptr[139] = /*_.MELT_DEBUG_FUN__V152*/ meltfptr[143];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1830:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L62*/ meltfnum[27] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L62*/ + meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V152*/ meltfptr[143] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V152*/ + meltfptr[143] = 0 ; } ; } @@ -39187,7 +42841,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1830:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -39196,9 +42851,11 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L61*/ meltfnum[50] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L61*/ + meltfnum[50] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V151*/ meltfptr[139] = 0 ; + /*clear*/ /*_._IF___V151*/ + meltfptr[139] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39256,7 +42913,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L64*/ meltfnum[26] = + /*_#MELT_NEED_DBG__L64*/ + meltfnum[26] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -39265,7 +42923,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1836:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L64*/ meltfnum[26]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L64*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -39298,16 +42957,20 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_anymatchpat curmatch in foreach"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURMATCH__V153*/ meltfptr[120]; - /*_.MELT_DEBUG_FUN__V155*/ meltfptr[71] = 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__V155*/ + meltfptr[71] = 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___V154*/ meltfptr[82] = /*_.MELT_DEBUG_FUN__V155*/ meltfptr[71];; + /*_._IF___V154*/ + meltfptr[82] = /*_.MELT_DEBUG_FUN__V155*/ meltfptr[71];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1836:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L65*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L65*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V155*/ meltfptr[71] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V155*/ + meltfptr[71] = 0 ; } ; } @@ -39320,7 +42983,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1836:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -39329,9 +42993,11 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L64*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L64*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V154*/ meltfptr[82] = 0 ; + /*clear*/ /*_._IF___V154*/ + meltfptr[82] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39354,10 +43020,12 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ MELT_LOCATION("warmelt-normatch.melt:1837:/ quasiblock"); - /*_.CLOCC__V156*/ meltfptr[72] = + /*_.CLOCC__V156*/ + meltfptr[72] = (melt_multiple_nth((melt_ptr_t)(/*_.OUTLOCS__V150*/ meltfptr[140]), (/*_#IXM__L63*/ meltfnum[35])));; /*^compute*/ - /*_.CUROUT__V157*/ meltfptr[74] = + /*_.CUROUT__V157*/ + meltfptr[74] = (melt_multiple_nth((melt_ptr_t)(/*_.OUTARGS__V18*/ meltfptr[17]), (/*_#IXM__L63*/ meltfnum[35])));; MELT_CHECK_SIGNAL(); @@ -39370,7 +43038,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[39])), (1), "CLASS_REFERENCE"); - /*_.INST__V159*/ meltfptr[83] = + /*_.INST__V159*/ + meltfptr[83] = newobj; }; ; @@ -39383,12 +43052,14 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V159*/ meltfptr[83], "newly made instance"); ; - /*_.TESTERCONT__V158*/ meltfptr[61] = /*_.INST__V159*/ meltfptr[83];; + /*_.TESTERCONT__V158*/ + meltfptr[61] = /*_.INST__V159*/ meltfptr[83];; MELT_LOCATION("warmelt-normatch.melt:1844:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V161*/ meltfptr[112] = + /*newclosure*/ /*_.LAMBDA___V161*/ + meltfptr[112] = (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*/ @@ -39397,7 +43068,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V161*/ meltfptr[112]))); ((meltclosure_ptr_t)/*_.LAMBDA___V161*/ meltfptr[112])->tabval[0] = (melt_ptr_t)(/*_.TESTERCONT__V158*/ meltfptr[61]); ; - /*_.SUBHDLER__V160*/ meltfptr[119] = /*_.LAMBDA___V161*/ meltfptr[112];; + /*_.SUBHDLER__V160*/ + meltfptr[119] = /*_.LAMBDA___V161*/ meltfptr[112];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1850:/ cppif.then"); @@ -39418,7 +43090,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L66*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L66*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -39427,7 +43100,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1850:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L66*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L66*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -39464,16 +43138,20 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ argtab[5].meltbp_cstring = " clocc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V156*/ meltfptr[72]; - /*_.MELT_DEBUG_FUN__V163*/ meltfptr[143] = 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__V163*/ + meltfptr[143] = 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___V162*/ meltfptr[77] = /*_.MELT_DEBUG_FUN__V163*/ meltfptr[143];; + /*_._IF___V162*/ + meltfptr[77] = /*_.MELT_DEBUG_FUN__V163*/ meltfptr[143];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1850:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L67*/ meltfnum[51] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L67*/ + meltfnum[51] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V163*/ meltfptr[143] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V163*/ + meltfptr[143] = 0 ; } ; } @@ -39486,7 +43164,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1850:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -39495,9 +43174,11 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L66*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L66*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V162*/ meltfptr[77] = 0 ; + /*clear*/ /*_._IF___V162*/ + meltfptr[77] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39542,7 +43223,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SUBHDLER__V160*/ meltfptr[119]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.NORMAL_PATTERN__V164*/ meltfptr[139] = meltgc_send((melt_ptr_t)(/*_.CUROUT__V157*/ meltfptr[74]), (melt_ptr_t)((/*!NORMAL_PATTERN*/ meltfrout->tabval[43])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PATTERN__V164*/ + meltfptr[139] = meltgc_send((melt_ptr_t)(/*_.CUROUT__V157*/ meltfptr[74]), (melt_ptr_t)((/*!NORMAL_PATTERN*/ meltfrout->tabval[43])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -39565,7 +43247,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L68*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L68*/ + meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -39574,7 +43257,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1853:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L68*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L68*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -39607,16 +43291,20 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_anymatchpat curout after normal_pattern"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURMATCH__V153*/ meltfptr[120]; - /*_.MELT_DEBUG_FUN__V166*/ meltfptr[82] = 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__V166*/ + meltfptr[82] = 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___V165*/ meltfptr[71] = /*_.MELT_DEBUG_FUN__V166*/ meltfptr[82];; + /*_._IF___V165*/ + meltfptr[71] = /*_.MELT_DEBUG_FUN__V166*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1853:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L69*/ meltfnum[49] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L69*/ + meltfnum[49] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V166*/ meltfptr[82] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V166*/ + meltfptr[82] = 0 ; } ; } @@ -39629,7 +43317,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1853:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -39638,9 +43327,11 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L68*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L68*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V165*/ meltfptr[71] = 0 ; + /*clear*/ /*_._IF___V165*/ + meltfptr[71] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39662,29 +43353,37 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ ; MELT_LOCATION("warmelt-normatch.melt:1837:/ clear"); - /*clear*/ /*_.CLOCC__V156*/ meltfptr[72] = 0 ; + /*clear*/ /*_.CLOCC__V156*/ + meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.CUROUT__V157*/ meltfptr[74] = 0 ; + /*clear*/ /*_.CUROUT__V157*/ + meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTERCONT__V158*/ meltfptr[61] = 0 ; + /*clear*/ /*_.TESTERCONT__V158*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.SUBHDLER__V160*/ meltfptr[119] = 0 ; + /*clear*/ /*_.SUBHDLER__V160*/ + meltfptr[119] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PATTERN__V164*/ meltfptr[139] = 0 ; + /*clear*/ /*_.NORMAL_PATTERN__V164*/ + meltfptr[139] = 0 ; if (/*_#IXM__L63*/ meltfnum[35]<0) break; } /* end foreach_in_multiple meltcit3__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normatch.melt:1832:/ clear"); - /*clear*/ /*_.CURMATCH__V153*/ meltfptr[120] = 0 ; + /*clear*/ /*_.CURMATCH__V153*/ + meltfptr[120] = 0 ; /*^clear*/ - /*clear*/ /*_#IXM__L63*/ meltfnum[35] = 0 ; + /*clear*/ /*_#IXM__L63*/ + meltfnum[35] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-normatch.melt:1829:/ clear"); - /*clear*/ /*_.OUTLOCS__V150*/ meltfptr[140] = 0 ; + /*clear*/ /*_.OUTLOCS__V150*/ + meltfptr[140] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normatch.melt:1857:/ cppif.then"); @@ -39705,7 +43404,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L70*/ meltfnum[27] = + /*_#MELT_NEED_DBG__L70*/ + meltfnum[27] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -39714,7 +43414,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1857:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L70*/ meltfnum[27]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L70*/ meltfnum[27]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -39747,16 +43448,20 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_anymatchpat outbinds"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBINDS__V57*/ meltfptr[56]; - /*_.MELT_DEBUG_FUN__V168*/ meltfptr[77] = 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__V168*/ + meltfptr[77] = 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___V167*/ meltfptr[143] = /*_.MELT_DEBUG_FUN__V168*/ meltfptr[77];; + /*_._IF___V167*/ + meltfptr[143] = /*_.MELT_DEBUG_FUN__V168*/ meltfptr[77];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1857:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L71*/ meltfnum[50] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L71*/ + meltfnum[50] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V168*/ meltfptr[77] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V168*/ + meltfptr[77] = 0 ; } ; } @@ -39769,7 +43474,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1857:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -39778,9 +43484,11 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L70*/ meltfnum[27] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L70*/ + meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V167*/ meltfptr[143] = 0 ; + /*clear*/ /*_._IF___V167*/ + meltfptr[143] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39802,48 +43510,65 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ ; MELT_LOCATION("warmelt-normatch.melt:1652:/ clear"); - /*clear*/ /*_.INMATCHS__V54*/ meltfptr[49] = 0 ; + /*clear*/ /*_.INMATCHS__V54*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTMATCHS__V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.OUTMATCHS__V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.MATBIND__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MATBIND__V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTBINDS__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.OUTBINDS__V57*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTER__V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.TESTER__V58*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V59*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L19*/ meltfnum[0] = 0 ; + /*clear*/ /*_#exeq__L19*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V97*/ meltfptr[91] = 0 ; + /*clear*/ /*_.LET___V97*/ + meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V147*/ meltfptr[117] = 0 ; + /*clear*/ /*_.IFCPP___V147*/ + meltfptr[117] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1647:/ clear"); - /*clear*/ /*_._IF___V52*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IF___V52*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDINS__V49*/ meltfptr[36] = 0 ; + /*clear*/ /*_.BINDINS__V49*/ + meltfptr[36] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1626:/ clear"); - /*clear*/ /*_.LET___V34*/ meltfptr[26] = 0 ; + /*clear*/ /*_.LET___V34*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MATVAR__V42*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MATVAR__V42*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.FIND_ENV__V43*/ meltfptr[35] = 0 ; + /*clear*/ /*_.FIND_ENV__V43*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.MATNDATA__V44*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MATNDATA__V44*/ + meltfptr[30] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_#exeq__L72*/ meltfnum[12] = + /*_#exeq__L72*/ + meltfnum[12] = ((/*_.ENV__V19*/ meltfptr[18]) != (/*_.OLDENV__V20*/ meltfptr[19]));; MELT_LOCATION("warmelt-normatch.melt:1861:/ cond"); - /*cond*/ if (/*_#exeq__L72*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#exeq__L72*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -39854,7 +43579,8 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1862:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -39888,44 +43614,61 @@ meltlabexit_LOOPSTUFF_4:;/*^loopepilog*/ ; MELT_LOCATION("warmelt-normatch.melt:1608:/ clear"); - /*clear*/ /*_.SLOC__V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.SLOC__V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MAT__V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_.MAT__V15*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MATOPBIND__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MATOPBIND__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.INARGS__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.INARGS__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTARGS__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.OUTARGS__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.ENV__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.ENV__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.OLDENV__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.OLDENV__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.NCX__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.NCX__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDLIST__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.BINDLIST__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.STUFFMAP__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.STUFFMAP__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.MATCHCTYPE__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MATCHCTYPE__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTLIST__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.TESTLIST__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.IFCPP___V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V29*/ meltfptr[27] = 0 ; + /*clear*/ /*_.IFCPP___V29*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L72*/ meltfnum[12] = 0 ; + /*clear*/ /*_#exeq__L72*/ + meltfnum[12] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1602:/ 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 ; } ; @@ -40007,7 +43750,8 @@ meltrout_37_WARMELTmiNORMATCH_LAMBDA_cl13(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_37_WARMELTmiNORMATCH_LAMBDA_cl13 fromline 1756 */ - /* classy proc frame meltrout_37_WARMELTmiNORMATCH_LAMBDA_cl13 */ MeltFrame_meltrout_37_WARMELTmiNORMATCH_LAMBDA_cl13 + /* classy proc frame meltrout_37_WARMELTmiNORMATCH_LAMBDA_cl13 */ + MeltFrame_meltrout_37_WARMELTmiNORMATCH_LAMBDA_cl13 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_37_WARMELTmiNORMATCH_LAMBDA_cl13 fromline 1785*/ #if ENABLE_CHECKING @@ -40020,7 +43764,8 @@ meltrout_37_WARMELTmiNORMATCH_LAMBDA_cl13(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("LAMBDA_cl13", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -40030,7 +43775,8 @@ meltrout_37_WARMELTmiNORMATCH_LAMBDA_cl13(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1748:/ getarg"); - /*_.TESTER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.TESTER__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -40055,7 +43801,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1750:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~TSTUFF*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[0]))) ) /*then*/ @@ -40102,7 +43849,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)) @@ -40111,7 +43859,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1751:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -40144,16 +43893,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_anymatchpat lambda updatelse of tstuff"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*~TSTUFF*/ meltfclos->tabval[0]); - /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 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__V4*/ + meltfptr[3] = 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___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; + /*_._IF___V3*/ + meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1751:/ 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 ; } ; } @@ -40166,7 +43919,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1751:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -40175,9 +43929,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*/ @@ -40198,7 +43954,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normatch.melt:1752:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTER__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[0]))) ) /*then*/ @@ -40209,7 +43966,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TESTER__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "NTEST_COMEFROM"); - /*_.NTEST_COMEFROM__V5*/ meltfptr[3] = slot; + /*_.NTEST_COMEFROM__V5*/ + meltfptr[3] = slot; }; ; } @@ -40231,7 +43989,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1748:/ clear"); - /*clear*/ /*_.NTEST_COMEFROM__V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.NTEST_COMEFROM__V5*/ + meltfptr[3] = 0 ; } ; @@ -40313,7 +44072,8 @@ meltrout_38_WARMELTmiNORMATCH_LAMBDA_cl14(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_38_WARMELTmiNORMATCH_LAMBDA_cl14 fromline 1756 */ - /* classy proc frame meltrout_38_WARMELTmiNORMATCH_LAMBDA_cl14 */ MeltFrame_meltrout_38_WARMELTmiNORMATCH_LAMBDA_cl14 + /* classy proc frame meltrout_38_WARMELTmiNORMATCH_LAMBDA_cl14 */ + MeltFrame_meltrout_38_WARMELTmiNORMATCH_LAMBDA_cl14 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_38_WARMELTmiNORMATCH_LAMBDA_cl14 fromline 1785*/ #if ENABLE_CHECKING @@ -40326,7 +44086,8 @@ meltrout_38_WARMELTmiNORMATCH_LAMBDA_cl14(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("LAMBDA_cl14", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -40336,7 +44097,8 @@ meltrout_38_WARMELTmiNORMATCH_LAMBDA_cl14(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1761:/ getarg"); - /*_.TESTER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.TESTER__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -40350,7 +44112,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1762:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~TSTUFF*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[0]))) ) /*then*/ @@ -40408,7 +44171,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)) @@ -40417,7 +44181,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1764:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -40450,16 +44215,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_anymatchpat updatelse tsuff"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*~TSTUFF*/ meltfclos->tabval[0]); - /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 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__V4*/ + meltfptr[3] = 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___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; + /*_._IF___V3*/ + meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1764:/ 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 ; } ; } @@ -40472,7 +44241,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1764:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -40481,9 +44251,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*/ @@ -40504,7 +44276,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normatch.melt:1765:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTER__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[0]))) ) /*then*/ @@ -40515,7 +44288,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TESTER__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "NTEST_COMEFROM"); - /*_.NTEST_COMEFROM__V5*/ meltfptr[3] = slot; + /*_.NTEST_COMEFROM__V5*/ + meltfptr[3] = slot; }; ; } @@ -40537,7 +44311,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1761:/ clear"); - /*clear*/ /*_.NTEST_COMEFROM__V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.NTEST_COMEFROM__V5*/ + meltfptr[3] = 0 ; } ; @@ -40619,7 +44394,8 @@ meltrout_39_WARMELTmiNORMATCH_LAMBDA_cl15(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_39_WARMELTmiNORMATCH_LAMBDA_cl15 fromline 1756 */ - /* classy proc frame meltrout_39_WARMELTmiNORMATCH_LAMBDA_cl15 */ MeltFrame_meltrout_39_WARMELTmiNORMATCH_LAMBDA_cl15 + /* classy proc frame meltrout_39_WARMELTmiNORMATCH_LAMBDA_cl15 */ + MeltFrame_meltrout_39_WARMELTmiNORMATCH_LAMBDA_cl15 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_39_WARMELTmiNORMATCH_LAMBDA_cl15 fromline 1785*/ #if ENABLE_CHECKING @@ -40632,7 +44408,8 @@ meltrout_39_WARMELTmiNORMATCH_LAMBDA_cl15(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("LAMBDA_cl15", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -40642,12 +44419,14 @@ meltrout_39_WARMELTmiNORMATCH_LAMBDA_cl15(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1773:/ getarg"); - /*_.CUROUTMATCH__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CUROUTMATCH__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: @@ -40677,7 +44456,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)) @@ -40686,7 +44466,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1774:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -40719,16 +44500,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_anymatchpat curoutmatch"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUROUTMATCH__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-normatch.melt:1774:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ + meltfptr[3] = 0 ; } ; } @@ -40741,7 +44526,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1774:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -40750,9 +44536,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_._IF___V3*/ + meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40782,10 +44570,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[2] = + /*_#IS_A__L4*/ + meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.CUROUTMATCH__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:1775:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[2] = (/*nil*/NULL);; @@ -40812,25 +44602,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1775; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ meltfptr[2] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ + meltfptr[2] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1775:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ + meltfptr[6] = 0 ; } ; } ; - /*_.IFCPP___V5*/ meltfptr[3] = /*_._IFELSE___V6*/ meltfptr[2];; + /*_.IFCPP___V5*/ + meltfptr[3] = /*_._IFELSE___V6*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1775:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ meltfptr[2] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ + meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40842,7 +44638,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTMATCH__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[4]))) ) /*then*/ @@ -40853,7 +44650,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTMATCH__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V9*/ meltfptr[2] = slot; + /*_.BINDER__V9*/ + meltfptr[2] = slot; }; ; } @@ -40873,7 +44671,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1777:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTMATCH__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[1]))) ) /*then*/ @@ -40884,7 +44683,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTMATCH__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.CURTYP__V11*/ meltfptr[10] = slot; + /*_.CURTYP__V11*/ + meltfptr[10] = slot; }; ; } @@ -40905,7 +44705,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[5])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V13*/ meltfptr[12] = + /*_.INST__V13*/ + meltfptr[12] = newobj; }; ; @@ -40933,7 +44734,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V13*/ meltfptr[12], "newly made instance"); ; - /*_.CBIND__V12*/ meltfptr[11] = /*_.INST__V13*/ meltfptr[12];; + /*_.CBIND__V12*/ + meltfptr[11] = /*_.INST__V13*/ meltfptr[12];; MELT_CHECK_SIGNAL(); ; @@ -40945,7 +44747,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[6])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V15*/ meltfptr[14] = + /*_.INST__V15*/ + meltfptr[14] = newobj; }; ; @@ -40973,9 +44776,11 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V15*/ meltfptr[14], "newly made instance"); ; - /*_.CLOCC__V14*/ meltfptr[13] = /*_.INST__V15*/ meltfptr[14];; + /*_.CLOCC__V14*/ + meltfptr[13] = /*_.INST__V15*/ meltfptr[14];; MELT_LOCATION("warmelt-normatch.melt:1794:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~NCX*/ meltfclos->tabval[1])), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[7]))) ) /*then*/ @@ -40986,7 +44791,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~NCX*/ meltfclos->tabval[1])) /*=obj*/; melt_object_get_field(slot,obj, 7, "NCTX_SYMBCACHEMAP"); - /*_.NCTX_SYMBCACHEMAP__V16*/ meltfptr[15] = slot; + /*_.NCTX_SYMBCACHEMAP__V16*/ + meltfptr[15] = slot; }; ; } @@ -41024,7 +44830,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -41033,7 +44840,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1795:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41066,16 +44874,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_anymatchpat clocc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V14*/ meltfptr[13]; - /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 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__V18*/ + meltfptr[17] = 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___V17*/ meltfptr[16] = /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17];; + /*_._IF___V17*/ + meltfptr[16] = /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1795:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V18*/ + meltfptr[17] = 0 ; } ; } @@ -41088,7 +44900,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1795:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -41097,9 +44910,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IF___V17*/ + meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41119,27 +44934,35 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V8*/ meltfptr[6] = /*_.CLOCC__V14*/ meltfptr[13];; + /*_.LET___V8*/ + meltfptr[6] = /*_.CLOCC__V14*/ meltfptr[13];; MELT_LOCATION("warmelt-normatch.melt:1776:/ clear"); - /*clear*/ /*_.BINDER__V9*/ meltfptr[2] = 0 ; + /*clear*/ /*_.BINDER__V9*/ + meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.CSYM__V10*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.CURTYP__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.CURTYP__V11*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.CBIND__V12*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.CLOCC__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.NCTX_SYMBCACHEMAP__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.NCTX_SYMBCACHEMAP__V16*/ + meltfptr[15] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1773:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; { MELT_LOCATION("warmelt-normatch.melt:1773:/ locexp"); @@ -41154,13 +44977,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.IFCPP___V5*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.LET___V8*/ + meltfptr[6] = 0 ; } ; @@ -41242,7 +45068,8 @@ meltrout_40_WARMELTmiNORMATCH_LAMBDA_cl16(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_40_WARMELTmiNORMATCH_LAMBDA_cl16 fromline 1756 */ - /* classy proc frame meltrout_40_WARMELTmiNORMATCH_LAMBDA_cl16 */ MeltFrame_meltrout_40_WARMELTmiNORMATCH_LAMBDA_cl16 + /* classy proc frame meltrout_40_WARMELTmiNORMATCH_LAMBDA_cl16 */ + MeltFrame_meltrout_40_WARMELTmiNORMATCH_LAMBDA_cl16 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_40_WARMELTmiNORMATCH_LAMBDA_cl16 fromline 1785*/ #if ENABLE_CHECKING @@ -41255,7 +45082,8 @@ meltrout_40_WARMELTmiNORMATCH_LAMBDA_cl16(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("LAMBDA_cl16", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -41265,7 +45093,8 @@ meltrout_40_WARMELTmiNORMATCH_LAMBDA_cl16(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1844:/ getarg"); - /*_.NEWTESTER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NEWTESTER__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -41295,7 +45124,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)) @@ -41304,7 +45134,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1845:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41337,16 +45168,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_anymatchpat subhdler newtester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTESTER__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-normatch.melt:1845:/ 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 ; } ; } @@ -41359,7 +45194,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1845:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -41368,9 +45204,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*/ @@ -41411,7 +45249,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~TESTERCONT*/ meltfclos->tabval[0]); - /*_.SET_NEW_TESTER_LAST_THEN__V5*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.NEWTESTER__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SET_NEW_TESTER_LAST_THEN__V5*/ + meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!SET_NEW_TESTER_LAST_THEN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.NEWTESTER__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -41420,7 +45259,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1844:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.SET_NEW_TESTER_LAST_THEN__V5*/ meltfptr[3];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.SET_NEW_TESTER_LAST_THEN__V5*/ meltfptr[3];; { MELT_LOCATION("warmelt-normatch.melt:1844:/ locexp"); @@ -41435,11 +45275,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.SET_NEW_TESTER_LAST_THEN__V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.SET_NEW_TESTER_LAST_THEN__V5*/ + meltfptr[3] = 0 ; } ; @@ -41521,7 +45363,8 @@ meltrout_41_WARMELTmiNORMATCH_NORMPAT_CONSTPAT(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_41_WARMELTmiNORMATCH_NORMPAT_CONSTPAT fromline 1756 */ - /* classy proc frame meltrout_41_WARMELTmiNORMATCH_NORMPAT_CONSTPAT */ MeltFrame_meltrout_41_WARMELTmiNORMATCH_NORMPAT_CONSTPAT + /* classy proc frame meltrout_41_WARMELTmiNORMATCH_NORMPAT_CONSTPAT */ + MeltFrame_meltrout_41_WARMELTmiNORMATCH_NORMPAT_CONSTPAT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_41_WARMELTmiNORMATCH_NORMPAT_CONSTPAT fromline 1785*/ #if ENABLE_CHECKING @@ -41534,7 +45377,8 @@ meltrout_41_WARMELTmiNORMATCH_NORMPAT_CONSTPAT(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("NORMPAT_CONSTPAT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -41544,26 +45388,30 @@ meltrout_41_WARMELTmiNORMATCH_NORMPAT_CONSTPAT(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1870:/ 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; - /*_.NMATCH__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NMATCH__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.HDLER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.HDLER__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.HDLER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PCN__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PCN__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4])) != NULL); ; @@ -41595,7 +45443,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)) @@ -41604,7 +45453,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1871:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41645,16 +45495,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " pcn="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.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_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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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-normatch.melt:1871:/ 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 ; } ; } @@ -41667,7 +45521,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1871:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -41676,9 +45531,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*/ @@ -41708,10 +45565,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:1872:/ 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);; @@ -41738,25 +45597,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1872; - /*_.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-normatch.melt:1872:/ 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-normatch.melt:1872:/ 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*/ @@ -41774,10 +45639,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_CONSTANT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normatch.melt:1873:/ 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);; @@ -41804,25 +45671,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1873; - /*_.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-normatch.melt:1873:/ 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-normatch.melt:1873:/ 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*/ @@ -41834,7 +45707,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1875:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -41845,7 +45719,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__V14*/ meltfptr[12] = slot; + /*_.SLOC__V14*/ + meltfptr[12] = slot; }; ; } @@ -41856,7 +45731,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1876:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_CONSTANT*/ meltfrout->tabval[3]))) ) /*then*/ @@ -41867,7 +45743,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, "SPAT_CONSTX"); - /*_.SCONST__V15*/ meltfptr[5] = slot; + /*_.SCONST__V15*/ + meltfptr[5] = slot; }; ; } @@ -41878,7 +45755,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1877:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -41889,7 +45767,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 7, "PCTN_STUFFMAP"); - /*_.STUFFMAP__V16*/ meltfptr[15] = slot; + /*_.STUFFMAP__V16*/ + meltfptr[15] = slot; }; ; } @@ -41900,7 +45779,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1878:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -41911,7 +45791,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 8, "PCTN_PVARLOCMAP"); - /*_.PVARLOCMAP__V17*/ meltfptr[16] = slot; + /*_.PVARLOCMAP__V17*/ + meltfptr[16] = slot; }; ; } @@ -41922,7 +45803,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1879:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -41933,7 +45815,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 1, "PCTN_SRC"); - /*_.PCTN_SRC__V18*/ meltfptr[17] = slot; + /*_.PCTN_SRC__V18*/ + meltfptr[17] = slot; }; ; } @@ -41944,7 +45827,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1879:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCTN_SRC__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -41955,7 +45839,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCTN_SRC__V18*/ meltfptr[17]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.PSLOC__V19*/ meltfptr[18] = slot; + /*_.PSLOC__V19*/ + meltfptr[18] = slot; }; ; } @@ -41966,11 +45851,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.TSTUFF__V20*/ meltfptr[19] = + /*_.TSTUFF__V20*/ + meltfptr[19] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STUFFMAP__V16*/ meltfptr[15]), (meltobject_ptr_t)(/*_.NMATCH__V3*/ meltfptr[2]));; MELT_LOCATION("warmelt-normatch.melt:1881:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -41981,7 +45868,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 2, "PCTN_ENV"); - /*_.ENV__V21*/ meltfptr[20] = slot; + /*_.ENV__V21*/ + meltfptr[20] = slot; }; ; } @@ -41992,7 +45880,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1882:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -42003,7 +45892,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 0, "PCTN_NORMCTXT"); - /*_.NCX__V22*/ meltfptr[21] = slot; + /*_.NCX__V22*/ + meltfptr[21] = slot; }; ; } @@ -42014,7 +45904,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1883:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -42025,7 +45916,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 9, "PCTN_TESTS"); - /*_.TESTLIST__V23*/ meltfptr[22] = slot; + /*_.TESTLIST__V23*/ + meltfptr[22] = slot; }; ; } @@ -42036,7 +45928,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normatch.melt:1884:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_PATTERN_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ @@ -42047,7 +45940,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PCN__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 4, "PCTN_MAPATCST"); - /*_.MAPCST__V24*/ meltfptr[23] = slot; + /*_.MAPCST__V24*/ + meltfptr[23] = slot; }; ; } @@ -42077,7 +45971,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -42086,7 +45981,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1887:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42119,16 +46015,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_constpat tstuff"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TSTUFF__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 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__V26*/ + meltfptr[25] = 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___V25*/ meltfptr[24] = /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];; + /*_._IF___V25*/ + meltfptr[24] = /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1887:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V26*/ + meltfptr[25] = 0 ; } ; } @@ -42141,7 +46041,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1887:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -42150,9 +46051,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_._IF___V25*/ + meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42175,17 +46078,21 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1888:/ quasiblock"); - /*_.TESTER__V27*/ meltfptr[25] = (/*nil*/NULL);; + /*_.TESTER__V27*/ + meltfptr[25] = (/*nil*/NULL);; /*^compute*/ - /*_.CURHDLER__V28*/ meltfptr[24] = /*_.HDLER__V4*/ meltfptr[3];; + /*_.CURHDLER__V28*/ + meltfptr[24] = /*_.HDLER__V4*/ meltfptr[3];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_OBJECT__L7*/ meltfnum[0] = + /*_#IS_OBJECT__L7*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.SCONST__V15*/ meltfptr[5])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-normatch.melt:1891:/ cond"); - /*cond*/ if (/*_#IS_OBJECT__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_OBJECT__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42196,11 +46103,13 @@ meltlab_endgetargs: /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MAPCST__V24*/ meltfptr[23]), (meltobject_ptr_t)(/*_.SCONST__V15*/ meltfptr[5]));; /*^compute*/ - /*_.NCONST__V29*/ meltfptr[28] = /*_.MAPOBJECT_GET__V30*/ meltfptr[29];; + /*_.NCONST__V29*/ + meltfptr[28] = /*_.MAPOBJECT_GET__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1891:/ clear"); - /*clear*/ /*_.MAPOBJECT_GET__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MAPOBJECT_GET__V30*/ + meltfptr[29] = 0 ; } ; } @@ -42230,7 +46139,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)) @@ -42239,7 +46149,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1893:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42272,16 +46183,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_constpat nconst"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCONST__V29*/ meltfptr[28]; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V31*/ meltfptr[29] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; + /*_._IF___V31*/ + meltfptr[29] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1893:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ + meltfptr[31] = 0 ; } ; } @@ -42294,7 +46209,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1893:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -42303,9 +46219,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V31*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IF___V31*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42357,7 +46275,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -42366,7 +46285,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1896:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42399,16 +46319,20 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ argtab[3].meltbp_cstring = "normpat_constpat tstuff"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TSTUFF__V20*/ meltfptr[19]; - /*_.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[34] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];; + /*_._IF___V35*/ + meltfptr[34] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1896:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ + meltfptr[35] = 0 ; } ; } @@ -42421,7 +46345,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1896:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -42430,9 +46355,11 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IF___V35*/ + meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42456,7 +46383,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1898:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NORMTESTER_SAME*/ meltfrout->tabval[5]))) ) /*then*/ @@ -42467,7 +46395,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TSTUFF__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NTSAME_IDENTICAL"); - /*_.NTSAME_IDENTICAL__V37*/ meltfptr[35] = slot; + /*_.NTSAME_IDENTICAL__V37*/ + meltfptr[35] = slot; }; ; } @@ -42478,10 +46407,12 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ } ; /*^compute*/ - /*_#eqeq__L12*/ meltfnum[1] = + /*_#eqeq__L12*/ + meltfnum[1] = ((/*_.NTSAME_IDENTICAL__V37*/ meltfptr[35]) == (/*_.NCONST__V29*/ meltfptr[28]));; MELT_LOCATION("warmelt-normatch.melt:1898:/ cond"); - /*cond*/ if (/*_#eqeq__L12*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#eqeq__L12*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42489,12 +46420,14 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1899:/ compute"); - /*_.TESTER__V27*/ meltfptr[25] = /*_.SETQ___V39*/ meltfptr[38] = /*_.TSTUFF__V20*/ meltfptr[19];; + /*_.TESTER__V27*/ + meltfptr[25] = /*_.SETQ___V39*/ meltfptr[38] = /*_.TSTUFF__V20*/ meltfptr[19];; MELT_LOCATION("warmelt-normatch.melt:1900:/ quasiblock"); /*^compute*/ - /*_.LOOPSTUFF__V34*/ meltfptr[29] = /*reallynil*/ NULL ;; + /*_.LOOPSTUFF__V34*/ + meltfptr[29] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -42508,7 +46441,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_.SETQ___V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.SETQ___V39*/ + meltfptr[38] = 0 ; } ; } @@ -42522,10 +46456,12 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L13*/ meltfnum[8] = + /*_#IS_A__L13*/ + meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normatch.melt:1901:/ cond"); - /*cond*/ if (/*_#IS_A__L13*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#IS_A__L13*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42533,7 +46469,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1902:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TSTUFF__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[6]))) ) /*then*/ @@ -42544,7 +46481,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TSTUFF__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NTEST_ELSE"); - /*_.NTEST_ELSE__V41*/ meltfptr[40] = slot; + /*_.NTEST_ELSE__V41*/ + meltfptr[40] = slot; }; ; } @@ -42555,12 +46493,14 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ } ; MELT_LOCATION("warmelt-normatch.melt:1902:/ compute"); - /*_.TSTUFF__V20*/ meltfptr[19] = /*_.SETQ___V42*/ meltfptr[41] = /*_.NTEST_ELSE__V41*/ meltfptr[40];; + /*_.TSTUFF__V20*/ + meltfptr[19] = /*_.SETQ___V42*/ meltfptr[41] = /*_.NTEST_ELSE__V41*/ meltfptr[40];; MELT_LOCATION("warmelt-normatch.melt:1904:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V44*/ meltfptr[43] = + /*newclosure*/ /*_.LAMBDA___V44*/ + meltfptr[43] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ meltfrout->tabval[9])), (1)); ; /*^putclosedv*/ @@ -42569,27 +46509,36 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V44*/ meltfptr[43]))); ((meltclosure_ptr_t)/*_.LAMBDA___V44*/ meltfptr[43])->tabval[0] = (melt_ptr_t)(/*_.TSTUFF__V20*/ meltfptr[19]); ; - /*_.LAMBDA___V43*/ meltfptr[42] = /*_.LAMBDA___V44*/ meltfptr[43];; + /*_.LAMBDA___V43*/ + meltfptr[42] = /*_.LAMBDA___V44*/ meltfptr[43];; MELT_LOCATION("warmelt-normatch.melt:1903:/ compute"); - /*_.CURHDLER__V28*/ meltfptr[24] = /*_.SETQ___V45*/ meltfptr[44] = /*_.LAMBDA___V43*/ meltfptr[42];; + /*_.CURHDLER__V28*/ + meltfptr[24] = /*_.SETQ___V45*/ meltfptr[44] = /*_.LAMBDA___V43*/ meltfptr[42];; MELT_LOCATION("warmelt-normatch.melt:1901:/ quasiblock"); - /*_.PROGN___V46*/ meltfptr[45] = /*_.SETQ___V45*/ meltfptr[44];; + /*_.PROGN___V46*/ + meltfptr[45] = /*_.SETQ___V45*/ meltfptr[44];; /*^compute*/ - /*_._IFELSE___V40*/ meltfptr[38] = /*_.PROGN___V46*/ meltfptr[45];; + /*_._IFELSE___V40*/ + meltfptr[38] = /*_.PROGN___V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1901:/ clear"); - /*clear*/ /*_.NTEST_ELSE__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.NTEST_ELSE__V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.SETQ___V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.LAMBDA___V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.SETQ___V45*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.PROGN___V46*/ + meltfptr[45] = 0 ; } ; } @@ -42606,7 +46555,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_.MAKE_LIST__V47*/ meltfptr[40] = + /*_.MAKE_LIST__V47*/ + meltfptr[40] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[10]))));; MELT_LOCATION("warmelt-normatch.melt:1912:/ quasiblock"); @@ -42616,7 +46566,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMTESTER_SAME*/ meltfrout->tabval[5])), (8), "CLASS_NORMTESTER_SAME"); - /*_.INST__V49*/ meltfptr[42] = + /*_.INST__V49*/ + meltfptr[42] = newobj; }; ; @@ -42659,7 +46610,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ melt_dbgtrace_written_object (/*_.INST__V49*/ meltfptr[42], "newly made instance"); ; - /*_.NEWTESTER__V48*/ meltfptr[41] = /*_.INST__V49*/ meltfptr[42];; + /*_.NEWTESTER__V48*/ + meltfptr[41] = /*_.INST__V49*/ meltfptr[42];; { MELT_LOCATION("warmelt-normatch.melt:1921:/ locexp"); @@ -42681,7 +46633,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.PCN__V5*/ meltfptr[4]; - /*_.REGISTER_NEW_NORMTESTER__V50*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_NEW_NORMTESTER*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.NEWTESTER__V48*/ meltfptr[41]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.REGISTER_NEW_NORMTESTER__V50*/ + meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_NEW_NORMTESTER*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.NEWTESTER__V48*/ meltfptr[41]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -42704,7 +46657,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L14*/ + meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -42713,7 +46667,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1923:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42746,16 +46701,20 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ argtab[3].meltbp_cstring = "normpat_constpat newtester same"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTESTER__V48*/ meltfptr[41]; - /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51] = 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[51] = 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[45] = /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51];; + /*_._IF___V51*/ + meltfptr[45] = /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1923:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V52*/ + meltfptr[51] = 0 ; } ; } @@ -42768,7 +46727,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ { MELT_LOCATION("warmelt-normatch.melt:1923:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -42777,9 +46737,11 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V51*/ meltfptr[45] = 0 ; + /*clear*/ /*_._IF___V51*/ + meltfptr[45] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42800,7 +46762,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normatch.melt:1924:/ compute"); - /*_.TESTER__V27*/ meltfptr[25] = /*_.SETQ___V53*/ meltfptr[51] = /*_.NEWTESTER__V48*/ meltfptr[41];; + /*_.TESTER__V27*/ + meltfptr[25] = /*_.SETQ___V53*/ meltfptr[51] = /*_.NEWTESTER__V48*/ meltfptr[41];; { MELT_LOCATION("warmelt-normatch.melt:1925:/ locexp"); @@ -42820,7 +46783,8 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ /*^compute*/ - /*_.LOOPSTUFF__V34*/ meltfptr[29] = /*reallynil*/ NULL ;; + /*_.LOOPSTUFF__V34*/ + meltfptr[29] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -42830,15 +46794,20 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ ; MELT_LOCATION("warmelt-normatch.melt:1912:/ clear"); - /*clear*/ /*_.MAKE_LIST__V47*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MAKE_LIST__V47*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWTESTER__V48*/ meltfptr[41] = 0 ; + /*clear*/ /*_.NEWTESTER__V48*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.REGISTER_NEW_NORMTESTER__V50*/ meltfptr[44] = 0 ; + /*clear*/ /*_.REGISTER_NEW_NORMTESTER__V50*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V53*/ meltfptr[51] = 0 ; + /*clear*/ /*_.SETQ___V53*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.CURHDLER__V54*/ meltfptr[45] = 0 ; + /*clear*/ /*_.CURHDLER__V54*/ + meltfptr[45] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1911:/ quasiblock"); @@ -42847,13 +46816,16 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ ; } ; - /*_._IFELSE___V38*/ meltfptr[34] = /*_._IFELSE___V40*/ meltfptr[38];; + /*_._IFELSE___V38*/ + meltfptr[34] = /*_._IFELSE___V40*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1898:/ clear"); - /*clear*/ /*_#IS_A__L13*/ meltfnum[8] = 0 ; + /*clear*/ /*_#IS_A__L13*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V40*/ meltfptr[38] = 0 ; + /*clear*/ /*_._IFELSE___V40*/ + meltfptr[38] = 0 ; } ; } @@ -42864,18 +46836,22 @@ meltlabloop_LOOPSTUFF_5:;/*^loopbody*/ /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1894:/ clear"); - /*clear*/ /*_.NTSAME_IDENTICAL__V37*/ meltfptr[35] = 0 ; + /*clear*/ /*_.NTSAME_IDENTICAL__V37*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L12*/ meltfnum[1] = 0 ; + /*clear*/ /*_#eqeq__L12*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V38*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IFELSE___V38*/ + meltfptr[34] = 0 ; } ; ; goto meltlabloop_LOOPSTUFF_5; meltlabexit_LOOPSTUFF_5:;/*^loopepilog*/ /*loopepilog*/ - /*_.FOREVER___V33*/ meltfptr[31] = /*_.LOOPSTUFF__V34*/ meltfptr[29];; + /*_.FOREVER___V33*/ + meltfptr[31] = /*_.LOOPSTUFF__V34*/ meltfptr[29];; } ; @@ -42898,7 +46874,8 @@ meltlabexit_LOOPSTUFF_5:;/*^loopepilog*/ 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)) @@ -42907,7 +46884,8 @@ meltlabexit_LOOPSTUFF_5:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1932:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42940,16 +46918,20 @@ meltlabexit_LOOPSTUFF_5:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normpat_constpat got tester"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TESTER__V27*/ meltfptr[25]; - /*_.MELT_DEBUG_FUN__V56*/ meltfptr[41] = 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__V56*/ + meltfptr[41] = 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___V55*/ meltfptr[40] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[41];; + /*_._IF___V55*/ + meltfptr[40] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1932:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ meltfptr[41] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ + meltfptr[41] = 0 ; } ; } @@ -42962,7 +46944,8 @@ meltlabexit_LOOPSTUFF_5:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normatch.melt:1932:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -42971,9 +46954,11 @@ meltlabexit_LOOPSTUFF_5:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V55*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IF___V55*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42995,47 +46980,65 @@ meltlabexit_LOOPSTUFF_5:;/*^loopepilog*/ ; MELT_LOCATION("warmelt-normatch.melt:1888:/ clear"); - /*clear*/ /*_.TESTER__V27*/ meltfptr[25] = 0 ; + /*clear*/ /*_.TESTER__V27*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.CURHDLER__V28*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CURHDLER__V28*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_OBJECT__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_OBJECT__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.NCONST__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.NCONST__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V33*/ meltfptr[31] = 0 ; + /*clear*/ /*_.FOREVER___V33*/ + meltfptr[31] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1874:/ clear"); - /*clear*/ /*_.SLOC__V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.SLOC__V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.SCONST__V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SCONST__V15*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.STUFFMAP__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.STUFFMAP__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.PVARLOCMAP__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.PVARLOCMAP__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.PCTN_SRC__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.PCTN_SRC__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.PSLOC__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.PSLOC__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.TSTUFF__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.TSTUFF__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.ENV__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.ENV__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.NCX__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.NCX__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTLIST__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.TESTLIST__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPCST__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MAPCST__V24*/ + meltfptr[23] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1870:/ 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 ; } ; @@ -43117,7 +47120,8 @@ meltrout_42_WARMELTmiNORMATCH_LAMBDA_cl17(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_42_WARMELTmiNORMATCH_LAMBDA_cl17 fromline 1756 */ - /* classy proc frame meltrout_42_WARMELTmiNORMATCH_LAMBDA_cl17 */ MeltFrame_meltrout_42_WARMELTmiNORMATCH_LAMBDA_cl17 + /* classy proc frame meltrout_42_WARMELTmiNORMATCH_LAMBDA_cl17 */ + MeltFrame_meltrout_42_WARMELTmiNORMATCH_LAMBDA_cl17 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_42_WARMELTmiNORMATCH_LAMBDA_cl17 fromline 1785*/ #if ENABLE_CHECKING @@ -43130,7 +47134,8 @@ meltrout_42_WARMELTmiNORMATCH_LAMBDA_cl17(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("LAMBDA_cl17", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -43140,7 +47145,8 @@ meltrout_42_WARMELTmiNORMATCH_LAMBDA_cl17(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1904:/ getarg"); - /*_.TESTER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.TESTER__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -43154,7 +47160,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normatch.melt:1905:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~TSTUFF*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[0]))) ) /*then*/ @@ -43212,7 +47219,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)) @@ -43221,7 +47229,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1907:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43254,16 +47263,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normpat_constpat lambda updatelse tstuff="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*~TSTUFF*/ meltfclos->tabval[0]); - /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 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__V4*/ + meltfptr[3] = 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___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; + /*_._IF___V3*/ + meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1907:/ 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 ; } ; } @@ -43276,7 +47289,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1907:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -43285,9 +47299,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*/ @@ -43308,7 +47324,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normatch.melt:1908:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TESTER__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[0]))) ) /*then*/ @@ -43319,7 +47336,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TESTER__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "NTEST_COMEFROM"); - /*_.NTEST_COMEFROM__V5*/ meltfptr[3] = slot; + /*_.NTEST_COMEFROM__V5*/ + meltfptr[3] = slot; }; ; } @@ -43341,7 +47359,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1904:/ clear"); - /*clear*/ /*_.NTEST_COMEFROM__V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.NTEST_COMEFROM__V5*/ + meltfptr[3] = 0 ; } ; @@ -43423,7 +47442,8 @@ meltrout_43_WARMELTmiNORMATCH_MG_OUT_NODE_NAME(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_43_WARMELTmiNORMATCH_MG_OUT_NODE_NAME fromline 1756 */ - /* classy proc frame meltrout_43_WARMELTmiNORMATCH_MG_OUT_NODE_NAME */ MeltFrame_meltrout_43_WARMELTmiNORMATCH_MG_OUT_NODE_NAME + /* classy proc frame meltrout_43_WARMELTmiNORMATCH_MG_OUT_NODE_NAME */ + MeltFrame_meltrout_43_WARMELTmiNORMATCH_MG_OUT_NODE_NAME meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_43_WARMELTmiNORMATCH_MG_OUT_NODE_NAME fromline 1785*/ #if ENABLE_CHECKING @@ -43436,7 +47456,8 @@ meltrout_43_WARMELTmiNORMATCH_MG_OUT_NODE_NAME(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("MG_OUT_NODE_NAME", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -43446,12 +47467,14 @@ meltrout_43_WARMELTmiNORMATCH_MG_OUT_NODE_NAME(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1966:/ getarg"); - /*_.OUT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.OUT__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NTEST__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.NTEST__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NTEST__V3*/ meltfptr[2])) != NULL); ; @@ -43473,10 +47496,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OUT__L1*/ meltfnum[0] = + /*_#IS_OUT__L1*/ + meltfnum[0] = (melt_is_out ((melt_ptr_t) /*_.OUT__V2*/ meltfptr[1])) ;; MELT_LOCATION("warmelt-normatch.melt:1967:/ cond"); - /*cond*/ if (/*_#IS_OUT__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_OUT__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; @@ -43503,25 +47528,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1967; - /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V6*/ + meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; + /*_._IFELSE___V5*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1967:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ + meltfptr[5] = 0 ; } ; } ; - /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; + /*_.IFCPP___V4*/ + meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1967:/ clear"); - /*clear*/ /*_#IS_OUT__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_OUT__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V5*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -43539,10 +47570,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[0] = + /*_#IS_A__L2*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NTEST__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normatch.melt:1968:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -43569,25 +47602,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1968; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1968:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; + /*_.IFCPP___V7*/ + meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1968:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L2*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -43598,10 +47637,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1969:/ quasiblock"); - /*_.CLA__V10*/ meltfptr[8] = + /*_.CLA__V10*/ + meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.NTEST__V3*/ meltfptr[2]))));; MELT_LOCATION("warmelt-normatch.melt:1970:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V10*/ meltfptr[8]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2]))) ) /*then*/ @@ -43612,7 +47653,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLA__V10*/ meltfptr[8]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.CLANAM__V11*/ meltfptr[4] = slot; + /*_.CLANAM__V11*/ + meltfptr[4] = slot; }; ; } @@ -43623,10 +47665,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#CLANAMLEN__L3*/ meltfnum[0] = + /*_#CLANAMLEN__L3*/ + meltfnum[0] = melt_string_length((melt_ptr_t)(/*_.CLANAM__V11*/ meltfptr[4]));; /*^compute*/ - /*_#IX__L4*/ meltfnum[3] = + /*_#IX__L4*/ + meltfnum[3] = (melt_get_int((melt_ptr_t)(/*_.NTEST__V3*/ meltfptr[2])));; #if MELT_HAVE_DEBUG @@ -43638,10 +47682,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#gtI__L5*/ meltfnum[4] = + /*_#gtI__L5*/ + meltfnum[4] = ((/*_#CLANAMLEN__L3*/ meltfnum[0]) > (6));; MELT_LOCATION("warmelt-normatch.melt:1976:/ cond"); - /*cond*/ if (/*_#gtI__L5*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#gtI__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; @@ -43668,25 +47714,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1976; - /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V13*/ meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; + /*_._IFELSE___V13*/ + meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1976:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = 0 ; } ; } ; - /*_.IFCPP___V12*/ meltfptr[11] = /*_._IFELSE___V13*/ meltfptr[12];; + /*_.IFCPP___V12*/ + meltfptr[11] = /*_._IFELSE___V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1976:/ clear"); - /*clear*/ /*_#gtI__L5*/ meltfnum[4] = 0 ; + /*clear*/ /*_#gtI__L5*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ + meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -43707,24 +47759,31 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normatch.melt:1969:/ clear"); - /*clear*/ /*_.CLA__V10*/ meltfptr[8] = 0 ; + /*clear*/ /*_.CLA__V10*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.CLANAM__V11*/ meltfptr[4] = 0 ; + /*clear*/ /*_.CLANAM__V11*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_#CLANAMLEN__L3*/ meltfnum[0] = 0 ; + /*clear*/ /*_#CLANAMLEN__L3*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L4*/ meltfnum[3] = 0 ; + /*clear*/ /*_#IX__L4*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.IFCPP___V12*/ + meltfptr[11] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1966:/ clear"); - /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.IFCPP___V4*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ + meltfptr[5] = 0 ; } ; @@ -43806,7 +47865,8 @@ meltrout_44_WARMELTmiNORMATCH_MGLABEL_ANY(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_44_WARMELTmiNORMATCH_MGLABEL_ANY fromline 1756 */ - /* classy proc frame meltrout_44_WARMELTmiNORMATCH_MGLABEL_ANY */ MeltFrame_meltrout_44_WARMELTmiNORMATCH_MGLABEL_ANY + /* classy proc frame meltrout_44_WARMELTmiNORMATCH_MGLABEL_ANY */ + MeltFrame_meltrout_44_WARMELTmiNORMATCH_MGLABEL_ANY meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_44_WARMELTmiNORMATCH_MGLABEL_ANY fromline 1785*/ #if ENABLE_CHECKING @@ -43819,7 +47879,8 @@ meltrout_44_WARMELTmiNORMATCH_MGLABEL_ANY(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("MGLABEL_ANY", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -43829,12 +47890,14 @@ meltrout_44_WARMELTmiNORMATCH_MGLABEL_ANY(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normatch.melt:1992:/ 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; - /*_.MG__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MG__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MG__V3*/ meltfptr[2])) != NULL); ; @@ -43849,10 +47912,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normatch.melt:1993:/ quasiblock"); - /*_.DIS__V5*/ meltfptr[4] = + /*_.DIS__V5*/ + meltfptr[4] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-normatch.melt:1994:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[0]))) ) /*then*/ @@ -43863,7 +47928,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.DISNAME__V6*/ meltfptr[5] = slot; + /*_.DISNAME__V6*/ + meltfptr[5] = slot; }; ; } @@ -43893,7 +47959,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)) @@ -43902,7 +47969,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normatch.melt:1996:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43943,16 +48011,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " dis="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.DIS__V5*/ meltfptr[4]; - /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; + /*_._IF___V7*/ + meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normatch.melt:1996:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = 0 ; } ; } @@ -43965,7 +48037,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normatch.melt:1996:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -43974,9 +48047,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V7*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44014,7 +48089,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[6] = (/*nil*/NULL);; @@ -44041,23 +48117,28 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normatch.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1998; - /*_.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 ""), 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 ""), 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-normatch.melt:1998:/ 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-normatch.melt:1998:/ clear"); - /*clear*/ /*_._IFELSE___V10*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44066,18 +48147,23 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V4*/ meltfptr[3] = /*_.IFCPP___V9*/ meltfptr[7];; + /*_.LET___V4*/ + meltfptr[3] = /*_.IFCPP___V9*/ meltfptr[7];; MELT_LOCATION("warmelt-normatch.melt:1993:/ clear"); - /*clear*/ /*_.DIS__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.DIS__V5*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.DISNAME__V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.DISNAME__V6*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; MELT_LOCATION("warmelt-normatch.melt:1992:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[3];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V4*/ meltfptr[3];; { MELT_LOCATION("warmelt-normatch.melt:1992:/ locexp"); @@ -44092,11 +48178,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.LET___V4*/ + meltfptr[3] = 0 ; } ; |