diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-normal+02.cc')
-rw-r--r-- | gcc/melt/generated/warmelt-normal+02.cc | 15468 |
1 files changed, 10312 insertions, 5156 deletions
diff --git a/gcc/melt/generated/warmelt-normal+02.cc b/gcc/melt/generated/warmelt-normal+02.cc index bcf595b7deb..f924dfb3b8b 100644 --- a/gcc/melt/generated/warmelt-normal+02.cc +++ b/gcc/melt/generated/warmelt-normal+02.cc @@ -1095,7 +1095,8 @@ meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND fromline 1756 */ - /* classy proc frame meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND */ MeltFrame_meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND + /* classy proc frame meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND */ + MeltFrame_meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND fromline 1785*/ #if ENABLE_CHECKING @@ -1108,7 +1109,8 @@ meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("NORMBIND_DEFMACROBIND", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1118,33 +1120,38 @@ meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:1776:/ getarg"); - /*_.BIND__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.BIND__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PROCS__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PROCS__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PROCS__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V6*/ meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; + /*_.PSLOC__V6*/ + meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5])) != NULL); ; @@ -1176,7 +1183,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)) @@ -1185,7 +1193,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1777:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1238,16 +1247,20 @@ meltlab_endgetargs: argtab[13].meltbp_cstring = "\n.. psloc="; /*^apply.arg*/ argtab[14].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V6*/ meltfptr[5]; - /*_.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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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-normal.melt:1777:/ 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 ; } ; } @@ -1260,7 +1273,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1777:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -1269,9 +1283,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*/ @@ -1312,10 +1328,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DEFINED_MACRO_BINDING*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:1780:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[6] = (/*nil*/NULL);; @@ -1344,25 +1362,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1780; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V2*/ meltfptr[1]; - /*_.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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1780:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[6];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1780:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1380,10 +1404,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:1781:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[6] = (/*nil*/NULL);; @@ -1412,25 +1438,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1781; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V13*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; + /*_._IFELSE___V13*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1781:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = 0 ; } ; } ; - /*_.IFCPP___V12*/ meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];; + /*_.IFCPP___V12*/ + meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1781:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V13*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1448,10 +1480,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:1782:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[6] = (/*nil*/NULL);; @@ -1480,25 +1514,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1782; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V17*/ + meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V16*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; + /*_._IFELSE___V16*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1782:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ + meltfptr[16] = 0 ; } ; } ; - /*_.IFCPP___V15*/ meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[6];; + /*_.IFCPP___V15*/ + meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1782:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1514,7 +1554,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NCTX_SYMBCACHEMAP"); - /*_.SYCMAP__V19*/ meltfptr[6] = slot; + /*_.SYCMAP__V19*/ + meltfptr[6] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:1784:/ getslot"); @@ -1522,11 +1563,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.SYMB__V20*/ meltfptr[19] = slot; + /*_.SYMB__V20*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:1785:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[5]))) ) /*then*/ @@ -1537,7 +1580,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 11, "NCTX_CURPROC"); - /*_.CURPROC__V21*/ meltfptr[20] = slot; + /*_.CURPROC__V21*/ + meltfptr[20] = slot; }; ; } @@ -1548,7 +1592,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:1786:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[5]))) ) /*then*/ @@ -1559,7 +1604,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 12, "NCTX_MODULCONTEXT"); - /*_.MODCTX__V22*/ meltfptr[21] = slot; + /*_.MODCTX__V22*/ + meltfptr[21] = slot; }; ; } @@ -1570,7 +1616,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:1787:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DEFINED_MACRO_BINDING*/ meltfrout->tabval[2]))) ) /*then*/ @@ -1581,7 +1628,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "MBIND_DATA"); - /*_.MDATA__V23*/ meltfptr[22] = slot; + /*_.MDATA__V23*/ + meltfptr[22] = slot; }; ; } @@ -1611,7 +1659,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)) @@ -1620,7 +1669,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1789:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1653,16 +1703,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normbind_defmacrobind mdata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MDATA__V23*/ meltfptr[22]; - /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V24*/ meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; + /*_._IF___V24*/ + meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1789:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ + meltfptr[24] = 0 ; } ; } @@ -1675,7 +1729,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1789:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -1684,9 +1739,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V24*/ + meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1709,10 +1766,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NON_EMPTY_LIST__L8*/ meltfnum[1] = + /*_#IS_NON_EMPTY_LIST__L8*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.PROCS__V5*/ meltfptr[4])) == MELTOBMAG_LIST && NULL != melt_list_first((melt_ptr_t)(/*_.PROCS__V5*/ meltfptr[4])));; MELT_LOCATION("warmelt-normal.melt:1790:/ cond"); - /*cond*/ if (/*_#IS_NON_EMPTY_LIST__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_NON_EMPTY_LIST__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1730,7 +1789,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V28*/ meltfptr[27] = (/*nil*/NULL);; @@ -1759,23 +1819,28 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1791; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PROCS__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V29*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V28*/ meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28];; + /*_._IFELSE___V28*/ + meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1791:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V29*/ + meltfptr[28] = 0 ; } ; } ; - /*_.IFCPP___V27*/ meltfptr[23] = /*_._IFELSE___V28*/ meltfptr[27];; + /*_.IFCPP___V27*/ + meltfptr[23] = /*_._IFELSE___V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1791:/ clear"); - /*clear*/ /*_._IFELSE___V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IFELSE___V28*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1786,15 +1851,19 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:1790:/ quasiblock"); - /*_.PROGN___V30*/ meltfptr[28] = /*_.IFCPP___V27*/ meltfptr[23];; + /*_.PROGN___V30*/ + meltfptr[28] = /*_.IFCPP___V27*/ meltfptr[23];; /*^compute*/ - /*_._IF___V26*/ meltfptr[24] = /*_.PROGN___V30*/ meltfptr[28];; + /*_._IF___V26*/ + meltfptr[24] = /*_.PROGN___V30*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1790:/ clear"); - /*clear*/ /*_.IFCPP___V27*/ meltfptr[23] = 0 ; + /*clear*/ /*_.IFCPP___V27*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V30*/ meltfptr[28] = 0 ; + /*clear*/ /*_.PROGN___V30*/ + meltfptr[28] = 0 ; } ; } @@ -1808,10 +1877,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_NOT_A__L9*/ meltfnum[0] = + /*_#IS_NOT_A__L9*/ + meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.MDATA__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NREP_DATACLOSURE*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normal.melt:1792:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1819,7 +1890,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1793:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8]))) ) /*then*/ @@ -1830,7 +1902,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SYMB__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V32*/ meltfptr[23] = slot; + /*_.NAMED_NAME__V32*/ + meltfptr[23] = slot; }; ; } @@ -1853,7 +1926,8 @@ meltlab_endgetargs: be operator-like."; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V32*/ meltfptr[23]; - /*_.ERROR_AT__V33*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V33*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -1866,13 +1940,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_IS_BOOTSTRAPPING__L10*/ meltfnum[9] = + /*_#MELT_IS_BOOTSTRAPPING__L10*/ + meltfnum[9] = (melt_flag_bootstrapping);; /*^compute*/ - /*_#NOT__L11*/ meltfnum[10] = + /*_#NOT__L11*/ + meltfnum[10] = (!(/*_#MELT_IS_BOOTSTRAPPING__L10*/ meltfnum[9]));; MELT_LOCATION("warmelt-normal.melt:1794:/ cond"); - /*cond*/ if (/*_#NOT__L11*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#NOT__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V35*/ meltfptr[34] = (/*nil*/NULL);; @@ -1907,29 +1984,37 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.DISCRIM__V36*/ meltfptr[35]; - /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V37*/ + meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V35*/ meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36];; + /*_._IFELSE___V35*/ + meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1794:/ clear"); - /*clear*/ /*_.DISCRIM__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.DISCRIM__V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ + meltfptr[36] = 0 ; } ; } ; - /*_.IFCPP___V34*/ meltfptr[33] = /*_._IFELSE___V35*/ meltfptr[34];; + /*_.IFCPP___V34*/ + meltfptr[33] = /*_._IFELSE___V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1794:/ clear"); - /*clear*/ /*_#MELT_IS_BOOTSTRAPPING__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_IS_BOOTSTRAPPING__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#NOT__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IFELSE___V35*/ + meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1940,7 +2025,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:1797:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:1797:/ locexp"); @@ -1955,25 +2041,33 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:1792:/ quasiblock"); - /*_.PROGN___V39*/ meltfptr[36] = /*_.RETURN___V38*/ meltfptr[35];; + /*_.PROGN___V39*/ + meltfptr[36] = /*_.RETURN___V38*/ meltfptr[35];; /*^compute*/ - /*_._IF___V31*/ meltfptr[27] = /*_.PROGN___V39*/ meltfptr[36];; + /*_._IF___V31*/ + meltfptr[27] = /*_.PROGN___V39*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1792:/ clear"); - /*clear*/ /*_.NAMED_NAME__V32*/ meltfptr[23] = 0 ; + /*clear*/ /*_.NAMED_NAME__V32*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V33*/ meltfptr[28] = 0 ; + /*clear*/ /*_.ERROR_AT__V33*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.IFCPP___V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V38*/ meltfptr[35] = 0 ; + /*clear*/ /*_.RETURN___V38*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V39*/ meltfptr[36] = 0 ; + /*clear*/ /*_.PROGN___V39*/ + meltfptr[36] = 0 ; } ; } @@ -1997,7 +2091,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:1800:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.MDATA__V23*/ meltfptr[22];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.MDATA__V23*/ meltfptr[22];; { MELT_LOCATION("warmelt-normal.melt:1800:/ locexp"); @@ -2012,36 +2107,49 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V18*/ meltfptr[16] = /*_.RETURN___V40*/ meltfptr[34];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V18*/ + meltfptr[16] = /*_.RETURN___V40*/ meltfptr[34];; MELT_LOCATION("warmelt-normal.melt:1783:/ clear"); - /*clear*/ /*_.SYCMAP__V19*/ meltfptr[6] = 0 ; + /*clear*/ /*_.SYCMAP__V19*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.SYMB__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SYMB__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPROC__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.CURPROC__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MODCTX__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MODCTX__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.MDATA__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MDATA__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NON_EMPTY_LIST__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_NON_EMPTY_LIST__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ meltfptr[24] = 0 ; + /*clear*/ /*_._IF___V26*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_NOT_A__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V31*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V31*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V40*/ meltfptr[34] = 0 ; + /*clear*/ /*_.RETURN___V40*/ + meltfptr[34] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:1776:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { MELT_LOCATION("warmelt-normal.melt:1776:/ locexp"); @@ -2056,17 +2164,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^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___V15*/ meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V18*/ meltfptr[16] = 0 ; + /*clear*/ /*_.LET___V18*/ + meltfptr[16] = 0 ; } ; @@ -2148,7 +2261,8 @@ meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND fromline 1756 */ - /* classy proc frame meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND */ MeltFrame_meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND + /* classy proc frame meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND */ + MeltFrame_meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND fromline 1785*/ #if ENABLE_CHECKING @@ -2161,7 +2275,8 @@ meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("NORMBIND_CONSTRUCTBIND", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -2171,33 +2286,38 @@ meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:1807:/ getarg"); - /*_.BIND__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.BIND__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PROCS__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PROCS__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PROCS__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V6*/ meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; + /*_.PSLOC__V6*/ + meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5])) != NULL); ; @@ -2219,10 +2339,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ meltfnum[0] = + /*_#IS_A__L1*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:1808:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; @@ -2251,25 +2373,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1808; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ + meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1808:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ meltfptr[6] = /*_._IFELSE___V8*/ meltfptr[7];; + /*_.IFCPP___V7*/ + meltfptr[6] = /*_._IFELSE___V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1808:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2287,10 +2415,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[0] = + /*_#IS_A__L2*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:1809:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[7] = (/*nil*/NULL);; @@ -2319,25 +2449,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1809; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V12*/ + meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V11*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; + /*_._IFELSE___V11*/ + meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1809:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/ + meltfptr[11] = 0 ; } ; } ; - /*_.IFCPP___V10*/ meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[7];; + /*_.IFCPP___V10*/ + meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1809:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L2*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V11*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V11*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2355,10 +2491,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[0] = + /*_#IS_A__L3*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:1810:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V14*/ meltfptr[7] = (/*nil*/NULL);; @@ -2387,25 +2525,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1810; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V15*/ + meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V14*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; + /*_._IFELSE___V14*/ + meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1810:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ + meltfptr[14] = 0 ; } ; } ; - /*_.IFCPP___V13*/ meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[7];; + /*_.IFCPP___V13*/ + meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1810:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V14*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V14*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2421,7 +2565,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NCTX_SYMBCACHEMAP"); - /*_.SYCMAP__V17*/ meltfptr[7] = slot; + /*_.SYCMAP__V17*/ + meltfptr[7] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:1812:/ getslot"); @@ -2429,11 +2574,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.SYMB__V18*/ meltfptr[17] = slot; + /*_.SYMB__V18*/ + meltfptr[17] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:1813:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ meltfrout->tabval[0]))) ) /*then*/ @@ -2444,7 +2591,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NCONSB_NLETREC"); - /*_.NLETREC__V19*/ meltfptr[18] = slot; + /*_.NLETREC__V19*/ + meltfptr[18] = slot; }; ; } @@ -2474,7 +2622,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)) @@ -2483,7 +2632,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1815:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2516,16 +2666,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normbind_constructbind nletrec"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NLETREC__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V21*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V20*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; + /*_._IF___V20*/ + meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1815:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L5*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ + meltfptr[20] = 0 ; } ; } @@ -2538,7 +2692,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1815:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2547,9 +2702,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IF___V20*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2579,10 +2736,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[4] = + /*_#IS_A__L6*/ + meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.NLETREC__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:1816:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V23*/ meltfptr[19] = (/*nil*/NULL);; @@ -2611,25 +2770,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1816; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NLETREC__V19*/ meltfptr[18]; - /*_.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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V24*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V23*/ meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; + /*_._IFELSE___V23*/ + meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1816:/ 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-normal.melt:1816:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2641,7 +2806,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLETREC__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ meltfrout->tabval[5]))) ) /*then*/ @@ -2652,7 +2818,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NLETREC__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NLETREC_LOCSYMS"); - /*_.NLOCSYMS__V26*/ meltfptr[19] = slot; + /*_.NLOCSYMS__V26*/ + meltfptr[19] = slot; }; ; } @@ -2663,7 +2830,8 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.OURLOCSYM__V27*/ meltfptr[26] = (/*nil*/NULL);; + /*_.OURLOCSYM__V27*/ + meltfptr[26] = (/*nil*/NULL);; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:1820:/ cppif.then"); @@ -2684,7 +2852,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L7*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2693,7 +2862,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1820:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2726,16 +2896,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normbind_constructbind nlocsyms"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NLOCSYMS__V26*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V29*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V28*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; + /*_._IF___V28*/ + meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1820:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ + meltfptr[28] = 0 ; } ; } @@ -2748,7 +2922,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1820:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2757,9 +2932,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V28*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2795,7 +2972,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:1825:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURLOCSYM__V30*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ meltfrout->tabval[6]))) ) /*then*/ @@ -2806,7 +2984,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURLOCSYM__V30*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NOCC_BIND"); - /*_.NOCC_BIND__V31*/ meltfptr[27] = slot; + /*_.NOCC_BIND__V31*/ + meltfptr[27] = slot; }; ; } @@ -2817,10 +2996,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#eqeq__L10*/ meltfnum[0] = + /*_#eqeq__L10*/ + meltfnum[0] = ((/*_.NOCC_BIND__V31*/ meltfptr[27]) == (/*_.BIND__V2*/ meltfptr[1]));; MELT_LOCATION("warmelt-normal.melt:1825:/ cond"); - /*cond*/ if (/*_#eqeq__L10*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#eqeq__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2828,23 +3009,30 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1826:/ compute"); - /*_#SYIX__L9*/ meltfnum[4] = /*_#SETQ___L11*/ meltfnum[10] = -9999;; + /*_#SYIX__L9*/ + meltfnum[4] = /*_#SETQ___L11*/ meltfnum[10] = -9999;; MELT_LOCATION("warmelt-normal.melt:1827:/ compute"); - /*_.OURLOCSYM__V27*/ meltfptr[26] = /*_.SETQ___V33*/ meltfptr[32] = /*_.CURLOCSYM__V30*/ meltfptr[28];; + /*_.OURLOCSYM__V27*/ + meltfptr[26] = /*_.SETQ___V33*/ meltfptr[32] = /*_.CURLOCSYM__V30*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:1825:/ quasiblock"); - /*_.PROGN___V34*/ meltfptr[33] = /*_.SETQ___V33*/ meltfptr[32];; + /*_.PROGN___V34*/ + meltfptr[33] = /*_.SETQ___V33*/ meltfptr[32];; /*^compute*/ - /*_._IF___V32*/ meltfptr[31] = /*_.PROGN___V34*/ meltfptr[33];; + /*_._IF___V32*/ + meltfptr[31] = /*_.PROGN___V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1825:/ clear"); - /*clear*/ /*_#SETQ___L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#SETQ___L11*/ + meltfnum[10] = 0 ; /*^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 ; } ; } @@ -2860,15 +3048,20 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:1822:/ clear"); - /*clear*/ /*_.CURLOCSYM__V30*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CURLOCSYM__V30*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_#SYIX__L9*/ meltfnum[4] = 0 ; + /*clear*/ /*_#SYIX__L9*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.NOCC_BIND__V31*/ meltfptr[27] = 0 ; + /*clear*/ /*_.NOCC_BIND__V31*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L10*/ meltfnum[0] = 0 ; + /*clear*/ /*_#eqeq__L10*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IF___V32*/ + meltfptr[31] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -2891,7 +3084,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2900,7 +3094,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1829:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2933,16 +3128,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normbind_constructbind ourlocsym"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OURLOCSYM__V27*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V36*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V36*/ + meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V35*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[33];; + /*_._IF___V35*/ + meltfptr[32] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1829:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ + meltfptr[33] = 0 ; } ; } @@ -2955,7 +3154,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1829:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2964,9 +3164,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V35*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V35*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2996,10 +3198,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L14*/ meltfnum[12] = + /*_#IS_A__L14*/ + meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.OURLOCSYM__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:1830:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#IS_A__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V38*/ meltfptr[32] = (/*nil*/NULL);; @@ -3028,25 +3232,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1830; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OURLOCSYM__V27*/ meltfptr[26]; - /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V39*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V38*/ meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38];; + /*_._IFELSE___V38*/ + meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1830:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V39*/ + meltfptr[38] = 0 ; } ; } ; - /*_.IFCPP___V37*/ meltfptr[33] = /*_._IFELSE___V38*/ meltfptr[32];; + /*_.IFCPP___V37*/ + meltfptr[33] = /*_._IFELSE___V38*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1830:/ clear"); - /*clear*/ /*_#IS_A__L14*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_A__L14*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V38*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IFELSE___V38*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3082,7 +3292,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L15*/ meltfnum[10] = + /*_#MELT_NEED_DBG__L15*/ + meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3091,7 +3302,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1834:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L15*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3132,16 +3344,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " ourlocsym="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OURLOCSYM__V27*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V41*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V40*/ meltfptr[38] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[32];; + /*_._IF___V40*/ + meltfptr[38] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1834:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[32] = 0 ; } ; } @@ -3154,7 +3370,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1834:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3163,9 +3380,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ meltfptr[38] = 0 ; + /*clear*/ /*_._IF___V40*/ + meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3191,7 +3410,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:1835:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.OURLOCSYM__V27*/ meltfptr[26];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.OURLOCSYM__V27*/ meltfptr[26];; { MELT_LOCATION("warmelt-normal.melt:1835:/ locexp"); @@ -3206,36 +3426,49 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V25*/ meltfptr[23] = /*_.RETURN___V42*/ meltfptr[32];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V25*/ + meltfptr[23] = /*_.RETURN___V42*/ meltfptr[32];; MELT_LOCATION("warmelt-normal.melt:1817:/ clear"); - /*clear*/ /*_.NLOCSYMS__V26*/ meltfptr[19] = 0 ; + /*clear*/ /*_.NLOCSYMS__V26*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.OURLOCSYM__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.OURLOCSYM__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V37*/ meltfptr[33] = 0 ; + /*clear*/ /*_.IFCPP___V37*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V42*/ meltfptr[32] = 0 ; - /*_.LET___V16*/ meltfptr[14] = /*_.LET___V25*/ meltfptr[23];; + /*clear*/ /*_.RETURN___V42*/ + meltfptr[32] = 0 ; + /*_.LET___V16*/ + meltfptr[14] = /*_.LET___V25*/ meltfptr[23];; MELT_LOCATION("warmelt-normal.melt:1811:/ clear"); - /*clear*/ /*_.SYCMAP__V17*/ meltfptr[7] = 0 ; + /*clear*/ /*_.SYCMAP__V17*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.SYMB__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.SYMB__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.NLETREC__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.NLETREC__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V22*/ meltfptr[20] = 0 ; + /*clear*/ /*_.IFCPP___V22*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_.LET___V25*/ + meltfptr[23] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:1807:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { MELT_LOCATION("warmelt-normal.melt:1807:/ locexp"); @@ -3250,17 +3483,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; + /*clear*/ /*_.IFCPP___V10*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; + /*clear*/ /*_.IFCPP___V13*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V16*/ meltfptr[14] = 0 ; + /*clear*/ /*_.LET___V16*/ + meltfptr[14] = 0 ; } ; @@ -3342,7 +3580,8 @@ meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL(meltclosure_ptr_t meltclosp_, melt_pt /* end of frame for routine meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL fromline 1756 */ - /* classy proc frame meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL */ MeltFrame_meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL + /* classy proc frame meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL */ + MeltFrame_meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL fromline 1785*/ #if ENABLE_CHECKING @@ -3355,7 +3594,8 @@ meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL(meltclosure_ptr_t meltclosp_, melt_pt #define meltframe meltfram__ melt_trace_start("NORMEXP_SYMBOL", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -3365,26 +3605,30 @@ meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL(meltclosure_ptr_t meltclosp_, melt_pt /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:1848:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -3416,7 +3660,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)) @@ -3425,7 +3670,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1849:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3472,16 +3718,20 @@ meltlab_endgetargs: argtab[10].meltbp_cstring = "\n.. psloc="; /*^apply.arg*/ argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__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_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_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-normal.melt:1849:/ 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 ; } ; } @@ -3494,7 +3744,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1849:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3503,9 +3754,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*/ @@ -3546,10 +3799,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:1855:/ 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);; @@ -3578,25 +3833,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1855; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1855:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1855:/ 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*/ @@ -3614,10 +3875,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_SYMBOL*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:1856:/ 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);; @@ -3646,25 +3909,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1856; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1856:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1856:/ 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*/ @@ -3693,7 +3962,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[1].meltbp_aptr = (melt_ptr_t*) &/*_.GOTENV__V17*/ meltfptr[16]; /*^multiapply.appl*/ - /*_.BIND__V15*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENCLOSING_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), restab); + /*_.BIND__V15*/ + meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENCLOSING_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -3719,7 +3989,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)) @@ -3728,7 +3999,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1860:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3785,16 +4057,20 @@ meltlab_endgetargs: argtab[15].meltbp_cstring = "\n.. recv="; /*^apply.arg*/ argtab[16].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = melt_apply ((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_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = melt_apply ((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_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V18*/ meltfptr[17] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; + /*_._IF___V18*/ + meltfptr[17] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1860:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = 0 ; } ; } @@ -3807,7 +4083,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1860:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3816,9 +4093,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_._IF___V18*/ + meltfptr[17] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3848,10 +4127,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ meltfnum[0] = + /*_#IS_A__L7*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:1863:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[17] = (/*nil*/NULL);; @@ -3880,25 +4161,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1863; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V21*/ meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; + /*_._IFELSE___V21*/ + meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1863:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = 0 ; } ; } ; - /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[17];; + /*_.IFCPP___V20*/ + meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1863:/ clear"); - /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ meltfptr[17] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ + meltfptr[17] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3914,7 +4201,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 12, "NCTX_MODULCONTEXT"); - /*_.MODCTX__V24*/ meltfptr[17] = slot; + /*_.MODCTX__V24*/ + meltfptr[17] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:1865:/ getslot"); @@ -3922,7 +4210,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 10, "NCTX_VALBINDMAP"); - /*_.VALBINDMAP__V25*/ meltfptr[24] = slot; + /*_.VALBINDMAP__V25*/ + meltfptr[24] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:1866:/ getslot"); @@ -3930,11 +4219,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NCTX_VALUELIST"); - /*_.VALUELIST__V26*/ meltfptr[25] = slot; + /*_.VALUELIST__V26*/ + meltfptr[25] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:1867:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7]))) ) /*then*/ @@ -3945,7 +4236,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, "NAMED_NAME"); - /*_.SYMBNAME__V27*/ meltfptr[26] = slot; + /*_.SYMBNAME__V27*/ + meltfptr[26] = slot; }; ; } @@ -3959,10 +4251,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L8*/ meltfnum[1] = + /*_#NULL__L8*/ + meltfnum[1] = (/*null*/(/*_.PSLOC__V5*/ meltfptr[4]) == NULL);; MELT_LOCATION("warmelt-normal.melt:1869:/ cond"); - /*cond*/ if (/*_#NULL__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#NULL__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3988,10 +4282,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L9*/ meltfnum[0] = + /*_#NULL__L9*/ + meltfnum[0] = (/*null*/(/*_.BIND__V15*/ meltfptr[5]) == NULL);; MELT_LOCATION("warmelt-normal.melt:1872:/ cond"); - /*cond*/ if (/*_#NULL__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#NULL__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4010,7 +4306,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "unknown name $1; symbol is not bound"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBNAME__V27*/ meltfptr[26]; - /*_.ERROR_AT__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V29*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4044,7 +4341,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4053,7 +4351,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1876:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4092,16 +4391,20 @@ meltlab_endgetargs: argtab[6].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V31*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_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-normal.melt:1876:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ + meltfptr[30] = 0 ; } ; } @@ -4114,7 +4417,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1876:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4123,9 +4427,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IF___V30*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4165,7 +4471,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4174,7 +4481,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1877:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4190,7 +4498,8 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_LOCATION("warmelt-normal.melt:1877:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[9]))) ) /*then*/ @@ -4201,7 +4510,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "ENV_PREV"); - /*_.ENV_PREV__V33*/ meltfptr[29] = slot; + /*_.ENV_PREV__V33*/ + meltfptr[29] = slot; }; ; } @@ -4231,18 +4541,23 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.ENV_PREV__V33*/ meltfptr[29]; - /*_.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 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V32*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];; + /*_._IF___V32*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1877:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.ENV_PREV__V33*/ meltfptr[29] = 0 ; + /*clear*/ /*_.ENV_PREV__V33*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V34*/ + meltfptr[33] = 0 ; } ; } @@ -4255,7 +4570,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1877:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4264,9 +4580,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V32*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V32*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4306,7 +4624,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L14*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4315,7 +4634,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1878:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4331,7 +4651,8 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_LOCATION("warmelt-normal.melt:1878:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[9]))) ) /*then*/ @@ -4342,7 +4663,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "ENV_PREV"); - /*_.ENV_PREV__V36*/ meltfptr[33] = slot; + /*_.ENV_PREV__V36*/ + meltfptr[33] = slot; }; ; } @@ -4353,7 +4675,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:1878:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ENV_PREV__V36*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[9]))) ) /*then*/ @@ -4364,7 +4687,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ENV_PREV__V36*/ meltfptr[33]) /*=obj*/; melt_object_get_field(slot,obj, 1, "ENV_PREV"); - /*_.ENV_PREV__V37*/ meltfptr[30] = slot; + /*_.ENV_PREV__V37*/ + meltfptr[30] = slot; }; ; } @@ -4394,20 +4718,26 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.ENV_PREV__V37*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V38*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V35*/ meltfptr[29] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; + /*_._IF___V35*/ + meltfptr[29] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1878:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.ENV_PREV__V36*/ meltfptr[33] = 0 ; + /*clear*/ /*_.ENV_PREV__V36*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.ENV_PREV__V37*/ meltfptr[30] = 0 ; + /*clear*/ /*_.ENV_PREV__V37*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ + meltfptr[37] = 0 ; } ; } @@ -4420,7 +4750,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1878:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4429,9 +4760,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V35*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IF___V35*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4471,7 +4804,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ meltfnum[10] = + /*_#MELT_NEED_DBG__L16*/ + meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4480,7 +4814,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1879:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4496,7 +4831,8 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_LOCATION("warmelt-normal.melt:1879:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[9]))) ) /*then*/ @@ -4507,7 +4843,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "ENV_PREV"); - /*_.ENV_PREV__V40*/ meltfptr[30] = slot; + /*_.ENV_PREV__V40*/ + meltfptr[30] = slot; }; ; } @@ -4518,7 +4855,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:1879:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ENV_PREV__V40*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[9]))) ) /*then*/ @@ -4529,7 +4867,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ENV_PREV__V40*/ meltfptr[30]) /*=obj*/; melt_object_get_field(slot,obj, 1, "ENV_PREV"); - /*_.ENV_PREV__V41*/ meltfptr[37] = slot; + /*_.ENV_PREV__V41*/ + meltfptr[37] = slot; }; ; } @@ -4540,7 +4879,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:1879:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ENV_PREV__V41*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[9]))) ) /*then*/ @@ -4551,7 +4891,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ENV_PREV__V41*/ meltfptr[37]) /*=obj*/; melt_object_get_field(slot,obj, 1, "ENV_PREV"); - /*_.ENV_PREV__V42*/ meltfptr[29] = slot; + /*_.ENV_PREV__V42*/ + meltfptr[29] = slot; }; ; } @@ -4579,22 +4920,29 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_symbol bad name envprev3="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ENV_PREV__V42*/ meltfptr[29]; - /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V39*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];; + /*_._IF___V39*/ + meltfptr[33] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1879:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.ENV_PREV__V40*/ meltfptr[30] = 0 ; + /*clear*/ /*_.ENV_PREV__V40*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.ENV_PREV__V41*/ meltfptr[37] = 0 ; + /*clear*/ /*_.ENV_PREV__V41*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.ENV_PREV__V42*/ meltfptr[29] = 0 ; + /*clear*/ /*_.ENV_PREV__V42*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[42] = 0 ; } ; } @@ -4607,7 +4955,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1879:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4616,9 +4965,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V39*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4641,10 +4992,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_IS_BOOTSTRAPPING__L18*/ meltfnum[9] = + /*_#MELT_IS_BOOTSTRAPPING__L18*/ + meltfnum[9] = (melt_flag_bootstrapping);; MELT_LOCATION("warmelt-normal.melt:1880:/ cond"); - /*cond*/ if (/*_#MELT_IS_BOOTSTRAPPING__L18*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_IS_BOOTSTRAPPING__L18*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4662,7 +5015,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V46*/ meltfptr[29] = (/*nil*/NULL);; @@ -4693,23 +5047,28 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V47*/ + meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V46*/ meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[42];; + /*_._IFELSE___V46*/ + meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1881:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[42] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V47*/ + meltfptr[42] = 0 ; } ; } ; - /*_.IFCPP___V45*/ meltfptr[37] = /*_._IFELSE___V46*/ meltfptr[29];; + /*_.IFCPP___V45*/ + meltfptr[37] = /*_._IFELSE___V46*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1881:/ clear"); - /*clear*/ /*_._IFELSE___V46*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IFELSE___V46*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4718,11 +5077,13 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_._IF___V44*/ meltfptr[30] = /*_.IFCPP___V45*/ meltfptr[37];; + /*_._IF___V44*/ + meltfptr[30] = /*_.IFCPP___V45*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1880:/ clear"); - /*clear*/ /*_.IFCPP___V45*/ meltfptr[37] = 0 ; + /*clear*/ /*_.IFCPP___V45*/ + meltfptr[37] = 0 ; } ; } @@ -4738,7 +5099,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:1882:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*nil*/NULL);; MELT_LOCATION("warmelt-normal.melt:1882:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -4746,25 +5108,33 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:1872:/ quasiblock"); - /*_.PROGN___V49*/ meltfptr[42] = /*_.RETURN___V48*/ meltfptr[33];; + /*_.PROGN___V49*/ + meltfptr[42] = /*_.RETURN___V48*/ meltfptr[33];; /*^compute*/ - /*_._IF___V28*/ meltfptr[27] = /*_.PROGN___V49*/ meltfptr[42];; + /*_._IF___V28*/ + meltfptr[27] = /*_.PROGN___V49*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1872:/ clear"); - /*clear*/ /*_.ERROR_AT__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.ERROR_AT__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_#MELT_IS_BOOTSTRAPPING__L18*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_IS_BOOTSTRAPPING__L18*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V44*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V44*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V48*/ meltfptr[33] = 0 ; + /*clear*/ /*_.RETURN___V48*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V49*/ meltfptr[42] = 0 ; + /*clear*/ /*_.PROGN___V49*/ + meltfptr[42] = 0 ; } ; } @@ -4778,10 +5148,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L19*/ meltfnum[10] = + /*_#IS_A__L19*/ + meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NORMAL_MAGIC_BINDING*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-normal.melt:1884:/ cond"); - /*cond*/ if (/*_#IS_A__L19*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#IS_A__L19*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4792,7 +5164,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NORMAL_MAGIC_BINDING*/ meltfrout->tabval[10]))) ) /*then*/ @@ -4803,7 +5176,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NMAGIC_VALUE"); - /*_.MAGVAL__V52*/ meltfptr[28] = slot; + /*_.MAGVAL__V52*/ + meltfptr[28] = slot; }; ; } @@ -4833,7 +5207,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L20*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4842,7 +5217,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1887:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L20*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4875,16 +5251,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_symbol magicbind magval="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MAGVAL__V52*/ meltfptr[28]; - /*_.MELT_DEBUG_FUN__V54*/ 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__V54*/ + 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___V53*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[33];; + /*_._IF___V53*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1887:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ + meltfptr[33] = 0 ; } ; } @@ -4897,7 +5277,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1887:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4906,9 +5287,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V53*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V53*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4931,10 +5314,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L22*/ meltfnum[20] = + /*_#IS_A__L22*/ + meltfnum[20] = melt_is_instance_of((melt_ptr_t)(/*_.MAGVAL__V52*/ meltfptr[28]), (melt_ptr_t)((/*!DISCR_NORMALIZING_CLOSURE*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-normal.melt:1888:/ cond"); - /*cond*/ if (/*_#IS_A__L22*/ meltfnum[20]) /*then*/ + /*cond*/ + if (/*_#IS_A__L22*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4961,7 +5346,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V58*/ meltfptr[57]; /*^multiapply.appl*/ - /*_.NVAL__V57*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)(/*_.MAGVAL__V52*/ meltfptr[28]), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NVAL__V57*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)(/*_.MAGVAL__V52*/ meltfptr[28]), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -4987,7 +5373,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L23*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L23*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4996,7 +5383,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1892:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L23*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5033,16 +5421,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V58*/ meltfptr[57]; - /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V60*/ + meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V59*/ meltfptr[58] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59];; + /*_._IF___V59*/ + meltfptr[58] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1892:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L24*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ + meltfptr[59] = 0 ; } ; } @@ -5055,7 +5447,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1892:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5064,9 +5457,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L23*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_._IF___V59*/ + meltfptr[58] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5092,7 +5487,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:1893:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.NVAL__V57*/ meltfptr[30];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.NVAL__V57*/ meltfptr[30];; MELT_LOCATION("warmelt-normal.melt:1893:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -5100,22 +5496,28 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V56*/ meltfptr[33] = /*_.RETURN___V61*/ meltfptr[59];; + /*_.MULTI___V56*/ + meltfptr[33] = /*_.RETURN___V61*/ meltfptr[59];; MELT_LOCATION("warmelt-normal.melt:1889:/ clear"); - /*clear*/ /*_.RETURN___V61*/ meltfptr[59] = 0 ; + /*clear*/ /*_.RETURN___V61*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V58*/ meltfptr[57] = 0 ; - /*_._IFELSE___V55*/ meltfptr[42] = /*_.MULTI___V56*/ meltfptr[33];; + /*clear*/ /*_.NBIND__V58*/ + meltfptr[57] = 0 ; + /*_._IFELSE___V55*/ + meltfptr[42] = /*_.MULTI___V56*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1888:/ clear"); - /*clear*/ /*_.MULTI___V56*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MULTI___V56*/ + meltfptr[33] = 0 ; } ; } @@ -5146,7 +5548,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)) @@ -5155,7 +5558,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1895:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L25*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L25*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5192,16 +5596,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n gives magval="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MAGVAL__V52*/ meltfptr[28]; - /*_.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[58] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[59];; + /*_._IF___V62*/ + meltfptr[58] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[59];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1895:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L26*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L26*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ meltfptr[59] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ + meltfptr[59] = 0 ; } ; } @@ -5214,7 +5622,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1895:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5223,9 +5632,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L25*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L25*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V62*/ meltfptr[58] = 0 ; + /*clear*/ /*_._IF___V62*/ + meltfptr[58] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5251,7 +5662,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:1896:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.MAGVAL__V52*/ meltfptr[28];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.MAGVAL__V52*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:1896:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -5259,36 +5671,47 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:1894:/ quasiblock"); - /*_.PROGN___V65*/ meltfptr[57] = /*_.RETURN___V64*/ meltfptr[30];; + /*_.PROGN___V65*/ + meltfptr[57] = /*_.RETURN___V64*/ meltfptr[30];; /*^compute*/ - /*_._IFELSE___V55*/ meltfptr[42] = /*_.PROGN___V65*/ meltfptr[57];; + /*_._IFELSE___V55*/ + meltfptr[42] = /*_.PROGN___V65*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1888:/ clear"); - /*clear*/ /*_.RETURN___V64*/ meltfptr[30] = 0 ; + /*clear*/ /*_.RETURN___V64*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V65*/ meltfptr[57] = 0 ; + /*clear*/ /*_.PROGN___V65*/ + meltfptr[57] = 0 ; } ; } ; - /*_.LET___V51*/ meltfptr[37] = /*_._IFELSE___V55*/ meltfptr[42];; + /*_.LET___V51*/ + meltfptr[37] = /*_._IFELSE___V55*/ meltfptr[42];; MELT_LOCATION("warmelt-normal.melt:1885:/ clear"); - /*clear*/ /*_.MAGVAL__V52*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MAGVAL__V52*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L22*/ meltfnum[20] = 0 ; + /*clear*/ /*_#IS_A__L22*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V55*/ meltfptr[42] = 0 ; - /*_._IF___V50*/ meltfptr[29] = /*_.LET___V51*/ meltfptr[37];; + /*clear*/ /*_._IFELSE___V55*/ + meltfptr[42] = 0 ; + /*_._IF___V50*/ + meltfptr[29] = /*_.LET___V51*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1884:/ clear"); - /*clear*/ /*_.LET___V51*/ meltfptr[37] = 0 ; + /*clear*/ /*_.LET___V51*/ + meltfptr[37] = 0 ; } ; } @@ -5306,10 +5729,12 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NCTX_SYMBCACHEMAP"); - /*_.SYCMAP__V67*/ meltfptr[59] = slot; + /*_.SYCMAP__V67*/ + meltfptr[59] = slot; }; ; - /*_.SYCA__V68*/ meltfptr[58] = + /*_.SYCA__V68*/ + meltfptr[58] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.SYCMAP__V67*/ meltfptr[59]), (meltobject_ptr_t)(/*_.RECV__V2*/ meltfptr[1]));; @@ -5322,10 +5747,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MAPOBJECT__L27*/ meltfnum[9] = + /*_#IS_MAPOBJECT__L27*/ + meltfnum[9] = /*is_mapobject:*/(melt_magic_discr((melt_ptr_t)(/*_.SYCMAP__V67*/ meltfptr[59])) == MELTOBMAG_MAPOBJECTS);; MELT_LOCATION("warmelt-normal.melt:1902:/ cond"); - /*cond*/ if (/*_#IS_MAPOBJECT__L27*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#IS_MAPOBJECT__L27*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V70*/ meltfptr[57] = (/*nil*/NULL);; @@ -5354,25 +5781,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1902; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SYCMAP__V67*/ meltfptr[59]; - /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V71*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V70*/ meltfptr[57] = /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[28];; + /*_._IFELSE___V70*/ + meltfptr[57] = /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1902:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V71*/ + meltfptr[28] = 0 ; } ; } ; - /*_.IFCPP___V69*/ meltfptr[30] = /*_._IFELSE___V70*/ meltfptr[57];; + /*_.IFCPP___V69*/ + meltfptr[30] = /*_._IFELSE___V70*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1902:/ clear"); - /*clear*/ /*_#IS_MAPOBJECT__L27*/ meltfnum[9] = 0 ; + /*clear*/ /*_#IS_MAPOBJECT__L27*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V70*/ meltfptr[57] = 0 ; + /*clear*/ /*_._IFELSE___V70*/ + meltfptr[57] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5400,7 +5833,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)) @@ -5409,7 +5843,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1903:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L28*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L28*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5450,16 +5885,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. bind="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V15*/ meltfptr[5]; - /*_.MELT_DEBUG_FUN__V73*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V73*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V72*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[37];; + /*_._IF___V72*/ + meltfptr[42] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1903:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L29*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L29*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ + meltfptr[37] = 0 ; } ; } @@ -5472,7 +5911,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1903:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5481,9 +5921,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L28*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L28*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V72*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V72*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5507,7 +5949,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:1906:/ cond"); - /*cond*/ if (/*_.SYCA__V68*/ meltfptr[58]) /*then*/ + /*cond*/ + if (/*_.SYCA__V68*/ meltfptr[58]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5520,7 +5963,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:1907:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.SYCA__V68*/ meltfptr[58];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.SYCA__V68*/ meltfptr[58];; MELT_LOCATION("warmelt-normal.melt:1907:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -5528,12 +5972,15 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_._IFELSE___V74*/ meltfptr[28] = /*_.RETURN___V75*/ meltfptr[57];; + /*finalret*/ + goto meltlabend_rout ; + /*_._IFELSE___V74*/ + meltfptr[28] = /*_.RETURN___V75*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1906:/ clear"); - /*clear*/ /*_.RETURN___V75*/ meltfptr[57] = 0 ; + /*clear*/ /*_.RETURN___V75*/ + meltfptr[57] = 0 ; } ; } @@ -5547,10 +5994,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L30*/ meltfnum[9] = + /*_#IS_A__L30*/ + meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:1910:/ cond"); - /*cond*/ if (/*_#IS_A__L30*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#IS_A__L30*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5560,11 +6009,13 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:1911:/ quasiblock"); - /*_.BVAR__V78*/ meltfptr[57] = + /*_.BVAR__V78*/ + meltfptr[57] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.VALBINDMAP__V25*/ meltfptr[24]), (meltobject_ptr_t)(/*_.BIND__V15*/ meltfptr[5]));; MELT_LOCATION("warmelt-normal.melt:1912:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[12]))) ) /*then*/ @@ -5575,7 +6026,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 1, "VBIND_VALUE"); - /*_.VAL__V79*/ meltfptr[78] = slot; + /*_.VAL__V79*/ + meltfptr[78] = slot; }; ; } @@ -5605,7 +6057,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L31*/ meltfnum[20] = + /*_#MELT_NEED_DBG__L31*/ + meltfnum[20] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -5614,7 +6067,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1914:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L31*/ meltfnum[20]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L31*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5659,16 +6113,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n.. val="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.VAL__V79*/ meltfptr[78]; - /*_.MELT_DEBUG_FUN__V81*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V81*/ + meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V80*/ meltfptr[79] = /*_.MELT_DEBUG_FUN__V81*/ meltfptr[80];; + /*_._IF___V80*/ + meltfptr[79] = /*_.MELT_DEBUG_FUN__V81*/ meltfptr[80];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1914:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L32*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L32*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V81*/ meltfptr[80] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V81*/ + meltfptr[80] = 0 ; } ; } @@ -5681,7 +6139,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1914:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5690,9 +6149,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L31*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L31*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V80*/ meltfptr[79] = 0 ; + /*clear*/ /*_._IF___V80*/ + meltfptr[79] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5715,10 +6176,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L33*/ meltfnum[23] = + /*_#NULL__L33*/ + meltfnum[23] = (/*null*/(/*_.BVAR__V78*/ meltfptr[57]) == NULL);; MELT_LOCATION("warmelt-normal.melt:1916:/ cond"); - /*cond*/ if (/*_#NULL__L33*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#NULL__L33*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5731,10 +6194,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L34*/ meltfnum[20] = + /*_#IS_A__L34*/ + meltfnum[20] = melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V24*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_RUNNING_EXTENSION_MODULE_CONTEXT*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-normal.melt:1918:/ cond"); - /*cond*/ if (/*_#IS_A__L34*/ meltfnum[20]) /*then*/ + /*cond*/ + if (/*_#IS_A__L34*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5754,7 +6219,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V24*/ meltfptr[17]; - /*_.REGLITVAL__V84*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_LITERAL_VALUE*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.VAL__V79*/ meltfptr[78]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.REGLITVAL__V84*/ + meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_LITERAL_VALUE*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.VAL__V79*/ meltfptr[78]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5768,7 +6234,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LITERALNAMEDVALUE*/ meltfrout->tabval[15])), (3), "CLASS_NREP_LITERALNAMEDVALUE"); - /*_.INST__V86*/ meltfptr[85] = + /*_.INST__V86*/ + meltfptr[85] = newobj; }; ; @@ -5786,7 +6253,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V86*/ meltfptr[85], "newly made instance"); ; - /*_.NLITVAL__V85*/ meltfptr[84] = /*_.INST__V86*/ meltfptr[85];; + /*_.NLITVAL__V85*/ + meltfptr[84] = /*_.INST__V86*/ meltfptr[85];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:1925:/ cppif.then"); @@ -5807,7 +6275,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L35*/ meltfnum[34] = + /*_#MELT_NEED_DBG__L35*/ + meltfnum[34] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -5816,7 +6285,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1925:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L35*/ meltfnum[34]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L35*/ meltfnum[34]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5849,16 +6319,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_symbol nlitval="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NLITVAL__V85*/ meltfptr[84]; - /*_.MELT_DEBUG_FUN__V88*/ meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V88*/ + meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V87*/ meltfptr[86] = /*_.MELT_DEBUG_FUN__V88*/ meltfptr[87];; + /*_._IF___V87*/ + meltfptr[86] = /*_.MELT_DEBUG_FUN__V88*/ meltfptr[87];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1925:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L36*/ meltfnum[35] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L36*/ + meltfnum[35] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V88*/ meltfptr[87] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V88*/ + meltfptr[87] = 0 ; } ; } @@ -5871,7 +6345,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1925:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5880,9 +6355,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L35*/ meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L35*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V87*/ meltfptr[86] = 0 ; + /*clear*/ /*_._IF___V87*/ + meltfptr[86] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5902,17 +6379,22 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V83*/ meltfptr[79] = /*_.NLITVAL__V85*/ meltfptr[84];; + /*_.LET___V83*/ + meltfptr[79] = /*_.NLITVAL__V85*/ meltfptr[84];; MELT_LOCATION("warmelt-normal.melt:1919:/ clear"); - /*clear*/ /*_.REGLITVAL__V84*/ meltfptr[83] = 0 ; + /*clear*/ /*_.REGLITVAL__V84*/ + meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_.NLITVAL__V85*/ meltfptr[84] = 0 ; - /*_.NEWBVAR__V82*/ meltfptr[80] = /*_.LET___V83*/ meltfptr[79];; + /*clear*/ /*_.NLITVAL__V85*/ + meltfptr[84] = 0 ; + /*_.NEWBVAR__V82*/ + meltfptr[80] = /*_.LET___V83*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1918:/ clear"); - /*clear*/ /*_.LET___V83*/ meltfptr[79] = 0 ; + /*clear*/ /*_.LET___V83*/ + meltfptr[79] = 0 ; } ; } @@ -5938,7 +6420,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4]; - /*_.NORMAL_SYMBOL_DATA__V89*/ meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_SYMBOL_DATA__V89*/ + meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:1930:/ quasiblock"); @@ -5949,7 +6432,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IMPORTEDVAL*/ meltfrout->tabval[16])), (3), "CLASS_NREP_IMPORTEDVAL"); - /*_.INST__V91*/ meltfptr[83] = + /*_.INST__V91*/ + meltfptr[83] = newobj; }; ; @@ -5972,21 +6456,27 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V91*/ meltfptr[83], "newly made instance"); ; - /*_.INST___V90*/ meltfptr[86] = /*_.INST__V91*/ meltfptr[83];; + /*_.INST___V90*/ + meltfptr[86] = /*_.INST__V91*/ meltfptr[83];; MELT_LOCATION("warmelt-normal.melt:1929:/ quasiblock"); - /*_.PROGN___V92*/ meltfptr[84] = /*_.INST___V90*/ meltfptr[86];; + /*_.PROGN___V92*/ + meltfptr[84] = /*_.INST___V90*/ meltfptr[86];; /*^compute*/ - /*_.NEWBVAR__V82*/ meltfptr[80] = /*_.PROGN___V92*/ meltfptr[84];; + /*_.NEWBVAR__V82*/ + meltfptr[80] = /*_.PROGN___V92*/ meltfptr[84];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1918:/ clear"); - /*clear*/ /*_.NORMAL_SYMBOL_DATA__V89*/ meltfptr[87] = 0 ; + /*clear*/ /*_.NORMAL_SYMBOL_DATA__V89*/ + meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V90*/ meltfptr[86] = 0 ; + /*clear*/ /*_.INST___V90*/ + meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V92*/ meltfptr[84] = 0 ; + /*clear*/ /*_.PROGN___V92*/ + meltfptr[84] = 0 ; } ; } @@ -6000,7 +6490,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:1936:/ compute"); - /*_.BVAR__V78*/ meltfptr[57] = /*_.SETQ___V93*/ meltfptr[79] = /*_.NEWBVAR__V82*/ meltfptr[80];; + /*_.BVAR__V78*/ + meltfptr[57] = /*_.SETQ___V93*/ meltfptr[79] = /*_.NEWBVAR__V82*/ meltfptr[80];; { MELT_LOCATION("warmelt-normal.melt:1937:/ locexp"); @@ -6027,7 +6518,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)) @@ -6036,7 +6528,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1938:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[35]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L37*/ meltfnum[35]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6073,16 +6566,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. valuelist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.VALUELIST__V26*/ meltfptr[25]; - /*_.MELT_DEBUG_FUN__V95*/ meltfptr[86] = melt_apply ((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[86] = melt_apply ((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[87] = /*_.MELT_DEBUG_FUN__V95*/ meltfptr[86];; + /*_._IF___V94*/ + meltfptr[87] = /*_.MELT_DEBUG_FUN__V95*/ meltfptr[86];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1938:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L38*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V95*/ meltfptr[86] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V95*/ + meltfptr[86] = 0 ; } ; } @@ -6095,7 +6592,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1938:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6104,9 +6602,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[35] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L37*/ + meltfnum[35] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V94*/ meltfptr[87] = 0 ; + /*clear*/ /*_._IF___V94*/ + meltfptr[87] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6128,11 +6628,14 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:1917:/ clear"); - /*clear*/ /*_#IS_A__L34*/ meltfnum[20] = 0 ; + /*clear*/ /*_#IS_A__L34*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWBVAR__V82*/ meltfptr[80] = 0 ; + /*clear*/ /*_.NEWBVAR__V82*/ + meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V93*/ meltfptr[79] = 0 ; + /*clear*/ /*_.SETQ___V93*/ + meltfptr[79] = 0 ; /*epilog*/ } ; @@ -6158,7 +6661,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L39*/ meltfnum[34] = + /*_#MELT_NEED_DBG__L39*/ + meltfnum[34] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6167,7 +6671,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1942:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L39*/ meltfnum[34]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L39*/ meltfnum[34]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6204,16 +6709,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. procs="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.PROCS__V16*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V97*/ meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V97*/ + meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V96*/ meltfptr[84] = /*_.MELT_DEBUG_FUN__V97*/ meltfptr[86];; + /*_._IF___V96*/ + meltfptr[84] = /*_.MELT_DEBUG_FUN__V97*/ meltfptr[86];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1942:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L40*/ meltfnum[35] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L40*/ + meltfnum[35] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V97*/ meltfptr[86] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V97*/ + meltfptr[86] = 0 ; } ; } @@ -6226,7 +6735,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1942:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6235,9 +6745,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L39*/ meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L39*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V96*/ meltfptr[84] = 0 ; + /*clear*/ /*_._IF___V96*/ + meltfptr[84] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6263,10 +6775,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L41*/ meltfnum[20] = + /*_#IS_LIST__L41*/ + meltfnum[20] = (melt_magic_discr((melt_ptr_t)(/*_.PROCS__V16*/ meltfptr[15])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:1943:/ cond"); - /*cond*/ if (/*_#IS_LIST__L41*/ meltfnum[20]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L41*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6276,16 +6790,20 @@ meltlab_endgetargs: /*_.LIST_FIRST__V98*/ meltfptr[87] = (melt_list_first((melt_ptr_t)(/*_.PROCS__V16*/ meltfptr[15])));; /*^compute*/ - /*_#IS_PAIR__L43*/ meltfnum[34] = + /*_#IS_PAIR__L43*/ + meltfnum[34] = (melt_magic_discr((melt_ptr_t)(/*_.LIST_FIRST__V98*/ meltfptr[87])) == MELTOBMAG_PAIR);; /*^compute*/ - /*_#_IF___L42*/ meltfnum[35] = /*_#IS_PAIR__L43*/ meltfnum[34];; + /*_#_IF___L42*/ + meltfnum[35] = /*_#IS_PAIR__L43*/ meltfnum[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1943:/ clear"); - /*clear*/ /*_.LIST_FIRST__V98*/ meltfptr[87] = 0 ; + /*clear*/ /*_.LIST_FIRST__V98*/ + meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_PAIR__L43*/ meltfnum[34] = 0 ; + /*clear*/ /*_#IS_PAIR__L43*/ + meltfnum[34] = 0 ; } ; } @@ -6296,7 +6814,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:1943:/ cond"); - /*cond*/ if (/*_#_IF___L42*/ meltfnum[35]) /*then*/ + /*cond*/ + if (/*_#_IF___L42*/ meltfnum[35]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6317,7 +6836,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ meltfrout->tabval[18])), (5), "CLASS_NREP_CONSTOCC"); - /*_.INST__V102*/ meltfptr[84] = + /*_.INST__V102*/ + meltfptr[84] = newobj; }; ; @@ -6350,7 +6870,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V102*/ meltfptr[84], "newly made instance"); ; - /*_.FXOCC__V101*/ meltfptr[86] = /*_.INST__V102*/ meltfptr[84];; + /*_.FXOCC__V101*/ + meltfptr[86] = /*_.INST__V102*/ meltfptr[84];; { MELT_LOCATION("warmelt-normal.melt:1954:/ locexp"); @@ -6379,7 +6900,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L44*/ meltfnum[34] = + /*_#MELT_NEED_DBG__L44*/ + meltfnum[34] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6388,7 +6910,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1955:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L44*/ meltfnum[34]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L44*/ meltfnum[34]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6439,16 +6962,20 @@ meltlab_endgetargs: argtab[12].meltbp_cstring = "\n.. for symbname="; /*^apply.arg*/ argtab[13].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBNAME__V27*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V104*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V104*/ + 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V103*/ meltfptr[87] = /*_.MELT_DEBUG_FUN__V104*/ meltfptr[103];; + /*_._IF___V103*/ + meltfptr[87] = /*_.MELT_DEBUG_FUN__V104*/ meltfptr[103];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1955:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L45*/ meltfnum[44] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L45*/ + meltfnum[44] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V104*/ meltfptr[103] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V104*/ + meltfptr[103] = 0 ; } ; } @@ -6461,7 +6988,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1955:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6470,9 +6998,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L44*/ meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L44*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V103*/ meltfptr[87] = 0 ; + /*clear*/ /*_._IF___V103*/ + meltfptr[87] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6522,7 +7052,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L46*/ meltfnum[44] = + /*_#MELT_NEED_DBG__L46*/ + meltfnum[44] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6531,7 +7062,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1962:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L46*/ meltfnum[44]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L46*/ meltfnum[44]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6572,16 +7104,20 @@ meltlab_endgetargs: argtab[7].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[6]); /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PR__V106*/ meltfptr[87]; - /*_.MELT_DEBUG_FUN__V108*/ meltfptr[107] = melt_apply ((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_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V108*/ + meltfptr[107] = melt_apply ((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_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V107*/ meltfptr[106] = /*_.MELT_DEBUG_FUN__V108*/ meltfptr[107];; + /*_._IF___V107*/ + meltfptr[106] = /*_.MELT_DEBUG_FUN__V108*/ meltfptr[107];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1962:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L47*/ meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L47*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V108*/ meltfptr[107] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V108*/ + meltfptr[107] = 0 ; } ; } @@ -6594,7 +7130,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1962:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6603,9 +7140,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L46*/ meltfnum[44] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L46*/ + meltfnum[44] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V107*/ meltfptr[106] = 0 ; + /*clear*/ /*_._IF___V107*/ + meltfptr[106] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6635,10 +7174,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L48*/ meltfnum[34] = + /*_#IS_A__L48*/ + meltfnum[34] = melt_is_instance_of((melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ meltfrout->tabval[20])));; MELT_LOCATION("warmelt-normal.melt:1963:/ cond"); - /*cond*/ if (/*_#IS_A__L48*/ meltfnum[34]) /*then*/ + /*cond*/ + if (/*_#IS_A__L48*/ meltfnum[34]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V110*/ meltfptr[106] = (/*nil*/NULL);; @@ -6667,25 +7208,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1963; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PR__V106*/ meltfptr[87]; - /*_.MELT_ASSERT_FAILURE_FUN__V111*/ meltfptr[110] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V111*/ + meltfptr[110] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V110*/ meltfptr[106] = /*_.MELT_ASSERT_FAILURE_FUN__V111*/ meltfptr[110];; + /*_._IFELSE___V110*/ + meltfptr[106] = /*_.MELT_ASSERT_FAILURE_FUN__V111*/ meltfptr[110];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1963:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V111*/ meltfptr[110] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V111*/ + meltfptr[110] = 0 ; } ; } ; - /*_.IFCPP___V109*/ meltfptr[107] = /*_._IFELSE___V110*/ meltfptr[106];; + /*_.IFCPP___V109*/ + meltfptr[107] = /*_._IFELSE___V110*/ meltfptr[106];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1963:/ clear"); - /*clear*/ /*_#IS_A__L48*/ meltfnum[34] = 0 ; + /*clear*/ /*_#IS_A__L48*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V110*/ meltfptr[106] = 0 ; + /*clear*/ /*_._IFELSE___V110*/ + meltfptr[106] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6697,10 +7244,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L49*/ meltfnum[44] = + /*_#IS_A__L49*/ + meltfnum[44] = melt_is_instance_of((melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[21])));; MELT_LOCATION("warmelt-normal.melt:1964:/ cond"); - /*cond*/ if (/*_#IS_A__L49*/ meltfnum[44]) /*then*/ + /*cond*/ + if (/*_#IS_A__L49*/ meltfnum[44]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6721,7 +7270,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22])), (1), "CLASS_REFERENCE"); - /*_.INST__V114*/ meltfptr[113] = + /*_.INST__V114*/ + meltfptr[113] = newobj; }; ; @@ -6734,9 +7284,11 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V114*/ meltfptr[113], "newly made instance"); ; - /*_.CLCONT__V113*/ meltfptr[106] = /*_.INST__V114*/ meltfptr[113];; + /*_.CLCONT__V113*/ + meltfptr[106] = /*_.INST__V114*/ meltfptr[113];; MELT_LOCATION("warmelt-normal.melt:1967:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[23]))) ) /*then*/ @@ -6747,7 +7299,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NRCLOP_CONSTLIST"); - /*_.CNSTLIST__V115*/ meltfptr[114] = slot; + /*_.CNSTLIST__V115*/ + meltfptr[114] = slot; }; ; } @@ -6777,7 +7330,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L50*/ meltfnum[34] = + /*_#MELT_NEED_DBG__L50*/ + meltfnum[34] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6786,7 +7340,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1968:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L50*/ meltfnum[34]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L50*/ meltfnum[34]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6827,16 +7382,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. recv="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V117*/ meltfptr[116] = melt_apply ((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__V117*/ + meltfptr[116] = melt_apply ((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___V116*/ meltfptr[115] = /*_.MELT_DEBUG_FUN__V117*/ meltfptr[116];; + /*_._IF___V116*/ + meltfptr[115] = /*_.MELT_DEBUG_FUN__V117*/ meltfptr[116];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1968:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L51*/ meltfnum[50] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L51*/ + meltfnum[50] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V117*/ meltfptr[116] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V117*/ + meltfptr[116] = 0 ; } ; } @@ -6849,7 +7408,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1968:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6858,9 +7418,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L50*/ meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L50*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V116*/ meltfptr[115] = 0 ; + /*clear*/ /*_._IF___V116*/ + meltfptr[115] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6893,10 +7455,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L52*/ meltfnum[50] = + /*_#eqeq__L52*/ + meltfnum[50] = ((/*_.CX__V119*/ meltfptr[115]) == (/*_.FXOCC__V101*/ meltfptr[86]));; MELT_LOCATION("warmelt-normal.melt:1972:/ cond"); - /*cond*/ if (/*_#eqeq__L52*/ meltfnum[50]) /*then*/ + /*cond*/ + if (/*_#eqeq__L52*/ meltfnum[50]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6907,7 +7471,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:1973:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLCONT__V113*/ meltfptr[106]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22]))) ) /*then*/ @@ -6944,24 +7509,29 @@ meltlab_endgetargs: ; } /* end foreach_pair_component_in_list meltcit2__EACHLIST */ /*_.CURPAIRCX__V118*/ meltfptr[116] = NULL; - /*_.CX__V119*/ meltfptr[115] = NULL; + /*_.CX__V119*/ + meltfptr[115] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:1969:/ clear"); - /*clear*/ /*_.CURPAIRCX__V118*/ meltfptr[116] = 0 ; + /*clear*/ /*_.CURPAIRCX__V118*/ + meltfptr[116] = 0 ; /*^clear*/ - /*clear*/ /*_.CX__V119*/ meltfptr[115] = 0 ; + /*clear*/ /*_.CX__V119*/ + meltfptr[115] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L52*/ meltfnum[50] = 0 ; + /*clear*/ /*_#eqeq__L52*/ + meltfnum[50] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_LOCATION("warmelt-normal.melt:1974:/ quasiblock"); /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLCONT__V113*/ meltfptr[106]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22]))) ) /*then*/ @@ -6972,7 +7542,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLCONT__V113*/ meltfptr[106]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.NEWCL__V120*/ meltfptr[119] = slot; + /*_.NEWCL__V120*/ + meltfptr[119] = slot; }; ; } @@ -6986,7 +7557,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:1975:/ cond"); - /*cond*/ if (/*_.NEWCL__V120*/ meltfptr[119]) /*then*/ + /*cond*/ + if (/*_.NEWCL__V120*/ meltfptr[119]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7013,7 +7585,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L53*/ meltfnum[34] = + /*_#MELT_NEED_DBG__L53*/ + meltfnum[34] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7022,7 +7595,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1976:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L53*/ meltfnum[34]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L53*/ meltfnum[34]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7055,16 +7629,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_symbol newcl="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWCL__V120*/ meltfptr[119]; - /*_.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-normal.melt:1976:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L54*/ meltfnum[53] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L54*/ + meltfnum[53] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V122*/ meltfptr[121] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V122*/ + meltfptr[121] = 0 ; } ; } @@ -7077,7 +7655,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1976:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -7086,9 +7665,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L53*/ meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L53*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V121*/ meltfptr[120] = 0 ; + /*clear*/ /*_._IF___V121*/ + meltfptr[120] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7129,12 +7710,15 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:1974:/ clear"); - /*clear*/ /*_.NEWCL__V120*/ meltfptr[119] = 0 ; + /*clear*/ /*_.NEWCL__V120*/ + meltfptr[119] = 0 ; MELT_LOCATION("warmelt-normal.melt:1965:/ clear"); - /*clear*/ /*_.CLCONT__V113*/ meltfptr[106] = 0 ; + /*clear*/ /*_.CLCONT__V113*/ + meltfptr[106] = 0 ; /*^clear*/ - /*clear*/ /*_.CNSTLIST__V115*/ meltfptr[114] = 0 ; + /*clear*/ /*_.CNSTLIST__V115*/ + meltfptr[114] = 0 ; /*epilog*/ } ; @@ -7150,10 +7734,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L55*/ meltfnum[53] = + /*_#IS_A__L55*/ + meltfnum[53] = melt_is_instance_of((melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[24])));; MELT_LOCATION("warmelt-normal.melt:1979:/ cond"); - /*cond*/ if (/*_#IS_A__L55*/ meltfnum[53]) /*then*/ + /*cond*/ + if (/*_#IS_A__L55*/ meltfnum[53]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7164,7 +7750,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[23]))) ) /*then*/ @@ -7175,7 +7762,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NRCLOP_CLOBINDLIST"); - /*_.HKCLOBINDLIST__V124*/ meltfptr[120] = slot; + /*_.HKCLOBINDLIST__V124*/ + meltfptr[120] = slot; }; ; } @@ -7186,7 +7774,8 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.FOUNDBIND__V125*/ meltfptr[119] = (/*nil*/NULL);; + /*_.FOUNDBIND__V125*/ + meltfptr[119] = (/*nil*/NULL);; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:1983:/ cppif.then"); @@ -7207,7 +7796,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L56*/ meltfnum[34] = + /*_#MELT_NEED_DBG__L56*/ + meltfnum[34] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7216,7 +7806,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1983:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L56*/ meltfnum[34]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L56*/ meltfnum[34]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7249,16 +7840,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_symbol hkclobindlist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HKCLOBINDLIST__V124*/ meltfptr[120]; - /*_.MELT_DEBUG_FUN__V127*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V127*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V126*/ meltfptr[106] = /*_.MELT_DEBUG_FUN__V127*/ meltfptr[114];; + /*_._IF___V126*/ + meltfptr[106] = /*_.MELT_DEBUG_FUN__V127*/ meltfptr[114];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1983:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L57*/ meltfnum[56] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L57*/ + meltfnum[56] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V127*/ meltfptr[114] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V127*/ + meltfptr[114] = 0 ; } ; } @@ -7271,7 +7866,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1983:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -7280,9 +7876,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L56*/ meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L56*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V126*/ meltfptr[106] = 0 ; + /*clear*/ /*_._IF___V126*/ + meltfptr[106] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7312,10 +7910,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L58*/ meltfnum[56] = + /*_#IS_LIST__L58*/ + meltfnum[56] = (melt_magic_discr((melt_ptr_t)(/*_.HKCLOBINDLIST__V124*/ meltfptr[120])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:1984:/ cond"); - /*cond*/ if (/*_#IS_LIST__L58*/ meltfnum[56]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L58*/ meltfnum[56]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V129*/ meltfptr[106] = (/*nil*/NULL);; @@ -7344,25 +7944,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1984; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKCLOBINDLIST__V124*/ meltfptr[120]; - /*_.MELT_ASSERT_FAILURE_FUN__V130*/ meltfptr[129] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V130*/ + meltfptr[129] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V129*/ meltfptr[106] = /*_.MELT_ASSERT_FAILURE_FUN__V130*/ meltfptr[129];; + /*_._IFELSE___V129*/ + meltfptr[106] = /*_.MELT_ASSERT_FAILURE_FUN__V130*/ meltfptr[129];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1984:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V130*/ meltfptr[129] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V130*/ + meltfptr[129] = 0 ; } ; } ; - /*_.IFCPP___V128*/ meltfptr[114] = /*_._IFELSE___V129*/ meltfptr[106];; + /*_.IFCPP___V128*/ + meltfptr[114] = /*_._IFELSE___V129*/ meltfptr[106];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1984:/ clear"); - /*clear*/ /*_#IS_LIST__L58*/ meltfnum[56] = 0 ; + /*clear*/ /*_#IS_LIST__L58*/ + meltfnum[56] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V129*/ meltfptr[106] = 0 ; + /*clear*/ /*_._IFELSE___V129*/ + meltfptr[106] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7390,10 +7996,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L59*/ meltfnum[34] = + /*_#IS_A__L59*/ + meltfnum[34] = melt_is_instance_of((melt_ptr_t)(/*_.CURBND__V132*/ meltfptr[106]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[25])));; MELT_LOCATION("warmelt-normal.melt:1988:/ cond"); - /*cond*/ if (/*_#IS_A__L59*/ meltfnum[34]) /*then*/ + /*cond*/ + if (/*_#IS_A__L59*/ meltfnum[34]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V134*/ meltfptr[133] = (/*nil*/NULL);; @@ -7422,25 +8030,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1988; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURBND__V132*/ meltfptr[106]; - /*_.MELT_ASSERT_FAILURE_FUN__V135*/ meltfptr[134] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V135*/ + meltfptr[134] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V134*/ meltfptr[133] = /*_.MELT_ASSERT_FAILURE_FUN__V135*/ meltfptr[134];; + /*_._IFELSE___V134*/ + meltfptr[133] = /*_.MELT_ASSERT_FAILURE_FUN__V135*/ meltfptr[134];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1988:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V135*/ meltfptr[134] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V135*/ + meltfptr[134] = 0 ; } ; } ; - /*_.IFCPP___V133*/ meltfptr[132] = /*_._IFELSE___V134*/ meltfptr[133];; + /*_.IFCPP___V133*/ + meltfptr[132] = /*_._IFELSE___V134*/ meltfptr[133];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1988:/ clear"); - /*clear*/ /*_#IS_A__L59*/ meltfnum[34] = 0 ; + /*clear*/ /*_#IS_A__L59*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V134*/ meltfptr[133] = 0 ; + /*clear*/ /*_._IFELSE___V134*/ + meltfptr[133] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7452,10 +8066,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#eqeq__L60*/ meltfnum[56] = + /*_#eqeq__L60*/ + meltfnum[56] = ((/*_.CURBND__V132*/ meltfptr[106]) == (/*_.BIND__V15*/ meltfptr[5]));; MELT_LOCATION("warmelt-normal.melt:1989:/ cond"); - /*cond*/ if (/*_#eqeq__L60*/ meltfnum[56]) /*then*/ + /*cond*/ + if (/*_#eqeq__L60*/ meltfnum[56]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7464,11 +8080,13 @@ meltlab_endgetargs: /*^compute*/ /*_.FOUNDBIND__V125*/ meltfptr[119] = /*_.SETQ___V137*/ meltfptr[133] = /*_.CURBND__V132*/ meltfptr[106];; - /*_._IF___V136*/ meltfptr[134] = /*_.SETQ___V137*/ meltfptr[133];; + /*_._IF___V136*/ + meltfptr[134] = /*_.SETQ___V137*/ meltfptr[133];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1989:/ clear"); - /*clear*/ /*_.SETQ___V137*/ meltfptr[133] = 0 ; + /*clear*/ /*_.SETQ___V137*/ + meltfptr[133] = 0 ; } ; } @@ -7480,30 +8098,38 @@ meltlab_endgetargs: ; } /* end foreach_pair_component_in_list meltcit3__EACHLIST */ /*_.CURPAIRBNDHC__V131*/ meltfptr[129] = NULL; - /*_.CURBND__V132*/ meltfptr[106] = NULL; + /*_.CURBND__V132*/ + meltfptr[106] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:1985:/ clear"); - /*clear*/ /*_.CURPAIRBNDHC__V131*/ meltfptr[129] = 0 ; + /*clear*/ /*_.CURPAIRBNDHC__V131*/ + meltfptr[129] = 0 ; /*^clear*/ - /*clear*/ /*_.CURBND__V132*/ meltfptr[106] = 0 ; + /*clear*/ /*_.CURBND__V132*/ + meltfptr[106] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V133*/ meltfptr[132] = 0 ; + /*clear*/ /*_.IFCPP___V133*/ + meltfptr[132] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L60*/ meltfnum[56] = 0 ; + /*clear*/ /*_#eqeq__L60*/ + meltfnum[56] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V136*/ meltfptr[134] = 0 ; + /*clear*/ /*_._IF___V136*/ + meltfptr[134] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_CHECK_SIGNAL(); ; - /*_#NULL__L61*/ meltfnum[34] = + /*_#NULL__L61*/ + meltfnum[34] = (/*null*/(/*_.FOUNDBIND__V125*/ meltfptr[119]) == NULL);; MELT_LOCATION("warmelt-normal.melt:1991:/ cond"); - /*cond*/ if (/*_#NULL__L61*/ meltfnum[34]) /*then*/ + /*cond*/ + if (/*_#NULL__L61*/ meltfnum[34]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7536,7 +8162,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L62*/ meltfnum[61] = + /*_#MELT_NEED_DBG__L62*/ + meltfnum[61] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7545,7 +8172,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1993:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L62*/ meltfnum[61]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L62*/ meltfnum[61]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7582,16 +8210,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. updated hkclobindlist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.HKCLOBINDLIST__V124*/ meltfptr[120]; - /*_.MELT_DEBUG_FUN__V139*/ meltfptr[138] = melt_apply ((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__V139*/ + meltfptr[138] = melt_apply ((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___V138*/ meltfptr[133] = /*_.MELT_DEBUG_FUN__V139*/ meltfptr[138];; + /*_._IF___V138*/ + meltfptr[133] = /*_.MELT_DEBUG_FUN__V139*/ meltfptr[138];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1993:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L63*/ meltfnum[62] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L63*/ + meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V139*/ meltfptr[138] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V139*/ + meltfptr[138] = 0 ; } ; } @@ -7604,7 +8236,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1993:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -7613,9 +8246,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L62*/ meltfnum[61] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L62*/ + meltfnum[61] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V138*/ meltfptr[133] = 0 ; + /*clear*/ /*_._IF___V138*/ + meltfptr[133] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7643,16 +8278,21 @@ meltlab_endgetargs: ; } /*noelse*/ ; - /*_._IFELSE___V123*/ meltfptr[121] = /*_.IFCPP___V128*/ meltfptr[114];; + /*_._IFELSE___V123*/ + meltfptr[121] = /*_.IFCPP___V128*/ meltfptr[114];; MELT_LOCATION("warmelt-normal.melt:1980:/ clear"); - /*clear*/ /*_.HKCLOBINDLIST__V124*/ meltfptr[120] = 0 ; + /*clear*/ /*_.HKCLOBINDLIST__V124*/ + meltfptr[120] = 0 ; /*^clear*/ - /*clear*/ /*_.FOUNDBIND__V125*/ meltfptr[119] = 0 ; + /*clear*/ /*_.FOUNDBIND__V125*/ + meltfptr[119] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V128*/ meltfptr[114] = 0 ; + /*clear*/ /*_.IFCPP___V128*/ + meltfptr[114] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L61*/ meltfnum[34] = 0 ; + /*clear*/ /*_#NULL__L61*/ + meltfnum[34] = 0 ; /*epilog*/ } ; @@ -7685,7 +8325,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L64*/ meltfnum[62] = + /*_#MELT_NEED_DBG__L64*/ + meltfnum[62] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7694,7 +8335,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:1998:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L64*/ meltfnum[62]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L64*/ meltfnum[62]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7710,7 +8352,8 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ - /*_.DISCRIM__V141*/ meltfptr[133] = + /*_.DISCRIM__V141*/ + meltfptr[133] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]))));; MELT_CHECK_SIGNAL(); @@ -7734,18 +8377,23 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n... of discrim: "; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DISCRIM__V141*/ meltfptr[133]; - /*_.MELT_DEBUG_FUN__V142*/ meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V142*/ + meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V140*/ meltfptr[138] = /*_.MELT_DEBUG_FUN__V142*/ meltfptr[120];; + /*_._IF___V140*/ + meltfptr[138] = /*_.MELT_DEBUG_FUN__V142*/ meltfptr[120];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1998:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L65*/ meltfnum[61] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L65*/ + meltfnum[61] = 0 ; /*^clear*/ - /*clear*/ /*_.DISCRIM__V141*/ meltfptr[133] = 0 ; + /*clear*/ /*_.DISCRIM__V141*/ + meltfptr[133] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V142*/ meltfptr[120] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V142*/ + meltfptr[120] = 0 ; } ; } @@ -7758,7 +8406,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:1998:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -7767,9 +8416,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L64*/ meltfnum[62] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L64*/ + meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V140*/ meltfptr[138] = 0 ; + /*clear*/ /*_._IF___V140*/ + meltfptr[138] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7800,7 +8451,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V144*/ meltfptr[114] = (/*nil*/NULL);; @@ -7829,23 +8481,28 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1999; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PR__V106*/ meltfptr[87]; - /*_.MELT_ASSERT_FAILURE_FUN__V145*/ meltfptr[133] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V145*/ + meltfptr[133] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V144*/ meltfptr[114] = /*_.MELT_ASSERT_FAILURE_FUN__V145*/ meltfptr[133];; + /*_._IFELSE___V144*/ + meltfptr[114] = /*_.MELT_ASSERT_FAILURE_FUN__V145*/ meltfptr[133];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1999:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V145*/ meltfptr[133] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V145*/ + meltfptr[133] = 0 ; } ; } ; - /*_.IFCPP___V143*/ meltfptr[119] = /*_._IFELSE___V144*/ meltfptr[114];; + /*_.IFCPP___V143*/ + meltfptr[119] = /*_._IFELSE___V144*/ meltfptr[114];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1999:/ clear"); - /*clear*/ /*_._IFELSE___V144*/ meltfptr[114] = 0 ; + /*clear*/ /*_._IFELSE___V144*/ + meltfptr[114] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7856,47 +8513,60 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:1997:/ quasiblock"); - /*_.PROGN___V146*/ meltfptr[120] = /*_.IFCPP___V143*/ meltfptr[119];; + /*_.PROGN___V146*/ + meltfptr[120] = /*_.IFCPP___V143*/ meltfptr[119];; /*^compute*/ - /*_._IFELSE___V123*/ meltfptr[121] = /*_.PROGN___V146*/ meltfptr[120];; + /*_._IFELSE___V123*/ + meltfptr[121] = /*_.PROGN___V146*/ meltfptr[120];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1979:/ clear"); - /*clear*/ /*_.IFCPP___V143*/ meltfptr[119] = 0 ; + /*clear*/ /*_.IFCPP___V143*/ + meltfptr[119] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V146*/ meltfptr[120] = 0 ; + /*clear*/ /*_.PROGN___V146*/ + meltfptr[120] = 0 ; } ; } ; - /*_._IFELSE___V112*/ meltfptr[110] = /*_._IFELSE___V123*/ meltfptr[121];; + /*_._IFELSE___V112*/ + meltfptr[110] = /*_._IFELSE___V123*/ meltfptr[121];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1964:/ clear"); - /*clear*/ /*_#IS_A__L55*/ meltfnum[53] = 0 ; + /*clear*/ /*_#IS_A__L55*/ + meltfnum[53] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V123*/ meltfptr[121] = 0 ; + /*clear*/ /*_._IFELSE___V123*/ + meltfptr[121] = 0 ; } ; } ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURPAIRPRO__V105*/ meltfptr[103] = NULL; - /*_.PR__V106*/ meltfptr[87] = NULL; + /*_.PR__V106*/ + meltfptr[87] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:1959:/ clear"); - /*clear*/ /*_.CURPAIRPRO__V105*/ meltfptr[103] = 0 ; + /*clear*/ /*_.CURPAIRPRO__V105*/ + meltfptr[103] = 0 ; /*^clear*/ - /*clear*/ /*_.PR__V106*/ meltfptr[87] = 0 ; + /*clear*/ /*_.PR__V106*/ + meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V109*/ meltfptr[107] = 0 ; + /*clear*/ /*_.IFCPP___V109*/ + meltfptr[107] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L49*/ meltfnum[44] = 0 ; + /*clear*/ /*_#IS_A__L49*/ + meltfnum[44] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V112*/ meltfptr[110] = 0 ; + /*clear*/ /*_._IFELSE___V112*/ + meltfptr[110] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -7905,7 +8575,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2003:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.FXOCC__V101*/ meltfptr[86];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.FXOCC__V101*/ meltfptr[86];; MELT_LOCATION("warmelt-normal.melt:2003:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -7913,18 +8584,24 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V100*/ meltfptr[79] = /*_.RETURN___V147*/ meltfptr[138];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V100*/ + meltfptr[79] = /*_.RETURN___V147*/ meltfptr[138];; MELT_LOCATION("warmelt-normal.melt:1945:/ clear"); - /*clear*/ /*_.FXOCC__V101*/ meltfptr[86] = 0 ; + /*clear*/ /*_.FXOCC__V101*/ + meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V147*/ meltfptr[138] = 0 ; - /*_._IFELSE___V99*/ meltfptr[80] = /*_.LET___V100*/ meltfptr[79];; + /*clear*/ /*_.RETURN___V147*/ + meltfptr[138] = 0 ; + /*_._IFELSE___V99*/ + meltfptr[80] = /*_.LET___V100*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1943:/ clear"); - /*clear*/ /*_.LET___V100*/ meltfptr[79] = 0 ; + /*clear*/ /*_.LET___V100*/ + meltfptr[79] = 0 ; } ; } @@ -7963,7 +8640,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L66*/ meltfnum[34] = + /*_#MELT_NEED_DBG__L66*/ + meltfnum[34] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7972,7 +8650,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2009:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L66*/ meltfnum[34]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L66*/ meltfnum[34]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8013,16 +8692,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. symbname="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBNAME__V27*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V149*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V149*/ + 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V148*/ meltfptr[133] = /*_.MELT_DEBUG_FUN__V149*/ meltfptr[114];; + /*_._IF___V148*/ + meltfptr[133] = /*_.MELT_DEBUG_FUN__V149*/ meltfptr[114];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2009:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L67*/ meltfnum[61] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L67*/ + meltfnum[61] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V149*/ meltfptr[114] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V149*/ + meltfptr[114] = 0 ; } ; } @@ -8035,7 +8718,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2009:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8044,9 +8728,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L66*/ meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L66*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V148*/ meltfptr[133] = 0 ; + /*clear*/ /*_._IF___V148*/ + meltfptr[133] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8072,7 +8758,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2010:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.BVAR__V78*/ meltfptr[57];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.BVAR__V78*/ meltfptr[57];; MELT_LOCATION("warmelt-normal.melt:2010:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -8080,42 +8767,56 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:2006:/ quasiblock"); - /*_.PROGN___V151*/ meltfptr[120] = /*_.RETURN___V150*/ meltfptr[119];; + /*_.PROGN___V151*/ + meltfptr[120] = /*_.RETURN___V150*/ meltfptr[119];; /*^compute*/ - /*_._IFELSE___V99*/ meltfptr[80] = /*_.PROGN___V151*/ meltfptr[120];; + /*_._IFELSE___V99*/ + meltfptr[80] = /*_.PROGN___V151*/ meltfptr[120];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1943:/ clear"); - /*clear*/ /*_.RETURN___V150*/ meltfptr[119] = 0 ; + /*clear*/ /*_.RETURN___V150*/ + meltfptr[119] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V151*/ meltfptr[120] = 0 ; + /*clear*/ /*_.PROGN___V151*/ + meltfptr[120] = 0 ; } ; } ; - /*_.LET___V77*/ meltfptr[42] = /*_._IFELSE___V99*/ meltfptr[80];; + /*_.LET___V77*/ + meltfptr[42] = /*_._IFELSE___V99*/ meltfptr[80];; MELT_LOCATION("warmelt-normal.melt:1911:/ clear"); - /*clear*/ /*_.BVAR__V78*/ meltfptr[57] = 0 ; + /*clear*/ /*_.BVAR__V78*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.VAL__V79*/ meltfptr[78] = 0 ; + /*clear*/ /*_.VAL__V79*/ + meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L33*/ meltfnum[23] = 0 ; + /*clear*/ /*_#NULL__L33*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L41*/ meltfnum[20] = 0 ; + /*clear*/ /*_#IS_LIST__L41*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L42*/ meltfnum[35] = 0 ; + /*clear*/ /*_#_IF___L42*/ + meltfnum[35] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V99*/ meltfptr[80] = 0 ; - /*_._IFELSE___V76*/ meltfptr[37] = /*_.LET___V77*/ meltfptr[42];; + /*clear*/ /*_._IFELSE___V99*/ + meltfptr[80] = 0 ; + /*_._IFELSE___V76*/ + meltfptr[37] = /*_.LET___V77*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1910:/ clear"); - /*clear*/ /*_.LET___V77*/ meltfptr[42] = 0 ; + /*clear*/ /*_.LET___V77*/ + meltfptr[42] = 0 ; } ; } @@ -8129,10 +8830,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L68*/ meltfnum[62] = + /*_#IS_A__L68*/ + meltfnum[62] = melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NORMAL_MODULE_VARIABLE_BINDING*/ meltfrout->tabval[26])));; MELT_LOCATION("warmelt-normal.melt:2015:/ cond"); - /*cond*/ if (/*_#IS_A__L68*/ meltfnum[62]) /*then*/ + /*cond*/ + if (/*_#IS_A__L68*/ meltfnum[62]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8159,7 +8862,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L69*/ meltfnum[53] = + /*_#MELT_NEED_DBG__L69*/ + meltfnum[53] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8168,7 +8872,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2016:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L69*/ meltfnum[53]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L69*/ meltfnum[53]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8201,16 +8906,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_symbol variable binding bind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V15*/ meltfptr[5]; - /*_.MELT_DEBUG_FUN__V154*/ meltfptr[138] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V154*/ + meltfptr[138] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V153*/ meltfptr[86] = /*_.MELT_DEBUG_FUN__V154*/ meltfptr[138];; + /*_._IF___V153*/ + meltfptr[86] = /*_.MELT_DEBUG_FUN__V154*/ meltfptr[138];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2016:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L70*/ meltfnum[61] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L70*/ + meltfnum[61] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V154*/ meltfptr[138] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V154*/ + meltfptr[138] = 0 ; } ; } @@ -8223,7 +8932,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2016:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8232,9 +8942,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L69*/ meltfnum[53] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L69*/ + meltfnum[53] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V153*/ meltfptr[86] = 0 ; + /*clear*/ /*_._IF___V153*/ + meltfptr[86] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8268,7 +8980,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MODULEVAROCC*/ meltfrout->tabval[27])), (2), "CLASS_NREP_MODULEVAROCC"); - /*_.INST__V157*/ meltfptr[133] = + /*_.INST__V157*/ + meltfptr[133] = newobj; }; ; @@ -8281,7 +8994,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V157*/ meltfptr[133], "newly made instance"); ; - /*_.NMODVAR__V156*/ meltfptr[114] = /*_.INST__V157*/ meltfptr[133];; + /*_.NMODVAR__V156*/ + meltfptr[114] = /*_.INST__V157*/ meltfptr[133];; { MELT_LOCATION("warmelt-normal.melt:2021:/ locexp"); @@ -8310,7 +9024,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L71*/ meltfnum[34] = + /*_#MELT_NEED_DBG__L71*/ + meltfnum[34] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8319,7 +9034,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2022:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L71*/ meltfnum[34]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L71*/ meltfnum[34]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8356,16 +9072,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. updated sycmap="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SYCMAP__V67*/ meltfptr[59]; - /*_.MELT_DEBUG_FUN__V159*/ meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V159*/ + meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V158*/ meltfptr[119] = /*_.MELT_DEBUG_FUN__V159*/ meltfptr[120];; + /*_._IF___V158*/ + meltfptr[119] = /*_.MELT_DEBUG_FUN__V159*/ meltfptr[120];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2022:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L72*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L72*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V159*/ meltfptr[120] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V159*/ + meltfptr[120] = 0 ; } ; } @@ -8378,7 +9098,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2022:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8387,9 +9108,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L71*/ meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L71*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V158*/ meltfptr[119] = 0 ; + /*clear*/ /*_._IF___V158*/ + meltfptr[119] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8415,7 +9138,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2024:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.NMODVAR__V156*/ meltfptr[114];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.NMODVAR__V156*/ meltfptr[114];; MELT_LOCATION("warmelt-normal.melt:2024:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -8423,25 +9147,33 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V155*/ meltfptr[79] = /*_.RETURN___V160*/ meltfptr[57];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V155*/ + meltfptr[79] = /*_.RETURN___V160*/ meltfptr[57];; MELT_LOCATION("warmelt-normal.melt:2017:/ clear"); - /*clear*/ /*_.NMODVAR__V156*/ meltfptr[114] = 0 ; + /*clear*/ /*_.NMODVAR__V156*/ + meltfptr[114] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V160*/ meltfptr[57] = 0 ; + /*clear*/ /*_.RETURN___V160*/ + meltfptr[57] = 0 ; MELT_LOCATION("warmelt-normal.melt:2015:/ quasiblock"); - /*_.PROGN___V161*/ meltfptr[78] = /*_.LET___V155*/ meltfptr[79];; + /*_.PROGN___V161*/ + meltfptr[78] = /*_.LET___V155*/ meltfptr[79];; /*^compute*/ - /*_._IFELSE___V152*/ meltfptr[121] = /*_.PROGN___V161*/ meltfptr[78];; + /*_._IFELSE___V152*/ + meltfptr[121] = /*_.PROGN___V161*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2015:/ clear"); - /*clear*/ /*_.LET___V155*/ meltfptr[79] = 0 ; + /*clear*/ /*_.LET___V155*/ + meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V161*/ meltfptr[78] = 0 ; + /*clear*/ /*_.PROGN___V161*/ + meltfptr[78] = 0 ; } ; } @@ -8458,10 +9190,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L73*/ meltfnum[20] = + /*_#IS_LIST__L73*/ + meltfnum[20] = (melt_magic_discr((melt_ptr_t)(/*_.PROCS__V16*/ meltfptr[15])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:2028:/ cond"); - /*cond*/ if (/*_#IS_LIST__L73*/ meltfnum[20]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L73*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8471,16 +9205,20 @@ meltlab_endgetargs: /*_.LIST_FIRST__V162*/ meltfptr[80] = (melt_list_first((melt_ptr_t)(/*_.PROCS__V16*/ meltfptr[15])));; /*^compute*/ - /*_#IS_PAIR__L75*/ meltfnum[61] = + /*_#IS_PAIR__L75*/ + meltfnum[61] = (melt_magic_discr((melt_ptr_t)(/*_.LIST_FIRST__V162*/ meltfptr[80])) == MELTOBMAG_PAIR);; /*^compute*/ - /*_#_IF___L74*/ meltfnum[35] = /*_#IS_PAIR__L75*/ meltfnum[61];; + /*_#_IF___L74*/ + meltfnum[35] = /*_#IS_PAIR__L75*/ meltfnum[61];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2028:/ clear"); - /*clear*/ /*_.LIST_FIRST__V162*/ meltfptr[80] = 0 ; + /*clear*/ /*_.LIST_FIRST__V162*/ + meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_PAIR__L75*/ meltfnum[61] = 0 ; + /*clear*/ /*_#IS_PAIR__L75*/ + meltfnum[61] = 0 ; } ; } @@ -8491,7 +9229,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:2028:/ cond"); - /*cond*/ if (/*_#_IF___L74*/ meltfnum[35]) /*then*/ + /*cond*/ + if (/*_#_IF___L74*/ meltfnum[35]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8518,7 +9257,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L76*/ meltfnum[53] = + /*_#MELT_NEED_DBG__L76*/ + meltfnum[53] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8527,7 +9267,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2030:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L76*/ meltfnum[53]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L76*/ meltfnum[53]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8564,16 +9305,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. bind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V15*/ meltfptr[5]; - /*_.MELT_DEBUG_FUN__V165*/ meltfptr[86] = melt_apply ((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__V165*/ + meltfptr[86] = melt_apply ((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___V164*/ meltfptr[138] = /*_.MELT_DEBUG_FUN__V165*/ meltfptr[86];; + /*_._IF___V164*/ + meltfptr[138] = /*_.MELT_DEBUG_FUN__V165*/ meltfptr[86];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2030:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L77*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L77*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V165*/ meltfptr[86] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V165*/ + meltfptr[86] = 0 ; } ; } @@ -8586,7 +9331,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2030:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8595,9 +9341,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L76*/ meltfnum[53] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L76*/ + meltfnum[53] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V164*/ meltfptr[138] = 0 ; + /*clear*/ /*_._IF___V164*/ + meltfptr[138] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8623,10 +9371,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L78*/ meltfnum[34] = + /*_#IS_A__L78*/ + meltfnum[34] = melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[28])));; MELT_LOCATION("warmelt-normal.melt:2033:/ cond"); - /*cond*/ if (/*_#IS_A__L78*/ meltfnum[34]) /*then*/ + /*cond*/ + if (/*_#IS_A__L78*/ meltfnum[34]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8638,14 +9388,17 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V168*/ meltfptr[114] = slot; + /*_.FBIND_TYPE__V168*/ + meltfptr[114] = slot; }; ; - /*_.BTY__V167*/ meltfptr[119] = /*_.FBIND_TYPE__V168*/ meltfptr[114];; + /*_.BTY__V167*/ + meltfptr[119] = /*_.FBIND_TYPE__V168*/ meltfptr[114];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2033:/ clear"); - /*clear*/ /*_.FBIND_TYPE__V168*/ meltfptr[114] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V168*/ + meltfptr[114] = 0 ; } ; } @@ -8659,10 +9412,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L79*/ meltfnum[61] = + /*_#IS_A__L79*/ + meltfnum[61] = melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ meltfrout->tabval[29])));; MELT_LOCATION("warmelt-normal.melt:2035:/ cond"); - /*cond*/ if (/*_#IS_A__L79*/ meltfnum[61]) /*then*/ + /*cond*/ + if (/*_#IS_A__L79*/ meltfnum[61]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8674,14 +9429,17 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LETBIND_TYPE"); - /*_.LETBIND_TYPE__V170*/ meltfptr[79] = slot; + /*_.LETBIND_TYPE__V170*/ + meltfptr[79] = slot; }; ; - /*_._IFELSE___V169*/ meltfptr[57] = /*_.LETBIND_TYPE__V170*/ meltfptr[79];; + /*_._IFELSE___V169*/ + meltfptr[57] = /*_.LETBIND_TYPE__V170*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2035:/ clear"); - /*clear*/ /*_.LETBIND_TYPE__V170*/ meltfptr[79] = 0 ; + /*clear*/ /*_.LETBIND_TYPE__V170*/ + meltfptr[79] = 0 ; } ; } @@ -8695,24 +9453,30 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2037:/ quasiblock"); - /*_.PROGN___V171*/ meltfptr[78] = (/*nil*/NULL);; + /*_.PROGN___V171*/ + meltfptr[78] = (/*nil*/NULL);; /*^compute*/ - /*_._IFELSE___V169*/ meltfptr[57] = /*_.PROGN___V171*/ meltfptr[78];; + /*_._IFELSE___V169*/ + meltfptr[57] = /*_.PROGN___V171*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2035:/ clear"); - /*clear*/ /*_.PROGN___V171*/ meltfptr[78] = 0 ; + /*clear*/ /*_.PROGN___V171*/ + meltfptr[78] = 0 ; } ; } ; - /*_.BTY__V167*/ meltfptr[119] = /*_._IFELSE___V169*/ meltfptr[57];; + /*_.BTY__V167*/ + meltfptr[119] = /*_._IFELSE___V169*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2033:/ clear"); - /*clear*/ /*_#IS_A__L79*/ meltfnum[61] = 0 ; + /*clear*/ /*_#IS_A__L79*/ + meltfnum[61] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V169*/ meltfptr[57] = 0 ; + /*clear*/ /*_._IFELSE___V169*/ + meltfptr[57] = 0 ; } ; } @@ -8721,7 +9485,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2039:/ cond"); - /*cond*/ if (/*_.BTY__V167*/ meltfptr[119]) /*then*/ + /*cond*/ + if (/*_.BTY__V167*/ meltfptr[119]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8731,10 +9496,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#exeq__L80*/ meltfnum[23] = + /*_#exeq__L80*/ + meltfnum[23] = ((/*_.BTY__V167*/ meltfptr[119]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[19])));; MELT_LOCATION("warmelt-normal.melt:2040:/ cond"); - /*cond*/ if (/*_#exeq__L80*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#exeq__L80*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8746,11 +9513,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V174*/ meltfptr[138] = slot; + /*_.NAMED_NAME__V174*/ + meltfptr[138] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2044:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BTY__V167*/ meltfptr[119]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7]))) ) /*then*/ @@ -8761,7 +9530,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BTY__V167*/ meltfptr[119]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V175*/ meltfptr[114] = slot; + /*_.NAMED_NAME__V175*/ + meltfptr[114] = slot; }; ; } @@ -8785,18 +9555,23 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V174*/ meltfptr[138]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V175*/ meltfptr[114]; - /*_.ERROR_AT__V176*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V176*/ + meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V173*/ meltfptr[86] = /*_.ERROR_AT__V176*/ meltfptr[79];; + /*_._IF___V173*/ + meltfptr[86] = /*_.ERROR_AT__V176*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2040:/ clear"); - /*clear*/ /*_.NAMED_NAME__V174*/ meltfptr[138] = 0 ; + /*clear*/ /*_.NAMED_NAME__V174*/ + meltfptr[138] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V175*/ meltfptr[114] = 0 ; + /*clear*/ /*_.NAMED_NAME__V175*/ + meltfptr[114] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V176*/ meltfptr[79] = 0 ; + /*clear*/ /*_.ERROR_AT__V176*/ + meltfptr[79] = 0 ; } ; } @@ -8807,13 +9582,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_._IF___V172*/ meltfptr[80] = /*_._IF___V173*/ meltfptr[86];; + /*_._IF___V172*/ + meltfptr[80] = /*_._IF___V173*/ meltfptr[86];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2039:/ clear"); - /*clear*/ /*_#exeq__L80*/ meltfnum[23] = 0 ; + /*clear*/ /*_#exeq__L80*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V173*/ meltfptr[86] = 0 ; + /*clear*/ /*_._IF___V173*/ + meltfptr[86] = 0 ; } ; } @@ -8824,14 +9602,17 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:2046:/ compute"); - /*_.BTY__V167*/ meltfptr[119] = /*_.SETQ___V177*/ meltfptr[78] = (/*!CTYPE_VALUE*/ meltfrout->tabval[19]);; + /*_.BTY__V167*/ + meltfptr[119] = /*_.SETQ___V177*/ meltfptr[78] = (/*!CTYPE_VALUE*/ meltfrout->tabval[19]);; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L81*/ meltfnum[53] = + /*_#IS_A__L81*/ + meltfnum[53] = melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ meltfrout->tabval[30])));; MELT_LOCATION("warmelt-normal.melt:2047:/ cond"); - /*cond*/ if (/*_#IS_A__L81*/ meltfnum[53]) /*then*/ + /*cond*/ + if (/*_#IS_A__L81*/ meltfnum[53]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8852,7 +9633,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ meltfrout->tabval[18])), (5), "CLASS_NREP_CONSTOCC"); - /*_.INST__V181*/ meltfptr[79] = + /*_.INST__V181*/ + meltfptr[79] = newobj; }; ; @@ -8885,7 +9667,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V181*/ meltfptr[79], "newly made instance"); ; - /*_.FXOCC__V180*/ meltfptr[114] = /*_.INST__V181*/ meltfptr[79];; + /*_.FXOCC__V180*/ + meltfptr[114] = /*_.INST__V181*/ meltfptr[79];; { MELT_LOCATION("warmelt-normal.melt:2056:/ locexp"); @@ -8914,7 +9697,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L82*/ meltfnum[61] = + /*_#MELT_NEED_DBG__L82*/ + meltfnum[61] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8923,7 +9707,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2057:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L82*/ meltfnum[61]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L82*/ meltfnum[61]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8960,16 +9745,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " updated sycmap="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SYCMAP__V67*/ meltfptr[59]; - /*_.MELT_DEBUG_FUN__V183*/ meltfptr[182] = melt_apply ((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__V183*/ + meltfptr[182] = melt_apply ((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___V182*/ meltfptr[86] = /*_.MELT_DEBUG_FUN__V183*/ meltfptr[182];; + /*_._IF___V182*/ + meltfptr[86] = /*_.MELT_DEBUG_FUN__V183*/ meltfptr[182];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2057:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L83*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L83*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V183*/ meltfptr[182] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V183*/ + meltfptr[182] = 0 ; } ; } @@ -8982,7 +9771,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2057:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8991,9 +9781,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L82*/ meltfnum[61] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L82*/ + meltfnum[61] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V182*/ meltfptr[86] = 0 ; + /*clear*/ /*_._IF___V182*/ + meltfptr[86] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9043,7 +9835,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L84*/ meltfnum[23] = + /*_#MELT_NEED_DBG__L84*/ + meltfnum[23] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9052,7 +9845,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2062:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L84*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L84*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9085,16 +9879,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_symbol curproc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V185*/ meltfptr[86]; - /*_.MELT_DEBUG_FUN__V187*/ meltfptr[186] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V187*/ + meltfptr[186] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V186*/ meltfptr[185] = /*_.MELT_DEBUG_FUN__V187*/ meltfptr[186];; + /*_._IF___V186*/ + meltfptr[185] = /*_.MELT_DEBUG_FUN__V187*/ meltfptr[186];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2062:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L85*/ meltfnum[61] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L85*/ + meltfnum[61] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V187*/ meltfptr[186] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V187*/ + meltfptr[186] = 0 ; } ; } @@ -9107,7 +9905,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2062:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9116,9 +9915,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L84*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L84*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V186*/ meltfptr[185] = 0 ; + /*clear*/ /*_._IF___V186*/ + meltfptr[185] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9148,10 +9949,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L86*/ meltfnum[61] = + /*_#IS_A__L86*/ + meltfnum[61] = melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V185*/ meltfptr[86]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ meltfrout->tabval[20])));; MELT_LOCATION("warmelt-normal.melt:2063:/ cond"); - /*cond*/ if (/*_#IS_A__L86*/ meltfnum[61]) /*then*/ + /*cond*/ + if (/*_#IS_A__L86*/ meltfnum[61]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V189*/ meltfptr[185] = (/*nil*/NULL);; @@ -9180,25 +9983,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2063; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V185*/ meltfptr[86]; - /*_.MELT_ASSERT_FAILURE_FUN__V190*/ meltfptr[189] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V190*/ + meltfptr[189] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V189*/ meltfptr[185] = /*_.MELT_ASSERT_FAILURE_FUN__V190*/ meltfptr[189];; + /*_._IFELSE___V189*/ + meltfptr[185] = /*_.MELT_ASSERT_FAILURE_FUN__V190*/ meltfptr[189];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2063:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V190*/ meltfptr[189] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V190*/ + meltfptr[189] = 0 ; } ; } ; - /*_.IFCPP___V188*/ meltfptr[186] = /*_._IFELSE___V189*/ meltfptr[185];; + /*_.IFCPP___V188*/ + meltfptr[186] = /*_._IFELSE___V189*/ meltfptr[185];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2063:/ clear"); - /*clear*/ /*_#IS_A__L86*/ meltfnum[61] = 0 ; + /*clear*/ /*_#IS_A__L86*/ + meltfnum[61] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V189*/ meltfptr[185] = 0 ; + /*clear*/ /*_._IFELSE___V189*/ + meltfptr[185] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9210,10 +10019,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L87*/ meltfnum[23] = + /*_#IS_A__L87*/ + meltfnum[23] = melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V185*/ meltfptr[86]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[21])));; MELT_LOCATION("warmelt-normal.melt:2065:/ cond"); - /*cond*/ if (/*_#IS_A__L87*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#IS_A__L87*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9234,7 +10045,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22])), (1), "CLASS_REFERENCE"); - /*_.INST__V193*/ meltfptr[192] = + /*_.INST__V193*/ + meltfptr[192] = newobj; }; ; @@ -9247,9 +10059,11 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V193*/ meltfptr[192], "newly made instance"); ; - /*_.CLCONT__V192*/ meltfptr[185] = /*_.INST__V193*/ meltfptr[192];; + /*_.CLCONT__V192*/ + meltfptr[185] = /*_.INST__V193*/ meltfptr[192];; MELT_LOCATION("warmelt-normal.melt:2068:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V185*/ meltfptr[86]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[23]))) ) /*then*/ @@ -9260,7 +10074,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPROC__V185*/ meltfptr[86]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NRCLOP_CONSTLIST"); - /*_.CNSTPROCL__V194*/ meltfptr[193] = slot; + /*_.CNSTPROCL__V194*/ + meltfptr[193] = slot; }; ; } @@ -9283,10 +10098,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L88*/ meltfnum[61] = + /*_#eqeq__L88*/ + meltfnum[61] = ((/*_.CX__V196*/ meltfptr[195]) == (/*_.FXOCC__V180*/ meltfptr[114]));; MELT_LOCATION("warmelt-normal.melt:2072:/ cond"); - /*cond*/ if (/*_#eqeq__L88*/ meltfnum[61]) /*then*/ + /*cond*/ + if (/*_#eqeq__L88*/ meltfnum[61]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9297,7 +10114,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2073:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLCONT__V192*/ meltfptr[185]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22]))) ) /*then*/ @@ -9327,13 +10145,16 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2072:/ quasiblock"); - /*_.PROGN___V198*/ meltfptr[197] = (/*nil*/NULL);; + /*_.PROGN___V198*/ + meltfptr[197] = (/*nil*/NULL);; /*^compute*/ - /*_._IF___V197*/ meltfptr[196] = /*_.PROGN___V198*/ meltfptr[197];; + /*_._IF___V197*/ + meltfptr[196] = /*_.PROGN___V198*/ meltfptr[197];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2072:/ clear"); - /*clear*/ /*_.PROGN___V198*/ meltfptr[197] = 0 ; + /*clear*/ /*_.PROGN___V198*/ + meltfptr[197] = 0 ; } ; } @@ -9345,26 +10166,32 @@ meltlab_endgetargs: ; } /* end foreach_pair_component_in_list meltcit5__EACHLIST */ /*_.CURPAIRPROCL__V195*/ meltfptr[194] = NULL; - /*_.CX__V196*/ meltfptr[195] = NULL; + /*_.CX__V196*/ + meltfptr[195] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:2069:/ clear"); - /*clear*/ /*_.CURPAIRPROCL__V195*/ meltfptr[194] = 0 ; + /*clear*/ /*_.CURPAIRPROCL__V195*/ + meltfptr[194] = 0 ; /*^clear*/ - /*clear*/ /*_.CX__V196*/ meltfptr[195] = 0 ; + /*clear*/ /*_.CX__V196*/ + meltfptr[195] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L88*/ meltfnum[61] = 0 ; + /*clear*/ /*_#eqeq__L88*/ + meltfnum[61] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V197*/ meltfptr[196] = 0 ; + /*clear*/ /*_._IF___V197*/ + meltfptr[196] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_LOCATION("warmelt-normal.melt:2074:/ quasiblock"); /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLCONT__V192*/ meltfptr[185]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22]))) ) /*then*/ @@ -9375,7 +10202,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLCONT__V192*/ meltfptr[185]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.NEWCL__V199*/ meltfptr[197] = slot; + /*_.NEWCL__V199*/ + meltfptr[197] = slot; }; ; } @@ -9389,7 +10217,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2075:/ cond"); - /*cond*/ if (/*_.NEWCL__V199*/ meltfptr[197]) /*then*/ + /*cond*/ + if (/*_.NEWCL__V199*/ meltfptr[197]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9416,7 +10245,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L89*/ meltfnum[88] = + /*_#MELT_NEED_DBG__L89*/ + meltfnum[88] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9425,7 +10255,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2076:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L89*/ meltfnum[88]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L89*/ meltfnum[88]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9458,16 +10289,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_symbol newcl="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWCL__V199*/ meltfptr[197]; - /*_.MELT_DEBUG_FUN__V201*/ meltfptr[200] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V201*/ + meltfptr[200] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V200*/ meltfptr[199] = /*_.MELT_DEBUG_FUN__V201*/ meltfptr[200];; + /*_._IF___V200*/ + meltfptr[199] = /*_.MELT_DEBUG_FUN__V201*/ meltfptr[200];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2076:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L90*/ meltfnum[89] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L90*/ + meltfnum[89] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V201*/ meltfptr[200] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V201*/ + meltfptr[200] = 0 ; } ; } @@ -9480,7 +10315,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2076:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9489,9 +10325,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L89*/ meltfnum[88] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L89*/ + meltfnum[88] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V200*/ meltfptr[199] = 0 ; + /*clear*/ /*_._IF___V200*/ + meltfptr[199] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9532,12 +10370,15 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:2074:/ clear"); - /*clear*/ /*_.NEWCL__V199*/ meltfptr[197] = 0 ; + /*clear*/ /*_.NEWCL__V199*/ + meltfptr[197] = 0 ; MELT_LOCATION("warmelt-normal.melt:2066:/ clear"); - /*clear*/ /*_.CLCONT__V192*/ meltfptr[185] = 0 ; + /*clear*/ /*_.CLCONT__V192*/ + meltfptr[185] = 0 ; /*^clear*/ - /*clear*/ /*_.CNSTPROCL__V194*/ meltfptr[193] = 0 ; + /*clear*/ /*_.CNSTPROCL__V194*/ + meltfptr[193] = 0 ; /*epilog*/ } ; @@ -9553,10 +10394,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L91*/ meltfnum[89] = + /*_#IS_A__L91*/ + meltfnum[89] = melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V185*/ meltfptr[86]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[24])));; MELT_LOCATION("warmelt-normal.melt:2079:/ cond"); - /*cond*/ if (/*_#IS_A__L91*/ meltfnum[89]) /*then*/ + /*cond*/ + if (/*_#IS_A__L91*/ meltfnum[89]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9583,7 +10426,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L92*/ meltfnum[88] = + /*_#MELT_NEED_DBG__L92*/ + meltfnum[88] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9592,7 +10436,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2080:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L92*/ meltfnum[88]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L92*/ meltfnum[88]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9637,16 +10482,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n fxocc="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.FXOCC__V180*/ meltfptr[114]; - /*_.MELT_DEBUG_FUN__V204*/ meltfptr[197] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V204*/ + meltfptr[197] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V203*/ meltfptr[199] = /*_.MELT_DEBUG_FUN__V204*/ meltfptr[197];; + /*_._IF___V203*/ + meltfptr[199] = /*_.MELT_DEBUG_FUN__V204*/ meltfptr[197];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2080:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L93*/ meltfnum[92] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L93*/ + meltfnum[92] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V204*/ meltfptr[197] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V204*/ + meltfptr[197] = 0 ; } ; } @@ -9659,7 +10508,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2080:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9668,9 +10518,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L92*/ meltfnum[88] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L92*/ + meltfnum[88] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V203*/ meltfptr[199] = 0 ; + /*clear*/ /*_._IF___V203*/ + meltfptr[199] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9694,7 +10546,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V185*/ meltfptr[86]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[23]))) ) /*then*/ @@ -9705,7 +10558,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPROC__V185*/ meltfptr[86]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NRCLOP_CLOBINDLIST"); - /*_.HKCLOBINDLIST__V205*/ meltfptr[185] = slot; + /*_.HKCLOBINDLIST__V205*/ + meltfptr[185] = slot; }; ; } @@ -9716,7 +10570,8 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.FOUNDBIND__V206*/ meltfptr[193] = (/*nil*/NULL);; + /*_.FOUNDBIND__V206*/ + meltfptr[193] = (/*nil*/NULL);; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2085:/ cppif.then"); @@ -9737,7 +10592,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L94*/ meltfnum[92] = + /*_#MELT_NEED_DBG__L94*/ + meltfnum[92] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9746,7 +10602,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2085:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L94*/ meltfnum[92]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L94*/ meltfnum[92]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9779,16 +10636,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_symbol hkclobindlist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HKCLOBINDLIST__V205*/ meltfptr[185]; - /*_.MELT_DEBUG_FUN__V208*/ meltfptr[199] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V208*/ + meltfptr[199] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V207*/ meltfptr[197] = /*_.MELT_DEBUG_FUN__V208*/ meltfptr[199];; + /*_._IF___V207*/ + meltfptr[197] = /*_.MELT_DEBUG_FUN__V208*/ meltfptr[199];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2085:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L95*/ meltfnum[88] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L95*/ + meltfnum[88] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V208*/ meltfptr[199] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V208*/ + meltfptr[199] = 0 ; } ; } @@ -9801,7 +10662,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2085:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9810,9 +10672,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L94*/ meltfnum[92] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L94*/ + meltfnum[92] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V207*/ meltfptr[197] = 0 ; + /*clear*/ /*_._IF___V207*/ + meltfptr[197] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9842,10 +10706,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L96*/ meltfnum[88] = + /*_#IS_LIST__L96*/ + meltfnum[88] = (melt_magic_discr((melt_ptr_t)(/*_.HKCLOBINDLIST__V205*/ meltfptr[185])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:2086:/ cond"); - /*cond*/ if (/*_#IS_LIST__L96*/ meltfnum[88]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L96*/ meltfnum[88]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V210*/ meltfptr[197] = (/*nil*/NULL);; @@ -9874,25 +10740,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2086; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKCLOBINDLIST__V205*/ meltfptr[185]; - /*_.MELT_ASSERT_FAILURE_FUN__V211*/ meltfptr[210] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V211*/ + meltfptr[210] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V210*/ meltfptr[197] = /*_.MELT_ASSERT_FAILURE_FUN__V211*/ meltfptr[210];; + /*_._IFELSE___V210*/ + meltfptr[197] = /*_.MELT_ASSERT_FAILURE_FUN__V211*/ meltfptr[210];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2086:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V211*/ meltfptr[210] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V211*/ + meltfptr[210] = 0 ; } ; } ; - /*_.IFCPP___V209*/ meltfptr[199] = /*_._IFELSE___V210*/ meltfptr[197];; + /*_.IFCPP___V209*/ + meltfptr[199] = /*_._IFELSE___V210*/ meltfptr[197];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2086:/ clear"); - /*clear*/ /*_#IS_LIST__L96*/ meltfnum[88] = 0 ; + /*clear*/ /*_#IS_LIST__L96*/ + meltfnum[88] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V210*/ meltfptr[197] = 0 ; + /*clear*/ /*_._IFELSE___V210*/ + meltfptr[197] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9920,10 +10792,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L97*/ meltfnum[92] = + /*_#IS_A__L97*/ + meltfnum[92] = melt_is_instance_of((melt_ptr_t)(/*_.CURBND__V213*/ meltfptr[197]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[25])));; MELT_LOCATION("warmelt-normal.melt:2090:/ cond"); - /*cond*/ if (/*_#IS_A__L97*/ meltfnum[92]) /*then*/ + /*cond*/ + if (/*_#IS_A__L97*/ meltfnum[92]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V215*/ meltfptr[214] = (/*nil*/NULL);; @@ -9952,25 +10826,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2090; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURBND__V213*/ meltfptr[197]; - /*_.MELT_ASSERT_FAILURE_FUN__V216*/ meltfptr[215] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V216*/ + meltfptr[215] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V215*/ meltfptr[214] = /*_.MELT_ASSERT_FAILURE_FUN__V216*/ meltfptr[215];; + /*_._IFELSE___V215*/ + meltfptr[214] = /*_.MELT_ASSERT_FAILURE_FUN__V216*/ meltfptr[215];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2090:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V216*/ meltfptr[215] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V216*/ + meltfptr[215] = 0 ; } ; } ; - /*_.IFCPP___V214*/ meltfptr[213] = /*_._IFELSE___V215*/ meltfptr[214];; + /*_.IFCPP___V214*/ + meltfptr[213] = /*_._IFELSE___V215*/ meltfptr[214];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2090:/ clear"); - /*clear*/ /*_#IS_A__L97*/ meltfnum[92] = 0 ; + /*clear*/ /*_#IS_A__L97*/ + meltfnum[92] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V215*/ meltfptr[214] = 0 ; + /*clear*/ /*_._IFELSE___V215*/ + meltfptr[214] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9982,10 +10862,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#eqeq__L98*/ meltfnum[88] = + /*_#eqeq__L98*/ + meltfnum[88] = ((/*_.CURBND__V213*/ meltfptr[197]) == (/*_.BIND__V15*/ meltfptr[5]));; MELT_LOCATION("warmelt-normal.melt:2091:/ cond"); - /*cond*/ if (/*_#eqeq__L98*/ meltfnum[88]) /*then*/ + /*cond*/ + if (/*_#eqeq__L98*/ meltfnum[88]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9994,11 +10876,13 @@ meltlab_endgetargs: /*^compute*/ /*_.FOUNDBIND__V206*/ meltfptr[193] = /*_.SETQ___V218*/ meltfptr[214] = /*_.CURBND__V213*/ meltfptr[197];; - /*_._IF___V217*/ meltfptr[215] = /*_.SETQ___V218*/ meltfptr[214];; + /*_._IF___V217*/ + meltfptr[215] = /*_.SETQ___V218*/ meltfptr[214];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2091:/ clear"); - /*clear*/ /*_.SETQ___V218*/ meltfptr[214] = 0 ; + /*clear*/ /*_.SETQ___V218*/ + meltfptr[214] = 0 ; } ; } @@ -10010,30 +10894,38 @@ meltlab_endgetargs: ; } /* end foreach_pair_component_in_list meltcit6__EACHLIST */ /*_.CURPAIRBNDHC__V212*/ meltfptr[210] = NULL; - /*_.CURBND__V213*/ meltfptr[197] = NULL; + /*_.CURBND__V213*/ + meltfptr[197] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:2087:/ clear"); - /*clear*/ /*_.CURPAIRBNDHC__V212*/ meltfptr[210] = 0 ; + /*clear*/ /*_.CURPAIRBNDHC__V212*/ + meltfptr[210] = 0 ; /*^clear*/ - /*clear*/ /*_.CURBND__V213*/ meltfptr[197] = 0 ; + /*clear*/ /*_.CURBND__V213*/ + meltfptr[197] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V214*/ meltfptr[213] = 0 ; + /*clear*/ /*_.IFCPP___V214*/ + meltfptr[213] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L98*/ meltfnum[88] = 0 ; + /*clear*/ /*_#eqeq__L98*/ + meltfnum[88] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V217*/ meltfptr[215] = 0 ; + /*clear*/ /*_._IF___V217*/ + meltfptr[215] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_CHECK_SIGNAL(); ; - /*_#NULL__L99*/ meltfnum[92] = + /*_#NULL__L99*/ + meltfnum[92] = (/*null*/(/*_.FOUNDBIND__V206*/ meltfptr[193]) == NULL);; MELT_LOCATION("warmelt-normal.melt:2092:/ cond"); - /*cond*/ if (/*_#NULL__L99*/ meltfnum[92]) /*then*/ + /*cond*/ + if (/*_#NULL__L99*/ meltfnum[92]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10066,7 +10958,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L100*/ meltfnum[99] = + /*_#MELT_NEED_DBG__L100*/ + meltfnum[99] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10075,7 +10968,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2094:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L100*/ meltfnum[99]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L100*/ meltfnum[99]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10108,16 +11002,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_symbol updated hkclobindlist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HKCLOBINDLIST__V205*/ meltfptr[185]; - /*_.MELT_DEBUG_FUN__V220*/ meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V220*/ + meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V219*/ meltfptr[214] = /*_.MELT_DEBUG_FUN__V220*/ meltfptr[219];; + /*_._IF___V219*/ + meltfptr[214] = /*_.MELT_DEBUG_FUN__V220*/ meltfptr[219];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2094:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L101*/ meltfnum[100] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L101*/ + meltfnum[100] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V220*/ meltfptr[219] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V220*/ + meltfptr[219] = 0 ; } ; } @@ -10130,7 +11028,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2094:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10139,9 +11038,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L100*/ meltfnum[99] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L100*/ + meltfnum[99] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V219*/ meltfptr[214] = 0 ; + /*clear*/ /*_._IF___V219*/ + meltfptr[214] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10171,13 +11072,17 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:2082:/ clear"); - /*clear*/ /*_.HKCLOBINDLIST__V205*/ meltfptr[185] = 0 ; + /*clear*/ /*_.HKCLOBINDLIST__V205*/ + meltfptr[185] = 0 ; /*^clear*/ - /*clear*/ /*_.FOUNDBIND__V206*/ meltfptr[193] = 0 ; + /*clear*/ /*_.FOUNDBIND__V206*/ + meltfptr[193] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V209*/ meltfptr[199] = 0 ; + /*clear*/ /*_.IFCPP___V209*/ + meltfptr[199] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L99*/ meltfnum[92] = 0 ; + /*clear*/ /*_#NULL__L99*/ + meltfnum[92] = 0 ; MELT_LOCATION("warmelt-normal.melt:2079:/ quasiblock"); @@ -10212,7 +11117,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L102*/ meltfnum[100] = + /*_#MELT_NEED_DBG__L102*/ + meltfnum[100] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10221,7 +11127,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2098:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L102*/ meltfnum[100]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L102*/ meltfnum[100]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10254,16 +11161,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_symbol bad curproc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V185*/ meltfptr[86]; - /*_.MELT_DEBUG_FUN__V222*/ meltfptr[214] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V222*/ + meltfptr[214] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V221*/ meltfptr[219] = /*_.MELT_DEBUG_FUN__V222*/ meltfptr[214];; + /*_._IF___V221*/ + meltfptr[219] = /*_.MELT_DEBUG_FUN__V222*/ meltfptr[214];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2098:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L103*/ meltfnum[99] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L103*/ + meltfnum[99] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V222*/ meltfptr[214] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V222*/ + meltfptr[214] = 0 ; } ; } @@ -10276,7 +11187,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2098:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10285,9 +11197,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L102*/ meltfnum[100] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L102*/ + meltfnum[100] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V221*/ meltfptr[219] = 0 ; + /*clear*/ /*_._IF___V221*/ + meltfptr[219] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10318,7 +11232,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V224*/ meltfptr[193] = (/*nil*/NULL);; @@ -10347,23 +11262,28 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2099; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V185*/ meltfptr[86]; - /*_.MELT_ASSERT_FAILURE_FUN__V225*/ meltfptr[199] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V225*/ + meltfptr[199] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V224*/ meltfptr[193] = /*_.MELT_ASSERT_FAILURE_FUN__V225*/ meltfptr[199];; + /*_._IFELSE___V224*/ + meltfptr[193] = /*_.MELT_ASSERT_FAILURE_FUN__V225*/ meltfptr[199];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2099:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V225*/ meltfptr[199] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V225*/ + meltfptr[199] = 0 ; } ; } ; - /*_.IFCPP___V223*/ meltfptr[185] = /*_._IFELSE___V224*/ meltfptr[193];; + /*_.IFCPP___V223*/ + meltfptr[185] = /*_._IFELSE___V224*/ meltfptr[193];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2099:/ clear"); - /*clear*/ /*_._IFELSE___V224*/ meltfptr[193] = 0 ; + /*clear*/ /*_._IFELSE___V224*/ + meltfptr[193] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10374,47 +11294,60 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2097:/ quasiblock"); - /*_.PROGN___V226*/ meltfptr[214] = /*_.IFCPP___V223*/ meltfptr[185];; + /*_.PROGN___V226*/ + meltfptr[214] = /*_.IFCPP___V223*/ meltfptr[185];; /*^compute*/ - /*_._IFELSE___V202*/ meltfptr[200] = /*_.PROGN___V226*/ meltfptr[214];; + /*_._IFELSE___V202*/ + meltfptr[200] = /*_.PROGN___V226*/ meltfptr[214];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2079:/ clear"); - /*clear*/ /*_.IFCPP___V223*/ meltfptr[185] = 0 ; + /*clear*/ /*_.IFCPP___V223*/ + meltfptr[185] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V226*/ meltfptr[214] = 0 ; + /*clear*/ /*_.PROGN___V226*/ + meltfptr[214] = 0 ; } ; } ; - /*_._IFELSE___V191*/ meltfptr[189] = /*_._IFELSE___V202*/ meltfptr[200];; + /*_._IFELSE___V191*/ + meltfptr[189] = /*_._IFELSE___V202*/ meltfptr[200];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2065:/ clear"); - /*clear*/ /*_#IS_A__L91*/ meltfnum[89] = 0 ; + /*clear*/ /*_#IS_A__L91*/ + meltfnum[89] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V202*/ meltfptr[200] = 0 ; + /*clear*/ /*_._IFELSE___V202*/ + meltfptr[200] = 0 ; } ; } ; } /* end foreach_pair_component_in_list meltcit4__EACHLIST */ /*_.CURPAIRPROC__V184*/ meltfptr[182] = NULL; - /*_.CURPROC__V185*/ meltfptr[86] = NULL; + /*_.CURPROC__V185*/ + meltfptr[86] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:2059:/ clear"); - /*clear*/ /*_.CURPAIRPROC__V184*/ meltfptr[182] = 0 ; + /*clear*/ /*_.CURPAIRPROC__V184*/ + meltfptr[182] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPROC__V185*/ meltfptr[86] = 0 ; + /*clear*/ /*_.CURPROC__V185*/ + meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V188*/ meltfptr[186] = 0 ; + /*clear*/ /*_.IFCPP___V188*/ + meltfptr[186] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L87*/ meltfnum[23] = 0 ; + /*clear*/ /*_#IS_A__L87*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V191*/ meltfptr[189] = 0 ; + /*clear*/ /*_._IFELSE___V191*/ + meltfptr[189] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -10437,7 +11370,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L104*/ meltfnum[92] = + /*_#MELT_NEED_DBG__L104*/ + meltfnum[92] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10446,7 +11380,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2102:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L104*/ meltfnum[92]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L104*/ meltfnum[92]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10479,16 +11414,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_symbol return fxocc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FXOCC__V180*/ meltfptr[114]; - /*_.MELT_DEBUG_FUN__V228*/ meltfptr[199] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V228*/ + meltfptr[199] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V227*/ meltfptr[219] = /*_.MELT_DEBUG_FUN__V228*/ meltfptr[199];; + /*_._IF___V227*/ + meltfptr[219] = /*_.MELT_DEBUG_FUN__V228*/ meltfptr[199];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2102:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L105*/ meltfnum[99] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L105*/ + meltfnum[99] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V228*/ meltfptr[199] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V228*/ + meltfptr[199] = 0 ; } ; } @@ -10501,7 +11440,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2102:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10510,9 +11450,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L104*/ meltfnum[92] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L104*/ + meltfnum[92] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V227*/ meltfptr[219] = 0 ; + /*clear*/ /*_._IF___V227*/ + meltfptr[219] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10538,7 +11480,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2103:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.FXOCC__V180*/ meltfptr[114];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.FXOCC__V180*/ meltfptr[114];; MELT_LOCATION("warmelt-normal.melt:2103:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -10546,18 +11489,24 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V179*/ meltfptr[138] = /*_.RETURN___V229*/ meltfptr[193];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V179*/ + meltfptr[138] = /*_.RETURN___V229*/ meltfptr[193];; MELT_LOCATION("warmelt-normal.melt:2048:/ clear"); - /*clear*/ /*_.FXOCC__V180*/ meltfptr[114] = 0 ; + /*clear*/ /*_.FXOCC__V180*/ + meltfptr[114] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V229*/ meltfptr[193] = 0 ; - /*_._IFELSE___V178*/ meltfptr[57] = /*_.LET___V179*/ meltfptr[138];; + /*clear*/ /*_.RETURN___V229*/ + meltfptr[193] = 0 ; + /*_._IFELSE___V178*/ + meltfptr[57] = /*_.LET___V179*/ meltfptr[138];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2047:/ clear"); - /*clear*/ /*_.LET___V179*/ meltfptr[138] = 0 ; + /*clear*/ /*_.LET___V179*/ + meltfptr[138] = 0 ; } ; } @@ -10582,7 +11531,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CLOSEDOCC*/ meltfrout->tabval[31])), (5), "CLASS_NREP_CLOSEDOCC"); - /*_.INST__V232*/ meltfptr[200] = + /*_.INST__V232*/ + meltfptr[200] = newobj; }; ; @@ -10615,7 +11565,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V232*/ meltfptr[200], "newly made instance"); ; - /*_.CLOCC__V231*/ meltfptr[214] = /*_.INST__V232*/ meltfptr[200];; + /*_.CLOCC__V231*/ + meltfptr[214] = /*_.INST__V232*/ meltfptr[200];; { MELT_LOCATION("warmelt-normal.melt:2115:/ locexp"); @@ -10644,7 +11595,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L106*/ meltfnum[100] = + /*_#MELT_NEED_DBG__L106*/ + meltfnum[100] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10653,7 +11605,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2116:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L106*/ meltfnum[100]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L106*/ meltfnum[100]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10690,16 +11643,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " clocc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V231*/ meltfptr[214]; - /*_.MELT_DEBUG_FUN__V234*/ meltfptr[219] = melt_apply ((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__V234*/ + meltfptr[219] = melt_apply ((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___V233*/ meltfptr[199] = /*_.MELT_DEBUG_FUN__V234*/ meltfptr[219];; + /*_._IF___V233*/ + meltfptr[199] = /*_.MELT_DEBUG_FUN__V234*/ meltfptr[219];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2116:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L107*/ meltfnum[89] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L107*/ + meltfnum[89] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V234*/ meltfptr[219] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V234*/ + meltfptr[219] = 0 ; } ; } @@ -10712,7 +11669,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2116:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10721,9 +11679,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L106*/ meltfnum[100] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L106*/ + meltfnum[100] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V233*/ meltfptr[199] = 0 ; + /*clear*/ /*_._IF___V233*/ + meltfptr[199] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10763,10 +11723,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L108*/ meltfnum[99] = + /*_#IS_A__L108*/ + meltfnum[99] = melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V236*/ meltfptr[193]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ meltfrout->tabval[20])));; MELT_LOCATION("warmelt-normal.melt:2121:/ cond"); - /*cond*/ if (/*_#IS_A__L108*/ meltfnum[99]) /*then*/ + /*cond*/ + if (/*_#IS_A__L108*/ meltfnum[99]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V238*/ meltfptr[219] = (/*nil*/NULL);; @@ -10795,25 +11757,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2121; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V236*/ meltfptr[193]; - /*_.MELT_ASSERT_FAILURE_FUN__V239*/ meltfptr[199] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V239*/ + meltfptr[199] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V238*/ meltfptr[219] = /*_.MELT_ASSERT_FAILURE_FUN__V239*/ meltfptr[199];; + /*_._IFELSE___V238*/ + meltfptr[219] = /*_.MELT_ASSERT_FAILURE_FUN__V239*/ meltfptr[199];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2121:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V239*/ meltfptr[199] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V239*/ + meltfptr[199] = 0 ; } ; } ; - /*_.IFCPP___V237*/ meltfptr[138] = /*_._IFELSE___V238*/ meltfptr[219];; + /*_.IFCPP___V237*/ + meltfptr[138] = /*_._IFELSE___V238*/ meltfptr[219];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2121:/ clear"); - /*clear*/ /*_#IS_A__L108*/ meltfnum[99] = 0 ; + /*clear*/ /*_#IS_A__L108*/ + meltfnum[99] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V238*/ meltfptr[219] = 0 ; + /*clear*/ /*_._IFELSE___V238*/ + meltfptr[219] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10835,7 +11803,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22])), (1), "CLASS_REFERENCE"); - /*_.INST__V241*/ meltfptr[219] = + /*_.INST__V241*/ + meltfptr[219] = newobj; }; ; @@ -10848,9 +11817,11 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V241*/ meltfptr[219], "newly made instance"); ; - /*_.CLCONT__V240*/ meltfptr[199] = /*_.INST__V241*/ meltfptr[219];; + /*_.CLCONT__V240*/ + meltfptr[199] = /*_.INST__V241*/ meltfptr[219];; MELT_LOCATION("warmelt-normal.melt:2123:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V236*/ meltfptr[193]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[23]))) ) /*then*/ @@ -10861,7 +11832,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPROC__V236*/ meltfptr[193]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NRCLOP_CLOBINDLIST"); - /*_.CLOBINDL__V242*/ meltfptr[241] = slot; + /*_.CLOBINDL__V242*/ + meltfptr[241] = slot; }; ; } @@ -10884,10 +11856,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L109*/ meltfnum[92] = + /*_#eqeq__L109*/ + meltfnum[92] = ((/*_.CLBND__V244*/ meltfptr[243]) == (/*_.BIND__V15*/ meltfptr[5]));; MELT_LOCATION("warmelt-normal.melt:2127:/ cond"); - /*cond*/ if (/*_#eqeq__L109*/ meltfnum[92]) /*then*/ + /*cond*/ + if (/*_#eqeq__L109*/ meltfnum[92]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10898,7 +11872,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2128:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLCONT__V240*/ meltfptr[199]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22]))) ) /*then*/ @@ -10935,24 +11910,29 @@ meltlab_endgetargs: ; } /* end foreach_pair_component_in_list meltcit8__EACHLIST */ /*_.CURBNDPAIR__V243*/ meltfptr[242] = NULL; - /*_.CLBND__V244*/ meltfptr[243] = NULL; + /*_.CLBND__V244*/ + meltfptr[243] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:2124:/ clear"); - /*clear*/ /*_.CURBNDPAIR__V243*/ meltfptr[242] = 0 ; + /*clear*/ /*_.CURBNDPAIR__V243*/ + meltfptr[242] = 0 ; /*^clear*/ - /*clear*/ /*_.CLBND__V244*/ meltfptr[243] = 0 ; + /*clear*/ /*_.CLBND__V244*/ + meltfptr[243] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L109*/ meltfnum[92] = 0 ; + /*clear*/ /*_#eqeq__L109*/ + meltfnum[92] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_LOCATION("warmelt-normal.melt:2129:/ quasiblock"); /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLCONT__V240*/ meltfptr[199]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22]))) ) /*then*/ @@ -10963,7 +11943,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLCONT__V240*/ meltfptr[199]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.NEWCL__V245*/ meltfptr[244] = slot; + /*_.NEWCL__V245*/ + meltfptr[244] = slot; }; ; } @@ -10977,7 +11958,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2130:/ cond"); - /*cond*/ if (/*_.NEWCL__V245*/ meltfptr[244]) /*then*/ + /*cond*/ + if (/*_.NEWCL__V245*/ meltfptr[244]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10997,25 +11979,32 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:2129:/ clear"); - /*clear*/ /*_.NEWCL__V245*/ meltfptr[244] = 0 ; + /*clear*/ /*_.NEWCL__V245*/ + meltfptr[244] = 0 ; MELT_LOCATION("warmelt-normal.melt:2122:/ clear"); - /*clear*/ /*_.CLCONT__V240*/ meltfptr[199] = 0 ; + /*clear*/ /*_.CLCONT__V240*/ + meltfptr[199] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOBINDL__V242*/ meltfptr[241] = 0 ; + /*clear*/ /*_.CLOBINDL__V242*/ + meltfptr[241] = 0 ; } /* end foreach_pair_component_in_list meltcit7__EACHLIST */ /*_.CURPAIR__V235*/ meltfptr[114] = NULL; - /*_.CURPROC__V236*/ meltfptr[193] = NULL; + /*_.CURPROC__V236*/ + meltfptr[193] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:2118:/ clear"); - /*clear*/ /*_.CURPAIR__V235*/ meltfptr[114] = 0 ; + /*clear*/ /*_.CURPAIR__V235*/ + meltfptr[114] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPROC__V236*/ meltfptr[193] = 0 ; + /*clear*/ /*_.CURPROC__V236*/ + meltfptr[193] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V237*/ meltfptr[138] = 0 ; + /*clear*/ /*_.IFCPP___V237*/ + meltfptr[138] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -11024,7 +12013,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2132:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V231*/ meltfptr[214];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V231*/ meltfptr[214];; MELT_LOCATION("warmelt-normal.melt:2132:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -11032,48 +12022,65 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V230*/ meltfptr[185] = /*_.RETURN___V246*/ meltfptr[244];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V230*/ + meltfptr[185] = /*_.RETURN___V246*/ meltfptr[244];; MELT_LOCATION("warmelt-normal.melt:2106:/ clear"); - /*clear*/ /*_.CLOCC__V231*/ meltfptr[214] = 0 ; + /*clear*/ /*_.CLOCC__V231*/ + meltfptr[214] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V246*/ meltfptr[244] = 0 ; - /*_._IFELSE___V178*/ meltfptr[57] = /*_.LET___V230*/ meltfptr[185];; + /*clear*/ /*_.RETURN___V246*/ + meltfptr[244] = 0 ; + /*_._IFELSE___V178*/ + meltfptr[57] = /*_.LET___V230*/ meltfptr[185];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2047:/ clear"); - /*clear*/ /*_.LET___V230*/ meltfptr[185] = 0 ; + /*clear*/ /*_.LET___V230*/ + meltfptr[185] = 0 ; } ; } ; - /*_.LET___V166*/ meltfptr[120] = /*_._IFELSE___V178*/ meltfptr[57];; + /*_.LET___V166*/ + meltfptr[120] = /*_._IFELSE___V178*/ meltfptr[57];; MELT_LOCATION("warmelt-normal.melt:2032:/ clear"); - /*clear*/ /*_#IS_A__L78*/ meltfnum[34] = 0 ; + /*clear*/ /*_#IS_A__L78*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_.BTY__V167*/ meltfptr[119] = 0 ; + /*clear*/ /*_.BTY__V167*/ + meltfptr[119] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V172*/ meltfptr[80] = 0 ; + /*clear*/ /*_._IF___V172*/ + meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V177*/ meltfptr[78] = 0 ; + /*clear*/ /*_.SETQ___V177*/ + meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L81*/ meltfnum[53] = 0 ; + /*clear*/ /*_#IS_A__L81*/ + meltfnum[53] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V178*/ meltfptr[57] = 0 ; + /*clear*/ /*_._IFELSE___V178*/ + meltfptr[57] = 0 ; MELT_LOCATION("warmelt-normal.melt:2028:/ quasiblock"); - /*_.PROGN___V247*/ meltfptr[199] = /*_.LET___V166*/ meltfptr[120];; + /*_.PROGN___V247*/ + meltfptr[199] = /*_.LET___V166*/ meltfptr[120];; /*^compute*/ - /*_._IFELSE___V163*/ meltfptr[42] = /*_.PROGN___V247*/ meltfptr[199];; + /*_._IFELSE___V163*/ + meltfptr[42] = /*_.PROGN___V247*/ meltfptr[199];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2028:/ clear"); - /*clear*/ /*_.LET___V166*/ meltfptr[120] = 0 ; + /*clear*/ /*_.LET___V166*/ + meltfptr[120] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V247*/ meltfptr[199] = 0 ; + /*clear*/ /*_.PROGN___V247*/ + meltfptr[199] = 0 ; } ; } @@ -11104,7 +12111,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L110*/ meltfnum[89] = + /*_#MELT_NEED_DBG__L110*/ + meltfnum[89] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -11113,7 +12121,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2137:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L110*/ meltfnum[89]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L110*/ meltfnum[89]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11154,16 +12163,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " psloc="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4]; - /*_.MELT_DEBUG_FUN__V249*/ meltfptr[214] = melt_apply ((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__V249*/ + meltfptr[214] = melt_apply ((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___V248*/ meltfptr[241] = /*_.MELT_DEBUG_FUN__V249*/ meltfptr[214];; + /*_._IF___V248*/ + meltfptr[241] = /*_.MELT_DEBUG_FUN__V249*/ meltfptr[214];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2137:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L111*/ meltfnum[100] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L111*/ + meltfnum[100] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V249*/ meltfptr[214] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V249*/ + meltfptr[214] = 0 ; } ; } @@ -11176,7 +12189,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2137:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -11185,9 +12199,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L110*/ meltfnum[89] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L110*/ + meltfnum[89] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V248*/ meltfptr[241] = 0 ; + /*clear*/ /*_._IF___V248*/ + meltfptr[241] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11226,7 +12242,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PROCS__V16*/ meltfptr[15]; /*^ojbmsend.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4]; - /*_.RESNORMBIND__V251*/ meltfptr[185] = meltgc_send((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!NORMALIZE_BINDING*/ meltfrout->tabval[32])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.RESNORMBIND__V251*/ + meltfptr[185] = meltgc_send((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!NORMALIZE_BINDING*/ meltfrout->tabval[32])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -11249,7 +12266,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L112*/ meltfnum[99] = + /*_#MELT_NEED_DBG__L112*/ + meltfnum[99] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -11258,7 +12276,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2141:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L112*/ meltfnum[99]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L112*/ meltfnum[99]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11303,16 +12322,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = " psloc="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4]; - /*_.MELT_DEBUG_FUN__V253*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V253*/ + meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V252*/ meltfptr[119] = /*_.MELT_DEBUG_FUN__V253*/ meltfptr[80];; + /*_._IF___V252*/ + meltfptr[119] = /*_.MELT_DEBUG_FUN__V253*/ meltfptr[80];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2141:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L113*/ meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L113*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V253*/ meltfptr[80] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V253*/ + meltfptr[80] = 0 ; } ; } @@ -11325,7 +12348,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2141:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -11334,9 +12358,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L112*/ meltfnum[99] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L112*/ + meltfnum[99] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V252*/ meltfptr[119] = 0 ; + /*clear*/ /*_._IF___V252*/ + meltfptr[119] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11362,7 +12388,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2143:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.RESNORMBIND__V251*/ meltfptr[185];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.RESNORMBIND__V251*/ meltfptr[185];; MELT_LOCATION("warmelt-normal.melt:2143:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -11370,117 +12397,157 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V250*/ meltfptr[244] = /*_.RETURN___V254*/ meltfptr[78];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V250*/ + meltfptr[244] = /*_.RETURN___V254*/ meltfptr[78];; MELT_LOCATION("warmelt-normal.melt:2138:/ clear"); - /*clear*/ /*_.RESNORMBIND__V251*/ meltfptr[185] = 0 ; + /*clear*/ /*_.RESNORMBIND__V251*/ + meltfptr[185] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V254*/ meltfptr[78] = 0 ; + /*clear*/ /*_.RETURN___V254*/ + meltfptr[78] = 0 ; MELT_LOCATION("warmelt-normal.melt:2136:/ quasiblock"); - /*_.PROGN___V255*/ meltfptr[57] = /*_.LET___V250*/ meltfptr[244];; + /*_.PROGN___V255*/ + meltfptr[57] = /*_.LET___V250*/ meltfptr[244];; /*^compute*/ - /*_._IFELSE___V163*/ meltfptr[42] = /*_.PROGN___V255*/ meltfptr[57];; + /*_._IFELSE___V163*/ + meltfptr[42] = /*_.PROGN___V255*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2028:/ clear"); - /*clear*/ /*_.LET___V250*/ meltfptr[244] = 0 ; + /*clear*/ /*_.LET___V250*/ + meltfptr[244] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V255*/ meltfptr[57] = 0 ; + /*clear*/ /*_.PROGN___V255*/ + meltfptr[57] = 0 ; } ; } ; - /*_._IFELSE___V152*/ meltfptr[121] = /*_._IFELSE___V163*/ meltfptr[42];; + /*_._IFELSE___V152*/ + meltfptr[121] = /*_._IFELSE___V163*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2015:/ clear"); - /*clear*/ /*_#IS_LIST__L73*/ meltfnum[20] = 0 ; + /*clear*/ /*_#IS_LIST__L73*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L74*/ meltfnum[35] = 0 ; + /*clear*/ /*_#_IF___L74*/ + meltfnum[35] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V163*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IFELSE___V163*/ + meltfptr[42] = 0 ; } ; } ; - /*_._IFELSE___V76*/ meltfptr[37] = /*_._IFELSE___V152*/ meltfptr[121];; + /*_._IFELSE___V76*/ + meltfptr[37] = /*_._IFELSE___V152*/ meltfptr[121];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1910:/ clear"); - /*clear*/ /*_#IS_A__L68*/ meltfnum[62] = 0 ; + /*clear*/ /*_#IS_A__L68*/ + meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V152*/ meltfptr[121] = 0 ; + /*clear*/ /*_._IFELSE___V152*/ + meltfptr[121] = 0 ; } ; } ; - /*_._IFELSE___V74*/ meltfptr[28] = /*_._IFELSE___V76*/ meltfptr[37];; + /*_._IFELSE___V74*/ + meltfptr[28] = /*_._IFELSE___V76*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:1906:/ clear"); - /*clear*/ /*_#IS_A__L30*/ meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L30*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V76*/ meltfptr[37] = 0 ; + /*clear*/ /*_._IFELSE___V76*/ + meltfptr[37] = 0 ; } ; } ; - /*_.LET___V66*/ meltfptr[33] = /*_._IFELSE___V74*/ meltfptr[28];; + /*_.LET___V66*/ + meltfptr[33] = /*_._IFELSE___V74*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:1900:/ clear"); - /*clear*/ /*_.SYCMAP__V67*/ meltfptr[59] = 0 ; + /*clear*/ /*_.SYCMAP__V67*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.SYCA__V68*/ meltfptr[58] = 0 ; + /*clear*/ /*_.SYCA__V68*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V69*/ meltfptr[30] = 0 ; + /*clear*/ /*_.IFCPP___V69*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V74*/ meltfptr[28] = 0 ; - /*_.LET___V23*/ meltfptr[21] = /*_.LET___V66*/ meltfptr[33];; + /*clear*/ /*_._IFELSE___V74*/ + meltfptr[28] = 0 ; + /*_.LET___V23*/ + meltfptr[21] = /*_.LET___V66*/ meltfptr[33];; MELT_LOCATION("warmelt-normal.melt:1864:/ clear"); - /*clear*/ /*_.MODCTX__V24*/ meltfptr[17] = 0 ; + /*clear*/ /*_.MODCTX__V24*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.VALBINDMAP__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.VALBINDMAP__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.VALUELIST__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.VALUELIST__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.SYMBNAME__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.SYMBNAME__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NULL__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L19*/ meltfnum[10] = 0 ; + /*clear*/ /*_#IS_A__L19*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V50*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IF___V50*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V66*/ meltfptr[33] = 0 ; + /*clear*/ /*_.LET___V66*/ + meltfptr[33] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V14*/ meltfptr[12] = /*_.LET___V23*/ meltfptr[21];; + /*_.MULTI___V14*/ + meltfptr[12] = /*_.LET___V23*/ meltfptr[21];; MELT_LOCATION("warmelt-normal.melt:1857:/ clear"); - /*clear*/ /*_.IFCPP___V20*/ meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_.LET___V23*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.PROCS__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.PROCS__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.GOTENV__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.GOTENV__V17*/ + meltfptr[16] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:1848:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.MULTI___V14*/ meltfptr[12];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.MULTI___V14*/ meltfptr[12];; { MELT_LOCATION("warmelt-normal.melt:1848:/ locexp"); @@ -11495,15 +12562,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*/ /*_.MULTI___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MULTI___V14*/ + meltfptr[12] = 0 ; } ; @@ -11585,7 +12656,8 @@ meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC fromline 1756 */ - /* classy proc frame meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC */ MeltFrame_meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC + /* classy proc frame meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC */ + MeltFrame_meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC fromline 1785*/ #if ENABLE_CHECKING @@ -11598,7 +12670,8 @@ meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("GECTYP_SYMOCC", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -11608,12 +12681,14 @@ meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:2150:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); ; @@ -11635,10 +12710,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ meltfnum[0] = + /*_#IS_A__L1*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:2151:/ 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);; @@ -11667,25 +12744,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2151; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.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 MELTBPARSTR_PTR ""), 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 MELTBPARSTR_PTR ""), 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-normal.melt:2151:/ 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-normal.melt:2151:/ 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*/ @@ -11698,7 +12781,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NOCC_CTYP"); - /*_.NOCC_CTYP__V7*/ meltfptr[5] = slot; + /*_.NOCC_CTYP__V7*/ + meltfptr[5] = slot; }; ; @@ -11707,7 +12791,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2150:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.NOCC_CTYP__V7*/ meltfptr[5];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.NOCC_CTYP__V7*/ meltfptr[5];; { MELT_LOCATION("warmelt-normal.melt:2150:/ locexp"); @@ -11722,13 +12807,16 @@ 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*/ /*_.NOCC_CTYP__V7*/ meltfptr[5] = 0 ; + /*clear*/ /*_.NOCC_CTYP__V7*/ + meltfptr[5] = 0 ; } ; @@ -11810,7 +12898,8 @@ meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC(meltclosure_ptr_t meltclosp_, melt_ /* end of frame for routine meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC fromline 1756 */ - /* classy proc frame meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC */ MeltFrame_meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC + /* classy proc frame meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC */ + MeltFrame_meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC fromline 1785*/ #if ENABLE_CHECKING @@ -11823,7 +12912,8 @@ meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC(meltclosure_ptr_t meltclosp_, melt_ #define meltframe meltfram__ melt_trace_start("GECTYP_MODVAROCC", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -11833,12 +12923,14 @@ meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC(meltclosure_ptr_t meltclosp_, melt_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:2158:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); ; @@ -11860,10 +12952,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ meltfnum[0] = + /*_#IS_A__L1*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MODULEVAROCC*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:2159:/ 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);; @@ -11892,25 +12986,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2159; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.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 MELTBPARSTR_PTR ""), 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 MELTBPARSTR_PTR ""), 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-normal.melt:2159:/ 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-normal.melt:2159:/ 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*/ @@ -11924,7 +13024,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2160:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*!CTYPE_VALUE*/ meltfrout->tabval[2]);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*!CTYPE_VALUE*/ meltfrout->tabval[2]);; { MELT_LOCATION("warmelt-normal.melt:2160:/ locexp"); @@ -11939,14 +13040,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2158:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.RETURN___V7*/ meltfptr[5];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.RETURN___V7*/ meltfptr[5];; { MELT_LOCATION("warmelt-normal.melt:2158:/ locexp"); @@ -11961,13 +13064,16 @@ 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*/ /*_.RETURN___V7*/ meltfptr[5] = 0 ; + /*clear*/ /*_.RETURN___V7*/ + meltfptr[5] = 0 ; } ; @@ -12049,7 +13155,8 @@ meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS fromline 1756 */ - /* classy proc frame meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS */ MeltFrame_meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS + /* classy proc frame meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS */ + MeltFrame_meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS fromline 1785*/ #if ENABLE_CHECKING @@ -12062,7 +13169,8 @@ meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("NORMEXP_CLASS", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -12072,26 +13180,30 @@ meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:2168:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -12123,7 +13235,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)) @@ -12132,7 +13245,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2169:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12165,16 +13279,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_class recv"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2169:/ 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 ; } ; } @@ -12187,7 +13305,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2169:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12196,9 +13315,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*/ @@ -12228,10 +13349,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_CLASS*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:2170:/ 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);; @@ -12260,25 +13383,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2170; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2170:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2170:/ 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*/ @@ -12296,10 +13425,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:2171:/ 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);; @@ -12328,25 +13459,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2171; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2171:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2171:/ 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*/ @@ -12364,10 +13501,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:2172:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -12396,25 +13535,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2172; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2172:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2172:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12430,10 +13575,12 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V18*/ meltfptr[5] = slot; + /*_.NAMED_NAME__V18*/ + meltfptr[5] = slot; }; ; - /*_.CLASYMB__V19*/ meltfptr[18] = + /*_.CLASYMB__V19*/ + meltfptr[18] = melthookproc_HOOK_NAMED_SYMBOL (melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ meltfptr[5])), (long)MELT_GET);; MELT_CHECK_SIGNAL(); @@ -12445,7 +13592,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CLASYMB__V19*/ meltfptr[18]; - /*_.CLABIND__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CLABIND__V20*/ + meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -12468,7 +13616,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)) @@ -12477,7 +13626,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2176:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12510,16 +13660,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_class clabind"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLABIND__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V21*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; + /*_._IF___V21*/ + meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2176:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[21] = 0 ; } ; } @@ -12532,7 +13686,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2176:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12541,9 +13696,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*/ @@ -12566,10 +13723,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L8*/ meltfnum[1] = + /*_#IS_A__L8*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CLABIND__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normal.melt:2177:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12593,7 +13752,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4]; - /*_.NORMCLA__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.CLASYMB__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMCLA__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.CLASYMB__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -12616,7 +13776,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)) @@ -12625,7 +13786,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2179:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12658,16 +13820,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_class normcla class data inst"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NORMCLA__V25*/ meltfptr[24]; - /*_.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-normal.melt:2179:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[26] = 0 ; } ; } @@ -12680,7 +13846,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2179:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12689,9 +13856,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V26*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12721,10 +13890,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L11*/ meltfnum[9] = + /*_#IS_A__L11*/ + meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.NORMCLA__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-normal.melt:2181:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#IS_A__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_#OR___L12*/ meltfnum[0] = /*_#IS_A__L11*/ meltfnum[9];; @@ -12740,17 +13911,20 @@ meltlab_endgetargs: /*_#IS_A__L13*/ meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.NORMCLA__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ meltfrout->tabval[8])));; /*^compute*/ - /*_#OR___L12*/ meltfnum[0] = /*_#IS_A__L13*/ meltfnum[12];; + /*_#OR___L12*/ + meltfnum[0] = /*_#IS_A__L13*/ meltfnum[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2181:/ clear"); - /*clear*/ /*_#IS_A__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_A__L13*/ + meltfnum[12] = 0 ; } ; } ; MELT_LOCATION("warmelt-normal.melt:2180:/ cond"); - /*cond*/ if (/*_#OR___L12*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#OR___L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V29*/ meltfptr[25] = (/*nil*/NULL);; @@ -12779,27 +13953,34 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2180; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NORMCLA__V25*/ meltfptr[24]; - /*_.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 MELTBPARSTR_PTR ""), 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V29*/ meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29];; + /*_._IFELSE___V29*/ + meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2180:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/ + meltfptr[29] = 0 ; } ; } ; - /*_.IFCPP___V28*/ meltfptr[26] = /*_._IFELSE___V29*/ meltfptr[25];; + /*_.IFCPP___V28*/ + meltfptr[26] = /*_._IFELSE___V29*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2180:/ clear"); - /*clear*/ /*_#IS_A__L11*/ meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L11*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#OR___L12*/ meltfnum[0] = 0 ; + /*clear*/ /*_#OR___L12*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V29*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V29*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12813,7 +13994,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2187:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.NORMCLA__V25*/ meltfptr[24];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.NORMCLA__V25*/ meltfptr[24];; { MELT_LOCATION("warmelt-normal.melt:2187:/ locexp"); @@ -12828,20 +14010,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V24*/ meltfptr[20] = /*_.RETURN___V31*/ meltfptr[29];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V24*/ + meltfptr[20] = /*_.RETURN___V31*/ meltfptr[29];; MELT_LOCATION("warmelt-normal.melt:2178:/ clear"); - /*clear*/ /*_.NORMCLA__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.NORMCLA__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V28*/ meltfptr[26] = 0 ; + /*clear*/ /*_.IFCPP___V28*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V31*/ meltfptr[29] = 0 ; - /*_._IFELSE___V23*/ meltfptr[21] = /*_.LET___V24*/ meltfptr[20];; + /*clear*/ /*_.RETURN___V31*/ + meltfptr[29] = 0 ; + /*_._IFELSE___V23*/ + meltfptr[21] = /*_.LET___V24*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2177:/ clear"); - /*clear*/ /*_.LET___V24*/ meltfptr[20] = 0 ; + /*clear*/ /*_.LET___V24*/ + meltfptr[20] = 0 ; } ; } @@ -12855,10 +14044,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L14*/ meltfnum[12] = + /*_#IS_A__L14*/ + meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.CLABIND__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-normal.melt:2189:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#IS_A__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12880,13 +14071,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLABIND__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 1, "VBIND_VALUE"); - /*_.VBIND_VALUE__V34*/ meltfptr[26] = slot; + /*_.VBIND_VALUE__V34*/ + meltfptr[26] = slot; }; ; - /*_#eqeq__L15*/ meltfnum[9] = + /*_#eqeq__L15*/ + meltfnum[9] = ((/*_.RECV__V2*/ meltfptr[1]) == (/*_.VBIND_VALUE__V34*/ meltfptr[26]));; MELT_LOCATION("warmelt-normal.melt:2190:/ cond"); - /*cond*/ if (/*_#eqeq__L15*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#eqeq__L15*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V35*/ meltfptr[29] = (/*nil*/NULL);; @@ -12917,27 +14111,34 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CLABIND__V20*/ meltfptr[19]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V36*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V35*/ meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[20];; + /*_._IFELSE___V35*/ + meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2190:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V36*/ + meltfptr[20] = 0 ; } ; } ; - /*_.IFCPP___V33*/ meltfptr[24] = /*_._IFELSE___V35*/ meltfptr[29];; + /*_.IFCPP___V33*/ + meltfptr[24] = /*_._IFELSE___V35*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2190:/ clear"); - /*clear*/ /*_.VBIND_VALUE__V34*/ meltfptr[26] = 0 ; + /*clear*/ /*_.VBIND_VALUE__V34*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L15*/ meltfnum[9] = 0 ; + /*clear*/ /*_#eqeq__L15*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V35*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IFELSE___V35*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12962,7 +14163,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4]; - /*_.NORMCLA__V38*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.CLASYMB__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMCLA__V38*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.CLASYMB__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -12985,7 +14187,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)) @@ -12994,7 +14197,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2192:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13027,16 +14231,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_class normcla class value"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NORMCLA__V38*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V40*/ 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__V40*/ + 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___V39*/ meltfptr[29] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; + /*_._IF___V39*/ + meltfptr[29] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2192:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ + meltfptr[39] = 0 ; } ; } @@ -13049,7 +14257,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2192:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13058,9 +14267,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IF___V39*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13090,10 +14301,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L18*/ meltfnum[9] = + /*_#IS_A__L18*/ + meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.NORMCLA__V38*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-normal.melt:2194:/ cond"); - /*cond*/ if (/*_#IS_A__L18*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#IS_A__L18*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V42*/ meltfptr[29] = (/*nil*/NULL);; @@ -13122,25 +14335,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2194; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NORMCLA__V38*/ meltfptr[26]; - /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V43*/ + meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V42*/ meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42];; + /*_._IFELSE___V42*/ + meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2194:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V43*/ + meltfptr[42] = 0 ; } ; } ; - /*_.IFCPP___V41*/ meltfptr[39] = /*_._IFELSE___V42*/ meltfptr[29];; + /*_.IFCPP___V41*/ + meltfptr[39] = /*_._IFELSE___V42*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2194:/ clear"); - /*clear*/ /*_#IS_A__L18*/ meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L18*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V42*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IFELSE___V42*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13154,7 +14373,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2195:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.NORMCLA__V38*/ meltfptr[26];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.NORMCLA__V38*/ meltfptr[26];; { MELT_LOCATION("warmelt-normal.melt:2195:/ locexp"); @@ -13169,29 +14389,39 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V37*/ meltfptr[20] = /*_.RETURN___V44*/ meltfptr[42];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V37*/ + meltfptr[20] = /*_.RETURN___V44*/ meltfptr[42];; MELT_LOCATION("warmelt-normal.melt:2191:/ clear"); - /*clear*/ /*_.NORMCLA__V38*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NORMCLA__V38*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V41*/ meltfptr[39] = 0 ; + /*clear*/ /*_.IFCPP___V41*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V44*/ meltfptr[42] = 0 ; + /*clear*/ /*_.RETURN___V44*/ + meltfptr[42] = 0 ; MELT_LOCATION("warmelt-normal.melt:2189:/ quasiblock"); - /*_.PROGN___V45*/ meltfptr[29] = /*_.LET___V37*/ meltfptr[20];; + /*_.PROGN___V45*/ + meltfptr[29] = /*_.LET___V37*/ meltfptr[20];; /*^compute*/ - /*_._IFELSE___V32*/ meltfptr[25] = /*_.PROGN___V45*/ meltfptr[29];; + /*_._IFELSE___V32*/ + meltfptr[25] = /*_.PROGN___V45*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2189:/ clear"); - /*clear*/ /*_.IFCPP___V33*/ meltfptr[24] = 0 ; + /*clear*/ /*_.IFCPP___V33*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V37*/ meltfptr[20] = 0 ; + /*clear*/ /*_.LET___V37*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V45*/ meltfptr[29] = 0 ; + /*clear*/ /*_.PROGN___V45*/ + meltfptr[29] = 0 ; } ; } @@ -13207,7 +14437,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, "NAMED_NAME"); - /*_.NAMED_NAME__V46*/ meltfptr[26] = slot; + /*_.NAMED_NAME__V46*/ + meltfptr[26] = slot; }; ; @@ -13222,7 +14453,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "class $1 incorrectly bound, perhaps locally rebound"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V46*/ meltfptr[26]; - /*_.ERROR_AT__V47*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V47*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -13245,7 +14477,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L19*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L19*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13254,7 +14487,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2204:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13285,16 +14519,20 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2204; /*^apply.arg*/ argtab[3].meltbp_cstring = "normexp_class failed"; - /*_.MELT_DEBUG_FUN__V49*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V49*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V48*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V49*/ meltfptr[24];; + /*_._IF___V48*/ + meltfptr[42] = /*_.MELT_DEBUG_FUN__V49*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2204:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V49*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V49*/ + meltfptr[24] = 0 ; } ; } @@ -13307,7 +14545,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2204:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13316,9 +14555,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V48*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V48*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13341,7 +14582,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2205:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:2205:/ locexp"); @@ -13356,57 +14598,74 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:2197:/ quasiblock"); - /*_.PROGN___V51*/ meltfptr[29] = /*_.RETURN___V50*/ meltfptr[20];; + /*_.PROGN___V51*/ + meltfptr[29] = /*_.RETURN___V50*/ meltfptr[20];; /*^compute*/ - /*_._IFELSE___V32*/ meltfptr[25] = /*_.PROGN___V51*/ meltfptr[29];; + /*_._IFELSE___V32*/ + meltfptr[25] = /*_.PROGN___V51*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2189:/ clear"); - /*clear*/ /*_.NAMED_NAME__V46*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NAMED_NAME__V46*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V47*/ meltfptr[39] = 0 ; + /*clear*/ /*_.ERROR_AT__V47*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V50*/ meltfptr[20] = 0 ; + /*clear*/ /*_.RETURN___V50*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V51*/ meltfptr[29] = 0 ; + /*clear*/ /*_.PROGN___V51*/ + meltfptr[29] = 0 ; } ; } ; - /*_._IFELSE___V23*/ meltfptr[21] = /*_._IFELSE___V32*/ meltfptr[25];; + /*_._IFELSE___V23*/ + meltfptr[21] = /*_._IFELSE___V32*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2177:/ clear"); - /*clear*/ /*_#IS_A__L14*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_A__L14*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V32*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V32*/ + meltfptr[25] = 0 ; } ; } ; - /*_.LET___V17*/ meltfptr[15] = /*_._IFELSE___V23*/ meltfptr[21];; + /*_.LET___V17*/ + meltfptr[15] = /*_._IFELSE___V23*/ meltfptr[21];; MELT_LOCATION("warmelt-normal.melt:2173:/ clear"); - /*clear*/ /*_.NAMED_NAME__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.NAMED_NAME__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.CLASYMB__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.CLASYMB__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.CLABIND__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.CLABIND__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ + meltfptr[21] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2168:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:2168:/ locexp"); @@ -13421,17 +14680,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -13513,7 +14777,8 @@ meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE(meltclosure_ptr_t meltclosp_, melt /* end of frame for routine meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE fromline 1756 */ - /* classy proc frame meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE */ MeltFrame_meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE + /* classy proc frame meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE */ + MeltFrame_meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE fromline 1785*/ #if ENABLE_CHECKING @@ -13526,7 +14791,8 @@ meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE(meltclosure_ptr_t meltclosp_, melt #define meltframe meltfram__ melt_trace_start("NORMEXP_PRIMITIVE", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -13536,26 +14802,30 @@ meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE(meltclosure_ptr_t meltclosp_, melt /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:2214:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -13587,7 +14857,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)) @@ -13596,7 +14867,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2215:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13629,16 +14901,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_primitive recv"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2215:/ 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 ; } ; } @@ -13651,7 +14927,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2215:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13660,9 +14937,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*/ @@ -13692,10 +14971,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_PRIMITIVE*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:2216:/ 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);; @@ -13724,25 +15005,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2216; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2216:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2216:/ 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*/ @@ -13760,10 +15047,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:2217:/ 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);; @@ -13792,25 +15081,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2217; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2217:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2217:/ 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*/ @@ -13828,10 +15123,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:2218:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -13860,25 +15157,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2218; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2218:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2218:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13894,7 +15197,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2220:/ getslot"); @@ -13902,7 +15206,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, "SPRIM_OPER"); - /*_.SOPER__V19*/ meltfptr[18] = slot; + /*_.SOPER__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2221:/ getslot"); @@ -13910,7 +15215,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SARGOP_ARGS"); - /*_.SARGS__V20*/ meltfptr[19] = slot; + /*_.SARGS__V20*/ + meltfptr[19] = slot; }; ; @@ -13923,10 +15229,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[0] = + /*_#IS_A__L6*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:2223:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V22*/ meltfptr[21] = (/*nil*/NULL);; @@ -13955,25 +15263,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2223; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SOPER__V19*/ meltfptr[18]; - /*_.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 MELTBPARSTR_PTR ""), 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V22*/ meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; + /*_._IFELSE___V22*/ + meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2223:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ + meltfptr[22] = 0 ; } ; } ; - /*_.IFCPP___V21*/ meltfptr[20] = /*_._IFELSE___V22*/ meltfptr[21];; + /*_.IFCPP___V21*/ + meltfptr[20] = /*_._IFELSE___V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2223:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_._IFELSE___V22*/ + meltfptr[21] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14002,7 +15316,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V26*/ meltfptr[25]; /*^multiapply.appl*/ - /*_.NARGS__V25*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NARGS__V25*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -14016,7 +15331,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.SOPNAMSTR__V28*/ meltfptr[27] = slot; + /*_.SOPNAMSTR__V28*/ + meltfptr[27] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2228:/ getslot"); @@ -14024,7 +15340,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 2, "PRIM_FORMALS"); - /*_.SOPFORMALS__V29*/ meltfptr[28] = slot; + /*_.SOPFORMALS__V29*/ + meltfptr[28] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2229:/ getslot"); @@ -14032,7 +15349,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 3, "PRIM_TYPE"); - /*_.SOPTYPE__V30*/ meltfptr[29] = slot; + /*_.SOPTYPE__V30*/ + meltfptr[29] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2230:/ getslot"); @@ -14040,13 +15358,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 4, "PRIM_EXPANSION"); - /*_.SOPEXP__V31*/ meltfptr[30] = slot; + /*_.SOPEXP__V31*/ + meltfptr[30] = slot; }; ; - /*_#NBARG__L7*/ meltfnum[1] = + /*_#NBARG__L7*/ + meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.NARGS__V25*/ meltfptr[21])));; /*^compute*/ - /*_#NBEXP__L8*/ meltfnum[0] = + /*_#NBEXP__L8*/ + meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.SOPEXP__V31*/ meltfptr[30])));; #if MELT_HAVE_DEBUG @@ -14058,10 +15379,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[8] = + /*_#IS_A__L9*/ + meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.SOPTYPE__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:2234:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V33*/ meltfptr[32] = (/*nil*/NULL);; @@ -14090,25 +15413,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2234; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SOPTYPE__V30*/ meltfptr[29]; - /*_.MELT_ASSERT_FAILURE_FUN__V34*/ 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V34*/ + 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V33*/ meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; + /*_._IFELSE___V33*/ + meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2234:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ + meltfptr[33] = 0 ; } ; } ; - /*_.IFCPP___V32*/ meltfptr[31] = /*_._IFELSE___V33*/ meltfptr[32];; + /*_.IFCPP___V32*/ + meltfptr[31] = /*_._IFELSE___V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2234:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IFELSE___V33*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14120,13 +15449,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#MULTIPLE_LENGTH__L10*/ meltfnum[8] = + /*_#MULTIPLE_LENGTH__L10*/ + meltfnum[8] = (melt_multiple_length((melt_ptr_t)(/*_.SOPFORMALS__V29*/ meltfptr[28])));; /*^compute*/ - /*_#exeqI__L11*/ meltfnum[10] = + /*_#exeqI__L11*/ + meltfnum[10] = ((/*_#NBARG__L7*/ meltfnum[1]) != (/*_#MULTIPLE_LENGTH__L10*/ meltfnum[8]));; MELT_LOCATION("warmelt-normal.melt:2235:/ cond"); - /*cond*/ if (/*_#exeqI__L11*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#exeqI__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14152,7 +15484,8 @@ meltlab_endgetargs: argtab[2].meltbp_long = /*_#NBARG__L7*/ meltfnum[1]; /*^apply.arg*/ argtab[3].meltbp_long = /*_#MULTIPLE_LENGTH__L12*/ meltfnum[11]; - /*_.ERROR_AT__V36*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V36*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -14161,7 +15494,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2238:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-normal.melt:2238:/ locexp"); @@ -14176,23 +15510,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:2235:/ quasiblock"); - /*_.PROGN___V38*/ meltfptr[37] = /*_.RETURN___V37*/ meltfptr[36];; + /*_.PROGN___V38*/ + meltfptr[37] = /*_.RETURN___V37*/ meltfptr[36];; /*^compute*/ - /*_._IF___V35*/ meltfptr[33] = /*_.PROGN___V38*/ meltfptr[37];; + /*_._IF___V35*/ + meltfptr[33] = /*_.PROGN___V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2235:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V36*/ meltfptr[32] = 0 ; + /*clear*/ /*_.ERROR_AT__V36*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.RETURN___V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.PROGN___V38*/ + meltfptr[37] = 0 ; } ; } @@ -14205,19 +15546,24 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2239:/ quasiblock"); - /*_#stI__L13*/ meltfnum[11] = + /*_#stI__L13*/ + meltfnum[11] = ((3) * (/*_#NBARG__L7*/ meltfnum[1]));; /*^compute*/ - /*_#diIRAW__L14*/ meltfnum[13] = + /*_#diIRAW__L14*/ + meltfnum[13] = ((/*_#stI__L13*/ meltfnum[11]) / (2));; /*^compute*/ - /*_#plI__L15*/ meltfnum[14] = + /*_#plI__L15*/ + meltfnum[14] = ((5) + (/*_#diIRAW__L14*/ meltfnum[13]));; /*^compute*/ - /*_.BMAP__V40*/ meltfptr[36] = + /*_.BMAP__V40*/ + meltfptr[36] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[9])), (/*_#plI__L15*/ meltfnum[14])));; /*^compute*/ - /*_.EXPARGS__V41*/ meltfptr[37] = + /*_.EXPARGS__V41*/ + meltfptr[37] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[10])), (/*_#NBEXP__L8*/ meltfnum[0])));; /*citerblock FOREACH_IN_MULTIPLE*/ { @@ -14241,10 +15587,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L17*/ meltfnum[16] = + /*_#IS_A__L17*/ + meltfnum[16] = melt_is_instance_of((melt_ptr_t)(/*_.FORB__V42*/ meltfptr[41]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-normal.melt:2245:/ cond"); - /*cond*/ if (/*_#IS_A__L17*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#IS_A__L17*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V44*/ meltfptr[43] = (/*nil*/NULL);; @@ -14273,25 +15621,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2245; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FORB__V42*/ meltfptr[41]; - /*_.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 MELTBPARSTR_PTR ""), 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 MELTBPARSTR_PTR ""), 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-normal.melt:2245:/ 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-normal.melt:2245:/ clear"); - /*clear*/ /*_#IS_A__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#IS_A__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_._IFELSE___V44*/ + meltfptr[43] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14319,7 +15673,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)) @@ -14328,7 +15683,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2246:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14361,16 +15717,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_primitive forb"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FORB__V42*/ meltfptr[41]; - /*_.MELT_DEBUG_FUN__V47*/ 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__V47*/ + 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___V46*/ meltfptr[44] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[43];; + /*_._IF___V46*/ + meltfptr[44] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2246:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V47*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V47*/ + meltfptr[43] = 0 ; } ; } @@ -14383,7 +15743,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2246:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14392,9 +15753,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V46*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IF___V46*/ + meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14422,17 +15785,20 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FORB__V42*/ meltfptr[41]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.FORARG__V48*/ meltfptr[43] = slot; + /*_.FORARG__V48*/ + meltfptr[43] = slot; }; ; - /*_.ACTARG__V49*/ meltfptr[44] = + /*_.ACTARG__V49*/ + meltfptr[44] = (melt_multiple_nth((melt_ptr_t)(/*_.NARGS__V25*/ meltfptr[21]), (/*_#IX__L16*/ meltfnum[15])));; MELT_LOCATION("warmelt-normal.melt:2249:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FORB__V42*/ meltfptr[41]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FORTYPE__V50*/ meltfptr[49] = slot; + /*_.FORTYPE__V50*/ + meltfptr[49] = slot; }; ; @@ -14445,7 +15811,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.ACTYPE__V51*/ meltfptr[50] = meltgc_send((melt_ptr_t)(/*_.ACTARG__V49*/ meltfptr[44]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ACTYPE__V51*/ + meltfptr[50] = meltgc_send((melt_ptr_t)(/*_.ACTARG__V49*/ meltfptr[44]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -14468,7 +15835,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ meltfnum[18] = + /*_#MELT_NEED_DBG__L20*/ + meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14477,7 +15845,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2252:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14514,16 +15883,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " actype="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.ACTYPE__V51*/ meltfptr[50]; - /*_.MELT_DEBUG_FUN__V53*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V53*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V52*/ meltfptr[51] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52];; + /*_._IF___V52*/ + meltfptr[51] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2252:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V53*/ + meltfptr[52] = 0 ; } ; } @@ -14536,7 +15909,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2252:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14545,9 +15919,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_._IF___V52*/ + meltfptr[51] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14573,10 +15949,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L22*/ meltfnum[16] = + /*_#IS_A__L22*/ + meltfnum[16] = melt_is_instance_of((melt_ptr_t)(/*_.FORTYPE__V50*/ meltfptr[49]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:2253:/ cond"); - /*cond*/ if (/*_#IS_A__L22*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#IS_A__L22*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14586,10 +15964,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L24*/ meltfnum[23] = + /*_#IS_A__L24*/ + meltfnum[23] = melt_is_instance_of((melt_ptr_t)(/*_.ACTYPE__V51*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:2253:/ cond"); - /*cond*/ if (/*_#IS_A__L24*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#IS_A__L24*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14599,11 +15979,13 @@ meltlab_endgetargs: /*_#exeq__L26*/ meltfnum[25] = ((/*_.FORTYPE__V50*/ meltfptr[49]) != (/*_.ACTYPE__V51*/ meltfptr[50]));; /*^compute*/ - /*_#_IF___L25*/ meltfnum[24] = /*_#exeq__L26*/ meltfnum[25];; + /*_#_IF___L25*/ + meltfnum[24] = /*_#exeq__L26*/ meltfnum[25];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2253:/ clear"); - /*clear*/ /*_#exeq__L26*/ meltfnum[25] = 0 ; + /*clear*/ /*_#exeq__L26*/ + meltfnum[25] = 0 ; } ; } @@ -14614,13 +15996,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#_IF___L23*/ meltfnum[18] = /*_#_IF___L25*/ meltfnum[24];; + /*_#_IF___L23*/ + meltfnum[18] = /*_#_IF___L25*/ meltfnum[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2253:/ clear"); - /*clear*/ /*_#IS_A__L24*/ meltfnum[23] = 0 ; + /*clear*/ /*_#IS_A__L24*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L25*/ meltfnum[24] = 0 ; + /*clear*/ /*_#_IF___L25*/ + meltfnum[24] = 0 ; } ; } @@ -14631,7 +16016,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:2253:/ cond"); - /*cond*/ if (/*_#_IF___L23*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#_IF___L23*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14639,7 +16025,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2257:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORTYPE__V50*/ meltfptr[49]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13]))) ) /*then*/ @@ -14650,7 +16037,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FORTYPE__V50*/ meltfptr[49]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V55*/ meltfptr[51] = slot; + /*_.NAMED_NAME__V55*/ + meltfptr[51] = slot; }; ; } @@ -14661,7 +16049,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:2257:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ACTYPE__V51*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13]))) ) /*then*/ @@ -14672,7 +16061,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ACTYPE__V51*/ meltfptr[50]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V56*/ meltfptr[55] = slot; + /*_.NAMED_NAME__V56*/ + meltfptr[55] = slot; }; ; } @@ -14703,25 +16093,32 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V56*/ meltfptr[55]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SOPNAMSTR__V28*/ meltfptr[27]; - /*_.ERROR_AT__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V57*/ + meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2253:/ quasiblock"); - /*_.PROGN___V58*/ meltfptr[57] = /*_.ERROR_AT__V57*/ meltfptr[56];; + /*_.PROGN___V58*/ + meltfptr[57] = /*_.ERROR_AT__V57*/ meltfptr[56];; /*^compute*/ - /*_._IF___V54*/ meltfptr[52] = /*_.PROGN___V58*/ meltfptr[57];; + /*_._IF___V54*/ + meltfptr[52] = /*_.PROGN___V58*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2253:/ clear"); - /*clear*/ /*_.NAMED_NAME__V55*/ meltfptr[51] = 0 ; + /*clear*/ /*_.NAMED_NAME__V55*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.NAMED_NAME__V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.ERROR_AT__V57*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.PROGN___V58*/ + meltfptr[57] = 0 ; } ; } @@ -14741,30 +16138,40 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:2247:/ clear"); - /*clear*/ /*_.FORARG__V48*/ meltfptr[43] = 0 ; + /*clear*/ /*_.FORARG__V48*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.ACTARG__V49*/ meltfptr[44] = 0 ; + /*clear*/ /*_.ACTARG__V49*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.FORTYPE__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.FORTYPE__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.ACTYPE__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.ACTYPE__V51*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L22*/ meltfnum[16] = 0 ; + /*clear*/ /*_#IS_A__L22*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L23*/ meltfnum[18] = 0 ; + /*clear*/ /*_#_IF___L23*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V54*/ meltfptr[52] = 0 ; + /*clear*/ /*_._IF___V54*/ + meltfptr[52] = 0 ; if (/*_#IX__L16*/ meltfnum[15]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:2242:/ clear"); - /*clear*/ /*_.FORB__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.FORB__V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#IX__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.IFCPP___V43*/ + meltfptr[42] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -14787,7 +16194,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L27*/ meltfnum[25] = + /*_#MELT_NEED_DBG__L27*/ + meltfnum[25] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14796,7 +16204,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2261:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L27*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L27*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14829,16 +16238,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_primitive bmap in sopexp"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BMAP__V40*/ meltfptr[36]; - /*_.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[51] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[55];; + /*_._IF___V59*/ + meltfptr[51] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2261:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L28*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L28*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ + meltfptr[55] = 0 ; } ; } @@ -14851,7 +16264,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2261:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14860,9 +16274,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L27*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L27*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V59*/ meltfptr[51] = 0 ; + /*clear*/ /*_._IF___V59*/ + meltfptr[51] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14900,10 +16316,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L30*/ meltfnum[16] = + /*_#IS_A__L30*/ + meltfnum[16] = melt_is_instance_of((melt_ptr_t)(/*_.EXCU__V61*/ meltfptr[56]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[14])));; MELT_LOCATION("warmelt-normal.melt:2266:/ cond"); - /*cond*/ if (/*_#IS_A__L30*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#IS_A__L30*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14913,17 +16331,20 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2267:/ quasiblock"); - /*_.BVAL__V64*/ meltfptr[44] = + /*_.BVAL__V64*/ + meltfptr[44] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BMAP__V40*/ meltfptr[36]), (meltobject_ptr_t)(/*_.EXCU__V61*/ meltfptr[56]));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L31*/ meltfnum[18] = + /*_#NULL__L31*/ + meltfnum[18] = (/*null*/(/*_.BVAL__V64*/ meltfptr[44]) == NULL);; MELT_LOCATION("warmelt-normal.melt:2268:/ cond"); - /*cond*/ if (/*_#NULL__L31*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#NULL__L31*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14950,7 +16371,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L32*/ meltfnum[23] = + /*_#MELT_NEED_DBG__L32*/ + meltfnum[23] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14959,7 +16381,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2275:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L32*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L32*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14996,16 +16419,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "excu="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.EXCU__V61*/ meltfptr[56]; - /*_.MELT_DEBUG_FUN__V67*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V67*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V66*/ meltfptr[50] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[52];; + /*_._IF___V66*/ + meltfptr[50] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2275:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L33*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L33*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V67*/ meltfptr[52] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V67*/ + meltfptr[52] = 0 ; } ; } @@ -15018,7 +16445,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2275:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15027,9 +16455,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L32*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L32*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V66*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IF___V66*/ + meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15054,7 +16484,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.EXCU__V61*/ meltfptr[56]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V68*/ meltfptr[55] = slot; + /*_.NAMED_NAME__V68*/ + meltfptr[55] = slot; }; ; @@ -15071,23 +16502,29 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V68*/ meltfptr[55]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SOPNAMSTR__V28*/ meltfptr[27]; - /*_.ERROR_AT__V69*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V69*/ + meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2269:/ quasiblock"); - /*_.PROGN___V70*/ meltfptr[52] = /*_.ERROR_AT__V69*/ meltfptr[51];; + /*_.PROGN___V70*/ + meltfptr[52] = /*_.ERROR_AT__V69*/ meltfptr[51];; /*^compute*/ - /*_._IF___V65*/ meltfptr[49] = /*_.PROGN___V70*/ meltfptr[52];; + /*_._IF___V65*/ + meltfptr[49] = /*_.PROGN___V70*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2268:/ clear"); - /*clear*/ /*_.NAMED_NAME__V68*/ meltfptr[55] = 0 ; + /*clear*/ /*_.NAMED_NAME__V68*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V69*/ meltfptr[51] = 0 ; + /*clear*/ /*_.ERROR_AT__V69*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V70*/ meltfptr[52] = 0 ; + /*clear*/ /*_.PROGN___V70*/ + meltfptr[52] = 0 ; } ; } @@ -15098,19 +16535,25 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V63*/ meltfptr[43] = /*_.BVAL__V64*/ meltfptr[44];; + /*_.LET___V63*/ + meltfptr[43] = /*_.BVAL__V64*/ meltfptr[44];; MELT_LOCATION("warmelt-normal.melt:2267:/ clear"); - /*clear*/ /*_.BVAL__V64*/ meltfptr[44] = 0 ; + /*clear*/ /*_.BVAL__V64*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L31*/ meltfnum[18] = 0 ; + /*clear*/ /*_#NULL__L31*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V65*/ meltfptr[49] = 0 ; - /*_.EXVAL__V62*/ meltfptr[57] = /*_.LET___V63*/ meltfptr[43];; + /*clear*/ /*_._IF___V65*/ + meltfptr[49] = 0 ; + /*_.EXVAL__V62*/ + meltfptr[57] = /*_.LET___V63*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2266:/ clear"); - /*clear*/ /*_.LET___V63*/ meltfptr[43] = 0 ; + /*clear*/ /*_.LET___V63*/ + meltfptr[43] = 0 ; } ; } @@ -15124,10 +16567,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L34*/ meltfnum[25] = + /*_#NULL__L34*/ + meltfnum[25] = (/*null*/(/*_.EXVAL__V62*/ meltfptr[57]) == NULL);; MELT_LOCATION("warmelt-normal.melt:2281:/ cond"); - /*cond*/ if (/*_#NULL__L34*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#NULL__L34*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15143,10 +16588,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L35*/ meltfnum[23] = + /*_#IS_A__L35*/ + meltfnum[23] = melt_is_instance_of((melt_ptr_t)(/*_.EXCU__V61*/ meltfptr[56]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-normal.melt:2285:/ cond"); - /*cond*/ if (/*_#IS_A__L35*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#IS_A__L35*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15158,7 +16605,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.EXCU__V61*/ meltfptr[56]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V71*/ meltfptr[50] = slot; + /*_.NAMED_NAME__V71*/ + meltfptr[50] = slot; }; ; @@ -15170,7 +16618,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2285:/ clear"); - /*clear*/ /*_.NAMED_NAME__V71*/ meltfptr[50] = 0 ; + /*clear*/ /*_.NAMED_NAME__V71*/ + meltfptr[50] = 0 ; } ; } /*noelse*/ @@ -15181,7 +16630,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2281:/ clear"); - /*clear*/ /*_#IS_A__L35*/ meltfnum[23] = 0 ; + /*clear*/ /*_#IS_A__L35*/ + meltfnum[23] = 0 ; } ; } /*noelse*/ @@ -15194,20 +16644,25 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:2265:/ clear"); - /*clear*/ /*_#IS_A__L30*/ meltfnum[16] = 0 ; + /*clear*/ /*_#IS_A__L30*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.EXVAL__V62*/ meltfptr[57] = 0 ; + /*clear*/ /*_.EXVAL__V62*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L34*/ meltfnum[25] = 0 ; + /*clear*/ /*_#NULL__L34*/ + meltfnum[25] = 0 ; if (/*_#JX__L29*/ meltfnum[24]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:2262:/ clear"); - /*clear*/ /*_.EXCU__V61*/ meltfptr[56] = 0 ; + /*clear*/ /*_.EXCU__V61*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_#JX__L29*/ meltfnum[24] = 0 ; + /*clear*/ /*_#JX__L29*/ + meltfnum[24] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -15230,7 +16685,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L36*/ meltfnum[18] = + /*_#MELT_NEED_DBG__L36*/ + meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15239,7 +16695,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2292:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L36*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L36*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15272,16 +16729,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_primitive soper"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SOPER__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V73*/ 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__V73*/ + 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___V72*/ meltfptr[55] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[51];; + /*_._IF___V72*/ + meltfptr[55] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[51];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2292:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L37*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L37*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ meltfptr[51] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ + meltfptr[51] = 0 ; } ; } @@ -15294,7 +16755,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2292:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15303,9 +16765,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L36*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L36*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V72*/ meltfptr[55] = 0 ; + /*clear*/ /*_._IF___V72*/ + meltfptr[55] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15335,10 +16799,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L38*/ meltfnum[16] = + /*_#IS_A__L38*/ + meltfnum[16] = melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-normal.melt:2293:/ cond"); - /*cond*/ if (/*_#IS_A__L38*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#IS_A__L38*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V75*/ meltfptr[44] = (/*nil*/NULL);; @@ -15367,25 +16833,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2293; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SOPER__V19*/ meltfptr[18]; - /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V76*/ + meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V75*/ meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[49];; + /*_._IFELSE___V75*/ + meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2293:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[49] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V76*/ + meltfptr[49] = 0 ; } ; } ; - /*_.IFCPP___V74*/ meltfptr[52] = /*_._IFELSE___V75*/ meltfptr[44];; + /*_.IFCPP___V74*/ + meltfptr[52] = /*_._IFELSE___V75*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2293:/ clear"); - /*clear*/ /*_#IS_A__L38*/ meltfnum[16] = 0 ; + /*clear*/ /*_#IS_A__L38*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V75*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IFELSE___V75*/ + meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15416,7 +16888,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[16])), (4), "CLASS_NREP_CHUNK"); - /*_.INST__V80*/ meltfptr[51] = + /*_.INST__V80*/ + meltfptr[51] = newobj; }; ; @@ -15444,7 +16917,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V80*/ meltfptr[51], "newly made instance"); ; - /*_.NCHUNK__V79*/ meltfptr[57] = /*_.INST__V80*/ meltfptr[51];; + /*_.NCHUNK__V79*/ + meltfptr[57] = /*_.INST__V80*/ meltfptr[51];; MELT_CHECK_SIGNAL(); ; @@ -15456,7 +16930,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[17])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V82*/ meltfptr[49] = + /*_.INST__V82*/ + meltfptr[49] = newobj; }; ; @@ -15484,7 +16959,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V82*/ meltfptr[49], "newly made instance"); ; - /*_.CBIND__V81*/ meltfptr[55] = /*_.INST__V82*/ meltfptr[49];; + /*_.CBIND__V81*/ + meltfptr[55] = /*_.INST__V82*/ meltfptr[49];; MELT_CHECK_SIGNAL(); ; @@ -15496,7 +16972,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[18])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V84*/ meltfptr[83] = + /*_.INST__V84*/ + meltfptr[83] = newobj; }; ; @@ -15524,7 +17001,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V84*/ meltfptr[83], "newly made instance"); ; - /*_.CLOCC__V83*/ meltfptr[44] = /*_.INST__V84*/ meltfptr[83];; + /*_.CLOCC__V83*/ + meltfptr[44] = /*_.INST__V84*/ meltfptr[83];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2313:/ cppif.then"); @@ -15545,7 +17023,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L39*/ meltfnum[25] = + /*_#MELT_NEED_DBG__L39*/ + meltfnum[25] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15554,7 +17033,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2313:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L39*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L39*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15587,16 +17067,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_primitive nchunk="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCHUNK__V79*/ meltfptr[57]; - /*_.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-normal.melt:2313:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L40*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L40*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V86*/ meltfptr[85] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V86*/ + meltfptr[85] = 0 ; } ; } @@ -15609,7 +17093,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2313:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15618,9 +17103,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L39*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L39*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V85*/ meltfptr[84] = 0 ; + /*clear*/ /*_._IF___V85*/ + meltfptr[84] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15643,10 +17130,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L41*/ meltfnum[18] = + /*_#IS_LIST__L41*/ + meltfnum[18] = (melt_magic_discr((melt_ptr_t)(/*_.NBIND__V26*/ meltfptr[25])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:2314:/ cond"); - /*cond*/ if (/*_#IS_LIST__L41*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L41*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15674,7 +17163,8 @@ meltlab_endgetargs: /*_.MAKE_LIST__V87*/ meltfptr[85] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[19]))));; MELT_LOCATION("warmelt-normal.melt:2317:/ compute"); - /*_.NBIND__V26*/ meltfptr[25] = /*_.SETQ___V88*/ meltfptr[84] = /*_.MAKE_LIST__V87*/ meltfptr[85];; + /*_.NBIND__V26*/ + meltfptr[25] = /*_.SETQ___V88*/ meltfptr[84] = /*_.MAKE_LIST__V87*/ meltfptr[85];; { MELT_LOCATION("warmelt-normal.melt:2318:/ locexp"); @@ -15687,9 +17177,11 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2314:/ clear"); - /*clear*/ /*_.MAKE_LIST__V87*/ meltfptr[85] = 0 ; + /*clear*/ /*_.MAKE_LIST__V87*/ + meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V88*/ meltfptr[84] = 0 ; + /*clear*/ /*_.SETQ___V88*/ + meltfptr[84] = 0 ; } ; } @@ -15714,7 +17206,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L42*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L42*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15723,7 +17216,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2320:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L42*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L42*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15756,16 +17250,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_primitive result clocc"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V83*/ meltfptr[44]; - /*_.MELT_DEBUG_FUN__V90*/ 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__V90*/ + 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___V89*/ meltfptr[85] = /*_.MELT_DEBUG_FUN__V90*/ meltfptr[84];; + /*_._IF___V89*/ + meltfptr[85] = /*_.MELT_DEBUG_FUN__V90*/ meltfptr[84];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2320:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L43*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L43*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V90*/ meltfptr[84] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V90*/ + meltfptr[84] = 0 ; } ; } @@ -15778,7 +17276,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2320:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15787,9 +17286,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L42*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L42*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V89*/ meltfptr[85] = 0 ; + /*clear*/ /*_._IF___V89*/ + meltfptr[85] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15815,7 +17316,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2321:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V83*/ meltfptr[44];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V83*/ meltfptr[44];; MELT_LOCATION("warmelt-normal.melt:2321:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -15823,87 +17325,125 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V77*/ meltfptr[43] = /*_.RETURN___V91*/ meltfptr[84];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V77*/ + meltfptr[43] = /*_.RETURN___V91*/ meltfptr[84];; MELT_LOCATION("warmelt-normal.melt:2294:/ clear"); - /*clear*/ /*_.CSYM__V78*/ meltfptr[50] = 0 ; + /*clear*/ /*_.CSYM__V78*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHUNK__V79*/ meltfptr[57] = 0 ; + /*clear*/ /*_.NCHUNK__V79*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V81*/ meltfptr[55] = 0 ; + /*clear*/ /*_.CBIND__V81*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V83*/ meltfptr[44] = 0 ; + /*clear*/ /*_.CLOCC__V83*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L41*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IS_LIST__L41*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V91*/ meltfptr[84] = 0 ; - /*_.LET___V39*/ meltfptr[32] = /*_.LET___V77*/ meltfptr[43];; + /*clear*/ /*_.RETURN___V91*/ + meltfptr[84] = 0 ; + /*_.LET___V39*/ + meltfptr[32] = /*_.LET___V77*/ meltfptr[43];; MELT_LOCATION("warmelt-normal.melt:2239:/ clear"); - /*clear*/ /*_#stI__L13*/ meltfnum[11] = 0 ; + /*clear*/ /*_#stI__L13*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_#diIRAW__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#diIRAW__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#plI__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.BMAP__V40*/ meltfptr[36] = 0 ; + /*clear*/ /*_.BMAP__V40*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPARGS__V41*/ meltfptr[37] = 0 ; + /*clear*/ /*_.EXPARGS__V41*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V74*/ meltfptr[52] = 0 ; + /*clear*/ /*_.IFCPP___V74*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V77*/ meltfptr[43] = 0 ; - /*_.LET___V27*/ meltfptr[26] = /*_.LET___V39*/ meltfptr[32];; + /*clear*/ /*_.LET___V77*/ + meltfptr[43] = 0 ; + /*_.LET___V27*/ + meltfptr[26] = /*_.LET___V39*/ meltfptr[32];; MELT_LOCATION("warmelt-normal.melt:2227:/ clear"); - /*clear*/ /*_.SOPNAMSTR__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.SOPNAMSTR__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.SOPFORMALS__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.SOPFORMALS__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.SOPTYPE__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.SOPTYPE__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.SOPEXP__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.SOPEXP__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_#NBARG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NBARG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#NBEXP__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NBEXP__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.IFCPP___V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#exeqI__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#exeqI__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V35*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V35*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V39*/ meltfptr[32] = 0 ; - /*_.MULTI___V24*/ meltfptr[22] = /*_.LET___V27*/ meltfptr[26];; + /*clear*/ /*_.LET___V39*/ + meltfptr[32] = 0 ; + /*_.MULTI___V24*/ + meltfptr[22] = /*_.LET___V27*/ meltfptr[26];; MELT_LOCATION("warmelt-normal.melt:2224:/ clear"); - /*clear*/ /*_.LET___V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.LET___V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V26*/ meltfptr[25] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.MULTI___V24*/ meltfptr[22];; + /*clear*/ /*_.NBIND__V26*/ + meltfptr[25] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.MULTI___V24*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:2219:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SOPER__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SOPER__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SARGS__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SARGS__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.IFCPP___V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V24*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MULTI___V24*/ + meltfptr[22] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2214:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:2214:/ locexp"); @@ -15918,17 +17458,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -16010,7 +17555,8 @@ meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL(meltclosure_ptr_t meltclosp_, melt /* end of frame for routine meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL fromline 1756 */ - /* classy proc frame meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL */ MeltFrame_meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL + /* classy proc frame meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL */ + MeltFrame_meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL fromline 1785*/ #if ENABLE_CHECKING @@ -16023,7 +17569,8 @@ meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL(meltclosure_ptr_t meltclosp_, melt #define meltframe meltfram__ melt_trace_start("NORMEXP_HOOK_CALL", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -16033,26 +17580,30 @@ meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL(meltclosure_ptr_t meltclosp_, melt /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:2330:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -16084,7 +17635,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)) @@ -16093,7 +17645,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2331:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16126,16 +17679,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_hook_call recv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2331:/ 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 ; } ; } @@ -16148,7 +17705,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2331:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -16157,9 +17715,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*/ @@ -16200,10 +17760,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_HOOK_CALL*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:2333:/ 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);; @@ -16232,25 +17794,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2333; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2333:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2333:/ 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*/ @@ -16268,10 +17836,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:2334:/ 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);; @@ -16300,25 +17870,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2334; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2334:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2334:/ 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*/ @@ -16336,10 +17912,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:2335:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -16368,25 +17946,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2335; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2335:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2335:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16402,7 +17986,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2337:/ getslot"); @@ -16410,7 +17995,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, "SHOOK_CALLED"); - /*_.SHOOK__V19*/ meltfptr[18] = slot; + /*_.SHOOK__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2338:/ getslot"); @@ -16418,22 +18004,30 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SARGOP_ARGS"); - /*_.SARGS__V20*/ meltfptr[19] = slot; + /*_.SARGS__V20*/ + meltfptr[19] = slot; }; ; - /*_.HKNAME__V21*/ meltfptr[20] = (/*nil*/NULL);; + /*_.HKNAME__V21*/ + meltfptr[20] = (/*nil*/NULL);; /*^compute*/ - /*_.HKSYMB__V22*/ meltfptr[21] = (/*nil*/NULL);; + /*_.HKSYMB__V22*/ + meltfptr[21] = (/*nil*/NULL);; /*^compute*/ - /*_.HKINS__V23*/ meltfptr[22] = (/*nil*/NULL);; + /*_.HKINS__V23*/ + meltfptr[22] = (/*nil*/NULL);; /*^compute*/ - /*_.HKOUTS__V24*/ meltfptr[23] = (/*nil*/NULL);; + /*_.HKOUTS__V24*/ + meltfptr[23] = (/*nil*/NULL);; /*^compute*/ - /*_.HKCTYPE__V25*/ meltfptr[24] = (/*nil*/NULL);; + /*_.HKCTYPE__V25*/ + meltfptr[24] = (/*nil*/NULL);; /*^compute*/ - /*_.HKDESCR__V26*/ meltfptr[25] = (/*nil*/NULL);; + /*_.HKDESCR__V26*/ + meltfptr[25] = (/*nil*/NULL);; /*^compute*/ - /*_#ERRORFLAG__L6*/ meltfnum[0] = 0;; + /*_#ERRORFLAG__L6*/ + meltfnum[0] = 0;; MELT_CHECK_SIGNAL(); ; @@ -16463,7 +18057,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)) @@ -16472,7 +18067,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2348:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16509,16 +18105,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " sargs="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SARGS__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V29*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), 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-normal.melt:2348:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ + meltfptr[28] = 0 ; } ; } @@ -16531,7 +18131,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2348:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -16540,9 +18141,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V28*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16573,7 +18176,8 @@ meltlab_endgetargs: /*objgoto*/ goto mtch1_0; ; -/*objlabel*/ mtch1_0: + /*objlabel*/ +mtch1_0: ; MELT_LOCATION("warmelt-normal.melt:2350:/ objlabel"); /* objlabel */ @@ -16585,15 +18189,20 @@ meltlab_endgetargs: ; /*^clear*/ - /*clear*/ /*_.SDEF_NAME__V30*/ meltfptr[28] = 0 ; + /*clear*/ /*_.SDEF_NAME__V30*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.SFORMAL_ARGS__V31*/ meltfptr[27] = 0 ; + /*clear*/ /*_.SFORMAL_ARGS__V31*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.SHOOK_CTYPE__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.SHOOK_CTYPE__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.SHOOK_OUT_FORMALS__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.SHOOK_OUT_FORMALS__V33*/ + meltfptr[32] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.SHOOK__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFHOOK*/ meltfrout->tabval[6]))))) /*then*/ { @@ -16607,7 +18216,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SHOOK__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); - /*_.SDEF_NAME__V30*/ meltfptr[28] = slot; + /*_.SDEF_NAME__V30*/ + meltfptr[28] = slot; }; ; /*^getslot*/ @@ -16615,7 +18225,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SHOOK__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SFORMAL_ARGS"); - /*_.SFORMAL_ARGS__V31*/ meltfptr[27] = slot; + /*_.SFORMAL_ARGS__V31*/ + meltfptr[27] = slot; }; ; /*^getslot*/ @@ -16623,7 +18234,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SHOOK__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SHOOK_OUT_FORMALS"); - /*_.SHOOK_OUT_FORMALS__V33*/ meltfptr[32] = slot; + /*_.SHOOK_OUT_FORMALS__V33*/ + meltfptr[32] = slot; }; ; /*^getslot*/ @@ -16631,11 +18243,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SHOOK__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 6, "SHOOK_CTYPE"); - /*_.SHOOK_CTYPE__V32*/ meltfptr[31] = slot; + /*_.SHOOK_CTYPE__V32*/ + meltfptr[31] = slot; }; ; /*^objgoto*/ - /*objgoto*/ goto mtch1_1; + /*objgoto*/ + goto mtch1_1; ; } ; @@ -16648,14 +18262,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2364:/ objgoto"); - /*objgoto*/ goto mtch1_2; + /*objgoto*/ + goto mtch1_2; ; } ; } ; -/*objlabel*/ mtch1_1: + /*objlabel*/ +mtch1_1: ; MELT_LOCATION("warmelt-normal.melt:2350:/ objlabel"); /* objlabel */ @@ -16669,15 +18285,20 @@ meltlab_endgetargs: /*^quasiblock*/ - /*_.SHCTYPE__V34*/ meltfptr[33] = /*_.SHOOK_CTYPE__V32*/ meltfptr[31];; + /*_.SHCTYPE__V34*/ + meltfptr[33] = /*_.SHOOK_CTYPE__V32*/ meltfptr[31];; /*^compute*/ - /*_.SHKINS__V35*/ meltfptr[34] = /*_.SFORMAL_ARGS__V31*/ meltfptr[27];; + /*_.SHKINS__V35*/ + meltfptr[34] = /*_.SFORMAL_ARGS__V31*/ meltfptr[27];; /*^compute*/ - /*_.SHKOUTS__V36*/ meltfptr[35] = /*_.SHOOK_OUT_FORMALS__V33*/ meltfptr[32];; + /*_.SHKOUTS__V36*/ + meltfptr[35] = /*_.SHOOK_OUT_FORMALS__V33*/ meltfptr[32];; /*^compute*/ - /*_.SHKSYMB__V37*/ meltfptr[36] = /*_.SDEF_NAME__V30*/ meltfptr[28];; + /*_.SHKSYMB__V37*/ + meltfptr[36] = /*_.SDEF_NAME__V30*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:2355:/ compute"); - /*_.HKSYMB__V22*/ meltfptr[21] = /*_.SETQ___V38*/ meltfptr[37] = /*_.SHKSYMB__V37*/ meltfptr[36];; + /*_.HKSYMB__V22*/ + meltfptr[21] = /*_.SETQ___V38*/ meltfptr[37] = /*_.SHKSYMB__V37*/ meltfptr[36];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2356:/ cppif.then"); @@ -16688,10 +18309,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[7] = + /*_#IS_A__L9*/ + meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.HKSYMB__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:2356:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V40*/ meltfptr[39] = (/*nil*/NULL);; @@ -16720,25 +18343,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2356; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKSYMB__V22*/ meltfptr[21]; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V40*/ meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[40];; + /*_._IFELSE___V40*/ + meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2356:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V41*/ + meltfptr[40] = 0 ; } ; } ; - /*_.IFCPP___V39*/ meltfptr[38] = /*_._IFELSE___V40*/ meltfptr[39];; + /*_.IFCPP___V39*/ + meltfptr[38] = /*_._IFELSE___V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2356:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IFELSE___V40*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16747,7 +18376,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normal.melt:2357:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SHKSYMB__V37*/ meltfptr[36]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8]))) ) /*then*/ @@ -16758,7 +18388,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SHKSYMB__V37*/ meltfptr[36]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V42*/ meltfptr[40] = slot; + /*_.NAMED_NAME__V42*/ + meltfptr[40] = slot; }; ; } @@ -16769,13 +18400,17 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:2357:/ compute"); - /*_.HKNAME__V21*/ meltfptr[20] = /*_.SETQ___V43*/ meltfptr[39] = /*_.NAMED_NAME__V42*/ meltfptr[40];; + /*_.HKNAME__V21*/ + meltfptr[20] = /*_.SETQ___V43*/ meltfptr[39] = /*_.NAMED_NAME__V42*/ meltfptr[40];; MELT_LOCATION("warmelt-normal.melt:2358:/ compute"); - /*_.HKINS__V23*/ meltfptr[22] = /*_.SETQ___V44*/ meltfptr[43] = /*_.SHKINS__V35*/ meltfptr[34];; + /*_.HKINS__V23*/ + meltfptr[22] = /*_.SETQ___V44*/ meltfptr[43] = /*_.SHKINS__V35*/ meltfptr[34];; MELT_LOCATION("warmelt-normal.melt:2359:/ compute"); - /*_.HKOUTS__V24*/ meltfptr[23] = /*_.SETQ___V45*/ meltfptr[44] = /*_.SHKOUTS__V36*/ meltfptr[35];; + /*_.HKOUTS__V24*/ + meltfptr[23] = /*_.SETQ___V45*/ meltfptr[44] = /*_.SHKOUTS__V36*/ meltfptr[35];; MELT_LOCATION("warmelt-normal.melt:2360:/ compute"); - /*_.HKCTYPE__V25*/ meltfptr[24] = /*_.SETQ___V46*/ meltfptr[45] = /*_.SHCTYPE__V34*/ meltfptr[33];; + /*_.HKCTYPE__V25*/ + meltfptr[24] = /*_.SETQ___V46*/ meltfptr[45] = /*_.SHCTYPE__V34*/ meltfptr[33];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2361:/ cppif.then"); @@ -16796,7 +18431,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16805,7 +18441,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2361:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16846,16 +18483,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n hkouts="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.HKOUTS__V24*/ meltfptr[23]; - /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V48*/ + meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V47*/ meltfptr[46] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47];; + /*_._IF___V47*/ + meltfptr[46] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2361:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ + meltfptr[47] = 0 ; } ; } @@ -16868,7 +18509,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2361:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -16877,9 +18519,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_._IF___V47*/ + meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16904,32 +18548,45 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:2350:/ clear"); - /*clear*/ /*_.SHCTYPE__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.SHCTYPE__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.SHKINS__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.SHKINS__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.SHKOUTS__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.SHKOUTS__V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.SHKSYMB__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.SHKSYMB__V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.SETQ___V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.IFCPP___V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V42*/ meltfptr[40] = 0 ; + /*clear*/ /*_.NAMED_NAME__V42*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V43*/ meltfptr[39] = 0 ; + /*clear*/ /*_.SETQ___V43*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.SETQ___V44*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.SETQ___V45*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.SETQ___V46*/ + meltfptr[45] = 0 ; /*^objgoto*/ - /*objgoto*/ goto mtch1__end /*endmatch*/; + /*objgoto*/ + goto mtch1__end /*endmatch*/; ; -/*objlabel*/ mtch1_2: + /*objlabel*/ +mtch1_2: ; MELT_LOCATION("warmelt-normal.melt:2364:/ objlabel"); /* objlabel */ @@ -16941,9 +18598,11 @@ meltlab_endgetargs: ; /*^clear*/ - /*clear*/ /*_.HKDATA__V49*/ meltfptr[47] = 0 ; + /*clear*/ /*_.HKDATA__V49*/ + meltfptr[47] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /* some_hook_with_data SOMEHOOK_mtch1__1 ? */ ((/*_.SHOOK__V19*/ meltfptr[18]) && melt_magic_discr ((melt_ptr_t)(/*_.SHOOK__V19*/ meltfptr[18])) == MELTOBMAG_HOOK) ) /*then*/ { @@ -16963,7 +18622,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:2366:/ objgoto"); - /*objgoto*/ goto mtch1_3; + /*objgoto*/ + goto mtch1_3; ; } ; @@ -16977,14 +18637,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2383:/ objgoto"); - /*objgoto*/ goto mtch1_5; + /*objgoto*/ + goto mtch1_5; ; } ; } ; -/*objlabel*/ mtch1_3: + /*objlabel*/ +mtch1_3: ; MELT_LOCATION("warmelt-normal.melt:2366:/ objlabel"); /* objlabel */ @@ -16996,15 +18658,20 @@ meltlab_endgetargs: ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V50*/ meltfptr[46] = 0 ; + /*clear*/ /*_.NAMED_NAME__V50*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOKDESC_IN_FORMALS__V51*/ meltfptr[33] = 0 ; + /*clear*/ /*_.HOOKDESC_IN_FORMALS__V51*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOKDESC_OUT_FORMALS__V52*/ meltfptr[34] = 0 ; + /*clear*/ /*_.HOOKDESC_OUT_FORMALS__V52*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOKDESC_CTYPE__V53*/ meltfptr[35] = 0 ; + /*clear*/ /*_.HOOKDESC_CTYPE__V53*/ + meltfptr[35] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.HKDATA__V49*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_HOOK_DESCRIPTOR*/ meltfrout->tabval[10]))))) /*then*/ { @@ -17018,7 +18685,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.HKDATA__V49*/ meltfptr[47]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V50*/ meltfptr[46] = slot; + /*_.NAMED_NAME__V50*/ + meltfptr[46] = slot; }; ; /*^getslot*/ @@ -17026,7 +18694,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.HKDATA__V49*/ meltfptr[47]) /*=obj*/; melt_object_get_field(slot,obj, 2, "HOOKDESC_IN_FORMALS"); - /*_.HOOKDESC_IN_FORMALS__V51*/ meltfptr[33] = slot; + /*_.HOOKDESC_IN_FORMALS__V51*/ + meltfptr[33] = slot; }; ; /*^getslot*/ @@ -17034,7 +18703,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.HKDATA__V49*/ meltfptr[47]) /*=obj*/; melt_object_get_field(slot,obj, 3, "HOOKDESC_OUT_FORMALS"); - /*_.HOOKDESC_OUT_FORMALS__V52*/ meltfptr[34] = slot; + /*_.HOOKDESC_OUT_FORMALS__V52*/ + meltfptr[34] = slot; }; ; /*^getslot*/ @@ -17042,11 +18712,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.HKDATA__V49*/ meltfptr[47]) /*=obj*/; melt_object_get_field(slot,obj, 4, "HOOKDESC_CTYPE"); - /*_.HOOKDESC_CTYPE__V53*/ meltfptr[35] = slot; + /*_.HOOKDESC_CTYPE__V53*/ + meltfptr[35] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2364:/ objgoto"); - /*objgoto*/ goto mtch1_4; + /*objgoto*/ + goto mtch1_4; ; } ; @@ -17060,14 +18732,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2383:/ objgoto"); - /*objgoto*/ goto mtch1_5; + /*objgoto*/ + goto mtch1_5; ; } ; } ; -/*objlabel*/ mtch1_4: + /*objlabel*/ +mtch1_4: ; MELT_LOCATION("warmelt-normal.melt:2364:/ objlabel"); /* objlabel */ @@ -17081,15 +18755,20 @@ meltlab_endgetargs: /*^quasiblock*/ - /*_.DHKCTYPE__V54*/ meltfptr[36] = /*_.HOOKDESC_CTYPE__V53*/ meltfptr[35];; + /*_.DHKCTYPE__V54*/ + meltfptr[36] = /*_.HOOKDESC_CTYPE__V53*/ meltfptr[35];; /*^compute*/ - /*_.DHKDESCR__V55*/ meltfptr[37] = /*_.HKDATA__V49*/ meltfptr[47];; + /*_.DHKDESCR__V55*/ + meltfptr[37] = /*_.HKDATA__V49*/ meltfptr[47];; /*^compute*/ - /*_.DHKINS__V56*/ meltfptr[38] = /*_.HOOKDESC_IN_FORMALS__V51*/ meltfptr[33];; + /*_.DHKINS__V56*/ + meltfptr[38] = /*_.HOOKDESC_IN_FORMALS__V51*/ meltfptr[33];; /*^compute*/ - /*_.DHKNAME__V57*/ meltfptr[40] = /*_.NAMED_NAME__V50*/ meltfptr[46];; + /*_.DHKNAME__V57*/ + meltfptr[40] = /*_.NAMED_NAME__V50*/ meltfptr[46];; /*^compute*/ - /*_.DHKOUTS__V58*/ meltfptr[39] = /*_.HOOKDESC_OUT_FORMALS__V52*/ meltfptr[34];; + /*_.DHKOUTS__V58*/ + meltfptr[39] = /*_.HOOKDESC_OUT_FORMALS__V52*/ meltfptr[34];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2371:/ cppif.then"); @@ -17100,10 +18779,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L12*/ meltfnum[7] = + /*_#IS_STRING__L12*/ + meltfnum[7] = (melt_magic_discr((melt_ptr_t)(/*_.DHKNAME__V57*/ meltfptr[40])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-normal.melt:2371:/ cond"); - /*cond*/ if (/*_#IS_STRING__L12*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L12*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V60*/ meltfptr[44] = (/*nil*/NULL);; @@ -17132,25 +18813,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2371; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DHKNAME__V57*/ meltfptr[40]; - /*_.MELT_ASSERT_FAILURE_FUN__V61*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V61*/ + meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V60*/ meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V61*/ meltfptr[45];; + /*_._IFELSE___V60*/ + meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V61*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2371:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V61*/ meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V61*/ + meltfptr[45] = 0 ; } ; } ; - /*_.IFCPP___V59*/ meltfptr[43] = /*_._IFELSE___V60*/ meltfptr[44];; + /*_.IFCPP___V59*/ + meltfptr[43] = /*_._IFELSE___V60*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2371:/ clear"); - /*clear*/ /*_#IS_STRING__L12*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_STRING__L12*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V60*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IFELSE___V60*/ + meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17159,20 +18846,27 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.GET_SYMBOLSTR__V62*/ meltfptr[47] = + /*_.GET_SYMBOLSTR__V62*/ + meltfptr[47] = melthookproc_HOOK_NAMED_SYMBOL (melt_string_str((melt_ptr_t)(/*_.DHKNAME__V57*/ meltfptr[40])), (long)MELT_GET);; MELT_LOCATION("warmelt-normal.melt:2372:/ compute"); - /*_.HKSYMB__V22*/ meltfptr[21] = /*_.SETQ___V63*/ meltfptr[45] = /*_.GET_SYMBOLSTR__V62*/ meltfptr[47];; + /*_.HKSYMB__V22*/ + meltfptr[21] = /*_.SETQ___V63*/ meltfptr[45] = /*_.GET_SYMBOLSTR__V62*/ meltfptr[47];; MELT_LOCATION("warmelt-normal.melt:2373:/ compute"); - /*_.HKNAME__V21*/ meltfptr[20] = /*_.SETQ___V64*/ meltfptr[44] = /*_.DHKNAME__V57*/ meltfptr[40];; + /*_.HKNAME__V21*/ + meltfptr[20] = /*_.SETQ___V64*/ meltfptr[44] = /*_.DHKNAME__V57*/ meltfptr[40];; MELT_LOCATION("warmelt-normal.melt:2374:/ compute"); - /*_.HKDESCR__V26*/ meltfptr[25] = /*_.SETQ___V65*/ meltfptr[64] = /*_.DHKDESCR__V55*/ meltfptr[37];; + /*_.HKDESCR__V26*/ + meltfptr[25] = /*_.SETQ___V65*/ meltfptr[64] = /*_.DHKDESCR__V55*/ meltfptr[37];; MELT_LOCATION("warmelt-normal.melt:2375:/ compute"); - /*_.HKINS__V23*/ meltfptr[22] = /*_.SETQ___V66*/ meltfptr[65] = /*_.DHKINS__V56*/ meltfptr[38];; + /*_.HKINS__V23*/ + meltfptr[22] = /*_.SETQ___V66*/ meltfptr[65] = /*_.DHKINS__V56*/ meltfptr[38];; MELT_LOCATION("warmelt-normal.melt:2376:/ compute"); - /*_.HKOUTS__V24*/ meltfptr[23] = /*_.SETQ___V67*/ meltfptr[66] = /*_.DHKOUTS__V58*/ meltfptr[39];; + /*_.HKOUTS__V24*/ + meltfptr[23] = /*_.SETQ___V67*/ meltfptr[66] = /*_.DHKOUTS__V58*/ meltfptr[39];; MELT_LOCATION("warmelt-normal.melt:2377:/ compute"); - /*_.HKCTYPE__V25*/ meltfptr[24] = /*_.SETQ___V68*/ meltfptr[67] = /*_.DHKCTYPE__V54*/ meltfptr[36];; + /*_.HKCTYPE__V25*/ + meltfptr[24] = /*_.SETQ___V68*/ meltfptr[67] = /*_.DHKCTYPE__V54*/ meltfptr[36];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2378:/ cppif.then"); @@ -17193,7 +18887,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L13*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -17202,7 +18897,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2378:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L13*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17247,16 +18943,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n.. hkctype="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.HKCTYPE__V25*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V70*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V70*/ + meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V69*/ meltfptr[68] = /*_.MELT_DEBUG_FUN__V70*/ meltfptr[69];; + /*_._IF___V69*/ + meltfptr[68] = /*_.MELT_DEBUG_FUN__V70*/ meltfptr[69];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2378:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V70*/ meltfptr[69] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V70*/ + meltfptr[69] = 0 ; } ; } @@ -17269,7 +18969,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2378:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -17278,9 +18979,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_._IF___V69*/ + meltfptr[68] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17305,36 +19008,51 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:2364:/ clear"); - /*clear*/ /*_.DHKCTYPE__V54*/ meltfptr[36] = 0 ; + /*clear*/ /*_.DHKCTYPE__V54*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.DHKDESCR__V55*/ meltfptr[37] = 0 ; + /*clear*/ /*_.DHKDESCR__V55*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.DHKINS__V56*/ meltfptr[38] = 0 ; + /*clear*/ /*_.DHKINS__V56*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.DHKNAME__V57*/ meltfptr[40] = 0 ; + /*clear*/ /*_.DHKNAME__V57*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.DHKOUTS__V58*/ meltfptr[39] = 0 ; + /*clear*/ /*_.DHKOUTS__V58*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V59*/ meltfptr[43] = 0 ; + /*clear*/ /*_.IFCPP___V59*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.GET_SYMBOLSTR__V62*/ meltfptr[47] = 0 ; + /*clear*/ /*_.GET_SYMBOLSTR__V62*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V63*/ meltfptr[45] = 0 ; + /*clear*/ /*_.SETQ___V63*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V64*/ meltfptr[44] = 0 ; + /*clear*/ /*_.SETQ___V64*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V65*/ meltfptr[64] = 0 ; + /*clear*/ /*_.SETQ___V65*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.SETQ___V66*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_.SETQ___V67*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V68*/ meltfptr[67] = 0 ; + /*clear*/ /*_.SETQ___V68*/ + meltfptr[67] = 0 ; /*^objgoto*/ - /*objgoto*/ goto mtch1__end /*endmatch*/; + /*objgoto*/ + goto mtch1__end /*endmatch*/; ; -/*objlabel*/ mtch1_5: + /*objlabel*/ +mtch1_5: ; MELT_LOCATION("warmelt-normal.melt:2383:/ objlabel"); /* objlabel */ @@ -17358,11 +19076,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "invalid hook call"; - /*_.ERROR_AT__V71*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V71*/ + meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2385:/ compute"); - /*_#ERRORFLAG__L6*/ meltfnum[0] = /*_#SETQ___L15*/ meltfnum[7] = 1;; + /*_#ERRORFLAG__L6*/ + meltfnum[0] = /*_#SETQ___L15*/ meltfnum[7] = 1;; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2386:/ cppif.then"); @@ -17374,7 +19094,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V73*/ meltfptr[36] = (/*nil*/NULL);; @@ -17403,23 +19124,28 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2386; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SHOOK__V19*/ meltfptr[18]; - /*_.MELT_ASSERT_FAILURE_FUN__V74*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V74*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V73*/ meltfptr[36] = /*_.MELT_ASSERT_FAILURE_FUN__V74*/ meltfptr[37];; + /*_._IFELSE___V73*/ + meltfptr[36] = /*_.MELT_ASSERT_FAILURE_FUN__V74*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2386:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V74*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V74*/ + meltfptr[37] = 0 ; } ; } ; - /*_.IFCPP___V72*/ meltfptr[68] = /*_._IFELSE___V73*/ meltfptr[36];; + /*_.IFCPP___V72*/ + meltfptr[68] = /*_._IFELSE___V73*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2386:/ clear"); - /*clear*/ /*_._IFELSE___V73*/ meltfptr[36] = 0 ; + /*clear*/ /*_._IFELSE___V73*/ + meltfptr[36] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17432,16 +19158,21 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:2383:/ clear"); - /*clear*/ /*_.ERROR_AT__V71*/ meltfptr[69] = 0 ; + /*clear*/ /*_.ERROR_AT__V71*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L15*/ meltfnum[7] = 0 ; + /*clear*/ /*_#SETQ___L15*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V72*/ meltfptr[68] = 0 ; + /*clear*/ /*_.IFCPP___V72*/ + meltfptr[68] = 0 ; /*^objgoto*/ - /*objgoto*/ goto mtch1__end /*endmatch*/; + /*objgoto*/ + goto mtch1__end /*endmatch*/; ; -/*objlabel*/ mtch1__end: + /*objlabel*/ +mtch1__end: ; MELT_LOCATION("warmelt-normal.melt:2349:/ objlabel"); /* objlabel */ @@ -17464,10 +19195,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L16*/ meltfnum[1] = + /*_#IS_STRING__L16*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.HKNAME__V21*/ meltfptr[20])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-normal.melt:2388:/ cond"); - /*cond*/ if (/*_#IS_STRING__L16*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L16*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V76*/ meltfptr[40] = (/*nil*/NULL);; @@ -17496,25 +19229,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2388; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20]; - /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V77*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V76*/ meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[39];; + /*_._IFELSE___V76*/ + meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2388:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V77*/ + meltfptr[39] = 0 ; } ; } ; - /*_.IFCPP___V75*/ meltfptr[38] = /*_._IFELSE___V76*/ meltfptr[40];; + /*_.IFCPP___V75*/ + meltfptr[38] = /*_._IFELSE___V76*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2388:/ clear"); - /*clear*/ /*_#IS_STRING__L16*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRING__L16*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V76*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IFELSE___V76*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17532,10 +19271,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L17*/ meltfnum[7] = + /*_#IS_MULTIPLE__L17*/ + meltfnum[7] = (melt_magic_discr((melt_ptr_t)(/*_.HKINS__V23*/ meltfptr[22])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-normal.melt:2389:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L17*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L17*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V79*/ meltfptr[47] = (/*nil*/NULL);; @@ -17564,25 +19305,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2389; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKINS__V23*/ meltfptr[22]; - /*_.MELT_ASSERT_FAILURE_FUN__V80*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V80*/ + meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V79*/ meltfptr[47] = /*_.MELT_ASSERT_FAILURE_FUN__V80*/ meltfptr[45];; + /*_._IFELSE___V79*/ + meltfptr[47] = /*_.MELT_ASSERT_FAILURE_FUN__V80*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2389:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V80*/ meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V80*/ + meltfptr[45] = 0 ; } ; } ; - /*_.IFCPP___V78*/ meltfptr[43] = /*_._IFELSE___V79*/ meltfptr[47];; + /*_.IFCPP___V78*/ + meltfptr[43] = /*_._IFELSE___V79*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2389:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L17*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L17*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V79*/ meltfptr[47] = 0 ; + /*clear*/ /*_._IFELSE___V79*/ + meltfptr[47] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17600,10 +19347,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L18*/ meltfnum[1] = + /*_#IS_MULTIPLE__L18*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.HKOUTS__V24*/ meltfptr[23])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-normal.melt:2390:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L18*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L18*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V82*/ meltfptr[64] = (/*nil*/NULL);; @@ -17632,25 +19381,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2390; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKOUTS__V24*/ meltfptr[23]; - /*_.MELT_ASSERT_FAILURE_FUN__V83*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V83*/ + meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V82*/ meltfptr[64] = /*_.MELT_ASSERT_FAILURE_FUN__V83*/ meltfptr[65];; + /*_._IFELSE___V82*/ + meltfptr[64] = /*_.MELT_ASSERT_FAILURE_FUN__V83*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2390:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V83*/ meltfptr[65] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V83*/ + meltfptr[65] = 0 ; } ; } ; - /*_.IFCPP___V81*/ meltfptr[44] = /*_._IFELSE___V82*/ meltfptr[64];; + /*_.IFCPP___V81*/ + meltfptr[44] = /*_._IFELSE___V82*/ meltfptr[64];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2390:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L18*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L18*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V82*/ meltfptr[64] = 0 ; + /*clear*/ /*_._IFELSE___V82*/ + meltfptr[64] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17668,10 +19423,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L19*/ meltfnum[7] = + /*_#IS_A__L19*/ + meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.HKCTYPE__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:2391:/ cond"); - /*cond*/ if (/*_#IS_A__L19*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_A__L19*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V85*/ meltfptr[67] = (/*nil*/NULL);; @@ -17700,25 +19457,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2391; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKCTYPE__V25*/ meltfptr[24]; - /*_.MELT_ASSERT_FAILURE_FUN__V86*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V86*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V85*/ meltfptr[67] = /*_.MELT_ASSERT_FAILURE_FUN__V86*/ meltfptr[37];; + /*_._IFELSE___V85*/ + meltfptr[67] = /*_.MELT_ASSERT_FAILURE_FUN__V86*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2391:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V86*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V86*/ + meltfptr[37] = 0 ; } ; } ; - /*_.IFCPP___V84*/ meltfptr[66] = /*_._IFELSE___V85*/ meltfptr[67];; + /*_.IFCPP___V84*/ + meltfptr[66] = /*_._IFELSE___V85*/ meltfptr[67];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2391:/ clear"); - /*clear*/ /*_#IS_A__L19*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L19*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V85*/ meltfptr[67] = 0 ; + /*clear*/ /*_._IFELSE___V85*/ + meltfptr[67] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17746,7 +19509,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L20*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -17755,7 +19519,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2392:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L20*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17804,16 +19569,20 @@ meltlab_endgetargs: argtab[11].meltbp_cstring = "\n.. hkctype="; /*^apply.arg*/ argtab[12].meltbp_aptr = (melt_ptr_t*) &/*_.HKCTYPE__V25*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V88*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V88*/ + meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V87*/ meltfptr[36] = /*_.MELT_DEBUG_FUN__V88*/ meltfptr[69];; + /*_._IF___V87*/ + meltfptr[36] = /*_.MELT_DEBUG_FUN__V88*/ meltfptr[69];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2392:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V88*/ meltfptr[69] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V88*/ + meltfptr[69] = 0 ; } ; } @@ -17826,7 +19595,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2392:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -17835,9 +19605,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V87*/ meltfptr[36] = 0 ; + /*clear*/ /*_._IF___V87*/ + meltfptr[36] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17867,10 +19639,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L22*/ meltfnum[7] = + /*_#IS_A__L22*/ + meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.HKCTYPE__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:2395:/ cond"); - /*cond*/ if (/*_#IS_A__L22*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_A__L22*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V90*/ meltfptr[39] = (/*nil*/NULL);; @@ -17899,25 +19673,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2395; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKCTYPE__V25*/ meltfptr[24]; - /*_.MELT_ASSERT_FAILURE_FUN__V91*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V91*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V90*/ meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V91*/ meltfptr[40];; + /*_._IFELSE___V90*/ + meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V91*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2395:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V91*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V91*/ + meltfptr[40] = 0 ; } ; } ; - /*_.IFCPP___V89*/ meltfptr[68] = /*_._IFELSE___V90*/ meltfptr[39];; + /*_.IFCPP___V89*/ + meltfptr[68] = /*_._IFELSE___V90*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2395:/ clear"); - /*clear*/ /*_#IS_A__L22*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L22*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V90*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IFELSE___V90*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17928,13 +19708,16 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2396:/ quasiblock"); - /*_#NBINS__L23*/ meltfnum[1] = + /*_#NBINS__L23*/ + meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.HKINS__V23*/ meltfptr[22])));; /*^compute*/ - /*_#NBOUTS__L24*/ meltfnum[7] = + /*_#NBOUTS__L24*/ + meltfnum[7] = (melt_multiple_length((melt_ptr_t)(/*_.HKOUTS__V24*/ meltfptr[23])));; MELT_LOCATION("warmelt-normal.melt:2398:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.HKNAME__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8]))) ) /*then*/ @@ -17945,7 +19728,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.HKNAME__V21*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.HNAMESTR__V93*/ meltfptr[47] = slot; + /*_.HNAMESTR__V93*/ + meltfptr[47] = slot; }; ; } @@ -17956,13 +19740,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.SINS__V94*/ meltfptr[65] = + /*_.SINS__V94*/ + meltfptr[65] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[13])), (/*_#NBINS__L23*/ meltfnum[1])));; /*^compute*/ - /*_.SOUTS__V95*/ meltfptr[64] = + /*_.SOUTS__V95*/ + meltfptr[64] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[13])), (/*_#NBOUTS__L24*/ meltfnum[7])));; /*^compute*/ - /*_.NOUTS__V96*/ meltfptr[37] = + /*_.NOUTS__V96*/ + meltfptr[37] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[13])), (/*_#NBOUTS__L24*/ meltfnum[7])));; MELT_CHECK_SIGNAL(); @@ -17974,7 +19761,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.HKSYMB__V22*/ meltfptr[21]; - /*_.HKBIND__V97*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.HKBIND__V97*/ + meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -17997,7 +19785,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L25*/ meltfnum[24] = + /*_#MELT_NEED_DBG__L25*/ + meltfnum[24] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18006,7 +19795,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2404:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L25*/ meltfnum[24]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L25*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18043,16 +19833,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n hksymb="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.HKSYMB__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V99*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V99*/ + 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V98*/ meltfptr[69] = /*_.MELT_DEBUG_FUN__V99*/ meltfptr[36];; + /*_._IF___V98*/ + meltfptr[69] = /*_.MELT_DEBUG_FUN__V99*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2404:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L26*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L26*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V99*/ meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V99*/ + meltfptr[36] = 0 ; } ; } @@ -18065,7 +19859,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2404:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18074,9 +19869,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L25*/ meltfnum[24] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L25*/ + meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V98*/ meltfptr[69] = 0 ; + /*clear*/ /*_._IF___V98*/ + meltfptr[69] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18106,10 +19903,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L27*/ meltfnum[25] = + /*_#IS_OBJECT__L27*/ + meltfnum[25] = (melt_magic_discr((melt_ptr_t)(/*_.HKBIND__V97*/ meltfptr[67])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-normal.melt:2405:/ cond"); - /*cond*/ if (/*_#IS_OBJECT__L27*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#IS_OBJECT__L27*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V101*/ meltfptr[39] = (/*nil*/NULL);; @@ -18138,25 +19937,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2405; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKBIND__V97*/ meltfptr[67]; - /*_.MELT_ASSERT_FAILURE_FUN__V102*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V102*/ + meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V101*/ meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V102*/ meltfptr[36];; + /*_._IFELSE___V101*/ + meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V102*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2405:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V102*/ meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V102*/ + meltfptr[36] = 0 ; } ; } ; - /*_.IFCPP___V100*/ meltfptr[40] = /*_._IFELSE___V101*/ meltfptr[39];; + /*_.IFCPP___V100*/ + meltfptr[40] = /*_._IFELSE___V101*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2405:/ clear"); - /*clear*/ /*_#IS_OBJECT__L27*/ meltfnum[25] = 0 ; + /*clear*/ /*_#IS_OBJECT__L27*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V101*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IFELSE___V101*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18168,16 +19973,20 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#MULTIPLE_LENGTH__L28*/ meltfnum[24] = + /*_#MULTIPLE_LENGTH__L28*/ + meltfnum[24] = (melt_multiple_length((melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19])));; /*^compute*/ - /*_#plI__L29*/ meltfnum[25] = + /*_#plI__L29*/ + meltfnum[25] = ((/*_#NBINS__L23*/ meltfnum[1]) + (/*_#NBOUTS__L24*/ meltfnum[7]));; /*^compute*/ - /*_#exeqI__L30*/ meltfnum[29] = + /*_#exeqI__L30*/ + meltfnum[29] = ((/*_#MULTIPLE_LENGTH__L28*/ meltfnum[24]) != (/*_#plI__L29*/ meltfnum[25]));; MELT_LOCATION("warmelt-normal.melt:2406:/ cond"); - /*cond*/ if (/*_#exeqI__L30*/ meltfnum[29]) /*then*/ + /*cond*/ + if (/*_#exeqI__L30*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18205,7 +20014,8 @@ meltlab_endgetargs: argtab[3].meltbp_long = /*_#NBINS__L23*/ meltfnum[1]; /*^apply.arg*/ argtab[4].meltbp_long = /*_#NBOUTS__L24*/ meltfnum[7]; - /*_.ERROR_AT__V104*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V104*/ + meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -18214,7 +20024,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2409:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*nil*/NULL);; MELT_LOCATION("warmelt-normal.melt:2409:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -18222,23 +20033,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:2406:/ quasiblock"); - /*_.PROGN___V106*/ meltfptr[105] = /*_.RETURN___V105*/ meltfptr[39];; + /*_.PROGN___V106*/ + meltfptr[105] = /*_.RETURN___V105*/ meltfptr[39];; /*^compute*/ - /*_._IF___V103*/ meltfptr[69] = /*_.PROGN___V106*/ meltfptr[105];; + /*_._IF___V103*/ + meltfptr[69] = /*_.PROGN___V106*/ meltfptr[105];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2406:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L31*/ meltfnum[30] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L31*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V104*/ meltfptr[36] = 0 ; + /*clear*/ /*_.ERROR_AT__V104*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V105*/ meltfptr[39] = 0 ; + /*clear*/ /*_.RETURN___V105*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V106*/ meltfptr[105] = 0 ; + /*clear*/ /*_.PROGN___V106*/ + meltfptr[105] = 0 ; } ; } @@ -18249,7 +20067,8 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#miI__L32*/ meltfnum[30] = + /*_#miI__L32*/ + meltfnum[30] = ((/*_#NBINS__L23*/ meltfnum[1]) - (1));; /*citerblock FOREACH_LONG_UPTO*/ { @@ -18265,7 +20084,8 @@ meltlab_endgetargs: - /*_.MULTIPLE_NTH__V107*/ meltfptr[36] = + /*_.MULTIPLE_NTH__V107*/ + meltfptr[36] = (melt_multiple_nth((melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (/*_#INIX__L33*/ meltfnum[32])));; { @@ -18278,9 +20098,11 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:2411:/ clear"); - /*clear*/ /*_#INIX__L33*/ meltfnum[32] = 0 ; + /*clear*/ /*_#INIX__L33*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_NTH__V107*/ meltfptr[36] = 0 ; + /*clear*/ /*_.MULTIPLE_NTH__V107*/ + meltfptr[36] = 0 ; } /*endciterblock FOREACH_LONG_UPTO*/ ; @@ -18303,7 +20125,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L34*/ meltfnum[33] = + /*_#MELT_NEED_DBG__L34*/ + meltfnum[33] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18312,7 +20135,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2416:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L34*/ meltfnum[33]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L34*/ meltfnum[33]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18345,16 +20169,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_hook_call sins="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SINS__V94*/ meltfptr[65]; - /*_.MELT_DEBUG_FUN__V109*/ meltfptr[105] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V109*/ + meltfptr[105] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V108*/ meltfptr[39] = /*_.MELT_DEBUG_FUN__V109*/ meltfptr[105];; + /*_._IF___V108*/ + meltfptr[39] = /*_.MELT_DEBUG_FUN__V109*/ meltfptr[105];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2416:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L35*/ meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L35*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V109*/ meltfptr[105] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V109*/ + meltfptr[105] = 0 ; } ; } @@ -18367,7 +20195,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2416:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18376,9 +20205,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L34*/ meltfnum[33] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L34*/ + meltfnum[33] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V108*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V108*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18419,7 +20250,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NINBINDS__V112*/ meltfptr[111]; /*^multiapply.appl*/ - /*_.NINARGS__V111*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SINS__V94*/ meltfptr[65]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NINARGS__V111*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SINS__V94*/ meltfptr[65]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -18445,7 +20277,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L36*/ meltfnum[34] = + /*_#MELT_NEED_DBG__L36*/ + meltfnum[34] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18454,7 +20287,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2420:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L36*/ meltfnum[34]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L36*/ meltfnum[34]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18491,16 +20325,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ninbinds="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NINBINDS__V112*/ meltfptr[111]; - /*_.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 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 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-normal.melt:2420:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L37*/ meltfnum[33] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L37*/ + meltfnum[33] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V114*/ meltfptr[113] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V114*/ + meltfptr[113] = 0 ; } ; } @@ -18513,7 +20351,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2420:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18522,9 +20361,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L36*/ meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L36*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V113*/ meltfptr[112] = 0 ; + /*clear*/ /*_._IF___V113*/ + meltfptr[112] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18547,10 +20388,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L38*/ meltfnum[33] = + /*_#NULL__L38*/ + meltfnum[33] = (/*null*/(/*_.NINBINDS__V112*/ meltfptr[111]) == NULL);; MELT_LOCATION("warmelt-normal.melt:2421:/ cond"); - /*cond*/ if (/*_#NULL__L38*/ meltfnum[33]) /*then*/ + /*cond*/ + if (/*_#NULL__L38*/ meltfnum[33]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18560,14 +20403,18 @@ meltlab_endgetargs: /*_.MAKE_LIST__V116*/ meltfptr[112] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[16]))));; MELT_LOCATION("warmelt-normal.melt:2422:/ compute"); - /*_.NINBINDS__V112*/ meltfptr[111] = /*_.SETQ___V117*/ meltfptr[116] = /*_.MAKE_LIST__V116*/ meltfptr[112];; - /*_._IF___V115*/ meltfptr[113] = /*_.SETQ___V117*/ meltfptr[116];; + /*_.NINBINDS__V112*/ + meltfptr[111] = /*_.SETQ___V117*/ meltfptr[116] = /*_.MAKE_LIST__V116*/ meltfptr[112];; + /*_._IF___V115*/ + meltfptr[113] = /*_.SETQ___V117*/ meltfptr[116];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2421:/ clear"); - /*clear*/ /*_.MAKE_LIST__V116*/ meltfptr[112] = 0 ; + /*clear*/ /*_.MAKE_LIST__V116*/ + meltfptr[112] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V117*/ meltfptr[116] = 0 ; + /*clear*/ /*_.SETQ___V117*/ + meltfptr[116] = 0 ; } ; } @@ -18597,22 +20444,27 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURINBIND__V119*/ meltfptr[116]; - /*_.PUT_ENV__V120*/ meltfptr[119] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.NEWENV__V27*/ meltfptr[26]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V120*/ + meltfptr[119] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.NEWENV__V27*/ meltfptr[26]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; } /* end foreach_pair_component_in_list meltcit2__EACHLIST */ /*_.CURPAIR__V118*/ meltfptr[112] = NULL; - /*_.CURINBIND__V119*/ meltfptr[116] = NULL; + /*_.CURINBIND__V119*/ + meltfptr[116] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:2423:/ clear"); - /*clear*/ /*_.CURPAIR__V118*/ meltfptr[112] = 0 ; + /*clear*/ /*_.CURPAIR__V118*/ + meltfptr[112] = 0 ; /*^clear*/ - /*clear*/ /*_.CURINBIND__V119*/ meltfptr[116] = 0 ; + /*clear*/ /*_.CURINBIND__V119*/ + meltfptr[116] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V120*/ meltfptr[119] = 0 ; + /*clear*/ /*_.PUT_ENV__V120*/ + meltfptr[119] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -18630,10 +20482,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2432:/ quasiblock"); - /*_.CURINBIND__V122*/ meltfptr[121] = + /*_.CURINBIND__V122*/ + meltfptr[121] = (melt_multiple_nth((melt_ptr_t)(/*_.HKINS__V23*/ meltfptr[22]), (/*_#INIX__L39*/ meltfnum[34])));; MELT_LOCATION("warmelt-normal.melt:2433:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINBIND__V122*/ meltfptr[121]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[18]))) ) /*then*/ @@ -18644,7 +20498,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINBIND__V122*/ meltfptr[121]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.INBCTYP__V123*/ meltfptr[122] = slot; + /*_.INBCTYP__V123*/ + meltfptr[122] = slot; }; ; } @@ -18655,7 +20510,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:2434:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINBIND__V122*/ meltfptr[121]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[19]))) ) /*then*/ @@ -18666,7 +20522,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINBIND__V122*/ meltfptr[121]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.INBINDER__V124*/ meltfptr[123] = slot; + /*_.INBINDER__V124*/ + meltfptr[123] = slot; }; ; } @@ -18686,7 +20543,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V27*/ meltfptr[26]; - /*_.CURINCTYP__V125*/ meltfptr[124] = meltgc_send((melt_ptr_t)(/*_.CURINARG__V121*/ meltfptr[120]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[20])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CURINCTYP__V125*/ + meltfptr[124] = meltgc_send((melt_ptr_t)(/*_.CURINARG__V121*/ meltfptr[120]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[20])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -18709,7 +20567,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L41*/ meltfnum[40] = + /*_#MELT_NEED_DBG__L41*/ + meltfnum[40] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18718,7 +20577,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2437:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L41*/ meltfnum[40]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L41*/ meltfnum[40]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18767,16 +20627,20 @@ meltlab_endgetargs: argtab[11].meltbp_cstring = "\n curinctyp="; /*^apply.arg*/ argtab[12].meltbp_aptr = (melt_ptr_t*) &/*_.CURINCTYP__V125*/ meltfptr[124]; - /*_.MELT_DEBUG_FUN__V127*/ meltfptr[126] = melt_apply ((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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V127*/ + meltfptr[126] = melt_apply ((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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V126*/ meltfptr[125] = /*_.MELT_DEBUG_FUN__V127*/ meltfptr[126];; + /*_._IF___V126*/ + meltfptr[125] = /*_.MELT_DEBUG_FUN__V127*/ meltfptr[126];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2437:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L42*/ meltfnum[41] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L42*/ + meltfnum[41] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V127*/ meltfptr[126] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V127*/ + meltfptr[126] = 0 ; } ; } @@ -18789,7 +20653,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2437:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18798,9 +20663,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L41*/ meltfnum[40] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L41*/ + meltfnum[40] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V126*/ meltfptr[125] = 0 ; + /*clear*/ /*_._IF___V126*/ + meltfptr[125] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18830,10 +20697,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L43*/ meltfnum[41] = + /*_#IS_A__L43*/ + meltfnum[41] = melt_is_instance_of((melt_ptr_t)(/*_.INBCTYP__V123*/ meltfptr[122]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:2440:/ cond"); - /*cond*/ if (/*_#IS_A__L43*/ meltfnum[41]) /*then*/ + /*cond*/ + if (/*_#IS_A__L43*/ meltfnum[41]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V129*/ meltfptr[125] = (/*nil*/NULL);; @@ -18862,25 +20731,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2440; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.INBCTYP__V123*/ meltfptr[122]; - /*_.MELT_ASSERT_FAILURE_FUN__V130*/ meltfptr[129] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V130*/ + meltfptr[129] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V129*/ meltfptr[125] = /*_.MELT_ASSERT_FAILURE_FUN__V130*/ meltfptr[129];; + /*_._IFELSE___V129*/ + meltfptr[125] = /*_.MELT_ASSERT_FAILURE_FUN__V130*/ meltfptr[129];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2440:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V130*/ meltfptr[129] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V130*/ + meltfptr[129] = 0 ; } ; } ; - /*_.IFCPP___V128*/ meltfptr[126] = /*_._IFELSE___V129*/ meltfptr[125];; + /*_.IFCPP___V128*/ + meltfptr[126] = /*_._IFELSE___V129*/ meltfptr[125];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2440:/ clear"); - /*clear*/ /*_#IS_A__L43*/ meltfnum[41] = 0 ; + /*clear*/ /*_#IS_A__L43*/ + meltfnum[41] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V129*/ meltfptr[125] = 0 ; + /*clear*/ /*_._IFELSE___V129*/ + meltfptr[125] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18898,10 +20773,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L44*/ meltfnum[40] = + /*_#IS_A__L44*/ + meltfnum[40] = melt_is_instance_of((melt_ptr_t)(/*_.CURINCTYP__V125*/ meltfptr[124]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:2441:/ cond"); - /*cond*/ if (/*_#IS_A__L44*/ meltfnum[40]) /*then*/ + /*cond*/ + if (/*_#IS_A__L44*/ meltfnum[40]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V132*/ meltfptr[125] = (/*nil*/NULL);; @@ -18930,25 +20807,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2441; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURINCTYP__V125*/ meltfptr[124]; - /*_.MELT_ASSERT_FAILURE_FUN__V133*/ meltfptr[132] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V133*/ + meltfptr[132] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V132*/ meltfptr[125] = /*_.MELT_ASSERT_FAILURE_FUN__V133*/ meltfptr[132];; + /*_._IFELSE___V132*/ + meltfptr[125] = /*_.MELT_ASSERT_FAILURE_FUN__V133*/ meltfptr[132];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2441:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V133*/ meltfptr[132] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V133*/ + meltfptr[132] = 0 ; } ; } ; - /*_.IFCPP___V131*/ meltfptr[129] = /*_._IFELSE___V132*/ meltfptr[125];; + /*_.IFCPP___V131*/ + meltfptr[129] = /*_._IFELSE___V132*/ meltfptr[125];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2441:/ clear"); - /*clear*/ /*_#IS_A__L44*/ meltfnum[40] = 0 ; + /*clear*/ /*_#IS_A__L44*/ + meltfnum[40] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V132*/ meltfptr[125] = 0 ; + /*clear*/ /*_._IFELSE___V132*/ + meltfptr[125] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18960,10 +20843,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#exeq__L45*/ meltfnum[41] = + /*_#exeq__L45*/ + meltfnum[41] = ((/*_.INBCTYP__V123*/ meltfptr[122]) != (/*_.CURINCTYP__V125*/ meltfptr[124]));; MELT_LOCATION("warmelt-normal.melt:2442:/ cond"); - /*cond*/ if (/*_#exeq__L45*/ meltfnum[41]) /*then*/ + /*cond*/ + if (/*_#exeq__L45*/ meltfnum[41]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18971,7 +20856,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2444:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.INBINDER__V124*/ meltfptr[123]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8]))) ) /*then*/ @@ -18982,7 +20868,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.INBINDER__V124*/ meltfptr[123]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V134*/ meltfptr[132] = slot; + /*_.NAMED_NAME__V134*/ + meltfptr[132] = slot; }; ; } @@ -18993,7 +20880,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:2444:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.INBCTYP__V123*/ meltfptr[122]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8]))) ) /*then*/ @@ -19004,7 +20892,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.INBCTYP__V123*/ meltfptr[122]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V135*/ meltfptr[125] = slot; + /*_.NAMED_NAME__V135*/ + meltfptr[125] = slot; }; ; } @@ -19015,7 +20904,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:2445:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINCTYP__V125*/ meltfptr[124]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8]))) ) /*then*/ @@ -19026,7 +20916,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINCTYP__V125*/ meltfptr[124]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V136*/ meltfptr[135] = slot; + /*_.NAMED_NAME__V136*/ + meltfptr[135] = slot; }; ; } @@ -19057,31 +20948,41 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V136*/ meltfptr[135]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.HNAMESTR__V93*/ meltfptr[47]; - /*_.ERROR_AT__V137*/ meltfptr[136] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V137*/ + meltfptr[136] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2446:/ compute"); - /*_#ERRORFLAG__L6*/ meltfnum[0] = /*_#SETQ___L47*/ meltfnum[46] = 1;; + /*_#ERRORFLAG__L6*/ + meltfnum[0] = /*_#SETQ___L47*/ meltfnum[46] = 1;; MELT_LOCATION("warmelt-normal.melt:2442:/ quasiblock"); - /*_#PROGN___L48*/ meltfnum[47] = /*_#SETQ___L47*/ meltfnum[46];; + /*_#PROGN___L48*/ + meltfnum[47] = /*_#SETQ___L47*/ meltfnum[46];; /*^compute*/ - /*_#_IF___L46*/ meltfnum[40] = /*_#PROGN___L48*/ meltfnum[47];; + /*_#_IF___L46*/ + meltfnum[40] = /*_#PROGN___L48*/ meltfnum[47];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2442:/ clear"); - /*clear*/ /*_.NAMED_NAME__V134*/ meltfptr[132] = 0 ; + /*clear*/ /*_.NAMED_NAME__V134*/ + meltfptr[132] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V135*/ meltfptr[125] = 0 ; + /*clear*/ /*_.NAMED_NAME__V135*/ + meltfptr[125] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V136*/ meltfptr[135] = 0 ; + /*clear*/ /*_.NAMED_NAME__V136*/ + meltfptr[135] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V137*/ meltfptr[136] = 0 ; + /*clear*/ /*_.ERROR_AT__V137*/ + meltfptr[136] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L47*/ meltfnum[46] = 0 ; + /*clear*/ /*_#SETQ___L47*/ + meltfnum[46] = 0 ; /*^clear*/ - /*clear*/ /*_#PROGN___L48*/ meltfnum[47] = 0 ; + /*clear*/ /*_#PROGN___L48*/ + meltfnum[47] = 0 ; } ; } @@ -19092,35 +20993,47 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#LET___L40*/ meltfnum[39] = /*_#_IF___L46*/ meltfnum[40];; + /*_#LET___L40*/ + meltfnum[39] = /*_#_IF___L46*/ meltfnum[40];; MELT_LOCATION("warmelt-normal.melt:2432:/ clear"); - /*clear*/ /*_.CURINBIND__V122*/ meltfptr[121] = 0 ; + /*clear*/ /*_.CURINBIND__V122*/ + meltfptr[121] = 0 ; /*^clear*/ - /*clear*/ /*_.INBCTYP__V123*/ meltfptr[122] = 0 ; + /*clear*/ /*_.INBCTYP__V123*/ + meltfptr[122] = 0 ; /*^clear*/ - /*clear*/ /*_.INBINDER__V124*/ meltfptr[123] = 0 ; + /*clear*/ /*_.INBINDER__V124*/ + meltfptr[123] = 0 ; /*^clear*/ - /*clear*/ /*_.CURINCTYP__V125*/ meltfptr[124] = 0 ; + /*clear*/ /*_.CURINCTYP__V125*/ + meltfptr[124] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V128*/ meltfptr[126] = 0 ; + /*clear*/ /*_.IFCPP___V128*/ + meltfptr[126] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V131*/ meltfptr[129] = 0 ; + /*clear*/ /*_.IFCPP___V131*/ + meltfptr[129] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L45*/ meltfnum[41] = 0 ; + /*clear*/ /*_#exeq__L45*/ + meltfnum[41] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L46*/ meltfnum[40] = 0 ; + /*clear*/ /*_#_IF___L46*/ + meltfnum[40] = 0 ; if (/*_#INIX__L39*/ meltfnum[34]<0) break; } /* end foreach_in_multiple meltcit3__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:2429:/ clear"); - /*clear*/ /*_.CURINARG__V121*/ meltfptr[120] = 0 ; + /*clear*/ /*_.CURINARG__V121*/ + meltfptr[120] = 0 ; /*^clear*/ - /*clear*/ /*_#INIX__L39*/ meltfnum[34] = 0 ; + /*clear*/ /*_#INIX__L39*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_#LET___L40*/ meltfnum[39] = 0 ; + /*clear*/ /*_#LET___L40*/ + meltfnum[39] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -19143,7 +21056,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L49*/ meltfnum[46] = + /*_#MELT_NEED_DBG__L49*/ + meltfnum[46] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19152,7 +21066,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2449:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L49*/ meltfnum[46]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L49*/ meltfnum[46]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19189,16 +21104,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " after checking ninargs="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NINARGS__V111*/ meltfptr[39]; - /*_.MELT_DEBUG_FUN__V139*/ meltfptr[125] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V139*/ + meltfptr[125] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V138*/ meltfptr[132] = /*_.MELT_DEBUG_FUN__V139*/ meltfptr[125];; + /*_._IF___V138*/ + meltfptr[132] = /*_.MELT_DEBUG_FUN__V139*/ meltfptr[125];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2449:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L50*/ meltfnum[47] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L50*/ + meltfnum[47] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V139*/ meltfptr[125] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V139*/ + meltfptr[125] = 0 ; } ; } @@ -19211,7 +21130,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2449:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19220,9 +21140,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L49*/ meltfnum[46] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L49*/ + meltfnum[46] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V138*/ meltfptr[132] = 0 ; + /*clear*/ /*_._IF___V138*/ + meltfptr[132] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19242,7 +21164,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_#miI__L51*/ meltfnum[41] = + /*_#miI__L51*/ + meltfnum[41] = ((/*_#NBOUTS__L24*/ meltfnum[7]) - (1));; /*citerblock FOREACH_LONG_UPTO*/ { @@ -19261,16 +21184,20 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2455:/ quasiblock"); - /*_#plI__L54*/ meltfnum[46] = + /*_#plI__L54*/ + meltfnum[46] = ((/*_#OUTIX__L52*/ meltfnum[40]) + (/*_#NBINS__L23*/ meltfnum[1]));; /*^compute*/ - /*_.CUROUTARG__V140*/ meltfptr[135] = + /*_.CUROUTARG__V140*/ + meltfptr[135] = (melt_multiple_nth((melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (/*_#plI__L54*/ meltfnum[46])));; /*^compute*/ - /*_.CUROUTBIND__V141*/ meltfptr[136] = + /*_.CUROUTBIND__V141*/ + meltfptr[136] = (melt_multiple_nth((melt_ptr_t)(/*_.HKOUTS__V24*/ meltfptr[23]), (/*_#OUTIX__L52*/ meltfnum[40])));; MELT_LOCATION("warmelt-normal.melt:2457:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTBIND__V141*/ meltfptr[136]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[18]))) ) /*then*/ @@ -19281,7 +21208,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTBIND__V141*/ meltfptr[136]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.OUTBCTYP__V142*/ meltfptr[121] = slot; + /*_.OUTBCTYP__V142*/ + meltfptr[121] = slot; }; ; } @@ -19292,7 +21220,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:2458:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTBIND__V141*/ meltfptr[136]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[19]))) ) /*then*/ @@ -19303,7 +21232,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTBIND__V141*/ meltfptr[136]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.OUTBINDER__V143*/ meltfptr[122] = slot; + /*_.OUTBINDER__V143*/ + meltfptr[122] = slot; }; ; } @@ -19333,7 +21263,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L55*/ meltfnum[54] = + /*_#MELT_NEED_DBG__L55*/ + meltfnum[54] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19342,7 +21273,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2460:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L55*/ meltfnum[54]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L55*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19383,16 +21315,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n outix#"; /*^apply.arg*/ argtab[8].meltbp_long = /*_#OUTIX__L52*/ meltfnum[40]; - /*_.MELT_DEBUG_FUN__V145*/ meltfptr[124] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V145*/ + meltfptr[124] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V144*/ meltfptr[123] = /*_.MELT_DEBUG_FUN__V145*/ meltfptr[124];; + /*_._IF___V144*/ + meltfptr[123] = /*_.MELT_DEBUG_FUN__V145*/ meltfptr[124];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2460:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L56*/ meltfnum[55] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L56*/ + meltfnum[55] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V145*/ meltfptr[124] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V145*/ + meltfptr[124] = 0 ; } ; } @@ -19405,7 +21341,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2460:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19414,9 +21351,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L55*/ meltfnum[54] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L55*/ + meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V144*/ meltfptr[123] = 0 ; + /*clear*/ /*_._IF___V144*/ + meltfptr[123] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19445,10 +21384,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L57*/ meltfnum[55] = + /*_#IS_A__L57*/ + meltfnum[55] = melt_is_instance_of((melt_ptr_t)(/*_.CUROUTARG__V140*/ meltfptr[135]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:2464:/ cond"); - /*cond*/ if (/*_#IS_A__L57*/ meltfnum[55]) /*then*/ + /*cond*/ + if (/*_#IS_A__L57*/ meltfnum[55]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19472,7 +21413,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.NOUTVAR__V146*/ meltfptr[126] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.CUROUTARG__V140*/ meltfptr[135]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NOUTVAR__V146*/ + meltfptr[126] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.CUROUTARG__V140*/ meltfptr[135]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -19485,7 +21427,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.VAROUTCTYP__V147*/ meltfptr[129] = meltgc_send((melt_ptr_t)(/*_.NOUTVAR__V146*/ meltfptr[126]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[20])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.VAROUTCTYP__V147*/ + meltfptr[129] = meltgc_send((melt_ptr_t)(/*_.NOUTVAR__V146*/ meltfptr[126]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[20])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -19508,7 +21451,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L59*/ meltfnum[58] = + /*_#MELT_NEED_DBG__L59*/ + meltfnum[58] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19517,7 +21461,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2468:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L59*/ meltfnum[58]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L59*/ meltfnum[58]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19554,16 +21499,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " varoutctyp="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.VAROUTCTYP__V147*/ meltfptr[129]; - /*_.MELT_DEBUG_FUN__V149*/ meltfptr[132] = melt_apply ((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__V149*/ + meltfptr[132] = melt_apply ((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___V148*/ meltfptr[125] = /*_.MELT_DEBUG_FUN__V149*/ meltfptr[132];; + /*_._IF___V148*/ + meltfptr[125] = /*_.MELT_DEBUG_FUN__V149*/ meltfptr[132];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2468:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L60*/ meltfnum[59] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L60*/ + meltfnum[59] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V149*/ meltfptr[132] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V149*/ + meltfptr[132] = 0 ; } ; } @@ -19576,7 +21525,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2468:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19585,9 +21535,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L59*/ meltfnum[58] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L59*/ + meltfnum[58] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V148*/ meltfptr[125] = 0 ; + /*clear*/ /*_._IF___V148*/ + meltfptr[125] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19610,10 +21562,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L61*/ meltfnum[59] = + /*_#IS_NOT_A__L61*/ + meltfnum[59] = !melt_is_instance_of((melt_ptr_t)(/*_.NOUTVAR__V146*/ meltfptr[126]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[22])));; MELT_LOCATION("warmelt-normal.melt:2469:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L61*/ meltfnum[59]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L61*/ meltfnum[59]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19621,7 +21575,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2470:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTARG__V140*/ meltfptr[135]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8]))) ) /*then*/ @@ -19632,7 +21587,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTARG__V140*/ meltfptr[135]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V150*/ meltfptr[124] = slot; + /*_.NAMED_NAME__V150*/ + meltfptr[124] = slot; }; ; } @@ -19656,27 +21612,35 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V150*/ meltfptr[124]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.HNAMESTR__V93*/ meltfptr[47]; - /*_.ERROR_AT__V151*/ meltfptr[123] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V151*/ + meltfptr[123] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2471:/ compute"); - /*_#ERRORFLAG__L6*/ meltfnum[0] = /*_#SETQ___L63*/ meltfnum[62] = 1;; + /*_#ERRORFLAG__L6*/ + meltfnum[0] = /*_#SETQ___L63*/ meltfnum[62] = 1;; MELT_LOCATION("warmelt-normal.melt:2469:/ quasiblock"); - /*_#PROGN___L64*/ meltfnum[63] = /*_#SETQ___L63*/ meltfnum[62];; + /*_#PROGN___L64*/ + meltfnum[63] = /*_#SETQ___L63*/ meltfnum[62];; /*^compute*/ - /*_#_IF___L62*/ meltfnum[58] = /*_#PROGN___L64*/ meltfnum[63];; + /*_#_IF___L62*/ + meltfnum[58] = /*_#PROGN___L64*/ meltfnum[63];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2469:/ clear"); - /*clear*/ /*_.NAMED_NAME__V150*/ meltfptr[124] = 0 ; + /*clear*/ /*_.NAMED_NAME__V150*/ + meltfptr[124] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V151*/ meltfptr[123] = 0 ; + /*clear*/ /*_.ERROR_AT__V151*/ + meltfptr[123] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L63*/ meltfnum[62] = 0 ; + /*clear*/ /*_#SETQ___L63*/ + meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_#PROGN___L64*/ meltfnum[63] = 0 ; + /*clear*/ /*_#PROGN___L64*/ + meltfnum[63] = 0 ; } ; } @@ -19696,10 +21660,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L65*/ meltfnum[62] = + /*_#IS_A__L65*/ + meltfnum[62] = melt_is_instance_of((melt_ptr_t)(/*_.VAROUTCTYP__V147*/ meltfptr[129]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:2472:/ cond"); - /*cond*/ if (/*_#IS_A__L65*/ meltfnum[62]) /*then*/ + /*cond*/ + if (/*_#IS_A__L65*/ meltfnum[62]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V153*/ meltfptr[125] = (/*nil*/NULL);; @@ -19728,25 +21694,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2472; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VAROUTCTYP__V147*/ meltfptr[129]; - /*_.MELT_ASSERT_FAILURE_FUN__V154*/ meltfptr[124] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V154*/ + meltfptr[124] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V153*/ meltfptr[125] = /*_.MELT_ASSERT_FAILURE_FUN__V154*/ meltfptr[124];; + /*_._IFELSE___V153*/ + meltfptr[125] = /*_.MELT_ASSERT_FAILURE_FUN__V154*/ meltfptr[124];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2472:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V154*/ meltfptr[124] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V154*/ + meltfptr[124] = 0 ; } ; } ; - /*_.IFCPP___V152*/ meltfptr[132] = /*_._IFELSE___V153*/ meltfptr[125];; + /*_.IFCPP___V152*/ + meltfptr[132] = /*_._IFELSE___V153*/ meltfptr[125];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2472:/ clear"); - /*clear*/ /*_#IS_A__L65*/ meltfnum[62] = 0 ; + /*clear*/ /*_#IS_A__L65*/ + meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V153*/ meltfptr[125] = 0 ; + /*clear*/ /*_._IFELSE___V153*/ + meltfptr[125] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19758,10 +21730,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#exeq__L66*/ meltfnum[63] = + /*_#exeq__L66*/ + meltfnum[63] = ((/*_.VAROUTCTYP__V147*/ meltfptr[129]) != (/*_.OUTBCTYP__V142*/ meltfptr[121]));; MELT_LOCATION("warmelt-normal.melt:2473:/ cond"); - /*cond*/ if (/*_#exeq__L66*/ meltfnum[63]) /*then*/ + /*cond*/ + if (/*_#exeq__L66*/ meltfnum[63]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19769,7 +21743,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2475:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OUTBINDER__V143*/ meltfptr[122]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8]))) ) /*then*/ @@ -19780,7 +21755,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OUTBINDER__V143*/ meltfptr[122]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V155*/ meltfptr[123] = slot; + /*_.NAMED_NAME__V155*/ + meltfptr[123] = slot; }; ; } @@ -19791,7 +21767,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:2476:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VAROUTCTYP__V147*/ meltfptr[129]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8]))) ) /*then*/ @@ -19802,7 +21779,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.VAROUTCTYP__V147*/ meltfptr[129]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V156*/ meltfptr[124] = slot; + /*_.NAMED_NAME__V156*/ + meltfptr[124] = slot; }; ; } @@ -19813,7 +21791,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:2477:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OUTBCTYP__V142*/ meltfptr[121]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8]))) ) /*then*/ @@ -19824,7 +21803,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OUTBCTYP__V142*/ meltfptr[121]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V157*/ meltfptr[125] = slot; + /*_.NAMED_NAME__V157*/ + meltfptr[125] = slot; }; ; } @@ -19852,31 +21832,41 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V157*/ meltfptr[125]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HNAMESTR__V93*/ meltfptr[47]; - /*_.ERROR_AT__V158*/ meltfptr[157] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V158*/ + meltfptr[157] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2478:/ compute"); - /*_#ERRORFLAG__L6*/ meltfnum[0] = /*_#SETQ___L68*/ meltfnum[67] = 1;; + /*_#ERRORFLAG__L6*/ + meltfnum[0] = /*_#SETQ___L68*/ meltfnum[67] = 1;; MELT_LOCATION("warmelt-normal.melt:2473:/ quasiblock"); - /*_#PROGN___L69*/ meltfnum[68] = /*_#SETQ___L68*/ meltfnum[67];; + /*_#PROGN___L69*/ + meltfnum[68] = /*_#SETQ___L68*/ meltfnum[67];; /*^compute*/ - /*_#_IF___L67*/ meltfnum[62] = /*_#PROGN___L69*/ meltfnum[68];; + /*_#_IF___L67*/ + meltfnum[62] = /*_#PROGN___L69*/ meltfnum[68];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2473:/ clear"); - /*clear*/ /*_.NAMED_NAME__V155*/ meltfptr[123] = 0 ; + /*clear*/ /*_.NAMED_NAME__V155*/ + meltfptr[123] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V156*/ meltfptr[124] = 0 ; + /*clear*/ /*_.NAMED_NAME__V156*/ + meltfptr[124] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V157*/ meltfptr[125] = 0 ; + /*clear*/ /*_.NAMED_NAME__V157*/ + meltfptr[125] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V158*/ meltfptr[157] = 0 ; + /*clear*/ /*_.ERROR_AT__V158*/ + meltfptr[157] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L68*/ meltfnum[67] = 0 ; + /*clear*/ /*_#SETQ___L68*/ + meltfnum[67] = 0 ; /*^clear*/ - /*clear*/ /*_#PROGN___L69*/ meltfnum[68] = 0 ; + /*clear*/ /*_#PROGN___L69*/ + meltfnum[68] = 0 ; } ; } @@ -19892,22 +21882,30 @@ meltlab_endgetargs: meltgc_multiple_put_nth((melt_ptr_t)(/*_.NOUTS__V96*/ meltfptr[37]), (/*_#OUTIX__L52*/ meltfnum[40]), (melt_ptr_t)(/*_.NOUTVAR__V146*/ meltfptr[126])); } ; - /*_#_IFELSE___L58*/ meltfnum[54] = /*_#_IF___L67*/ meltfnum[62];; + /*_#_IFELSE___L58*/ + meltfnum[54] = /*_#_IF___L67*/ meltfnum[62];; MELT_LOCATION("warmelt-normal.melt:2465:/ clear"); - /*clear*/ /*_.NOUTVAR__V146*/ meltfptr[126] = 0 ; + /*clear*/ /*_.NOUTVAR__V146*/ + meltfptr[126] = 0 ; /*^clear*/ - /*clear*/ /*_.VAROUTCTYP__V147*/ meltfptr[129] = 0 ; + /*clear*/ /*_.VAROUTCTYP__V147*/ + meltfptr[129] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L61*/ meltfnum[59] = 0 ; + /*clear*/ /*_#IS_NOT_A__L61*/ + meltfnum[59] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L62*/ meltfnum[58] = 0 ; + /*clear*/ /*_#_IF___L62*/ + meltfnum[58] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V152*/ meltfptr[132] = 0 ; + /*clear*/ /*_.IFCPP___V152*/ + meltfptr[132] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L66*/ meltfnum[63] = 0 ; + /*clear*/ /*_#exeq__L66*/ + meltfnum[63] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L67*/ meltfnum[62] = 0 ; + /*clear*/ /*_#_IF___L67*/ + meltfnum[62] = 0 ; /*epilog*/ } ; @@ -19925,7 +21923,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OUTBINDER__V143*/ meltfptr[122]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V159*/ meltfptr[123] = slot; + /*_.NAMED_NAME__V159*/ + meltfptr[123] = slot; }; ; @@ -19942,55 +21941,73 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V159*/ meltfptr[123]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.HNAMESTR__V93*/ meltfptr[47]; - /*_.ERROR_AT__V160*/ meltfptr[124] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V160*/ + meltfptr[124] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2484:/ compute"); - /*_#ERRORFLAG__L6*/ meltfnum[0] = /*_#SETQ___L70*/ meltfnum[67] = 1;; + /*_#ERRORFLAG__L6*/ + meltfnum[0] = /*_#SETQ___L70*/ meltfnum[67] = 1;; MELT_LOCATION("warmelt-normal.melt:2482:/ quasiblock"); - /*_#PROGN___L71*/ meltfnum[68] = /*_#SETQ___L70*/ meltfnum[67];; + /*_#PROGN___L71*/ + meltfnum[68] = /*_#SETQ___L70*/ meltfnum[67];; /*^compute*/ - /*_#_IFELSE___L58*/ meltfnum[54] = /*_#PROGN___L71*/ meltfnum[68];; + /*_#_IFELSE___L58*/ + meltfnum[54] = /*_#PROGN___L71*/ meltfnum[68];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2464:/ clear"); - /*clear*/ /*_.NAMED_NAME__V159*/ meltfptr[123] = 0 ; + /*clear*/ /*_.NAMED_NAME__V159*/ + meltfptr[123] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V160*/ meltfptr[124] = 0 ; + /*clear*/ /*_.ERROR_AT__V160*/ + meltfptr[124] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L70*/ meltfnum[67] = 0 ; + /*clear*/ /*_#SETQ___L70*/ + meltfnum[67] = 0 ; /*^clear*/ - /*clear*/ /*_#PROGN___L71*/ meltfnum[68] = 0 ; + /*clear*/ /*_#PROGN___L71*/ + meltfnum[68] = 0 ; } ; } ; - /*_#LET___L53*/ meltfnum[47] = /*_#_IFELSE___L58*/ meltfnum[54];; + /*_#LET___L53*/ + meltfnum[47] = /*_#_IFELSE___L58*/ meltfnum[54];; MELT_LOCATION("warmelt-normal.melt:2455:/ clear"); - /*clear*/ /*_#plI__L54*/ meltfnum[46] = 0 ; + /*clear*/ /*_#plI__L54*/ + meltfnum[46] = 0 ; /*^clear*/ - /*clear*/ /*_.CUROUTARG__V140*/ meltfptr[135] = 0 ; + /*clear*/ /*_.CUROUTARG__V140*/ + meltfptr[135] = 0 ; /*^clear*/ - /*clear*/ /*_.CUROUTBIND__V141*/ meltfptr[136] = 0 ; + /*clear*/ /*_.CUROUTBIND__V141*/ + meltfptr[136] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTBCTYP__V142*/ meltfptr[121] = 0 ; + /*clear*/ /*_.OUTBCTYP__V142*/ + meltfptr[121] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTBINDER__V143*/ meltfptr[122] = 0 ; + /*clear*/ /*_.OUTBINDER__V143*/ + meltfptr[122] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L57*/ meltfnum[55] = 0 ; + /*clear*/ /*_#IS_A__L57*/ + meltfnum[55] = 0 ; /*^clear*/ - /*clear*/ /*_#_IFELSE___L58*/ meltfnum[54] = 0 ; + /*clear*/ /*_#_IFELSE___L58*/ + meltfnum[54] = 0 ; } /*end foreach_long_upto meltcit4__EACHLONG */ /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:2452:/ clear"); - /*clear*/ /*_#OUTIX__L52*/ meltfnum[40] = 0 ; + /*clear*/ /*_#OUTIX__L52*/ + meltfnum[40] = 0 ; /*^clear*/ - /*clear*/ /*_#LET___L53*/ meltfnum[47] = 0 ; + /*clear*/ /*_#LET___L53*/ + meltfnum[47] = 0 ; } /*endciterblock FOREACH_LONG_UPTO*/ ; @@ -20013,7 +22030,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L72*/ meltfnum[59] = + /*_#MELT_NEED_DBG__L72*/ + meltfnum[59] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20022,7 +22040,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2487:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L72*/ meltfnum[59]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L72*/ meltfnum[59]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20063,16 +22082,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " nouts="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NOUTS__V96*/ meltfptr[37]; - /*_.MELT_DEBUG_FUN__V162*/ meltfptr[157] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V162*/ + meltfptr[157] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V161*/ meltfptr[125] = /*_.MELT_DEBUG_FUN__V162*/ meltfptr[157];; + /*_._IF___V161*/ + meltfptr[125] = /*_.MELT_DEBUG_FUN__V162*/ meltfptr[157];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2487:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L73*/ meltfnum[58] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L73*/ + meltfnum[58] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V162*/ meltfptr[157] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V162*/ + meltfptr[157] = 0 ; } ; } @@ -20085,7 +22108,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2487:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20094,9 +22118,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L72*/ meltfnum[59] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L72*/ + meltfnum[59] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V161*/ meltfptr[125] = 0 ; + /*clear*/ /*_._IF___V161*/ + meltfptr[125] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20120,7 +22146,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2488:/ cond"); - /*cond*/ if (/*_#ERRORFLAG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#ERRORFLAG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20133,7 +22160,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2489:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*nil*/NULL);; MELT_LOCATION("warmelt-normal.melt:2489:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -20141,12 +22169,15 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_._IF___V163*/ meltfptr[126] = /*_.RETURN___V164*/ meltfptr[129];; + /*finalret*/ + goto meltlabend_rout ; + /*_._IF___V163*/ + meltfptr[126] = /*_.RETURN___V164*/ meltfptr[129];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2488:/ clear"); - /*clear*/ /*_.RETURN___V164*/ meltfptr[129] = 0 ; + /*clear*/ /*_.RETURN___V164*/ + meltfptr[129] = 0 ; } ; } @@ -20176,7 +22207,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L74*/ meltfnum[63] = + /*_#MELT_NEED_DBG__L74*/ + meltfnum[63] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20185,7 +22217,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2491:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L74*/ meltfnum[63]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L74*/ meltfnum[63]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20222,16 +22255,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n hkbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.HKBIND__V97*/ meltfptr[67]; - /*_.MELT_DEBUG_FUN__V166*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V166*/ + 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V165*/ meltfptr[132] = /*_.MELT_DEBUG_FUN__V166*/ meltfptr[123];; + /*_._IF___V165*/ + meltfptr[132] = /*_.MELT_DEBUG_FUN__V166*/ meltfptr[123];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2491:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L75*/ meltfnum[62] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L75*/ + meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V166*/ meltfptr[123] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V166*/ + meltfptr[123] = 0 ; } ; } @@ -20244,7 +22281,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2491:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20253,9 +22291,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L74*/ meltfnum[63] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L74*/ + meltfnum[63] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V165*/ meltfptr[132] = 0 ; + /*clear*/ /*_._IF___V165*/ + meltfptr[132] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20292,7 +22332,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.NHOOK__V168*/ meltfptr[135] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.HKSYMB__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NHOOK__V168*/ + meltfptr[135] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.HKSYMB__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -20306,7 +22347,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_HOOK_CALL*/ meltfrout->tabval[23])), (7), "CLASS_NREP_HOOK_CALL"); - /*_.INST__V170*/ meltfptr[121] = + /*_.INST__V170*/ + meltfptr[121] = newobj; }; ; @@ -20349,7 +22391,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V170*/ meltfptr[121], "newly made instance"); ; - /*_.NHKCALL__V169*/ meltfptr[136] = /*_.INST__V170*/ meltfptr[121];; + /*_.NHKCALL__V169*/ + meltfptr[136] = /*_.INST__V170*/ meltfptr[121];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2504:/ cppif.then"); @@ -20370,7 +22413,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L76*/ meltfnum[67] = + /*_#MELT_NEED_DBG__L76*/ + meltfnum[67] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20379,7 +22423,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2504:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L76*/ meltfnum[67]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L76*/ meltfnum[67]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20424,16 +22469,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n .. hkdescr="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.HKDESCR__V26*/ meltfptr[25]; - /*_.MELT_DEBUG_FUN__V172*/ meltfptr[157] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V172*/ + meltfptr[157] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V171*/ meltfptr[122] = /*_.MELT_DEBUG_FUN__V172*/ meltfptr[157];; + /*_._IF___V171*/ + meltfptr[122] = /*_.MELT_DEBUG_FUN__V172*/ meltfptr[157];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2504:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L77*/ meltfnum[68] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L77*/ + meltfnum[68] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V172*/ meltfptr[157] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V172*/ + meltfptr[157] = 0 ; } ; } @@ -20446,7 +22495,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2504:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20455,9 +22505,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L76*/ meltfnum[67] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L76*/ + meltfnum[67] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V171*/ meltfptr[122] = 0 ; + /*clear*/ /*_._IF___V171*/ + meltfptr[122] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20500,7 +22552,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[25])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V176*/ meltfptr[132] = + /*_.INST__V176*/ + meltfptr[132] = newobj; }; ; @@ -20528,7 +22581,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V176*/ meltfptr[132], "newly made instance"); ; - /*_.CBIND__V175*/ meltfptr[123] = /*_.INST__V176*/ meltfptr[132];; + /*_.CBIND__V175*/ + meltfptr[123] = /*_.INST__V176*/ meltfptr[132];; MELT_CHECK_SIGNAL(); ; @@ -20540,7 +22594,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[22])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V178*/ meltfptr[122] = + /*_.INST__V178*/ + meltfptr[122] = newobj; }; ; @@ -20568,7 +22623,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V178*/ meltfptr[122], "newly made instance"); ; - /*_.CLOCC__V177*/ meltfptr[157] = /*_.INST__V178*/ meltfptr[122];; + /*_.CLOCC__V177*/ + meltfptr[157] = /*_.INST__V178*/ meltfptr[122];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2519:/ cppif.then"); @@ -20589,7 +22645,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L78*/ meltfnum[46] = + /*_#MELT_NEED_DBG__L78*/ + meltfnum[46] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20598,7 +22655,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2519:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L78*/ meltfnum[46]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L78*/ meltfnum[46]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20635,16 +22693,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " clocc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V177*/ meltfptr[157]; - /*_.MELT_DEBUG_FUN__V180*/ meltfptr[179] = melt_apply ((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__V180*/ + meltfptr[179] = melt_apply ((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___V179*/ meltfptr[178] = /*_.MELT_DEBUG_FUN__V180*/ meltfptr[179];; + /*_._IF___V179*/ + meltfptr[178] = /*_.MELT_DEBUG_FUN__V180*/ meltfptr[179];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2519:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L79*/ meltfnum[55] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L79*/ + meltfnum[55] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V180*/ meltfptr[179] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V180*/ + meltfptr[179] = 0 ; } ; } @@ -20657,7 +22719,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2519:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20666,9 +22729,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L78*/ meltfnum[46] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L78*/ + meltfnum[46] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V179*/ meltfptr[178] = 0 ; + /*clear*/ /*_._IF___V179*/ + meltfptr[178] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20714,7 +22779,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L80*/ meltfnum[54] = + /*_#MELT_NEED_DBG__L80*/ + meltfnum[54] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20723,7 +22789,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2521:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L80*/ meltfnum[54]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L80*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20760,16 +22827,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ninbinds="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NINBINDS__V112*/ meltfptr[111]; - /*_.MELT_DEBUG_FUN__V182*/ meltfptr[178] = melt_apply ((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__V182*/ + meltfptr[178] = melt_apply ((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___V181*/ meltfptr[179] = /*_.MELT_DEBUG_FUN__V182*/ meltfptr[178];; + /*_._IF___V181*/ + meltfptr[179] = /*_.MELT_DEBUG_FUN__V182*/ meltfptr[178];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2521:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L81*/ meltfnum[58] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L81*/ + meltfnum[58] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V182*/ meltfptr[178] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V182*/ + meltfptr[178] = 0 ; } ; } @@ -20782,7 +22853,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2521:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20791,9 +22863,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L80*/ meltfnum[54] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L80*/ + meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V181*/ meltfptr[179] = 0 ; + /*clear*/ /*_._IF___V181*/ + meltfptr[179] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20819,7 +22893,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2523:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V177*/ meltfptr[157];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V177*/ meltfptr[157];; MELT_LOCATION("warmelt-normal.melt:2523:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -20827,116 +22902,167 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V173*/ meltfptr[125] = /*_.RETURN___V183*/ meltfptr[178];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V173*/ + meltfptr[125] = /*_.RETURN___V183*/ meltfptr[178];; MELT_LOCATION("warmelt-normal.melt:2506:/ clear"); - /*clear*/ /*_.CSYM__V174*/ meltfptr[129] = 0 ; + /*clear*/ /*_.CSYM__V174*/ + meltfptr[129] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V175*/ meltfptr[123] = 0 ; + /*clear*/ /*_.CBIND__V175*/ + meltfptr[123] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V177*/ meltfptr[157] = 0 ; + /*clear*/ /*_.CLOCC__V177*/ + meltfptr[157] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V183*/ meltfptr[178] = 0 ; - /*_.LET___V167*/ meltfptr[124] = /*_.LET___V173*/ meltfptr[125];; + /*clear*/ /*_.RETURN___V183*/ + meltfptr[178] = 0 ; + /*_.LET___V167*/ + meltfptr[124] = /*_.LET___V173*/ meltfptr[125];; MELT_LOCATION("warmelt-normal.melt:2492:/ clear"); - /*clear*/ /*_.NHOOK__V168*/ meltfptr[135] = 0 ; + /*clear*/ /*_.NHOOK__V168*/ + meltfptr[135] = 0 ; /*^clear*/ - /*clear*/ /*_.NHKCALL__V169*/ meltfptr[136] = 0 ; + /*clear*/ /*_.NHKCALL__V169*/ + meltfptr[136] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V173*/ meltfptr[125] = 0 ; + /*clear*/ /*_.LET___V173*/ + meltfptr[125] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V110*/ meltfptr[105] = /*_.LET___V167*/ meltfptr[124];; + /*_.MULTI___V110*/ + meltfptr[105] = /*_.LET___V167*/ meltfptr[124];; MELT_LOCATION("warmelt-normal.melt:2417:/ clear"); - /*clear*/ /*_#NULL__L38*/ meltfnum[33] = 0 ; + /*clear*/ /*_#NULL__L38*/ + meltfnum[33] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V115*/ meltfptr[113] = 0 ; + /*clear*/ /*_._IF___V115*/ + meltfptr[113] = 0 ; /*^clear*/ - /*clear*/ /*_#miI__L51*/ meltfnum[41] = 0 ; + /*clear*/ /*_#miI__L51*/ + meltfnum[41] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V163*/ meltfptr[126] = 0 ; + /*clear*/ /*_._IF___V163*/ + meltfptr[126] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V167*/ meltfptr[124] = 0 ; + /*clear*/ /*_.LET___V167*/ + meltfptr[124] = 0 ; /*^clear*/ - /*clear*/ /*_.NINBINDS__V112*/ meltfptr[111] = 0 ; - /*_.LET___V92*/ meltfptr[45] = /*_.MULTI___V110*/ meltfptr[105];; + /*clear*/ /*_.NINBINDS__V112*/ + meltfptr[111] = 0 ; + /*_.LET___V92*/ + meltfptr[45] = /*_.MULTI___V110*/ meltfptr[105];; MELT_LOCATION("warmelt-normal.melt:2396:/ clear"); - /*clear*/ /*_#NBINS__L23*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NBINS__L23*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#NBOUTS__L24*/ meltfnum[7] = 0 ; + /*clear*/ /*_#NBOUTS__L24*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.HNAMESTR__V93*/ meltfptr[47] = 0 ; + /*clear*/ /*_.HNAMESTR__V93*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.SINS__V94*/ meltfptr[65] = 0 ; + /*clear*/ /*_.SINS__V94*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.SOUTS__V95*/ meltfptr[64] = 0 ; + /*clear*/ /*_.SOUTS__V95*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.NOUTS__V96*/ meltfptr[37] = 0 ; + /*clear*/ /*_.NOUTS__V96*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.HKBIND__V97*/ meltfptr[67] = 0 ; + /*clear*/ /*_.HKBIND__V97*/ + meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V100*/ meltfptr[40] = 0 ; + /*clear*/ /*_.IFCPP___V100*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L28*/ meltfnum[24] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L28*/ + meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L29*/ meltfnum[25] = 0 ; + /*clear*/ /*_#plI__L29*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_#exeqI__L30*/ meltfnum[29] = 0 ; + /*clear*/ /*_#exeqI__L30*/ + meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V103*/ meltfptr[69] = 0 ; + /*clear*/ /*_._IF___V103*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_#miI__L32*/ meltfnum[30] = 0 ; + /*clear*/ /*_#miI__L32*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V110*/ meltfptr[105] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.LET___V92*/ meltfptr[45];; + /*clear*/ /*_.MULTI___V110*/ + meltfptr[105] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.LET___V92*/ meltfptr[45];; MELT_LOCATION("warmelt-normal.melt:2336:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SHOOK__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SHOOK__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SARGS__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SARGS__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.HKNAME__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.HKNAME__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.HKSYMB__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.HKSYMB__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.HKINS__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.HKINS__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.HKOUTS__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.HKOUTS__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.HKCTYPE__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.HKCTYPE__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.HKDESCR__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.HKDESCR__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_#ERRORFLAG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#ERRORFLAG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWENV__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NEWENV__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V75*/ meltfptr[38] = 0 ; + /*clear*/ /*_.IFCPP___V75*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V78*/ meltfptr[43] = 0 ; + /*clear*/ /*_.IFCPP___V78*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V81*/ meltfptr[44] = 0 ; + /*clear*/ /*_.IFCPP___V81*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V84*/ meltfptr[66] = 0 ; + /*clear*/ /*_.IFCPP___V84*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V89*/ meltfptr[68] = 0 ; + /*clear*/ /*_.IFCPP___V89*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V92*/ meltfptr[45] = 0 ; + /*clear*/ /*_.LET___V92*/ + meltfptr[45] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2330:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:2330:/ locexp"); @@ -20951,17 +23077,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -21043,7 +23174,8 @@ meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX fromline 1756 */ - /* classy proc frame meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX */ MeltFrame_meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX + /* classy proc frame meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX */ + MeltFrame_meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX fromline 1785*/ #if ENABLE_CHECKING @@ -21056,7 +23188,8 @@ meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("NORMEXP_BOX", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -21066,26 +23199,30 @@ meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:2533:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -21117,7 +23254,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)) @@ -21126,7 +23264,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2534:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21159,16 +23298,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_box recv"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2534:/ 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 ; } ; } @@ -21181,7 +23324,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2534:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21190,9 +23334,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*/ @@ -21222,10 +23368,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_BOX*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:2535:/ 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);; @@ -21254,25 +23402,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2535; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2535:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2535:/ 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*/ @@ -21290,10 +23444,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:2536:/ 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);; @@ -21322,25 +23478,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2536; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2536:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2536:/ 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*/ @@ -21358,10 +23520,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:2537:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -21390,25 +23554,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2537; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2537:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2537:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21424,11 +23594,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2539:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_QUASI_BOX*/ meltfrout->tabval[5]))) ) /*then*/ @@ -21439,7 +23611,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SBOXED"); - /*_.SBOXED__V19*/ meltfptr[18] = slot; + /*_.SBOXED__V19*/ + meltfptr[18] = slot; }; ; } @@ -21468,7 +23641,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21];/*^multimsend.send*/ - /*_.NBOXED__V21*/ meltfptr[20] = meltgc_send ((melt_ptr_t)(/*_.SBOXED__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NBOXED__V21*/ + meltfptr[20] = meltgc_send ((melt_ptr_t)(/*_.SBOXED__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -21494,7 +23668,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)) @@ -21503,7 +23678,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2544:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21540,16 +23716,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V23*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; + /*_._IF___V23*/ + meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2544:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[23] = 0 ; } ; } @@ -21562,7 +23742,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2544:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21571,9 +23752,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IF___V23*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21596,13 +23779,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L8*/ meltfnum[1] = + /*_#IS_LIST__L8*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.NBIND__V22*/ meltfptr[21])) == MELTOBMAG_LIST);; /*^compute*/ - /*_#NOT__L9*/ meltfnum[0] = + /*_#NOT__L9*/ + meltfnum[0] = (!(/*_#IS_LIST__L8*/ meltfnum[1]));; MELT_LOCATION("warmelt-normal.melt:2545:/ cond"); - /*cond*/ if (/*_#NOT__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#NOT__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21620,22 +23806,27 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inilist rlist_0__LIST_*/ - /*_.LIST___V26*/ meltfptr[22] = (melt_ptr_t) &meltletrec_1_ptr->rlist_0__LIST_; + /*_.LIST___V26*/ + meltfptr[22] = (melt_ptr_t) &meltletrec_1_ptr->rlist_0__LIST_; meltletrec_1_ptr->rlist_0__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); - /*_.LIST___V25*/ meltfptr[23] = /*_.LIST___V26*/ meltfptr[22];; + /*_.LIST___V25*/ + meltfptr[23] = /*_.LIST___V26*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2546:/ clear"); - /*clear*/ /*_.LIST___V26*/ meltfptr[22] = 0 ; + /*clear*/ /*_.LIST___V26*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V26*/ meltfptr[22] = 0 ; + /*clear*/ /*_.LIST___V26*/ + meltfptr[22] = 0 ; } /*end multiallocblock*/ ; /*^compute*/ - /*_.NBIND__V22*/ meltfptr[21] = /*_.SETQ___V27*/ meltfptr[22] = /*_.LIST___V25*/ meltfptr[23];; + /*_.NBIND__V22*/ + meltfptr[21] = /*_.SETQ___V27*/ meltfptr[22] = /*_.LIST___V25*/ meltfptr[23];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2547:/ cppif.then"); @@ -21656,7 +23847,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21665,7 +23857,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2547:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21698,16 +23891,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_box set nbind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21]; - /*_.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-normal.melt:2547:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ + meltfptr[28] = 0 ; } ; } @@ -21720,7 +23917,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2547:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21729,9 +23927,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V28*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21757,9 +23957,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.LIST___V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_.LIST___V25*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V27*/ meltfptr[22] = 0 ; + /*clear*/ /*_.SETQ___V27*/ + meltfptr[22] = 0 ; } ; } /*noelse*/ @@ -21777,11 +23979,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.NCTYP__V31*/ meltfptr[27] = meltgc_send((melt_ptr_t)(/*_.NBOXED__V21*/ meltfptr[20]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NCTYP__V31*/ + meltfptr[27] = meltgc_send((melt_ptr_t)(/*_.NBOXED__V21*/ meltfptr[20]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2549:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8]))) ) /*then*/ @@ -21792,7 +23996,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 11, "CTYPE_AUTOBOXDISCR"); - /*_.AUTOBOXDISCR__V32*/ meltfptr[23] = slot; + /*_.AUTOBOXDISCR__V32*/ + meltfptr[23] = slot; }; ; } @@ -21812,10 +24017,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L12*/ meltfnum[10] = + /*_#IS_A__L12*/ + meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:2551:/ cond"); - /*cond*/ if (/*_#IS_A__L12*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#IS_A__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V34*/ meltfptr[33] = (/*nil*/NULL);; @@ -21844,25 +24051,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2551; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCTYP__V31*/ meltfptr[27]; - /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V35*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V34*/ meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; + /*_._IFELSE___V34*/ + meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2551:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ + meltfptr[34] = 0 ; } ; } ; - /*_.IFCPP___V33*/ meltfptr[22] = /*_._IFELSE___V34*/ meltfptr[33];; + /*_.IFCPP___V33*/ + meltfptr[22] = /*_._IFELSE___V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2551:/ clear"); - /*clear*/ /*_#IS_A__L12*/ meltfnum[10] = 0 ; + /*clear*/ /*_#IS_A__L12*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IFELSE___V34*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21890,7 +24103,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)) @@ -21899,7 +24113,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2552:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L13*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21936,16 +24151,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " autoboxdiscr="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.AUTOBOXDISCR__V32*/ meltfptr[23]; - /*_.MELT_DEBUG_FUN__V37*/ 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__V37*/ + 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___V36*/ meltfptr[34] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[33];; + /*_._IF___V36*/ + meltfptr[34] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2552:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[33] = 0 ; } ; } @@ -21958,7 +24177,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2552:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21967,9 +24187,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IF___V36*/ + meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21992,10 +24214,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L15*/ meltfnum[10] = + /*_#IS_NOT_A__L15*/ + meltfnum[10] = !melt_is_instance_of((melt_ptr_t)(/*_.AUTOBOXDISCR__V32*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_DISCRIMINANT*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-normal.melt:2553:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L15*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L15*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22003,7 +24227,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2555:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11]))) ) /*then*/ @@ -22014,7 +24239,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V39*/ meltfptr[34] = slot; + /*_.NAMED_NAME__V39*/ + meltfptr[34] = slot; }; ; } @@ -22036,13 +24262,15 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "non-BOX-able stuff of ctype $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V39*/ meltfptr[34]; - /*_.ERROR_AT__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V40*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2556:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:2556:/ locexp"); @@ -22057,23 +24285,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:2553:/ quasiblock"); - /*_.PROGN___V42*/ meltfptr[41] = /*_.RETURN___V41*/ meltfptr[40];; + /*_.PROGN___V42*/ + meltfptr[41] = /*_.RETURN___V41*/ meltfptr[40];; /*^compute*/ - /*_._IF___V38*/ meltfptr[33] = /*_.PROGN___V42*/ meltfptr[41];; + /*_._IF___V38*/ + meltfptr[33] = /*_.PROGN___V42*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2553:/ clear"); - /*clear*/ /*_.NAMED_NAME__V39*/ meltfptr[34] = 0 ; + /*clear*/ /*_.NAMED_NAME__V39*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.ERROR_AT__V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.RETURN___V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.PROGN___V42*/ + meltfptr[41] = 0 ; } ; } @@ -22089,10 +24324,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L16*/ meltfnum[9] = + /*_#eqeq__L16*/ + meltfnum[9] = ((/*_.NCTYP__V31*/ meltfptr[27]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:2560:/ cond"); - /*cond*/ if (/*_#eqeq__L16*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#eqeq__L16*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22100,19 +24337,24 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2561:/ compute"); - /*_.AUTOBOXDISCR__V32*/ meltfptr[23] = /*_.SETQ___V45*/ meltfptr[40] = (/*nil*/NULL);; + /*_.AUTOBOXDISCR__V32*/ + meltfptr[23] = /*_.SETQ___V45*/ meltfptr[40] = (/*nil*/NULL);; MELT_LOCATION("warmelt-normal.melt:2560:/ quasiblock"); - /*_.PROGN___V46*/ meltfptr[41] = (/*!konst_13*/ meltfrout->tabval[13]);; + /*_.PROGN___V46*/ + meltfptr[41] = (/*!konst_13*/ meltfrout->tabval[13]);; /*^compute*/ - /*_.BOXER__V44*/ meltfptr[39] = /*_.PROGN___V46*/ meltfptr[41];; + /*_.BOXER__V44*/ + meltfptr[39] = /*_.PROGN___V46*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2560:/ clear"); - /*clear*/ /*_.SETQ___V45*/ meltfptr[40] = 0 ; + /*clear*/ /*_.SETQ___V45*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V46*/ meltfptr[41] = 0 ; + /*clear*/ /*_.PROGN___V46*/ + meltfptr[41] = 0 ; } ; } @@ -22126,10 +24368,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L17*/ meltfnum[16] = + /*_#IS_A__L17*/ + meltfnum[16] = melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE_PLAIN*/ meltfrout->tabval[14])));; MELT_LOCATION("warmelt-normal.melt:2564:/ cond"); - /*cond*/ if (/*_#IS_A__L17*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#IS_A__L17*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22140,7 +24384,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE_PLAIN*/ meltfrout->tabval[14]))) ) /*then*/ @@ -22151,7 +24396,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 13, "CTYPP_BOXING"); - /*_.BOXING__V49*/ meltfptr[48] = slot; + /*_.BOXING__V49*/ + meltfptr[48] = slot; }; ; } @@ -22162,15 +24408,19 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V48*/ meltfptr[41] = /*_.BOXING__V49*/ meltfptr[48];; + /*_.LET___V48*/ + meltfptr[41] = /*_.BOXING__V49*/ meltfptr[48];; MELT_LOCATION("warmelt-normal.melt:2565:/ clear"); - /*clear*/ /*_.BOXING__V49*/ meltfptr[48] = 0 ; - /*_._IFELSE___V47*/ meltfptr[40] = /*_.LET___V48*/ meltfptr[41];; + /*clear*/ /*_.BOXING__V49*/ + meltfptr[48] = 0 ; + /*_._IFELSE___V47*/ + meltfptr[40] = /*_.LET___V48*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2564:/ clear"); - /*clear*/ /*_.LET___V48*/ meltfptr[41] = 0 ; + /*clear*/ /*_.LET___V48*/ + meltfptr[41] = 0 ; } ; } @@ -22184,10 +24434,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L18*/ meltfnum[17] = + /*_#IS_A__L18*/ + meltfnum[17] = melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[15])));; MELT_LOCATION("warmelt-normal.melt:2569:/ cond"); - /*cond*/ if (/*_#IS_A__L18*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#IS_A__L18*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22198,7 +24450,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[15]))) ) /*then*/ @@ -22209,7 +24462,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 21, "CTYPG_BOXFUN"); - /*_.BOXFUN__V52*/ meltfptr[51] = slot; + /*_.BOXFUN__V52*/ + meltfptr[51] = slot; }; ; } @@ -22220,15 +24474,19 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V51*/ meltfptr[41] = /*_.BOXFUN__V52*/ meltfptr[51];; + /*_.LET___V51*/ + meltfptr[41] = /*_.BOXFUN__V52*/ meltfptr[51];; MELT_LOCATION("warmelt-normal.melt:2570:/ clear"); - /*clear*/ /*_.BOXFUN__V52*/ meltfptr[51] = 0 ; - /*_._IFELSE___V50*/ meltfptr[48] = /*_.LET___V51*/ meltfptr[41];; + /*clear*/ /*_.BOXFUN__V52*/ + meltfptr[51] = 0 ; + /*_._IFELSE___V50*/ + meltfptr[48] = /*_.LET___V51*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2569:/ clear"); - /*clear*/ /*_.LET___V51*/ meltfptr[41] = 0 ; + /*clear*/ /*_.LET___V51*/ + meltfptr[41] = 0 ; } ; } @@ -22240,7 +24498,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2576:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11]))) ) /*then*/ @@ -22251,7 +24510,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V53*/ meltfptr[51] = slot; + /*_.NAMED_NAME__V53*/ + meltfptr[51] = slot; }; ; } @@ -22273,45 +24533,57 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "unexpected ctype $1 for BOX"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V53*/ meltfptr[51]; - /*_.ERROR_AT__V54*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V54*/ + meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2574:/ quasiblock"); - /*_.PROGN___V55*/ meltfptr[54] = /*_.ERROR_AT__V54*/ meltfptr[41];; + /*_.PROGN___V55*/ + meltfptr[54] = /*_.ERROR_AT__V54*/ meltfptr[41];; /*^compute*/ - /*_._IFELSE___V50*/ meltfptr[48] = /*_.PROGN___V55*/ meltfptr[54];; + /*_._IFELSE___V50*/ + meltfptr[48] = /*_.PROGN___V55*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2569:/ clear"); - /*clear*/ /*_.NAMED_NAME__V53*/ meltfptr[51] = 0 ; + /*clear*/ /*_.NAMED_NAME__V53*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V54*/ meltfptr[41] = 0 ; + /*clear*/ /*_.ERROR_AT__V54*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.PROGN___V55*/ + meltfptr[54] = 0 ; } ; } ; - /*_._IFELSE___V47*/ meltfptr[40] = /*_._IFELSE___V50*/ meltfptr[48];; + /*_._IFELSE___V47*/ + meltfptr[40] = /*_._IFELSE___V50*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2564:/ clear"); - /*clear*/ /*_#IS_A__L18*/ meltfnum[17] = 0 ; + /*clear*/ /*_#IS_A__L18*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V50*/ meltfptr[48] = 0 ; + /*clear*/ /*_._IFELSE___V50*/ + meltfptr[48] = 0 ; } ; } ; - /*_.BOXER__V44*/ meltfptr[39] = /*_._IFELSE___V47*/ meltfptr[40];; + /*_.BOXER__V44*/ + meltfptr[39] = /*_._IFELSE___V47*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2560:/ clear"); - /*clear*/ /*_#IS_A__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#IS_A__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V47*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IFELSE___V47*/ + meltfptr[40] = 0 ; } ; } @@ -22336,7 +24608,8 @@ meltlab_endgetargs: 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)) @@ -22345,7 +24618,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2579:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22378,16 +24652,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_box boxer="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BOXER__V44*/ meltfptr[39]; - /*_.MELT_DEBUG_FUN__V57*/ 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__V57*/ + 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___V56*/ meltfptr[51] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[41];; + /*_._IF___V56*/ + meltfptr[51] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2579:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ meltfptr[41] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ + meltfptr[41] = 0 ; } ; } @@ -22400,7 +24678,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2579:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -22409,9 +24688,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V56*/ meltfptr[51] = 0 ; + /*clear*/ /*_._IF___V56*/ + meltfptr[51] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22450,7 +24731,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2587:/ cond"); - /*cond*/ if (/*_.AUTOBOXDISCR__V32*/ meltfptr[23]) /*then*/ + /*cond*/ + if (/*_.AUTOBOXDISCR__V32*/ meltfptr[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22474,22 +24756,28 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "autoboxing discriminant"; - /*_.PREDEFDISCR__V62*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.AUTOBOXDISCR__V32*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.PREDEFDISCR__V62*/ + meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.AUTOBOXDISCR__V32*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.CLONE_WITH_DISCRIMINANT__V63*/ meltfptr[62] = + /*_.CLONE_WITH_DISCRIMINANT__V63*/ + meltfptr[62] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_21*/ meltfrout->tabval[21])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V64*/ meltfptr[63] = + /*_.CLONE_WITH_DISCRIMINANT__V64*/ + meltfptr[63] = meltgc_clone_with_discriminant((melt_ptr_t)(/*_.BOXER__V44*/ meltfptr[39]), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V65*/ meltfptr[64] = + /*_.CLONE_WITH_DISCRIMINANT__V65*/ + meltfptr[64] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_23*/ meltfrout->tabval[23])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V66*/ meltfptr[65] = + /*_.CLONE_WITH_DISCRIMINANT__V66*/ + meltfptr[65] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_24*/ meltfrout->tabval[24])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V67*/ meltfptr[66] = + /*_.CLONE_WITH_DISCRIMINANT__V67*/ + meltfptr[66] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_25*/ meltfrout->tabval[25])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;; MELT_LOCATION("warmelt-normal.melt:2593:/ blockmultialloc"); /*multiallocblock*/ @@ -22502,7 +24790,8 @@ meltlab_endgetargs: meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x5*/ - /*_.TUPLREC___V69*/ meltfptr[68] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x5; + /*_.TUPLREC___V69*/ + meltfptr[68] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x5; meltletrec_2_ptr->rtup_0__TUPLREC__x5.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_2_ptr->rtup_0__TUPLREC__x5.nbval = 7; @@ -22552,36 +24841,49 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V69*/ meltfptr[68]); ; - /*_.TUPLE___V68*/ meltfptr[67] = /*_.TUPLREC___V69*/ meltfptr[68];; + /*_.TUPLE___V68*/ + meltfptr[67] = /*_.TUPLREC___V69*/ meltfptr[68];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2593:/ clear"); - /*clear*/ /*_.TUPLREC___V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_.TUPLREC___V69*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_.TUPLREC___V69*/ + meltfptr[68] = 0 ; } /*end multiallocblock*/ ; - /*_.LET___V61*/ meltfptr[41] = /*_.TUPLE___V68*/ meltfptr[67];; + /*_.LET___V61*/ + meltfptr[41] = /*_.TUPLE___V68*/ meltfptr[67];; MELT_LOCATION("warmelt-normal.melt:2588:/ clear"); - /*clear*/ /*_.PREDEFDISCR__V62*/ meltfptr[51] = 0 ; + /*clear*/ /*_.PREDEFDISCR__V62*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V63*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V64*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V65*/ meltfptr[64] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V65*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V66*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V67*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V68*/ meltfptr[67] = 0 ; - /*_._IFELSE___V60*/ meltfptr[40] = /*_.LET___V61*/ meltfptr[41];; + /*clear*/ /*_.TUPLE___V68*/ + meltfptr[67] = 0 ; + /*_._IFELSE___V60*/ + meltfptr[40] = /*_.LET___V61*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2587:/ clear"); - /*clear*/ /*_.LET___V61*/ meltfptr[41] = 0 ; + /*clear*/ /*_.LET___V61*/ + meltfptr[41] = 0 ; } ; } @@ -22595,13 +24897,16 @@ meltlab_endgetargs: /*_.CLONE_WITH_DISCRIMINANT__V70*/ meltfptr[68] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_26*/ meltfrout->tabval[26])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V71*/ meltfptr[51] = + /*_.CLONE_WITH_DISCRIMINANT__V71*/ + meltfptr[51] = meltgc_clone_with_discriminant((melt_ptr_t)(/*_.BOXER__V44*/ meltfptr[39]), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V72*/ meltfptr[62] = + /*_.CLONE_WITH_DISCRIMINANT__V72*/ + meltfptr[62] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_27*/ meltfrout->tabval[27])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V73*/ meltfptr[63] = + /*_.CLONE_WITH_DISCRIMINANT__V73*/ + meltfptr[63] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_28*/ meltfrout->tabval[28])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;; MELT_LOCATION("warmelt-normal.melt:2602:/ blockmultialloc"); /*multiallocblock*/ @@ -22614,7 +24919,8 @@ meltlab_endgetargs: meltletrec_3_ptr = (struct meltletrec_3_st *) meltgc_allocate (sizeof (struct meltletrec_3_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x6*/ - /*_.TUPLREC___V75*/ meltfptr[65] = (melt_ptr_t) &meltletrec_3_ptr->rtup_0__TUPLREC__x6; + /*_.TUPLREC___V75*/ + meltfptr[65] = (melt_ptr_t) &meltletrec_3_ptr->rtup_0__TUPLREC__x6; meltletrec_3_ptr->rtup_0__TUPLREC__x6.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_3_ptr->rtup_0__TUPLREC__x6.nbval = 5; @@ -22652,28 +24958,37 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V75*/ meltfptr[65]); ; - /*_.TUPLE___V74*/ meltfptr[64] = /*_.TUPLREC___V75*/ meltfptr[65];; + /*_.TUPLE___V74*/ + meltfptr[64] = /*_.TUPLREC___V75*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2602:/ clear"); - /*clear*/ /*_.TUPLREC___V75*/ meltfptr[65] = 0 ; + /*clear*/ /*_.TUPLREC___V75*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V75*/ meltfptr[65] = 0 ; + /*clear*/ /*_.TUPLREC___V75*/ + meltfptr[65] = 0 ; } /*end multiallocblock*/ ; - /*_._IFELSE___V60*/ meltfptr[40] = /*_.TUPLE___V74*/ meltfptr[64];; + /*_._IFELSE___V60*/ + meltfptr[40] = /*_.TUPLE___V74*/ meltfptr[64];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2587:/ clear"); - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V70*/ meltfptr[68] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V70*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V71*/ meltfptr[51] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V71*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V72*/ meltfptr[62] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V72*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V73*/ meltfptr[63] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V73*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V74*/ meltfptr[64] = 0 ; + /*clear*/ /*_.TUPLE___V74*/ + meltfptr[64] = 0 ; } ; } @@ -22686,7 +25001,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[18])), (4), "CLASS_NREP_CHUNK"); - /*_.INST__V77*/ meltfptr[67] = + /*_.INST__V77*/ + meltfptr[67] = newobj; }; ; @@ -22714,7 +25030,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V77*/ meltfptr[67], "newly made instance"); ; - /*_.NCHUNK__V76*/ meltfptr[66] = /*_.INST__V77*/ meltfptr[67];; + /*_.NCHUNK__V76*/ + meltfptr[66] = /*_.INST__V77*/ meltfptr[67];; MELT_CHECK_SIGNAL(); ; @@ -22726,7 +25043,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[29])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V79*/ meltfptr[65] = + /*_.INST__V79*/ + meltfptr[65] = newobj; }; ; @@ -22754,7 +25072,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V79*/ meltfptr[65], "newly made instance"); ; - /*_.CBIND__V78*/ meltfptr[41] = /*_.INST__V79*/ meltfptr[65];; + /*_.CBIND__V78*/ + meltfptr[41] = /*_.INST__V79*/ meltfptr[65];; MELT_CHECK_SIGNAL(); ; @@ -22766,7 +25085,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[30])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V81*/ meltfptr[51] = + /*_.INST__V81*/ + meltfptr[51] = newobj; }; ; @@ -22794,7 +25114,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V81*/ meltfptr[51], "newly made instance"); ; - /*_.CLOCC__V80*/ meltfptr[68] = /*_.INST__V81*/ meltfptr[51];; + /*_.CLOCC__V80*/ + meltfptr[68] = /*_.INST__V81*/ meltfptr[51];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2622:/ cppif.then"); @@ -22815,7 +25136,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L21*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -22824,7 +25146,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2622:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22861,16 +25184,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " clocc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V80*/ meltfptr[68]; - /*_.MELT_DEBUG_FUN__V83*/ meltfptr[63] = melt_apply ((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__V83*/ + meltfptr[63] = melt_apply ((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___V82*/ meltfptr[62] = /*_.MELT_DEBUG_FUN__V83*/ meltfptr[63];; + /*_._IF___V82*/ + meltfptr[62] = /*_.MELT_DEBUG_FUN__V83*/ meltfptr[63];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2622:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V83*/ meltfptr[63] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V83*/ + meltfptr[63] = 0 ; } ; } @@ -22883,7 +25210,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2622:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -22892,9 +25220,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V82*/ meltfptr[62] = 0 ; + /*clear*/ /*_._IF___V82*/ + meltfptr[62] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22940,7 +25270,8 @@ meltlab_endgetargs: 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)) @@ -22949,7 +25280,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2624:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L23*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22986,16 +25318,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V85*/ meltfptr[63] = melt_apply ((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__V85*/ + meltfptr[63] = melt_apply ((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___V84*/ meltfptr[64] = /*_.MELT_DEBUG_FUN__V85*/ meltfptr[63];; + /*_._IF___V84*/ + meltfptr[64] = /*_.MELT_DEBUG_FUN__V85*/ meltfptr[63];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2624:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L24*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V85*/ meltfptr[63] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V85*/ + meltfptr[63] = 0 ; } ; } @@ -23008,7 +25344,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2624:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -23017,9 +25354,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L23*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V84*/ meltfptr[64] = 0 ; + /*clear*/ /*_._IF___V84*/ + meltfptr[64] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23045,7 +25384,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2625:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V80*/ meltfptr[68];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V80*/ meltfptr[68];; MELT_LOCATION("warmelt-normal.melt:2625:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -23053,72 +25393,101 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V58*/ meltfptr[54] = /*_.RETURN___V86*/ meltfptr[62];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V58*/ + meltfptr[54] = /*_.RETURN___V86*/ meltfptr[62];; MELT_LOCATION("warmelt-normal.melt:2580:/ clear"); - /*clear*/ /*_.CSYM__V59*/ meltfptr[48] = 0 ; + /*clear*/ /*_.CSYM__V59*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V60*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IFELSE___V60*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHUNK__V76*/ meltfptr[66] = 0 ; + /*clear*/ /*_.NCHUNK__V76*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V78*/ meltfptr[41] = 0 ; + /*clear*/ /*_.CBIND__V78*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V80*/ meltfptr[68] = 0 ; + /*clear*/ /*_.CLOCC__V80*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V86*/ meltfptr[62] = 0 ; - /*_.LET___V43*/ meltfptr[34] = /*_.LET___V58*/ meltfptr[54];; + /*clear*/ /*_.RETURN___V86*/ + meltfptr[62] = 0 ; + /*_.LET___V43*/ + meltfptr[34] = /*_.LET___V58*/ meltfptr[54];; MELT_LOCATION("warmelt-normal.melt:2557:/ clear"); - /*clear*/ /*_#eqeq__L16*/ meltfnum[9] = 0 ; + /*clear*/ /*_#eqeq__L16*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.BOXER__V44*/ meltfptr[39] = 0 ; + /*clear*/ /*_.BOXER__V44*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V58*/ meltfptr[54] = 0 ; - /*_.LET___V30*/ meltfptr[28] = /*_.LET___V43*/ meltfptr[34];; + /*clear*/ /*_.LET___V58*/ + meltfptr[54] = 0 ; + /*_.LET___V30*/ + meltfptr[28] = /*_.LET___V43*/ meltfptr[34];; MELT_LOCATION("warmelt-normal.melt:2548:/ clear"); - /*clear*/ /*_.NCTYP__V31*/ meltfptr[27] = 0 ; + /*clear*/ /*_.NCTYP__V31*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.AUTOBOXDISCR__V32*/ meltfptr[23] = 0 ; + /*clear*/ /*_.AUTOBOXDISCR__V32*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V33*/ meltfptr[22] = 0 ; + /*clear*/ /*_.IFCPP___V33*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L15*/ meltfnum[10] = 0 ; + /*clear*/ /*_#IS_NOT_A__L15*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V38*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V38*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V43*/ meltfptr[34] = 0 ; + /*clear*/ /*_.LET___V43*/ + meltfptr[34] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V20*/ meltfptr[19] = /*_.LET___V30*/ meltfptr[28];; + /*_.MULTI___V20*/ + meltfptr[19] = /*_.LET___V30*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:2541:/ clear"); - /*clear*/ /*_#IS_LIST__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NOT__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V30*/ meltfptr[28] = 0 ; + /*clear*/ /*_.LET___V30*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V22*/ meltfptr[21] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.MULTI___V20*/ meltfptr[19];; + /*clear*/ /*_.NBIND__V22*/ + meltfptr[21] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.MULTI___V20*/ meltfptr[19];; MELT_LOCATION("warmelt-normal.melt:2538:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SBOXED__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SBOXED__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MULTI___V20*/ + meltfptr[19] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2533:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:2533:/ locexp"); @@ -23133,17 +25502,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -23225,7 +25599,8 @@ meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX(meltclosure_ptr_t meltclosp_, melt_ /* end of frame for routine meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX fromline 1756 */ - /* classy proc frame meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX */ MeltFrame_meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX + /* classy proc frame meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX */ + MeltFrame_meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX fromline 1785*/ #if ENABLE_CHECKING @@ -23238,7 +25613,8 @@ meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX(meltclosure_ptr_t meltclosp_, melt_ #define meltframe meltfram__ melt_trace_start("NORMEXP_CONSTBOX", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -23248,26 +25624,30 @@ meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX(meltclosure_ptr_t meltclosp_, melt_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:2631:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -23299,7 +25679,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)) @@ -23308,7 +25689,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2632:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23341,16 +25723,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_box recv"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2632:/ 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 ; } ; } @@ -23363,7 +25749,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2632:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -23372,9 +25759,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*/ @@ -23404,10 +25793,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_CONSTANT_BOX*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:2633:/ 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);; @@ -23436,25 +25827,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2633; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2633:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2633:/ 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*/ @@ -23472,10 +25869,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:2634:/ 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);; @@ -23504,25 +25903,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2634; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2634:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2634:/ 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*/ @@ -23540,10 +25945,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:2635:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -23572,25 +25979,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2635; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2635:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2635:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23606,11 +26019,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2637:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_QUASI_BOX*/ meltfrout->tabval[5]))) ) /*then*/ @@ -23621,7 +26036,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SBOXED"); - /*_.SBOXED__V19*/ meltfptr[18] = slot; + /*_.SBOXED__V19*/ + meltfptr[18] = slot; }; ; } @@ -23650,7 +26066,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21];/*^multimsend.send*/ - /*_.NBOXED__V21*/ meltfptr[20] = meltgc_send ((melt_ptr_t)(/*_.SBOXED__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NBOXED__V21*/ + meltfptr[20] = meltgc_send ((melt_ptr_t)(/*_.SBOXED__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -23676,7 +26093,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)) @@ -23685,7 +26103,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2642:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23722,16 +26141,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V23*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; + /*_._IF___V23*/ + meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2642:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[23] = 0 ; } ; } @@ -23744,7 +26167,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2642:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -23753,9 +26177,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IF___V23*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23778,13 +26204,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L8*/ meltfnum[1] = + /*_#IS_LIST__L8*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.NBIND__V22*/ meltfptr[21])) == MELTOBMAG_LIST);; /*^compute*/ - /*_#NOT__L9*/ meltfnum[0] = + /*_#NOT__L9*/ + meltfnum[0] = (!(/*_#IS_LIST__L8*/ meltfnum[1]));; MELT_LOCATION("warmelt-normal.melt:2643:/ cond"); - /*cond*/ if (/*_#NOT__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#NOT__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23802,22 +26231,27 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inilist rlist_0__LIST_*/ - /*_.LIST___V26*/ meltfptr[22] = (melt_ptr_t) &meltletrec_1_ptr->rlist_0__LIST_; + /*_.LIST___V26*/ + meltfptr[22] = (melt_ptr_t) &meltletrec_1_ptr->rlist_0__LIST_; meltletrec_1_ptr->rlist_0__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); - /*_.LIST___V25*/ meltfptr[23] = /*_.LIST___V26*/ meltfptr[22];; + /*_.LIST___V25*/ + meltfptr[23] = /*_.LIST___V26*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2644:/ clear"); - /*clear*/ /*_.LIST___V26*/ meltfptr[22] = 0 ; + /*clear*/ /*_.LIST___V26*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V26*/ meltfptr[22] = 0 ; + /*clear*/ /*_.LIST___V26*/ + meltfptr[22] = 0 ; } /*end multiallocblock*/ ; /*^compute*/ - /*_.NBIND__V22*/ meltfptr[21] = /*_.SETQ___V27*/ meltfptr[22] = /*_.LIST___V25*/ meltfptr[23];; + /*_.NBIND__V22*/ + meltfptr[21] = /*_.SETQ___V27*/ meltfptr[22] = /*_.LIST___V25*/ meltfptr[23];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2645:/ cppif.then"); @@ -23838,7 +26272,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -23847,7 +26282,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2645:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23880,16 +26316,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_constbox set nbind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21]; - /*_.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-normal.melt:2645:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ + meltfptr[28] = 0 ; } ; } @@ -23902,7 +26342,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2645:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -23911,9 +26352,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V28*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23939,9 +26382,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.LIST___V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_.LIST___V25*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V27*/ meltfptr[22] = 0 ; + /*clear*/ /*_.SETQ___V27*/ + meltfptr[22] = 0 ; } ; } /*noelse*/ @@ -23959,11 +26404,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.NCTYP__V31*/ meltfptr[27] = meltgc_send((melt_ptr_t)(/*_.NBOXED__V21*/ meltfptr[20]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NCTYP__V31*/ + meltfptr[27] = meltgc_send((melt_ptr_t)(/*_.NBOXED__V21*/ meltfptr[20]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2647:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8]))) ) /*then*/ @@ -23974,7 +26421,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 12, "CTYPE_AUTOCONSTBOXDISCR"); - /*_.AUTOBOXDISCR__V32*/ meltfptr[23] = slot; + /*_.AUTOBOXDISCR__V32*/ + meltfptr[23] = slot; }; ; } @@ -23994,10 +26442,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L12*/ meltfnum[10] = + /*_#IS_A__L12*/ + meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:2649:/ cond"); - /*cond*/ if (/*_#IS_A__L12*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#IS_A__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V34*/ meltfptr[33] = (/*nil*/NULL);; @@ -24026,25 +26476,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2649; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCTYP__V31*/ meltfptr[27]; - /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V35*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V34*/ meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; + /*_._IFELSE___V34*/ + meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2649:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ + meltfptr[34] = 0 ; } ; } ; - /*_.IFCPP___V33*/ meltfptr[22] = /*_._IFELSE___V34*/ meltfptr[33];; + /*_.IFCPP___V33*/ + meltfptr[22] = /*_._IFELSE___V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2649:/ clear"); - /*clear*/ /*_#IS_A__L12*/ meltfnum[10] = 0 ; + /*clear*/ /*_#IS_A__L12*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IFELSE___V34*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24072,7 +26528,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)) @@ -24081,7 +26538,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2650:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L13*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24118,16 +26576,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " autoboxdiscr="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.AUTOBOXDISCR__V32*/ meltfptr[23]; - /*_.MELT_DEBUG_FUN__V37*/ 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__V37*/ + 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___V36*/ meltfptr[34] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[33];; + /*_._IF___V36*/ + meltfptr[34] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2650:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[33] = 0 ; } ; } @@ -24140,7 +26602,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2650:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -24149,9 +26612,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IF___V36*/ + meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24174,10 +26639,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L15*/ meltfnum[10] = + /*_#IS_NOT_A__L15*/ + meltfnum[10] = !melt_is_instance_of((melt_ptr_t)(/*_.AUTOBOXDISCR__V32*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_DISCRIMINANT*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-normal.melt:2651:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L15*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L15*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24185,7 +26652,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2653:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11]))) ) /*then*/ @@ -24196,7 +26664,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V39*/ meltfptr[34] = slot; + /*_.NAMED_NAME__V39*/ + meltfptr[34] = slot; }; ; } @@ -24218,13 +26687,15 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "non-CONSTANT_BOX-able stuff of ctype $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V39*/ meltfptr[34]; - /*_.ERROR_AT__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V40*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2654:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:2654:/ locexp"); @@ -24239,23 +26710,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:2651:/ quasiblock"); - /*_.PROGN___V42*/ meltfptr[41] = /*_.RETURN___V41*/ meltfptr[40];; + /*_.PROGN___V42*/ + meltfptr[41] = /*_.RETURN___V41*/ meltfptr[40];; /*^compute*/ - /*_._IF___V38*/ meltfptr[33] = /*_.PROGN___V42*/ meltfptr[41];; + /*_._IF___V38*/ + meltfptr[33] = /*_.PROGN___V42*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2651:/ clear"); - /*clear*/ /*_.NAMED_NAME__V39*/ meltfptr[34] = 0 ; + /*clear*/ /*_.NAMED_NAME__V39*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.ERROR_AT__V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.RETURN___V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.PROGN___V42*/ + meltfptr[41] = 0 ; } ; } @@ -24271,10 +26749,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L16*/ meltfnum[9] = + /*_#IS_A__L16*/ + meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE_PLAIN*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:2658:/ cond"); - /*cond*/ if (/*_#IS_A__L16*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#IS_A__L16*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24285,7 +26765,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE_PLAIN*/ meltfrout->tabval[12]))) ) /*then*/ @@ -24296,7 +26777,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 13, "CTYPP_BOXING"); - /*_.BOXING__V46*/ meltfptr[41] = slot; + /*_.BOXING__V46*/ + meltfptr[41] = slot; }; ; } @@ -24307,15 +26789,19 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V45*/ meltfptr[40] = /*_.BOXING__V46*/ meltfptr[41];; + /*_.LET___V45*/ + meltfptr[40] = /*_.BOXING__V46*/ meltfptr[41];; MELT_LOCATION("warmelt-normal.melt:2659:/ clear"); - /*clear*/ /*_.BOXING__V46*/ meltfptr[41] = 0 ; - /*_.BOXER__V44*/ meltfptr[39] = /*_.LET___V45*/ meltfptr[40];; + /*clear*/ /*_.BOXING__V46*/ + meltfptr[41] = 0 ; + /*_.BOXER__V44*/ + meltfptr[39] = /*_.LET___V45*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2658:/ clear"); - /*clear*/ /*_.LET___V45*/ meltfptr[40] = 0 ; + /*clear*/ /*_.LET___V45*/ + meltfptr[40] = 0 ; } ; } @@ -24329,10 +26815,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L17*/ meltfnum[16] = + /*_#IS_A__L17*/ + meltfnum[16] = melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-normal.melt:2663:/ cond"); - /*cond*/ if (/*_#IS_A__L17*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#IS_A__L17*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24343,7 +26831,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[13]))) ) /*then*/ @@ -24354,7 +26843,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 21, "CTYPG_BOXFUN"); - /*_.BOXFUN__V49*/ meltfptr[48] = slot; + /*_.BOXFUN__V49*/ + meltfptr[48] = slot; }; ; } @@ -24365,15 +26855,19 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V48*/ meltfptr[40] = /*_.BOXFUN__V49*/ meltfptr[48];; + /*_.LET___V48*/ + meltfptr[40] = /*_.BOXFUN__V49*/ meltfptr[48];; MELT_LOCATION("warmelt-normal.melt:2664:/ clear"); - /*clear*/ /*_.BOXFUN__V49*/ meltfptr[48] = 0 ; - /*_._IFELSE___V47*/ meltfptr[41] = /*_.LET___V48*/ meltfptr[40];; + /*clear*/ /*_.BOXFUN__V49*/ + meltfptr[48] = 0 ; + /*_._IFELSE___V47*/ + meltfptr[41] = /*_.LET___V48*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2663:/ clear"); - /*clear*/ /*_.LET___V48*/ meltfptr[40] = 0 ; + /*clear*/ /*_.LET___V48*/ + meltfptr[40] = 0 ; } ; } @@ -24385,7 +26879,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2670:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11]))) ) /*then*/ @@ -24396,7 +26891,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V50*/ meltfptr[48] = slot; + /*_.NAMED_NAME__V50*/ + meltfptr[48] = slot; }; ; } @@ -24418,34 +26914,43 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "unexpected ctype $1 for BOX"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V50*/ meltfptr[48]; - /*_.ERROR_AT__V51*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V51*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2668:/ quasiblock"); - /*_.PROGN___V52*/ meltfptr[51] = /*_.ERROR_AT__V51*/ meltfptr[40];; + /*_.PROGN___V52*/ + meltfptr[51] = /*_.ERROR_AT__V51*/ meltfptr[40];; /*^compute*/ - /*_._IFELSE___V47*/ meltfptr[41] = /*_.PROGN___V52*/ meltfptr[51];; + /*_._IFELSE___V47*/ + meltfptr[41] = /*_.PROGN___V52*/ meltfptr[51];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2663:/ clear"); - /*clear*/ /*_.NAMED_NAME__V50*/ meltfptr[48] = 0 ; + /*clear*/ /*_.NAMED_NAME__V50*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V51*/ meltfptr[40] = 0 ; + /*clear*/ /*_.ERROR_AT__V51*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.PROGN___V52*/ + meltfptr[51] = 0 ; } ; } ; - /*_.BOXER__V44*/ meltfptr[39] = /*_._IFELSE___V47*/ meltfptr[41];; + /*_.BOXER__V44*/ + meltfptr[39] = /*_._IFELSE___V47*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2658:/ clear"); - /*clear*/ /*_#IS_A__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#IS_A__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V47*/ meltfptr[41] = 0 ; + /*clear*/ /*_._IFELSE___V47*/ + meltfptr[41] = 0 ; } ; } @@ -24470,7 +26975,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)) @@ -24479,7 +26985,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2673:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24512,16 +27019,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_box boxer="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BOXER__V44*/ meltfptr[39]; - /*_.MELT_DEBUG_FUN__V54*/ 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__V54*/ + 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___V53*/ meltfptr[48] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[40];; + /*_._IF___V53*/ + meltfptr[48] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2673:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ + meltfptr[40] = 0 ; } ; } @@ -24534,7 +27045,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2673:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -24543,9 +27055,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V53*/ meltfptr[48] = 0 ; + /*clear*/ /*_._IF___V53*/ + meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24584,7 +27098,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2681:/ cond"); - /*cond*/ if (/*_.AUTOBOXDISCR__V32*/ meltfptr[23]) /*then*/ + /*cond*/ + if (/*_.AUTOBOXDISCR__V32*/ meltfptr[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24608,22 +27123,28 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "autoconstboxing discriminant"; - /*_.PREDEFDISCR__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.AUTOBOXDISCR__V32*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.PREDEFDISCR__V59*/ + meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.AUTOBOXDISCR__V32*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.CLONE_WITH_DISCRIMINANT__V60*/ meltfptr[59] = + /*_.CLONE_WITH_DISCRIMINANT__V60*/ + meltfptr[59] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_20*/ meltfrout->tabval[20])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V61*/ meltfptr[60] = + /*_.CLONE_WITH_DISCRIMINANT__V61*/ + meltfptr[60] = meltgc_clone_with_discriminant((melt_ptr_t)(/*_.BOXER__V44*/ meltfptr[39]), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V62*/ meltfptr[61] = + /*_.CLONE_WITH_DISCRIMINANT__V62*/ + meltfptr[61] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_22*/ meltfrout->tabval[22])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V63*/ meltfptr[62] = + /*_.CLONE_WITH_DISCRIMINANT__V63*/ + meltfptr[62] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_23*/ meltfrout->tabval[23])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V64*/ meltfptr[63] = + /*_.CLONE_WITH_DISCRIMINANT__V64*/ + meltfptr[63] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_24*/ meltfrout->tabval[24])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;; MELT_LOCATION("warmelt-normal.melt:2687:/ blockmultialloc"); /*multiallocblock*/ @@ -24636,7 +27157,8 @@ meltlab_endgetargs: meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x7*/ - /*_.TUPLREC___V66*/ meltfptr[65] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x7; + /*_.TUPLREC___V66*/ + meltfptr[65] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x7; meltletrec_2_ptr->rtup_0__TUPLREC__x7.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_2_ptr->rtup_0__TUPLREC__x7.nbval = 7; @@ -24686,36 +27208,49 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V66*/ meltfptr[65]); ; - /*_.TUPLE___V65*/ meltfptr[64] = /*_.TUPLREC___V66*/ meltfptr[65];; + /*_.TUPLE___V65*/ + meltfptr[64] = /*_.TUPLREC___V66*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2687:/ clear"); - /*clear*/ /*_.TUPLREC___V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.TUPLREC___V66*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.TUPLREC___V66*/ + meltfptr[65] = 0 ; } /*end multiallocblock*/ ; - /*_.LET___V58*/ meltfptr[48] = /*_.TUPLE___V65*/ meltfptr[64];; + /*_.LET___V58*/ + meltfptr[48] = /*_.TUPLE___V65*/ meltfptr[64];; MELT_LOCATION("warmelt-normal.melt:2682:/ clear"); - /*clear*/ /*_.PREDEFDISCR__V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.PREDEFDISCR__V59*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V61*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V62*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V63*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V64*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V65*/ meltfptr[64] = 0 ; - /*_._IFELSE___V57*/ meltfptr[40] = /*_.LET___V58*/ meltfptr[48];; + /*clear*/ /*_.TUPLE___V65*/ + meltfptr[64] = 0 ; + /*_._IFELSE___V57*/ + meltfptr[40] = /*_.LET___V58*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2681:/ clear"); - /*clear*/ /*_.LET___V58*/ meltfptr[48] = 0 ; + /*clear*/ /*_.LET___V58*/ + meltfptr[48] = 0 ; } ; } @@ -24729,13 +27264,16 @@ meltlab_endgetargs: /*_.CLONE_WITH_DISCRIMINANT__V67*/ meltfptr[65] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_25*/ meltfrout->tabval[25])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V68*/ meltfptr[58] = + /*_.CLONE_WITH_DISCRIMINANT__V68*/ + meltfptr[58] = meltgc_clone_with_discriminant((melt_ptr_t)(/*_.BOXER__V44*/ meltfptr[39]), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V69*/ meltfptr[59] = + /*_.CLONE_WITH_DISCRIMINANT__V69*/ + meltfptr[59] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_26*/ meltfrout->tabval[26])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V70*/ meltfptr[60] = + /*_.CLONE_WITH_DISCRIMINANT__V70*/ + meltfptr[60] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_27*/ meltfrout->tabval[27])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;; MELT_LOCATION("warmelt-normal.melt:2696:/ blockmultialloc"); /*multiallocblock*/ @@ -24748,7 +27286,8 @@ meltlab_endgetargs: meltletrec_3_ptr = (struct meltletrec_3_st *) meltgc_allocate (sizeof (struct meltletrec_3_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x8*/ - /*_.TUPLREC___V72*/ meltfptr[62] = (melt_ptr_t) &meltletrec_3_ptr->rtup_0__TUPLREC__x8; + /*_.TUPLREC___V72*/ + meltfptr[62] = (melt_ptr_t) &meltletrec_3_ptr->rtup_0__TUPLREC__x8; meltletrec_3_ptr->rtup_0__TUPLREC__x8.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_3_ptr->rtup_0__TUPLREC__x8.nbval = 5; @@ -24786,28 +27325,37 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V72*/ meltfptr[62]); ; - /*_.TUPLE___V71*/ meltfptr[61] = /*_.TUPLREC___V72*/ meltfptr[62];; + /*_.TUPLE___V71*/ + meltfptr[61] = /*_.TUPLREC___V72*/ meltfptr[62];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2696:/ clear"); - /*clear*/ /*_.TUPLREC___V72*/ meltfptr[62] = 0 ; + /*clear*/ /*_.TUPLREC___V72*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V72*/ meltfptr[62] = 0 ; + /*clear*/ /*_.TUPLREC___V72*/ + meltfptr[62] = 0 ; } /*end multiallocblock*/ ; - /*_._IFELSE___V57*/ meltfptr[40] = /*_.TUPLE___V71*/ meltfptr[61];; + /*_._IFELSE___V57*/ + meltfptr[40] = /*_.TUPLE___V71*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2681:/ clear"); - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V67*/ meltfptr[65] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V67*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V68*/ meltfptr[58] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V68*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V69*/ meltfptr[59] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V69*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V70*/ meltfptr[60] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V70*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V71*/ meltfptr[61] = 0 ; + /*clear*/ /*_.TUPLE___V71*/ + meltfptr[61] = 0 ; } ; } @@ -24820,7 +27368,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[16])), (4), "CLASS_NREP_CHUNK"); - /*_.INST__V74*/ meltfptr[64] = + /*_.INST__V74*/ + meltfptr[64] = newobj; }; ; @@ -24848,7 +27397,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V74*/ meltfptr[64], "newly made instance"); ; - /*_.NCHUNK__V73*/ meltfptr[63] = /*_.INST__V74*/ meltfptr[64];; + /*_.NCHUNK__V73*/ + meltfptr[63] = /*_.INST__V74*/ meltfptr[64];; MELT_CHECK_SIGNAL(); ; @@ -24860,7 +27410,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[28])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V76*/ meltfptr[62] = + /*_.INST__V76*/ + meltfptr[62] = newobj; }; ; @@ -24888,7 +27439,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V76*/ meltfptr[62], "newly made instance"); ; - /*_.CBIND__V75*/ meltfptr[48] = /*_.INST__V76*/ meltfptr[62];; + /*_.CBIND__V75*/ + meltfptr[48] = /*_.INST__V76*/ meltfptr[62];; MELT_CHECK_SIGNAL(); ; @@ -24900,7 +27452,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[29])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V78*/ meltfptr[58] = + /*_.INST__V78*/ + meltfptr[58] = newobj; }; ; @@ -24928,7 +27481,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V78*/ meltfptr[58], "newly made instance"); ; - /*_.CLOCC__V77*/ meltfptr[65] = /*_.INST__V78*/ meltfptr[58];; + /*_.CLOCC__V77*/ + meltfptr[65] = /*_.INST__V78*/ meltfptr[58];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2716:/ cppif.then"); @@ -24949,7 +27503,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ meltfnum[18] = + /*_#MELT_NEED_DBG__L20*/ + meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -24958,7 +27513,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2716:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24995,16 +27551,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " clocc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V77*/ meltfptr[65]; - /*_.MELT_DEBUG_FUN__V80*/ 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__V80*/ + 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___V79*/ meltfptr[59] = /*_.MELT_DEBUG_FUN__V80*/ meltfptr[60];; + /*_._IF___V79*/ + meltfptr[59] = /*_.MELT_DEBUG_FUN__V80*/ meltfptr[60];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2716:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V80*/ meltfptr[60] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V80*/ + meltfptr[60] = 0 ; } ; } @@ -25017,7 +27577,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2716:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -25026,9 +27587,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V79*/ meltfptr[59] = 0 ; + /*clear*/ /*_._IF___V79*/ + meltfptr[59] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25074,7 +27637,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)) @@ -25083,7 +27647,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2718:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L22*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L22*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25120,16 +27685,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V82*/ 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__V82*/ + 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___V81*/ meltfptr[61] = /*_.MELT_DEBUG_FUN__V82*/ meltfptr[60];; + /*_._IF___V81*/ + meltfptr[61] = /*_.MELT_DEBUG_FUN__V82*/ meltfptr[60];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2718:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L23*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L23*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V82*/ meltfptr[60] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V82*/ + meltfptr[60] = 0 ; } ; } @@ -25142,7 +27711,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2718:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -25151,9 +27721,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L22*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L22*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V81*/ meltfptr[61] = 0 ; + /*clear*/ /*_._IF___V81*/ + meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25179,7 +27751,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2719:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V77*/ meltfptr[65];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V77*/ meltfptr[65];; MELT_LOCATION("warmelt-normal.melt:2719:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -25187,72 +27760,101 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V55*/ meltfptr[51] = /*_.RETURN___V83*/ meltfptr[59];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V55*/ + meltfptr[51] = /*_.RETURN___V83*/ meltfptr[59];; MELT_LOCATION("warmelt-normal.melt:2674:/ clear"); - /*clear*/ /*_.CSYM__V56*/ meltfptr[41] = 0 ; + /*clear*/ /*_.CSYM__V56*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V57*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IFELSE___V57*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHUNK__V73*/ meltfptr[63] = 0 ; + /*clear*/ /*_.NCHUNK__V73*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V75*/ meltfptr[48] = 0 ; + /*clear*/ /*_.CBIND__V75*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V77*/ meltfptr[65] = 0 ; + /*clear*/ /*_.CLOCC__V77*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V83*/ meltfptr[59] = 0 ; - /*_.LET___V43*/ meltfptr[34] = /*_.LET___V55*/ meltfptr[51];; + /*clear*/ /*_.RETURN___V83*/ + meltfptr[59] = 0 ; + /*_.LET___V43*/ + meltfptr[34] = /*_.LET___V55*/ meltfptr[51];; MELT_LOCATION("warmelt-normal.melt:2655:/ clear"); - /*clear*/ /*_#IS_A__L16*/ meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L16*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.BOXER__V44*/ meltfptr[39] = 0 ; + /*clear*/ /*_.BOXER__V44*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V55*/ meltfptr[51] = 0 ; - /*_.LET___V30*/ meltfptr[28] = /*_.LET___V43*/ meltfptr[34];; + /*clear*/ /*_.LET___V55*/ + meltfptr[51] = 0 ; + /*_.LET___V30*/ + meltfptr[28] = /*_.LET___V43*/ meltfptr[34];; MELT_LOCATION("warmelt-normal.melt:2646:/ clear"); - /*clear*/ /*_.NCTYP__V31*/ meltfptr[27] = 0 ; + /*clear*/ /*_.NCTYP__V31*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.AUTOBOXDISCR__V32*/ meltfptr[23] = 0 ; + /*clear*/ /*_.AUTOBOXDISCR__V32*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V33*/ meltfptr[22] = 0 ; + /*clear*/ /*_.IFCPP___V33*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L15*/ meltfnum[10] = 0 ; + /*clear*/ /*_#IS_NOT_A__L15*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V38*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V38*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V43*/ meltfptr[34] = 0 ; + /*clear*/ /*_.LET___V43*/ + meltfptr[34] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V20*/ meltfptr[19] = /*_.LET___V30*/ meltfptr[28];; + /*_.MULTI___V20*/ + meltfptr[19] = /*_.LET___V30*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:2639:/ clear"); - /*clear*/ /*_#IS_LIST__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NOT__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V30*/ meltfptr[28] = 0 ; + /*clear*/ /*_.LET___V30*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V22*/ meltfptr[21] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.MULTI___V20*/ meltfptr[19];; + /*clear*/ /*_.NBIND__V22*/ + meltfptr[21] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.MULTI___V20*/ meltfptr[19];; MELT_LOCATION("warmelt-normal.melt:2636:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SBOXED__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SBOXED__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MULTI___V20*/ + meltfptr[19] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2631:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:2631:/ locexp"); @@ -25267,17 +27869,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -25359,7 +27966,8 @@ meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX fromline 1756 */ - /* classy proc frame meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX */ MeltFrame_meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX + /* classy proc frame meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX */ + MeltFrame_meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX fromline 1785*/ #if ENABLE_CHECKING @@ -25372,7 +27980,8 @@ meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("NORMEXP_UNBOX", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -25382,26 +27991,30 @@ meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:2726:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -25433,7 +28046,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)) @@ -25442,7 +28056,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2727:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25475,16 +28090,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_unbox recv"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2727:/ 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 ; } ; } @@ -25497,7 +28116,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2727:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -25506,9 +28126,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*/ @@ -25538,10 +28160,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_UNBOX*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:2728:/ 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);; @@ -25570,25 +28194,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2728; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2728:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2728:/ 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*/ @@ -25606,10 +28236,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:2729:/ 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);; @@ -25638,25 +28270,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2729; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2729:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2729:/ 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*/ @@ -25674,10 +28312,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:2730:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -25706,25 +28346,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2730; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2730:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2730:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25740,11 +28386,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2732:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_UNBOX*/ meltfrout->tabval[1]))) ) /*then*/ @@ -25755,7 +28403,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, "SUNBOX_EXPR"); - /*_.SEXP__V19*/ meltfptr[18] = slot; + /*_.SEXP__V19*/ + meltfptr[18] = slot; }; ; } @@ -25766,7 +28415,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:2733:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_UNBOX*/ meltfrout->tabval[1]))) ) /*then*/ @@ -25777,7 +28427,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SUNBOX_CTYPE"); - /*_.CTYP__V20*/ meltfptr[19] = slot; + /*_.CTYP__V20*/ + meltfptr[19] = slot; }; ; } @@ -25788,7 +28439,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:2734:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -25799,7 +28451,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CNAME__V21*/ meltfptr[20] = slot; + /*_.CNAME__V21*/ + meltfptr[20] = slot; }; ; } @@ -25829,7 +28482,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)) @@ -25838,7 +28492,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2736:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25871,16 +28526,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_unbox ctyp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CTYP__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V23*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V22*/ meltfptr[21] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; + /*_._IF___V22*/ + meltfptr[21] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2736:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ + meltfptr[22] = 0 ; } ; } @@ -25893,7 +28552,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2736:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -25902,9 +28562,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*/ @@ -25934,10 +28596,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L8*/ meltfnum[1] = + /*_#IS_A__L8*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:2737:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V25*/ meltfptr[21] = (/*nil*/NULL);; @@ -25966,25 +28630,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2737; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYP__V20*/ meltfptr[19]; - /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V26*/ + meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V25*/ meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25];; + /*_._IFELSE___V25*/ + meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2737:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V26*/ + meltfptr[25] = 0 ; } ; } ; - /*_.IFCPP___V24*/ meltfptr[22] = /*_._IFELSE___V25*/ meltfptr[21];; + /*_.IFCPP___V24*/ + meltfptr[22] = /*_._IFELSE___V25*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2737:/ clear"); - /*clear*/ /*_#IS_A__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V25*/ meltfptr[21] = 0 ; + /*clear*/ /*_._IFELSE___V25*/ + meltfptr[21] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25998,10 +28668,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[0] = + /*_#IS_A__L9*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CTYPE_PLAIN*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normal.melt:2739:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26009,7 +28681,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2740:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CTYPE_PLAIN*/ meltfrout->tabval[6]))) ) /*then*/ @@ -26020,7 +28693,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 14, "CTYPP_UNBOXING"); - /*_.CTYPP_UNBOXING__V29*/ meltfptr[28] = slot; + /*_.CTYPP_UNBOXING__V29*/ + meltfptr[28] = slot; }; ; } @@ -26031,11 +28705,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.UNBOXER__V28*/ meltfptr[21] = /*_.CTYPP_UNBOXING__V29*/ meltfptr[28];; + /*_.UNBOXER__V28*/ + meltfptr[21] = /*_.CTYPP_UNBOXING__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2739:/ clear"); - /*clear*/ /*_.CTYPP_UNBOXING__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CTYPP_UNBOXING__V29*/ + meltfptr[28] = 0 ; } ; } @@ -26049,10 +28725,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L10*/ meltfnum[1] = + /*_#IS_A__L10*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:2741:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26060,7 +28738,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2742:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -26071,7 +28750,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 22, "CTYPG_UNBOXFUN"); - /*_.CTYPG_UNBOXFUN__V31*/ meltfptr[30] = slot; + /*_.CTYPG_UNBOXFUN__V31*/ + meltfptr[30] = slot; }; ; } @@ -26082,11 +28762,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_._IFELSE___V30*/ meltfptr[28] = /*_.CTYPG_UNBOXFUN__V31*/ meltfptr[30];; + /*_._IFELSE___V30*/ + meltfptr[28] = /*_.CTYPG_UNBOXFUN__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2741:/ clear"); - /*clear*/ /*_.CTYPG_UNBOXFUN__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.CTYPG_UNBOXFUN__V31*/ + meltfptr[30] = 0 ; } ; } @@ -26098,7 +28780,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2745:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[9]))) ) /*then*/ @@ -26109,7 +28792,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V32*/ meltfptr[30] = slot; + /*_.NAMED_NAME__V32*/ + meltfptr[30] = slot; }; ; } @@ -26131,13 +28815,15 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "unexpected ctype $1 for UNBOX"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V32*/ meltfptr[30]; - /*_.ERROR_AT__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V33*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2746:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:2746:/ locexp"); @@ -26152,34 +28838,44 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:2743:/ quasiblock"); - /*_.PROGN___V35*/ meltfptr[34] = /*_.RETURN___V34*/ meltfptr[33];; + /*_.PROGN___V35*/ + meltfptr[34] = /*_.RETURN___V34*/ meltfptr[33];; /*^compute*/ - /*_._IFELSE___V30*/ meltfptr[28] = /*_.PROGN___V35*/ meltfptr[34];; + /*_._IFELSE___V30*/ + meltfptr[28] = /*_.PROGN___V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2741:/ clear"); - /*clear*/ /*_.NAMED_NAME__V32*/ meltfptr[30] = 0 ; + /*clear*/ /*_.NAMED_NAME__V32*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.ERROR_AT__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.RETURN___V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.PROGN___V35*/ + meltfptr[34] = 0 ; } ; } ; - /*_.UNBOXER__V28*/ meltfptr[21] = /*_._IFELSE___V30*/ meltfptr[28];; + /*_.UNBOXER__V28*/ + meltfptr[21] = /*_._IFELSE___V30*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2739:/ clear"); - /*clear*/ /*_#IS_A__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V30*/ meltfptr[28] = 0 ; + /*clear*/ /*_._IFELSE___V30*/ + meltfptr[28] = 0 ; } ; } @@ -26204,7 +28900,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)) @@ -26213,7 +28910,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2748:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26250,16 +28948,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " cname="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CNAME__V21*/ meltfptr[20]; - /*_.MELT_DEBUG_FUN__V37*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V37*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V36*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[32];; + /*_._IF___V36*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2748:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[32] = 0 ; } ; } @@ -26272,7 +28974,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2748:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -26281,9 +28984,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V36*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26322,7 +29027,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V40*/ meltfptr[28];/*^multimsend.send*/ - /*_.NEXP__V39*/ meltfptr[34] = meltgc_send ((melt_ptr_t)(/*_.SEXP__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NEXP__V39*/ + meltfptr[34] = meltgc_send ((melt_ptr_t)(/*_.SEXP__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -26348,7 +29054,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)) @@ -26357,7 +29064,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2752:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26394,16 +29102,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V40*/ meltfptr[28]; - /*_.MELT_DEBUG_FUN__V42*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V42*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V41*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[30];; + /*_._IF___V41*/ + meltfptr[32] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2752:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ + meltfptr[30] = 0 ; } ; } @@ -26416,7 +29128,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2752:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -26425,9 +29138,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V41*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V41*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26450,13 +29165,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L15*/ meltfnum[1] = + /*_#IS_LIST__L15*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.NBIND__V40*/ meltfptr[28])) == MELTOBMAG_LIST);; /*^compute*/ - /*_#NOT__L16*/ meltfnum[11] = + /*_#NOT__L16*/ + meltfnum[11] = (!(/*_#IS_LIST__L15*/ meltfnum[1]));; MELT_LOCATION("warmelt-normal.melt:2753:/ cond"); - /*cond*/ if (/*_#NOT__L16*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#NOT__L16*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26474,22 +29192,27 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inilist rlist_0__LIST_*/ - /*_.LIST___V44*/ meltfptr[32] = (melt_ptr_t) &meltletrec_1_ptr->rlist_0__LIST_; + /*_.LIST___V44*/ + meltfptr[32] = (melt_ptr_t) &meltletrec_1_ptr->rlist_0__LIST_; meltletrec_1_ptr->rlist_0__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); - /*_.LIST___V43*/ meltfptr[30] = /*_.LIST___V44*/ meltfptr[32];; + /*_.LIST___V43*/ + meltfptr[30] = /*_.LIST___V44*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2754:/ clear"); - /*clear*/ /*_.LIST___V44*/ meltfptr[32] = 0 ; + /*clear*/ /*_.LIST___V44*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V44*/ meltfptr[32] = 0 ; + /*clear*/ /*_.LIST___V44*/ + meltfptr[32] = 0 ; } /*end multiallocblock*/ ; /*^compute*/ - /*_.NBIND__V40*/ meltfptr[28] = /*_.SETQ___V45*/ meltfptr[32] = /*_.LIST___V43*/ meltfptr[30];; + /*_.NBIND__V40*/ + meltfptr[28] = /*_.SETQ___V45*/ meltfptr[32] = /*_.LIST___V43*/ meltfptr[30];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2755:/ cppif.then"); @@ -26510,7 +29233,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L17*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -26519,7 +29243,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2755:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L17*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26552,16 +29277,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_unbox set nbind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V40*/ meltfptr[28]; - /*_.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-normal.melt:2755:/ 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 ; } ; } @@ -26574,7 +29303,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2755:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -26583,9 +29313,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_._IF___V46*/ + meltfptr[45] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26611,9 +29343,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.LIST___V43*/ meltfptr[30] = 0 ; + /*clear*/ /*_.LIST___V43*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V45*/ meltfptr[32] = 0 ; + /*clear*/ /*_.SETQ___V45*/ + meltfptr[32] = 0 ; } ; } /*noelse*/ @@ -26633,16 +29367,20 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_.CLONE_WITH_DISCRIMINANT__V50*/ meltfptr[30] = + /*_.CLONE_WITH_DISCRIMINANT__V50*/ + meltfptr[30] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_15*/ meltfrout->tabval[15])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[16]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V51*/ meltfptr[32] = + /*_.CLONE_WITH_DISCRIMINANT__V51*/ + meltfptr[32] = meltgc_clone_with_discriminant((melt_ptr_t)(/*_.UNBOXER__V28*/ meltfptr[21]), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[16]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V52*/ meltfptr[51] = + /*_.CLONE_WITH_DISCRIMINANT__V52*/ + meltfptr[51] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_17*/ meltfrout->tabval[17])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[16]))) ;; /*^compute*/ - /*_.CLONE_WITH_DISCRIMINANT__V53*/ meltfptr[52] = + /*_.CLONE_WITH_DISCRIMINANT__V53*/ + meltfptr[52] = meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_18*/ meltfrout->tabval[18])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[16]))) ;; MELT_LOCATION("warmelt-normal.melt:2764:/ blockmultialloc"); /*multiallocblock*/ @@ -26655,7 +29393,8 @@ meltlab_endgetargs: meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x9*/ - /*_.TUPLREC___V55*/ meltfptr[54] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x9; + /*_.TUPLREC___V55*/ + meltfptr[54] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x9; meltletrec_2_ptr->rtup_0__TUPLREC__x9.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_2_ptr->rtup_0__TUPLREC__x9.nbval = 5; @@ -26693,13 +29432,16 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V55*/ meltfptr[54]); ; - /*_.TUPLE___V54*/ meltfptr[53] = /*_.TUPLREC___V55*/ meltfptr[54];; + /*_.TUPLE___V54*/ + meltfptr[53] = /*_.TUPLREC___V55*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2764:/ clear"); - /*clear*/ /*_.TUPLREC___V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.TUPLREC___V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.TUPLREC___V55*/ + meltfptr[54] = 0 ; } /*end multiallocblock*/ ; MELT_LOCATION("warmelt-normal.melt:2759:/ quasiblock"); @@ -26710,7 +29452,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[13])), (4), "CLASS_NREP_CHUNK"); - /*_.INST__V57*/ meltfptr[56] = + /*_.INST__V57*/ + meltfptr[56] = newobj; }; ; @@ -26738,7 +29481,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V57*/ meltfptr[56], "newly made instance"); ; - /*_.NCHUNK__V56*/ meltfptr[54] = /*_.INST__V57*/ meltfptr[56];; + /*_.NCHUNK__V56*/ + meltfptr[54] = /*_.INST__V57*/ meltfptr[56];; MELT_CHECK_SIGNAL(); ; @@ -26750,7 +29494,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[19])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V59*/ meltfptr[58] = + /*_.INST__V59*/ + meltfptr[58] = newobj; }; ; @@ -26778,7 +29523,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V59*/ meltfptr[58], "newly made instance"); ; - /*_.CBIND__V58*/ meltfptr[57] = /*_.INST__V59*/ meltfptr[58];; + /*_.CBIND__V58*/ + meltfptr[57] = /*_.INST__V59*/ meltfptr[58];; MELT_CHECK_SIGNAL(); ; @@ -26790,7 +29536,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[20])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V61*/ meltfptr[60] = + /*_.INST__V61*/ + meltfptr[60] = newobj; }; ; @@ -26818,7 +29565,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V61*/ meltfptr[60], "newly made instance"); ; - /*_.CLOCC__V60*/ meltfptr[59] = /*_.INST__V61*/ meltfptr[60];; + /*_.CLOCC__V60*/ + meltfptr[59] = /*_.INST__V61*/ meltfptr[60];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2783:/ cppif.then"); @@ -26839,7 +29587,8 @@ meltlab_endgetargs: 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)) @@ -26848,7 +29597,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2783:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26885,16 +29635,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " clocc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V60*/ meltfptr[59]; - /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V63*/ + meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V62*/ meltfptr[61] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];; + /*_._IF___V62*/ + meltfptr[61] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2783:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ + meltfptr[62] = 0 ; } ; } @@ -26907,7 +29661,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2783:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -26916,9 +29671,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_._IF___V62*/ + meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26964,7 +29721,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L21*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -26973,7 +29731,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2785:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27010,16 +29769,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V40*/ meltfptr[28]; - /*_.MELT_DEBUG_FUN__V65*/ meltfptr[61] = melt_apply ((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__V65*/ + meltfptr[61] = melt_apply ((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___V64*/ meltfptr[62] = /*_.MELT_DEBUG_FUN__V65*/ meltfptr[61];; + /*_._IF___V64*/ + meltfptr[62] = /*_.MELT_DEBUG_FUN__V65*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2785:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V65*/ meltfptr[61] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V65*/ + meltfptr[61] = 0 ; } ; } @@ -27032,7 +29795,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2785:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27041,9 +29805,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V64*/ meltfptr[62] = 0 ; + /*clear*/ /*_._IF___V64*/ + meltfptr[62] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27069,7 +29835,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2786:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V60*/ meltfptr[59];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V60*/ meltfptr[59];; MELT_LOCATION("warmelt-normal.melt:2786:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -27077,72 +29844,101 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V48*/ meltfptr[46] = /*_.RETURN___V66*/ meltfptr[61];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V48*/ + meltfptr[46] = /*_.RETURN___V66*/ meltfptr[61];; MELT_LOCATION("warmelt-normal.melt:2756:/ clear"); - /*clear*/ /*_.CSYM__V49*/ meltfptr[45] = 0 ; + /*clear*/ /*_.CSYM__V49*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V50*/ meltfptr[30] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V50*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V51*/ meltfptr[32] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V51*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V52*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V53*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.TUPLE___V54*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHUNK__V56*/ meltfptr[54] = 0 ; + /*clear*/ /*_.NCHUNK__V56*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.CBIND__V58*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.CLOCC__V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V66*/ meltfptr[61] = 0 ; + /*clear*/ /*_.RETURN___V66*/ + meltfptr[61] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V38*/ meltfptr[33] = /*_.LET___V48*/ meltfptr[46];; + /*_.MULTI___V38*/ + meltfptr[33] = /*_.LET___V48*/ meltfptr[46];; MELT_LOCATION("warmelt-normal.melt:2749:/ clear"); - /*clear*/ /*_#IS_LIST__L15*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L15*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L16*/ meltfnum[11] = 0 ; + /*clear*/ /*_#NOT__L16*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V48*/ meltfptr[46] = 0 ; + /*clear*/ /*_.LET___V48*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V40*/ meltfptr[28] = 0 ; - /*_.LET___V27*/ meltfptr[25] = /*_.MULTI___V38*/ meltfptr[33];; + /*clear*/ /*_.NBIND__V40*/ + meltfptr[28] = 0 ; + /*_.LET___V27*/ + meltfptr[25] = /*_.MULTI___V38*/ meltfptr[33];; MELT_LOCATION("warmelt-normal.melt:2738:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.UNBOXER__V28*/ meltfptr[21] = 0 ; + /*clear*/ /*_.UNBOXER__V28*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V38*/ meltfptr[33] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.LET___V27*/ meltfptr[25];; + /*clear*/ /*_.MULTI___V38*/ + meltfptr[33] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.LET___V27*/ meltfptr[25];; MELT_LOCATION("warmelt-normal.melt:2731:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SEXP__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SEXP__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYP__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.CTYP__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.CNAME__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.CNAME__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V24*/ meltfptr[22] = 0 ; + /*clear*/ /*_.IFCPP___V24*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V27*/ meltfptr[25] = 0 ; + /*clear*/ /*_.LET___V27*/ + meltfptr[25] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2726:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:2726:/ locexp"); @@ -27157,17 +29953,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -27249,7 +30050,8 @@ meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK fromline 1756 */ - /* classy proc frame meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK */ MeltFrame_meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK + /* classy proc frame meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK */ + MeltFrame_meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK fromline 1785*/ #if ENABLE_CHECKING @@ -27262,7 +30064,8 @@ meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("NORMEXP_CODE_CHUNK", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -27272,26 +30075,30 @@ meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:2793:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -27323,7 +30130,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)) @@ -27332,7 +30140,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2794:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27365,16 +30174,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_code_chunk recv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2794:/ 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 ; } ; } @@ -27387,7 +30200,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2794:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27396,9 +30210,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*/ @@ -27428,10 +30244,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_CODECHUNK*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:2795:/ 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);; @@ -27460,25 +30278,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2795; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2795:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2795:/ 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*/ @@ -27496,10 +30320,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:2796:/ 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);; @@ -27528,25 +30354,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2796; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2796:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2796:/ 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*/ @@ -27564,10 +30396,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:2797:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -27596,25 +30430,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2797; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2797:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2797:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27630,7 +30470,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2799:/ getslot"); @@ -27638,7 +30479,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, "SCH_CHUNKS"); - /*_.SCHK__V19*/ meltfptr[18] = slot; + /*_.SCHK__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2800:/ getslot"); @@ -27646,7 +30488,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SCH_GENSYM"); - /*_.GSYM__V20*/ meltfptr[19] = slot; + /*_.GSYM__V20*/ + meltfptr[19] = slot; }; ; @@ -27658,7 +30501,8 @@ meltlab_endgetargs: /*_.CSYM__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.GSYM__V20*/ meltfptr[19]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; - /*_.BINDLIST__V22*/ meltfptr[21] = + /*_.BINDLIST__V22*/ + meltfptr[21] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));; MELT_CHECK_SIGNAL(); @@ -27672,10 +30516,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2805:/ quasiblock"); - /*_.SBUF__V25*/ meltfptr[24] = + /*_.SBUF__V25*/ + meltfptr[24] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[8])), (const char*)0);; MELT_LOCATION("warmelt-normal.melt:2806:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CSYM__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[9]))) ) /*then*/ @@ -27686,7 +30532,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CSYM__V21*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V26*/ meltfptr[25] = slot; + /*_.NAMED_NAME__V26*/ + meltfptr[25] = slot; }; ; } @@ -27706,11 +30553,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2807:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V25*/ meltfptr[24]), ( "__")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V25*/ meltfptr[24]), ( "__")); } ; MELT_LOCATION("warmelt-normal.melt:2808:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CSYM__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[10]))) ) /*then*/ @@ -27721,7 +30570,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CSYM__V21*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 3, "CSYM_URANK"); - /*_.CSYM_URANK__V27*/ meltfptr[26] = slot; + /*_.CSYM_URANK__V27*/ + meltfptr[26] = slot; }; ; } @@ -27732,7 +30582,8 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L6*/ meltfnum[0] = + /*_#GET_INT__L6*/ + meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.CSYM_URANK__V27*/ meltfptr[26])));; { @@ -27740,22 +30591,30 @@ meltlab_endgetargs: meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V25*/ meltfptr[24]), (/*_#GET_INT__L6*/ meltfnum[0])); } ; - /*_.STRBUF2STRING__V28*/ meltfptr[27] = + /*_.STRBUF2STRING__V28*/ + meltfptr[27] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[11])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V25*/ meltfptr[24]))));; /*^compute*/ - /*_.LET___V24*/ meltfptr[23] = /*_.STRBUF2STRING__V28*/ meltfptr[27];; + /*_.LET___V24*/ + meltfptr[23] = /*_.STRBUF2STRING__V28*/ meltfptr[27];; MELT_LOCATION("warmelt-normal.melt:2805:/ clear"); - /*clear*/ /*_.SBUF__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.SBUF__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.NAMED_NAME__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM_URANK__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.CSYM_URANK__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#GET_INT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V28*/ meltfptr[27] = 0 ; - /*_.CSYMSTR__V29*/ meltfptr[24] = /*_.LET___V24*/ meltfptr[23];; + /*clear*/ /*_.STRBUF2STRING__V28*/ + meltfptr[27] = 0 ; + /*_.CSYMSTR__V29*/ + meltfptr[24] = /*_.LET___V24*/ meltfptr[23];; MELT_LOCATION("warmelt-normal.melt:2811:/ quasiblock"); @@ -27770,7 +30629,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_MAGIC_BINDING*/ meltfrout->tabval[12])), (2), "CLASS_NORMAL_MAGIC_BINDING"); - /*_.INST__V32*/ meltfptr[27] = + /*_.INST__V32*/ + meltfptr[27] = newobj; }; ; @@ -27788,7 +30648,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V32*/ meltfptr[27], "newly made instance"); ; - /*_.MB__V31*/ meltfptr[26] = /*_.INST__V32*/ meltfptr[27];; + /*_.MB__V31*/ + meltfptr[26] = /*_.INST__V32*/ meltfptr[27];; MELT_CHECK_SIGNAL(); ; @@ -27799,7 +30660,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MB__V31*/ meltfptr[26]; - /*_.PUT_ENV__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NEWENV__V23*/ meltfptr[22]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V33*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NEWENV__V23*/ meltfptr[22]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -27822,7 +30684,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)) @@ -27831,7 +30694,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2816:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27864,16 +30728,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_code_chunk magicbind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MB__V31*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V34*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; + /*_._IF___V34*/ + meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2816:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = 0 ; } ; } @@ -27886,7 +30754,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2816:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27895,9 +30764,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V34*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27917,13 +30788,17 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V30*/ meltfptr[25] = /*_.MB__V31*/ meltfptr[26];; + /*_.LET___V30*/ + meltfptr[25] = /*_.MB__V31*/ meltfptr[26];; MELT_LOCATION("warmelt-normal.melt:2811:/ clear"); - /*clear*/ /*_.MB__V31*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MB__V31*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V33*/ meltfptr[32] = 0 ; - /*_.MAGICBIND__V36*/ meltfptr[34] = /*_.LET___V30*/ meltfptr[25];; + /*clear*/ /*_.PUT_ENV__V33*/ + meltfptr[32] = 0 ; + /*_.MAGICBIND__V36*/ + meltfptr[34] = /*_.LET___V30*/ meltfptr[25];; MELT_LOCATION("warmelt-normal.melt:2818:/ quasiblock"); @@ -27931,7 +30806,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V39*/ meltfptr[32] = + /*newclosure*/ /*_.LAMBDA___V39*/ + meltfptr[32] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_26*/ meltfrout->tabval[26])), (3)); ; /*^putclosedv*/ @@ -27952,7 +30828,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V39*/ meltfptr[32]))); ((meltclosure_ptr_t)/*_.LAMBDA___V39*/ meltfptr[32])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]); ; - /*_.LAMBDA___V38*/ meltfptr[26] = /*_.LAMBDA___V39*/ meltfptr[32];; + /*_.LAMBDA___V38*/ + meltfptr[26] = /*_.LAMBDA___V39*/ meltfptr[32];; MELT_CHECK_SIGNAL(); ; @@ -27963,7 +30840,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V38*/ meltfptr[26]; - /*_.NC__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SCHK__V19*/ meltfptr[18]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NC__V40*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SCHK__V19*/ meltfptr[18]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -27986,7 +30864,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)) @@ -27995,7 +30874,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2848:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28028,16 +30908,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_code_chunk nchk="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NC__V40*/ meltfptr[39]; - /*_.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-normal.melt:2848:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ + meltfptr[41] = 0 ; } ; } @@ -28050,7 +30934,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2848:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28059,9 +30944,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IF___V41*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28081,13 +30968,17 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V37*/ meltfptr[33] = /*_.NC__V40*/ meltfptr[39];; + /*_.LET___V37*/ + meltfptr[33] = /*_.NC__V40*/ meltfptr[39];; MELT_LOCATION("warmelt-normal.melt:2818:/ clear"); - /*clear*/ /*_.LAMBDA___V38*/ meltfptr[26] = 0 ; + /*clear*/ /*_.LAMBDA___V38*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.NC__V40*/ meltfptr[39] = 0 ; - /*_.NCHK__V43*/ meltfptr[41] = /*_.LET___V37*/ meltfptr[33];; + /*clear*/ /*_.NC__V40*/ + meltfptr[39] = 0 ; + /*_.NCHK__V43*/ + meltfptr[41] = /*_.LET___V37*/ meltfptr[33];; MELT_CHECK_SIGNAL(); ; @@ -28102,7 +30993,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[29])), (4), "CLASS_NREP_CHUNK"); - /*_.INST__V45*/ meltfptr[26] = + /*_.INST__V45*/ + meltfptr[26] = newobj; }; ; @@ -28130,7 +31022,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V45*/ meltfptr[26], "newly made instance"); ; - /*_.INST___V44*/ meltfptr[40] = /*_.INST__V45*/ meltfptr[26];; + /*_.INST___V44*/ + meltfptr[40] = /*_.INST__V45*/ meltfptr[26];; MELT_LOCATION("warmelt-normal.melt:2850:/ quasiblock"); @@ -28139,7 +31032,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[27])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V47*/ meltfptr[46] = + /*_.INST__V47*/ + meltfptr[46] = newobj; }; ; @@ -28167,7 +31061,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V47*/ meltfptr[46], "newly made instance"); ; - /*_.CBIND__V46*/ meltfptr[39] = /*_.INST__V47*/ meltfptr[46];; + /*_.CBIND__V46*/ + meltfptr[39] = /*_.INST__V47*/ meltfptr[46];; MELT_CHECK_SIGNAL(); ; @@ -28179,7 +31074,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[30])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V49*/ meltfptr[48] = + /*_.INST__V49*/ + meltfptr[48] = newobj; }; ; @@ -28207,7 +31103,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V49*/ meltfptr[48], "newly made instance"); ; - /*_.CLOCC__V48*/ meltfptr[47] = /*_.INST__V49*/ meltfptr[48];; + /*_.CLOCC__V48*/ + meltfptr[47] = /*_.INST__V49*/ meltfptr[48];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:2867:/ cppif.then"); @@ -28228,7 +31125,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)) @@ -28237,7 +31135,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2867:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28274,16 +31173,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. nchk="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NCHK__V43*/ meltfptr[41]; - /*_.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-normal.melt:2867:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ + meltfptr[50] = 0 ; } ; } @@ -28296,7 +31199,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2867:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28305,9 +31209,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_._IF___V50*/ + meltfptr[49] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28347,7 +31253,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)) @@ -28356,7 +31263,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2868:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L13*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28389,16 +31297,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_code_chunk clocc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V48*/ meltfptr[47]; - /*_.MELT_DEBUG_FUN__V53*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V53*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V52*/ meltfptr[50] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[49];; + /*_._IF___V52*/ + meltfptr[50] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2868:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V53*/ meltfptr[49] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V53*/ + meltfptr[49] = 0 ; } ; } @@ -28411,7 +31323,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2868:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28420,9 +31333,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V52*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IF___V52*/ + meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28452,10 +31367,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L15*/ meltfnum[1] = + /*_#IS_MULTIPLE__L15*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.NCHK__V43*/ meltfptr[41])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-normal.melt:2869:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L15*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L15*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V55*/ meltfptr[50] = (/*nil*/NULL);; @@ -28484,25 +31401,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2869; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCHK__V43*/ meltfptr[41]; - /*_.MELT_ASSERT_FAILURE_FUN__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V56*/ + meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V55*/ meltfptr[50] = /*_.MELT_ASSERT_FAILURE_FUN__V56*/ meltfptr[55];; + /*_._IFELSE___V55*/ + meltfptr[50] = /*_.MELT_ASSERT_FAILURE_FUN__V56*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2869:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V56*/ + meltfptr[55] = 0 ; } ; } ; - /*_.IFCPP___V54*/ meltfptr[49] = /*_._IFELSE___V55*/ meltfptr[50];; + /*_.IFCPP___V54*/ + meltfptr[49] = /*_._IFELSE___V55*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2869:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L15*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L15*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V55*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IFELSE___V55*/ + meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28530,7 +31453,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)) @@ -28539,7 +31463,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2870:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28576,16 +31501,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " cbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CBIND__V46*/ meltfptr[39]; - /*_.MELT_DEBUG_FUN__V58*/ 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__V58*/ + 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___V57*/ meltfptr[55] = /*_.MELT_DEBUG_FUN__V58*/ meltfptr[50];; + /*_._IF___V57*/ + meltfptr[55] = /*_.MELT_DEBUG_FUN__V58*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2870:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V58*/ meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V58*/ + meltfptr[50] = 0 ; } ; } @@ -28598,7 +31527,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2870:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28607,9 +31537,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V57*/ meltfptr[55] = 0 ; + /*clear*/ /*_._IF___V57*/ + meltfptr[55] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28641,11 +31573,13 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0__CBIND_x1*/ - /*_.CBIND__V60*/ meltfptr[55] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CBIND_x1; + /*_.CBIND__V60*/ + meltfptr[55] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CBIND_x1; meltletrec_1_ptr->rpair_0__CBIND_x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ - /*_.LIST___V61*/ meltfptr[60] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; + /*_.LIST___V61*/ + meltfptr[60] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; meltletrec_1_ptr->rlist_1__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); @@ -28667,17 +31601,22 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V61*/ meltfptr[60]); ; - /*_.LIST___V59*/ meltfptr[50] = /*_.LIST___V61*/ meltfptr[60];; + /*_.LIST___V59*/ + meltfptr[50] = /*_.LIST___V61*/ meltfptr[60];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2871:/ clear"); - /*clear*/ /*_.CBIND__V60*/ meltfptr[55] = 0 ; + /*clear*/ /*_.CBIND__V60*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_.LIST___V61*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V60*/ meltfptr[55] = 0 ; + /*clear*/ /*_.CBIND__V60*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_.LIST___V61*/ + meltfptr[60] = 0 ; } /*end multiallocblock*/ ; @@ -28686,7 +31625,8 @@ meltlab_endgetargs: /*^quasiblock*/ - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V48*/ meltfptr[47];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V48*/ meltfptr[47];; MELT_LOCATION("warmelt-normal.melt:2871:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -28694,52 +31634,73 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V17*/ meltfptr[15] = /*_.RETURN___V62*/ meltfptr[55];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V17*/ + meltfptr[15] = /*_.RETURN___V62*/ meltfptr[55];; MELT_LOCATION("warmelt-normal.melt:2798:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SCHK__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SCHK__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.GSYM__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.GSYM__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.CSYM__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDLIST__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.BINDLIST__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWENV__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.NEWENV__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.LET___V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYMSTR__V29*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CSYMSTR__V29*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V30*/ meltfptr[25] = 0 ; + /*clear*/ /*_.LET___V30*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.MAGICBIND__V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MAGICBIND__V36*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V37*/ meltfptr[33] = 0 ; + /*clear*/ /*_.LET___V37*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHK__V43*/ meltfptr[41] = 0 ; + /*clear*/ /*_.NCHK__V43*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V44*/ meltfptr[40] = 0 ; + /*clear*/ /*_.INST___V44*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V46*/ meltfptr[39] = 0 ; + /*clear*/ /*_.CBIND__V46*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.CLOCC__V48*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V54*/ meltfptr[49] = 0 ; + /*clear*/ /*_.IFCPP___V54*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V59*/ meltfptr[50] = 0 ; + /*clear*/ /*_.LIST___V59*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V62*/ meltfptr[55] = 0 ; + /*clear*/ /*_.RETURN___V62*/ + meltfptr[55] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2793:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:2793:/ locexp"); @@ -28754,17 +31715,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -28846,7 +31812,8 @@ meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3 fromline 1756 */ - /* classy proc frame meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3 */ MeltFrame_meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3 + /* classy proc frame meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3 */ + MeltFrame_meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3 fromline 1785*/ #if ENABLE_CHECKING @@ -28859,7 +31826,8 @@ meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl3", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -28869,12 +31837,14 @@ meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:2821:/ getarg"); - /*_.CURCOMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CURCOMP__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#CURIX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; + /*_#CURIX__L1*/ + meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -28887,10 +31857,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L2*/ meltfnum[1] = + /*_#IS_STRING__L2*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-normal.melt:2823:/ cond"); - /*cond*/ if (/*_#IS_STRING__L2*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28900,11 +31872,13 @@ meltlab_endgetargs: /*_.CLONE_WITH_DISCRIMINANT__V4*/ meltfptr[3] = meltgc_clone_with_discriminant((melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[0]))) ;; /*^compute*/ - /*_._IFELSE___V3*/ meltfptr[2] = /*_.CLONE_WITH_DISCRIMINANT__V4*/ meltfptr[3];; + /*_._IFELSE___V3*/ + meltfptr[2] = /*_.CLONE_WITH_DISCRIMINANT__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2823:/ clear"); - /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V4*/ + meltfptr[3] = 0 ; } ; } @@ -28918,10 +31892,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[2] = + /*_#IS_A__L3*/ + meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:2825:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28942,14 +31918,17 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~NCX*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[2]); - /*_.NORMAL_EXP__V6*/ meltfptr[5] = meltgc_send((melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[2])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_EXP__V6*/ + meltfptr[5] = meltgc_send((melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[2])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V5*/ meltfptr[3] = /*_.NORMAL_EXP__V6*/ meltfptr[5];; + /*_._IFELSE___V5*/ + meltfptr[3] = /*_.NORMAL_EXP__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2825:/ clear"); - /*clear*/ /*_.NORMAL_EXP__V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.NORMAL_EXP__V6*/ + meltfptr[5] = 0 ; } ; } @@ -28980,7 +31959,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)) @@ -28989,7 +31969,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2828:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29026,16 +32007,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " curix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#CURIX__L1*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V8*/ 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_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V8*/ + 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V7*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; + /*_._IF___V7*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2828:/ 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 ; } ; } @@ -29048,7 +32033,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2828:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29057,9 +32043,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[3] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L4*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V7*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V7*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29098,7 +32086,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[2]); /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V11*/ meltfptr[10];/*^multimsend.send*/ - /*_.NEXP__V10*/ meltfptr[5] = meltgc_send ((melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[2]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NEXP__V10*/ + meltfptr[5] = meltgc_send ((melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[2]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -29124,7 +32113,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)) @@ -29133,7 +32123,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2832:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29170,16 +32161,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V11*/ meltfptr[10]; - /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[12] = 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V12*/ meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; + /*_._IF___V12*/ + meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2832:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[3] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[12] = 0 ; } ; } @@ -29192,7 +32187,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2832:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29201,9 +32197,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_._IF___V12*/ + meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29233,11 +32231,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L8*/ meltfnum[3] = + /*_#IS_LIST_OR_NULL__L8*/ + meltfnum[3] = ((/*_.NBIND__V11*/ meltfptr[10]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBIND__V11*/ meltfptr[10])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-normal.melt:2833:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L8*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#IS_LIST_OR_NULL__L8*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[11] = (/*nil*/NULL);; @@ -29266,25 +32266,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2833; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V11*/ meltfptr[10]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2833:/ 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[11];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2833:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L8*/ meltfnum[3] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L8*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[11] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29305,11 +32311,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ meltfclos->tabval[0]); - /*_.COMPCTYP__V18*/ meltfptr[11] = meltgc_send((melt_ptr_t)(/*_.NEXP__V10*/ meltfptr[5]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.COMPCTYP__V18*/ + meltfptr[11] = meltgc_send((melt_ptr_t)(/*_.NEXP__V10*/ meltfptr[5]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2835:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[6]))) ) /*then*/ @@ -29320,7 +32328,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOCA_LOCATION__V19*/ meltfptr[18] = slot; + /*_.LOCA_LOCATION__V19*/ + meltfptr[18] = slot; }; ; } @@ -29331,7 +32340,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:2835:/ cond"); - /*cond*/ if (/*_.LOCA_LOCATION__V19*/ meltfptr[18]) /*then*/ + /*cond*/ + if (/*_.LOCA_LOCATION__V19*/ meltfptr[18]) /*then*/ { /*^cond.then*/ /*_.CLOC__V20*/ meltfptr[19] = /*_.LOCA_LOCATION__V19*/ meltfptr[18];; @@ -29340,7 +32350,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2835:/ cond.else"); - /*_.CLOC__V20*/ meltfptr[19] = (/*~SLOC*/ meltfclos->tabval[2]);; + /*_.CLOC__V20*/ + meltfptr[19] = (/*~SLOC*/ meltfclos->tabval[2]);; } ; @@ -29363,7 +32374,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[4] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[4] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29372,7 +32384,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2837:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29405,16 +32418,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_code_chunk compctyp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.COMPCTYP__V18*/ meltfptr[11]; - /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 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__V22*/ + meltfptr[21] = 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___V21*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; + /*_._IF___V21*/ + meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2837:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[3] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[21] = 0 ; } ; } @@ -29427,7 +32444,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2837:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29436,9 +32454,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IF___V21*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29461,10 +32481,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#exeq__L11*/ meltfnum[3] = + /*_#exeq__L11*/ + meltfnum[3] = ((/*_.COMPCTYP__V18*/ meltfptr[11]) != ((/*!CTYPE_VOID*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:2838:/ cond"); - /*cond*/ if (/*_#exeq__L11*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#exeq__L11*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29472,7 +32494,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2841:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.COMPCTYP__V18*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[9]))) ) /*then*/ @@ -29483,7 +32506,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.COMPCTYP__V18*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V24*/ meltfptr[20] = slot; + /*_.NAMED_NAME__V24*/ + meltfptr[20] = slot; }; ; } @@ -29505,7 +32529,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "composite CODE_CHUNK element should be :void, got $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V24*/ meltfptr[20]; - /*_.ERROR_AT__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.CLOC__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.CLOC__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -29514,7 +32539,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2842:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-normal.melt:2842:/ locexp"); @@ -29529,23 +32555,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:2838:/ quasiblock"); - /*_.PROGN___V27*/ meltfptr[26] = /*_.RETURN___V26*/ meltfptr[25];; + /*_.PROGN___V27*/ + meltfptr[26] = /*_.RETURN___V26*/ meltfptr[25];; /*^compute*/ - /*_._IF___V23*/ meltfptr[21] = /*_.PROGN___V27*/ meltfptr[26];; + /*_._IF___V23*/ + meltfptr[21] = /*_.PROGN___V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2838:/ clear"); - /*clear*/ /*_.NAMED_NAME__V24*/ meltfptr[20] = 0 ; + /*clear*/ /*_.NAMED_NAME__V24*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.ERROR_AT__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.RETURN___V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.PROGN___V27*/ + meltfptr[26] = 0 ; } ; } @@ -29570,7 +32603,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V11*/ meltfptr[10]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[2]); - /*_.WL__V29*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.NEXP__V10*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.WL__V29*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.NEXP__V10*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -29593,7 +32627,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[4] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[4] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29602,7 +32637,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2846:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29639,16 +32675,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " curix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#CURIX__L1*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V31*/ meltfptr[26] = 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_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V31*/ + meltfptr[26] = 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V30*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[26];; + /*_._IF___V30*/ + meltfptr[25] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2846:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ + meltfptr[26] = 0 ; } ; } @@ -29661,7 +32701,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2846:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29670,9 +32711,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V30*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29692,59 +32735,79 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V28*/ meltfptr[20] = /*_.WL__V29*/ meltfptr[24];; + /*_.LET___V28*/ + meltfptr[20] = /*_.WL__V29*/ meltfptr[24];; MELT_LOCATION("warmelt-normal.melt:2844:/ clear"); - /*clear*/ /*_.WL__V29*/ meltfptr[24] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.LET___V28*/ meltfptr[20];; + /*clear*/ /*_.WL__V29*/ + meltfptr[24] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.LET___V28*/ meltfptr[20];; MELT_LOCATION("warmelt-normal.melt:2834:/ clear"); - /*clear*/ /*_.COMPCTYP__V18*/ meltfptr[11] = 0 ; + /*clear*/ /*_.COMPCTYP__V18*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.LOCA_LOCATION__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.LOCA_LOCATION__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOC__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.CLOC__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L11*/ meltfnum[3] = 0 ; + /*clear*/ /*_#exeq__L11*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_._IF___V23*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V28*/ meltfptr[20] = 0 ; + /*clear*/ /*_.LET___V28*/ + meltfptr[20] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V9*/ meltfptr[7] = /*_.LET___V17*/ meltfptr[15];; + /*_.MULTI___V9*/ + meltfptr[7] = /*_.LET___V17*/ meltfptr[15];; MELT_LOCATION("warmelt-normal.melt:2829:/ clear"); - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.NBIND__V11*/ + meltfptr[10] = 0 ; MELT_LOCATION("warmelt-normal.melt:2827:/ quasiblock"); - /*_.PROGN___V32*/ meltfptr[26] = /*_.MULTI___V9*/ meltfptr[7];; + /*_.PROGN___V32*/ + meltfptr[26] = /*_.MULTI___V9*/ meltfptr[7];; /*^compute*/ - /*_._IFELSE___V5*/ meltfptr[3] = /*_.PROGN___V32*/ meltfptr[26];; + /*_._IFELSE___V5*/ + meltfptr[3] = /*_.PROGN___V32*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2825:/ clear"); - /*clear*/ /*_.MULTI___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MULTI___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V32*/ meltfptr[26] = 0 ; + /*clear*/ /*_.PROGN___V32*/ + meltfptr[26] = 0 ; } ; } ; - /*_._IFELSE___V3*/ meltfptr[2] = /*_._IFELSE___V5*/ meltfptr[3];; + /*_._IFELSE___V3*/ + meltfptr[2] = /*_._IFELSE___V5*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2823:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V5*/ + meltfptr[3] = 0 ; } ; } @@ -29752,7 +32815,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2821:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V3*/ meltfptr[2];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_._IFELSE___V3*/ meltfptr[2];; { MELT_LOCATION("warmelt-normal.melt:2821:/ locexp"); @@ -29767,13 +32831,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_#IS_STRING__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRING__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_._IFELSE___V3*/ + meltfptr[2] = 0 ; } ; @@ -29855,7 +32922,8 @@ meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK fromline 1756 */ - /* classy proc frame meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK */ MeltFrame_meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK + /* classy proc frame meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK */ + MeltFrame_meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK fromline 1785*/ #if ENABLE_CHECKING @@ -29868,7 +32936,8 @@ meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("NORMEXP_EXPR_CHUNK", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -29878,26 +32947,30 @@ meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:2877:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -29929,7 +33002,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)) @@ -29938,7 +33012,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2878:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29971,16 +33046,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_expr_chunk recv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2878:/ 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 ; } ; } @@ -29993,7 +33072,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2878:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30002,9 +33082,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*/ @@ -30034,10 +33116,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_EXPRCHUNK*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:2879:/ 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);; @@ -30066,25 +33150,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2879; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2879:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2879:/ 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*/ @@ -30102,10 +33192,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:2880:/ 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);; @@ -30134,25 +33226,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2880; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2880:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2880:/ 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*/ @@ -30170,10 +33268,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:2881:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -30202,25 +33302,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2881; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2881:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2881:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30236,7 +33342,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2883:/ getslot"); @@ -30244,7 +33351,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, "SCH_CHUNKS"); - /*_.SCHK__V19*/ meltfptr[18] = slot; + /*_.SCHK__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2884:/ getslot"); @@ -30252,7 +33360,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SCH_GENSYM"); - /*_.GSYM__V20*/ meltfptr[19] = slot; + /*_.GSYM__V20*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2885:/ getslot"); @@ -30260,7 +33369,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, "SXCH_CTYPE"); - /*_.CTYP__V21*/ meltfptr[20] = slot; + /*_.CTYP__V21*/ + meltfptr[20] = slot; }; ; @@ -30272,7 +33382,8 @@ meltlab_endgetargs: /*_.CSYM__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.GSYM__V20*/ meltfptr[19]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; - /*_.BINDLIST__V23*/ meltfptr[22] = + /*_.BINDLIST__V23*/ + meltfptr[22] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));; MELT_CHECK_SIGNAL(); @@ -30286,10 +33397,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2890:/ quasiblock"); - /*_.SBUF__V26*/ meltfptr[25] = + /*_.SBUF__V26*/ + meltfptr[25] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[8])), (const char*)0);; MELT_LOCATION("warmelt-normal.melt:2891:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CSYM__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[9]))) ) /*then*/ @@ -30300,7 +33413,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CSYM__V22*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V27*/ meltfptr[26] = slot; + /*_.NAMED_NAME__V27*/ + meltfptr[26] = slot; }; ; } @@ -30320,11 +33434,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2892:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V26*/ meltfptr[25]), ( "__")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V26*/ meltfptr[25]), ( "__")); } ; MELT_LOCATION("warmelt-normal.melt:2893:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CSYM__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[10]))) ) /*then*/ @@ -30335,7 +33451,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CSYM__V22*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 3, "CSYM_URANK"); - /*_.CSYM_URANK__V28*/ meltfptr[27] = slot; + /*_.CSYM_URANK__V28*/ + meltfptr[27] = slot; }; ; } @@ -30346,7 +33463,8 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L6*/ meltfnum[0] = + /*_#GET_INT__L6*/ + meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.CSYM_URANK__V28*/ meltfptr[27])));; { @@ -30354,22 +33472,30 @@ meltlab_endgetargs: meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V26*/ meltfptr[25]), (/*_#GET_INT__L6*/ meltfnum[0])); } ; - /*_.STRBUF2STRING__V29*/ meltfptr[28] = + /*_.STRBUF2STRING__V29*/ + meltfptr[28] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[11])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V26*/ meltfptr[25]))));; /*^compute*/ - /*_.LET___V25*/ meltfptr[24] = /*_.STRBUF2STRING__V29*/ meltfptr[28];; + /*_.LET___V25*/ + meltfptr[24] = /*_.STRBUF2STRING__V29*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:2890:/ clear"); - /*clear*/ /*_.SBUF__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.SBUF__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NAMED_NAME__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM_URANK__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.CSYM_URANK__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#GET_INT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V29*/ meltfptr[28] = 0 ; - /*_.CSYMSTR__V30*/ meltfptr[25] = /*_.LET___V25*/ meltfptr[24];; + /*clear*/ /*_.STRBUF2STRING__V29*/ + meltfptr[28] = 0 ; + /*_.CSYMSTR__V30*/ + meltfptr[25] = /*_.LET___V25*/ meltfptr[24];; MELT_LOCATION("warmelt-normal.melt:2896:/ quasiblock"); @@ -30384,7 +33510,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_MAGIC_BINDING*/ meltfrout->tabval[12])), (2), "CLASS_NORMAL_MAGIC_BINDING"); - /*_.INST__V33*/ meltfptr[28] = + /*_.INST__V33*/ + meltfptr[28] = newobj; }; ; @@ -30402,7 +33529,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V33*/ meltfptr[28], "newly made instance"); ; - /*_.MB__V32*/ meltfptr[27] = /*_.INST__V33*/ meltfptr[28];; + /*_.MB__V32*/ + meltfptr[27] = /*_.INST__V33*/ meltfptr[28];; MELT_CHECK_SIGNAL(); ; @@ -30413,7 +33541,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MB__V32*/ meltfptr[27]; - /*_.PUT_ENV__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NEWENV__V24*/ meltfptr[23]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V34*/ + meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NEWENV__V24*/ meltfptr[23]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -30436,7 +33565,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)) @@ -30445,7 +33575,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2901:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30478,16 +33609,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_expr_chunk magicbind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MB__V32*/ meltfptr[27]; - /*_.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-normal.melt:2901:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ + meltfptr[35] = 0 ; } ; } @@ -30500,7 +33635,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2901:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30509,9 +33645,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IF___V35*/ + meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30531,24 +33669,32 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V31*/ meltfptr[26] = /*_.MB__V32*/ meltfptr[27];; + /*_.LET___V31*/ + meltfptr[26] = /*_.MB__V32*/ meltfptr[27];; MELT_LOCATION("warmelt-normal.melt:2896:/ clear"); - /*clear*/ /*_.MB__V32*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MB__V32*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V34*/ meltfptr[33] = 0 ; - /*_.MAGICBIND__V37*/ meltfptr[35] = /*_.LET___V31*/ meltfptr[26];; + /*clear*/ /*_.PUT_ENV__V34*/ + meltfptr[33] = 0 ; + /*_.MAGICBIND__V37*/ + meltfptr[35] = /*_.LET___V31*/ meltfptr[26];; /*^compute*/ - /*_.LISTBINDS__V38*/ meltfptr[34] = + /*_.LISTBINDS__V38*/ + meltfptr[34] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));; /*^compute*/ - /*_.LISTNCHUNKS__V39*/ meltfptr[27] = + /*_.LISTNCHUNKS__V39*/ + meltfptr[27] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));; /*^compute*/ - /*_#MULTIPLE_LENGTH__L9*/ meltfnum[0] = + /*_#MULTIPLE_LENGTH__L9*/ + meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.SCHK__V19*/ meltfptr[18])));; /*^compute*/ - /*_.NCHK__V40*/ meltfptr[33] = + /*_.NCHK__V40*/ + meltfptr[33] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L9*/ meltfnum[0])));; #if MELT_HAVE_DEBUG @@ -30570,7 +33716,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30579,7 +33726,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2907:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30616,16 +33764,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n schk="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SCHK__V19*/ meltfptr[18]; - /*_.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 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 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-normal.melt:2907:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ + meltfptr[41] = 0 ; } ; } @@ -30638,7 +33790,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2907:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30647,9 +33800,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IF___V41*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30679,10 +33834,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L12*/ meltfnum[10] = + /*_#IS_MULTIPLE__L12*/ + meltfnum[10] = (melt_magic_discr((melt_ptr_t)(/*_.SCHK__V19*/ meltfptr[18])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-normal.melt:2908:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L12*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V44*/ meltfptr[40] = (/*nil*/NULL);; @@ -30711,25 +33868,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2908; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SCHK__V19*/ meltfptr[18]; - /*_.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 MELTBPARSTR_PTR ""), 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 MELTBPARSTR_PTR ""), 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-normal.melt:2908:/ 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-normal.melt:2908:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L12*/ meltfnum[10] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L12*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V44*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IFELSE___V44*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30747,10 +33910,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L13*/ meltfnum[1] = + /*_#IS_A__L13*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[15])));; MELT_LOCATION("warmelt-normal.melt:2909:/ cond"); - /*cond*/ if (/*_#IS_A__L13*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L13*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V47*/ meltfptr[40] = (/*nil*/NULL);; @@ -30779,25 +33944,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2909; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYP__V21*/ meltfptr[20]; - /*_.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 MELTBPARSTR_PTR ""), 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V47*/ meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[47];; + /*_._IFELSE___V47*/ + meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2909:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V48*/ + meltfptr[47] = 0 ; } ; } ; - /*_.IFCPP___V46*/ meltfptr[44] = /*_._IFELSE___V47*/ meltfptr[40];; + /*_.IFCPP___V46*/ + meltfptr[44] = /*_._IFELSE___V47*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2909:/ clear"); - /*clear*/ /*_#IS_A__L13*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L13*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V47*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IFELSE___V47*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30837,7 +34008,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L15*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L15*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30846,7 +34018,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2913:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L15*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30883,16 +34056,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " srcomp="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SRCOMP__V49*/ meltfptr[47]; - /*_.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_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_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V50*/ meltfptr[40] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; + /*_._IF___V50*/ + meltfptr[40] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2913:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ + meltfptr[50] = 0 ; } ; } @@ -30905,7 +34082,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2913:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30914,9 +34092,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V50*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IF___V50*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30939,10 +34119,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L17*/ meltfnum[15] = + /*_#IS_A__L17*/ + meltfnum[15] = melt_is_instance_of((melt_ptr_t)(/*_.SRCOMP__V49*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_SOURCE*/ meltfrout->tabval[16])));; MELT_LOCATION("warmelt-normal.melt:2914:/ cond"); - /*cond*/ if (/*_#IS_A__L17*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#IS_A__L17*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30968,7 +34150,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCBIND__V55*/ meltfptr[54];/*^multimsend.send*/ - /*_.NCOMP__V54*/ meltfptr[53] = meltgc_send ((melt_ptr_t)(/*_.SRCOMP__V49*/ meltfptr[47]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[17]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NCOMP__V54*/ + meltfptr[53] = meltgc_send ((melt_ptr_t)(/*_.SRCOMP__V49*/ meltfptr[47]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[17]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -30994,7 +34177,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L18*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31003,7 +34187,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2918:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31044,16 +34229,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. ncbind="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NCBIND__V55*/ meltfptr[54]; - /*_.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_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V56*/ meltfptr[55] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56];; + /*_._IF___V56*/ + meltfptr[55] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2918:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ + meltfptr[56] = 0 ; } ; } @@ -31066,7 +34255,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2918:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31075,9 +34265,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_._IF___V56*/ + meltfptr[55] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31107,11 +34299,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L20*/ meltfnum[18] = + /*_#IS_LIST_OR_NULL__L20*/ + meltfnum[18] = ((/*_.NCBIND__V55*/ meltfptr[54]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NCBIND__V55*/ meltfptr[54])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-normal.melt:2919:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L20*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#IS_LIST_OR_NULL__L20*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V59*/ meltfptr[55] = (/*nil*/NULL);; @@ -31140,25 +34334,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2919; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCBIND__V55*/ meltfptr[54]; - /*_.MELT_ASSERT_FAILURE_FUN__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V60*/ + meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V59*/ meltfptr[55] = /*_.MELT_ASSERT_FAILURE_FUN__V60*/ meltfptr[59];; + /*_._IFELSE___V59*/ + meltfptr[55] = /*_.MELT_ASSERT_FAILURE_FUN__V60*/ meltfptr[59];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2919:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V60*/ + meltfptr[59] = 0 ; } ; } ; - /*_.IFCPP___V58*/ meltfptr[56] = /*_._IFELSE___V59*/ meltfptr[55];; + /*_.IFCPP___V58*/ + meltfptr[56] = /*_._IFELSE___V59*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2919:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L20*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L20*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V59*/ meltfptr[55] = 0 ; + /*clear*/ /*_._IFELSE___V59*/ + meltfptr[55] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31170,7 +34370,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2920:/ cond"); - /*cond*/ if (/*_.NCBIND__V55*/ meltfptr[54]) /*then*/ + /*cond*/ + if (/*_.NCBIND__V55*/ meltfptr[54]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31187,14 +34388,17 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCBIND__V55*/ meltfptr[54]; - /*_.LIST_APPEND2LIST__V62*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.LISTBINDS__V38*/ meltfptr[34]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V62*/ + meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.LISTBINDS__V38*/ meltfptr[34]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V61*/ meltfptr[59] = /*_.LIST_APPEND2LIST__V62*/ meltfptr[55];; + /*_._IF___V61*/ + meltfptr[59] = /*_.LIST_APPEND2LIST__V62*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2920:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V62*/ meltfptr[55] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V62*/ + meltfptr[55] = 0 ; } ; } @@ -31208,10 +34412,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_LIST__L21*/ meltfnum[1] = + /*_#IS_LIST__L21*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.NCOMP__V54*/ meltfptr[53])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:2921:/ cond"); - /*cond*/ if (/*_#IS_LIST__L21*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L21*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31228,14 +34434,17 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCOMP__V54*/ meltfptr[53]; - /*_.LIST_APPEND2LIST__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.LISTNCHUNKS__V39*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V64*/ + meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.LISTNCHUNKS__V39*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V63*/ meltfptr[55] = /*_.LIST_APPEND2LIST__V64*/ meltfptr[63];; + /*_._IFELSE___V63*/ + meltfptr[55] = /*_.LIST_APPEND2LIST__V64*/ meltfptr[63];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2921:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V64*/ + meltfptr[63] = 0 ; } ; } @@ -31254,7 +34463,8 @@ meltlab_endgetargs: meltgc_append_list((melt_ptr_t)(/*_.LISTNCHUNKS__V39*/ meltfptr[27]), (melt_ptr_t)(/*_.NCOMP__V54*/ meltfptr[53])); } ; - /*clear*/ /*_._IFELSE___V63*/ meltfptr[55] = 0 ; + /*clear*/ /*_._IFELSE___V63*/ + meltfptr[55] = 0 ; /*epilog*/ } ; @@ -31264,24 +34474,32 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_.MULTI___V53*/ meltfptr[40] = /*_._IFELSE___V63*/ meltfptr[55];; + /*_.MULTI___V53*/ + meltfptr[40] = /*_._IFELSE___V63*/ meltfptr[55];; MELT_LOCATION("warmelt-normal.melt:2915:/ clear"); - /*clear*/ /*_.IFCPP___V58*/ meltfptr[56] = 0 ; + /*clear*/ /*_.IFCPP___V58*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V61*/ meltfptr[59] = 0 ; + /*clear*/ /*_._IF___V61*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L21*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L21*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V63*/ meltfptr[55] = 0 ; + /*clear*/ /*_._IFELSE___V63*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.NCBIND__V55*/ meltfptr[54] = 0 ; - /*_._IFELSE___V52*/ meltfptr[50] = /*_.MULTI___V53*/ meltfptr[40];; + /*clear*/ /*_.NCBIND__V55*/ + meltfptr[54] = 0 ; + /*_._IFELSE___V52*/ + meltfptr[50] = /*_.MULTI___V53*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2914:/ clear"); - /*clear*/ /*_.MULTI___V53*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MULTI___V53*/ + meltfptr[40] = 0 ; } ; } @@ -31295,10 +34513,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L22*/ meltfnum[18] = + /*_#IS_A__L22*/ + meltfnum[18] = melt_is_instance_of((melt_ptr_t)(/*_.SRCOMP__V49*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[19])));; MELT_LOCATION("warmelt-normal.melt:2925:/ cond"); - /*cond*/ if (/*_#IS_A__L22*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#IS_A__L22*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31324,7 +34544,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NSBIND__V66*/ meltfptr[56];/*^multimsend.send*/ - /*_.NSYMB__V65*/ meltfptr[63] = meltgc_send ((melt_ptr_t)(/*_.SRCOMP__V49*/ meltfptr[47]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[17]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NSYMB__V65*/ + meltfptr[63] = meltgc_send ((melt_ptr_t)(/*_.SRCOMP__V49*/ meltfptr[47]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[17]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -31350,7 +34571,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L23*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L23*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31359,7 +34581,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2929:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L23*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31396,16 +34619,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nsbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NSBIND__V66*/ meltfptr[56]; - /*_.MELT_DEBUG_FUN__V68*/ 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__V68*/ + 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___V67*/ meltfptr[59] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[55];; + /*_._IF___V67*/ + meltfptr[59] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2929:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L24*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ + meltfptr[55] = 0 ; } ; } @@ -31418,7 +34645,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2929:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31427,9 +34655,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L23*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V67*/ meltfptr[59] = 0 ; + /*clear*/ /*_._IF___V67*/ + meltfptr[59] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31459,10 +34689,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L25*/ meltfnum[23] = + /*_#NULL__L25*/ + meltfnum[23] = (/*null*/(/*_.NSBIND__V66*/ meltfptr[56]) == NULL);; MELT_LOCATION("warmelt-normal.melt:2930:/ cond"); - /*cond*/ if (/*_#NULL__L25*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#NULL__L25*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V70*/ meltfptr[54] = (/*nil*/NULL);; @@ -31491,25 +34723,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2930; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NSBIND__V66*/ meltfptr[56]; - /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V71*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V70*/ meltfptr[54] = /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[40];; + /*_._IFELSE___V70*/ + meltfptr[54] = /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2930:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V71*/ + meltfptr[40] = 0 ; } ; } ; - /*_.IFCPP___V69*/ meltfptr[53] = /*_._IFELSE___V70*/ meltfptr[54];; + /*_.IFCPP___V69*/ + meltfptr[53] = /*_._IFELSE___V70*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2930:/ clear"); - /*clear*/ /*_#NULL__L25*/ meltfnum[23] = 0 ; + /*clear*/ /*_#NULL__L25*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V70*/ meltfptr[54] = 0 ; + /*clear*/ /*_._IFELSE___V70*/ + meltfptr[54] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31526,13 +34764,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_._IFELSE___V52*/ meltfptr[50] = /*_.IFCPP___V69*/ meltfptr[53];; + /*_._IFELSE___V52*/ + meltfptr[50] = /*_.IFCPP___V69*/ meltfptr[53];; MELT_LOCATION("warmelt-normal.melt:2926:/ clear"); - /*clear*/ /*_.IFCPP___V69*/ meltfptr[53] = 0 ; + /*clear*/ /*_.IFCPP___V69*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.NSBIND__V66*/ meltfptr[56] = 0 ; + /*clear*/ /*_.NSBIND__V66*/ + meltfptr[56] = 0 ; /*epilog*/ } ; @@ -31548,10 +34789,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L26*/ meltfnum[1] = + /*_#IS_STRING__L26*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SRCOMP__V49*/ meltfptr[47])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-normal.melt:2933:/ cond"); - /*cond*/ if (/*_#IS_STRING__L26*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L26*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31569,11 +34812,13 @@ meltlab_endgetargs: meltgc_append_list((melt_ptr_t)(/*_.LISTNCHUNKS__V39*/ meltfptr[27]), (melt_ptr_t)(/*_.MAKE_STRING__V72*/ meltfptr[55])); } ; - /*clear*/ /*_._IFELSE___V52*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IFELSE___V52*/ + meltfptr[50] = 0 ; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2933:/ clear"); - /*clear*/ /*_.MAKE_STRING__V72*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MAKE_STRING__V72*/ + meltfptr[55] = 0 ; } ; } @@ -31601,7 +34846,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2925:/ clear"); - /*clear*/ /*_#IS_STRING__L26*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRING__L26*/ + meltfnum[1] = 0 ; } ; } @@ -31609,7 +34855,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2914:/ clear"); - /*clear*/ /*_#IS_A__L22*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IS_A__L22*/ + meltfnum[18] = 0 ; } ; } @@ -31634,7 +34881,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L27*/ meltfnum[23] = + /*_#MELT_NEED_DBG__L27*/ + meltfnum[23] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31643,7 +34891,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2939:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L27*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L27*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31684,16 +34933,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n updated listnchunks="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.LISTNCHUNKS__V39*/ meltfptr[27]; - /*_.MELT_DEBUG_FUN__V74*/ 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_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V74*/ + 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_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V73*/ meltfptr[59] = /*_.MELT_DEBUG_FUN__V74*/ meltfptr[40];; + /*_._IF___V73*/ + meltfptr[59] = /*_.MELT_DEBUG_FUN__V74*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2939:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L28*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L28*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V74*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V74*/ + meltfptr[40] = 0 ; } ; } @@ -31706,7 +34959,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2939:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31715,9 +34969,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L27*/ meltfnum[23] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L27*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V73*/ meltfptr[59] = 0 ; + /*clear*/ /*_._IF___V73*/ + meltfptr[59] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31743,13 +34999,17 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:2910:/ clear"); - /*clear*/ /*_.SRCOMP__V49*/ meltfptr[47] = 0 ; + /*clear*/ /*_.SRCOMP__V49*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_#SIX__L14*/ meltfnum[10] = 0 ; + /*clear*/ /*_#SIX__L14*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L17*/ meltfnum[15] = 0 ; + /*clear*/ /*_#IS_A__L17*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V52*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IFELSE___V52*/ + meltfptr[50] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-normal.melt:2943:/ quasiblock"); @@ -31765,7 +35025,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[14]); - /*_.TUPNCHUNK__V76*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.LISTNCHUNKS__V39*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.TUPNCHUNK__V76*/ + meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.LISTNCHUNKS__V39*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -31779,7 +35040,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[21])), (4), "CLASS_NREP_CHUNK"); - /*_.INST__V78*/ meltfptr[56] = + /*_.INST__V78*/ + meltfptr[56] = newobj; }; ; @@ -31807,7 +35069,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V78*/ meltfptr[56], "newly made instance"); ; - /*_.NCHUNK__V77*/ meltfptr[63] = /*_.INST__V78*/ meltfptr[56];; + /*_.NCHUNK__V77*/ + meltfptr[63] = /*_.INST__V78*/ meltfptr[56];; MELT_CHECK_SIGNAL(); ; @@ -31819,7 +35082,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[22])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V80*/ meltfptr[40] = + /*_.INST__V80*/ + meltfptr[40] = newobj; }; ; @@ -31847,7 +35111,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V80*/ meltfptr[40], "newly made instance"); ; - /*_.CBIND__V79*/ meltfptr[55] = /*_.INST__V80*/ meltfptr[40];; + /*_.CBIND__V79*/ + meltfptr[55] = /*_.INST__V80*/ meltfptr[40];; MELT_CHECK_SIGNAL(); ; @@ -31859,7 +35124,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[23])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V82*/ meltfptr[81] = + /*_.INST__V82*/ + meltfptr[81] = newobj; }; ; @@ -31887,7 +35153,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V82*/ meltfptr[81], "newly made instance"); ; - /*_.CLOCC__V81*/ meltfptr[59] = /*_.INST__V82*/ meltfptr[81];; + /*_.CLOCC__V81*/ + meltfptr[59] = /*_.INST__V82*/ meltfptr[81];; { MELT_LOCATION("warmelt-normal.melt:2960:/ locexp"); @@ -31914,7 +35181,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L29*/ meltfnum[18] = + /*_#MELT_NEED_DBG__L29*/ + meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31923,7 +35191,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2961:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L29*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L29*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31964,16 +35233,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " listbinds="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.LISTBINDS__V38*/ meltfptr[34]; - /*_.MELT_DEBUG_FUN__V84*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V84*/ + 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V83*/ meltfptr[82] = /*_.MELT_DEBUG_FUN__V84*/ meltfptr[83];; + /*_._IF___V83*/ + meltfptr[82] = /*_.MELT_DEBUG_FUN__V84*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2961:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L30*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L30*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V84*/ meltfptr[83] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V84*/ + meltfptr[83] = 0 ; } ; } @@ -31986,7 +35259,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2961:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31995,9 +35269,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L29*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L29*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_._IF___V83*/ + meltfptr[82] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32023,7 +35299,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:2962:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V81*/ meltfptr[59];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V81*/ meltfptr[59];; MELT_LOCATION("warmelt-normal.melt:2962:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -32031,64 +35308,91 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V75*/ meltfptr[54] = /*_.RETURN___V85*/ meltfptr[83];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V75*/ + meltfptr[54] = /*_.RETURN___V85*/ meltfptr[83];; MELT_LOCATION("warmelt-normal.melt:2943:/ clear"); - /*clear*/ /*_.TUPNCHUNK__V76*/ meltfptr[53] = 0 ; + /*clear*/ /*_.TUPNCHUNK__V76*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHUNK__V77*/ meltfptr[63] = 0 ; + /*clear*/ /*_.NCHUNK__V77*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V79*/ meltfptr[55] = 0 ; + /*clear*/ /*_.CBIND__V79*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V81*/ meltfptr[59] = 0 ; + /*clear*/ /*_.CLOCC__V81*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V85*/ meltfptr[83] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.LET___V75*/ meltfptr[54];; + /*clear*/ /*_.RETURN___V85*/ + meltfptr[83] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.LET___V75*/ meltfptr[54];; MELT_LOCATION("warmelt-normal.melt:2882:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SCHK__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SCHK__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.GSYM__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.GSYM__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYP__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.CTYP__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.CSYM__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDLIST__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.BINDLIST__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWENV__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.NEWENV__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.LET___V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYMSTR__V30*/ meltfptr[25] = 0 ; + /*clear*/ /*_.CSYMSTR__V30*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V31*/ meltfptr[26] = 0 ; + /*clear*/ /*_.LET___V31*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MAGICBIND__V37*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MAGICBIND__V37*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.LISTBINDS__V38*/ meltfptr[34] = 0 ; + /*clear*/ /*_.LISTBINDS__V38*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.LISTNCHUNKS__V39*/ meltfptr[27] = 0 ; + /*clear*/ /*_.LISTNCHUNKS__V39*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHK__V40*/ meltfptr[33] = 0 ; + /*clear*/ /*_.NCHK__V40*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V43*/ meltfptr[41] = 0 ; + /*clear*/ /*_.IFCPP___V43*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V46*/ meltfptr[44] = 0 ; + /*clear*/ /*_.IFCPP___V46*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V75*/ meltfptr[54] = 0 ; + /*clear*/ /*_.LET___V75*/ + meltfptr[54] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2877:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:2877:/ locexp"); @@ -32103,17 +35407,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -32195,7 +35504,8 @@ meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR fromline 1756 */ - /* classy proc frame meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR */ MeltFrame_meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR + /* classy proc frame meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR */ + MeltFrame_meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR fromline 1785*/ #if ENABLE_CHECKING @@ -32208,7 +35518,8 @@ meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("NORMEXP_CMATCHEXPR", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -32218,26 +35529,30 @@ meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:2968:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -32269,7 +35584,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)) @@ -32278,7 +35594,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:2969:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32311,16 +35628,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_cmatchexpr recv"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2969:/ 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 ; } ; } @@ -32333,7 +35654,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:2969:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -32342,9 +35664,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*/ @@ -32374,10 +35698,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_CMATCHEXPR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:2970:/ 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);; @@ -32406,25 +35732,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2970; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2970:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2970:/ 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*/ @@ -32442,10 +35774,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:2971:/ 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);; @@ -32474,25 +35808,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2971; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2971:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2971:/ 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*/ @@ -32510,10 +35850,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:2972:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -32542,25 +35884,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2972; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2972:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2972:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32576,7 +35924,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2974:/ getslot"); @@ -32584,7 +35933,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, "SCMATX_CMATCHER"); - /*_.SCMAT__V19*/ meltfptr[18] = slot; + /*_.SCMAT__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2975:/ getslot"); @@ -32592,7 +35942,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SARGOP_ARGS"); - /*_.SARGS__V20*/ meltfptr[19] = slot; + /*_.SARGS__V20*/ + meltfptr[19] = slot; }; ; @@ -32605,10 +35956,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[0] = + /*_#IS_A__L6*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SCMAT__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:2977:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V22*/ meltfptr[21] = (/*nil*/NULL);; @@ -32637,25 +35990,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2977; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SCMAT__V19*/ meltfptr[18]; - /*_.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 MELTBPARSTR_PTR ""), 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V22*/ meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; + /*_._IFELSE___V22*/ + meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2977:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ + meltfptr[22] = 0 ; } ; } ; - /*_.IFCPP___V21*/ meltfptr[20] = /*_._IFELSE___V22*/ meltfptr[21];; + /*_.IFCPP___V21*/ + meltfptr[20] = /*_._IFELSE___V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2977:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_._IFELSE___V22*/ + meltfptr[21] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32684,7 +36043,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V26*/ meltfptr[25]; /*^multiapply.appl*/ - /*_.NARGS__V25*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NARGS__V25*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -32698,7 +36058,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SCMAT__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.CMANAMSTR__V28*/ meltfptr[27] = slot; + /*_.CMANAMSTR__V28*/ + meltfptr[27] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2983:/ getslot"); @@ -32706,7 +36067,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SCMAT__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 4, "AMATCH_OUT"); - /*_.OFORMALS__V29*/ meltfptr[28] = slot; + /*_.OFORMALS__V29*/ + meltfptr[28] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2985:/ quasiblock"); @@ -32717,7 +36079,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SCMAT__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 3, "AMATCH_MATCHBIND"); - /*_.MB__V31*/ meltfptr[30] = slot; + /*_.MB__V31*/ + meltfptr[30] = slot; }; ; @@ -32730,10 +36093,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ meltfnum[1] = + /*_#IS_A__L7*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MB__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:2986:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V33*/ meltfptr[32] = (/*nil*/NULL);; @@ -32762,25 +36127,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2986; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MB__V31*/ meltfptr[30]; - /*_.MELT_ASSERT_FAILURE_FUN__V34*/ 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V34*/ + 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V33*/ meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; + /*_._IFELSE___V33*/ + meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2986:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ + meltfptr[33] = 0 ; } ; } ; - /*_.IFCPP___V32*/ meltfptr[31] = /*_._IFELSE___V33*/ meltfptr[32];; + /*_.IFCPP___V32*/ + meltfptr[31] = /*_._IFELSE___V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2986:/ clear"); - /*clear*/ /*_#IS_A__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IFELSE___V33*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32789,19 +36160,24 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V30*/ meltfptr[29] = /*_.MB__V31*/ meltfptr[30];; + /*_.LET___V30*/ + meltfptr[29] = /*_.MB__V31*/ meltfptr[30];; MELT_LOCATION("warmelt-normal.melt:2985:/ clear"); - /*clear*/ /*_.MB__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MB__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V32*/ meltfptr[31] = 0 ; - /*_.MABIND__V35*/ meltfptr[33] = /*_.LET___V30*/ meltfptr[29];; + /*clear*/ /*_.IFCPP___V32*/ + meltfptr[31] = 0 ; + /*_.MABIND__V35*/ + meltfptr[33] = /*_.LET___V30*/ meltfptr[29];; MELT_LOCATION("warmelt-normal.melt:2989:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MABIND__V35*/ meltfptr[33]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.OTYPE__V36*/ meltfptr[32] = slot; + /*_.OTYPE__V36*/ + meltfptr[32] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:2990:/ getslot"); @@ -32809,13 +36185,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SCMAT__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 8, "CMATCH_EXPOPER"); - /*_.SOPEXP__V37*/ meltfptr[30] = slot; + /*_.SOPEXP__V37*/ + meltfptr[30] = slot; }; ; - /*_#NBARG__L8*/ meltfnum[0] = + /*_#NBARG__L8*/ + meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.NARGS__V25*/ meltfptr[21])));; /*^compute*/ - /*_#NBEXP__L9*/ meltfnum[1] = + /*_#NBEXP__L9*/ + meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.SOPEXP__V37*/ meltfptr[30])));; #if MELT_HAVE_DEBUG @@ -32827,10 +36206,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L10*/ meltfnum[9] = + /*_#IS_A__L10*/ + meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.OTYPE__V36*/ meltfptr[32]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:2994:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#IS_A__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V39*/ meltfptr[38] = (/*nil*/NULL);; @@ -32859,25 +36240,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2994; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OTYPE__V36*/ meltfptr[32]; - /*_.MELT_ASSERT_FAILURE_FUN__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V40*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V39*/ meltfptr[38] = /*_.MELT_ASSERT_FAILURE_FUN__V40*/ meltfptr[39];; + /*_._IFELSE___V39*/ + meltfptr[38] = /*_.MELT_ASSERT_FAILURE_FUN__V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2994:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V40*/ + meltfptr[39] = 0 ; } ; } ; - /*_.IFCPP___V38*/ meltfptr[31] = /*_._IFELSE___V39*/ meltfptr[38];; + /*_.IFCPP___V38*/ + meltfptr[31] = /*_._IFELSE___V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2994:/ clear"); - /*clear*/ /*_#IS_A__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_._IFELSE___V39*/ + meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32889,13 +36276,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#MULTIPLE_LENGTH__L11*/ meltfnum[9] = + /*_#MULTIPLE_LENGTH__L11*/ + meltfnum[9] = (melt_multiple_length((melt_ptr_t)(/*_.OFORMALS__V29*/ meltfptr[28])));; /*^compute*/ - /*_#exeqI__L12*/ meltfnum[11] = + /*_#exeqI__L12*/ + meltfnum[11] = ((/*_#NBARG__L8*/ meltfnum[0]) != (/*_#MULTIPLE_LENGTH__L11*/ meltfnum[9]));; MELT_LOCATION("warmelt-normal.melt:2995:/ cond"); - /*cond*/ if (/*_#exeqI__L12*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#exeqI__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32914,13 +36304,15 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "length mismatch between formals & actuals in cmatch $1 expr"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CMANAMSTR__V28*/ meltfptr[27]; - /*_.ERROR_AT__V42*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V42*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:2999:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:2999:/ locexp"); @@ -32935,21 +36327,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:2996:/ quasiblock"); - /*_.PROGN___V44*/ meltfptr[43] = /*_.RETURN___V43*/ meltfptr[42];; + /*_.PROGN___V44*/ + meltfptr[43] = /*_.RETURN___V43*/ meltfptr[42];; /*^compute*/ - /*_._IF___V41*/ meltfptr[39] = /*_.PROGN___V44*/ meltfptr[43];; + /*_._IF___V41*/ + meltfptr[39] = /*_.PROGN___V44*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:2995:/ clear"); - /*clear*/ /*_.ERROR_AT__V42*/ meltfptr[38] = 0 ; + /*clear*/ /*_.ERROR_AT__V42*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.RETURN___V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.PROGN___V44*/ + meltfptr[43] = 0 ; } ; } @@ -32962,25 +36360,31 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3001:/ quasiblock"); - /*_#stI__L13*/ meltfnum[12] = + /*_#stI__L13*/ + meltfnum[12] = ((3) * (/*_#NBARG__L8*/ meltfnum[0]));; /*^compute*/ - /*_#diIRAW__L14*/ meltfnum[13] = + /*_#diIRAW__L14*/ + meltfnum[13] = ((/*_#stI__L13*/ meltfnum[12]) / (2));; /*^compute*/ - /*_#plI__L15*/ meltfnum[14] = + /*_#plI__L15*/ + meltfnum[14] = ((5) + (/*_#diIRAW__L14*/ meltfnum[13]));; /*^compute*/ - /*_.BMAP__V46*/ meltfptr[42] = + /*_.BMAP__V46*/ + meltfptr[42] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[10])), (/*_#plI__L15*/ meltfnum[14])));; /*^compute*/ - /*_.EXPARGS__V47*/ meltfptr[43] = + /*_.EXPARGS__V47*/ + meltfptr[43] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[11])), (/*_#NBEXP__L9*/ meltfnum[1])));; MELT_LOCATION("warmelt-normal.melt:3006:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V49*/ meltfptr[48] = + /*newclosure*/ /*_.LAMBDA___V49*/ + meltfptr[48] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ meltfrout->tabval[19])), (5)); ; /*^putclosedv*/ @@ -33013,7 +36417,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V49*/ meltfptr[48]))); ((meltclosure_ptr_t)/*_.LAMBDA___V49*/ meltfptr[48])->tabval[4] = (melt_ptr_t)(/*_.BMAP__V46*/ meltfptr[42]); ; - /*_.LAMBDA___V48*/ meltfptr[47] = /*_.LAMBDA___V49*/ meltfptr[48];; + /*_.LAMBDA___V48*/ + meltfptr[47] = /*_.LAMBDA___V49*/ meltfptr[48];; MELT_CHECK_SIGNAL(); ; @@ -33024,7 +36429,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V48*/ meltfptr[47]; - /*_.MULTIPLE_EVERY__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.OFORMALS__V29*/ meltfptr[28]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_EVERY__V50*/ + meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.OFORMALS__V29*/ meltfptr[28]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -33047,7 +36453,8 @@ meltlab_endgetargs: 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)) @@ -33056,7 +36463,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3028:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33089,16 +36497,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_cmatchexpr bmap in sopexp"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BMAP__V46*/ meltfptr[42]; - /*_.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-normal.melt:3028:/ 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 ; } ; } @@ -33111,7 +36523,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3028:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -33120,9 +36533,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IF___V51*/ + meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33146,7 +36561,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V54*/ meltfptr[50] = + /*newclosure*/ /*_.LAMBDA___V54*/ + meltfptr[50] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_24*/ meltfrout->tabval[24])), (5)); ; /*^putclosedv*/ @@ -33179,7 +36595,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ meltfptr[50]))); ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ meltfptr[50])->tabval[4] = (melt_ptr_t)(/*_.EXPARGS__V47*/ meltfptr[43]); ; - /*_.LAMBDA___V53*/ meltfptr[51] = /*_.LAMBDA___V54*/ meltfptr[50];; + /*_.LAMBDA___V53*/ + meltfptr[51] = /*_.LAMBDA___V54*/ meltfptr[50];; MELT_CHECK_SIGNAL(); ; @@ -33190,7 +36607,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V53*/ meltfptr[51]; - /*_.MULTIPLE_EVERY__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.SOPEXP__V37*/ meltfptr[30]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_EVERY__V55*/ + meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.SOPEXP__V37*/ meltfptr[30]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3062:/ quasiblock"); @@ -33219,7 +36637,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[27])), (4), "CLASS_NREP_CHUNK"); - /*_.INST__V59*/ meltfptr[58] = + /*_.INST__V59*/ + meltfptr[58] = newobj; }; ; @@ -33247,7 +36666,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V59*/ meltfptr[58], "newly made instance"); ; - /*_.INST___V58*/ meltfptr[57] = /*_.INST__V59*/ meltfptr[58];; + /*_.INST___V58*/ + meltfptr[57] = /*_.INST__V59*/ meltfptr[58];; MELT_LOCATION("warmelt-normal.melt:3063:/ quasiblock"); @@ -33256,7 +36676,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[26])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V61*/ meltfptr[60] = + /*_.INST__V61*/ + meltfptr[60] = newobj; }; ; @@ -33284,7 +36705,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V61*/ meltfptr[60], "newly made instance"); ; - /*_.CBIND__V60*/ meltfptr[59] = /*_.INST__V61*/ meltfptr[60];; + /*_.CBIND__V60*/ + meltfptr[59] = /*_.INST__V61*/ meltfptr[60];; MELT_CHECK_SIGNAL(); ; @@ -33296,7 +36718,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[28])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V63*/ meltfptr[62] = + /*_.INST__V63*/ + meltfptr[62] = newobj; }; ; @@ -33324,15 +36747,18 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V63*/ meltfptr[62], "newly made instance"); ; - /*_.CLOCC__V62*/ meltfptr[61] = /*_.INST__V63*/ meltfptr[62];; + /*_.CLOCC__V62*/ + meltfptr[61] = /*_.INST__V63*/ meltfptr[62];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_LIST__L18*/ meltfnum[16] = + /*_#IS_LIST__L18*/ + meltfnum[16] = (melt_magic_discr((melt_ptr_t)(/*_.NBIND__V26*/ meltfptr[25])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:3080:/ cond"); - /*cond*/ if (/*_#IS_LIST__L18*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33360,7 +36786,8 @@ meltlab_endgetargs: /*_.MAKE_LIST__V64*/ meltfptr[63] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[29]))));; MELT_LOCATION("warmelt-normal.melt:3083:/ compute"); - /*_.NBIND__V26*/ meltfptr[25] = /*_.SETQ___V65*/ meltfptr[64] = /*_.MAKE_LIST__V64*/ meltfptr[63];; + /*_.NBIND__V26*/ + meltfptr[25] = /*_.SETQ___V65*/ meltfptr[64] = /*_.MAKE_LIST__V64*/ meltfptr[63];; { MELT_LOCATION("warmelt-normal.melt:3084:/ locexp"); @@ -33373,9 +36800,11 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3080:/ clear"); - /*clear*/ /*_.MAKE_LIST__V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.MAKE_LIST__V64*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V65*/ meltfptr[64] = 0 ; + /*clear*/ /*_.SETQ___V65*/ + meltfptr[64] = 0 ; } ; } @@ -33400,7 +36829,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L19*/ meltfnum[15] = + /*_#MELT_NEED_DBG__L19*/ + meltfnum[15] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -33409,7 +36839,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3086:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33442,16 +36873,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_cmatchexpr result clocc"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V62*/ meltfptr[61]; - /*_.MELT_DEBUG_FUN__V67*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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[64] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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[63] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[64];; + /*_._IF___V66*/ + meltfptr[63] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[64];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3086:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V67*/ meltfptr[64] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V67*/ + meltfptr[64] = 0 ; } ; } @@ -33464,7 +36899,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3086:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -33473,9 +36909,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V66*/ meltfptr[63] = 0 ; + /*clear*/ /*_._IF___V66*/ + meltfptr[63] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33501,7 +36939,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3087:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V62*/ meltfptr[61];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V62*/ meltfptr[61];; MELT_LOCATION("warmelt-normal.melt:3087:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -33509,97 +36948,140 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V56*/ meltfptr[55] = /*_.RETURN___V68*/ meltfptr[64];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V56*/ + meltfptr[55] = /*_.RETURN___V68*/ meltfptr[64];; MELT_LOCATION("warmelt-normal.melt:3062:/ clear"); - /*clear*/ /*_.CSYM__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.CSYM__V57*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.INST___V58*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.CBIND__V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.CLOCC__V62*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#IS_LIST__L18*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V68*/ meltfptr[64] = 0 ; - /*_.LET___V45*/ meltfptr[38] = /*_.LET___V56*/ meltfptr[55];; + /*clear*/ /*_.RETURN___V68*/ + meltfptr[64] = 0 ; + /*_.LET___V45*/ + meltfptr[38] = /*_.LET___V56*/ meltfptr[55];; MELT_LOCATION("warmelt-normal.melt:3001:/ clear"); - /*clear*/ /*_#stI__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#stI__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#diIRAW__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#diIRAW__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#plI__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.BMAP__V46*/ meltfptr[42] = 0 ; + /*clear*/ /*_.BMAP__V46*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPARGS__V47*/ meltfptr[43] = 0 ; + /*clear*/ /*_.EXPARGS__V47*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.LAMBDA___V48*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_EVERY__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.MULTIPLE_EVERY__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V53*/ meltfptr[51] = 0 ; + /*clear*/ /*_.LAMBDA___V53*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_EVERY__V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.MULTIPLE_EVERY__V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V56*/ meltfptr[55] = 0 ; - /*_.LET___V27*/ meltfptr[26] = /*_.LET___V45*/ meltfptr[38];; + /*clear*/ /*_.LET___V56*/ + meltfptr[55] = 0 ; + /*_.LET___V27*/ + meltfptr[26] = /*_.LET___V45*/ meltfptr[38];; MELT_LOCATION("warmelt-normal.melt:2981:/ clear"); - /*clear*/ /*_.CMANAMSTR__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.CMANAMSTR__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.OFORMALS__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.OFORMALS__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.LET___V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MABIND__V35*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MABIND__V35*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.OTYPE__V36*/ meltfptr[32] = 0 ; + /*clear*/ /*_.OTYPE__V36*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.SOPEXP__V37*/ meltfptr[30] = 0 ; + /*clear*/ /*_.SOPEXP__V37*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_#NBARG__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NBARG__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#NBEXP__L9*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NBEXP__L9*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V38*/ meltfptr[31] = 0 ; + /*clear*/ /*_.IFCPP___V38*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#exeqI__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#exeqI__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V41*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V41*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V45*/ meltfptr[38] = 0 ; - /*_.MULTI___V24*/ meltfptr[22] = /*_.LET___V27*/ meltfptr[26];; + /*clear*/ /*_.LET___V45*/ + meltfptr[38] = 0 ; + /*_.MULTI___V24*/ + meltfptr[22] = /*_.LET___V27*/ meltfptr[26];; MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.LET___V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.LET___V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V26*/ meltfptr[25] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.MULTI___V24*/ meltfptr[22];; + /*clear*/ /*_.NBIND__V26*/ + meltfptr[25] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.MULTI___V24*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:2973:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SCMAT__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SCMAT__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SARGS__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SARGS__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.IFCPP___V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V24*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MULTI___V24*/ + meltfptr[22] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:2968:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:2968:/ locexp"); @@ -33614,17 +37096,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -33706,7 +37193,8 @@ meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4 fromline 1756 */ - /* classy proc frame meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4 */ MeltFrame_meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4 + /* classy proc frame meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4 */ + MeltFrame_meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4 fromline 1785*/ #if ENABLE_CHECKING @@ -33719,7 +37207,8 @@ meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl4", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -33729,12 +37218,14 @@ meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3006:/ getarg"); - /*_.FORB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FORB__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: @@ -33754,10 +37245,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[1] = + /*_#IS_A__L2*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.FORB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:3007:/ 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);; @@ -33786,25 +37279,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3007; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FORB__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V4*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4];; + /*_._IFELSE___V4*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3007:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V5*/ + meltfptr[4] = 0 ; } ; } ; - /*_.IFCPP___V3*/ meltfptr[2] = /*_._IFELSE___V4*/ meltfptr[3];; + /*_.IFCPP___V3*/ + meltfptr[2] = /*_._IFELSE___V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3007:/ 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*/ @@ -33832,7 +37331,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)) @@ -33841,7 +37341,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3008:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33874,16 +37375,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_cmatchexpr forb"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FORB__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[3];; + /*_._IF___V6*/ + meltfptr[4] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3008:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[3] = 0 ; } ; } @@ -33896,7 +37401,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3008:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -33905,9 +37411,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[4] = 0 ; + /*clear*/ /*_._IF___V6*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33935,17 +37443,20 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FORB__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.FORARG__V8*/ meltfptr[3] = slot; + /*_.FORARG__V8*/ + meltfptr[3] = slot; }; ; - /*_.ACTARG__V9*/ meltfptr[4] = + /*_.ACTARG__V9*/ + meltfptr[4] = (melt_multiple_nth((melt_ptr_t)((/*~NARGS*/ meltfclos->tabval[0])), (/*_#IX__L1*/ meltfnum[0])));; MELT_LOCATION("warmelt-normal.melt:3011:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FORB__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FORTYPE__V10*/ meltfptr[9] = slot; + /*_.FORTYPE__V10*/ + meltfptr[9] = slot; }; ; @@ -33958,7 +37469,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~ENV*/ meltfclos->tabval[1]); - /*_.ACTYPE__V11*/ meltfptr[10] = meltgc_send((melt_ptr_t)(/*_.ACTARG__V9*/ meltfptr[4]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ACTYPE__V11*/ + meltfptr[10] = meltgc_send((melt_ptr_t)(/*_.ACTARG__V9*/ meltfptr[4]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -33981,7 +37493,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)) @@ -33990,7 +37503,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3014:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34027,16 +37541,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " actype="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.ACTYPE__V11*/ meltfptr[10]; - /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 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__V13*/ + meltfptr[12] = 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___V12*/ meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; + /*_._IF___V12*/ + meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3014:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[12] = 0 ; } ; } @@ -34049,7 +37567,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3014:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -34058,9 +37577,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[11] = 0 ; + /*clear*/ /*_._IF___V12*/ + meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34086,10 +37607,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ meltfnum[1] = + /*_#IS_A__L7*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.FORTYPE__V10*/ meltfptr[9]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:3015:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34099,10 +37622,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[8] = + /*_#IS_A__L9*/ + meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.ACTYPE__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:3015:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34112,11 +37637,13 @@ meltlab_endgetargs: /*_#exeq__L11*/ meltfnum[10] = ((/*_.FORTYPE__V10*/ meltfptr[9]) != (/*_.ACTYPE__V11*/ meltfptr[10]));; /*^compute*/ - /*_#_IF___L10*/ meltfnum[9] = /*_#exeq__L11*/ meltfnum[10];; + /*_#_IF___L10*/ + meltfnum[9] = /*_#exeq__L11*/ meltfnum[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3015:/ clear"); - /*clear*/ /*_#exeq__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#exeq__L11*/ + meltfnum[10] = 0 ; } ; } @@ -34127,13 +37654,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#_IF___L8*/ meltfnum[3] = /*_#_IF___L10*/ meltfnum[9];; + /*_#_IF___L8*/ + meltfnum[3] = /*_#_IF___L10*/ meltfnum[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3015:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#_IF___L10*/ + meltfnum[9] = 0 ; } ; } @@ -34144,7 +37674,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3015:/ cond"); - /*cond*/ if (/*_#_IF___L8*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#_IF___L8*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34156,7 +37687,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FORARG__V8*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V15*/ meltfptr[11] = slot; + /*_.NAMED_NAME__V15*/ + meltfptr[11] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3023:/ getslot"); @@ -34164,7 +37696,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ACTYPE__V11*/ meltfptr[10]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V16*/ meltfptr[15] = slot; + /*_.NAMED_NAME__V16*/ + meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3024:/ getslot"); @@ -34172,7 +37705,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FORTYPE__V10*/ meltfptr[9]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V17*/ meltfptr[16] = slot; + /*_.NAMED_NAME__V17*/ + meltfptr[16] = slot; }; ; @@ -34194,27 +37728,35 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V17*/ meltfptr[16]; - /*_.ERROR_AT__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[5])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[2])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V18*/ + meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[5])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[2])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3018:/ quasiblock"); - /*_.PROGN___V19*/ meltfptr[18] = /*_.ERROR_AT__V18*/ meltfptr[17];; + /*_.PROGN___V19*/ + meltfptr[18] = /*_.ERROR_AT__V18*/ meltfptr[17];; /*^compute*/ - /*_._IF___V14*/ meltfptr[12] = /*_.PROGN___V19*/ meltfptr[18];; + /*_._IF___V14*/ + meltfptr[12] = /*_.PROGN___V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3015:/ clear"); - /*clear*/ /*_.NAMED_NAME__V15*/ meltfptr[11] = 0 ; + /*clear*/ /*_.NAMED_NAME__V15*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.NAMED_NAME__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.NAMED_NAME__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.ERROR_AT__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.PROGN___V19*/ + meltfptr[18] = 0 ; } ; } @@ -34234,26 +37776,34 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:3009:/ clear"); - /*clear*/ /*_.FORARG__V8*/ meltfptr[3] = 0 ; + /*clear*/ /*_.FORARG__V8*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.ACTARG__V9*/ meltfptr[4] = 0 ; + /*clear*/ /*_.ACTARG__V9*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.FORTYPE__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.FORTYPE__V10*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.ACTYPE__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.ACTYPE__V11*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L8*/ meltfnum[3] = 0 ; + /*clear*/ /*_#_IF___L8*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_._IF___V14*/ + meltfptr[12] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3006:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_.IFCPP___V3*/ + meltfptr[2] = 0 ; } ; @@ -34335,7 +37885,8 @@ meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5 fromline 1756 */ - /* classy proc frame meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5 */ MeltFrame_meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5 + /* classy proc frame meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5 */ + MeltFrame_meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5 fromline 1785*/ #if ENABLE_CHECKING @@ -34348,7 +37899,8 @@ meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl5", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -34358,12 +37910,14 @@ meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3031:/ getarg"); - /*_.EXCU__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.EXCU__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#JX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; + /*_#JX__L1*/ + meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -34379,10 +37933,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[1] = + /*_#IS_A__L2*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.EXCU__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:3034:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34392,17 +37948,20 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3035:/ quasiblock"); - /*_.BVAL__V5*/ meltfptr[4] = + /*_.BVAL__V5*/ + meltfptr[4] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)((/*~BMAP*/ meltfclos->tabval[0])), (meltobject_ptr_t)(/*_.EXCU__V2*/ meltfptr[1]));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L3*/ meltfnum[2] = + /*_#NULL__L3*/ + meltfnum[2] = (/*null*/(/*_.BVAL__V5*/ meltfptr[4]) == NULL);; MELT_LOCATION("warmelt-normal.melt:3036:/ cond"); - /*cond*/ if (/*_#NULL__L3*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#NULL__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34429,7 +37988,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)) @@ -34438,7 +37998,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3043:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34475,16 +38036,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " excu="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.EXCU__V2*/ meltfptr[1]; - /*_.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 ""), 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 ""), 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-normal.melt:3043:/ 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 ; } ; } @@ -34497,7 +38062,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3043:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -34506,9 +38072,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[3] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L4*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V7*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34533,7 +38101,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.EXCU__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V9*/ meltfptr[7] = slot; + /*_.NAMED_NAME__V9*/ + meltfptr[7] = slot; }; ; @@ -34550,23 +38119,29 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V9*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*~CMANAMSTR*/ meltfclos->tabval[3]); - /*_.ERROR_AT__V10*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[2])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[2])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V10*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[2])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[2])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3037:/ quasiblock"); - /*_.PROGN___V11*/ meltfptr[10] = /*_.ERROR_AT__V10*/ meltfptr[6];; + /*_.PROGN___V11*/ + meltfptr[10] = /*_.ERROR_AT__V10*/ meltfptr[6];; /*^compute*/ - /*_._IF___V6*/ meltfptr[5] = /*_.PROGN___V11*/ meltfptr[10];; + /*_._IF___V6*/ + meltfptr[5] = /*_.PROGN___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3036:/ clear"); - /*clear*/ /*_.NAMED_NAME__V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.NAMED_NAME__V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V10*/ meltfptr[6] = 0 ; + /*clear*/ /*_.ERROR_AT__V10*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.PROGN___V11*/ + meltfptr[10] = 0 ; } ; } @@ -34577,19 +38152,25 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V4*/ meltfptr[3] = /*_.BVAL__V5*/ meltfptr[4];; + /*_.LET___V4*/ + meltfptr[3] = /*_.BVAL__V5*/ meltfptr[4];; MELT_LOCATION("warmelt-normal.melt:3035:/ clear"); - /*clear*/ /*_.BVAL__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.BVAL__V5*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#NULL__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; - /*_.EXVAL__V3*/ meltfptr[2] = /*_.LET___V4*/ meltfptr[3];; + /*clear*/ /*_._IF___V6*/ + meltfptr[5] = 0 ; + /*_.EXVAL__V3*/ + meltfptr[2] = /*_.LET___V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3034:/ clear"); - /*clear*/ /*_.LET___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.LET___V4*/ + meltfptr[3] = 0 ; } ; } @@ -34603,10 +38184,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L6*/ meltfnum[4] = + /*_#NULL__L6*/ + meltfnum[4] = (/*null*/(/*_.EXVAL__V3*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-normal.melt:3051:/ cond"); - /*cond*/ if (/*_#NULL__L6*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#NULL__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34622,10 +38205,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ meltfnum[3] = + /*_#IS_A__L7*/ + meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.EXCU__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:3055:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34637,7 +38222,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.EXCU__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V12*/ meltfptr[7] = slot; + /*_.NAMED_NAME__V12*/ + meltfptr[7] = slot; }; ; @@ -34649,7 +38235,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3055:/ clear"); - /*clear*/ /*_.NAMED_NAME__V12*/ meltfptr[7] = 0 ; + /*clear*/ /*_.NAMED_NAME__V12*/ + meltfptr[7] = 0 ; } ; } /*noelse*/ @@ -34660,7 +38247,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3051:/ clear"); - /*clear*/ /*_#IS_A__L7*/ meltfnum[3] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[3] = 0 ; } ; } /*noelse*/ @@ -34673,11 +38261,14 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:3033:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.EXVAL__V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_.EXVAL__V3*/ + meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#NULL__L6*/ + meltfnum[4] = 0 ; /*epilog*/ } @@ -34760,7 +38351,8 @@ meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR fromline 1756 */ - /* classy proc frame meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR */ MeltFrame_meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR + /* classy proc frame meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR */ + MeltFrame_meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR fromline 1785*/ #if ENABLE_CHECKING @@ -34773,7 +38365,8 @@ meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("NORMEXP_FUNMATCHEXPR", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -34783,26 +38376,30 @@ meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR(meltclosure_ptr_t meltclosp_, m /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3097:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -34834,7 +38431,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)) @@ -34843,7 +38441,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3098:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34876,16 +38475,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_funmatchexpr recv"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3098:/ 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 ; } ; } @@ -34898,7 +38501,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3098:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -34907,9 +38511,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*/ @@ -34939,10 +38545,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_FUNMATCHEXPR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:3099:/ 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);; @@ -34971,25 +38579,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3099; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3099:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3099:/ 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*/ @@ -35007,10 +38621,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:3100:/ 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);; @@ -35039,25 +38655,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3100; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3100:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3100:/ 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*/ @@ -35075,10 +38697,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:3101:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -35107,25 +38731,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3101; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3101:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3101:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35141,7 +38771,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3103:/ getslot"); @@ -35149,7 +38780,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, "SFMATX_FMATCHER"); - /*_.SFMAT__V19*/ meltfptr[18] = slot; + /*_.SFMAT__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3104:/ getslot"); @@ -35157,7 +38789,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, "SFMATX_FMATBIND"); - /*_.SFBIND__V20*/ meltfptr[19] = slot; + /*_.SFBIND__V20*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3105:/ getslot"); @@ -35165,10 +38798,12 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SARGOP_ARGS"); - /*_.SARGS__V21*/ meltfptr[20] = slot; + /*_.SARGS__V21*/ + meltfptr[20] = slot; }; ; - /*_.NBIND__V22*/ meltfptr[21] = + /*_.NBIND__V22*/ + meltfptr[21] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; #if MELT_HAVE_DEBUG @@ -35180,10 +38815,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[0] = + /*_#IS_A__L6*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SFMAT__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_FUNMATCHER*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normal.melt:3108:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V24*/ meltfptr[23] = (/*nil*/NULL);; @@ -35212,25 +38849,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3108; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SFMAT__V19*/ meltfptr[18]; - /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V24*/ meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; + /*_._IFELSE___V24*/ + meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3108:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ + meltfptr[24] = 0 ; } ; } ; - /*_.IFCPP___V23*/ meltfptr[22] = /*_._IFELSE___V24*/ meltfptr[23];; + /*_.IFCPP___V23*/ + meltfptr[22] = /*_._IFELSE___V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3108:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IFELSE___V24*/ + meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35248,10 +38891,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ meltfnum[1] = + /*_#IS_A__L7*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SFBIND__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:3109:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V27*/ meltfptr[23] = (/*nil*/NULL);; @@ -35280,25 +38925,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3109; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SFBIND__V20*/ meltfptr[19]; - /*_.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 MELTBPARSTR_PTR ""), 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V27*/ meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];; + /*_._IFELSE___V27*/ + meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3109:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/ + meltfptr[27] = 0 ; } ; } ; - /*_.IFCPP___V26*/ meltfptr[24] = /*_._IFELSE___V27*/ meltfptr[23];; + /*_.IFCPP___V26*/ + meltfptr[24] = /*_._IFELSE___V27*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3109:/ clear"); - /*clear*/ /*_#IS_A__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V27*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IFELSE___V27*/ + meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35326,7 +38977,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)) @@ -35335,7 +38987,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3110:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35368,16 +39021,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_funmatchexpr sfbind"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SFBIND__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V30*/ 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__V30*/ + 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___V29*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[23];; + /*_._IF___V29*/ + meltfptr[27] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3110:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[23] = 0 ; } ; } @@ -35390,7 +39047,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3110:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -35399,9 +39057,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V29*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V29*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35429,7 +39089,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SFBIND__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.FMATSYM__V32*/ meltfptr[27] = slot; + /*_.FMATSYM__V32*/ + meltfptr[27] = slot; }; ; @@ -35442,10 +39103,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L10*/ meltfnum[1] = + /*_#IS_A__L10*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.FMATSYM__V32*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:3112:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V34*/ meltfptr[33] = (/*nil*/NULL);; @@ -35474,25 +39137,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3112; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FMATSYM__V32*/ meltfptr[27]; - /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V35*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V34*/ meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; + /*_._IFELSE___V34*/ + meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3112:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ + meltfptr[34] = 0 ; } ; } ; - /*_.IFCPP___V33*/ meltfptr[32] = /*_._IFELSE___V34*/ meltfptr[33];; + /*_.IFCPP___V33*/ + meltfptr[32] = /*_._IFELSE___V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3112:/ clear"); - /*clear*/ /*_#IS_A__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IFELSE___V34*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35520,13 +39189,16 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FMATSYM__V32*/ meltfptr[27]; - /*_.FIND_ENV__V37*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FIND_ENV__V37*/ + meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#eqeq__L11*/ meltfnum[0] = + /*_#eqeq__L11*/ + meltfnum[0] = ((/*_.SFBIND__V20*/ meltfptr[19]) == (/*_.FIND_ENV__V37*/ meltfptr[33]));; MELT_LOCATION("warmelt-normal.melt:3113:/ cond"); - /*cond*/ if (/*_#eqeq__L11*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#eqeq__L11*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V38*/ meltfptr[37] = (/*nil*/NULL);; @@ -35557,27 +39229,34 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SFBIND__V20*/ meltfptr[19]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FMATSYM__V32*/ meltfptr[27]; - /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V39*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V38*/ meltfptr[37] = /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38];; + /*_._IFELSE___V38*/ + meltfptr[37] = /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3113:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V39*/ + meltfptr[38] = 0 ; } ; } ; - /*_.IFCPP___V36*/ meltfptr[34] = /*_._IFELSE___V38*/ meltfptr[37];; + /*_.IFCPP___V36*/ + meltfptr[34] = /*_._IFELSE___V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3113:/ clear"); - /*clear*/ /*_.FIND_ENV__V37*/ meltfptr[33] = 0 ; + /*clear*/ /*_.FIND_ENV__V37*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L11*/ meltfnum[0] = 0 ; + /*clear*/ /*_#eqeq__L11*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_._IFELSE___V38*/ + meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35602,7 +39281,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4]; - /*_.NFMAT__V41*/ meltfptr[33] = meltgc_send((melt_ptr_t)(/*_.FMATSYM__V32*/ meltfptr[27]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NFMAT__V41*/ + meltfptr[33] = meltgc_send((melt_ptr_t)(/*_.FMATSYM__V32*/ meltfptr[27]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -35625,7 +39305,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)) @@ -35634,7 +39315,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3115:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35667,16 +39349,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_funmatchexpr nfmat"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NFMAT__V41*/ meltfptr[33]; - /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V42*/ meltfptr[37] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];; + /*_._IF___V42*/ + meltfptr[37] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3115:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[42] = 0 ; } ; } @@ -35689,7 +39375,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3115:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -35698,9 +39385,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ meltfptr[37] = 0 ; + /*clear*/ /*_._IF___V42*/ + meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35746,7 +39435,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ meltfrout->tabval[14])), (3), "CLASS_NREP_UNSAFE_GET_FIELD"); - /*_.INST__V47*/ meltfptr[46] = + /*_.INST__V47*/ + meltfptr[46] = newobj; }; ; @@ -35769,7 +39459,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V47*/ meltfptr[46], "newly made instance"); ; - /*_.INST___V46*/ meltfptr[45] = /*_.INST__V47*/ meltfptr[46];; + /*_.INST___V46*/ + meltfptr[45] = /*_.INST__V47*/ meltfptr[46];; MELT_LOCATION("warmelt-normal.melt:3119:/ quasiblock"); @@ -35778,7 +39469,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V49*/ meltfptr[48] = + /*_.INST__V49*/ + meltfptr[48] = newobj; }; ; @@ -35806,7 +39498,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V49*/ meltfptr[48], "newly made instance"); ; - /*_.CBIND__V48*/ meltfptr[47] = /*_.INST__V49*/ meltfptr[48];; + /*_.CBIND__V48*/ + meltfptr[47] = /*_.INST__V49*/ meltfptr[48];; MELT_CHECK_SIGNAL(); ; @@ -35818,7 +39511,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[16])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V51*/ meltfptr[50] = + /*_.INST__V51*/ + meltfptr[50] = newobj; }; ; @@ -35846,7 +39540,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V51*/ meltfptr[50], "newly made instance"); ; - /*_.CLOCC__V50*/ meltfptr[49] = /*_.INST__V51*/ meltfptr[50];; + /*_.CLOCC__V50*/ + meltfptr[49] = /*_.INST__V51*/ meltfptr[50];; { MELT_LOCATION("warmelt-normal.melt:3135:/ locexp"); @@ -35874,7 +39569,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NARGBIND__V54*/ meltfptr[53]; /*^multiapply.appl*/ - /*_.NARGS__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.SARGS__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NARGS__V53*/ + meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.SARGS__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -35900,7 +39596,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L14*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -35909,7 +39606,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3139:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35946,16 +39644,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nargbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NARGBIND__V54*/ meltfptr[53]; - /*_.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 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 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-normal.melt:3139:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ + meltfptr[55] = 0 ; } ; } @@ -35968,7 +39670,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3139:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -35977,9 +39680,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_._IF___V55*/ + meltfptr[54] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -36009,7 +39714,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NARGBIND__V54*/ meltfptr[53]; - /*_.LIST_APPEND2LIST__V57*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NBIND__V22*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V57*/ + meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NBIND__V22*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3141:/ quasiblock"); @@ -36038,7 +39744,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ meltfrout->tabval[19])), (4), "CLASS_NREP_APPLY"); - /*_.INST__V61*/ meltfptr[60] = + /*_.INST__V61*/ + meltfptr[60] = newobj; }; ; @@ -36066,7 +39773,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V61*/ meltfptr[60], "newly made instance"); ; - /*_.INST___V60*/ meltfptr[59] = /*_.INST__V61*/ meltfptr[60];; + /*_.INST___V60*/ + meltfptr[59] = /*_.INST__V61*/ meltfptr[60];; MELT_LOCATION("warmelt-normal.melt:3143:/ quasiblock"); @@ -36075,7 +39783,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V63*/ meltfptr[62] = + /*_.INST__V63*/ + meltfptr[62] = newobj; }; ; @@ -36103,7 +39812,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V63*/ meltfptr[62], "newly made instance"); ; - /*_.ABIND__V62*/ meltfptr[61] = /*_.INST__V63*/ meltfptr[62];; + /*_.ABIND__V62*/ + meltfptr[61] = /*_.INST__V63*/ meltfptr[62];; MELT_CHECK_SIGNAL(); ; @@ -36115,7 +39825,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[16])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V65*/ meltfptr[64] = + /*_.INST__V65*/ + meltfptr[64] = newobj; }; ; @@ -36143,7 +39854,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V65*/ meltfptr[64], "newly made instance"); ; - /*_.CALOCC__V64*/ meltfptr[63] = /*_.INST__V65*/ meltfptr[64];; + /*_.CALOCC__V64*/ + meltfptr[63] = /*_.INST__V65*/ meltfptr[64];; { MELT_LOCATION("warmelt-normal.melt:3161:/ locexp"); @@ -36170,7 +39882,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)) @@ -36179,7 +39892,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3162:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36216,16 +39930,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V67*/ + meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V66*/ meltfptr[65] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66];; + /*_._IF___V66*/ + meltfptr[65] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3162:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V67*/ + meltfptr[66] = 0 ; } ; } @@ -36238,7 +39956,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3162:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -36247,9 +39966,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_._IF___V66*/ + meltfptr[65] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -36275,7 +39996,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3163:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CALOCC__V64*/ meltfptr[63];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CALOCC__V64*/ meltfptr[63];; MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -36283,84 +40005,119 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V58*/ meltfptr[54] = /*_.RETURN___V68*/ meltfptr[66];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V58*/ + meltfptr[54] = /*_.RETURN___V68*/ meltfptr[66];; MELT_LOCATION("warmelt-normal.melt:3141:/ clear"); - /*clear*/ /*_.ASYM__V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.ASYM__V59*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.INST___V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.ABIND__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.ABIND__V62*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.CALOCC__V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.CALOCC__V64*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V68*/ meltfptr[66] = 0 ; + /*clear*/ /*_.RETURN___V68*/ + meltfptr[66] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V52*/ meltfptr[51] = /*_.LET___V58*/ meltfptr[54];; + /*_.MULTI___V52*/ + meltfptr[51] = /*_.LET___V58*/ meltfptr[54];; MELT_LOCATION("warmelt-normal.melt:3136:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V57*/ meltfptr[55] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V57*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V58*/ meltfptr[54] = 0 ; + /*clear*/ /*_.LET___V58*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.NARGBIND__V54*/ meltfptr[53] = 0 ; - /*_.LET___V44*/ meltfptr[42] = /*_.MULTI___V52*/ meltfptr[51];; + /*clear*/ /*_.NARGBIND__V54*/ + meltfptr[53] = 0 ; + /*_.LET___V44*/ + meltfptr[42] = /*_.MULTI___V52*/ meltfptr[51];; MELT_LOCATION("warmelt-normal.melt:3118:/ clear"); - /*clear*/ /*_.CSYM__V45*/ meltfptr[37] = 0 ; + /*clear*/ /*_.CSYM__V45*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.INST___V46*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.CBIND__V48*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.CLOCC__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V52*/ meltfptr[51] = 0 ; - /*_.LET___V40*/ meltfptr[38] = /*_.LET___V44*/ meltfptr[42];; + /*clear*/ /*_.MULTI___V52*/ + meltfptr[51] = 0 ; + /*_.LET___V40*/ + meltfptr[38] = /*_.LET___V44*/ meltfptr[42];; MELT_LOCATION("warmelt-normal.melt:3114:/ clear"); - /*clear*/ /*_.NFMAT__V41*/ meltfptr[33] = 0 ; + /*clear*/ /*_.NFMAT__V41*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V44*/ meltfptr[42] = 0 ; - /*_.LET___V31*/ meltfptr[23] = /*_.LET___V40*/ meltfptr[38];; + /*clear*/ /*_.LET___V44*/ + meltfptr[42] = 0 ; + /*_.LET___V31*/ + meltfptr[23] = /*_.LET___V40*/ meltfptr[38];; MELT_LOCATION("warmelt-normal.melt:3111:/ clear"); - /*clear*/ /*_.FMATSYM__V32*/ meltfptr[27] = 0 ; + /*clear*/ /*_.FMATSYM__V32*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.IFCPP___V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_.IFCPP___V36*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V40*/ meltfptr[38] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.LET___V31*/ meltfptr[23];; + /*clear*/ /*_.LET___V40*/ + meltfptr[38] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.LET___V31*/ meltfptr[23];; MELT_LOCATION("warmelt-normal.melt:3102:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SFMAT__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SFMAT__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SFBIND__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SFBIND__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.SARGS__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.SARGS__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.NBIND__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.IFCPP___V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V26*/ meltfptr[24] = 0 ; + /*clear*/ /*_.IFCPP___V26*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V31*/ meltfptr[23] = 0 ; + /*clear*/ /*_.LET___V31*/ + meltfptr[23] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3097:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:3097:/ locexp"); @@ -36375,17 +40132,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -36467,7 +40229,8 @@ meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY fromline 1756 */ - /* classy proc frame meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY */ MeltFrame_meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY + /* classy proc frame meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY */ + MeltFrame_meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY fromline 1785*/ #if ENABLE_CHECKING @@ -36480,7 +40243,8 @@ meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("NORMEXP_APPLY", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -36490,26 +40254,30 @@ meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3169:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -36541,7 +40309,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)) @@ -36550,7 +40319,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3170:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36597,16 +40367,20 @@ meltlab_endgetargs: argtab[10].meltbp_cstring = "\n.. psloc="; /*^apply.arg*/ argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__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_CSTRING MELTBPARSTR_PTR 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_CSTRING MELTBPARSTR_PTR 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-normal.melt:3170:/ 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 ; } ; } @@ -36619,7 +40393,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3170:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -36628,9 +40403,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*/ @@ -36671,10 +40448,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_APPLY*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:3172:/ 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);; @@ -36703,25 +40482,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3172; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3172:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3172:/ 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*/ @@ -36739,10 +40524,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:3173:/ 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);; @@ -36771,25 +40558,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3173; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3173:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3173:/ 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*/ @@ -36807,10 +40600,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:3174:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -36839,25 +40634,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3174; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3174:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3174:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -36873,7 +40674,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[5] = slot; + /*_.SLOC__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3176:/ getslot"); @@ -36881,7 +40683,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, "SAPP_FUN"); - /*_.SFUN__V19*/ meltfptr[18] = slot; + /*_.SFUN__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3177:/ getslot"); @@ -36889,16 +40692,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SARGOP_ARGS"); - /*_.SARGS__V20*/ meltfptr[19] = slot; + /*_.SARGS__V20*/ + meltfptr[19] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[0] = + /*_#IS_A__L6*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:3178:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.SFUSYMB__V21*/ meltfptr[20] = /*_.SFUN__V19*/ meltfptr[18];; @@ -36907,7 +40713,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3178:/ cond.else"); - /*_.SFUSYMB__V21*/ meltfptr[20] = (/*!konst_6__FUN_*/ meltfrout->tabval[6]);; + /*_.SFUSYMB__V21*/ + meltfptr[20] = (/*!konst_6__FUN_*/ meltfrout->tabval[6]);; } ; @@ -36930,7 +40737,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)) @@ -36939,7 +40747,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3180:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36976,16 +40785,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "; sfun="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SFUN__V19*/ meltfptr[18]; - /*_.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_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V23*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V22*/ meltfptr[21] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; + /*_._IF___V22*/ + meltfptr[21] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3180:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ + meltfptr[22] = 0 ; } ; } @@ -36998,7 +40811,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3180:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -37007,9 +40821,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_._IF___V22*/ + meltfptr[21] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37048,7 +40864,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDFUN__V26*/ meltfptr[25];/*^multimsend.send*/ - /*_.NFUN__V25*/ meltfptr[21] = meltgc_send ((melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[7]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NFUN__V25*/ + meltfptr[21] = meltgc_send ((melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[7]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -37074,7 +40891,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)) @@ -37083,7 +40901,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3184:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37120,16 +40939,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n nbindfun="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDFUN__V26*/ meltfptr[25]; - /*_.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 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V27*/ meltfptr[26] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; + /*_._IF___V27*/ + meltfptr[26] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3184:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ + meltfptr[27] = 0 ; } ; } @@ -37142,7 +40965,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3184:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -37151,9 +40975,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IF___V27*/ + meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37183,11 +41009,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L11*/ meltfnum[1] = + /*_#IS_LIST_OR_NULL__L11*/ + meltfnum[1] = ((/*_.NBINDFUN__V26*/ meltfptr[25]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDFUN__V26*/ meltfptr[25])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-normal.melt:3185:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L11*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_LIST_OR_NULL__L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V30*/ meltfptr[26] = (/*nil*/NULL);; @@ -37216,25 +41044,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3185; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDFUN__V26*/ meltfptr[25]; - /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V31*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V30*/ meltfptr[26] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30];; + /*_._IFELSE___V30*/ + meltfptr[26] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3185:/ 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-normal.melt:3185:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V30*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IFELSE___V30*/ + meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37255,7 +41089,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.NFUNCTYP__V33*/ meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.NFUN__V25*/ meltfptr[21]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NFUNCTYP__V33*/ + meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.NFUN__V25*/ meltfptr[21]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -37278,7 +41113,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -37287,7 +41123,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3188:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37320,16 +41157,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_apply nfunctyp"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NFUNCTYP__V33*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V34*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; + /*_._IF___V34*/ + meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3188:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = 0 ; } ; } @@ -37342,7 +41183,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3188:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -37351,9 +41193,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V34*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37376,10 +41220,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#exeq__L14*/ meltfnum[1] = + /*_#exeq__L14*/ + meltfnum[1] = ((/*_.NFUNCTYP__V33*/ meltfptr[26]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-normal.melt:3189:/ cond"); - /*cond*/ if (/*_#exeq__L14*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#exeq__L14*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37406,7 +41252,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L15*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L15*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -37415,7 +41262,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3191:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L15*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37460,16 +41308,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = " recv="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V38*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V37*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; + /*_._IF___V37*/ + meltfptr[33] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3191:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ + meltfptr[37] = 0 ; } ; } @@ -37482,7 +41334,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3191:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -37491,9 +41344,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V37*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V37*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37514,7 +41369,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normal.melt:3193:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NFUNCTYP__V33*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11]))) ) /*then*/ @@ -37525,7 +41381,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NFUNCTYP__V33*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V39*/ meltfptr[37] = slot; + /*_.NAMED_NAME__V39*/ + meltfptr[37] = slot; }; ; } @@ -37547,16 +41404,19 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "applied function should be a value, but has bad ctype $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V39*/ meltfptr[37]; - /*_.ERROR_AT__V40*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V40*/ + meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L17*/ meltfnum[15] = + /*_#IS_STRING__L17*/ + meltfnum[15] = (melt_magic_discr((melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-normal.melt:3195:/ cond"); - /*cond*/ if (/*_#IS_STRING__L17*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L17*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37575,14 +41435,17 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "bad applied string \'$1\', not a function"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SFUN__V19*/ meltfptr[18]; - /*_.ERROR_AT__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V42*/ + meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V41*/ meltfptr[40] = /*_.ERROR_AT__V42*/ meltfptr[41];; + /*_._IFELSE___V41*/ + meltfptr[40] = /*_.ERROR_AT__V42*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3195:/ clear"); - /*clear*/ /*_.ERROR_AT__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.ERROR_AT__V42*/ + meltfptr[41] = 0 ; } ; } @@ -37596,10 +41459,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L18*/ meltfnum[7] = + /*_#IS_A__L18*/ + meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-normal.melt:3197:/ cond"); - /*cond*/ if (/*_#IS_A__L18*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_A__L18*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37607,7 +41472,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3199:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11]))) ) /*then*/ @@ -37618,7 +41484,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V44*/ meltfptr[43] = slot; + /*_.NAMED_NAME__V44*/ + meltfptr[43] = slot; }; ; } @@ -37640,16 +41507,20 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "bad applied function, named $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V44*/ meltfptr[43]; - /*_.ERROR_AT__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V45*/ + meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V43*/ meltfptr[41] = /*_.ERROR_AT__V45*/ meltfptr[44];; + /*_._IFELSE___V43*/ + meltfptr[41] = /*_.ERROR_AT__V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3197:/ clear"); - /*clear*/ /*_.NAMED_NAME__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.NAMED_NAME__V44*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.ERROR_AT__V45*/ + meltfptr[44] = 0 ; } ; } @@ -37663,10 +41534,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L19*/ meltfnum[18] = + /*_#IS_A__L19*/ + meltfnum[18] = melt_is_instance_of((melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:3200:/ cond"); - /*cond*/ if (/*_#IS_A__L19*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#IS_A__L19*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37674,7 +41547,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3201:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[12]))) ) /*then*/ @@ -37685,7 +41559,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOCA_LOCATION__V47*/ meltfptr[44] = slot; + /*_.LOCA_LOCATION__V47*/ + meltfptr[44] = slot; }; ; } @@ -37705,16 +41580,20 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "here is the wrong applied function"; - /*_.ERROR_AT__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.LOCA_LOCATION__V47*/ meltfptr[44]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V48*/ + meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.LOCA_LOCATION__V47*/ meltfptr[44]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V46*/ meltfptr[43] = /*_.ERROR_AT__V48*/ meltfptr[47];; + /*_._IFELSE___V46*/ + meltfptr[43] = /*_.ERROR_AT__V48*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3200:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V47*/ meltfptr[44] = 0 ; + /*clear*/ /*_.LOCA_LOCATION__V47*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.ERROR_AT__V48*/ + meltfptr[47] = 0 ; } ; } @@ -37725,24 +41604,30 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_._IFELSE___V43*/ meltfptr[41] = /*_._IFELSE___V46*/ meltfptr[43];; + /*_._IFELSE___V43*/ + meltfptr[41] = /*_._IFELSE___V46*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3197:/ clear"); - /*clear*/ /*_#IS_A__L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IS_A__L19*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V46*/ meltfptr[43] = 0 ; + /*clear*/ /*_._IFELSE___V46*/ + meltfptr[43] = 0 ; } ; } ; - /*_._IFELSE___V41*/ meltfptr[40] = /*_._IFELSE___V43*/ meltfptr[41];; + /*_._IFELSE___V41*/ + meltfptr[40] = /*_._IFELSE___V43*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3195:/ clear"); - /*clear*/ /*_#IS_A__L18*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L18*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V43*/ meltfptr[41] = 0 ; + /*clear*/ /*_._IFELSE___V43*/ + meltfptr[41] = 0 ; } ; } @@ -37750,21 +41635,28 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3190:/ quasiblock"); - /*_.PROGN___V49*/ meltfptr[44] = /*_._IFELSE___V41*/ meltfptr[40];; + /*_.PROGN___V49*/ + meltfptr[44] = /*_._IFELSE___V41*/ meltfptr[40];; /*^compute*/ - /*_._IF___V36*/ meltfptr[34] = /*_.PROGN___V49*/ meltfptr[44];; + /*_._IF___V36*/ + meltfptr[34] = /*_.PROGN___V49*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3189:/ clear"); - /*clear*/ /*_.NAMED_NAME__V39*/ meltfptr[37] = 0 ; + /*clear*/ /*_.NAMED_NAME__V39*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V40*/ meltfptr[33] = 0 ; + /*clear*/ /*_.ERROR_AT__V40*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L17*/ meltfnum[15] = 0 ; + /*clear*/ /*_#IS_STRING__L17*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IFELSE___V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V49*/ meltfptr[44] = 0 ; + /*clear*/ /*_.PROGN___V49*/ + meltfptr[44] = 0 ; } ; } @@ -37775,14 +41667,18 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V32*/ meltfptr[30] = /*_._IF___V36*/ meltfptr[34];; + /*_.LET___V32*/ + meltfptr[30] = /*_._IF___V36*/ meltfptr[34];; MELT_LOCATION("warmelt-normal.melt:3186:/ clear"); - /*clear*/ /*_.NFUNCTYP__V33*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NFUNCTYP__V33*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L14*/ meltfnum[1] = 0 ; + /*clear*/ /*_#exeq__L14*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IF___V36*/ + meltfptr[34] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:3204:/ cppif.then"); @@ -37803,7 +41699,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ meltfnum[18] = + /*_#MELT_NEED_DBG__L20*/ + meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -37812,7 +41709,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3204:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37849,16 +41747,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "; sargs="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SARGS__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V51*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V51*/ + 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V50*/ meltfptr[47] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[43];; + /*_._IF___V50*/ + meltfptr[47] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3204:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ + meltfptr[43] = 0 ; } ; } @@ -37871,7 +41773,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3204:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -37880,9 +41783,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V50*/ meltfptr[47] = 0 ; + /*clear*/ /*_._IF___V50*/ + meltfptr[47] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37923,7 +41828,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDARGS__V54*/ meltfptr[33]; /*^multiapply.appl*/ - /*_.NARGS__V53*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NARGS__V53*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -37949,7 +41855,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L22*/ meltfnum[15] = + /*_#MELT_NEED_DBG__L22*/ + meltfnum[15] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -37958,7 +41865,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3208:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L22*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L22*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38005,16 +41913,20 @@ meltlab_endgetargs: argtab[10].meltbp_cstring = "\n.. sloc="; /*^apply.arg*/ argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.MELT_DEBUG_FUN__V56*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V56*/ + meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V55*/ meltfptr[40] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[44];; + /*_._IF___V55*/ + meltfptr[40] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3208:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L23*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L23*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ meltfptr[44] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ + meltfptr[44] = 0 ; } ; } @@ -38027,7 +41939,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3208:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -38036,9 +41949,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L22*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L22*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V55*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IF___V55*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38068,11 +41983,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L24*/ meltfnum[7] = + /*_#IS_LIST_OR_NULL__L24*/ + meltfnum[7] = ((/*_.NBINDARGS__V54*/ meltfptr[33]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDARGS__V54*/ meltfptr[33])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-normal.melt:3210:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L24*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_LIST_OR_NULL__L24*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V58*/ meltfptr[34] = (/*nil*/NULL);; @@ -38101,25 +42018,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3210; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDARGS__V54*/ meltfptr[33]; - /*_.MELT_ASSERT_FAILURE_FUN__V59*/ 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V59*/ + 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V58*/ meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V59*/ meltfptr[43];; + /*_._IFELSE___V58*/ + meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V59*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3210:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V59*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V59*/ + meltfptr[43] = 0 ; } ; } ; - /*_.IFCPP___V57*/ meltfptr[26] = /*_._IFELSE___V58*/ meltfptr[34];; + /*_.IFCPP___V57*/ + meltfptr[26] = /*_._IFELSE___V58*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3210:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L24*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L24*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V58*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IFELSE___V58*/ + meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38130,7 +42053,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3212:/ quasiblock"); - /*_.NARGFIRST__V61*/ meltfptr[44] = + /*_.NARGFIRST__V61*/ + meltfptr[44] = (melt_multiple_nth((melt_ptr_t)(/*_.NARGS__V53*/ meltfptr[37]), (0)));; #if MELT_HAVE_DEBUG @@ -38152,7 +42076,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L25*/ meltfnum[18] = + /*_#MELT_NEED_DBG__L25*/ + meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -38161,7 +42086,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3214:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L25*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L25*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38194,16 +42120,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_apply nargfirst"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NARGFIRST__V61*/ meltfptr[44]; - /*_.MELT_DEBUG_FUN__V63*/ 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__V63*/ + 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___V62*/ meltfptr[40] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[43];; + /*_._IF___V62*/ + meltfptr[40] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3214:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L26*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L26*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ + meltfptr[43] = 0 ; } ; } @@ -38216,7 +42146,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3214:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -38225,9 +42156,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L25*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L25*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V62*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IF___V62*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38251,7 +42184,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3215:/ cond"); - /*cond*/ if (/*_.NARGFIRST__V61*/ meltfptr[44]) /*then*/ + /*cond*/ + if (/*_.NARGFIRST__V61*/ meltfptr[44]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38271,7 +42205,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.NARGFIRSTCTYPE__V66*/ meltfptr[40] = meltgc_send((melt_ptr_t)(/*_.NARGFIRST__V61*/ meltfptr[44]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NARGFIRSTCTYPE__V66*/ + meltfptr[40] = meltgc_send((melt_ptr_t)(/*_.NARGFIRST__V61*/ meltfptr[44]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -38294,7 +42229,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L27*/ meltfnum[15] = + /*_#MELT_NEED_DBG__L27*/ + meltfnum[15] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -38303,7 +42239,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3218:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L27*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L27*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38336,16 +42273,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_apply nargfirstctype="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NARGFIRSTCTYPE__V66*/ meltfptr[40]; - /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V68*/ + meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V67*/ meltfptr[66] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67];; + /*_._IF___V67*/ + meltfptr[66] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3218:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L28*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L28*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ + meltfptr[67] = 0 ; } ; } @@ -38358,7 +42299,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3218:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -38367,9 +42309,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L27*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L27*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_._IF___V67*/ + meltfptr[66] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38392,10 +42336,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#exeq__L29*/ meltfnum[1] = + /*_#exeq__L29*/ + meltfnum[1] = ((/*_.NARGFIRSTCTYPE__V66*/ meltfptr[40]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-normal.melt:3219:/ cond"); - /*cond*/ if (/*_#exeq__L29*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#exeq__L29*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38403,7 +42349,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3221:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NARGFIRSTCTYPE__V66*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11]))) ) /*then*/ @@ -38414,7 +42361,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NARGFIRSTCTYPE__V66*/ meltfptr[40]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V70*/ meltfptr[66] = slot; + /*_.NAMED_NAME__V70*/ + meltfptr[66] = slot; }; ; } @@ -38436,16 +42384,20 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "first argument of function application should be a value not a $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V70*/ meltfptr[66]; - /*_.ERROR_AT__V71*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V71*/ + meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V69*/ meltfptr[67] = /*_.ERROR_AT__V71*/ meltfptr[70];; + /*_._IF___V69*/ + meltfptr[67] = /*_.ERROR_AT__V71*/ meltfptr[70];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3219:/ clear"); - /*clear*/ /*_.NAMED_NAME__V70*/ meltfptr[66] = 0 ; + /*clear*/ /*_.NAMED_NAME__V70*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V71*/ meltfptr[70] = 0 ; + /*clear*/ /*_.ERROR_AT__V71*/ + meltfptr[70] = 0 ; } ; } @@ -38456,19 +42408,25 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V65*/ meltfptr[43] = /*_._IF___V69*/ meltfptr[67];; + /*_.LET___V65*/ + meltfptr[43] = /*_._IF___V69*/ meltfptr[67];; MELT_LOCATION("warmelt-normal.melt:3216:/ clear"); - /*clear*/ /*_.NARGFIRSTCTYPE__V66*/ meltfptr[40] = 0 ; + /*clear*/ /*_.NARGFIRSTCTYPE__V66*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L29*/ meltfnum[1] = 0 ; + /*clear*/ /*_#exeq__L29*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V69*/ meltfptr[67] = 0 ; - /*_._IF___V64*/ meltfptr[34] = /*_.LET___V65*/ meltfptr[43];; + /*clear*/ /*_._IF___V69*/ + meltfptr[67] = 0 ; + /*_._IF___V64*/ + meltfptr[34] = /*_.LET___V65*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3215:/ clear"); - /*clear*/ /*_.LET___V65*/ meltfptr[43] = 0 ; + /*clear*/ /*_.LET___V65*/ + meltfptr[43] = 0 ; } ; } @@ -38479,12 +42437,15 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V60*/ meltfptr[47] = /*_._IF___V64*/ meltfptr[34];; + /*_.LET___V60*/ + meltfptr[47] = /*_._IF___V64*/ meltfptr[34];; MELT_LOCATION("warmelt-normal.melt:3212:/ clear"); - /*clear*/ /*_.NARGFIRST__V61*/ meltfptr[44] = 0 ; + /*clear*/ /*_.NARGFIRST__V61*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V64*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IF___V64*/ + meltfptr[34] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:3225:/ cppif.then"); @@ -38505,7 +42466,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L30*/ meltfnum[18] = + /*_#MELT_NEED_DBG__L30*/ + meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -38514,7 +42476,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3225:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L30*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L30*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38559,16 +42522,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n.. sloc="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.MELT_DEBUG_FUN__V73*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V73*/ + meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V72*/ meltfptr[66] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[70];; + /*_._IF___V72*/ + meltfptr[66] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[70];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3225:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L31*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L31*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ meltfptr[70] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ + meltfptr[70] = 0 ; } ; } @@ -38581,7 +42548,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3225:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -38590,9 +42558,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L30*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L30*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V72*/ meltfptr[66] = 0 ; + /*clear*/ /*_._IF___V72*/ + meltfptr[66] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38624,7 +42594,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.CHECK_CTYPE_NARGS__V74*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!CHECK_CTYPE_NARGS*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NARGS__V53*/ meltfptr[37]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CHECK_CTYPE_NARGS__V74*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!CHECK_CTYPE_NARGS*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NARGS__V53*/ meltfptr[37]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -38647,7 +42618,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L32*/ meltfnum[15] = + /*_#MELT_NEED_DBG__L32*/ + meltfnum[15] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -38656,7 +42628,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3228:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L32*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L32*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38691,16 +42664,20 @@ meltlab_endgetargs: argtab[4].meltbp_cstring = " after check_ctype_nargs sloc="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.MELT_DEBUG_FUN__V76*/ 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_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V76*/ + 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_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V75*/ meltfptr[67] = /*_.MELT_DEBUG_FUN__V76*/ meltfptr[43];; + /*_._IF___V75*/ + meltfptr[67] = /*_.MELT_DEBUG_FUN__V76*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3228:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L33*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L33*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V76*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V76*/ + meltfptr[43] = 0 ; } ; } @@ -38713,7 +42690,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3228:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -38722,9 +42700,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L32*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L32*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V75*/ meltfptr[67] = 0 ; + /*clear*/ /*_._IF___V75*/ + meltfptr[67] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38754,11 +42734,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDFUN__V26*/ meltfptr[25]; - /*_.LIST_APPEND2LIST__V77*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NBINDARGS__V54*/ meltfptr[33]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V77*/ + meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NBINDARGS__V54*/ meltfptr[33]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.NBINDARGS__V54*/ meltfptr[33] = /*_.SETQ___V78*/ meltfptr[34] = /*_.LIST_APPEND2LIST__V77*/ meltfptr[44];; + /*_.NBINDARGS__V54*/ + meltfptr[33] = /*_.SETQ___V78*/ meltfptr[34] = /*_.LIST_APPEND2LIST__V77*/ meltfptr[44];; MELT_LOCATION("warmelt-normal.melt:3231:/ quasiblock"); @@ -38782,7 +42764,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHECKSIGNAL*/ meltfrout->tabval[18])), (1), "CLASS_NREP_CHECKSIGNAL"); - /*_.INST__V82*/ meltfptr[67] = + /*_.INST__V82*/ + meltfptr[67] = newobj; }; ; @@ -38795,7 +42778,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V82*/ meltfptr[67], "newly made instance"); ; - /*_.NCHINT__V81*/ meltfptr[43] = /*_.INST__V82*/ meltfptr[67];; + /*_.NCHINT__V81*/ + meltfptr[43] = /*_.INST__V82*/ meltfptr[67];; MELT_CHECK_SIGNAL(); ; @@ -38807,7 +42791,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[19])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V84*/ meltfptr[83] = + /*_.INST__V84*/ + meltfptr[83] = newobj; }; ; @@ -38835,15 +42820,18 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V84*/ meltfptr[83], "newly made instance"); ; - /*_.CINTBIND__V83*/ meltfptr[82] = /*_.INST__V84*/ meltfptr[83];; + /*_.CINTBIND__V83*/ + meltfptr[82] = /*_.INST__V84*/ meltfptr[83];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L34*/ meltfnum[7] = + /*_#NULL__L34*/ + meltfnum[7] = (/*null*/(/*_.NBINDARGS__V54*/ meltfptr[33]) == NULL);; MELT_LOCATION("warmelt-normal.melt:3240:/ cond"); - /*cond*/ if (/*_#NULL__L34*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#NULL__L34*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38862,11 +42850,13 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0__CINTBIND_x1*/ - /*_.CINTBIND__V87*/ meltfptr[86] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x1; + /*_.CINTBIND__V87*/ + meltfptr[86] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x1; meltletrec_1_ptr->rpair_0__CINTBIND_x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ - /*_.LIST___V88*/ meltfptr[87] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; + /*_.LIST___V88*/ + meltfptr[87] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; meltletrec_1_ptr->rlist_1__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); @@ -38888,28 +42878,37 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V88*/ meltfptr[87]); ; - /*_.LIST___V86*/ meltfptr[85] = /*_.LIST___V88*/ meltfptr[87];; + /*_.LIST___V86*/ + meltfptr[85] = /*_.LIST___V88*/ meltfptr[87];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3241:/ clear"); - /*clear*/ /*_.CINTBIND__V87*/ meltfptr[86] = 0 ; + /*clear*/ /*_.CINTBIND__V87*/ + meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V88*/ meltfptr[87] = 0 ; + /*clear*/ /*_.LIST___V88*/ + meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V87*/ meltfptr[86] = 0 ; + /*clear*/ /*_.CINTBIND__V87*/ + meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V88*/ meltfptr[87] = 0 ; + /*clear*/ /*_.LIST___V88*/ + meltfptr[87] = 0 ; } /*end multiallocblock*/ ; /*^compute*/ - /*_.NBINDARGS__V54*/ meltfptr[33] = /*_.SETQ___V89*/ meltfptr[86] = /*_.LIST___V86*/ meltfptr[85];; - /*_._IFELSE___V85*/ meltfptr[84] = /*_.SETQ___V89*/ meltfptr[86];; + /*_.NBINDARGS__V54*/ + meltfptr[33] = /*_.SETQ___V89*/ meltfptr[86] = /*_.LIST___V86*/ meltfptr[85];; + /*_._IFELSE___V85*/ + meltfptr[84] = /*_.SETQ___V89*/ meltfptr[86];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3240:/ clear"); - /*clear*/ /*_.LIST___V86*/ meltfptr[85] = 0 ; + /*clear*/ /*_.LIST___V86*/ + meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V89*/ meltfptr[86] = 0 ; + /*clear*/ /*_.SETQ___V89*/ + meltfptr[86] = 0 ; } ; } @@ -38928,25 +42927,32 @@ meltlab_endgetargs: meltgc_append_list((melt_ptr_t)(/*_.NBINDARGS__V54*/ meltfptr[33]), (melt_ptr_t)(/*_.CINTBIND__V83*/ meltfptr[82])); } ; - /*clear*/ /*_._IFELSE___V85*/ meltfptr[84] = 0 ; + /*clear*/ /*_._IFELSE___V85*/ + meltfptr[84] = 0 ; /*epilog*/ } ; } ; /*^compute*/ - /*_.LET___V79*/ meltfptr[70] = /*_._IFELSE___V85*/ meltfptr[84];; + /*_.LET___V79*/ + meltfptr[70] = /*_._IFELSE___V85*/ meltfptr[84];; MELT_LOCATION("warmelt-normal.melt:3231:/ clear"); - /*clear*/ /*_.CINTSYM__V80*/ meltfptr[66] = 0 ; + /*clear*/ /*_.CINTSYM__V80*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHINT__V81*/ meltfptr[43] = 0 ; + /*clear*/ /*_.NCHINT__V81*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_.CINTBIND__V83*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L34*/ meltfnum[7] = 0 ; + /*clear*/ /*_#NULL__L34*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V85*/ meltfptr[84] = 0 ; + /*clear*/ /*_._IFELSE___V85*/ + meltfptr[84] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:3244:/ cppif.then"); @@ -38957,10 +42963,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L35*/ meltfnum[18] = + /*_#IS_LIST__L35*/ + meltfnum[18] = (melt_magic_discr((melt_ptr_t)(/*_.NBINDARGS__V54*/ meltfptr[33])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:3244:/ cond"); - /*cond*/ if (/*_#IS_LIST__L35*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L35*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V91*/ meltfptr[85] = (/*nil*/NULL);; @@ -38989,25 +42997,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3244; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDARGS__V54*/ meltfptr[33]; - /*_.MELT_ASSERT_FAILURE_FUN__V92*/ meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V92*/ + meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V91*/ meltfptr[85] = /*_.MELT_ASSERT_FAILURE_FUN__V92*/ meltfptr[86];; + /*_._IFELSE___V91*/ + meltfptr[85] = /*_.MELT_ASSERT_FAILURE_FUN__V92*/ meltfptr[86];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3244:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V92*/ meltfptr[86] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V92*/ + meltfptr[86] = 0 ; } ; } ; - /*_.IFCPP___V90*/ meltfptr[87] = /*_._IFELSE___V91*/ meltfptr[85];; + /*_.IFCPP___V90*/ + meltfptr[87] = /*_._IFELSE___V91*/ meltfptr[85];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3244:/ clear"); - /*clear*/ /*_#IS_LIST__L35*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IS_LIST__L35*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V91*/ meltfptr[85] = 0 ; + /*clear*/ /*_._IFELSE___V91*/ + meltfptr[85] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39041,7 +43055,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ meltfrout->tabval[21])), (4), "CLASS_NREP_APPLY"); - /*_.INST__V96*/ meltfptr[84] = + /*_.INST__V96*/ + meltfptr[84] = newobj; }; ; @@ -39069,7 +43084,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V96*/ meltfptr[84], "newly made instance"); ; - /*_.INST___V95*/ meltfptr[82] = /*_.INST__V96*/ meltfptr[84];; + /*_.INST___V95*/ + meltfptr[82] = /*_.INST__V96*/ meltfptr[84];; MELT_LOCATION("warmelt-normal.melt:3247:/ quasiblock"); @@ -39078,7 +43094,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[19])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V98*/ meltfptr[85] = + /*_.INST__V98*/ + meltfptr[85] = newobj; }; ; @@ -39106,7 +43123,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V98*/ meltfptr[85], "newly made instance"); ; - /*_.CBIND__V97*/ meltfptr[86] = /*_.INST__V98*/ meltfptr[85];; + /*_.CBIND__V97*/ + meltfptr[86] = /*_.INST__V98*/ meltfptr[85];; MELT_CHECK_SIGNAL(); ; @@ -39118,7 +43136,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[22])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V100*/ meltfptr[99] = + /*_.INST__V100*/ + meltfptr[99] = newobj; }; ; @@ -39146,7 +43165,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V100*/ meltfptr[99], "newly made instance"); ; - /*_.CLOCC__V99*/ meltfptr[98] = /*_.INST__V100*/ meltfptr[99];; + /*_.CLOCC__V99*/ + meltfptr[98] = /*_.INST__V100*/ meltfptr[99];; { MELT_LOCATION("warmelt-normal.melt:3265:/ locexp"); @@ -39159,7 +43179,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3266:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V99*/ meltfptr[98];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V99*/ meltfptr[98];; MELT_LOCATION("warmelt-normal.melt:3266:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -39167,78 +43188,108 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V93*/ meltfptr[66] = /*_.RETURN___V101*/ meltfptr[100];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V93*/ + meltfptr[66] = /*_.RETURN___V101*/ meltfptr[100];; MELT_LOCATION("warmelt-normal.melt:3246:/ clear"); - /*clear*/ /*_.CSYM__V94*/ meltfptr[43] = 0 ; + /*clear*/ /*_.CSYM__V94*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V95*/ meltfptr[82] = 0 ; + /*clear*/ /*_.INST___V95*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V97*/ meltfptr[86] = 0 ; + /*clear*/ /*_.CBIND__V97*/ + meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V99*/ meltfptr[98] = 0 ; + /*clear*/ /*_.CLOCC__V99*/ + meltfptr[98] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V101*/ meltfptr[100] = 0 ; + /*clear*/ /*_.RETURN___V101*/ + meltfptr[100] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V52*/ meltfptr[41] = /*_.LET___V93*/ meltfptr[66];; + /*_.MULTI___V52*/ + meltfptr[41] = /*_.LET___V93*/ meltfptr[66];; MELT_LOCATION("warmelt-normal.melt:3205:/ clear"); - /*clear*/ /*_.IFCPP___V57*/ meltfptr[26] = 0 ; + /*clear*/ /*_.IFCPP___V57*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V60*/ meltfptr[47] = 0 ; + /*clear*/ /*_.LET___V60*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.CHECK_CTYPE_NARGS__V74*/ meltfptr[40] = 0 ; + /*clear*/ /*_.CHECK_CTYPE_NARGS__V74*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_APPEND2LIST__V77*/ meltfptr[44] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V77*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V78*/ meltfptr[34] = 0 ; + /*clear*/ /*_.SETQ___V78*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V79*/ meltfptr[70] = 0 ; + /*clear*/ /*_.LET___V79*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V90*/ meltfptr[87] = 0 ; + /*clear*/ /*_.IFCPP___V90*/ + meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V93*/ meltfptr[66] = 0 ; + /*clear*/ /*_.LET___V93*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDARGS__V54*/ meltfptr[33] = 0 ; + /*clear*/ /*_.NBINDARGS__V54*/ + meltfptr[33] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V24*/ meltfptr[22] = /*_.MULTI___V52*/ meltfptr[41];; + /*_.MULTI___V24*/ + meltfptr[22] = /*_.MULTI___V52*/ meltfptr[41];; MELT_LOCATION("warmelt-normal.melt:3181:/ clear"); - /*clear*/ /*_.IFCPP___V29*/ meltfptr[27] = 0 ; + /*clear*/ /*_.IFCPP___V29*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V32*/ meltfptr[30] = 0 ; + /*clear*/ /*_.LET___V32*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V52*/ meltfptr[41] = 0 ; + /*clear*/ /*_.MULTI___V52*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDFUN__V26*/ meltfptr[25] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.MULTI___V24*/ meltfptr[22];; + /*clear*/ /*_.NBINDFUN__V26*/ + meltfptr[25] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.MULTI___V24*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:3175:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SFUN__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SFUN__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SARGS__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SARGS__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.SFUSYMB__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.SFUSYMB__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V24*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MULTI___V24*/ + meltfptr[22] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3169:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:3169:/ locexp"); @@ -39253,17 +43304,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -39345,7 +43401,8 @@ meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND fromline 1756 */ - /* classy proc frame meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND */ MeltFrame_meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND + /* classy proc frame meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND */ + MeltFrame_meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND fromline 1785*/ #if ENABLE_CHECKING @@ -39358,7 +43415,8 @@ meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("NORMEXP_MSEND", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -39368,26 +43426,30 @@ meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3272:/ getarg"); - /*_.MSND__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.MSND__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -39419,7 +43481,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)) @@ -39428,7 +43491,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3273:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -39461,16 +43525,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_msend msnd="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MSND__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3273:/ 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 ; } ; } @@ -39483,7 +43551,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3273:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -39492,9 +43561,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*/ @@ -39524,10 +43595,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MSND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_MSEND*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:3274:/ 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);; @@ -39556,25 +43629,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3274; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MSND__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3274:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3274:/ 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*/ @@ -39592,10 +43671,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:3275:/ 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);; @@ -39624,25 +43705,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3275; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3275:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3275:/ 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*/ @@ -39660,10 +43747,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:3276:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -39692,25 +43781,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3276; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3276:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3276:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39726,7 +43821,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MSND__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "MSEND_RECV"); - /*_.MSRECV__V18*/ meltfptr[5] = slot; + /*_.MSRECV__V18*/ + meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3278:/ getslot"); @@ -39734,7 +43830,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MSND__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SARGOP_ARGS"); - /*_.MSARGS__V19*/ meltfptr[18] = slot; + /*_.MSARGS__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3279:/ getslot"); @@ -39742,7 +43839,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MSND__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "MSEND_SELSYMB"); - /*_.SELNAM__V20*/ meltfptr[19] = slot; + /*_.SELNAM__V20*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3280:/ getslot"); @@ -39750,7 +43848,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 11, "NCTX_CURPROC"); - /*_.CURPROC__V21*/ meltfptr[20] = slot; + /*_.CURPROC__V21*/ + meltfptr[20] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3281:/ getslot"); @@ -39758,7 +43857,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MSND__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V22*/ meltfptr[21] = slot; + /*_.SLOC__V22*/ + meltfptr[21] = slot; }; ; @@ -39775,7 +43875,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ meltfptr[21]; - /*_.NSEL__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.SELNAM__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NSEL__V23*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.SELNAM__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -39788,7 +43889,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SELNAM__V20*/ meltfptr[19]; - /*_.SELBIND__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SELBIND__V24*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -39811,7 +43913,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)) @@ -39820,7 +43923,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3285:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -39857,16 +43961,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " selbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SELBIND__V24*/ meltfptr[23]; - /*_.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 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 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-normal.melt:3285:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V26*/ + meltfptr[25] = 0 ; } ; } @@ -39879,7 +43987,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3285:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -39888,9 +43997,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_._IF___V25*/ + meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39929,7 +44040,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ meltfptr[21]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDRECV__V29*/ meltfptr[28];/*^multimsend.send*/ - /*_.NRECV__V28*/ meltfptr[24] = meltgc_send ((melt_ptr_t)(/*_.MSRECV__V18*/ meltfptr[5]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[7]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NRECV__V28*/ + meltfptr[24] = meltgc_send ((melt_ptr_t)(/*_.MSRECV__V18*/ meltfptr[5]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[7]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -39945,11 +44057,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L8*/ meltfnum[1] = + /*_#IS_LIST_OR_NULL__L8*/ + meltfnum[1] = ((/*_.NBINDRECV__V29*/ meltfptr[28]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDRECV__V29*/ meltfptr[28])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-normal.melt:3290:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_LIST_OR_NULL__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V31*/ meltfptr[30] = (/*nil*/NULL);; @@ -39978,25 +44092,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3290; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDRECV__V29*/ meltfptr[28]; - /*_.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 MELTBPARSTR_PTR ""), 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V31*/ meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; + /*_._IFELSE___V31*/ + meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3290:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ + meltfptr[31] = 0 ; } ; } ; - /*_.IFCPP___V30*/ meltfptr[29] = /*_._IFELSE___V31*/ meltfptr[30];; + /*_.IFCPP___V30*/ + meltfptr[29] = /*_._IFELSE___V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3290:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V31*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40017,7 +44137,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.CTYPR__V34*/ meltfptr[30] = meltgc_send((melt_ptr_t)(/*_.NRECV__V28*/ meltfptr[24]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CTYPR__V34*/ + meltfptr[30] = meltgc_send((melt_ptr_t)(/*_.NRECV__V28*/ meltfptr[24]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -40030,10 +44151,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[0] = + /*_#IS_A__L9*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CTYPR__V34*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-normal.melt:3293:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V36*/ meltfptr[35] = (/*nil*/NULL);; @@ -40062,25 +44185,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3293; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPR__V34*/ meltfptr[30]; - /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V37*/ + meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V36*/ meltfptr[35] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36];; + /*_._IFELSE___V36*/ + meltfptr[35] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3293:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ + meltfptr[36] = 0 ; } ; } ; - /*_.IFCPP___V35*/ meltfptr[34] = /*_._IFELSE___V36*/ meltfptr[35];; + /*_.IFCPP___V35*/ + meltfptr[34] = /*_._IFELSE___V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3293:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_._IFELSE___V36*/ + meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40092,10 +44221,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#exeq__L10*/ meltfnum[1] = + /*_#exeq__L10*/ + meltfnum[1] = ((/*_.CTYPR__V34*/ meltfptr[30]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-normal.melt:3294:/ cond"); - /*cond*/ if (/*_#exeq__L10*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#exeq__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -40107,7 +44238,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELNAM__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V39*/ meltfptr[35] = slot; + /*_.NAMED_NAME__V39*/ + meltfptr[35] = slot; }; ; @@ -40122,16 +44254,20 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "non value receiver for message send of selector $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V39*/ meltfptr[35]; - /*_.ERROR_AT__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V40*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V38*/ meltfptr[36] = /*_.ERROR_AT__V40*/ meltfptr[39];; + /*_._IF___V38*/ + meltfptr[36] = /*_.ERROR_AT__V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3294:/ clear"); - /*clear*/ /*_.NAMED_NAME__V39*/ meltfptr[35] = 0 ; + /*clear*/ /*_.NAMED_NAME__V39*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.ERROR_AT__V40*/ + meltfptr[39] = 0 ; } ; } @@ -40142,16 +44278,21 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V33*/ meltfptr[31] = /*_._IF___V38*/ meltfptr[36];; + /*_.LET___V33*/ + meltfptr[31] = /*_._IF___V38*/ meltfptr[36];; MELT_LOCATION("warmelt-normal.melt:3292:/ clear"); - /*clear*/ /*_.CTYPR__V34*/ meltfptr[30] = 0 ; + /*clear*/ /*_.CTYPR__V34*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.IFCPP___V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#exeq__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V38*/ meltfptr[36] = 0 ; + /*clear*/ /*_._IF___V38*/ + meltfptr[36] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -40173,7 +44314,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDARGS__V43*/ meltfptr[30]; /*^multiapply.appl*/ - /*_.NARGS__V42*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.MSARGS__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NARGS__V42*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.MSARGS__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -40189,11 +44331,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L11*/ meltfnum[0] = + /*_#IS_LIST_OR_NULL__L11*/ + meltfnum[0] = ((/*_.NBINDARGS__V43*/ meltfptr[30]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDARGS__V43*/ meltfptr[30])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-normal.melt:3301:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L11*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_LIST_OR_NULL__L11*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V45*/ meltfptr[36] = (/*nil*/NULL);; @@ -40222,25 +44366,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3301; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDARGS__V43*/ meltfptr[30]; - /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V46*/ + meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V45*/ meltfptr[36] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45];; + /*_._IFELSE___V45*/ + meltfptr[36] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3301:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/ + meltfptr[45] = 0 ; } ; } ; - /*_.IFCPP___V44*/ meltfptr[34] = /*_._IFELSE___V45*/ meltfptr[36];; + /*_.IFCPP___V44*/ + meltfptr[34] = /*_._IFELSE___V45*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3301:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L11*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L11*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V45*/ meltfptr[36] = 0 ; + /*clear*/ /*_._IFELSE___V45*/ + meltfptr[36] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40271,7 +44421,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHECKSIGNAL*/ meltfrout->tabval[14])), (1), "CLASS_NREP_CHECKSIGNAL"); - /*_.INST__V50*/ meltfptr[49] = + /*_.INST__V50*/ + meltfptr[49] = newobj; }; ; @@ -40284,7 +44435,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V50*/ meltfptr[49], "newly made instance"); ; - /*_.NINT__V49*/ meltfptr[48] = /*_.INST__V50*/ meltfptr[49];; + /*_.NINT__V49*/ + meltfptr[48] = /*_.INST__V50*/ meltfptr[49];; MELT_CHECK_SIGNAL(); ; @@ -40296,7 +44448,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[15])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V52*/ meltfptr[51] = + /*_.INST__V52*/ + meltfptr[51] = newobj; }; ; @@ -40324,15 +44477,18 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V52*/ meltfptr[51], "newly made instance"); ; - /*_.CINTBIND__V51*/ meltfptr[50] = /*_.INST__V52*/ meltfptr[51];; + /*_.CINTBIND__V51*/ + meltfptr[50] = /*_.INST__V52*/ meltfptr[51];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_LIST__L12*/ meltfnum[1] = + /*_#IS_LIST__L12*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.NBINDARGS__V43*/ meltfptr[30])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:3313:/ cond"); - /*cond*/ if (/*_#IS_LIST__L12*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L12*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -40347,7 +44503,8 @@ meltlab_endgetargs: meltgc_append_list((melt_ptr_t)(/*_.NBINDARGS__V43*/ meltfptr[30]), (melt_ptr_t)(/*_.CINTBIND__V51*/ meltfptr[50])); } ; - /*clear*/ /*_._IFELSE___V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_._IFELSE___V53*/ + meltfptr[52] = 0 ; /*epilog*/ } ; @@ -40372,11 +44529,13 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0__CINTBIND_x2*/ - /*_.CINTBIND__V55*/ meltfptr[54] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x2; + /*_.CINTBIND__V55*/ + meltfptr[54] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x2; meltletrec_1_ptr->rpair_0__CINTBIND_x2.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ - /*_.LIST___V56*/ meltfptr[55] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; + /*_.LIST___V56*/ + meltfptr[55] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; meltletrec_1_ptr->rlist_1__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); @@ -40398,44 +44557,59 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V56*/ meltfptr[55]); ; - /*_.LIST___V54*/ meltfptr[53] = /*_.LIST___V56*/ meltfptr[55];; + /*_.LIST___V54*/ + meltfptr[53] = /*_.LIST___V56*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3315:/ clear"); - /*clear*/ /*_.CINTBIND__V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.CINTBIND__V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.LIST___V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.CINTBIND__V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.LIST___V56*/ + meltfptr[55] = 0 ; } /*end multiallocblock*/ ; /*^compute*/ - /*_.NBINDARGS__V43*/ meltfptr[30] = /*_.SETQ___V57*/ meltfptr[54] = /*_.LIST___V54*/ meltfptr[53];; - /*_._IFELSE___V53*/ meltfptr[52] = /*_.SETQ___V57*/ meltfptr[54];; + /*_.NBINDARGS__V43*/ + meltfptr[30] = /*_.SETQ___V57*/ meltfptr[54] = /*_.LIST___V54*/ meltfptr[53];; + /*_._IFELSE___V53*/ + meltfptr[52] = /*_.SETQ___V57*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3313:/ clear"); - /*clear*/ /*_.LIST___V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.LIST___V54*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V57*/ meltfptr[54] = 0 ; + /*clear*/ /*_.SETQ___V57*/ + meltfptr[54] = 0 ; } ; } ; - /*_.LET___V47*/ meltfptr[45] = /*_._IFELSE___V53*/ meltfptr[52];; + /*_.LET___V47*/ + meltfptr[45] = /*_._IFELSE___V53*/ meltfptr[52];; MELT_LOCATION("warmelt-normal.melt:3303:/ clear"); - /*clear*/ /*_.CINTSYM__V48*/ meltfptr[36] = 0 ; + /*clear*/ /*_.CINTSYM__V48*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.NINT__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.NINT__V49*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.CINTBIND__V51*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L12*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L12*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_._IFELSE___V53*/ + meltfptr[52] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -40446,11 +44620,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDARGS__V43*/ meltfptr[30]; - /*_.LIST_APPEND2LIST__V58*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.NBINDRECV__V29*/ meltfptr[28]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V58*/ + meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.NBINDRECV__V29*/ meltfptr[28]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.NBINDRECV__V29*/ meltfptr[28] = /*_.SETQ___V59*/ meltfptr[53] = /*_.LIST_APPEND2LIST__V58*/ meltfptr[55];; + /*_.NBINDRECV__V29*/ + meltfptr[28] = /*_.SETQ___V59*/ meltfptr[53] = /*_.LIST_APPEND2LIST__V58*/ meltfptr[55];; MELT_CHECK_SIGNAL(); ; @@ -40463,7 +44639,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ meltfptr[21]; - /*_.CHECK_CTYPE_NARGS__V60*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!CHECK_CTYPE_NARGS*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NARGS__V42*/ meltfptr[39]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CHECK_CTYPE_NARGS__V60*/ + meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!CHECK_CTYPE_NARGS*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NARGS__V42*/ meltfptr[39]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3320:/ quasiblock"); @@ -40472,10 +44649,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L13*/ meltfnum[0] = + /*_#IS_A__L13*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SELBIND__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ meltfrout->tabval[19])));; MELT_LOCATION("warmelt-normal.melt:3321:/ cond"); - /*cond*/ if (/*_#IS_A__L13*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L13*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -40483,7 +44662,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3322:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SELBIND__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ meltfrout->tabval[19]))) ) /*then*/ @@ -40494,7 +44674,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELBIND__V24*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SBIND_SELECTORDEF"); - /*_.SBIND_SELECTORDEF__V63*/ meltfptr[50] = slot; + /*_.SBIND_SELECTORDEF__V63*/ + meltfptr[50] = slot; }; ; } @@ -40505,7 +44686,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3322:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SBIND_SELECTORDEF__V63*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFSELECTOR*/ meltfrout->tabval[20]))) ) /*then*/ @@ -40516,7 +44698,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SBIND_SELECTORDEF__V63*/ meltfptr[50]) /*=obj*/; melt_object_get_field(slot,obj, 9, "SDEFSEL_FORMALS"); - /*_.SDEFSEL_FORMALS__V64*/ meltfptr[52] = slot; + /*_.SDEFSEL_FORMALS__V64*/ + meltfptr[52] = slot; }; ; } @@ -40527,13 +44710,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.SELFORMALS__V62*/ meltfptr[48] = /*_.SDEFSEL_FORMALS__V64*/ meltfptr[52];; + /*_.SELFORMALS__V62*/ + meltfptr[48] = /*_.SDEFSEL_FORMALS__V64*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3321:/ clear"); - /*clear*/ /*_.SBIND_SELECTORDEF__V63*/ meltfptr[50] = 0 ; + /*clear*/ /*_.SBIND_SELECTORDEF__V63*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.SDEFSEL_FORMALS__V64*/ meltfptr[52] = 0 ; + /*clear*/ /*_.SDEFSEL_FORMALS__V64*/ + meltfptr[52] = 0 ; } ; } @@ -40547,10 +44733,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L14*/ meltfnum[1] = + /*_#IS_A__L14*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELBIND__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[21])));; MELT_LOCATION("warmelt-normal.melt:3325:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L14*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -40561,7 +44749,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SELBIND__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[21]))) ) /*then*/ @@ -40572,7 +44761,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELBIND__V24*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 1, "VBIND_VALUE"); - /*_.VALSEL__V67*/ meltfptr[66] = slot; + /*_.VALSEL__V67*/ + meltfptr[66] = slot; }; ; } @@ -40592,10 +44782,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L15*/ meltfnum[14] = + /*_#IS_A__L15*/ + meltfnum[14] = melt_is_instance_of((melt_ptr_t)(/*_.VALSEL__V67*/ meltfptr[66]), (melt_ptr_t)((/*!CLASS_SELECTOR*/ meltfrout->tabval[22])));; MELT_LOCATION("warmelt-normal.melt:3327:/ cond"); - /*cond*/ if (/*_#IS_A__L15*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#IS_A__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V69*/ meltfptr[68] = (/*nil*/NULL);; @@ -40624,25 +44816,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3327; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VALSEL__V67*/ meltfptr[66]; - /*_.MELT_ASSERT_FAILURE_FUN__V70*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V70*/ + meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V69*/ meltfptr[68] = /*_.MELT_ASSERT_FAILURE_FUN__V70*/ meltfptr[69];; + /*_._IFELSE___V69*/ + meltfptr[68] = /*_.MELT_ASSERT_FAILURE_FUN__V70*/ meltfptr[69];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3327:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V70*/ meltfptr[69] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V70*/ + meltfptr[69] = 0 ; } ; } ; - /*_.IFCPP___V68*/ meltfptr[67] = /*_._IFELSE___V69*/ meltfptr[68];; + /*_.IFCPP___V68*/ + meltfptr[67] = /*_._IFELSE___V69*/ meltfptr[68];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3327:/ clear"); - /*clear*/ /*_#IS_A__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#IS_A__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_._IFELSE___V69*/ + meltfptr[68] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40651,7 +44849,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normal.melt:3328:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VALSEL__V67*/ meltfptr[66]), (melt_ptr_t)((/*!CLASS_SELECTOR*/ meltfrout->tabval[22]))) ) /*then*/ @@ -40662,7 +44861,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.VALSEL__V67*/ meltfptr[66]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEL_SIGNATURE"); - /*_.SEL_SIGNATURE__V71*/ meltfptr[69] = slot; + /*_.SEL_SIGNATURE__V71*/ + meltfptr[69] = slot; }; ; } @@ -40673,19 +44873,25 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V66*/ meltfptr[52] = /*_.SEL_SIGNATURE__V71*/ meltfptr[69];; + /*_.LET___V66*/ + meltfptr[52] = /*_.SEL_SIGNATURE__V71*/ meltfptr[69];; MELT_LOCATION("warmelt-normal.melt:3326:/ clear"); - /*clear*/ /*_.VALSEL__V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_.VALSEL__V67*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V68*/ meltfptr[67] = 0 ; + /*clear*/ /*_.IFCPP___V68*/ + meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.SEL_SIGNATURE__V71*/ meltfptr[69] = 0 ; - /*_._IFELSE___V65*/ meltfptr[50] = /*_.LET___V66*/ meltfptr[52];; + /*clear*/ /*_.SEL_SIGNATURE__V71*/ + meltfptr[69] = 0 ; + /*_._IFELSE___V65*/ + meltfptr[50] = /*_.LET___V66*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3325:/ clear"); - /*clear*/ /*_.LET___V66*/ meltfptr[52] = 0 ; + /*clear*/ /*_.LET___V66*/ + meltfptr[52] = 0 ; } ; } @@ -40707,7 +44913,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V73*/ meltfptr[66] = (/*nil*/NULL);; @@ -40736,23 +44943,28 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3331; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELBIND__V24*/ meltfptr[23]; - /*_.MELT_ASSERT_FAILURE_FUN__V74*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V74*/ + meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V73*/ meltfptr[66] = /*_.MELT_ASSERT_FAILURE_FUN__V74*/ meltfptr[67];; + /*_._IFELSE___V73*/ + meltfptr[66] = /*_.MELT_ASSERT_FAILURE_FUN__V74*/ meltfptr[67];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3331:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V74*/ meltfptr[67] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V74*/ + meltfptr[67] = 0 ; } ; } ; - /*_.IFCPP___V72*/ meltfptr[68] = /*_._IFELSE___V73*/ meltfptr[66];; + /*_.IFCPP___V72*/ + meltfptr[68] = /*_._IFELSE___V73*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3331:/ clear"); - /*clear*/ /*_._IFELSE___V73*/ meltfptr[66] = 0 ; + /*clear*/ /*_._IFELSE___V73*/ + meltfptr[66] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40763,26 +44975,33 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3330:/ quasiblock"); - /*_.PROGN___V75*/ meltfptr[69] = (/*nil*/NULL);; + /*_.PROGN___V75*/ + meltfptr[69] = (/*nil*/NULL);; /*^compute*/ - /*_._IFELSE___V65*/ meltfptr[50] = /*_.PROGN___V75*/ meltfptr[69];; + /*_._IFELSE___V65*/ + meltfptr[50] = /*_.PROGN___V75*/ meltfptr[69];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3325:/ clear"); - /*clear*/ /*_.IFCPP___V72*/ meltfptr[68] = 0 ; + /*clear*/ /*_.IFCPP___V72*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V75*/ meltfptr[69] = 0 ; + /*clear*/ /*_.PROGN___V75*/ + meltfptr[69] = 0 ; } ; } ; - /*_.SELFORMALS__V62*/ meltfptr[48] = /*_._IFELSE___V65*/ meltfptr[50];; + /*_.SELFORMALS__V62*/ + meltfptr[48] = /*_._IFELSE___V65*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3321:/ clear"); - /*clear*/ /*_#IS_A__L14*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L14*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V65*/ meltfptr[50] = 0 ; + /*clear*/ /*_._IFELSE___V65*/ + meltfptr[50] = 0 ; } ; } @@ -40807,7 +45026,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MSEND*/ meltfrout->tabval[23])), (5), "CLASS_NREP_MSEND"); - /*_.INST__V78*/ meltfptr[66] = + /*_.INST__V78*/ + meltfptr[66] = newobj; }; ; @@ -40840,7 +45060,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V78*/ meltfptr[66], "newly made instance"); ; - /*_.NSEND__V77*/ meltfptr[67] = /*_.INST__V78*/ meltfptr[66];; + /*_.NSEND__V77*/ + meltfptr[67] = /*_.INST__V78*/ meltfptr[66];; MELT_CHECK_SIGNAL(); ; @@ -40852,7 +45073,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[15])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V80*/ meltfptr[69] = + /*_.INST__V80*/ + meltfptr[69] = newobj; }; ; @@ -40880,7 +45102,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V80*/ meltfptr[69], "newly made instance"); ; - /*_.CBIND__V79*/ meltfptr[68] = /*_.INST__V80*/ meltfptr[69];; + /*_.CBIND__V79*/ + meltfptr[68] = /*_.INST__V80*/ meltfptr[69];; MELT_CHECK_SIGNAL(); ; @@ -40892,7 +45115,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[24])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V82*/ meltfptr[81] = + /*_.INST__V82*/ + meltfptr[81] = newobj; }; ; @@ -40920,7 +45144,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V82*/ meltfptr[81], "newly made instance"); ; - /*_.CLOCC__V81*/ meltfptr[50] = /*_.INST__V82*/ meltfptr[81];; + /*_.CLOCC__V81*/ + meltfptr[50] = /*_.INST__V82*/ meltfptr[81];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:3352:/ cppif.then"); @@ -40941,7 +45166,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ meltfnum[14] = + /*_#MELT_NEED_DBG__L16*/ + meltfnum[14] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -40950,7 +45176,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3352:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -40983,16 +45210,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_msend nsend middle"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NSEND__V77*/ meltfptr[67]; - /*_.MELT_DEBUG_FUN__V84*/ 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__V84*/ + 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___V83*/ meltfptr[82] = /*_.MELT_DEBUG_FUN__V84*/ meltfptr[83];; + /*_._IF___V83*/ + meltfptr[82] = /*_.MELT_DEBUG_FUN__V84*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3352:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V84*/ meltfptr[83] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V84*/ + meltfptr[83] = 0 ; } ; } @@ -41005,7 +45236,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3352:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -41014,9 +45246,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_._IF___V83*/ + meltfptr[82] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41046,10 +45280,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L18*/ meltfnum[1] = + /*_#IS_OBJECT__L18*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.NRECV__V28*/ meltfptr[24])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-normal.melt:3353:/ cond"); - /*cond*/ if (/*_#IS_OBJECT__L18*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_OBJECT__L18*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V86*/ meltfptr[82] = (/*nil*/NULL);; @@ -41078,25 +45314,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3353; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NRECV__V28*/ meltfptr[24]; - /*_.MELT_ASSERT_FAILURE_FUN__V87*/ meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V87*/ + meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V86*/ meltfptr[82] = /*_.MELT_ASSERT_FAILURE_FUN__V87*/ meltfptr[86];; + /*_._IFELSE___V86*/ + meltfptr[82] = /*_.MELT_ASSERT_FAILURE_FUN__V87*/ meltfptr[86];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3353:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V87*/ meltfptr[86] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V87*/ + meltfptr[86] = 0 ; } ; } ; - /*_.IFCPP___V85*/ meltfptr[83] = /*_._IFELSE___V86*/ meltfptr[82];; + /*_.IFCPP___V85*/ + meltfptr[83] = /*_._IFELSE___V86*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3353:/ clear"); - /*clear*/ /*_#IS_OBJECT__L18*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_OBJECT__L18*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V86*/ meltfptr[82] = 0 ; + /*clear*/ /*_._IFELSE___V86*/ + meltfptr[82] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41108,10 +45350,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_MULTIPLE__L19*/ meltfnum[14] = + /*_#IS_MULTIPLE__L19*/ + meltfnum[14] = (melt_magic_discr((melt_ptr_t)(/*_.SELFORMALS__V62*/ meltfptr[48])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-normal.melt:3354:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L19*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L19*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41121,10 +45365,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3355:/ quasiblock"); - /*_.RECVFORMAL__V88*/ meltfptr[86] = + /*_.RECVFORMAL__V88*/ + meltfptr[86] = (melt_multiple_nth((melt_ptr_t)(/*_.SELFORMALS__V62*/ meltfptr[48]), (0)));; /*^compute*/ - /*_#NBFORMALS__L20*/ meltfnum[1] = + /*_#NBFORMALS__L20*/ + meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.SELFORMALS__V62*/ meltfptr[48])));; #if MELT_HAVE_DEBUG @@ -41146,7 +45392,8 @@ meltlab_endgetargs: 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)) @@ -41155,7 +45402,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3358:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[20]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41188,16 +45436,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_msend"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SELFORMALS__V62*/ meltfptr[48]; - /*_.MELT_DEBUG_FUN__V90*/ meltfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V90*/ + meltfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V89*/ meltfptr[82] = /*_.MELT_DEBUG_FUN__V90*/ meltfptr[89];; + /*_._IF___V89*/ + meltfptr[82] = /*_.MELT_DEBUG_FUN__V90*/ meltfptr[89];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3358:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[21] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V90*/ meltfptr[89] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V90*/ + meltfptr[89] = 0 ; } ; } @@ -41210,7 +45462,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3358:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -41219,9 +45472,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V89*/ meltfptr[82] = 0 ; + /*clear*/ /*_._IF___V89*/ + meltfptr[82] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41252,7 +45507,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECVFORMAL__V88*/ meltfptr[86]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[25]))) ) /*then*/ @@ -41263,7 +45519,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECVFORMAL__V88*/ meltfptr[86]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V92*/ meltfptr[82] = slot; + /*_.FBIND_TYPE__V92*/ + meltfptr[82] = slot; }; ; } @@ -41274,10 +45531,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#eqeq__L23*/ meltfnum[21] = + /*_#eqeq__L23*/ + meltfnum[21] = ((/*_.FBIND_TYPE__V92*/ meltfptr[82]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-normal.melt:3359:/ cond"); - /*cond*/ if (/*_#eqeq__L23*/ meltfnum[21]) /*then*/ + /*cond*/ + if (/*_#eqeq__L23*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V93*/ meltfptr[92] = (/*nil*/NULL);; @@ -41306,27 +45565,34 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3359; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECVFORMAL__V88*/ meltfptr[86]; - /*_.MELT_ASSERT_FAILURE_FUN__V94*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V94*/ + meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V93*/ meltfptr[92] = /*_.MELT_ASSERT_FAILURE_FUN__V94*/ meltfptr[93];; + /*_._IFELSE___V93*/ + meltfptr[92] = /*_.MELT_ASSERT_FAILURE_FUN__V94*/ meltfptr[93];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3359:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V94*/ meltfptr[93] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V94*/ + meltfptr[93] = 0 ; } ; } ; - /*_.IFCPP___V91*/ meltfptr[89] = /*_._IFELSE___V93*/ meltfptr[92];; + /*_.IFCPP___V91*/ + meltfptr[89] = /*_._IFELSE___V93*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3359:/ clear"); - /*clear*/ /*_.FBIND_TYPE__V92*/ meltfptr[82] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V92*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L23*/ meltfnum[21] = 0 ; + /*clear*/ /*_#eqeq__L23*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V93*/ meltfptr[92] = 0 ; + /*clear*/ /*_._IFELSE___V93*/ + meltfptr[92] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41338,16 +45604,20 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#MULTIPLE_LENGTH__L24*/ meltfnum[20] = + /*_#MULTIPLE_LENGTH__L24*/ + meltfnum[20] = (melt_multiple_length((melt_ptr_t)(/*_.NARGS__V42*/ meltfptr[39])));; /*^compute*/ - /*_#plI__L25*/ meltfnum[21] = + /*_#plI__L25*/ + meltfnum[21] = ((1) + (/*_#MULTIPLE_LENGTH__L24*/ meltfnum[20]));; /*^compute*/ - /*_#exeqI__L26*/ meltfnum[25] = + /*_#exeqI__L26*/ + meltfnum[25] = ((/*_#NBFORMALS__L20*/ meltfnum[1]) != (/*_#plI__L25*/ meltfnum[21]));; MELT_LOCATION("warmelt-normal.melt:3360:/ cond"); - /*cond*/ if (/*_#exeqI__L26*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#exeqI__L26*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41355,7 +45625,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3362:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SELNAM__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[26]))) ) /*then*/ @@ -41366,7 +45637,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELNAM__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V96*/ meltfptr[82] = slot; + /*_.NAMED_NAME__V96*/ + meltfptr[82] = slot; }; ; } @@ -41390,16 +45662,20 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V96*/ meltfptr[82]; /*^apply.arg*/ argtab[2].meltbp_long = /*_#NBFORMALS__L20*/ meltfnum[1]; - /*_.ERROR_AT__V97*/ meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V97*/ + meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V95*/ meltfptr[93] = /*_.ERROR_AT__V97*/ meltfptr[92];; + /*_._IF___V95*/ + meltfptr[93] = /*_.ERROR_AT__V97*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3360:/ clear"); - /*clear*/ /*_.NAMED_NAME__V96*/ meltfptr[82] = 0 ; + /*clear*/ /*_.NAMED_NAME__V96*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V97*/ meltfptr[92] = 0 ; + /*clear*/ /*_.ERROR_AT__V97*/ + meltfptr[92] = 0 ; } ; } @@ -41424,10 +45700,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3367:/ quasiblock"); - /*_#plI__L28*/ meltfnum[27] = + /*_#plI__L28*/ + meltfnum[27] = ((/*_#NIX__L27*/ meltfnum[26]) + (1));; /*^compute*/ - /*_.CURFORMAL__V99*/ meltfptr[92] = + /*_.CURFORMAL__V99*/ + meltfptr[92] = (melt_multiple_nth((melt_ptr_t)(/*_.SELFORMALS__V62*/ meltfptr[48]), (/*_#plI__L28*/ meltfnum[27])));; MELT_CHECK_SIGNAL(); @@ -41439,11 +45717,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.CURCTYP__V100*/ meltfptr[99] = meltgc_send((melt_ptr_t)(/*_.CURNARG__V98*/ meltfptr[82]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CURCTYP__V100*/ + meltfptr[99] = meltgc_send((melt_ptr_t)(/*_.CURNARG__V98*/ meltfptr[82]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3369:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFORMAL__V99*/ meltfptr[92]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[25]))) ) /*then*/ @@ -41454,7 +45734,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFORMAL__V99*/ meltfptr[92]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FORMCTYP__V101*/ meltfptr[100] = slot; + /*_.FORMCTYP__V101*/ + meltfptr[100] = slot; }; ; } @@ -41465,7 +45746,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3370:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFORMAL__V99*/ meltfptr[92]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[27]))) ) /*then*/ @@ -41476,7 +45758,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFORMAL__V99*/ meltfptr[92]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.FORMBINDER__V102*/ meltfptr[101] = slot; + /*_.FORMBINDER__V102*/ + meltfptr[101] = slot; }; ; } @@ -41496,10 +45779,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L29*/ meltfnum[28] = + /*_#IS_A__L29*/ + meltfnum[28] = melt_is_instance_of((melt_ptr_t)(/*_.CURFORMAL__V99*/ meltfptr[92]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[25])));; MELT_LOCATION("warmelt-normal.melt:3372:/ cond"); - /*cond*/ if (/*_#IS_A__L29*/ meltfnum[28]) /*then*/ + /*cond*/ + if (/*_#IS_A__L29*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V104*/ meltfptr[103] = (/*nil*/NULL);; @@ -41528,25 +45813,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3372; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURFORMAL__V99*/ meltfptr[92]; - /*_.MELT_ASSERT_FAILURE_FUN__V105*/ meltfptr[104] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V105*/ + meltfptr[104] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V104*/ meltfptr[103] = /*_.MELT_ASSERT_FAILURE_FUN__V105*/ meltfptr[104];; + /*_._IFELSE___V104*/ + meltfptr[103] = /*_.MELT_ASSERT_FAILURE_FUN__V105*/ meltfptr[104];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3372:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V105*/ meltfptr[104] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V105*/ + meltfptr[104] = 0 ; } ; } ; - /*_.IFCPP___V103*/ meltfptr[102] = /*_._IFELSE___V104*/ meltfptr[103];; + /*_.IFCPP___V103*/ + meltfptr[102] = /*_._IFELSE___V104*/ meltfptr[103];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3372:/ clear"); - /*clear*/ /*_#IS_A__L29*/ meltfnum[28] = 0 ; + /*clear*/ /*_#IS_A__L29*/ + meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V104*/ meltfptr[103] = 0 ; + /*clear*/ /*_._IFELSE___V104*/ + meltfptr[103] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41558,10 +45849,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#exeq__L30*/ meltfnum[28] = + /*_#exeq__L30*/ + meltfnum[28] = ((/*_.CURCTYP__V100*/ meltfptr[99]) != (/*_.FORMCTYP__V101*/ meltfptr[100]));; MELT_LOCATION("warmelt-normal.melt:3373:/ cond"); - /*cond*/ if (/*_#exeq__L30*/ meltfnum[28]) /*then*/ + /*cond*/ + if (/*_#exeq__L30*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41569,7 +45862,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3376:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SELNAM__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[26]))) ) /*then*/ @@ -41580,7 +45874,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELNAM__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V106*/ meltfptr[104] = slot; + /*_.NAMED_NAME__V106*/ + meltfptr[104] = slot; }; ; } @@ -41597,7 +45892,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3378:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORMBINDER__V102*/ meltfptr[101]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[26]))) ) /*then*/ @@ -41608,7 +45904,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FORMBINDER__V102*/ meltfptr[101]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V107*/ meltfptr[103] = slot; + /*_.NAMED_NAME__V107*/ + meltfptr[103] = slot; }; ; } @@ -41625,7 +45922,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3380:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V100*/ meltfptr[99]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[26]))) ) /*then*/ @@ -41636,7 +45934,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V100*/ meltfptr[99]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V108*/ meltfptr[107] = slot; + /*_.NAMED_NAME__V108*/ + meltfptr[107] = slot; }; ; } @@ -41653,7 +45952,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3382:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORMCTYP__V101*/ meltfptr[100]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[26]))) ) /*then*/ @@ -41664,7 +45964,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FORMCTYP__V101*/ meltfptr[100]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V109*/ meltfptr[108] = slot; + /*_.NAMED_NAME__V109*/ + meltfptr[108] = slot; }; ; } @@ -41686,58 +45987,78 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3373:/ clear"); - /*clear*/ /*_.NAMED_NAME__V106*/ meltfptr[104] = 0 ; + /*clear*/ /*_.NAMED_NAME__V106*/ + meltfptr[104] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V107*/ meltfptr[103] = 0 ; + /*clear*/ /*_.NAMED_NAME__V107*/ + meltfptr[103] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V108*/ meltfptr[107] = 0 ; + /*clear*/ /*_.NAMED_NAME__V108*/ + meltfptr[107] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V109*/ meltfptr[108] = 0 ; + /*clear*/ /*_.NAMED_NAME__V109*/ + meltfptr[108] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-normal.melt:3367:/ clear"); - /*clear*/ /*_#plI__L28*/ meltfnum[27] = 0 ; + /*clear*/ /*_#plI__L28*/ + meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_.CURFORMAL__V99*/ meltfptr[92] = 0 ; + /*clear*/ /*_.CURFORMAL__V99*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.CURCTYP__V100*/ meltfptr[99] = 0 ; + /*clear*/ /*_.CURCTYP__V100*/ + meltfptr[99] = 0 ; /*^clear*/ - /*clear*/ /*_.FORMCTYP__V101*/ meltfptr[100] = 0 ; + /*clear*/ /*_.FORMCTYP__V101*/ + meltfptr[100] = 0 ; /*^clear*/ - /*clear*/ /*_.FORMBINDER__V102*/ meltfptr[101] = 0 ; + /*clear*/ /*_.FORMBINDER__V102*/ + meltfptr[101] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V103*/ meltfptr[102] = 0 ; + /*clear*/ /*_.IFCPP___V103*/ + meltfptr[102] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L30*/ meltfnum[28] = 0 ; + /*clear*/ /*_#exeq__L30*/ + meltfnum[28] = 0 ; if (/*_#NIX__L27*/ meltfnum[26]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:3364:/ clear"); - /*clear*/ /*_.CURNARG__V98*/ meltfptr[82] = 0 ; + /*clear*/ /*_.CURNARG__V98*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_#NIX__L27*/ meltfnum[26] = 0 ; + /*clear*/ /*_#NIX__L27*/ + meltfnum[26] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-normal.melt:3355:/ clear"); - /*clear*/ /*_.RECVFORMAL__V88*/ meltfptr[86] = 0 ; + /*clear*/ /*_.RECVFORMAL__V88*/ + meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_#NBFORMALS__L20*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NBFORMALS__L20*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V91*/ meltfptr[89] = 0 ; + /*clear*/ /*_.IFCPP___V91*/ + meltfptr[89] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L24*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L24*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L25*/ meltfnum[21] = 0 ; + /*clear*/ /*_#plI__L25*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_#exeqI__L26*/ meltfnum[25] = 0 ; + /*clear*/ /*_#exeqI__L26*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V95*/ meltfptr[93] = 0 ; + /*clear*/ /*_._IF___V95*/ + meltfptr[93] = 0 ; /*epilog*/ } ; @@ -41765,13 +46086,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L31*/ meltfnum[27] = + /*_#IS_LIST__L31*/ + meltfnum[27] = (melt_magic_discr((melt_ptr_t)(/*_.NBINDRECV__V29*/ meltfptr[28])) == MELTOBMAG_LIST);; /*^compute*/ - /*_#NOT__L32*/ meltfnum[28] = + /*_#NOT__L32*/ + meltfnum[28] = (!(/*_#IS_LIST__L31*/ meltfnum[27]));; MELT_LOCATION("warmelt-normal.melt:3387:/ cond"); - /*cond*/ if (/*_#NOT__L32*/ meltfnum[28]) /*then*/ + /*cond*/ + if (/*_#NOT__L32*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41781,14 +46105,18 @@ meltlab_endgetargs: /*_.MAKE_LIST__V111*/ meltfptr[103] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[28]))));; MELT_LOCATION("warmelt-normal.melt:3388:/ compute"); - /*_.NBINDRECV__V29*/ meltfptr[28] = /*_.SETQ___V112*/ meltfptr[107] = /*_.MAKE_LIST__V111*/ meltfptr[103];; - /*_._IF___V110*/ meltfptr[104] = /*_.SETQ___V112*/ meltfptr[107];; + /*_.NBINDRECV__V29*/ + meltfptr[28] = /*_.SETQ___V112*/ meltfptr[107] = /*_.MAKE_LIST__V111*/ meltfptr[103];; + /*_._IF___V110*/ + meltfptr[104] = /*_.SETQ___V112*/ meltfptr[107];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3387:/ clear"); - /*clear*/ /*_.MAKE_LIST__V111*/ meltfptr[103] = 0 ; + /*clear*/ /*_.MAKE_LIST__V111*/ + meltfptr[103] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V112*/ meltfptr[107] = 0 ; + /*clear*/ /*_.SETQ___V112*/ + meltfptr[107] = 0 ; } ; } @@ -41824,7 +46152,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L33*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L33*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -41833,7 +46162,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3390:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L33*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L33*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41870,16 +46200,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " clocc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V81*/ meltfptr[50]; - /*_.MELT_DEBUG_FUN__V114*/ meltfptr[92] = melt_apply ((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__V114*/ + meltfptr[92] = melt_apply ((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___V113*/ meltfptr[108] = /*_.MELT_DEBUG_FUN__V114*/ meltfptr[92];; + /*_._IF___V113*/ + meltfptr[108] = /*_.MELT_DEBUG_FUN__V114*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3390:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L34*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L34*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V114*/ meltfptr[92] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V114*/ + meltfptr[92] = 0 ; } ; } @@ -41892,7 +46226,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3390:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -41901,9 +46236,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L33*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L33*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V113*/ meltfptr[108] = 0 ; + /*clear*/ /*_._IF___V113*/ + meltfptr[108] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41929,7 +46266,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3391:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V81*/ meltfptr[50];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V81*/ meltfptr[50];; MELT_LOCATION("warmelt-normal.melt:3391:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -41937,92 +46275,129 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V61*/ meltfptr[36] = /*_.RETURN___V115*/ meltfptr[99];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V61*/ + meltfptr[36] = /*_.RETURN___V115*/ meltfptr[99];; MELT_LOCATION("warmelt-normal.melt:3320:/ clear"); - /*clear*/ /*_#IS_A__L13*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L13*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.SELFORMALS__V62*/ meltfptr[48] = 0 ; + /*clear*/ /*_.SELFORMALS__V62*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V76*/ meltfptr[52] = 0 ; + /*clear*/ /*_.CSYM__V76*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.NSEND__V77*/ meltfptr[67] = 0 ; + /*clear*/ /*_.NSEND__V77*/ + meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V79*/ meltfptr[68] = 0 ; + /*clear*/ /*_.CBIND__V79*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V81*/ meltfptr[50] = 0 ; + /*clear*/ /*_.CLOCC__V81*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V85*/ meltfptr[83] = 0 ; + /*clear*/ /*_.IFCPP___V85*/ + meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_MULTIPLE__L19*/ meltfnum[14] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L19*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L31*/ meltfnum[27] = 0 ; + /*clear*/ /*_#IS_LIST__L31*/ + meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L32*/ meltfnum[28] = 0 ; + /*clear*/ /*_#NOT__L32*/ + meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V110*/ meltfptr[104] = 0 ; + /*clear*/ /*_._IF___V110*/ + meltfptr[104] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V115*/ meltfptr[99] = 0 ; + /*clear*/ /*_.RETURN___V115*/ + meltfptr[99] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V41*/ meltfptr[35] = /*_.LET___V61*/ meltfptr[36];; + /*_.MULTI___V41*/ + meltfptr[35] = /*_.LET___V61*/ meltfptr[36];; MELT_LOCATION("warmelt-normal.melt:3298:/ clear"); - /*clear*/ /*_.IFCPP___V44*/ meltfptr[34] = 0 ; + /*clear*/ /*_.IFCPP___V44*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V47*/ meltfptr[45] = 0 ; + /*clear*/ /*_.LET___V47*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_APPEND2LIST__V58*/ meltfptr[55] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V58*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V59*/ meltfptr[53] = 0 ; + /*clear*/ /*_.SETQ___V59*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.CHECK_CTYPE_NARGS__V60*/ meltfptr[54] = 0 ; + /*clear*/ /*_.CHECK_CTYPE_NARGS__V60*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V61*/ meltfptr[36] = 0 ; + /*clear*/ /*_.LET___V61*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDARGS__V43*/ meltfptr[30] = 0 ; + /*clear*/ /*_.NBINDARGS__V43*/ + meltfptr[30] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V27*/ meltfptr[25] = /*_.MULTI___V41*/ meltfptr[35];; + /*_.MULTI___V27*/ + meltfptr[25] = /*_.MULTI___V41*/ meltfptr[35];; MELT_LOCATION("warmelt-normal.melt:3287:/ clear"); - /*clear*/ /*_.IFCPP___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.IFCPP___V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V33*/ meltfptr[31] = 0 ; + /*clear*/ /*_.LET___V33*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V41*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MULTI___V41*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDRECV__V29*/ meltfptr[28] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.MULTI___V27*/ meltfptr[25];; + /*clear*/ /*_.NBINDRECV__V29*/ + meltfptr[28] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.MULTI___V27*/ meltfptr[25];; MELT_LOCATION("warmelt-normal.melt:3277:/ clear"); - /*clear*/ /*_.MSRECV__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.MSRECV__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MSARGS__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.MSARGS__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SELNAM__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SELNAM__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPROC__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.CURPROC__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.SLOC__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.SLOC__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.NSEL__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.NSEL__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.SELBIND__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.SELBIND__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V27*/ meltfptr[25] = 0 ; + /*clear*/ /*_.MULTI___V27*/ + meltfptr[25] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3272:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:3272:/ locexp"); @@ -42037,17 +46412,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -42129,7 +46509,8 @@ meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN(meltclosure_ptr_t meltclosp_, melt_pt /* end of frame for routine meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN fromline 1756 */ - /* classy proc frame meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN */ MeltFrame_meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN + /* classy proc frame meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN */ + MeltFrame_meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN fromline 1785*/ #if ENABLE_CHECKING @@ -42142,7 +46523,8 @@ meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN(meltclosure_ptr_t meltclosp_, melt_pt #define meltframe meltfram__ melt_trace_start("NORMEXP_RETURN", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -42152,26 +46534,30 @@ meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN(meltclosure_ptr_t meltclosp_, melt_pt /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3399:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -42203,7 +46589,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)) @@ -42212,7 +46599,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3400:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42249,16 +46637,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n ncx="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.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-normal.melt:3400:/ 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 ; } ; } @@ -42271,7 +46663,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3400:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -42280,9 +46673,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*/ @@ -42312,10 +46707,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_RETURN*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:3401:/ 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);; @@ -42344,25 +46741,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3401; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3401:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3401:/ 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*/ @@ -42380,10 +46783,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:3402:/ 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);; @@ -42412,25 +46817,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3402; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3402:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3402:/ 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*/ @@ -42448,10 +46859,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:3403:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -42480,25 +46893,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3403; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3403:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3403:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42510,7 +46929,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -42521,7 +46941,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"); - /*_.LOCA_LOCATION__V18*/ meltfptr[5] = slot; + /*_.LOCA_LOCATION__V18*/ + meltfptr[5] = slot; }; ; } @@ -42532,7 +46953,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3404:/ cond"); - /*cond*/ if (/*_.LOCA_LOCATION__V18*/ meltfptr[5]) /*then*/ + /*cond*/ + if (/*_.LOCA_LOCATION__V18*/ meltfptr[5]) /*then*/ { /*^cond.then*/ /*_.SLOC__V19*/ meltfptr[18] = /*_.LOCA_LOCATION__V18*/ meltfptr[5];; @@ -42541,7 +46963,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3404:/ cond.else"); - /*_.SLOC__V19*/ meltfptr[18] = /*_.PSLOC__V5*/ meltfptr[4];; + /*_.SLOC__V19*/ + meltfptr[18] = /*_.PSLOC__V5*/ meltfptr[4];; } ; MELT_LOCATION("warmelt-normal.melt:3405:/ getslot"); @@ -42549,10 +46972,12 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SARGOP_ARGS"); - /*_.SRETS__V20*/ meltfptr[19] = slot; + /*_.SRETS__V20*/ + meltfptr[19] = slot; }; ; - /*_#NBRETS__L6*/ meltfnum[0] = + /*_#NBRETS__L6*/ + meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.SRETS__V20*/ meltfptr[19])));; MELT_CHECK_SIGNAL(); @@ -42564,7 +46989,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3408:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4]))) ) /*then*/ @@ -42575,7 +47001,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 11, "NCTX_CURPROC"); - /*_.CURPROC__V22*/ meltfptr[21] = slot; + /*_.CURPROC__V22*/ + meltfptr[21] = slot; }; ; } @@ -42589,10 +47016,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L7*/ meltfnum[1] = + /*_#IS_A__L7*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:3409:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.RESTYPE__V23*/ meltfptr[22] = (/*!CTYPE_VALUE*/ meltfrout->tabval[9]);; @@ -42608,10 +47037,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L8*/ meltfnum[7] = + /*_#IS_A__L8*/ + meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-normal.melt:3411:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_A__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42619,7 +47050,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3412:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[10]))) ) /*then*/ @@ -42630,7 +47062,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPROC__V22*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 8, "NRHOOK_CTYPE"); - /*_.NRHOOK_CTYPE__V25*/ meltfptr[24] = slot; + /*_.NRHOOK_CTYPE__V25*/ + meltfptr[24] = slot; }; ; } @@ -42641,11 +47074,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_._IFELSE___V24*/ meltfptr[23] = /*_.NRHOOK_CTYPE__V25*/ meltfptr[24];; + /*_._IFELSE___V24*/ + meltfptr[23] = /*_.NRHOOK_CTYPE__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3411:/ clear"); - /*clear*/ /*_.NRHOOK_CTYPE__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.NRHOOK_CTYPE__V25*/ + meltfptr[24] = 0 ; } ; } @@ -42666,13 +47101,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "RETURN outside of LAMBDA or DEFUN procedure or DEFHOOK"; - /*_.ERROR_AT__V26*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V26*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3416:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:3416:/ locexp"); @@ -42687,32 +47124,41 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:3413:/ quasiblock"); - /*_.PROGN___V28*/ meltfptr[27] = /*_.RETURN___V27*/ meltfptr[26];; + /*_.PROGN___V28*/ + meltfptr[27] = /*_.RETURN___V27*/ meltfptr[26];; /*^compute*/ - /*_._IFELSE___V24*/ meltfptr[23] = /*_.PROGN___V28*/ meltfptr[27];; + /*_._IFELSE___V24*/ + meltfptr[23] = /*_.PROGN___V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3411:/ clear"); - /*clear*/ /*_.ERROR_AT__V26*/ meltfptr[24] = 0 ; + /*clear*/ /*_.ERROR_AT__V26*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.RETURN___V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.PROGN___V28*/ + meltfptr[27] = 0 ; } ; } ; - /*_.RESTYPE__V23*/ meltfptr[22] = /*_._IFELSE___V24*/ meltfptr[23];; + /*_.RESTYPE__V23*/ + meltfptr[22] = /*_._IFELSE___V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3409:/ clear"); - /*clear*/ /*_#IS_A__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IFELSE___V24*/ + meltfptr[23] = 0 ; } ; } @@ -42728,7 +47174,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V30*/ meltfptr[26] = + /*_.INST__V30*/ + meltfptr[26] = newobj; }; ; @@ -42751,7 +47198,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V30*/ meltfptr[26], "newly made instance"); ; - /*_.CBIND__V29*/ meltfptr[24] = /*_.INST__V30*/ meltfptr[26];; + /*_.CBIND__V29*/ + meltfptr[24] = /*_.INST__V30*/ meltfptr[26];; MELT_CHECK_SIGNAL(); ; @@ -42763,7 +47211,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[13])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V32*/ meltfptr[23] = + /*_.INST__V32*/ + meltfptr[23] = newobj; }; ; @@ -42791,7 +47240,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V32*/ meltfptr[23], "newly made instance"); ; - /*_.CLOCC__V31*/ meltfptr[27] = /*_.INST__V32*/ meltfptr[23];; + /*_.CLOCC__V31*/ + meltfptr[27] = /*_.INST__V32*/ meltfptr[23];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:3431:/ cppif.then"); @@ -42812,7 +47262,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)) @@ -42821,7 +47272,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3431:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42858,16 +47310,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " curproc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V22*/ meltfptr[21]; - /*_.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 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 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-normal.melt:3431:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V34*/ + meltfptr[33] = 0 ; } ; } @@ -42880,7 +47336,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3431:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -42889,9 +47346,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V33*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42914,10 +47373,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#lteqI__L11*/ meltfnum[9] = + /*_#lteqI__L11*/ + meltfnum[9] = ((/*_#NBRETS__L6*/ meltfnum[0]) <= (0));; MELT_LOCATION("warmelt-normal.melt:3433:/ cond"); - /*cond*/ if (/*_#lteqI__L11*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#lteqI__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42927,7 +47388,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3434:/ quasiblock"); - /*_.NBINDEMP__V37*/ meltfptr[36] = + /*_.NBINDEMP__V37*/ + meltfptr[36] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[14]))));; MELT_CHECK_SIGNAL(); @@ -42940,7 +47402,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ meltfrout->tabval[15])), (3), "CLASS_NREP_RETURN"); - /*_.INST__V39*/ meltfptr[38] = + /*_.INST__V39*/ + meltfptr[38] = newobj; }; ; @@ -42963,7 +47426,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V39*/ meltfptr[38], "newly made instance"); ; - /*_.NEMPTRET__V38*/ meltfptr[37] = /*_.INST__V39*/ meltfptr[38];; + /*_.NEMPTRET__V38*/ + meltfptr[37] = /*_.INST__V39*/ meltfptr[38];; MELT_CHECK_SIGNAL(); ; @@ -43009,7 +47473,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -43018,7 +47483,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3445:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43055,16 +47521,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbindemp="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDEMP__V37*/ meltfptr[36]; - /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V40*/ meltfptr[39] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];; + /*_._IF___V40*/ + meltfptr[39] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3445:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[40] = 0 ; } ; } @@ -43077,7 +47547,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3445:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -43086,9 +47557,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V40*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -43114,7 +47587,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3446:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V31*/ meltfptr[27];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V31*/ meltfptr[27];; MELT_LOCATION("warmelt-normal.melt:3446:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -43122,20 +47596,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V36*/ meltfptr[32] = /*_.RETURN___V42*/ meltfptr[40];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V36*/ + meltfptr[32] = /*_.RETURN___V42*/ meltfptr[40];; MELT_LOCATION("warmelt-normal.melt:3434:/ clear"); - /*clear*/ /*_.NBINDEMP__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.NBINDEMP__V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.NEMPTRET__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.NEMPTRET__V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V42*/ meltfptr[40] = 0 ; - /*_._IFELSE___V35*/ meltfptr[33] = /*_.LET___V36*/ meltfptr[32];; + /*clear*/ /*_.RETURN___V42*/ + meltfptr[40] = 0 ; + /*_._IFELSE___V35*/ + meltfptr[33] = /*_.LET___V36*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3433:/ clear"); - /*clear*/ /*_.LET___V36*/ meltfptr[32] = 0 ; + /*clear*/ /*_.LET___V36*/ + meltfptr[32] = 0 ; } ; } @@ -43167,7 +47648,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDRETS__V45*/ meltfptr[37]; /*^multiapply.appl*/ - /*_.NRETS__V44*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.SRETS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NRETS__V44*/ + meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.SRETS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -43193,7 +47675,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)) @@ -43202,7 +47685,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3450:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43239,16 +47723,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbindrets="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDRETS__V45*/ meltfptr[37]; - /*_.MELT_DEBUG_FUN__V47*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V47*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V46*/ meltfptr[40] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[32];; + /*_._IF___V46*/ + meltfptr[40] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3450:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V47*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V47*/ + meltfptr[32] = 0 ; } ; } @@ -43261,7 +47749,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3450:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -43270,9 +47759,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V46*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IF___V46*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -43298,10 +47789,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#gtI__L16*/ meltfnum[7] = + /*_#gtI__L16*/ + meltfnum[7] = ((/*_#NBRETS__L6*/ meltfnum[0]) > (1));; MELT_LOCATION("warmelt-normal.melt:3451:/ cond"); - /*cond*/ if (/*_#gtI__L16*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#gtI__L16*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43311,11 +47804,13 @@ meltlab_endgetargs: /*_#IS_A__L18*/ meltfnum[17] = melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[10])));; /*^compute*/ - /*_#_IF___L17*/ meltfnum[12] = /*_#IS_A__L18*/ meltfnum[17];; + /*_#_IF___L17*/ + meltfnum[12] = /*_#IS_A__L18*/ meltfnum[17];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3451:/ clear"); - /*clear*/ /*_#IS_A__L18*/ meltfnum[17] = 0 ; + /*clear*/ /*_#IS_A__L18*/ + meltfnum[17] = 0 ; } ; } @@ -43326,7 +47821,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3451:/ cond"); - /*cond*/ if (/*_#_IF___L17*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#_IF___L17*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43343,13 +47839,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "multiple RETURN not allowed inside hooks"; - /*_.ERROR_AT__V49*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V49*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3456:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:3456:/ locexp"); @@ -43364,21 +47862,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:3451:/ quasiblock"); - /*_.PROGN___V51*/ meltfptr[50] = /*_.RETURN___V50*/ meltfptr[49];; + /*_.PROGN___V51*/ + meltfptr[50] = /*_.RETURN___V50*/ meltfptr[49];; /*^compute*/ - /*_._IF___V48*/ meltfptr[32] = /*_.PROGN___V51*/ meltfptr[50];; + /*_._IF___V48*/ + meltfptr[32] = /*_.PROGN___V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3451:/ clear"); - /*clear*/ /*_.ERROR_AT__V49*/ meltfptr[40] = 0 ; + /*clear*/ /*_.ERROR_AT__V49*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.RETURN___V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.PROGN___V51*/ + meltfptr[50] = 0 ; } ; } @@ -43391,13 +47895,16 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3457:/ quasiblock"); - /*_.NRET0__V53*/ meltfptr[49] = + /*_.NRET0__V53*/ + meltfptr[49] = (melt_multiple_nth((melt_ptr_t)(/*_.NRETS__V44*/ meltfptr[36]), (0)));; /*^compute*/ - /*_#miI__L19*/ meltfnum[17] = + /*_#miI__L19*/ + meltfnum[17] = ((/*_#NBRETS__L6*/ meltfnum[0]) - (1));; /*^compute*/ - /*_.TOTH__V54*/ meltfptr[50] = + /*_.TOTH__V54*/ + meltfptr[50] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[17])), (/*_#miI__L19*/ meltfnum[17])));; MELT_CHECK_SIGNAL(); @@ -43409,7 +47916,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.CTYP0__V55*/ meltfptr[54] = meltgc_send((melt_ptr_t)(/*_.NRET0__V53*/ meltfptr[49]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[18])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CTYP0__V55*/ + meltfptr[54] = meltgc_send((melt_ptr_t)(/*_.NRET0__V53*/ meltfptr[49]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[18])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -43418,10 +47926,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#exeq__L20*/ meltfnum[19] = + /*_#exeq__L20*/ + meltfnum[19] = ((/*_.CTYP0__V55*/ meltfptr[54]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-normal.melt:3462:/ cond"); - /*cond*/ if (/*_#exeq__L20*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#exeq__L20*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43431,11 +47941,13 @@ meltlab_endgetargs: /*_#IS_A__L22*/ meltfnum[21] = melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[8])));; /*^compute*/ - /*_#_IF___L21*/ meltfnum[20] = /*_#IS_A__L22*/ meltfnum[21];; + /*_#_IF___L21*/ + meltfnum[20] = /*_#IS_A__L22*/ meltfnum[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3462:/ clear"); - /*clear*/ /*_#IS_A__L22*/ meltfnum[21] = 0 ; + /*clear*/ /*_#IS_A__L22*/ + meltfnum[21] = 0 ; } ; } @@ -43446,7 +47958,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3461:/ cond"); - /*cond*/ if (/*_#_IF___L21*/ meltfnum[20]) /*then*/ + /*cond*/ + if (/*_#_IF___L21*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43463,13 +47976,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "primary RETURN-ed result from procedure is not a value"; - /*_.ERROR_AT__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V57*/ + meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3467:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:3467:/ locexp"); @@ -43484,21 +47999,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:3461:/ quasiblock"); - /*_.PROGN___V59*/ meltfptr[58] = /*_.RETURN___V58*/ meltfptr[57];; + /*_.PROGN___V59*/ + meltfptr[58] = /*_.RETURN___V58*/ meltfptr[57];; /*^compute*/ - /*_._IF___V56*/ meltfptr[55] = /*_.PROGN___V59*/ meltfptr[58];; + /*_._IF___V56*/ + meltfptr[55] = /*_.PROGN___V59*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3461:/ clear"); - /*clear*/ /*_.ERROR_AT__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.ERROR_AT__V57*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.RETURN___V58*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.PROGN___V59*/ + meltfptr[58] = 0 ; } ; } @@ -43512,10 +48033,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L23*/ meltfnum[21] = + /*_#IS_A__L23*/ + meltfnum[21] = melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-normal.melt:3468:/ cond"); - /*cond*/ if (/*_#IS_A__L23*/ meltfnum[21]) /*then*/ + /*cond*/ + if (/*_#IS_A__L23*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43525,10 +48048,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#gtI__L24*/ meltfnum[23] = + /*_#gtI__L24*/ + meltfnum[23] = ((/*_#NBRETS__L6*/ meltfnum[0]) > (1));; MELT_LOCATION("warmelt-normal.melt:3469:/ cond"); - /*cond*/ if (/*_#gtI__L24*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#gtI__L24*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43545,13 +48070,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "RETURN with secondary results impossible in a hook"; - /*_.ERROR_AT__V62*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V62*/ + meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3471:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:3471:/ locexp"); @@ -43566,21 +48093,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:3469:/ quasiblock"); - /*_.PROGN___V64*/ meltfptr[63] = /*_.RETURN___V63*/ meltfptr[62];; + /*_.PROGN___V64*/ + meltfptr[63] = /*_.RETURN___V63*/ meltfptr[62];; /*^compute*/ - /*_._IF___V61*/ meltfptr[57] = /*_.PROGN___V64*/ meltfptr[63];; + /*_._IF___V61*/ + meltfptr[57] = /*_.PROGN___V64*/ meltfptr[63];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3469:/ clear"); - /*clear*/ /*_.ERROR_AT__V62*/ meltfptr[58] = 0 ; + /*clear*/ /*_.ERROR_AT__V62*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_.RETURN___V63*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.PROGN___V64*/ + meltfptr[63] = 0 ; } ; } @@ -43597,7 +48130,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3472:/ cond"); - /*cond*/ if (/*_.NRET0__V53*/ meltfptr[49]) /*then*/ + /*cond*/ + if (/*_.NRET0__V53*/ meltfptr[49]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43608,7 +48142,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if (/*_.CTYP0__V55*/ meltfptr[54]) /*then*/ + /*cond*/ + if (/*_.CTYP0__V55*/ meltfptr[54]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43618,11 +48153,13 @@ meltlab_endgetargs: /*_#exeq__L27*/ meltfnum[26] = ((/*_.CTYP0__V55*/ meltfptr[54]) != (/*_.RESTYPE__V23*/ meltfptr[22]));; /*^compute*/ - /*_#_IF___L26*/ meltfnum[25] = /*_#exeq__L27*/ meltfnum[26];; + /*_#_IF___L26*/ + meltfnum[25] = /*_#exeq__L27*/ meltfnum[26];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3472:/ clear"); - /*clear*/ /*_#exeq__L27*/ meltfnum[26] = 0 ; + /*clear*/ /*_#exeq__L27*/ + meltfnum[26] = 0 ; } ; } @@ -43633,11 +48170,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#_IF___L25*/ meltfnum[24] = /*_#_IF___L26*/ meltfnum[25];; + /*_#_IF___L25*/ + meltfnum[24] = /*_#_IF___L26*/ meltfnum[25];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3472:/ clear"); - /*clear*/ /*_#_IF___L26*/ meltfnum[25] = 0 ; + /*clear*/ /*_#_IF___L26*/ + meltfnum[25] = 0 ; } ; } @@ -43648,7 +48187,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3472:/ cond"); - /*cond*/ if (/*_#_IF___L25*/ meltfnum[24]) /*then*/ + /*cond*/ + if (/*_#_IF___L25*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43656,7 +48196,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3474:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RESTYPE__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[19]))) ) /*then*/ @@ -43667,7 +48208,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RESTYPE__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V66*/ meltfptr[62] = slot; + /*_.NAMED_NAME__V66*/ + meltfptr[62] = slot; }; ; } @@ -43678,7 +48220,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3475:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP0__V55*/ meltfptr[54]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[19]))) ) /*then*/ @@ -43689,7 +48232,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYP0__V55*/ meltfptr[54]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V67*/ meltfptr[63] = slot; + /*_.NAMED_NAME__V67*/ + meltfptr[63] = slot; }; ; } @@ -43713,13 +48257,15 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V66*/ meltfptr[62]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V67*/ meltfptr[63]; - /*_.ERROR_AT__V68*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V68*/ + meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3476:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:3476:/ locexp"); @@ -43734,25 +48280,33 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:3472:/ quasiblock"); - /*_.PROGN___V70*/ meltfptr[69] = /*_.RETURN___V69*/ meltfptr[68];; + /*_.PROGN___V70*/ + meltfptr[69] = /*_.RETURN___V69*/ meltfptr[68];; /*^compute*/ - /*_._IF___V65*/ meltfptr[58] = /*_.PROGN___V70*/ meltfptr[69];; + /*_._IF___V65*/ + meltfptr[58] = /*_.PROGN___V70*/ meltfptr[69];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3472:/ clear"); - /*clear*/ /*_.NAMED_NAME__V66*/ meltfptr[62] = 0 ; + /*clear*/ /*_.NAMED_NAME__V66*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V67*/ meltfptr[63] = 0 ; + /*clear*/ /*_.NAMED_NAME__V67*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V68*/ meltfptr[67] = 0 ; + /*clear*/ /*_.ERROR_AT__V68*/ + meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_.RETURN___V69*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V70*/ meltfptr[69] = 0 ; + /*clear*/ /*_.PROGN___V70*/ + meltfptr[69] = 0 ; } ; } @@ -43765,21 +48319,28 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3468:/ quasiblock"); - /*_.PROGN___V71*/ meltfptr[62] = /*_._IF___V65*/ meltfptr[58];; + /*_.PROGN___V71*/ + meltfptr[62] = /*_._IF___V65*/ meltfptr[58];; /*^compute*/ - /*_._IF___V60*/ meltfptr[56] = /*_.PROGN___V71*/ meltfptr[62];; + /*_._IF___V60*/ + meltfptr[56] = /*_.PROGN___V71*/ meltfptr[62];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3468:/ clear"); - /*clear*/ /*_#gtI__L24*/ meltfnum[23] = 0 ; + /*clear*/ /*_#gtI__L24*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V61*/ meltfptr[57] = 0 ; + /*clear*/ /*_._IF___V61*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L25*/ meltfnum[24] = 0 ; + /*clear*/ /*_#_IF___L25*/ + meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V65*/ meltfptr[58] = 0 ; + /*clear*/ /*_._IF___V65*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V71*/ meltfptr[62] = 0 ; + /*clear*/ /*_.PROGN___V71*/ + meltfptr[62] = 0 ; } ; } @@ -43793,10 +48354,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L28*/ meltfnum[26] = + /*_#NULL__L28*/ + meltfnum[26] = (/*null*/(/*_.NBINDRETS__V45*/ meltfptr[37]) == NULL);; MELT_LOCATION("warmelt-normal.melt:3478:/ cond"); - /*cond*/ if (/*_#NULL__L28*/ meltfnum[26]) /*then*/ + /*cond*/ + if (/*_#NULL__L28*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43806,14 +48369,18 @@ meltlab_endgetargs: /*_.MAKE_LIST__V73*/ meltfptr[67] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[14]))));; MELT_LOCATION("warmelt-normal.melt:3479:/ compute"); - /*_.NBINDRETS__V45*/ meltfptr[37] = /*_.SETQ___V74*/ meltfptr[68] = /*_.MAKE_LIST__V73*/ meltfptr[67];; - /*_._IF___V72*/ meltfptr[63] = /*_.SETQ___V74*/ meltfptr[68];; + /*_.NBINDRETS__V45*/ + meltfptr[37] = /*_.SETQ___V74*/ meltfptr[68] = /*_.MAKE_LIST__V73*/ meltfptr[67];; + /*_._IF___V72*/ + meltfptr[63] = /*_.SETQ___V74*/ meltfptr[68];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3478:/ clear"); - /*clear*/ /*_.MAKE_LIST__V73*/ meltfptr[67] = 0 ; + /*clear*/ /*_.MAKE_LIST__V73*/ + meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V74*/ meltfptr[68] = 0 ; + /*clear*/ /*_.SETQ___V74*/ + meltfptr[68] = 0 ; } ; } @@ -43846,7 +48413,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHECKSIGNAL*/ meltfrout->tabval[21])), (1), "CLASS_NREP_CHECKSIGNAL"); - /*_.INST__V77*/ meltfptr[58] = + /*_.INST__V77*/ + meltfptr[58] = newobj; }; ; @@ -43859,7 +48427,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V77*/ meltfptr[58], "newly made instance"); ; - /*_.NCHINT__V76*/ meltfptr[57] = /*_.INST__V77*/ meltfptr[58];; + /*_.NCHINT__V76*/ + meltfptr[57] = /*_.INST__V77*/ meltfptr[58];; MELT_CHECK_SIGNAL(); ; @@ -43871,7 +48440,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V79*/ meltfptr[67] = + /*_.INST__V79*/ + meltfptr[67] = newobj; }; ; @@ -43894,7 +48464,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V79*/ meltfptr[67], "newly made instance"); ; - /*_.RINTBIND__V78*/ meltfptr[62] = /*_.INST__V79*/ meltfptr[67];; + /*_.RINTBIND__V78*/ + meltfptr[62] = /*_.INST__V79*/ meltfptr[67];; { MELT_LOCATION("warmelt-normal.melt:3490:/ locexp"); @@ -43903,11 +48474,14 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:3481:/ clear"); - /*clear*/ /*_.RINTSYMB__V75*/ meltfptr[69] = 0 ; + /*clear*/ /*_.RINTSYMB__V75*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHINT__V76*/ meltfptr[57] = 0 ; + /*clear*/ /*_.NCHINT__V76*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.RINTBIND__V78*/ meltfptr[62] = 0 ; + /*clear*/ /*_.RINTBIND__V78*/ + meltfptr[62] = 0 ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ @@ -43933,7 +48507,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.NCTYP__V82*/ meltfptr[57] = meltgc_send((melt_ptr_t)(/*_.NCOMP__V80*/ meltfptr[68]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[18])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NCTYP__V82*/ + meltfptr[57] = meltgc_send((melt_ptr_t)(/*_.NCOMP__V80*/ meltfptr[68]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[18])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -43946,10 +48521,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L30*/ meltfnum[23] = + /*_#IS_A__L30*/ + meltfnum[23] = melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V82*/ meltfptr[57]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[23])));; MELT_LOCATION("warmelt-normal.melt:3498:/ cond"); - /*cond*/ if (/*_#IS_A__L30*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#IS_A__L30*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V84*/ meltfptr[83] = (/*nil*/NULL);; @@ -43978,25 +48555,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3498; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCTYP__V82*/ meltfptr[57]; - /*_.MELT_ASSERT_FAILURE_FUN__V85*/ meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V85*/ + meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V84*/ meltfptr[83] = /*_.MELT_ASSERT_FAILURE_FUN__V85*/ meltfptr[84];; + /*_._IFELSE___V84*/ + meltfptr[83] = /*_.MELT_ASSERT_FAILURE_FUN__V85*/ meltfptr[84];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3498:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V85*/ meltfptr[84] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V85*/ + meltfptr[84] = 0 ; } ; } ; - /*_.IFCPP___V83*/ meltfptr[62] = /*_._IFELSE___V84*/ meltfptr[83];; + /*_.IFCPP___V83*/ + meltfptr[62] = /*_._IFELSE___V84*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3498:/ clear"); - /*clear*/ /*_#IS_A__L30*/ meltfnum[23] = 0 ; + /*clear*/ /*_#IS_A__L30*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V84*/ meltfptr[83] = 0 ; + /*clear*/ /*_._IFELSE___V84*/ + meltfptr[83] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44008,7 +48591,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3499:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V82*/ meltfptr[57]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[23]))) ) /*then*/ @@ -44019,7 +48603,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCTYP__V82*/ meltfptr[57]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CTYPE_PARCHAR"); - /*_.CTYPE_PARCHAR__V86*/ meltfptr[84] = slot; + /*_.CTYPE_PARCHAR__V86*/ + meltfptr[84] = slot; }; ; } @@ -44030,7 +48615,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3499:/ cond"); - /*cond*/ if (/*_.CTYPE_PARCHAR__V86*/ meltfptr[84]) /*then*/ + /*cond*/ + if (/*_.CTYPE_PARCHAR__V86*/ meltfptr[84]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V87*/ meltfptr[83] = (/*nil*/NULL);; @@ -44044,7 +48630,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3501:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V82*/ meltfptr[57]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[19]))) ) /*then*/ @@ -44055,7 +48642,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCTYP__V82*/ meltfptr[57]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V88*/ meltfptr[87] = slot; + /*_.NAMED_NAME__V88*/ + meltfptr[87] = slot; }; ; } @@ -44077,44 +48665,57 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "impossible secondary result type $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V88*/ meltfptr[87]; - /*_.ERROR_AT__V89*/ meltfptr[88] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V89*/ + meltfptr[88] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3499:/ quasiblock"); - /*_.PROGN___V90*/ meltfptr[89] = /*_.ERROR_AT__V89*/ meltfptr[88];; + /*_.PROGN___V90*/ + meltfptr[89] = /*_.ERROR_AT__V89*/ meltfptr[88];; /*^compute*/ - /*_._IFELSE___V87*/ meltfptr[83] = /*_.PROGN___V90*/ meltfptr[89];; + /*_._IFELSE___V87*/ + meltfptr[83] = /*_.PROGN___V90*/ meltfptr[89];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3499:/ clear"); - /*clear*/ /*_.NAMED_NAME__V88*/ meltfptr[87] = 0 ; + /*clear*/ /*_.NAMED_NAME__V88*/ + meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V89*/ meltfptr[88] = 0 ; + /*clear*/ /*_.ERROR_AT__V89*/ + meltfptr[88] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V90*/ meltfptr[89] = 0 ; + /*clear*/ /*_.PROGN___V90*/ + meltfptr[89] = 0 ; } ; } ; - /*_.LET___V81*/ meltfptr[69] = /*_._IFELSE___V87*/ meltfptr[83];; + /*_.LET___V81*/ + meltfptr[69] = /*_._IFELSE___V87*/ meltfptr[83];; MELT_LOCATION("warmelt-normal.melt:3496:/ clear"); - /*clear*/ /*_.NCTYP__V82*/ meltfptr[57] = 0 ; + /*clear*/ /*_.NCTYP__V82*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V83*/ meltfptr[62] = 0 ; + /*clear*/ /*_.IFCPP___V83*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_PARCHAR__V86*/ meltfptr[84] = 0 ; + /*clear*/ /*_.CTYPE_PARCHAR__V86*/ + meltfptr[84] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V87*/ meltfptr[83] = 0 ; + /*clear*/ /*_._IFELSE___V87*/ + meltfptr[83] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_#gtI__L31*/ meltfnum[24] = + /*_#gtI__L31*/ + meltfnum[24] = ((/*_#IX__L29*/ meltfnum[25]) > (0));; MELT_LOCATION("warmelt-normal.melt:3503:/ cond"); - /*cond*/ if (/*_#gtI__L31*/ meltfnum[24]) /*then*/ + /*cond*/ + if (/*_#gtI__L31*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44132,7 +48733,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3503:/ clear"); - /*clear*/ /*_#miI__L32*/ meltfnum[23] = 0 ; + /*clear*/ /*_#miI__L32*/ + meltfnum[23] = 0 ; } ; } /*noelse*/ @@ -44143,13 +48745,17 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:3493:/ clear"); - /*clear*/ /*_.NCOMP__V80*/ meltfptr[68] = 0 ; + /*clear*/ /*_.NCOMP__V80*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L29*/ meltfnum[25] = 0 ; + /*clear*/ /*_#IX__L29*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V81*/ meltfptr[69] = 0 ; + /*clear*/ /*_.LET___V81*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L31*/ meltfnum[24] = 0 ; + /*clear*/ /*_#gtI__L31*/ + meltfnum[24] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-normal.melt:3506:/ quasiblock"); @@ -44161,10 +48767,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#gtI__L33*/ meltfnum[23] = + /*_#gtI__L33*/ + meltfnum[23] = ((/*_#NBRETS__L6*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-normal.melt:3510:/ cond"); - /*cond*/ if (/*_#gtI__L33*/ meltfnum[23]) /*then*/ + /*cond*/ + if (/*_#gtI__L33*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*_._IF___V92*/ meltfptr[88] = /*_.TOTH__V54*/ meltfptr[50];; @@ -44173,7 +48781,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3510:/ cond.else"); - /*_._IF___V92*/ meltfptr[88] = /*reallynil*/ NULL ;; + /*_._IF___V92*/ + meltfptr[88] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-normal.melt:3507:/ quasiblock"); @@ -44184,7 +48793,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ meltfrout->tabval[15])), (3), "CLASS_NREP_RETURN"); - /*_.INST__V94*/ meltfptr[57] = + /*_.INST__V94*/ + meltfptr[57] = newobj; }; ; @@ -44207,7 +48817,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V94*/ meltfptr[57], "newly made instance"); ; - /*_.NRET__V93*/ meltfptr[89] = /*_.INST__V94*/ meltfptr[57];; + /*_.NRET__V93*/ + meltfptr[89] = /*_.INST__V94*/ meltfptr[57];; MELT_CHECK_SIGNAL(); ; @@ -44253,7 +48864,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L34*/ meltfnum[33] = + /*_#MELT_NEED_DBG__L34*/ + meltfnum[33] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -44262,7 +48874,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3514:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L34*/ meltfnum[33]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L34*/ meltfnum[33]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44299,16 +48912,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbindrets="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDRETS__V45*/ meltfptr[37]; - /*_.MELT_DEBUG_FUN__V96*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V96*/ + 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V95*/ meltfptr[62] = /*_.MELT_DEBUG_FUN__V96*/ meltfptr[84];; + /*_._IF___V95*/ + meltfptr[62] = /*_.MELT_DEBUG_FUN__V96*/ meltfptr[84];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3514:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L35*/ meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L35*/ + meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V96*/ meltfptr[84] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V96*/ + meltfptr[84] = 0 ; } ; } @@ -44321,7 +48938,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3514:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -44330,9 +48948,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L34*/ meltfnum[33] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L34*/ + meltfnum[33] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V95*/ meltfptr[62] = 0 ; + /*clear*/ /*_._IF___V95*/ + meltfptr[62] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44358,7 +48978,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3515:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V31*/ meltfptr[27];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V31*/ meltfptr[27];; MELT_LOCATION("warmelt-normal.melt:3515:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -44366,101 +48987,142 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V91*/ meltfptr[87] = /*_.RETURN___V97*/ meltfptr[83];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V91*/ + meltfptr[87] = /*_.RETURN___V97*/ meltfptr[83];; MELT_LOCATION("warmelt-normal.melt:3506:/ clear"); - /*clear*/ /*_#gtI__L33*/ meltfnum[23] = 0 ; + /*clear*/ /*_#gtI__L33*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V92*/ meltfptr[88] = 0 ; + /*clear*/ /*_._IF___V92*/ + meltfptr[88] = 0 ; /*^clear*/ - /*clear*/ /*_.NRET__V93*/ meltfptr[89] = 0 ; + /*clear*/ /*_.NRET__V93*/ + meltfptr[89] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V97*/ meltfptr[83] = 0 ; - /*_.LET___V52*/ meltfptr[40] = /*_.LET___V91*/ meltfptr[87];; + /*clear*/ /*_.RETURN___V97*/ + meltfptr[83] = 0 ; + /*_.LET___V52*/ + meltfptr[40] = /*_.LET___V91*/ meltfptr[87];; MELT_LOCATION("warmelt-normal.melt:3457:/ clear"); - /*clear*/ /*_.NRET0__V53*/ meltfptr[49] = 0 ; + /*clear*/ /*_.NRET0__V53*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_#miI__L19*/ meltfnum[17] = 0 ; + /*clear*/ /*_#miI__L19*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.TOTH__V54*/ meltfptr[50] = 0 ; + /*clear*/ /*_.TOTH__V54*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYP0__V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.CTYP0__V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L20*/ meltfnum[19] = 0 ; + /*clear*/ /*_#exeq__L20*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L21*/ meltfnum[20] = 0 ; + /*clear*/ /*_#_IF___L21*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_._IF___V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L23*/ meltfnum[21] = 0 ; + /*clear*/ /*_#IS_A__L23*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V60*/ meltfptr[56] = 0 ; + /*clear*/ /*_._IF___V60*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L28*/ meltfnum[26] = 0 ; + /*clear*/ /*_#NULL__L28*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V72*/ meltfptr[63] = 0 ; + /*clear*/ /*_._IF___V72*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V91*/ meltfptr[87] = 0 ; + /*clear*/ /*_.LET___V91*/ + meltfptr[87] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V43*/ meltfptr[39] = /*_.LET___V52*/ meltfptr[40];; + /*_.MULTI___V43*/ + meltfptr[39] = /*_.LET___V52*/ meltfptr[40];; MELT_LOCATION("warmelt-normal.melt:3447:/ clear"); - /*clear*/ /*_#gtI__L16*/ meltfnum[7] = 0 ; + /*clear*/ /*_#gtI__L16*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L17*/ meltfnum[12] = 0 ; + /*clear*/ /*_#_IF___L17*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V48*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V48*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V52*/ meltfptr[40] = 0 ; + /*clear*/ /*_.LET___V52*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDRETS__V45*/ meltfptr[37] = 0 ; - /*_._IFELSE___V35*/ meltfptr[33] = /*_.MULTI___V43*/ meltfptr[39];; + /*clear*/ /*_.NBINDRETS__V45*/ + meltfptr[37] = 0 ; + /*_._IFELSE___V35*/ + meltfptr[33] = /*_.MULTI___V43*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3433:/ clear"); - /*clear*/ /*_.MULTI___V43*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MULTI___V43*/ + meltfptr[39] = 0 ; } ; } ; - /*_.LET___V17*/ meltfptr[15] = /*_._IFELSE___V35*/ meltfptr[33];; + /*_.LET___V17*/ + meltfptr[15] = /*_._IFELSE___V35*/ meltfptr[33];; MELT_LOCATION("warmelt-normal.melt:3404:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.LOCA_LOCATION__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SLOC__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SLOC__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SRETS__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SRETS__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#NBRETS__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NBRETS__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.CSYM__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPROC__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.CURPROC__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.RESTYPE__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.RESTYPE__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V29*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CBIND__V29*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V31*/ meltfptr[27] = 0 ; + /*clear*/ /*_.CLOCC__V31*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#lteqI__L11*/ meltfnum[9] = 0 ; + /*clear*/ /*_#lteqI__L11*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V35*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IFELSE___V35*/ + meltfptr[33] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3399:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:3399:/ locexp"); @@ -44475,17 +49137,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[15] = 0 ; } ; @@ -44567,7 +49234,8 @@ meltrout_51_WARMELTmiNORMAL_NORMEXP_IF(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_51_WARMELTmiNORMAL_NORMEXP_IF fromline 1756 */ - /* classy proc frame meltrout_51_WARMELTmiNORMAL_NORMEXP_IF */ MeltFrame_meltrout_51_WARMELTmiNORMAL_NORMEXP_IF + /* classy proc frame meltrout_51_WARMELTmiNORMAL_NORMEXP_IF */ + MeltFrame_meltrout_51_WARMELTmiNORMAL_NORMEXP_IF meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_51_WARMELTmiNORMAL_NORMEXP_IF fromline 1785*/ #if ENABLE_CHECKING @@ -44580,7 +49248,8 @@ meltrout_51_WARMELTmiNORMAL_NORMEXP_IF(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("NORMEXP_IF", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -44590,26 +49259,30 @@ meltrout_51_WARMELTmiNORMAL_NORMEXP_IF(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3523:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -44631,10 +49304,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ meltfnum[0] = + /*_#IS_A__L1*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_IF*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:3524:/ 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);; @@ -44663,25 +49338,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3524; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3524:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ meltfptr[5] = /*_._IFELSE___V7*/ meltfptr[6];; + /*_.IFCPP___V6*/ + meltfptr[5] = /*_._IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3524:/ 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*/ @@ -44699,10 +49380,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[0] = + /*_#IS_A__L2*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:3525:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[6] = (/*nil*/NULL);; @@ -44731,25 +49414,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3525; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3525:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[6];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3525:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L2*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44767,10 +49456,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[0] = + /*_#IS_A__L3*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:3526:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[6] = (/*nil*/NULL);; @@ -44799,25 +49490,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3526; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V13*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; + /*_._IFELSE___V13*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3526:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = 0 ; } ; } ; - /*_.IFCPP___V12*/ meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];; + /*_.IFCPP___V12*/ + meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3526:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V13*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44845,7 +49542,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)) @@ -44854,7 +49552,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3527:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44887,16 +49586,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_if recv"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V16*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V16*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V15*/ meltfptr[13] = /*_.MELT_DEBUG_FUN__V16*/ meltfptr[6];; + /*_._IF___V15*/ + meltfptr[13] = /*_.MELT_DEBUG_FUN__V16*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3527:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L5*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V16*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V16*/ + meltfptr[6] = 0 ; } ; } @@ -44909,7 +49612,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3527:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -44918,9 +49622,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V15*/ meltfptr[13] = 0 ; + /*clear*/ /*_._IF___V15*/ + meltfptr[13] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44948,7 +49654,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V18*/ meltfptr[13] = slot; + /*_.SLOC__V18*/ + meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3529:/ getslot"); @@ -44956,16 +49663,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SIF_TEST"); - /*_.STEST__V19*/ meltfptr[18] = slot; + /*_.STEST__V19*/ + meltfptr[18] = slot; }; ; - /*_.CTYPIF__V20*/ meltfptr[19] = (/*!CTYPE_VOID*/ meltfrout->tabval[5]);; + /*_.CTYPIF__V20*/ + meltfptr[19] = (/*!CTYPE_VOID*/ meltfrout->tabval[5]);; MELT_LOCATION("warmelt-normal.melt:3531:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SIF_THEN"); - /*_.STHEN__V21*/ meltfptr[20] = slot; + /*_.STHEN__V21*/ + meltfptr[20] = slot; }; ; @@ -44988,7 +49698,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHECKSIGNAL*/ meltfrout->tabval[8])), (1), "CLASS_NREP_CHECKSIGNAL"); - /*_.INST__V24*/ meltfptr[23] = + /*_.INST__V24*/ + meltfptr[23] = newobj; }; ; @@ -45001,7 +49712,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V24*/ meltfptr[23], "newly made instance"); ; - /*_.NCHINT__V23*/ meltfptr[22] = /*_.INST__V24*/ meltfptr[23];; + /*_.NCHINT__V23*/ + meltfptr[22] = /*_.INST__V24*/ meltfptr[23];; MELT_CHECK_SIGNAL(); ; @@ -45013,7 +49725,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__V26*/ meltfptr[25] = + /*_.INST__V26*/ + meltfptr[25] = newobj; }; ; @@ -45036,7 +49749,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V26*/ meltfptr[25], "newly made instance"); ; - /*_.CINTBIND__V25*/ meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; + /*_.CINTBIND__V25*/ + meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; MELT_CHECK_SIGNAL(); ; @@ -45056,7 +49770,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDIF__V29*/ meltfptr[28];/*^multimsend.send*/ - /*_.NTEST__V28*/ meltfptr[27] = meltgc_send ((melt_ptr_t)(/*_.STEST__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NTEST__V28*/ + meltfptr[27] = meltgc_send ((melt_ptr_t)(/*_.STEST__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -45072,11 +49787,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L6*/ meltfnum[4] = + /*_#IS_LIST_OR_NULL__L6*/ + meltfnum[4] = ((/*_.NBINDIF__V29*/ meltfptr[28]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDIF__V29*/ meltfptr[28])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-normal.melt:3543:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L6*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#IS_LIST_OR_NULL__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V31*/ meltfptr[30] = (/*nil*/NULL);; @@ -45105,25 +49822,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3543; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDIF__V29*/ meltfptr[28]; - /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V32*/ + meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V31*/ meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; + /*_._IFELSE___V31*/ + meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3543:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ + meltfptr[31] = 0 ; } ; } ; - /*_.IFCPP___V30*/ meltfptr[29] = /*_._IFELSE___V31*/ meltfptr[30];; + /*_.IFCPP___V30*/ + meltfptr[29] = /*_._IFELSE___V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3543:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V31*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -45151,7 +49874,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L7*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -45160,7 +49884,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3544:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45197,16 +49922,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " cintbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CINTBIND__V25*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V34*/ meltfptr[30] = 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__V34*/ + meltfptr[30] = 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___V33*/ meltfptr[31] = /*_.MELT_DEBUG_FUN__V34*/ meltfptr[30];; + /*_._IF___V33*/ + meltfptr[31] = /*_.MELT_DEBUG_FUN__V34*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3544:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V34*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V34*/ + meltfptr[30] = 0 ; } ; } @@ -45219,7 +49948,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3544:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -45228,9 +49958,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V33*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IF___V33*/ + meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -45253,10 +49985,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L9*/ meltfnum[4] = + /*_#NULL__L9*/ + meltfnum[4] = (/*null*/(/*_.NBINDIF__V29*/ meltfptr[28]) == NULL);; MELT_LOCATION("warmelt-normal.melt:3546:/ cond"); - /*cond*/ if (/*_#NULL__L9*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#NULL__L9*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45275,11 +50009,13 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0__CINTBIND_x3*/ - /*_.CINTBIND__V37*/ meltfptr[36] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x3; + /*_.CINTBIND__V37*/ + meltfptr[36] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x3; meltletrec_1_ptr->rpair_0__CINTBIND_x3.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ - /*_.LIST___V38*/ meltfptr[37] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; + /*_.LIST___V38*/ + meltfptr[37] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; meltletrec_1_ptr->rlist_1__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); @@ -45301,28 +50037,37 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V38*/ meltfptr[37]); ; - /*_.LIST___V36*/ meltfptr[31] = /*_.LIST___V38*/ meltfptr[37];; + /*_.LIST___V36*/ + meltfptr[31] = /*_.LIST___V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3547:/ clear"); - /*clear*/ /*_.CINTBIND__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.CINTBIND__V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.LIST___V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.CINTBIND__V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.LIST___V38*/ + meltfptr[37] = 0 ; } /*end multiallocblock*/ ; /*^compute*/ - /*_.NBINDIF__V29*/ meltfptr[28] = /*_.SETQ___V39*/ meltfptr[36] = /*_.LIST___V36*/ meltfptr[31];; - /*_._IFELSE___V35*/ meltfptr[30] = /*_.SETQ___V39*/ meltfptr[36];; + /*_.NBINDIF__V29*/ + meltfptr[28] = /*_.SETQ___V39*/ meltfptr[36] = /*_.LIST___V36*/ meltfptr[31];; + /*_._IFELSE___V35*/ + meltfptr[30] = /*_.SETQ___V39*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3546:/ clear"); - /*clear*/ /*_.LIST___V36*/ meltfptr[31] = 0 ; + /*clear*/ /*_.LIST___V36*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V39*/ meltfptr[36] = 0 ; + /*clear*/ /*_.SETQ___V39*/ + meltfptr[36] = 0 ; } ; } @@ -45341,7 +50086,8 @@ meltlab_endgetargs: meltgc_prepend_list((melt_ptr_t)(/*_.NBINDIF__V29*/ meltfptr[28]), (melt_ptr_t)(/*_.CINTBIND__V25*/ meltfptr[24])); } ; - /*clear*/ /*_._IFELSE___V35*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V35*/ + meltfptr[30] = 0 ; /*epilog*/ } ; @@ -45366,7 +50112,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V42*/ meltfptr[36];/*^multimsend.send*/ - /*_.NTHEN__V41*/ meltfptr[31] = meltgc_send ((melt_ptr_t)(/*_.STHEN__V21*/ meltfptr[20]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NTHEN__V41*/ + meltfptr[31] = meltgc_send ((melt_ptr_t)(/*_.STHEN__V21*/ meltfptr[20]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -45392,7 +50139,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)) @@ -45401,7 +50149,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3557:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45434,16 +50183,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_if nthen"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NTHEN__V41*/ meltfptr[31]; - /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V44*/ + meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V43*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];; + /*_._IF___V43*/ + meltfptr[42] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3557:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ + meltfptr[43] = 0 ; } ; } @@ -45456,7 +50209,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3557:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -45465,9 +50219,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V43*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -45497,11 +50253,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L12*/ meltfnum[10] = + /*_#IS_LIST_OR_NULL__L12*/ + meltfnum[10] = ((/*_.NBINDTHEN__V42*/ meltfptr[36]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDTHEN__V42*/ meltfptr[36])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-normal.melt:3558:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L12*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#IS_LIST_OR_NULL__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V46*/ meltfptr[42] = (/*nil*/NULL);; @@ -45530,25 +50288,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3558; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V42*/ meltfptr[36]; - /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V47*/ + meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V46*/ meltfptr[42] = /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[46];; + /*_._IFELSE___V46*/ + meltfptr[42] = /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3558:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V47*/ + meltfptr[46] = 0 ; } ; } ; - /*_.IFCPP___V45*/ meltfptr[43] = /*_._IFELSE___V46*/ meltfptr[42];; + /*_.IFCPP___V45*/ + meltfptr[43] = /*_._IFELSE___V46*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3558:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L12*/ meltfnum[10] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L12*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V46*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IFELSE___V46*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -45572,7 +50336,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V51*/ meltfptr[50] = + /*newclosure*/ /*_.LAMBDA___V51*/ + meltfptr[50] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ meltfrout->tabval[14])), (1)); ; /*^putclosedv*/ @@ -45581,7 +50346,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V51*/ meltfptr[50]))); ((meltclosure_ptr_t)/*_.LAMBDA___V51*/ meltfptr[50])->tabval[0] = (melt_ptr_t)(/*_.NEWTHENENV__V49*/ meltfptr[42]); ; - /*_.LAMBDA___V50*/ meltfptr[49] = /*_.LAMBDA___V51*/ meltfptr[50];; + /*_.LAMBDA___V50*/ + meltfptr[49] = /*_.LAMBDA___V51*/ meltfptr[50];; MELT_CHECK_SIGNAL(); ; @@ -45592,7 +50358,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V50*/ meltfptr[49]; - /*_.LIST_EVERY__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.NBINDTHEN__V42*/ meltfptr[36]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_EVERY__V52*/ + meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.NBINDTHEN__V42*/ meltfptr[36]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -45605,11 +50372,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTHENENV__V49*/ meltfptr[42]; - /*_.GET_CTYPE__V53*/ meltfptr[52] = meltgc_send((melt_ptr_t)(/*_.NTHEN__V41*/ meltfptr[31]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[15])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GET_CTYPE__V53*/ + meltfptr[52] = meltgc_send((melt_ptr_t)(/*_.NTHEN__V41*/ meltfptr[31]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[15])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.CTYPIF__V20*/ meltfptr[19] = /*_.SETQ___V54*/ meltfptr[53] = /*_.GET_CTYPE__V53*/ meltfptr[52];; + /*_.CTYPIF__V20*/ + meltfptr[19] = /*_.SETQ___V54*/ meltfptr[53] = /*_.GET_CTYPE__V53*/ meltfptr[52];; MELT_LOCATION("warmelt-normal.melt:3566:/ quasiblock"); @@ -45633,7 +50402,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[17])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V58*/ meltfptr[57] = + /*_.INST__V58*/ + meltfptr[57] = newobj; }; ; @@ -45656,7 +50426,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V58*/ meltfptr[57], "newly made instance"); ; - /*_.CLOCC__V57*/ meltfptr[56] = /*_.INST__V58*/ meltfptr[57];; + /*_.CLOCC__V57*/ + meltfptr[56] = /*_.INST__V58*/ meltfptr[57];; MELT_CHECK_SIGNAL(); ; @@ -45669,7 +50440,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V42*/ meltfptr[36]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; - /*_.WTHEN__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NTHEN__V41*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.WTHEN__V59*/ + meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NTHEN__V41*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -45686,7 +50458,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IF*/ meltfrout->tabval[19])), (5), "CLASS_NREP_IF"); - /*_.INST__V61*/ meltfptr[60] = + /*_.INST__V61*/ + meltfptr[60] = newobj; }; ; @@ -45719,7 +50492,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V61*/ meltfptr[60], "newly made instance"); ; - /*_.INST___V60*/ meltfptr[59] = /*_.INST__V61*/ meltfptr[60];; + /*_.INST___V60*/ + meltfptr[59] = /*_.INST__V61*/ meltfptr[60];; MELT_LOCATION("warmelt-normal.melt:3572:/ quasiblock"); @@ -45728,7 +50502,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__V63*/ meltfptr[62] = + /*_.INST__V63*/ + meltfptr[62] = newobj; }; ; @@ -45756,7 +50531,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V63*/ meltfptr[62], "newly made instance"); ; - /*_.CBIND__V62*/ meltfptr[61] = /*_.INST__V63*/ meltfptr[62];; + /*_.CBIND__V62*/ + meltfptr[61] = /*_.INST__V63*/ meltfptr[62];; MELT_CHECK_SIGNAL(); ; @@ -45779,13 +50555,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L13*/ meltfnum[0] = + /*_#IS_LIST__L13*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.NBINDIF__V29*/ meltfptr[28])) == MELTOBMAG_LIST);; /*^compute*/ - /*_#NOT__L14*/ meltfnum[10] = + /*_#NOT__L14*/ + meltfnum[10] = (!(/*_#IS_LIST__L13*/ meltfnum[0]));; MELT_LOCATION("warmelt-normal.melt:3586:/ cond"); - /*cond*/ if (/*_#NOT__L14*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#NOT__L14*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45795,14 +50574,18 @@ meltlab_endgetargs: /*_.MAKE_LIST__V65*/ meltfptr[64] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[20]))));; MELT_LOCATION("warmelt-normal.melt:3587:/ compute"); - /*_.NBINDIF__V29*/ meltfptr[28] = /*_.SETQ___V66*/ meltfptr[65] = /*_.MAKE_LIST__V65*/ meltfptr[64];; - /*_._IF___V64*/ meltfptr[63] = /*_.SETQ___V66*/ meltfptr[65];; + /*_.NBINDIF__V29*/ + meltfptr[28] = /*_.SETQ___V66*/ meltfptr[65] = /*_.MAKE_LIST__V65*/ meltfptr[64];; + /*_._IF___V64*/ + meltfptr[63] = /*_.SETQ___V66*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3586:/ clear"); - /*clear*/ /*_.MAKE_LIST__V65*/ meltfptr[64] = 0 ; + /*clear*/ /*_.MAKE_LIST__V65*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.SETQ___V66*/ + meltfptr[65] = 0 ; } ; } @@ -45838,7 +50621,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L15*/ meltfnum[14] = + /*_#MELT_NEED_DBG__L15*/ + meltfnum[14] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -45847,7 +50631,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3589:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45884,16 +50669,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbindif="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDIF__V29*/ meltfptr[28]; - /*_.MELT_DEBUG_FUN__V68*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V68*/ + meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V67*/ meltfptr[64] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[65];; + /*_._IF___V67*/ + meltfptr[64] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3589:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ meltfptr[65] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ + meltfptr[65] = 0 ; } ; } @@ -45906,7 +50695,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3589:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -45915,9 +50705,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V67*/ meltfptr[64] = 0 ; + /*clear*/ /*_._IF___V67*/ + meltfptr[64] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -45943,7 +50735,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3590:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V57*/ meltfptr[56];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V57*/ meltfptr[56];; MELT_LOCATION("warmelt-normal.melt:3590:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -45951,94 +50744,132 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V55*/ meltfptr[54] = /*_.RETURN___V69*/ meltfptr[65];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V55*/ + meltfptr[54] = /*_.RETURN___V69*/ meltfptr[65];; MELT_LOCATION("warmelt-normal.melt:3566:/ clear"); - /*clear*/ /*_.CSYM__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.CSYM__V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.CLOCC__V57*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.WTHEN__V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.WTHEN__V59*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.INST___V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.CBIND__V62*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L13*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_LIST__L13*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L14*/ meltfnum[10] = 0 ; + /*clear*/ /*_#NOT__L14*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_._IF___V64*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V69*/ meltfptr[65] = 0 ; - /*_.LET___V48*/ meltfptr[46] = /*_.LET___V55*/ meltfptr[54];; + /*clear*/ /*_.RETURN___V69*/ + meltfptr[65] = 0 ; + /*_.LET___V48*/ + meltfptr[46] = /*_.LET___V55*/ meltfptr[54];; MELT_LOCATION("warmelt-normal.melt:3559:/ clear"); - /*clear*/ /*_.NEWTHENENV__V49*/ meltfptr[42] = 0 ; + /*clear*/ /*_.NEWTHENENV__V49*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.LAMBDA___V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_EVERY__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.LIST_EVERY__V52*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.GET_CTYPE__V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_.GET_CTYPE__V53*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.SETQ___V54*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.LET___V55*/ + meltfptr[54] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V40*/ meltfptr[37] = /*_.LET___V48*/ meltfptr[46];; + /*_.MULTI___V40*/ + meltfptr[37] = /*_.LET___V48*/ meltfptr[46];; MELT_LOCATION("warmelt-normal.melt:3554:/ clear"); - /*clear*/ /*_.IFCPP___V45*/ meltfptr[43] = 0 ; + /*clear*/ /*_.IFCPP___V45*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V48*/ meltfptr[46] = 0 ; + /*clear*/ /*_.LET___V48*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDTHEN__V42*/ meltfptr[36] = 0 ; + /*clear*/ /*_.NBINDTHEN__V42*/ + meltfptr[36] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V27*/ meltfptr[26] = /*_.MULTI___V40*/ meltfptr[37];; + /*_.MULTI___V27*/ + meltfptr[26] = /*_.MULTI___V40*/ meltfptr[37];; MELT_LOCATION("warmelt-normal.melt:3540:/ clear"); - /*clear*/ /*_.IFCPP___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.IFCPP___V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L9*/ meltfnum[4] = 0 ; + /*clear*/ /*_#NULL__L9*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V35*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V35*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V40*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MULTI___V40*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDIF__V29*/ meltfptr[28] = 0 ; - /*_.LET___V17*/ meltfptr[6] = /*_.MULTI___V27*/ meltfptr[26];; + /*clear*/ /*_.NBINDIF__V29*/ + meltfptr[28] = 0 ; + /*_.LET___V17*/ + meltfptr[6] = /*_.MULTI___V27*/ meltfptr[26];; MELT_LOCATION("warmelt-normal.melt:3528:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[13] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.STEST__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.STEST__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPIF__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.CTYPIF__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.STHEN__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.STHEN__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTSYMB__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.CINTSYMB__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHINT__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.NCHINT__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CINTBIND__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MULTI___V27*/ + meltfptr[26] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3523:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; { MELT_LOCATION("warmelt-normal.melt:3523:/ locexp"); @@ -46053,17 +50884,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.IFCPP___V12*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ meltfptr[6] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[6] = 0 ; } ; @@ -46145,7 +50981,8 @@ meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6 fromline 1756 */ - /* classy proc frame meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6 */ MeltFrame_meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6 + /* classy proc frame meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6 */ + MeltFrame_meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6 fromline 1785*/ #if ENABLE_CHECKING @@ -46158,7 +50995,8 @@ meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl6", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -46168,7 +51006,8 @@ meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3562:/ getarg"); - /*_.B__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.B__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -46188,13 +51027,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.B__V2*/ meltfptr[1]; - /*_.PUT_ENV__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~NEWTHENENV*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V3*/ + meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~NEWTHENENV*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^quasiblock*/ - /*_._RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; { MELT_LOCATION("warmelt-normal.melt:3562:/ locexp"); @@ -46209,11 +51050,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.PUT_ENV__V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_.PUT_ENV__V3*/ + meltfptr[2] = 0 ; } ; @@ -46295,7 +51138,8 @@ meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE(meltclosure_ptr_t meltclosp_, melt_pt /* end of frame for routine meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE fromline 1756 */ - /* classy proc frame meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE */ MeltFrame_meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE + /* classy proc frame meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE */ + MeltFrame_meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE fromline 1785*/ #if ENABLE_CHECKING @@ -46308,7 +51152,8 @@ meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE(meltclosure_ptr_t meltclosp_, melt_pt #define meltframe meltfram__ melt_trace_start("NORMEXP_IFELSE", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -46318,26 +51163,30 @@ meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE(meltclosure_ptr_t meltclosp_, melt_pt /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3598:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.PSLOC__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; @@ -46369,7 +51218,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)) @@ -46378,7 +51228,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3599:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -46394,7 +51245,8 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_LOCATION("warmelt-normal.melt:3600:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3]))) ) /*then*/ @@ -46405,7 +51257,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "ENV_PREV"); - /*_.ENV_PREV__V7*/ meltfptr[6] = slot; + /*_.ENV_PREV__V7*/ + meltfptr[6] = slot; }; ; } @@ -46447,18 +51300,23 @@ meltlab_endgetargs: argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.ENV_PREV__V7*/ meltfptr[6]; /*^apply.arg*/ argtab[11].meltbp_cstring = "\n"; - /*_.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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3599:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.ENV_PREV__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.ENV_PREV__V7*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = 0 ; } ; } @@ -46471,7 +51329,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3599:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -46480,9 +51339,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*/ @@ -46512,10 +51373,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_IFELSE*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:3601:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[7] = (/*nil*/NULL);; @@ -46544,25 +51407,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3601; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[5];; + /*_._IFELSE___V10*/ + meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3601:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[5] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[6] = /*_._IFELSE___V10*/ meltfptr[7];; + /*_.IFCPP___V9*/ + meltfptr[6] = /*_._IFELSE___V10*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3601:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -46580,10 +51449,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:3602:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[7] = (/*nil*/NULL);; @@ -46612,25 +51483,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3602; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V13*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; + /*_._IFELSE___V13*/ + meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3602:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = 0 ; } ; } ; - /*_.IFCPP___V12*/ meltfptr[5] = /*_._IFELSE___V13*/ meltfptr[7];; + /*_.IFCPP___V12*/ + meltfptr[5] = /*_._IFELSE___V13*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3602:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V13*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -46648,10 +51525,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normal.melt:3603:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[7] = (/*nil*/NULL);; @@ -46680,25 +51559,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3603; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V17*/ + meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V16*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; + /*_._IFELSE___V16*/ + meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3603:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ + meltfptr[16] = 0 ; } ; } ; - /*_.IFCPP___V15*/ meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[7];; + /*_.IFCPP___V15*/ + meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3603:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -46714,7 +51599,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[7] = slot; + /*_.SLOC__V19*/ + meltfptr[7] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3605:/ getslot"); @@ -46722,16 +51608,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SIF_TEST"); - /*_.STEST__V20*/ meltfptr[19] = slot; + /*_.STEST__V20*/ + meltfptr[19] = slot; }; ; - /*_.CTYPIF__V21*/ meltfptr[20] = (/*!CTYPE_VOID*/ meltfrout->tabval[7]);; + /*_.CTYPIF__V21*/ + meltfptr[20] = (/*!CTYPE_VOID*/ meltfrout->tabval[7]);; MELT_LOCATION("warmelt-normal.melt:3607:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SIF_THEN"); - /*_.STHEN__V22*/ meltfptr[21] = slot; + /*_.STHEN__V22*/ + meltfptr[21] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3608:/ getslot"); @@ -46739,7 +51628,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, "SIF_ELSE"); - /*_.SELSE__V23*/ meltfptr[22] = slot; + /*_.SELSE__V23*/ + meltfptr[22] = slot; }; ; @@ -46762,7 +51652,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)) @@ -46771,7 +51662,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3610:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -46810,16 +51702,20 @@ meltlab_endgetargs: argtab[6].meltbp_cstring = "; stest="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.STEST__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V24*/ meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; + /*_._IF___V24*/ + meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3610:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ + meltfptr[24] = 0 ; } ; } @@ -46832,7 +51728,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3610:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -46841,9 +51738,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V24*/ + meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -46882,7 +51781,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[7]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDIF__V28*/ meltfptr[27];/*^multimsend.send*/ - /*_.NTEST__V27*/ meltfptr[23] = meltgc_send ((melt_ptr_t)(/*_.STEST__V20*/ meltfptr[19]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[8]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NTEST__V27*/ + meltfptr[23] = meltgc_send ((melt_ptr_t)(/*_.STEST__V20*/ meltfptr[19]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[8]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -46908,7 +51808,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)) @@ -46917,7 +51818,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3614:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -46954,16 +51856,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "; nbindif="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDIF__V28*/ meltfptr[27]; - /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V29*/ meltfptr[28] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; + /*_._IF___V29*/ + meltfptr[28] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3614:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[29] = 0 ; } ; } @@ -46976,7 +51882,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3614:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -46985,9 +51892,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_._IF___V29*/ + meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47017,11 +51926,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L10*/ meltfnum[0] = + /*_#IS_LIST_OR_NULL__L10*/ + meltfnum[0] = ((/*_.NBINDIF__V28*/ meltfptr[27]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDIF__V28*/ meltfptr[27])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-normal.melt:3615:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L10*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_LIST_OR_NULL__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V32*/ meltfptr[28] = (/*nil*/NULL);; @@ -47050,25 +51961,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3615; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDIF__V28*/ meltfptr[27]; - /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V33*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V32*/ meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32];; + /*_._IFELSE___V32*/ + meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3615:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V33*/ + meltfptr[32] = 0 ; } ; } ; - /*_.IFCPP___V31*/ meltfptr[29] = /*_._IFELSE___V32*/ meltfptr[28];; + /*_.IFCPP___V31*/ + meltfptr[29] = /*_._IFELSE___V32*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3615:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L10*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L10*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V32*/ meltfptr[28] = 0 ; + /*clear*/ /*_._IFELSE___V32*/ + meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47099,7 +52016,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHECKSIGNAL*/ meltfrout->tabval[11])), (1), "CLASS_NREP_CHECKSIGNAL"); - /*_.INST__V37*/ meltfptr[36] = + /*_.INST__V37*/ + meltfptr[36] = newobj; }; ; @@ -47112,7 +52030,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V37*/ meltfptr[36], "newly made instance"); ; - /*_.NCHINT__V36*/ meltfptr[35] = /*_.INST__V37*/ meltfptr[36];; + /*_.NCHINT__V36*/ + meltfptr[35] = /*_.INST__V37*/ meltfptr[36];; MELT_CHECK_SIGNAL(); ; @@ -47124,7 +52043,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V39*/ meltfptr[38] = + /*_.INST__V39*/ + meltfptr[38] = newobj; }; ; @@ -47147,15 +52067,18 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V39*/ meltfptr[38], "newly made instance"); ; - /*_.CINTBIND__V38*/ meltfptr[37] = /*_.INST__V39*/ meltfptr[38];; + /*_.CINTBIND__V38*/ + meltfptr[37] = /*_.INST__V39*/ meltfptr[38];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_LIST__L11*/ meltfnum[1] = + /*_#IS_LIST__L11*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.NBINDIF__V28*/ meltfptr[27])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:3625:/ cond"); - /*cond*/ if (/*_#IS_LIST__L11*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -47170,7 +52093,8 @@ meltlab_endgetargs: meltgc_prepend_list((melt_ptr_t)(/*_.NBINDIF__V28*/ meltfptr[27]), (melt_ptr_t)(/*_.CINTBIND__V38*/ meltfptr[37])); } ; - /*clear*/ /*_._IFELSE___V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IFELSE___V40*/ + meltfptr[39] = 0 ; /*epilog*/ } ; @@ -47195,11 +52119,13 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0__CINTBIND_x4*/ - /*_.CINTBIND__V42*/ meltfptr[41] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x4; + /*_.CINTBIND__V42*/ + meltfptr[41] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x4; meltletrec_1_ptr->rpair_0__CINTBIND_x4.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ - /*_.LIST___V43*/ meltfptr[42] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; + /*_.LIST___V43*/ + meltfptr[42] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; meltletrec_1_ptr->rlist_1__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); @@ -47221,44 +52147,59 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V43*/ meltfptr[42]); ; - /*_.LIST___V41*/ meltfptr[40] = /*_.LIST___V43*/ meltfptr[42];; + /*_.LIST___V41*/ + meltfptr[40] = /*_.LIST___V43*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3627:/ clear"); - /*clear*/ /*_.CINTBIND__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.CINTBIND__V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.LIST___V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.CINTBIND__V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.LIST___V43*/ + meltfptr[42] = 0 ; } /*end multiallocblock*/ ; /*^compute*/ - /*_.NBINDIF__V28*/ meltfptr[27] = /*_.SETQ___V44*/ meltfptr[41] = /*_.LIST___V41*/ meltfptr[40];; - /*_._IFELSE___V40*/ meltfptr[39] = /*_.SETQ___V44*/ meltfptr[41];; + /*_.NBINDIF__V28*/ + meltfptr[27] = /*_.SETQ___V44*/ meltfptr[41] = /*_.LIST___V41*/ meltfptr[40];; + /*_._IFELSE___V40*/ + meltfptr[39] = /*_.SETQ___V44*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3625:/ clear"); - /*clear*/ /*_.LIST___V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.LIST___V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V44*/ meltfptr[41] = 0 ; + /*clear*/ /*_.SETQ___V44*/ + meltfptr[41] = 0 ; } ; } ; - /*_.LET___V34*/ meltfptr[32] = /*_._IFELSE___V40*/ meltfptr[39];; + /*_.LET___V34*/ + meltfptr[32] = /*_._IFELSE___V40*/ meltfptr[39];; MELT_LOCATION("warmelt-normal.melt:3617:/ clear"); - /*clear*/ /*_.CINTSYMB__V35*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CINTSYMB__V35*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHINT__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.NCHINT__V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.CINTBIND__V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IFELSE___V40*/ + meltfptr[39] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:3632:/ cppif.then"); @@ -47279,7 +52220,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -47288,7 +52230,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3632:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -47327,16 +52270,20 @@ meltlab_endgetargs: argtab[6].meltbp_cstring = "; sthen="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.STHEN__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V46*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V46*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V45*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[40];; + /*_._IF___V45*/ + meltfptr[42] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3632:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ + meltfptr[40] = 0 ; } ; } @@ -47349,7 +52296,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3632:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -47358,9 +52306,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V45*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V45*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47399,7 +52349,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[7]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V49*/ meltfptr[35];/*^multimsend.send*/ - /*_.NTHEN__V48*/ meltfptr[28] = meltgc_send ((melt_ptr_t)(/*_.STHEN__V22*/ meltfptr[21]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[8]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NTHEN__V48*/ + meltfptr[28] = meltgc_send ((melt_ptr_t)(/*_.STHEN__V22*/ meltfptr[21]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[8]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -47425,7 +52376,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L14*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -47434,7 +52386,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3636:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -47471,16 +52424,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbindthen="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V49*/ meltfptr[35]; - /*_.MELT_DEBUG_FUN__V51*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V51*/ + 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V50*/ meltfptr[37] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[39];; + /*_._IF___V50*/ + meltfptr[37] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3636:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ + meltfptr[39] = 0 ; } ; } @@ -47493,7 +52450,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3636:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -47502,9 +52460,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V50*/ meltfptr[37] = 0 ; + /*clear*/ /*_._IF___V50*/ + meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47534,11 +52494,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L16*/ meltfnum[0] = + /*_#IS_LIST_OR_NULL__L16*/ + meltfnum[0] = ((/*_.NBINDTHEN__V49*/ meltfptr[35]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDTHEN__V49*/ meltfptr[35])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-normal.melt:3637:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L16*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_LIST_OR_NULL__L16*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V53*/ meltfptr[42] = (/*nil*/NULL);; @@ -47567,25 +52529,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3637; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V49*/ meltfptr[35]; - /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V54*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V53*/ meltfptr[42] = /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[39];; + /*_._IFELSE___V53*/ + meltfptr[42] = /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3637:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V54*/ + meltfptr[39] = 0 ; } ; } ; - /*_.IFCPP___V52*/ meltfptr[40] = /*_._IFELSE___V53*/ meltfptr[42];; + /*_.IFCPP___V52*/ + meltfptr[40] = /*_._IFELSE___V53*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3637:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L16*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L16*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V53*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IFELSE___V53*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47625,7 +52593,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L17*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -47634,7 +52603,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3639:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L17*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -47673,16 +52643,20 @@ meltlab_endgetargs: argtab[6].meltbp_cstring = "; newthenenv="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTHENENV__V56*/ meltfptr[39]; - /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57] = melt_apply ((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_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V58*/ + meltfptr[57] = melt_apply ((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_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V57*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57];; + /*_._IF___V57*/ + meltfptr[42] = /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3639:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L18*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V58*/ + meltfptr[57] = 0 ; } ; } @@ -47695,7 +52669,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3639:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -47704,9 +52679,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V57*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V57*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47730,7 +52707,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V60*/ meltfptr[42] = + /*newclosure*/ /*_.LAMBDA___V60*/ + meltfptr[42] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_16*/ meltfrout->tabval[16])), (1)); ; /*^putclosedv*/ @@ -47739,7 +52717,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V60*/ meltfptr[42]))); ((meltclosure_ptr_t)/*_.LAMBDA___V60*/ meltfptr[42])->tabval[0] = (melt_ptr_t)(/*_.NEWTHENENV__V56*/ meltfptr[39]); ; - /*_.LAMBDA___V59*/ meltfptr[57] = /*_.LAMBDA___V60*/ meltfptr[42];; + /*_.LAMBDA___V59*/ + meltfptr[57] = /*_.LAMBDA___V60*/ meltfptr[42];; MELT_CHECK_SIGNAL(); ; @@ -47750,7 +52729,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V59*/ meltfptr[57]; - /*_.LIST_EVERY__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NBINDTHEN__V49*/ meltfptr[35]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_EVERY__V61*/ + meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NBINDTHEN__V49*/ meltfptr[35]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -47763,11 +52743,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTHENENV__V56*/ meltfptr[39]; - /*_.GET_CTYPE__V62*/ meltfptr[61] = meltgc_send((melt_ptr_t)(/*_.NTHEN__V48*/ meltfptr[28]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GET_CTYPE__V62*/ + meltfptr[61] = meltgc_send((melt_ptr_t)(/*_.NTHEN__V48*/ meltfptr[28]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.CTYPIF__V21*/ meltfptr[20] = /*_.SETQ___V63*/ meltfptr[62] = /*_.GET_CTYPE__V62*/ meltfptr[61];; + /*_.CTYPIF__V21*/ + meltfptr[20] = /*_.SETQ___V63*/ meltfptr[62] = /*_.GET_CTYPE__V62*/ meltfptr[61];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:3645:/ cppif.then"); @@ -47788,7 +52770,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L19*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L19*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -47797,7 +52780,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3645:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -47836,16 +52820,20 @@ meltlab_endgetargs: argtab[6].meltbp_cstring = "; selse="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.SELSE__V23*/ meltfptr[22]; - /*_.MELT_DEBUG_FUN__V65*/ meltfptr[64] = melt_apply ((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_PTR 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[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V64*/ meltfptr[63] = /*_.MELT_DEBUG_FUN__V65*/ meltfptr[64];; + /*_._IF___V64*/ + meltfptr[63] = /*_.MELT_DEBUG_FUN__V65*/ meltfptr[64];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3645:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V65*/ meltfptr[64] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V65*/ + meltfptr[64] = 0 ; } ; } @@ -47858,7 +52846,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3645:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -47867,9 +52856,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_._IF___V64*/ + meltfptr[63] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47908,7 +52899,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[7]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDELSE__V68*/ meltfptr[67];/*^multimsend.send*/ - /*_.NELSE__V67*/ meltfptr[63] = meltgc_send ((melt_ptr_t)(/*_.SELSE__V23*/ meltfptr[22]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[8]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NELSE__V67*/ + meltfptr[63] = meltgc_send ((melt_ptr_t)(/*_.SELSE__V23*/ meltfptr[22]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[8]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -47934,7 +52926,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L21*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -47943,7 +52936,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3649:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -47980,16 +52974,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbindelse="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDELSE__V68*/ meltfptr[67]; - /*_.MELT_DEBUG_FUN__V70*/ meltfptr[69] = melt_apply ((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__V70*/ + meltfptr[69] = melt_apply ((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___V69*/ meltfptr[68] = /*_.MELT_DEBUG_FUN__V70*/ meltfptr[69];; + /*_._IF___V69*/ + meltfptr[68] = /*_.MELT_DEBUG_FUN__V70*/ meltfptr[69];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3649:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V70*/ meltfptr[69] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V70*/ + meltfptr[69] = 0 ; } ; } @@ -48002,7 +53000,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3649:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -48011,9 +53010,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_._IF___V69*/ + meltfptr[68] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -48043,11 +53044,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L23*/ meltfnum[0] = + /*_#IS_LIST_OR_NULL__L23*/ + meltfnum[0] = ((/*_.NBINDELSE__V68*/ meltfptr[67]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDELSE__V68*/ meltfptr[67])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-normal.melt:3650:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L23*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_LIST_OR_NULL__L23*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V72*/ meltfptr[68] = (/*nil*/NULL);; @@ -48076,25 +53079,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3650; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDELSE__V68*/ meltfptr[67]; - /*_.MELT_ASSERT_FAILURE_FUN__V73*/ meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V73*/ + meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V72*/ meltfptr[68] = /*_.MELT_ASSERT_FAILURE_FUN__V73*/ meltfptr[72];; + /*_._IFELSE___V72*/ + meltfptr[68] = /*_.MELT_ASSERT_FAILURE_FUN__V73*/ meltfptr[72];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3650:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V73*/ meltfptr[72] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V73*/ + meltfptr[72] = 0 ; } ; } ; - /*_.IFCPP___V71*/ meltfptr[69] = /*_._IFELSE___V72*/ meltfptr[68];; + /*_.IFCPP___V71*/ + meltfptr[69] = /*_._IFELSE___V72*/ meltfptr[68];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3650:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L23*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L23*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V72*/ meltfptr[68] = 0 ; + /*clear*/ /*_._IFELSE___V72*/ + meltfptr[68] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -48121,7 +53130,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V78*/ meltfptr[77] = + /*newclosure*/ /*_.LAMBDA___V78*/ + meltfptr[77] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ meltfrout->tabval[19])), (1)); ; /*^putclosedv*/ @@ -48130,7 +53140,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V78*/ meltfptr[77]))); ((meltclosure_ptr_t)/*_.LAMBDA___V78*/ meltfptr[77])->tabval[0] = (melt_ptr_t)(/*_.NENV__V76*/ meltfptr[75]); ; - /*_.LAMBDA___V77*/ meltfptr[76] = /*_.LAMBDA___V78*/ meltfptr[77];; + /*_.LAMBDA___V77*/ + meltfptr[76] = /*_.LAMBDA___V78*/ meltfptr[77];; MELT_CHECK_SIGNAL(); ; @@ -48141,18 +53152,24 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V77*/ meltfptr[76]; - /*_.LIST_EVERY__V79*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NBINDELSE__V68*/ meltfptr[67]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_EVERY__V79*/ + meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NBINDELSE__V68*/ meltfptr[67]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V75*/ meltfptr[68] = /*_.NENV__V76*/ meltfptr[75];; + /*_.LET___V75*/ + meltfptr[68] = /*_.NENV__V76*/ meltfptr[75];; MELT_LOCATION("warmelt-normal.melt:3653:/ clear"); - /*clear*/ /*_.NENV__V76*/ meltfptr[75] = 0 ; + /*clear*/ /*_.NENV__V76*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V77*/ meltfptr[76] = 0 ; + /*clear*/ /*_.LAMBDA___V77*/ + meltfptr[76] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_EVERY__V79*/ meltfptr[78] = 0 ; - /*_.NEWELSEENV__V80*/ meltfptr[75] = /*_.LET___V75*/ meltfptr[68];; + /*clear*/ /*_.LIST_EVERY__V79*/ + meltfptr[78] = 0 ; + /*_.NEWELSEENV__V80*/ + meltfptr[75] = /*_.LET___V75*/ meltfptr[68];; MELT_CHECK_SIGNAL(); ; @@ -48163,7 +53180,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWELSEENV__V80*/ meltfptr[75]; - /*_.CTYPELSE__V81*/ meltfptr[76] = meltgc_send((melt_ptr_t)(/*_.NELSE__V67*/ meltfptr[63]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CTYPELSE__V81*/ + meltfptr[76] = meltgc_send((melt_ptr_t)(/*_.NELSE__V67*/ meltfptr[63]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -48186,7 +53204,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L24*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L24*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -48195,7 +53214,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3661:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L24*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L24*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -48234,16 +53254,20 @@ meltlab_endgetargs: argtab[6].meltbp_cstring = " newelseenv="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.NEWELSEENV__V80*/ meltfptr[75]; - /*_.MELT_DEBUG_FUN__V83*/ 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 MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V83*/ + 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 MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V82*/ meltfptr[78] = /*_.MELT_DEBUG_FUN__V83*/ meltfptr[82];; + /*_._IF___V82*/ + meltfptr[78] = /*_.MELT_DEBUG_FUN__V83*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3661:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L25*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L25*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V83*/ + meltfptr[82] = 0 ; } ; } @@ -48256,7 +53280,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3661:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -48265,9 +53290,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L24*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L24*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V82*/ meltfptr[78] = 0 ; + /*clear*/ /*_._IF___V82*/ + meltfptr[78] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -48297,10 +53324,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L26*/ meltfnum[0] = + /*_#IS_A__L26*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CTYPIF__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[20])));; MELT_LOCATION("warmelt-normal.melt:3662:/ cond"); - /*cond*/ if (/*_#IS_A__L26*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L26*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V85*/ meltfptr[78] = (/*nil*/NULL);; @@ -48329,25 +53358,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3662; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPIF__V21*/ meltfptr[20]; - /*_.MELT_ASSERT_FAILURE_FUN__V86*/ meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V86*/ + meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V85*/ meltfptr[78] = /*_.MELT_ASSERT_FAILURE_FUN__V86*/ meltfptr[85];; + /*_._IFELSE___V85*/ + meltfptr[78] = /*_.MELT_ASSERT_FAILURE_FUN__V86*/ meltfptr[85];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3662:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V86*/ meltfptr[85] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V86*/ + meltfptr[85] = 0 ; } ; } ; - /*_.IFCPP___V84*/ meltfptr[82] = /*_._IFELSE___V85*/ meltfptr[78];; + /*_.IFCPP___V84*/ + meltfptr[82] = /*_._IFELSE___V85*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3662:/ clear"); - /*clear*/ /*_#IS_A__L26*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L26*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V85*/ meltfptr[78] = 0 ; + /*clear*/ /*_._IFELSE___V85*/ + meltfptr[78] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -48365,10 +53400,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L27*/ meltfnum[1] = + /*_#IS_A__L27*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CTYPELSE__V81*/ meltfptr[76]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[20])));; MELT_LOCATION("warmelt-normal.melt:3663:/ cond"); - /*cond*/ if (/*_#IS_A__L27*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L27*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V88*/ meltfptr[78] = (/*nil*/NULL);; @@ -48397,25 +53434,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3663; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPELSE__V81*/ meltfptr[76]; - /*_.MELT_ASSERT_FAILURE_FUN__V89*/ meltfptr[88] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V89*/ + meltfptr[88] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V88*/ meltfptr[78] = /*_.MELT_ASSERT_FAILURE_FUN__V89*/ meltfptr[88];; + /*_._IFELSE___V88*/ + meltfptr[78] = /*_.MELT_ASSERT_FAILURE_FUN__V89*/ meltfptr[88];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3663:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V89*/ meltfptr[88] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V89*/ + meltfptr[88] = 0 ; } ; } ; - /*_.IFCPP___V87*/ meltfptr[85] = /*_._IFELSE___V88*/ meltfptr[78];; + /*_.IFCPP___V87*/ + meltfptr[85] = /*_._IFELSE___V88*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3663:/ clear"); - /*clear*/ /*_#IS_A__L27*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L27*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V88*/ meltfptr[78] = 0 ; + /*clear*/ /*_._IFELSE___V88*/ + meltfptr[78] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -48427,10 +53470,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#eqeq__L28*/ meltfnum[0] = + /*_#eqeq__L28*/ + meltfnum[0] = ((/*_.CTYPIF__V21*/ meltfptr[20]) == (/*_.CTYPELSE__V81*/ meltfptr[76]));; MELT_LOCATION("warmelt-normal.melt:3665:/ cond"); - /*cond*/ if (/*_#eqeq__L28*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#eqeq__L28*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V90*/ meltfptr[88] = (/*nil*/NULL);; @@ -48449,10 +53494,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#exeq__L29*/ meltfnum[1] = + /*_#exeq__L29*/ + meltfnum[1] = ((/*_.CTYPIF__V21*/ meltfptr[20]) != ((/*!CTYPE_VOID*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:3668:/ cond"); - /*cond*/ if (/*_#exeq__L29*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#exeq__L29*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -48462,11 +53509,13 @@ meltlab_endgetargs: /*_#eqeq__L31*/ meltfnum[30] = ((/*_.CTYPELSE__V81*/ meltfptr[76]) == ((/*!CTYPE_VOID*/ meltfrout->tabval[7])));; /*^compute*/ - /*_#_IF___L30*/ meltfnum[29] = /*_#eqeq__L31*/ meltfnum[30];; + /*_#_IF___L30*/ + meltfnum[29] = /*_#eqeq__L31*/ meltfnum[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3668:/ clear"); - /*clear*/ /*_#eqeq__L31*/ meltfnum[30] = 0 ; + /*clear*/ /*_#eqeq__L31*/ + meltfnum[30] = 0 ; } ; } @@ -48477,7 +53526,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3668:/ cond"); - /*cond*/ if (/*_#_IF___L30*/ meltfnum[29]) /*then*/ + /*cond*/ + if (/*_#_IF___L30*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V91*/ meltfptr[78] = (/*nil*/NULL);; @@ -48496,10 +53546,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L32*/ meltfnum[30] = + /*_#eqeq__L32*/ + meltfnum[30] = ((/*_.CTYPIF__V21*/ meltfptr[20]) == ((/*!CTYPE_VOID*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:3671:/ cond"); - /*cond*/ if (/*_#eqeq__L32*/ meltfnum[30]) /*then*/ + /*cond*/ + if (/*_#eqeq__L32*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -48509,11 +53561,13 @@ meltlab_endgetargs: /*_#exeq__L34*/ meltfnum[33] = ((/*_.CTYPELSE__V81*/ meltfptr[76]) != ((/*!CTYPE_VOID*/ meltfrout->tabval[7])));; /*^compute*/ - /*_#_IF___L33*/ meltfnum[32] = /*_#exeq__L34*/ meltfnum[33];; + /*_#_IF___L33*/ + meltfnum[32] = /*_#exeq__L34*/ meltfnum[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3671:/ clear"); - /*clear*/ /*_#exeq__L34*/ meltfnum[33] = 0 ; + /*clear*/ /*_#exeq__L34*/ + meltfnum[33] = 0 ; } ; } @@ -48524,7 +53578,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3671:/ cond"); - /*cond*/ if (/*_#_IF___L33*/ meltfnum[32]) /*then*/ + /*cond*/ + if (/*_#_IF___L33*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -48532,12 +53587,15 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3672:/ compute"); - /*_.CTYPIF__V21*/ meltfptr[20] = /*_.SETQ___V93*/ meltfptr[92] = /*_.CTYPELSE__V81*/ meltfptr[76];; - /*_._IFELSE___V92*/ meltfptr[91] = /*_.SETQ___V93*/ meltfptr[92];; + /*_.CTYPIF__V21*/ + meltfptr[20] = /*_.SETQ___V93*/ meltfptr[92] = /*_.CTYPELSE__V81*/ meltfptr[76];; + /*_._IFELSE___V92*/ + meltfptr[91] = /*_.SETQ___V93*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3671:/ clear"); - /*clear*/ /*_.SETQ___V93*/ meltfptr[92] = 0 ; + /*clear*/ /*_.SETQ___V93*/ + meltfptr[92] = 0 ; } ; } @@ -48553,7 +53611,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYPIF__V21*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V94*/ meltfptr[92] = slot; + /*_.NAMED_NAME__V94*/ + meltfptr[92] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3678:/ getslot"); @@ -48561,7 +53620,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYPELSE__V81*/ meltfptr[76]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V95*/ meltfptr[94] = slot; + /*_.NAMED_NAME__V95*/ + meltfptr[94] = slot; }; ; @@ -48579,75 +53639,100 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V94*/ meltfptr[92]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V95*/ meltfptr[94]; - /*_.ERROR_AT__V96*/ meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[7]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V96*/ + meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[7]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3679:/ compute"); - /*_.CTYPIF__V21*/ meltfptr[20] = /*_.SETQ___V97*/ meltfptr[96] = (/*!CTYPE_VOID*/ meltfrout->tabval[7]);; + /*_.CTYPIF__V21*/ + meltfptr[20] = /*_.SETQ___V97*/ meltfptr[96] = (/*!CTYPE_VOID*/ meltfrout->tabval[7]);; MELT_LOCATION("warmelt-normal.melt:3674:/ quasiblock"); - /*_.PROGN___V98*/ meltfptr[97] = /*_.SETQ___V97*/ meltfptr[96];; + /*_.PROGN___V98*/ + meltfptr[97] = /*_.SETQ___V97*/ meltfptr[96];; /*^compute*/ - /*_._IFELSE___V92*/ meltfptr[91] = /*_.PROGN___V98*/ meltfptr[97];; + /*_._IFELSE___V92*/ + meltfptr[91] = /*_.PROGN___V98*/ meltfptr[97];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3671:/ clear"); - /*clear*/ /*_.NAMED_NAME__V94*/ meltfptr[92] = 0 ; + /*clear*/ /*_.NAMED_NAME__V94*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V95*/ meltfptr[94] = 0 ; + /*clear*/ /*_.NAMED_NAME__V95*/ + meltfptr[94] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V96*/ meltfptr[95] = 0 ; + /*clear*/ /*_.ERROR_AT__V96*/ + meltfptr[95] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V97*/ meltfptr[96] = 0 ; + /*clear*/ /*_.SETQ___V97*/ + meltfptr[96] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V98*/ meltfptr[97] = 0 ; + /*clear*/ /*_.PROGN___V98*/ + meltfptr[97] = 0 ; } ; } ; - /*_._IFELSE___V91*/ meltfptr[78] = /*_._IFELSE___V92*/ meltfptr[91];; + /*_._IFELSE___V91*/ + meltfptr[78] = /*_._IFELSE___V92*/ meltfptr[91];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3668:/ clear"); - /*clear*/ /*_#eqeq__L32*/ meltfnum[30] = 0 ; + /*clear*/ /*_#eqeq__L32*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L33*/ meltfnum[32] = 0 ; + /*clear*/ /*_#_IF___L33*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V92*/ meltfptr[91] = 0 ; + /*clear*/ /*_._IFELSE___V92*/ + meltfptr[91] = 0 ; } ; } ; - /*_._IFELSE___V90*/ meltfptr[88] = /*_._IFELSE___V91*/ meltfptr[78];; + /*_._IFELSE___V90*/ + meltfptr[88] = /*_._IFELSE___V91*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3665:/ clear"); - /*clear*/ /*_#exeq__L29*/ meltfnum[1] = 0 ; + /*clear*/ /*_#exeq__L29*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L30*/ meltfnum[29] = 0 ; + /*clear*/ /*_#_IF___L30*/ + meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V91*/ meltfptr[78] = 0 ; + /*clear*/ /*_._IFELSE___V91*/ + meltfptr[78] = 0 ; } ; } ; - /*_.LET___V74*/ meltfptr[72] = /*_._IFELSE___V90*/ meltfptr[88];; + /*_.LET___V74*/ + meltfptr[72] = /*_._IFELSE___V90*/ meltfptr[88];; MELT_LOCATION("warmelt-normal.melt:3653:/ clear"); - /*clear*/ /*_.LET___V75*/ meltfptr[68] = 0 ; + /*clear*/ /*_.LET___V75*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWELSEENV__V80*/ meltfptr[75] = 0 ; + /*clear*/ /*_.NEWELSEENV__V80*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPELSE__V81*/ meltfptr[76] = 0 ; + /*clear*/ /*_.CTYPELSE__V81*/ + meltfptr[76] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V84*/ meltfptr[82] = 0 ; + /*clear*/ /*_.IFCPP___V84*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V87*/ meltfptr[85] = 0 ; + /*clear*/ /*_.IFCPP___V87*/ + meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L28*/ meltfnum[0] = 0 ; + /*clear*/ /*_#eqeq__L28*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V90*/ meltfptr[88] = 0 ; + /*clear*/ /*_._IFELSE___V90*/ + meltfptr[88] = 0 ; MELT_LOCATION("warmelt-normal.melt:3684:/ quasiblock"); @@ -48671,7 +53756,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[23])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V102*/ meltfptr[96] = + /*_.INST__V102*/ + meltfptr[96] = newobj; }; ; @@ -48694,7 +53780,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V102*/ meltfptr[96], "newly made instance"); ; - /*_.CLOCC__V101*/ meltfptr[95] = /*_.INST__V102*/ meltfptr[96];; + /*_.CLOCC__V101*/ + meltfptr[95] = /*_.INST__V102*/ meltfptr[96];; MELT_CHECK_SIGNAL(); ; @@ -48707,7 +53794,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V49*/ meltfptr[35]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[7]; - /*_.WTHEN__V103*/ meltfptr[97] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.NTHEN__V48*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.WTHEN__V103*/ + meltfptr[97] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.NTHEN__V48*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -48722,7 +53810,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDELSE__V68*/ meltfptr[67]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[7]; - /*_.WELSE__V104*/ meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.NELSE__V67*/ meltfptr[63]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.WELSE__V104*/ + meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.NELSE__V67*/ meltfptr[63]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -48739,7 +53828,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IF*/ meltfrout->tabval[25])), (5), "CLASS_NREP_IF"); - /*_.INST__V106*/ meltfptr[68] = + /*_.INST__V106*/ + meltfptr[68] = newobj; }; ; @@ -48772,7 +53862,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V106*/ meltfptr[68], "newly made instance"); ; - /*_.INST___V105*/ meltfptr[78] = /*_.INST__V106*/ meltfptr[68];; + /*_.INST___V105*/ + meltfptr[78] = /*_.INST__V106*/ meltfptr[68];; MELT_LOCATION("warmelt-normal.melt:3691:/ quasiblock"); @@ -48781,7 +53872,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V108*/ meltfptr[76] = + /*_.INST__V108*/ + meltfptr[76] = newobj; }; ; @@ -48809,7 +53901,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V108*/ meltfptr[76], "newly made instance"); ; - /*_.CBIND__V107*/ meltfptr[75] = /*_.INST__V108*/ meltfptr[76];; + /*_.CBIND__V107*/ + meltfptr[75] = /*_.INST__V108*/ meltfptr[76];; MELT_CHECK_SIGNAL(); ; @@ -48832,13 +53925,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L35*/ meltfnum[33] = + /*_#IS_LIST__L35*/ + meltfnum[33] = (melt_magic_discr((melt_ptr_t)(/*_.NBINDIF__V28*/ meltfptr[27])) == MELTOBMAG_LIST);; /*^compute*/ - /*_#NOT__L36*/ meltfnum[30] = + /*_#NOT__L36*/ + meltfnum[30] = (!(/*_#IS_LIST__L35*/ meltfnum[33]));; MELT_LOCATION("warmelt-normal.melt:3704:/ cond"); - /*cond*/ if (/*_#NOT__L36*/ meltfnum[30]) /*then*/ + /*cond*/ + if (/*_#NOT__L36*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -48848,14 +53944,18 @@ meltlab_endgetargs: /*_.MAKE_LIST__V110*/ meltfptr[85] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[26]))));; MELT_LOCATION("warmelt-normal.melt:3705:/ compute"); - /*_.NBINDIF__V28*/ meltfptr[27] = /*_.SETQ___V111*/ meltfptr[88] = /*_.MAKE_LIST__V110*/ meltfptr[85];; - /*_._IF___V109*/ meltfptr[82] = /*_.SETQ___V111*/ meltfptr[88];; + /*_.NBINDIF__V28*/ + meltfptr[27] = /*_.SETQ___V111*/ meltfptr[88] = /*_.MAKE_LIST__V110*/ meltfptr[85];; + /*_._IF___V109*/ + meltfptr[82] = /*_.SETQ___V111*/ meltfptr[88];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3704:/ clear"); - /*clear*/ /*_.MAKE_LIST__V110*/ meltfptr[85] = 0 ; + /*clear*/ /*_.MAKE_LIST__V110*/ + meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V111*/ meltfptr[88] = 0 ; + /*clear*/ /*_.SETQ___V111*/ + meltfptr[88] = 0 ; } ; } @@ -48891,7 +53991,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L37*/ meltfnum[32] = + /*_#MELT_NEED_DBG__L37*/ + meltfnum[32] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -48900,7 +54001,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3707:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[32]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L37*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -48937,16 +54039,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbindif="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDIF__V28*/ meltfptr[27]; - /*_.MELT_DEBUG_FUN__V113*/ 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_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V113*/ + 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_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V112*/ meltfptr[85] = /*_.MELT_DEBUG_FUN__V113*/ meltfptr[88];; + /*_._IF___V112*/ + meltfptr[85] = /*_.MELT_DEBUG_FUN__V113*/ meltfptr[88];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3707:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L38*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V113*/ meltfptr[88] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V113*/ + meltfptr[88] = 0 ; } ; } @@ -48959,7 +54065,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3707:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -48968,9 +54075,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[32] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L37*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V112*/ meltfptr[85] = 0 ; + /*clear*/ /*_._IF___V112*/ + meltfptr[85] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -48996,7 +54105,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3708:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V101*/ meltfptr[95];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V101*/ meltfptr[95];; MELT_LOCATION("warmelt-normal.melt:3708:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -49004,104 +54114,145 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V99*/ meltfptr[92] = /*_.RETURN___V114*/ meltfptr[88];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V99*/ + meltfptr[92] = /*_.RETURN___V114*/ meltfptr[88];; MELT_LOCATION("warmelt-normal.melt:3684:/ clear"); - /*clear*/ /*_.CSYM__V100*/ meltfptr[94] = 0 ; + /*clear*/ /*_.CSYM__V100*/ + meltfptr[94] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V101*/ meltfptr[95] = 0 ; + /*clear*/ /*_.CLOCC__V101*/ + meltfptr[95] = 0 ; /*^clear*/ - /*clear*/ /*_.WTHEN__V103*/ meltfptr[97] = 0 ; + /*clear*/ /*_.WTHEN__V103*/ + meltfptr[97] = 0 ; /*^clear*/ - /*clear*/ /*_.WELSE__V104*/ meltfptr[91] = 0 ; + /*clear*/ /*_.WELSE__V104*/ + meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V105*/ meltfptr[78] = 0 ; + /*clear*/ /*_.INST___V105*/ + meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V107*/ meltfptr[75] = 0 ; + /*clear*/ /*_.CBIND__V107*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L35*/ meltfnum[33] = 0 ; + /*clear*/ /*_#IS_LIST__L35*/ + meltfnum[33] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L36*/ meltfnum[30] = 0 ; + /*clear*/ /*_#NOT__L36*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V109*/ meltfptr[82] = 0 ; + /*clear*/ /*_._IF___V109*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V114*/ meltfptr[88] = 0 ; + /*clear*/ /*_.RETURN___V114*/ + meltfptr[88] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V66*/ meltfptr[64] = /*_.LET___V99*/ meltfptr[92];; + /*_.MULTI___V66*/ + meltfptr[64] = /*_.LET___V99*/ meltfptr[92];; MELT_LOCATION("warmelt-normal.melt:3646:/ clear"); - /*clear*/ /*_.IFCPP___V71*/ meltfptr[69] = 0 ; + /*clear*/ /*_.IFCPP___V71*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V74*/ meltfptr[72] = 0 ; + /*clear*/ /*_.LET___V74*/ + meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V99*/ meltfptr[92] = 0 ; + /*clear*/ /*_.LET___V99*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDELSE__V68*/ meltfptr[67] = 0 ; - /*_.LET___V55*/ meltfptr[37] = /*_.MULTI___V66*/ meltfptr[64];; + /*clear*/ /*_.NBINDELSE__V68*/ + meltfptr[67] = 0 ; + /*_.LET___V55*/ + meltfptr[37] = /*_.MULTI___V66*/ meltfptr[64];; MELT_LOCATION("warmelt-normal.melt:3638:/ clear"); - /*clear*/ /*_.NEWTHENENV__V56*/ meltfptr[39] = 0 ; + /*clear*/ /*_.NEWTHENENV__V56*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V59*/ meltfptr[57] = 0 ; + /*clear*/ /*_.LAMBDA___V59*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_EVERY__V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_.LIST_EVERY__V61*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.GET_CTYPE__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.GET_CTYPE__V62*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_.SETQ___V63*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V66*/ meltfptr[64] = 0 ; + /*clear*/ /*_.MULTI___V66*/ + meltfptr[64] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V47*/ meltfptr[41] = /*_.LET___V55*/ meltfptr[37];; + /*_.MULTI___V47*/ + meltfptr[41] = /*_.LET___V55*/ meltfptr[37];; MELT_LOCATION("warmelt-normal.melt:3633:/ clear"); - /*clear*/ /*_.IFCPP___V52*/ meltfptr[40] = 0 ; + /*clear*/ /*_.IFCPP___V52*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V55*/ meltfptr[37] = 0 ; + /*clear*/ /*_.LET___V55*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDTHEN__V49*/ meltfptr[35] = 0 ; + /*clear*/ /*_.NBINDTHEN__V49*/ + meltfptr[35] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V26*/ meltfptr[24] = /*_.MULTI___V47*/ meltfptr[41];; + /*_.MULTI___V26*/ + meltfptr[24] = /*_.MULTI___V47*/ meltfptr[41];; MELT_LOCATION("warmelt-normal.melt:3611:/ clear"); - /*clear*/ /*_.IFCPP___V31*/ meltfptr[29] = 0 ; + /*clear*/ /*_.IFCPP___V31*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V34*/ meltfptr[32] = 0 ; + /*clear*/ /*_.LET___V34*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V47*/ meltfptr[41] = 0 ; + /*clear*/ /*_.MULTI___V47*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDIF__V28*/ meltfptr[27] = 0 ; - /*_.LET___V18*/ meltfptr[16] = /*_.MULTI___V26*/ meltfptr[24];; + /*clear*/ /*_.NBINDIF__V28*/ + meltfptr[27] = 0 ; + /*_.LET___V18*/ + meltfptr[16] = /*_.MULTI___V26*/ meltfptr[24];; MELT_LOCATION("warmelt-normal.melt:3604:/ clear"); - /*clear*/ /*_.SLOC__V19*/ meltfptr[7] = 0 ; + /*clear*/ /*_.SLOC__V19*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.STEST__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.STEST__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPIF__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.CTYPIF__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.STHEN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.STHEN__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.SELSE__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.SELSE__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V26*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MULTI___V26*/ + meltfptr[24] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3598:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { MELT_LOCATION("warmelt-normal.melt:3598:/ locexp"); @@ -49116,17 +54267,22 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V12*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V18*/ meltfptr[16] = 0 ; + /*clear*/ /*_.LET___V18*/ + meltfptr[16] = 0 ; } ; |