diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-normal+03.cc')
-rw-r--r-- | gcc/melt/generated/warmelt-normal+03.cc | 14400 |
1 files changed, 9600 insertions, 4800 deletions
diff --git a/gcc/melt/generated/warmelt-normal+03.cc b/gcc/melt/generated/warmelt-normal+03.cc index b7bcc3a9b5f..b556e35d217 100644 --- a/gcc/melt/generated/warmelt-normal+03.cc +++ b/gcc/melt/generated/warmelt-normal+03.cc @@ -1095,7 +1095,8 @@ meltrout_54_WARMELTmiNORMAL_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_54_WARMELTmiNORMAL_LAMBDA_cl7 fromline 1756 */ - /* classy proc frame meltrout_54_WARMELTmiNORMAL_LAMBDA_cl7 */ MeltFrame_meltrout_54_WARMELTmiNORMAL_LAMBDA_cl7 + /* classy proc frame meltrout_54_WARMELTmiNORMAL_LAMBDA_cl7 */ + MeltFrame_meltrout_54_WARMELTmiNORMAL_LAMBDA_cl7 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_54_WARMELTmiNORMAL_LAMBDA_cl7 fromline 1785*/ #if ENABLE_CHECKING @@ -1108,7 +1109,8 @@ meltrout_54_WARMELTmiNORMAL_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl7", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1118,7 +1120,8 @@ meltrout_54_WARMELTmiNORMAL_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3642:/ getarg"); - /*_.B__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.B__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -1138,13 +1141,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:3642:/ locexp"); @@ -1159,11 +1164,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 ; } ; @@ -1245,7 +1252,8 @@ meltrout_55_WARMELTmiNORMAL_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_55_WARMELTmiNORMAL_LAMBDA_cl8 fromline 1756 */ - /* classy proc frame meltrout_55_WARMELTmiNORMAL_LAMBDA_cl8 */ MeltFrame_meltrout_55_WARMELTmiNORMAL_LAMBDA_cl8 + /* classy proc frame meltrout_55_WARMELTmiNORMAL_LAMBDA_cl8 */ + MeltFrame_meltrout_55_WARMELTmiNORMAL_LAMBDA_cl8 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_55_WARMELTmiNORMAL_LAMBDA_cl8 fromline 1785*/ #if ENABLE_CHECKING @@ -1258,7 +1266,8 @@ meltrout_55_WARMELTmiNORMAL_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl8", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1268,7 +1277,8 @@ meltrout_55_WARMELTmiNORMAL_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3656:/ getarg"); - /*_.B__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.B__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -1288,13 +1298,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)((/*~NENV*/ 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)((/*~NENV*/ 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:3656:/ locexp"); @@ -1309,11 +1321,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 ; } ; @@ -1395,7 +1409,8 @@ meltrout_56_WARMELTmiNORMAL_NORMEXP_CPPIF(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_56_WARMELTmiNORMAL_NORMEXP_CPPIF fromline 1756 */ - /* classy proc frame meltrout_56_WARMELTmiNORMAL_NORMEXP_CPPIF */ MeltFrame_meltrout_56_WARMELTmiNORMAL_NORMEXP_CPPIF + /* classy proc frame meltrout_56_WARMELTmiNORMAL_NORMEXP_CPPIF */ + MeltFrame_meltrout_56_WARMELTmiNORMAL_NORMEXP_CPPIF meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_56_WARMELTmiNORMAL_NORMEXP_CPPIF fromline 1785*/ #if ENABLE_CHECKING @@ -1408,7 +1423,8 @@ meltrout_56_WARMELTmiNORMAL_NORMEXP_CPPIF(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("NORMEXP_CPPIF", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1418,26 +1434,30 @@ meltrout_56_WARMELTmiNORMAL_NORMEXP_CPPIF(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3715:/ 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); ; @@ -1459,10 +1479,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_CPPIF*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:3716:/ 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);; @@ -1491,25 +1513,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3716; /*^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:3716:/ 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:3716:/ 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*/ @@ -1527,10 +1555,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:3717:/ 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);; @@ -1559,25 +1589,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3717; /*^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:3717:/ 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:3717:/ 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*/ @@ -1595,10 +1631,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:3718:/ 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);; @@ -1627,25 +1665,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3718; /*^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:3718:/ 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:3718:/ 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*/ @@ -1673,7 +1717,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)) @@ -1682,7 +1727,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3719:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1715,16 +1761,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_cppif 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:3719:/ 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 ; } ; } @@ -1737,7 +1787,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3719:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -1746,9 +1797,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*/ @@ -1776,7 +1829,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:3721:/ getslot"); @@ -1784,16 +1838,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, "SIFP_COND"); - /*_.SCOND__V19*/ meltfptr[18] = slot; + /*_.SCOND__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:3723:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SIFP_THEN"); - /*_.STHEN__V21*/ meltfptr[20] = slot; + /*_.STHEN__V21*/ + meltfptr[20] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3724:/ getslot"); @@ -1801,7 +1858,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, "SIFP_ELSE"); - /*_.SELSE__V22*/ meltfptr[21] = slot; + /*_.SELSE__V22*/ + meltfptr[21] = slot; }; ; @@ -1823,7 +1881,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V25*/ meltfptr[24];/*^multimsend.send*/ - /*_.NTHEN__V24*/ meltfptr[23] = meltgc_send ((melt_ptr_t)(/*_.STHEN__V21*/ meltfptr[20]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NTHEN__V24*/ + meltfptr[23] = meltgc_send ((melt_ptr_t)(/*_.STHEN__V21*/ meltfptr[20]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -1849,7 +1908,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)) @@ -1858,7 +1918,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3730:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1891,16 +1952,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_cppif nthen"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NTHEN__V24*/ meltfptr[23]; - /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 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__V27*/ + meltfptr[26] = 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___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:3730:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[26] = 0 ; } ; } @@ -1913,7 +1978,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3730:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -1922,9 +1988,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V26*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1954,11 +2022,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L8*/ meltfnum[0] = + /*_#IS_LIST_OR_NULL__L8*/ + meltfnum[0] = ((/*_.NBINDTHEN__V25*/ meltfptr[24]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDTHEN__V25*/ meltfptr[24])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-normal.melt:3731:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L8*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_LIST_OR_NULL__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V29*/ meltfptr[25] = (/*nil*/NULL);; @@ -1987,25 +2057,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3731; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V25*/ meltfptr[24]; - /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29] = 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__V30*/ + meltfptr[29] = 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___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:3731:/ 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:3731:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V29*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V29*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2029,7 +2105,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V34*/ meltfptr[33] = + /*newclosure*/ /*_.LAMBDA___V34*/ + meltfptr[33] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ meltfrout->tabval[10])), (1)); ; /*^putclosedv*/ @@ -2038,7 +2115,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V34*/ meltfptr[33]))); ((meltclosure_ptr_t)/*_.LAMBDA___V34*/ meltfptr[33])->tabval[0] = (melt_ptr_t)(/*_.NEWTHENENV__V32*/ meltfptr[25]); ; - /*_.LAMBDA___V33*/ meltfptr[32] = /*_.LAMBDA___V34*/ meltfptr[33];; + /*_.LAMBDA___V33*/ + meltfptr[32] = /*_.LAMBDA___V34*/ meltfptr[33];; MELT_CHECK_SIGNAL(); ; @@ -2049,7 +2127,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V33*/ meltfptr[32]; - /*_.LIST_EVERY__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.NBINDTHEN__V25*/ meltfptr[24]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_EVERY__V35*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.NBINDTHEN__V25*/ meltfptr[24]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -2062,11 +2141,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTHENENV__V32*/ meltfptr[25]; - /*_.GET_CTYPE__V36*/ meltfptr[35] = meltgc_send((melt_ptr_t)(/*_.NTHEN__V24*/ meltfptr[23]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[11])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GET_CTYPE__V36*/ + meltfptr[35] = meltgc_send((melt_ptr_t)(/*_.NTHEN__V24*/ meltfptr[23]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[11])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.CTYPIF__V20*/ meltfptr[19] = /*_.SETQ___V37*/ meltfptr[36] = /*_.GET_CTYPE__V36*/ meltfptr[35];; + /*_.CTYPIF__V20*/ + meltfptr[19] = /*_.SETQ___V37*/ meltfptr[36] = /*_.GET_CTYPE__V36*/ meltfptr[35];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:3738:/ cppif.then"); @@ -2077,10 +2158,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[4] = + /*_#IS_A__L9*/ + meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.CTYPIF__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:3738:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V39*/ meltfptr[38] = (/*nil*/NULL);; @@ -2109,25 +2192,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3738; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPIF__V20*/ meltfptr[19]; - /*_.MELT_ASSERT_FAILURE_FUN__V40*/ meltfptr[39] = 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__V40*/ + meltfptr[39] = 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___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:3738:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V40*/ + meltfptr[39] = 0 ; } ; } ; - /*_.IFCPP___V38*/ meltfptr[37] = /*_._IFELSE___V39*/ meltfptr[38];; + /*_.IFCPP___V38*/ + meltfptr[37] = /*_._IFELSE___V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3738:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[4] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_._IFELSE___V39*/ + meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2154,7 +2243,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDELSE__V43*/ meltfptr[42];/*^multimsend.send*/ - /*_.NELSE__V42*/ meltfptr[38] = meltgc_send ((melt_ptr_t)(/*_.SELSE__V22*/ meltfptr[21]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NELSE__V42*/ + meltfptr[38] = meltgc_send ((melt_ptr_t)(/*_.SELSE__V22*/ meltfptr[21]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -2180,7 +2270,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)) @@ -2189,7 +2280,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3743:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2222,16 +2314,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_cppif nelse"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NELSE__V42*/ meltfptr[38]; - /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V45*/ + meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V44*/ meltfptr[43] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; + /*_._IF___V44*/ + meltfptr[43] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3743:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ + meltfptr[44] = 0 ; } ; } @@ -2244,7 +2340,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3743:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2253,9 +2350,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_._IF___V44*/ + meltfptr[43] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2285,11 +2384,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L12*/ meltfnum[4] = + /*_#IS_LIST_OR_NULL__L12*/ + meltfnum[4] = ((/*_.NBINDELSE__V43*/ meltfptr[42]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDELSE__V43*/ meltfptr[42])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-normal.melt:3744:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L12*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#IS_LIST_OR_NULL__L12*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V47*/ meltfptr[43] = (/*nil*/NULL);; @@ -2318,25 +2419,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3744; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDELSE__V43*/ meltfptr[42]; - /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[47] = 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__V48*/ + meltfptr[47] = 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___V47*/ meltfptr[43] = /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[47];; + /*_._IFELSE___V47*/ + meltfptr[43] = /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3744:/ 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[43];; + /*_.IFCPP___V46*/ + meltfptr[44] = /*_._IFELSE___V47*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3744:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L12*/ meltfnum[4] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L12*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V47*/ meltfptr[43] = 0 ; + /*clear*/ /*_._IFELSE___V47*/ + meltfptr[43] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2376,22 +2483,27 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ELSEBIND__V52*/ meltfptr[51]; - /*_.PUT_ENV__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NEWELSEENV__V50*/ meltfptr[43]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V53*/ + meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NEWELSEENV__V50*/ meltfptr[43]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURPAIRELSE__V51*/ meltfptr[50] = NULL; - /*_.ELSEBIND__V52*/ meltfptr[51] = NULL; + /*_.ELSEBIND__V52*/ + meltfptr[51] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:3746:/ clear"); - /*clear*/ /*_.CURPAIRELSE__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.CURPAIRELSE__V51*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.ELSEBIND__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.ELSEBIND__V52*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_.PUT_ENV__V53*/ + meltfptr[52] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_LOCATION("warmelt-normal.melt:3750:/ quasiblock"); @@ -2407,7 +2519,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWELSEENV__V50*/ meltfptr[43]; - /*_.CTYPELSE__V55*/ meltfptr[54] = meltgc_send((melt_ptr_t)(/*_.NELSE__V42*/ meltfptr[38]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[11])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CTYPELSE__V55*/ + meltfptr[54] = meltgc_send((melt_ptr_t)(/*_.NELSE__V42*/ meltfptr[38]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[11])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -2416,10 +2529,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#exeq__L13*/ meltfnum[0] = + /*_#exeq__L13*/ + meltfnum[0] = ((/*_.CTYPIF__V20*/ meltfptr[19]) != (/*_.CTYPELSE__V55*/ meltfptr[54]));; MELT_LOCATION("warmelt-normal.melt:3751:/ cond"); - /*cond*/ if (/*_#exeq__L13*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#exeq__L13*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2429,10 +2544,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#exeq__L15*/ meltfnum[14] = + /*_#exeq__L15*/ + meltfnum[14] = ((/*_.CTYPIF__V20*/ meltfptr[19]) != ((/*!CTYPE_VOID*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:3751:/ cond"); - /*cond*/ if (/*_#exeq__L15*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#exeq__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2442,11 +2559,13 @@ meltlab_endgetargs: /*_#exeq__L17*/ meltfnum[16] = ((/*_.CTYPELSE__V55*/ meltfptr[54]) != ((/*!CTYPE_VOID*/ meltfrout->tabval[5])));; /*^compute*/ - /*_#_IF___L16*/ meltfnum[15] = /*_#exeq__L17*/ meltfnum[16];; + /*_#_IF___L16*/ + meltfnum[15] = /*_#exeq__L17*/ meltfnum[16];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3751:/ clear"); - /*clear*/ /*_#exeq__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#exeq__L17*/ + meltfnum[16] = 0 ; } ; } @@ -2457,13 +2576,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#_IF___L14*/ meltfnum[4] = /*_#_IF___L16*/ meltfnum[15];; + /*_#_IF___L14*/ + meltfnum[4] = /*_#_IF___L16*/ meltfnum[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3751:/ clear"); - /*clear*/ /*_#exeq__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#exeq__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#_IF___L16*/ + meltfnum[15] = 0 ; } ; } @@ -2474,7 +2596,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3751:/ cond"); - /*cond*/ if (/*_#_IF___L14*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#_IF___L14*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2486,7 +2609,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYPIF__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V57*/ meltfptr[56] = slot; + /*_.NAMED_NAME__V57*/ + meltfptr[56] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3754:/ getslot"); @@ -2494,7 +2618,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYPELSE__V55*/ meltfptr[54]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V58*/ meltfptr[57] = slot; + /*_.NAMED_NAME__V58*/ + meltfptr[57] = slot; }; ; @@ -2511,25 +2636,32 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V57*/ meltfptr[56]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V58*/ meltfptr[57]; - /*_.ERROR_AT__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V59*/ + meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3751:/ quasiblock"); - /*_.PROGN___V60*/ meltfptr[59] = /*_.ERROR_AT__V59*/ meltfptr[58];; + /*_.PROGN___V60*/ + meltfptr[59] = /*_.ERROR_AT__V59*/ meltfptr[58];; /*^compute*/ - /*_._IF___V56*/ meltfptr[55] = /*_.PROGN___V60*/ meltfptr[59];; + /*_._IF___V56*/ + meltfptr[55] = /*_.PROGN___V60*/ meltfptr[59];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3751:/ clear"); - /*clear*/ /*_.NAMED_NAME__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.NAMED_NAME__V57*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.NAMED_NAME__V58*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.ERROR_AT__V59*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.PROGN___V60*/ + meltfptr[59] = 0 ; } ; } @@ -2540,16 +2672,21 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V54*/ meltfptr[53] = /*_._IF___V56*/ meltfptr[55];; + /*_.LET___V54*/ + meltfptr[53] = /*_._IF___V56*/ meltfptr[55];; MELT_LOCATION("warmelt-normal.melt:3750:/ clear"); - /*clear*/ /*_.CTYPELSE__V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.CTYPELSE__V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L13*/ meltfnum[0] = 0 ; + /*clear*/ /*_#exeq__L13*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L14*/ meltfnum[4] = 0 ; + /*clear*/ /*_#_IF___L14*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_._IF___V56*/ + meltfptr[55] = 0 ; MELT_LOCATION("warmelt-normal.melt:3757:/ quasiblock"); @@ -2573,7 +2710,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__V64*/ meltfptr[59] = + /*_.INST__V64*/ + meltfptr[59] = newobj; }; ; @@ -2596,7 +2734,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V64*/ meltfptr[59], "newly made instance"); ; - /*_.CLOCC__V63*/ meltfptr[58] = /*_.INST__V64*/ meltfptr[59];; + /*_.CLOCC__V63*/ + meltfptr[58] = /*_.INST__V64*/ meltfptr[59];; MELT_CHECK_SIGNAL(); ; @@ -2609,7 +2748,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V25*/ meltfptr[24]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; - /*_.WTHEN__V65*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NTHEN__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.WTHEN__V65*/ + meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NTHEN__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -2624,7 +2764,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDELSE__V43*/ meltfptr[42]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; - /*_.WELSE__V66*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NELSE__V42*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.WELSE__V66*/ + meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NELSE__V42*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -2641,7 +2782,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CPPIF*/ meltfrout->tabval[20])), (5), "CLASS_NREP_CPPIF"); - /*_.INST__V68*/ meltfptr[67] = + /*_.INST__V68*/ + meltfptr[67] = newobj; }; ; @@ -2674,7 +2816,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V68*/ meltfptr[67], "newly made instance"); ; - /*_.INST___V67*/ meltfptr[66] = /*_.INST__V68*/ meltfptr[67];; + /*_.INST___V67*/ + meltfptr[66] = /*_.INST__V68*/ meltfptr[67];; MELT_LOCATION("warmelt-normal.melt:3764:/ quasiblock"); @@ -2683,7 +2826,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__V70*/ meltfptr[69] = + /*_.INST__V70*/ + meltfptr[69] = newobj; }; ; @@ -2711,9 +2855,11 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V70*/ meltfptr[69], "newly made instance"); ; - /*_.CBIND__V69*/ meltfptr[68] = /*_.INST__V70*/ meltfptr[69];; + /*_.CBIND__V69*/ + meltfptr[68] = /*_.INST__V70*/ meltfptr[69];; /*^compute*/ - /*_.NBINDRES__V71*/ meltfptr[70] = + /*_.NBINDRES__V71*/ + meltfptr[70] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[21]))));; MELT_CHECK_SIGNAL(); @@ -2760,7 +2906,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)) @@ -2769,7 +2916,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3780:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2806,16 +2954,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbindres="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDRES__V71*/ meltfptr[70]; - /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72] = 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__V73*/ + meltfptr[72] = 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___V72*/ meltfptr[71] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72];; + /*_._IF___V72*/ + meltfptr[71] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3780:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ + meltfptr[72] = 0 ; } ; } @@ -2828,7 +2980,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3780:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2837,9 +2990,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_._IF___V72*/ + meltfptr[71] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2865,7 +3020,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3781:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V63*/ meltfptr[58];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V63*/ meltfptr[58];; MELT_LOCATION("warmelt-normal.melt:3781:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -2873,94 +3029,132 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V61*/ meltfptr[56] = /*_.RETURN___V74*/ meltfptr[72];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V61*/ + meltfptr[56] = /*_.RETURN___V74*/ meltfptr[72];; MELT_LOCATION("warmelt-normal.melt:3757:/ clear"); - /*clear*/ /*_.CSYM__V62*/ meltfptr[57] = 0 ; + /*clear*/ /*_.CSYM__V62*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V63*/ meltfptr[58] = 0 ; + /*clear*/ /*_.CLOCC__V63*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.WTHEN__V65*/ meltfptr[54] = 0 ; + /*clear*/ /*_.WTHEN__V65*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.WELSE__V66*/ meltfptr[55] = 0 ; + /*clear*/ /*_.WELSE__V66*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_.INST___V67*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_.CBIND__V69*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDRES__V71*/ meltfptr[70] = 0 ; + /*clear*/ /*_.NBINDRES__V71*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V74*/ meltfptr[72] = 0 ; - /*_.LET___V49*/ meltfptr[47] = /*_.LET___V61*/ meltfptr[56];; + /*clear*/ /*_.RETURN___V74*/ + meltfptr[72] = 0 ; + /*_.LET___V49*/ + meltfptr[47] = /*_.LET___V61*/ meltfptr[56];; MELT_LOCATION("warmelt-normal.melt:3745:/ clear"); - /*clear*/ /*_.NEWELSEENV__V50*/ meltfptr[43] = 0 ; + /*clear*/ /*_.NEWELSEENV__V50*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.LET___V54*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V61*/ meltfptr[56] = 0 ; + /*clear*/ /*_.LET___V61*/ + meltfptr[56] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V41*/ meltfptr[39] = /*_.LET___V49*/ meltfptr[47];; + /*_.MULTI___V41*/ + meltfptr[39] = /*_.LET___V49*/ meltfptr[47];; MELT_LOCATION("warmelt-normal.melt:3740:/ clear"); - /*clear*/ /*_.IFCPP___V46*/ meltfptr[44] = 0 ; + /*clear*/ /*_.IFCPP___V46*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V49*/ meltfptr[47] = 0 ; + /*clear*/ /*_.LET___V49*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDELSE__V43*/ meltfptr[42] = 0 ; - /*_.LET___V31*/ meltfptr[29] = /*_.MULTI___V41*/ meltfptr[39];; + /*clear*/ /*_.NBINDELSE__V43*/ + meltfptr[42] = 0 ; + /*_.LET___V31*/ + meltfptr[29] = /*_.MULTI___V41*/ meltfptr[39];; MELT_LOCATION("warmelt-normal.melt:3732:/ clear"); - /*clear*/ /*_.NEWTHENENV__V32*/ meltfptr[25] = 0 ; + /*clear*/ /*_.NEWTHENENV__V32*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.LAMBDA___V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_EVERY__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.LIST_EVERY__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.GET_CTYPE__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.GET_CTYPE__V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.SETQ___V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.IFCPP___V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V41*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MULTI___V41*/ + meltfptr[39] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V23*/ meltfptr[22] = /*_.LET___V31*/ meltfptr[29];; + /*_.MULTI___V23*/ + meltfptr[22] = /*_.LET___V31*/ meltfptr[29];; MELT_LOCATION("warmelt-normal.melt:3727:/ clear"); - /*clear*/ /*_.IFCPP___V28*/ meltfptr[26] = 0 ; + /*clear*/ /*_.IFCPP___V28*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V31*/ meltfptr[29] = 0 ; + /*clear*/ /*_.LET___V31*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDTHEN__V25*/ meltfptr[24] = 0 ; - /*_.LET___V17*/ meltfptr[6] = /*_.MULTI___V23*/ meltfptr[22];; + /*clear*/ /*_.NBINDTHEN__V25*/ + meltfptr[24] = 0 ; + /*_.LET___V17*/ + meltfptr[6] = /*_.MULTI___V23*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:3720:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[13] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.SCOND__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SCOND__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*/ /*_.SELSE__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.SELSE__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MULTI___V23*/ + meltfptr[22] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3715:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; { MELT_LOCATION("warmelt-normal.melt:3715:/ locexp"); @@ -2975,17 +3169,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 ; } ; @@ -3067,7 +3266,8 @@ meltrout_57_WARMELTmiNORMAL_LAMBDA_cl9(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_57_WARMELTmiNORMAL_LAMBDA_cl9 fromline 1756 */ - /* classy proc frame meltrout_57_WARMELTmiNORMAL_LAMBDA_cl9 */ MeltFrame_meltrout_57_WARMELTmiNORMAL_LAMBDA_cl9 + /* classy proc frame meltrout_57_WARMELTmiNORMAL_LAMBDA_cl9 */ + MeltFrame_meltrout_57_WARMELTmiNORMAL_LAMBDA_cl9 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_57_WARMELTmiNORMAL_LAMBDA_cl9 fromline 1785*/ #if ENABLE_CHECKING @@ -3080,7 +3280,8 @@ meltrout_57_WARMELTmiNORMAL_LAMBDA_cl9(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl9", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -3090,7 +3291,8 @@ meltrout_57_WARMELTmiNORMAL_LAMBDA_cl9(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3735:/ getarg"); - /*_.B__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.B__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -3110,13 +3312,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:3735:/ locexp"); @@ -3131,11 +3335,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 ; } ; @@ -3217,7 +3423,8 @@ meltrout_58_WARMELTmiNORMAL_NORMEXP_OR(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_58_WARMELTmiNORMAL_NORMEXP_OR fromline 1756 */ - /* classy proc frame meltrout_58_WARMELTmiNORMAL_NORMEXP_OR */ MeltFrame_meltrout_58_WARMELTmiNORMAL_NORMEXP_OR + /* classy proc frame meltrout_58_WARMELTmiNORMAL_NORMEXP_OR */ + MeltFrame_meltrout_58_WARMELTmiNORMAL_NORMEXP_OR meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_58_WARMELTmiNORMAL_NORMEXP_OR fromline 1785*/ #if ENABLE_CHECKING @@ -3230,7 +3437,8 @@ meltrout_58_WARMELTmiNORMAL_NORMEXP_OR(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("NORMEXP_OR", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -3240,26 +3448,30 @@ meltrout_58_WARMELTmiNORMAL_NORMEXP_OR(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3788:/ 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); ; @@ -3281,10 +3493,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_OR*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:3789:/ 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);; @@ -3313,25 +3527,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3789; /*^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:3789:/ 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:3789:/ 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*/ @@ -3349,10 +3569,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:3790:/ 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);; @@ -3379,25 +3601,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3790; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[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:3790:/ 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:3790:/ 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*/ @@ -3415,10 +3643,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:3791:/ 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);; @@ -3445,25 +3675,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3791; - /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V13*/ meltfptr[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:3791:/ 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:3791:/ 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*/ @@ -3491,7 +3727,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)) @@ -3500,7 +3737,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3792:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3533,16 +3771,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_or 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:3792:/ 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 ; } ; } @@ -3555,7 +3797,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3792:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3564,9 +3807,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*/ @@ -3589,7 +3834,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3793:/ quasiblock"); - /*_#MELT_CALLCOUNT__L6*/ meltfnum[4] = + /*_#MELT_CALLCOUNT__L6*/ + meltfnum[4] = /* for melt_callcount */ #if MELT_HAVE_DEBUG && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ @@ -3598,14 +3844,16 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ - /*_.BOXORCOUNT__V18*/ meltfptr[13] = + /*_.BOXORCOUNT__V18*/ + meltfptr[13] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[5])), (/*_#MELT_CALLCOUNT__L6*/ meltfnum[4])));; MELT_LOCATION("warmelt-normal.melt:3795:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V19*/ meltfptr[18] = slot; + /*_.SLOC__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3796:/ getslot"); @@ -3613,13 +3861,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SOR_DISJ"); - /*_.SDISJ__V20*/ meltfptr[19] = slot; + /*_.SDISJ__V20*/ + meltfptr[19] = slot; }; ; - /*_#NBDISJ__L7*/ meltfnum[0] = + /*_#NBDISJ__L7*/ + meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.SDISJ__V20*/ meltfptr[19])));; /*^compute*/ - /*_#IX__L8*/ meltfnum[7] = + /*_#IX__L8*/ + meltfnum[7] = ((/*_#NBDISJ__L7*/ meltfnum[0]) - (1));; MELT_CHECK_SIGNAL(); @@ -3632,7 +3883,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6])), (1), "CLASS_REFERENCE"); - /*_.INST__V22*/ meltfptr[21] = + /*_.INST__V22*/ + meltfptr[21] = newobj; }; ; @@ -3645,12 +3897,14 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V22*/ meltfptr[21], "newly made instance"); ; - /*_.NORCONT__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; + /*_.NORCONT__V21*/ + meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_.MAKE_LIST__V23*/ meltfptr[22] = + /*_.MAKE_LIST__V23*/ + meltfptr[22] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[7]))));; MELT_LOCATION("warmelt-normal.melt:3800:/ quasiblock"); @@ -3660,7 +3914,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6])), (1), "CLASS_REFERENCE"); - /*_.INST__V25*/ meltfptr[24] = + /*_.INST__V25*/ + meltfptr[24] = newobj; }; ; @@ -3673,7 +3928,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V25*/ meltfptr[24], "newly made instance"); ; - /*_.NBINDORCONT__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; + /*_.NBINDORCONT__V24*/ + meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; MELT_CHECK_SIGNAL(); ; @@ -3685,7 +3941,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6])), (1), "CLASS_REFERENCE"); - /*_.INST__V27*/ meltfptr[26] = + /*_.INST__V27*/ + meltfptr[26] = newobj; }; ; @@ -3698,7 +3955,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V27*/ meltfptr[26], "newly made instance"); ; - /*_.CTYPORCONT__V26*/ meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; + /*_.CTYPORCONT__V26*/ + meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; MELT_CHECK_SIGNAL(); ; @@ -3712,7 +3970,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V30*/ meltfptr[29] = + /*newclosure*/ /*_.LAMBDA___V30*/ + meltfptr[29] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_27*/ meltfrout->tabval[27])), (8)); ; /*^putclosedv*/ @@ -3763,7 +4022,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 7>= 0 && 7< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ meltfptr[29]))); ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ meltfptr[29])->tabval[7] = (melt_ptr_t)(/*_.CTYPORCONT__V26*/ meltfptr[25]); ; - /*_.LAMBDA___V29*/ meltfptr[28] = /*_.LAMBDA___V30*/ meltfptr[29];; + /*_.LAMBDA___V29*/ + meltfptr[28] = /*_.LAMBDA___V30*/ meltfptr[29];; MELT_CHECK_SIGNAL(); ; @@ -3774,7 +4034,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ meltfptr[28]; - /*_.MULTIPLE_BACKWARD_EVERY__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_BACKWARD_EVERY*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SDISJ__V20*/ meltfptr[19]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_BACKWARD_EVERY__V31*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_BACKWARD_EVERY*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SDISJ__V20*/ meltfptr[19]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3797,7 +4058,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3806,7 +4068,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3862:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3822,7 +4085,8 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_LOCATION("warmelt-normal.melt:3862:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NORCONT__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -3833,7 +4097,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NORCONT__V21*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V33*/ meltfptr[32] = slot; + /*_.REFERENCED_VALUE__V33*/ + meltfptr[32] = slot; }; ; } @@ -3844,7 +4109,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3862:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NBINDORCONT__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -3855,7 +4121,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NBINDORCONT__V24*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V34*/ meltfptr[33] = slot; + /*_.REFERENCED_VALUE__V34*/ + meltfptr[33] = slot; }; ; } @@ -3887,20 +4154,26 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbindor="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.REFERENCED_VALUE__V34*/ meltfptr[33]; - /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 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__V35*/ + meltfptr[34] = 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___V32*/ meltfptr[31] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; + /*_._IF___V32*/ + meltfptr[31] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3862:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = 0 ; } ; } @@ -3913,7 +4186,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3862:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3922,9 +4196,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IF___V32*/ + meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3945,7 +4221,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normal.melt:3863:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NORCONT__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -3956,7 +4233,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NORCONT__V21*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V36*/ meltfptr[32] = slot; + /*_.REFERENCED_VALUE__V36*/ + meltfptr[32] = slot; }; ; } @@ -3967,7 +4245,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3863:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NBINDORCONT__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -3978,7 +4257,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NBINDORCONT__V24*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V37*/ meltfptr[33] = slot; + /*_.REFERENCED_VALUE__V37*/ + meltfptr[33] = slot; }; ; } @@ -3994,7 +4274,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3863:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.REFERENCED_VALUE__V36*/ meltfptr[32];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.REFERENCED_VALUE__V36*/ meltfptr[32];; MELT_LOCATION("warmelt-normal.melt:3863:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -4002,48 +4283,67 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V17*/ meltfptr[6] = /*_.RETURN___V38*/ meltfptr[34];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V17*/ + meltfptr[6] = /*_.RETURN___V38*/ meltfptr[34];; MELT_LOCATION("warmelt-normal.melt:3793:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.BOXORCOUNT__V18*/ meltfptr[13] = 0 ; + /*clear*/ /*_.BOXORCOUNT__V18*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.SLOC__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SLOC__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SDISJ__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SDISJ__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#NBDISJ__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NBDISJ__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IX__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.NORCONT__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.NORCONT__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MAKE_LIST__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDORCONT__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.NBINDORCONT__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPORCONT__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.CTYPORCONT__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWENV__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.NEWENV__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.LAMBDA___V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_BACKWARD_EVERY__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MULTIPLE_BACKWARD_EVERY__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V36*/ meltfptr[32] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V36*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V37*/ meltfptr[33] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V37*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V38*/ meltfptr[34] = 0 ; + /*clear*/ /*_.RETURN___V38*/ + meltfptr[34] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3788:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; { MELT_LOCATION("warmelt-normal.melt:3788:/ locexp"); @@ -4058,17 +4358,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 ; } ; @@ -4150,7 +4455,8 @@ meltrout_59_WARMELTmiNORMAL_LAMBDA_cl10(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_59_WARMELTmiNORMAL_LAMBDA_cl10 fromline 1756 */ - /* classy proc frame meltrout_59_WARMELTmiNORMAL_LAMBDA_cl10 */ MeltFrame_meltrout_59_WARMELTmiNORMAL_LAMBDA_cl10 + /* classy proc frame meltrout_59_WARMELTmiNORMAL_LAMBDA_cl10 */ + MeltFrame_meltrout_59_WARMELTmiNORMAL_LAMBDA_cl10 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_59_WARMELTmiNORMAL_LAMBDA_cl10 fromline 1785*/ #if ENABLE_CHECKING @@ -4163,7 +4469,8 @@ meltrout_59_WARMELTmiNORMAL_LAMBDA_cl10(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl10", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -4173,12 +4480,14 @@ meltrout_59_WARMELTmiNORMAL_LAMBDA_cl10(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3806:/ getarg"); - /*_.SCUR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.SCUR__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#SIX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; + /*_#SIX__L1*/ + meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -4208,7 +4517,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L2*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4217,7 +4527,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3807:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4233,7 +4544,8 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ - /*_#GET_INT__L4*/ meltfnum[3] = + /*_#GET_INT__L4*/ + meltfnum[3] = (melt_get_int((melt_ptr_t)((/*~BOXORCOUNT*/ meltfclos->tabval[0]))));; MELT_CHECK_SIGNAL(); @@ -4257,18 +4569,23 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "call#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#GET_INT__L4*/ meltfnum[3]; - /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V4*/ + meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; + /*_._IF___V3*/ + meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3807:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L4*/ meltfnum[3] = 0 ; + /*clear*/ /*_#GET_INT__L4*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ + meltfptr[3] = 0 ; } ; } @@ -4281,7 +4598,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3807:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4290,9 +4608,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_._IF___V3*/ + meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4331,7 +4651,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[3]); /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V7*/ meltfptr[6];/*^multimsend.send*/ - /*_.NCUR__V6*/ meltfptr[2] = meltgc_send ((melt_ptr_t)(/*_.SCUR__V2*/ meltfptr[1]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[1]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NCUR__V6*/ + meltfptr[2] = meltgc_send ((melt_ptr_t)(/*_.SCUR__V2*/ meltfptr[1]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[1]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -4357,7 +4678,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[2] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[2] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4366,7 +4688,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3811:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4382,7 +4705,8 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ - /*_#GET_INT__L7*/ meltfnum[1] = + /*_#GET_INT__L7*/ + meltfnum[1] = (melt_get_int((melt_ptr_t)((/*~BOXORCOUNT*/ meltfclos->tabval[0]))));; MELT_CHECK_SIGNAL(); @@ -4410,18 +4734,23 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " call#"; /*^apply.arg*/ argtab[8].meltbp_long = /*_#GET_INT__L7*/ meltfnum[1]; - /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V9*/ + meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V8*/ meltfptr[7] = /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8];; + /*_._IF___V8*/ + meltfptr[7] = /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3811:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[3] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#GET_INT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V9*/ + meltfptr[8] = 0 ; } ; } @@ -4434,7 +4763,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3811:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4443,9 +4773,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_._IF___V8*/ + meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4469,7 +4801,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V11*/ meltfptr[7] = + /*newclosure*/ /*_.LAMBDA___V11*/ + meltfptr[7] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_4*/ meltfrout->tabval[4])), (1)); ; /*^putclosedv*/ @@ -4478,7 +4811,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V11*/ meltfptr[7]))); ((meltclosure_ptr_t)/*_.LAMBDA___V11*/ meltfptr[7])->tabval[0] = (melt_ptr_t)((/*~NEWENV*/ meltfclos->tabval[4])); ; - /*_.LAMBDA___V10*/ meltfptr[8] = /*_.LAMBDA___V11*/ meltfptr[7];; + /*_.LAMBDA___V10*/ + meltfptr[8] = /*_.LAMBDA___V11*/ meltfptr[7];; MELT_CHECK_SIGNAL(); ; @@ -4489,14 +4823,16 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V10*/ meltfptr[8]; - /*_.LIST_EVERY__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.NCUR__V6*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_EVERY__V12*/ + meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.NCUR__V6*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3814:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~NORCONT*/ meltfclos->tabval[5])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -4507,7 +4843,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~NORCONT*/ meltfclos->tabval[5])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V13*/ meltfptr[12] = slot; + /*_.REFERENCED_VALUE__V13*/ + meltfptr[12] = slot; }; ; } @@ -4518,10 +4855,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#NULL__L8*/ meltfnum[3] = + /*_#NULL__L8*/ + meltfnum[3] = (/*null*/(/*_.REFERENCED_VALUE__V13*/ meltfptr[12]) == NULL);; MELT_LOCATION("warmelt-normal.melt:3814:/ cond"); - /*cond*/ if (/*_#NULL__L8*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#NULL__L8*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4532,7 +4871,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3816:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~NBINDORCONT*/ meltfclos->tabval[6])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -4563,7 +4903,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3817:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~NORCONT*/ meltfclos->tabval[5])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -4603,11 +4944,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ meltfclos->tabval[4]); - /*_.GET_CTYPE__V15*/ meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.NCUR__V6*/ meltfptr[2]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GET_CTYPE__V15*/ + meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.NCUR__V6*/ meltfptr[2]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~CTYPORCONT*/ meltfclos->tabval[7])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -4637,15 +4980,19 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3815:/ quasiblock"); - /*_.PROGN___V16*/ meltfptr[15] = (/*nil*/NULL);; + /*_.PROGN___V16*/ + meltfptr[15] = (/*nil*/NULL);; /*^compute*/ - /*_._IFELSE___V14*/ meltfptr[13] = /*_.PROGN___V16*/ meltfptr[15];; + /*_._IFELSE___V14*/ + meltfptr[13] = /*_.PROGN___V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3814:/ clear"); - /*clear*/ /*_.GET_CTYPE__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.GET_CTYPE__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.PROGN___V16*/ + meltfptr[15] = 0 ; } ; } @@ -4669,7 +5016,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ meltfclos->tabval[4]); - /*_.CTYPCUR__V18*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.NCUR__V6*/ meltfptr[2]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CTYPCUR__V18*/ + meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.NCUR__V6*/ meltfptr[2]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4682,10 +5030,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[1] = + /*_#IS_A__L9*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CTYPCUR__V18*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:3823:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V20*/ meltfptr[19] = (/*nil*/NULL);; @@ -4712,25 +5062,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3823; - /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V21*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V20*/ meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];; + /*_._IFELSE___V20*/ + meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3823:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/ + meltfptr[20] = 0 ; } ; } ; - /*_.IFCPP___V19*/ meltfptr[18] = /*_._IFELSE___V20*/ meltfptr[19];; + /*_.IFCPP___V19*/ + meltfptr[18] = /*_._IFELSE___V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3823:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IFELSE___V20*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4742,7 +5098,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3824:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~CTYPORCONT*/ meltfclos->tabval[7])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -4753,7 +5110,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~CTYPORCONT*/ meltfclos->tabval[7])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V22*/ meltfptr[20] = slot; + /*_.REFERENCED_VALUE__V22*/ + meltfptr[20] = slot; }; ; } @@ -4764,10 +5122,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#exeq__L10*/ meltfnum[2] = + /*_#exeq__L10*/ + meltfnum[2] = ((/*_.CTYPCUR__V18*/ meltfptr[15]) != (/*_.REFERENCED_VALUE__V22*/ meltfptr[20]));; MELT_LOCATION("warmelt-normal.melt:3824:/ cond"); - /*cond*/ if (/*_#exeq__L10*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#exeq__L10*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4775,7 +5135,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3825:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~CTYPORCONT*/ meltfclos->tabval[7])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -4786,7 +5147,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~CTYPORCONT*/ meltfclos->tabval[7])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V24*/ meltfptr[23] = slot; + /*_.REFERENCED_VALUE__V24*/ + meltfptr[23] = slot; }; ; } @@ -4810,16 +5172,20 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPCUR__V18*/ meltfptr[15]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.REFERENCED_VALUE__V24*/ meltfptr[23]; - /*_.ERROR_AT__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[9])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[3])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[9])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[3])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V23*/ meltfptr[19] = /*_.ERROR_AT__V25*/ meltfptr[24];; + /*_._IF___V23*/ + meltfptr[19] = /*_.ERROR_AT__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3824:/ clear"); - /*clear*/ /*_.REFERENCED_VALUE__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.ERROR_AT__V25*/ + meltfptr[24] = 0 ; } ; } @@ -4836,7 +5202,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3833:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~NORCONT*/ meltfclos->tabval[5])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -4847,7 +5214,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~NORCONT*/ meltfclos->tabval[5])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V27*/ meltfptr[24] = slot; + /*_.REFERENCED_VALUE__V27*/ + meltfptr[24] = slot; }; ; } @@ -4858,7 +5226,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3833:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~NBINDORCONT*/ meltfclos->tabval[6])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -4869,7 +5238,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~NBINDORCONT*/ meltfclos->tabval[6])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V28*/ meltfptr[27] = slot; + /*_.REFERENCED_VALUE__V28*/ + meltfptr[27] = slot; }; ; } @@ -4891,7 +5261,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.REFERENCED_VALUE__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[3]); - /*_.WRAP_NORMAL_LET1__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.REFERENCED_VALUE__V27*/ meltfptr[24]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.WRAP_NORMAL_LET1__V29*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.REFERENCED_VALUE__V27*/ meltfptr[24]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3828:/ quasiblock"); @@ -4902,7 +5273,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IF*/ meltfrout->tabval[10])), (5), "CLASS_NREP_IF"); - /*_.INST__V31*/ meltfptr[30] = + /*_.INST__V31*/ + meltfptr[30] = newobj; }; ; @@ -4935,7 +5307,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V31*/ meltfptr[30], "newly made instance"); ; - /*_.NIFOR__V30*/ meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; + /*_.NIFOR__V30*/ + meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; MELT_CHECK_SIGNAL(); ; @@ -4956,7 +5329,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[14])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V34*/ meltfptr[33] = + /*_.INST__V34*/ + meltfptr[33] = newobj; }; ; @@ -4984,7 +5358,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V34*/ meltfptr[33], "newly made instance"); ; - /*_.CORBIND__V33*/ meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; + /*_.CORBIND__V33*/ + meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; MELT_CHECK_SIGNAL(); ; @@ -4996,7 +5371,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V36*/ meltfptr[35] = + /*_.INST__V36*/ + meltfptr[35] = newobj; }; ; @@ -5024,15 +5400,18 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V36*/ meltfptr[35], "newly made instance"); ; - /*_.COROCC__V35*/ meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; + /*_.COROCC__V35*/ + meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_.MAKE_LIST__V37*/ meltfptr[36] = + /*_.MAKE_LIST__V37*/ + meltfptr[36] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[16]))));; MELT_LOCATION("warmelt-normal.melt:3851:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~NBINDORCONT*/ meltfclos->tabval[6])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -5060,7 +5439,8 @@ meltlab_endgetargs: } /*noelse*/ ; MELT_LOCATION("warmelt-normal.melt:3852:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~NBINDORCONT*/ meltfclos->tabval[6])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -5071,7 +5451,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~NBINDORCONT*/ meltfclos->tabval[6])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V38*/ meltfptr[37] = slot; + /*_.REFERENCED_VALUE__V38*/ + meltfptr[37] = slot; }; ; } @@ -5091,11 +5472,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V7*/ meltfptr[6]; - /*_.LIST_APPEND2LIST__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.REFERENCED_VALUE__V38*/ meltfptr[37]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V39*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.REFERENCED_VALUE__V38*/ meltfptr[37]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3853:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~NBINDORCONT*/ meltfclos->tabval[6])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -5106,7 +5489,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~NBINDORCONT*/ meltfclos->tabval[6])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V40*/ meltfptr[39] = slot; + /*_.REFERENCED_VALUE__V40*/ + meltfptr[39] = slot; }; ; } @@ -5126,7 +5510,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3854:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~NORCONT*/ meltfclos->tabval[5])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -5153,49 +5538,70 @@ meltlab_endgetargs: ; } /*noelse*/ ; - /*_.LET___V26*/ meltfptr[23] = (/*nil*/NULL);; + /*_.LET___V26*/ + meltfptr[23] = (/*nil*/NULL);; MELT_LOCATION("warmelt-normal.melt:3826:/ clear"); - /*clear*/ /*_.REFERENCED_VALUE__V27*/ meltfptr[24] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V27*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.WRAP_NORMAL_LET1__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.WRAP_NORMAL_LET1__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.NIFOR__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.NIFOR__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYMOR__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.CSYMOR__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.CORBIND__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.CORBIND__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.COROCC__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.COROCC__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.MAKE_LIST__V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_APPEND2LIST__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V40*/ meltfptr[39] = 0 ; - /*_.LET___V17*/ meltfptr[14] = /*_.LET___V26*/ meltfptr[23];; + /*clear*/ /*_.REFERENCED_VALUE__V40*/ + meltfptr[39] = 0 ; + /*_.LET___V17*/ + meltfptr[14] = /*_.LET___V26*/ meltfptr[23];; MELT_LOCATION("warmelt-normal.melt:3821:/ clear"); - /*clear*/ /*_.CTYPCUR__V18*/ meltfptr[15] = 0 ; + /*clear*/ /*_.CTYPCUR__V18*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V22*/ meltfptr[20] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V22*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L10*/ meltfnum[2] = 0 ; + /*clear*/ /*_#exeq__L10*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V23*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IF___V23*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V26*/ meltfptr[23] = 0 ; - /*_._IFELSE___V14*/ meltfptr[13] = /*_.LET___V17*/ meltfptr[14];; + /*clear*/ /*_.LET___V26*/ + meltfptr[23] = 0 ; + /*_._IFELSE___V14*/ + meltfptr[13] = /*_.LET___V17*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3814:/ clear"); - /*clear*/ /*_.LET___V17*/ meltfptr[14] = 0 ; + /*clear*/ /*_.LET___V17*/ + meltfptr[14] = 0 ; } ; } @@ -5203,28 +5609,36 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V5*/ meltfptr[3] = /*_._IFELSE___V14*/ meltfptr[13];; + /*_.MULTI___V5*/ + meltfptr[3] = /*_._IFELSE___V14*/ meltfptr[13];; MELT_LOCATION("warmelt-normal.melt:3808:/ clear"); - /*clear*/ /*_.LAMBDA___V10*/ meltfptr[8] = 0 ; + /*clear*/ /*_.LAMBDA___V10*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_EVERY__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.LIST_EVERY__V12*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V13*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L8*/ meltfnum[3] = 0 ; + /*clear*/ /*_#NULL__L8*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_._IFELSE___V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.NBIND__V7*/ + meltfptr[6] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3806:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.MULTI___V5*/ meltfptr[3];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.MULTI___V5*/ meltfptr[3];; { MELT_LOCATION("warmelt-normal.melt:3806:/ locexp"); @@ -5239,11 +5653,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MULTI___V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.MULTI___V5*/ + meltfptr[3] = 0 ; } ; @@ -5325,7 +5741,8 @@ meltrout_60_WARMELTmiNORMAL_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_60_WARMELTmiNORMAL_LAMBDA_cl11 fromline 1756 */ - /* classy proc frame meltrout_60_WARMELTmiNORMAL_LAMBDA_cl11 */ MeltFrame_meltrout_60_WARMELTmiNORMAL_LAMBDA_cl11 + /* classy proc frame meltrout_60_WARMELTmiNORMAL_LAMBDA_cl11 */ + MeltFrame_meltrout_60_WARMELTmiNORMAL_LAMBDA_cl11 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_60_WARMELTmiNORMAL_LAMBDA_cl11 fromline 1785*/ #if ENABLE_CHECKING @@ -5338,7 +5755,8 @@ meltrout_60_WARMELTmiNORMAL_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl11", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -5348,7 +5766,8 @@ meltrout_60_WARMELTmiNORMAL_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3813:/ getarg"); - /*_.BND__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.BND__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -5368,13 +5787,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.BND__V2*/ meltfptr[1]; - /*_.PUT_ENV__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V3*/ + meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^quasiblock*/ - /*_._RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; { MELT_LOCATION("warmelt-normal.melt:3813:/ locexp"); @@ -5389,11 +5810,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 ; } ; @@ -5475,7 +5898,8 @@ meltrout_61_WARMELTmiNORMAL_NORMEXP_PROGN(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_61_WARMELTmiNORMAL_NORMEXP_PROGN fromline 1756 */ - /* classy proc frame meltrout_61_WARMELTmiNORMAL_NORMEXP_PROGN */ MeltFrame_meltrout_61_WARMELTmiNORMAL_NORMEXP_PROGN + /* classy proc frame meltrout_61_WARMELTmiNORMAL_NORMEXP_PROGN */ + MeltFrame_meltrout_61_WARMELTmiNORMAL_NORMEXP_PROGN meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_61_WARMELTmiNORMAL_NORMEXP_PROGN fromline 1785*/ #if ENABLE_CHECKING @@ -5488,7 +5912,8 @@ meltrout_61_WARMELTmiNORMAL_NORMEXP_PROGN(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("NORMEXP_PROGN", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -5498,26 +5923,30 @@ meltrout_61_WARMELTmiNORMAL_NORMEXP_PROGN(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3871:/ 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); ; @@ -5539,10 +5968,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_PROGN*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:3872:/ 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);; @@ -5569,25 +6000,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3872; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3872:/ 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:3872:/ 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*/ @@ -5605,10 +6042,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:3873:/ 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);; @@ -5637,25 +6076,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3873; /*^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:3873:/ 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:3873:/ 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*/ @@ -5673,10 +6118,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:3874:/ 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);; @@ -5703,25 +6150,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3874; - /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V13*/ meltfptr[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:3874:/ 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:3874:/ 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*/ @@ -5749,7 +6202,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)) @@ -5758,7 +6212,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3875:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5791,16 +6246,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_progn 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:3875:/ 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 ; } ; } @@ -5813,7 +6272,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3875:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5822,9 +6282,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*/ @@ -5852,7 +6314,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:3877:/ getslot"); @@ -5860,22 +6323,27 @@ 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, "SPROGN_BODY"); - /*_.SBODY__V19*/ meltfptr[18] = slot; + /*_.SBODY__V19*/ + meltfptr[18] = slot; }; ; - /*_#LNBODY__L6*/ meltfnum[4] = + /*_#LNBODY__L6*/ + meltfnum[4] = (melt_multiple_length((melt_ptr_t)(/*_.SBODY__V19*/ meltfptr[18])));; /*^compute*/ - /*_.BOXLNBODY__V20*/ meltfptr[19] = + /*_.BOXLNBODY__V20*/ + meltfptr[19] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[5])), (/*_#LNBODY__L6*/ meltfnum[4])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#lteqI__L7*/ meltfnum[0] = + /*_#lteqI__L7*/ + meltfnum[0] = ((/*_#LNBODY__L6*/ meltfnum[4]) <= (0));; MELT_LOCATION("warmelt-normal.melt:3881:/ cond"); - /*cond*/ if (/*_#lteqI__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#lteqI__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5896,7 +6364,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ meltfrout->tabval[6])), (1), "CLASS_NREP_NIL"); - /*_.INST__V24*/ meltfptr[23] = + /*_.INST__V24*/ + meltfptr[23] = newobj; }; ; @@ -5909,7 +6378,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V24*/ meltfptr[23], "newly made instance"); ; - /*_.ONULL__V23*/ meltfptr[22] = /*_.INST__V24*/ meltfptr[23];; + /*_.ONULL__V23*/ + meltfptr[22] = /*_.INST__V24*/ meltfptr[23];; MELT_CHECK_SIGNAL(); ; @@ -5920,7 +6390,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "empty PROGN"; - /*_.ERROR_AT__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5943,7 +6414,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L8*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -5952,7 +6424,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3884:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5985,16 +6458,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_progn return empty onull"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ONULL__V23*/ meltfptr[22]; - /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 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__V27*/ + meltfptr[26] = 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___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:3884:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[26] = 0 ; } ; } @@ -6007,7 +6484,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3884:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6016,9 +6494,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V26*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6044,7 +6524,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3885:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.ONULL__V23*/ meltfptr[22];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.ONULL__V23*/ meltfptr[22];; { MELT_LOCATION("warmelt-normal.melt:3885:/ locexp"); @@ -6059,20 +6540,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V22*/ meltfptr[21] = /*_.RETURN___V28*/ meltfptr[26];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V22*/ + meltfptr[21] = /*_.RETURN___V28*/ meltfptr[26];; MELT_LOCATION("warmelt-normal.melt:3882:/ clear"); - /*clear*/ /*_.ONULL__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.ONULL__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.ERROR_AT__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V28*/ meltfptr[26] = 0 ; - /*_._IF___V21*/ meltfptr[20] = /*_.LET___V22*/ meltfptr[21];; + /*clear*/ /*_.RETURN___V28*/ + meltfptr[26] = 0 ; + /*_._IF___V21*/ + meltfptr[20] = /*_.LET___V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3881:/ clear"); - /*clear*/ /*_.LET___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.LET___V22*/ + meltfptr[21] = 0 ; } ; } @@ -6103,7 +6591,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V31*/ meltfptr[24]; /*^multiapply.appl*/ - /*_.NBODY__V30*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SBODY__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NBODY__V30*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SBODY__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -6129,7 +6618,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6138,7 +6628,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3889:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6175,16 +6666,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V31*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V33*/ meltfptr[21] = 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__V33*/ + meltfptr[21] = 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___V32*/ meltfptr[26] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[21];; + /*_._IF___V32*/ + meltfptr[26] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3889:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[21] = 0 ; } ; } @@ -6197,7 +6692,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3889:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6206,9 +6702,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V32*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IF___V32*/ + meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6231,19 +6729,23 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3890:/ quasiblock"); - /*_.NLAST__V35*/ meltfptr[26] = + /*_.NLAST__V35*/ + meltfptr[26] = (melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V30*/ meltfptr[22]), (-1)));; /*^compute*/ - /*_#LENBODY__L12*/ meltfnum[7] = + /*_#LENBODY__L12*/ + meltfnum[7] = (melt_multiple_length((melt_ptr_t)(/*_.NBODY__V30*/ meltfptr[22])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#gtI__L13*/ meltfnum[8] = + /*_#gtI__L13*/ + meltfnum[8] = ((/*_#LENBODY__L12*/ meltfnum[7]) > (0));; MELT_LOCATION("warmelt-normal.melt:3892:/ cond"); - /*cond*/ if (/*_#gtI__L13*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#gtI__L13*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6253,16 +6755,20 @@ meltlab_endgetargs: /*_#miI__L14*/ meltfnum[13] = ((/*_#LENBODY__L12*/ meltfnum[7]) - (1));; /*^compute*/ - /*_.MAKE_MULTIPLE__V37*/ meltfptr[36] = + /*_.MAKE_MULTIPLE__V37*/ + meltfptr[36] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[9])), (/*_#miI__L14*/ meltfnum[13])));; /*^compute*/ - /*_.NALLBUTLAST__V36*/ meltfptr[35] = /*_.MAKE_MULTIPLE__V37*/ meltfptr[36];; + /*_.NALLBUTLAST__V36*/ + meltfptr[35] = /*_.MAKE_MULTIPLE__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3892:/ clear"); - /*clear*/ /*_#miI__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#miI__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_MULTIPLE__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.MAKE_MULTIPLE__V37*/ + meltfptr[36] = 0 ; } ; } @@ -6275,7 +6781,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:3895:/ quasiblock"); - /*_#IX__L15*/ meltfnum[13] = + /*_#IX__L15*/ + meltfnum[13] = ((/*_#LENBODY__L12*/ meltfnum[7]) - (1));; MELT_LOCATION("warmelt-normal.melt:3896:/ loop"); /*loop*/ @@ -6292,10 +6799,12 @@ meltlabloop_BODYLOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#ltI__L16*/ meltfnum[15] = + /*_#ltI__L16*/ + meltfnum[15] = ((/*_#IX__L15*/ meltfnum[13]) < (0));; MELT_LOCATION("warmelt-normal.melt:3897:/ cond"); - /*cond*/ if (/*_#ltI__L16*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#ltI__L16*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6319,7 +6828,8 @@ meltlabloop_BODYLOOP_1:;/*^loopbody*/ ; } /*noelse*/ ; - /*_.MULTIPLE_NTH__V41*/ meltfptr[40] = + /*_.MULTIPLE_NTH__V41*/ + meltfptr[40] = (melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V30*/ meltfptr[22]), (/*_#IX__L15*/ meltfnum[13])));; { @@ -6327,39 +6837,49 @@ meltlabloop_BODYLOOP_1:;/*^loopbody*/ meltgc_multiple_put_nth((melt_ptr_t)(/*_.NALLBUTLAST__V36*/ meltfptr[35]), (/*_#IX__L15*/ meltfnum[13]), (melt_ptr_t)(/*_.MULTIPLE_NTH__V41*/ meltfptr[40])); } ; - /*_#miI__L17*/ meltfnum[16] = + /*_#miI__L17*/ + meltfnum[16] = ((/*_#IX__L15*/ meltfnum[13]) - (1));; MELT_LOCATION("warmelt-normal.melt:3899:/ compute"); - /*_#IX__L15*/ meltfnum[13] = /*_#SETQ___L18*/ meltfnum[17] = /*_#miI__L17*/ meltfnum[16];; + /*_#IX__L15*/ + meltfnum[13] = /*_#SETQ___L18*/ meltfnum[17] = /*_#miI__L17*/ meltfnum[16];; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3896:/ clear"); - /*clear*/ /*_#ltI__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#ltI__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_NTH__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MULTIPLE_NTH__V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_#miI__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#miI__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L18*/ meltfnum[17] = 0 ; + /*clear*/ /*_#SETQ___L18*/ + meltfnum[17] = 0 ; } ; ; goto meltlabloop_BODYLOOP_1; meltlabexit_BODYLOOP_1:;/*^loopepilog*/ /*loopepilog*/ - /*_.FOREVER___V39*/ meltfptr[38] = /*_.BODYLOOP__V40*/ meltfptr[39];; + /*_.FOREVER___V39*/ + meltfptr[38] = /*_.BODYLOOP__V40*/ meltfptr[39];; } ; /*^compute*/ - /*_.LET___V38*/ meltfptr[36] = /*_.FOREVER___V39*/ meltfptr[38];; + /*_.LET___V38*/ + meltfptr[36] = /*_.FOREVER___V39*/ meltfptr[38];; MELT_LOCATION("warmelt-normal.melt:3895:/ clear"); - /*clear*/ /*_#IX__L15*/ meltfnum[13] = 0 ; + /*clear*/ /*_#IX__L15*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.FOREVER___V39*/ + meltfptr[38] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:3900:/ cppif.then"); @@ -6380,7 +6900,8 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ 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)) @@ -6389,7 +6910,8 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3900:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6422,16 +6944,20 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ argtab[3].meltbp_cstring = "normexp_progn nallbutlast"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NALLBUTLAST__V36*/ meltfptr[35]; - /*_.MELT_DEBUG_FUN__V43*/ meltfptr[38] = 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__V43*/ + meltfptr[38] = 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___V42*/ meltfptr[40] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[38];; + /*_._IF___V42*/ + meltfptr[40] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3900:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[38] = 0 ; } ; } @@ -6444,7 +6970,8 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normal.melt:3900:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6453,9 +6980,11 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IF___V42*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6478,10 +7007,12 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#NULL__L21*/ meltfnum[17] = + /*_#NULL__L21*/ + meltfnum[17] = (/*null*/(/*_.NBIND__V31*/ meltfptr[24]) == NULL);; MELT_LOCATION("warmelt-normal.melt:3901:/ cond"); - /*cond*/ if (/*_#NULL__L21*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#NULL__L21*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6491,14 +7022,18 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ /*_.MAKE_LIST__V45*/ meltfptr[40] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[10]))));; MELT_LOCATION("warmelt-normal.melt:3901:/ compute"); - /*_.NBIND__V31*/ meltfptr[24] = /*_.SETQ___V46*/ meltfptr[45] = /*_.MAKE_LIST__V45*/ meltfptr[40];; - /*_._IF___V44*/ meltfptr[38] = /*_.SETQ___V46*/ meltfptr[45];; + /*_.NBIND__V31*/ + meltfptr[24] = /*_.SETQ___V46*/ meltfptr[45] = /*_.MAKE_LIST__V45*/ meltfptr[40];; + /*_._IF___V44*/ + meltfptr[38] = /*_.SETQ___V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3901:/ clear"); - /*clear*/ /*_.MAKE_LIST__V45*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MAKE_LIST__V45*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.SETQ___V46*/ + meltfptr[45] = 0 ; } ; } @@ -6530,7 +7065,8 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.LASTCTYP__V49*/ meltfptr[48] = meltgc_send((melt_ptr_t)(/*_.NLAST__V35*/ meltfptr[26]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[13])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LASTCTYP__V49*/ + meltfptr[48] = meltgc_send((melt_ptr_t)(/*_.NLAST__V35*/ meltfptr[26]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[13])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -6547,7 +7083,8 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PROGN*/ meltfrout->tabval[15])), (3), "CLASS_NREP_PROGN"); - /*_.INST__V51*/ meltfptr[50] = + /*_.INST__V51*/ + meltfptr[50] = newobj; }; ; @@ -6570,7 +7107,8 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V51*/ meltfptr[50], "newly made instance"); ; - /*_.INST___V50*/ meltfptr[49] = /*_.INST__V51*/ meltfptr[50];; + /*_.INST___V50*/ + meltfptr[49] = /*_.INST__V51*/ meltfptr[50];; MELT_LOCATION("warmelt-normal.melt:3905:/ quasiblock"); @@ -6579,7 +7117,8 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[14])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V53*/ meltfptr[52] = + /*_.INST__V53*/ + meltfptr[52] = newobj; }; ; @@ -6607,7 +7146,8 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V53*/ meltfptr[52], "newly made instance"); ; - /*_.CBIND__V52*/ meltfptr[51] = /*_.INST__V53*/ meltfptr[52];; + /*_.CBIND__V52*/ + meltfptr[51] = /*_.INST__V53*/ meltfptr[52];; MELT_CHECK_SIGNAL(); ; @@ -6619,7 +7159,8 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[16])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V55*/ meltfptr[54] = + /*_.INST__V55*/ + meltfptr[54] = newobj; }; ; @@ -6647,7 +7188,8 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V55*/ meltfptr[54], "newly made instance"); ; - /*_.CLOCC__V54*/ meltfptr[53] = /*_.INST__V55*/ meltfptr[54];; + /*_.CLOCC__V54*/ + meltfptr[53] = /*_.INST__V55*/ meltfptr[54];; { MELT_LOCATION("warmelt-normal.melt:3919:/ locexp"); @@ -6674,7 +7216,8 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L22*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L22*/ + meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6683,7 +7226,8 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3920:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L22*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L22*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6720,16 +7264,20 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ argtab[5].meltbp_cstring = " nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V31*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = 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__V57*/ + meltfptr[56] = 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___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:3920:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L23*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L23*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ + meltfptr[56] = 0 ; } ; } @@ -6742,7 +7290,8 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ { MELT_LOCATION("warmelt-normal.melt:3920:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6751,9 +7300,11 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L22*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L22*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_._IF___V56*/ + meltfptr[55] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6779,7 +7330,8 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ MELT_LOCATION("warmelt-normal.melt:3921:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V54*/ meltfptr[53];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V54*/ meltfptr[53];; MELT_LOCATION("warmelt-normal.melt:3921:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -6787,72 +7339,101 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V47*/ meltfptr[40] = /*_.RETURN___V58*/ meltfptr[56];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V47*/ + meltfptr[40] = /*_.RETURN___V58*/ meltfptr[56];; MELT_LOCATION("warmelt-normal.melt:3902:/ clear"); - /*clear*/ /*_.CSYM__V48*/ meltfptr[45] = 0 ; + /*clear*/ /*_.CSYM__V48*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.LASTCTYP__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.LASTCTYP__V49*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.INST___V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.CBIND__V52*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.CLOCC__V54*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V58*/ meltfptr[56] = 0 ; - /*_.LET___V34*/ meltfptr[21] = /*_.LET___V47*/ meltfptr[40];; + /*clear*/ /*_.RETURN___V58*/ + meltfptr[56] = 0 ; + /*_.LET___V34*/ + meltfptr[21] = /*_.LET___V47*/ meltfptr[40];; MELT_LOCATION("warmelt-normal.melt:3890:/ clear"); - /*clear*/ /*_.NLAST__V35*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NLAST__V35*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_#LENBODY__L12*/ meltfnum[7] = 0 ; + /*clear*/ /*_#LENBODY__L12*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L13*/ meltfnum[8] = 0 ; + /*clear*/ /*_#gtI__L13*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.NALLBUTLAST__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.NALLBUTLAST__V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V38*/ meltfptr[36] = 0 ; + /*clear*/ /*_.LET___V38*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L21*/ meltfnum[17] = 0 ; + /*clear*/ /*_#NULL__L21*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V44*/ meltfptr[38] = 0 ; + /*clear*/ /*_._IF___V44*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V47*/ meltfptr[40] = 0 ; + /*clear*/ /*_.LET___V47*/ + meltfptr[40] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V29*/ meltfptr[25] = /*_.LET___V34*/ meltfptr[21];; + /*_.MULTI___V29*/ + meltfptr[25] = /*_.LET___V34*/ meltfptr[21];; MELT_LOCATION("warmelt-normal.melt:3886:/ clear"); - /*clear*/ /*_.LET___V34*/ meltfptr[21] = 0 ; + /*clear*/ /*_.LET___V34*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V31*/ meltfptr[24] = 0 ; - /*_.LET___V17*/ meltfptr[6] = /*_.MULTI___V29*/ meltfptr[25];; + /*clear*/ /*_.NBIND__V31*/ + meltfptr[24] = 0 ; + /*_.LET___V17*/ + meltfptr[6] = /*_.MULTI___V29*/ meltfptr[25];; MELT_LOCATION("warmelt-normal.melt:3876:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[13] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.SBODY__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SBODY__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_#LNBODY__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#LNBODY__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.BOXLNBODY__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.BOXLNBODY__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#lteqI__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#lteqI__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IF___V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V29*/ meltfptr[25] = 0 ; + /*clear*/ /*_.MULTI___V29*/ + meltfptr[25] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3871:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; { MELT_LOCATION("warmelt-normal.melt:3871:/ locexp"); @@ -6867,17 +7448,22 @@ meltlabexit_BODYLOOP_1:;/*^loopepilog*/ ; /*^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 ; } ; @@ -6959,7 +7545,8 @@ meltrout_62_WARMELTmiNORMAL_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_62_WARMELTmiNORMAL_LAMBDA_cl12 fromline 1756 */ - /* classy proc frame meltrout_62_WARMELTmiNORMAL_LAMBDA_cl12 */ MeltFrame_meltrout_62_WARMELTmiNORMAL_LAMBDA_cl12 + /* classy proc frame meltrout_62_WARMELTmiNORMAL_LAMBDA_cl12 */ + MeltFrame_meltrout_62_WARMELTmiNORMAL_LAMBDA_cl12 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_62_WARMELTmiNORMAL_LAMBDA_cl12 fromline 1785*/ #if ENABLE_CHECKING @@ -6972,7 +7559,8 @@ meltrout_62_WARMELTmiNORMAL_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl12", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -6982,12 +7570,14 @@ meltrout_62_WARMELTmiNORMAL_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3925:/ 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); ; @@ -7004,7 +7594,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, "NPROGN_LAST"); - /*_.NPROGN_LAST__V4*/ meltfptr[3] = slot; + /*_.NPROGN_LAST__V4*/ + meltfptr[3] = slot; }; ; @@ -7017,13 +7608,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.GET_CTYPE__V5*/ meltfptr[4] = meltgc_send((melt_ptr_t)(/*_.NPROGN_LAST__V4*/ meltfptr[3]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GET_CTYPE__V5*/ + meltfptr[4] = meltgc_send((melt_ptr_t)(/*_.NPROGN_LAST__V4*/ meltfptr[3]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^quasiblock*/ - /*_._RETVAL___V1*/ meltfptr[0] = /*_.GET_CTYPE__V5*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.GET_CTYPE__V5*/ meltfptr[4];; { MELT_LOCATION("warmelt-normal.melt:3925:/ locexp"); @@ -7038,13 +7631,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.NPROGN_LAST__V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.NPROGN_LAST__V4*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.GET_CTYPE__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.GET_CTYPE__V5*/ + meltfptr[4] = 0 ; } ; @@ -7126,7 +7722,8 @@ meltrout_63_WARMELTmiNORMAL_NORMEXP_LET(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_63_WARMELTmiNORMAL_NORMEXP_LET fromline 1756 */ - /* classy proc frame meltrout_63_WARMELTmiNORMAL_NORMEXP_LET */ MeltFrame_meltrout_63_WARMELTmiNORMAL_NORMEXP_LET + /* classy proc frame meltrout_63_WARMELTmiNORMAL_NORMEXP_LET */ + MeltFrame_meltrout_63_WARMELTmiNORMAL_NORMEXP_LET meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_63_WARMELTmiNORMAL_NORMEXP_LET fromline 1785*/ #if ENABLE_CHECKING @@ -7139,7 +7736,8 @@ meltrout_63_WARMELTmiNORMAL_NORMEXP_LET(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("NORMEXP_LET", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -7149,26 +7747,30 @@ meltrout_63_WARMELTmiNORMAL_NORMEXP_LET(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:3932:/ 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); ; @@ -7200,7 +7802,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)) @@ -7209,7 +7812,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3933:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7254,16 +7858,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n.. ncx="; /*^apply.arg*/ argtab[10].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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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_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:3933:/ 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 ; } ; } @@ -7276,7 +7884,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3933:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -7285,9 +7894,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*/ @@ -7317,10 +7928,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_LET*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:3935:/ 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);; @@ -7347,25 +7960,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3935; - /*_.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 ""), 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 ""), 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:3935:/ 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:3935:/ 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*/ @@ -7383,10 +8002,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:3936:/ 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);; @@ -7415,25 +8036,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3936; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3936:/ 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:3936:/ 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*/ @@ -7451,10 +8078,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:3937:/ 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);; @@ -7483,25 +8112,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3937; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3937:/ 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:3937:/ 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*/ @@ -7517,7 +8152,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:3939:/ getslot"); @@ -7525,7 +8161,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, "SLET_BINDINGS"); - /*_.SBINDINGS__V19*/ meltfptr[18] = slot; + /*_.SBINDINGS__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3940:/ getslot"); @@ -7533,7 +8170,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, "SLET_BODY"); - /*_.SBODY__V20*/ meltfptr[19] = slot; + /*_.SBODY__V20*/ + meltfptr[19] = slot; }; ; @@ -7545,7 +8183,8 @@ meltlab_endgetargs: /*_.NEWENV__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (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[7]))));; /*citerblock FOREACH_IN_MULTIPLE*/ { @@ -7579,7 +8218,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)) @@ -7588,7 +8228,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3948:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7637,16 +8278,20 @@ meltlab_endgetargs: argtab[11].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[8]); /*^apply.arg*/ argtab[12].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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:3948:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ + meltfptr[24] = 0 ; } ; } @@ -7659,7 +8304,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3948:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -7668,9 +8314,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V24*/ + meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7693,10 +8341,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[7] = + /*_#IS_A__L9*/ + meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.SB__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_SOURCE_LET_BINDING*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-normal.melt:3952:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7711,7 +8361,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SB__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SBLOC__V28*/ meltfptr[27] = slot; + /*_.SBLOC__V28*/ + meltfptr[27] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3954:/ getslot"); @@ -7719,7 +8370,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SB__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SLETB_TYPE"); - /*_.SBTYP__V29*/ meltfptr[28] = slot; + /*_.SBTYP__V29*/ + meltfptr[28] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3955:/ getslot"); @@ -7727,7 +8379,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SB__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SLETB_BINDER"); - /*_.SBINDER__V30*/ meltfptr[29] = slot; + /*_.SBINDER__V30*/ + meltfptr[29] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:3956:/ getslot"); @@ -7735,7 +8388,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SB__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SLETB_EXPR"); - /*_.SBEXPR__V31*/ meltfptr[30] = slot; + /*_.SBEXPR__V31*/ + meltfptr[30] = slot; }; ; @@ -7748,10 +8402,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L10*/ meltfnum[1] = + /*_#IS_A__L10*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SBTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_QUASI_CTYPE*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-normal.melt:3958:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V33*/ meltfptr[32] = (/*nil*/NULL);; @@ -7780,25 +8436,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3958; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SBTYP__V29*/ meltfptr[28]; - /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = 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__V34*/ + meltfptr[33] = 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___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:3958:/ 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:3958:/ clear"); - /*clear*/ /*_#IS_A__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IFELSE___V33*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7810,10 +8472,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#HAS_EXTRA_WARNINGS__L11*/ meltfnum[1] = + /*_#HAS_EXTRA_WARNINGS__L11*/ + meltfnum[1] = (extra_warnings);; MELT_LOCATION("warmelt-normal.melt:3960:/ cond"); - /*cond*/ if (/*_#HAS_EXTRA_WARNINGS__L11*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#HAS_EXTRA_WARNINGS__L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7833,11 +8497,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SBINDER__V30*/ meltfptr[29]; - /*_.FIND_ENV__V35*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FIND_ENV__V35*/ + meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3960:/ cond"); - /*cond*/ if (/*_.FIND_ENV__V35*/ meltfptr[33]) /*then*/ + /*cond*/ + if (/*_.FIND_ENV__V35*/ meltfptr[33]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7845,7 +8511,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3964:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SBINDER__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[12]))) ) /*then*/ @@ -7856,7 +8523,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SBINDER__V30*/ meltfptr[29]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V36*/ meltfptr[32] = slot; + /*_.NAMED_NAME__V36*/ + meltfptr[32] = slot; }; ; } @@ -7875,7 +8543,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3960:/ clear"); - /*clear*/ /*_.NAMED_NAME__V36*/ meltfptr[32] = 0 ; + /*clear*/ /*_.NAMED_NAME__V36*/ + meltfptr[32] = 0 ; } ; } /*noelse*/ @@ -7883,7 +8552,8 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.FIND_ENV__V35*/ meltfptr[33] = 0 ; + /*clear*/ /*_.FIND_ENV__V35*/ + meltfptr[33] = 0 ; } ; } /*noelse*/ @@ -7907,7 +8577,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SBLOC__V28*/ meltfptr[27]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V39*/ meltfptr[38];/*^multimsend.send*/ - /*_.NBDEXPR__V38*/ meltfptr[33] = meltgc_send ((melt_ptr_t)(/*_.SBEXPR__V31*/ meltfptr[30]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[13]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NBDEXPR__V38*/ + meltfptr[33] = meltgc_send ((melt_ptr_t)(/*_.SBEXPR__V31*/ meltfptr[30]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[13]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -7933,7 +8604,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7942,7 +8614,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:3971:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7981,16 +8654,20 @@ meltlab_endgetargs: argtab[6].meltbp_cstring = " nbindings="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V39*/ meltfptr[38]; - /*_.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_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_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:3971:/ 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 ; } ; } @@ -8003,7 +8680,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3971:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8012,9 +8690,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V40*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8047,7 +8727,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V21*/ meltfptr[20]; - /*_.NBCTYPE__V43*/ meltfptr[39] = meltgc_send((melt_ptr_t)(/*_.NBDEXPR__V38*/ meltfptr[33]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NBCTYPE__V43*/ + meltfptr[39] = meltgc_send((melt_ptr_t)(/*_.NBDEXPR__V38*/ meltfptr[33]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -8060,10 +8741,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L14*/ meltfnum[12] = + /*_#IS_A__L14*/ + meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.NBCTYPE__V43*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[15])));; MELT_LOCATION("warmelt-normal.melt:3976:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#IS_A__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V45*/ meltfptr[44] = (/*nil*/NULL);; @@ -8092,25 +8775,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3976; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBCTYPE__V43*/ meltfptr[39]; - /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45] = 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__V46*/ + meltfptr[45] = 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___V45*/ meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45];; + /*_._IFELSE___V45*/ + meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3976:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/ + meltfptr[45] = 0 ; } ; } ; - /*_.IFCPP___V44*/ meltfptr[43] = /*_._IFELSE___V45*/ meltfptr[44];; + /*_.IFCPP___V44*/ + meltfptr[43] = /*_._IFELSE___V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3976:/ clear"); - /*clear*/ /*_#IS_A__L14*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_A__L14*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IFELSE___V45*/ + meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8122,10 +8811,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#eqeq__L15*/ meltfnum[11] = + /*_#eqeq__L15*/ + meltfnum[11] = ((/*_.SBTYP__V29*/ meltfptr[28]) == ((/*!QUASI_CTYPE_AUTO*/ meltfrout->tabval[16])));; MELT_LOCATION("warmelt-normal.melt:3979:/ cond"); - /*cond*/ if (/*_#eqeq__L15*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#eqeq__L15*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8135,10 +8826,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L16*/ meltfnum[12] = + /*_#eqeq__L16*/ + meltfnum[12] = ((/*_.SBTYP__V29*/ meltfptr[28]) == ((/*!CTYPE_VOID*/ meltfrout->tabval[17])));; MELT_LOCATION("warmelt-normal.melt:3980:/ cond"); - /*cond*/ if (/*_#eqeq__L16*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#eqeq__L16*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8157,14 +8850,17 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "auto LET binding of $1 should not be void"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SBINDER__V30*/ meltfptr[29]; - /*_.ERROR_AT__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.SBLOC__V28*/ meltfptr[27]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V49*/ + meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.SBLOC__V28*/ meltfptr[27]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V48*/ meltfptr[44] = /*_.ERROR_AT__V49*/ meltfptr[48];; + /*_._IF___V48*/ + meltfptr[44] = /*_.ERROR_AT__V49*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3980:/ clear"); - /*clear*/ /*_.ERROR_AT__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.ERROR_AT__V49*/ + meltfptr[48] = 0 ; } ; } @@ -8175,23 +8871,30 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3983:/ compute"); - /*_.SBTYP__V29*/ meltfptr[28] = /*_.SETQ___V50*/ meltfptr[48] = /*_.NBCTYPE__V43*/ meltfptr[39];; + /*_.SBTYP__V29*/ + meltfptr[28] = /*_.SETQ___V50*/ meltfptr[48] = /*_.NBCTYPE__V43*/ meltfptr[39];; MELT_LOCATION("warmelt-normal.melt:3979:/ quasiblock"); - /*_.PROGN___V51*/ meltfptr[50] = /*_.SETQ___V50*/ meltfptr[48];; + /*_.PROGN___V51*/ + meltfptr[50] = /*_.SETQ___V50*/ meltfptr[48];; /*^compute*/ - /*_._IF___V47*/ meltfptr[45] = /*_.PROGN___V51*/ meltfptr[50];; + /*_._IF___V47*/ + meltfptr[45] = /*_.PROGN___V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3979:/ clear"); - /*clear*/ /*_#eqeq__L16*/ meltfnum[12] = 0 ; + /*clear*/ /*_#eqeq__L16*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V48*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IF___V48*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V50*/ meltfptr[48] = 0 ; + /*clear*/ /*_.SETQ___V50*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.PROGN___V51*/ + meltfptr[50] = 0 ; } ; } @@ -8205,10 +8908,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#exeq__L17*/ meltfnum[12] = + /*_#exeq__L17*/ + meltfnum[12] = ((/*_.NBCTYPE__V43*/ meltfptr[39]) != (/*_.SBTYP__V29*/ meltfptr[28]));; MELT_LOCATION("warmelt-normal.melt:3985:/ cond"); - /*cond*/ if (/*_#exeq__L17*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#exeq__L17*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8216,7 +8921,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:3989:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SBINDER__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[12]))) ) /*then*/ @@ -8227,7 +8933,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SBINDER__V30*/ meltfptr[29]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V53*/ meltfptr[48] = slot; + /*_.NAMED_NAME__V53*/ + meltfptr[48] = slot; }; ; } @@ -8238,7 +8945,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3990:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NBCTYPE__V43*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[12]))) ) /*then*/ @@ -8249,7 +8957,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NBCTYPE__V43*/ meltfptr[39]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V54*/ meltfptr[50] = slot; + /*_.NAMED_NAME__V54*/ + meltfptr[50] = slot; }; ; } @@ -8260,7 +8969,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3991:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SBTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[12]))) ) /*then*/ @@ -8271,7 +8981,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SBTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V55*/ meltfptr[54] = slot; + /*_.NAMED_NAME__V55*/ + meltfptr[54] = slot; }; ; } @@ -8297,27 +9008,35 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V54*/ meltfptr[50]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V55*/ meltfptr[54]; - /*_.ERROR_AT__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.SBLOC__V28*/ meltfptr[27]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V56*/ + meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.SBLOC__V28*/ meltfptr[27]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:3985:/ quasiblock"); - /*_.PROGN___V57*/ meltfptr[56] = /*_.ERROR_AT__V56*/ meltfptr[55];; + /*_.PROGN___V57*/ + meltfptr[56] = /*_.ERROR_AT__V56*/ meltfptr[55];; /*^compute*/ - /*_._IF___V52*/ meltfptr[44] = /*_.PROGN___V57*/ meltfptr[56];; + /*_._IF___V52*/ + meltfptr[44] = /*_.PROGN___V57*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3985:/ clear"); - /*clear*/ /*_.NAMED_NAME__V53*/ meltfptr[48] = 0 ; + /*clear*/ /*_.NAMED_NAME__V53*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V54*/ meltfptr[50] = 0 ; + /*clear*/ /*_.NAMED_NAME__V54*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.NAMED_NAME__V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.ERROR_AT__V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.PROGN___V57*/ + meltfptr[56] = 0 ; } ; } @@ -8328,27 +9047,36 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V42*/ meltfptr[40] = /*_._IF___V52*/ meltfptr[44];; + /*_.LET___V42*/ + meltfptr[40] = /*_._IF___V52*/ meltfptr[44];; MELT_LOCATION("warmelt-normal.melt:3974:/ clear"); - /*clear*/ /*_.NBCTYPE__V43*/ meltfptr[39] = 0 ; + /*clear*/ /*_.NBCTYPE__V43*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.IFCPP___V44*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L15*/ meltfnum[11] = 0 ; + /*clear*/ /*_#eqeq__L15*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V47*/ meltfptr[45] = 0 ; + /*clear*/ /*_._IF___V47*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L17*/ meltfnum[12] = 0 ; + /*clear*/ /*_#exeq__L17*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V52*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IF___V52*/ + meltfptr[44] = 0 ; MELT_LOCATION("warmelt-normal.melt:3994:/ quasiblock"); - /*_.LIST_LAST__V59*/ meltfptr[50] = + /*_.LIST_LAST__V59*/ + meltfptr[50] = (melt_list_last((melt_ptr_t)(/*_.NBINDINGS__V39*/ meltfptr[38])));; /*^compute*/ - /*_.LASTNBINDING__V60*/ meltfptr[54] = + /*_.LASTNBINDING__V60*/ + meltfptr[54] = (melt_pair_head((melt_ptr_t)(/*_.LIST_LAST__V59*/ meltfptr[50])));; MELT_CHECK_SIGNAL(); @@ -8357,10 +9085,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L18*/ meltfnum[11] = + /*_#IS_A__L18*/ + meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.LASTNBINDING__V60*/ meltfptr[54]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[19])));; MELT_LOCATION("warmelt-normal.melt:3997:/ cond"); - /*cond*/ if (/*_#IS_A__L18*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#IS_A__L18*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8370,10 +9100,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L20*/ meltfnum[19] = + /*_#IS_A__L20*/ + meltfnum[19] = melt_is_instance_of((melt_ptr_t)(/*_.NBDEXPR__V38*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[20])));; MELT_LOCATION("warmelt-normal.melt:3997:/ cond"); - /*cond*/ if (/*_#IS_A__L20*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#IS_A__L20*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8385,7 +9117,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LASTNBINDING__V60*/ meltfptr[54]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V61*/ meltfptr[55] = slot; + /*_.BINDER__V61*/ + meltfptr[55] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4001:/ getslot"); @@ -8393,21 +9126,27 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NBDEXPR__V38*/ meltfptr[33]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NOCC_SYMB"); - /*_.NOCC_SYMB__V62*/ meltfptr[56] = slot; + /*_.NOCC_SYMB__V62*/ + meltfptr[56] = slot; }; ; - /*_#eqeq__L22*/ meltfnum[21] = + /*_#eqeq__L22*/ + meltfnum[21] = ((/*_.BINDER__V61*/ meltfptr[55]) == (/*_.NOCC_SYMB__V62*/ meltfptr[56]));; /*^compute*/ - /*_#_IF___L21*/ meltfnum[20] = /*_#eqeq__L22*/ meltfnum[21];; + /*_#_IF___L21*/ + meltfnum[20] = /*_#eqeq__L22*/ meltfnum[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3997:/ clear"); - /*clear*/ /*_.BINDER__V61*/ meltfptr[55] = 0 ; + /*clear*/ /*_.BINDER__V61*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.NOCC_SYMB__V62*/ meltfptr[56] = 0 ; + /*clear*/ /*_.NOCC_SYMB__V62*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L22*/ meltfnum[21] = 0 ; + /*clear*/ /*_#eqeq__L22*/ + meltfnum[21] = 0 ; } ; } @@ -8418,13 +9157,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#_IF___L19*/ meltfnum[12] = /*_#_IF___L21*/ meltfnum[20];; + /*_#_IF___L19*/ + meltfnum[12] = /*_#_IF___L21*/ meltfnum[20];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3997:/ clear"); - /*clear*/ /*_#IS_A__L20*/ meltfnum[19] = 0 ; + /*clear*/ /*_#IS_A__L20*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L21*/ meltfnum[20] = 0 ; + /*clear*/ /*_#_IF___L21*/ + meltfnum[20] = 0 ; } ; } @@ -8435,7 +9177,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:3997:/ cond"); - /*cond*/ if (/*_#_IF___L19*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#_IF___L19*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8450,14 +9193,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NBDEXPR__V38*/ meltfptr[33]) /*=obj*/; melt_object_get_field(slot,obj, 2, "LETBIND_EXPR"); - /*_.LASTNORMEXP__V65*/ meltfptr[45] = slot; + /*_.LASTNORMEXP__V65*/ + meltfptr[45] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4006:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V67*/ meltfptr[55] = + /*newclosure*/ /*_.LAMBDA___V67*/ + meltfptr[55] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_22*/ meltfrout->tabval[22])), (2)); ; /*^putclosedv*/ @@ -8472,7 +9217,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V67*/ meltfptr[55]))); ((meltclosure_ptr_t)/*_.LAMBDA___V67*/ meltfptr[55])->tabval[1] = (melt_ptr_t)(/*_.BINDLIST__V22*/ meltfptr[21]); ; - /*_.LAMBDA___V66*/ meltfptr[44] = /*_.LAMBDA___V67*/ meltfptr[55];; + /*_.LAMBDA___V66*/ + meltfptr[44] = /*_.LAMBDA___V67*/ meltfptr[55];; MELT_CHECK_SIGNAL(); ; @@ -8483,7 +9229,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V66*/ meltfptr[44]; - /*_.LIST_EVERY__V68*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.NBINDINGS__V39*/ meltfptr[38]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_EVERY__V68*/ + meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.NBINDINGS__V39*/ meltfptr[38]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4009:/ quasiblock"); @@ -8497,7 +9244,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LASTNBINDING__V60*/ meltfptr[54]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LETBIND_TYPE"); - /*_.LETBIND_TYPE__V70*/ meltfptr[69] = slot; + /*_.LETBIND_TYPE__V70*/ + meltfptr[69] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4013:/ getslot"); @@ -8505,7 +9253,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LASTNBINDING__V60*/ meltfptr[54]) /*=obj*/; melt_object_get_field(slot,obj, 2, "LETBIND_EXPR"); - /*_.LETBIND_EXPR__V71*/ meltfptr[70] = slot; + /*_.LETBIND_EXPR__V71*/ + meltfptr[70] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4014:/ getslot"); @@ -8513,7 +9262,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LASTNBINDING__V60*/ meltfptr[54]) /*=obj*/; melt_object_get_field(slot,obj, 3, "LETBIND_LOC"); - /*_.LETBIND_LOC__V72*/ meltfptr[71] = slot; + /*_.LETBIND_LOC__V72*/ + meltfptr[71] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4010:/ quasiblock"); @@ -8524,7 +9274,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__V74*/ meltfptr[73] = + /*_.INST__V74*/ + meltfptr[73] = newobj; }; ; @@ -8552,7 +9303,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V74*/ meltfptr[73], "newly made instance"); ; - /*_.NEWCBND__V73*/ meltfptr[72] = /*_.INST__V74*/ meltfptr[73];; + /*_.NEWCBND__V73*/ + meltfptr[72] = /*_.INST__V74*/ meltfptr[73];; { MELT_LOCATION("warmelt-normal.melt:4016:/ locexp"); @@ -8569,36 +9321,50 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWCBND__V73*/ meltfptr[72]; - /*_.PUT_ENV__V75*/ meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.NEWENV__V21*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V75*/ + meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.NEWENV__V21*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V69*/ meltfptr[68] = /*_.PUT_ENV__V75*/ meltfptr[74];; + /*_.LET___V69*/ + meltfptr[68] = /*_.PUT_ENV__V75*/ meltfptr[74];; MELT_LOCATION("warmelt-normal.melt:4009:/ clear"); - /*clear*/ /*_.LETBIND_TYPE__V70*/ meltfptr[69] = 0 ; + /*clear*/ /*_.LETBIND_TYPE__V70*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.LETBIND_EXPR__V71*/ meltfptr[70] = 0 ; + /*clear*/ /*_.LETBIND_EXPR__V71*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.LETBIND_LOC__V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_.LETBIND_LOC__V72*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWCBND__V73*/ meltfptr[72] = 0 ; + /*clear*/ /*_.NEWCBND__V73*/ + meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V75*/ meltfptr[74] = 0 ; - /*_.LET___V64*/ meltfptr[43] = /*_.LET___V69*/ meltfptr[68];; + /*clear*/ /*_.PUT_ENV__V75*/ + meltfptr[74] = 0 ; + /*_.LET___V64*/ + meltfptr[43] = /*_.LET___V69*/ meltfptr[68];; MELT_LOCATION("warmelt-normal.melt:4003:/ clear"); - /*clear*/ /*_.LASTNORMEXP__V65*/ meltfptr[45] = 0 ; + /*clear*/ /*_.LASTNORMEXP__V65*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V66*/ meltfptr[44] = 0 ; + /*clear*/ /*_.LAMBDA___V66*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_EVERY__V68*/ meltfptr[56] = 0 ; + /*clear*/ /*_.LIST_EVERY__V68*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V69*/ meltfptr[68] = 0 ; - /*_._IFELSE___V63*/ meltfptr[39] = /*_.LET___V64*/ meltfptr[43];; + /*clear*/ /*_.LET___V69*/ + meltfptr[68] = 0 ; + /*_._IFELSE___V63*/ + meltfptr[39] = /*_.LET___V64*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3997:/ clear"); - /*clear*/ /*_.LET___V64*/ meltfptr[43] = 0 ; + /*clear*/ /*_.LET___V64*/ + meltfptr[43] = 0 ; } ; } @@ -8619,7 +9385,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V39*/ meltfptr[38]; - /*_.LIST_APPEND2LIST__V76*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.BINDLIST__V22*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V76*/ + meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.BINDLIST__V22*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4023:/ quasiblock"); @@ -8636,7 +9403,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__V79*/ meltfptr[72] = + /*_.INST__V79*/ + meltfptr[72] = newobj; }; ; @@ -8664,7 +9432,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V79*/ meltfptr[72], "newly made instance"); ; - /*_.NEWPBND__V78*/ meltfptr[71] = /*_.INST__V79*/ meltfptr[72];; + /*_.NEWPBND__V78*/ + meltfptr[71] = /*_.INST__V79*/ meltfptr[72];; { MELT_LOCATION("warmelt-normal.melt:4029:/ locexp"); @@ -8681,78 +9450,107 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWPBND__V78*/ meltfptr[71]; - /*_.PUT_ENV__V80*/ meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.NEWENV__V21*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V80*/ + meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.NEWENV__V21*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V77*/ meltfptr[70] = /*_.PUT_ENV__V80*/ meltfptr[74];; + /*_.LET___V77*/ + meltfptr[70] = /*_.PUT_ENV__V80*/ meltfptr[74];; MELT_LOCATION("warmelt-normal.melt:4023:/ clear"); - /*clear*/ /*_.NEWPBND__V78*/ meltfptr[71] = 0 ; + /*clear*/ /*_.NEWPBND__V78*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V80*/ meltfptr[74] = 0 ; + /*clear*/ /*_.PUT_ENV__V80*/ + meltfptr[74] = 0 ; MELT_LOCATION("warmelt-normal.melt:4020:/ quasiblock"); - /*_.PROGN___V81*/ meltfptr[45] = /*_.LET___V77*/ meltfptr[70];; + /*_.PROGN___V81*/ + meltfptr[45] = /*_.LET___V77*/ meltfptr[70];; /*^compute*/ - /*_._IFELSE___V63*/ meltfptr[39] = /*_.PROGN___V81*/ meltfptr[45];; + /*_._IFELSE___V63*/ + meltfptr[39] = /*_.PROGN___V81*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3997:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V76*/ meltfptr[69] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V76*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V77*/ meltfptr[70] = 0 ; + /*clear*/ /*_.LET___V77*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V81*/ meltfptr[45] = 0 ; + /*clear*/ /*_.PROGN___V81*/ + meltfptr[45] = 0 ; } ; } ; - /*_.LET___V58*/ meltfptr[48] = /*_._IFELSE___V63*/ meltfptr[39];; + /*_.LET___V58*/ + meltfptr[48] = /*_._IFELSE___V63*/ meltfptr[39];; MELT_LOCATION("warmelt-normal.melt:3994:/ clear"); - /*clear*/ /*_.LIST_LAST__V59*/ meltfptr[50] = 0 ; + /*clear*/ /*_.LIST_LAST__V59*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.LASTNBINDING__V60*/ meltfptr[54] = 0 ; + /*clear*/ /*_.LASTNBINDING__V60*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L18*/ meltfnum[11] = 0 ; + /*clear*/ /*_#IS_A__L18*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L19*/ meltfnum[12] = 0 ; + /*clear*/ /*_#_IF___L19*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V63*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IFELSE___V63*/ + meltfptr[39] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V37*/ meltfptr[32] = /*_.LET___V58*/ meltfptr[48];; + /*_.MULTI___V37*/ + meltfptr[32] = /*_.LET___V58*/ meltfptr[48];; MELT_LOCATION("warmelt-normal.melt:3967:/ clear"); - /*clear*/ /*_.LET___V42*/ meltfptr[40] = 0 ; + /*clear*/ /*_.LET___V42*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V58*/ meltfptr[48] = 0 ; + /*clear*/ /*_.LET___V58*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDINGS__V39*/ meltfptr[38] = 0 ; - /*_.LET___V27*/ meltfptr[23] = /*_.MULTI___V37*/ meltfptr[32];; + /*clear*/ /*_.NBINDINGS__V39*/ + meltfptr[38] = 0 ; + /*_.LET___V27*/ + meltfptr[23] = /*_.MULTI___V37*/ meltfptr[32];; MELT_LOCATION("warmelt-normal.melt:3953:/ clear"); - /*clear*/ /*_.SBLOC__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.SBLOC__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.SBTYP__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.SBTYP__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.SBINDER__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.SBINDER__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.SBEXPR__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.SBEXPR__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.IFCPP___V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_#HAS_EXTRA_WARNINGS__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#HAS_EXTRA_WARNINGS__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V37*/ meltfptr[32] = 0 ; - /*_._IFELSE___V26*/ meltfptr[24] = /*_.LET___V27*/ meltfptr[23];; + /*clear*/ /*_.MULTI___V37*/ + meltfptr[32] = 0 ; + /*_._IFELSE___V26*/ + meltfptr[24] = /*_.LET___V27*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3952:/ clear"); - /*clear*/ /*_.LET___V27*/ meltfptr[23] = 0 ; + /*clear*/ /*_.LET___V27*/ + meltfptr[23] = 0 ; } ; } @@ -8766,10 +9564,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L23*/ meltfnum[21] = + /*_#IS_A__L23*/ + meltfnum[21] = melt_is_instance_of((melt_ptr_t)(/*_.SB__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_SOURCE_MACRO_LET_BINDING*/ meltfrout->tabval[25])));; MELT_LOCATION("warmelt-normal.melt:4035:/ cond"); - /*cond*/ if (/*_#IS_A__L23*/ meltfnum[21]) /*then*/ + /*cond*/ + if (/*_#IS_A__L23*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8796,7 +9596,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L24*/ meltfnum[19] = + /*_#MELT_NEED_DBG__L24*/ + meltfnum[19] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8805,7 +9606,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4036:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L24*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L24*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8844,16 +9646,20 @@ meltlab_endgetargs: argtab[6].meltbp_cstring = ";\n.. macrobinding sb="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.SB__V23*/ meltfptr[22]; - /*_.MELT_DEBUG_FUN__V84*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V84*/ + meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V83*/ meltfptr[56] = /*_.MELT_DEBUG_FUN__V84*/ meltfptr[68];; + /*_._IF___V83*/ + meltfptr[56] = /*_.MELT_DEBUG_FUN__V84*/ meltfptr[68];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4036:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L25*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L25*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V84*/ meltfptr[68] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V84*/ + meltfptr[68] = 0 ; } ; } @@ -8866,7 +9672,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4036:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8875,9 +9682,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L24*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L24*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V83*/ meltfptr[56] = 0 ; + /*clear*/ /*_._IF___V83*/ + meltfptr[56] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8901,7 +9710,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SB__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_SOURCE_ANY_LET_BINDING*/ meltfrout->tabval[26]))) ) /*then*/ @@ -8912,7 +9722,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SB__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SLETB_BINDER"); - /*_.MACSYMB__V85*/ meltfptr[43] = slot; + /*_.MACSYMB__V85*/ + meltfptr[43] = slot; }; ; } @@ -8923,7 +9734,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:4038:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SB__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[27]))) ) /*then*/ @@ -8934,7 +9746,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SB__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOCA_LOCATION__V86*/ meltfptr[71] = slot; + /*_.LOCA_LOCATION__V86*/ + meltfptr[71] = slot; }; ; } @@ -8945,7 +9758,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:4038:/ cond"); - /*cond*/ if (/*_.LOCA_LOCATION__V86*/ meltfptr[71]) /*then*/ + /*cond*/ + if (/*_.LOCA_LOCATION__V86*/ meltfptr[71]) /*then*/ { /*^cond.then*/ /*_.MLOC__V87*/ meltfptr[74] = /*_.LOCA_LOCATION__V86*/ meltfptr[71];; @@ -8954,11 +9768,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4038:/ cond.else"); - /*_.MLOC__V87*/ meltfptr[74] = /*_.SLOC__V18*/ meltfptr[5];; + /*_.MLOC__V87*/ + meltfptr[74] = /*_.SLOC__V18*/ meltfptr[5];; } ; MELT_LOCATION("warmelt-normal.melt:4039:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SB__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_SOURCE_MACRO_LET_BINDING*/ meltfrout->tabval[25]))) ) /*then*/ @@ -8969,7 +9785,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SB__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SLETM_MACRO_FORMALS"); - /*_.MFORMALS__V88*/ meltfptr[69] = slot; + /*_.MFORMALS__V88*/ + meltfptr[69] = slot; }; ; } @@ -8980,7 +9797,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:4040:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SB__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_SOURCE_MACRO_LET_BINDING*/ meltfrout->tabval[25]))) ) /*then*/ @@ -8991,7 +9809,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SB__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SLETM_MACRO_BODY"); - /*_.MBODY__V89*/ meltfptr[70] = slot; + /*_.MBODY__V89*/ + meltfptr[70] = slot; }; ; } @@ -9021,7 +9840,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_LAMBDA_FOR_MACRO*/ meltfrout->tabval[28])), (5), "CLASS_SOURCE_LAMBDA_FOR_MACRO"); - /*_.INST__V92*/ meltfptr[54] = + /*_.INST__V92*/ + meltfptr[54] = newobj; }; ; @@ -9049,7 +9869,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V92*/ meltfptr[54], "newly made instance"); ; - /*_.SLAMBDA__V91*/ meltfptr[50] = /*_.INST__V92*/ meltfptr[54];; + /*_.SLAMBDA__V91*/ + meltfptr[50] = /*_.INST__V92*/ meltfptr[54];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:4049:/ cppif.then"); @@ -9070,7 +9891,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L26*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L26*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9079,7 +9901,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4049:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L26*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9140,16 +9963,20 @@ meltlab_endgetargs: argtab[17].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[18].meltbp_aptr = (melt_ptr_t*) &/*_.NEWMACENV__V90*/ meltfptr[45]; - /*_.MELT_DEBUG_FUN__V94*/ 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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V94*/ + 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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V93*/ meltfptr[39] = /*_.MELT_DEBUG_FUN__V94*/ meltfptr[40];; + /*_._IF___V93*/ + meltfptr[39] = /*_.MELT_DEBUG_FUN__V94*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4049:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L27*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V94*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V94*/ + meltfptr[40] = 0 ; } ; } @@ -9162,7 +9989,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4049:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9171,9 +9999,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L26*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V93*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V93*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9229,7 +10059,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[7].meltbp_longptr = & /*_#MAINSIDEFLAG__L28*/ meltfnum[1]; /*^multiapply.appl*/ - /*_.MANPROC__V95*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_LAMBDA*/ meltfrout->tabval[29])), (melt_ptr_t)(/*_.SLAMBDA__V91*/ meltfptr[50]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), restab); + /*_.MANPROC__V95*/ + meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_LAMBDA*/ meltfrout->tabval[29])), (melt_ptr_t)(/*_.SLAMBDA__V91*/ meltfptr[50]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), restab); } ; /*^quasiblock*/ @@ -9255,7 +10086,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L29*/ meltfnum[20] = + /*_#MELT_NEED_DBG__L29*/ + meltfnum[20] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9264,7 +10096,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4057:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L29*/ meltfnum[20]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L29*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9347,16 +10180,20 @@ meltlab_endgetargs: argtab[28].meltbp_cstring = "\n.. ncx="; /*^apply.arg*/ argtab[29].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V104*/ 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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V104*/ + 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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V103*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V104*/ meltfptr[23];; + /*_._IF___V103*/ + meltfptr[32] = /*_.MELT_DEBUG_FUN__V104*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4057:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L30*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L30*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V104*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V104*/ + meltfptr[23] = 0 ; } ; } @@ -9369,7 +10206,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4057:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9378,9 +10216,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L29*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L29*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V103*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V103*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9404,7 +10244,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4065:/ cond"); - /*cond*/ if (/*_.MASLOC__V100*/ meltfptr[29]) /*then*/ + /*cond*/ + if (/*_.MASLOC__V100*/ meltfptr[29]) /*then*/ { /*^cond.then*/ /*_.MALOC__V105*/ meltfptr[68] = /*_.MASLOC__V100*/ meltfptr[29];; @@ -9413,7 +10254,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4065:/ cond.else"); - /*_.MALOC__V105*/ meltfptr[68] = /*_.MLOC__V87*/ meltfptr[74];; + /*_.MALOC__V105*/ + meltfptr[68] = /*_.MLOC__V87*/ meltfptr[74];; } ; @@ -9427,7 +10269,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MACROLAMBDA*/ meltfrout->tabval[30])), (4), "CLASS_NREP_MACROLAMBDA"); - /*_.INST__V107*/ meltfptr[40] = + /*_.INST__V107*/ + meltfptr[40] = newobj; }; ; @@ -9455,7 +10298,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V107*/ meltfptr[40], "newly made instance"); ; - /*_.MACLAMBDA__V106*/ meltfptr[56] = /*_.INST__V107*/ meltfptr[40];; + /*_.MACLAMBDA__V106*/ + meltfptr[56] = /*_.INST__V107*/ meltfptr[40];; MELT_CHECK_SIGNAL(); ; @@ -9467,7 +10311,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__V109*/ meltfptr[23] = + /*_.INST__V109*/ + meltfptr[23] = newobj; }; ; @@ -9495,7 +10340,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V109*/ meltfptr[23], "newly made instance"); ; - /*_.MACBIND__V108*/ meltfptr[39] = /*_.INST__V109*/ meltfptr[23];; + /*_.MACBIND__V108*/ + meltfptr[39] = /*_.INST__V109*/ meltfptr[23];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:4077:/ cppif.then"); @@ -9516,7 +10362,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L31*/ meltfnum[12] = + /*_#MELT_NEED_DBG__L31*/ + meltfnum[12] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9525,7 +10372,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4077:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L31*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L31*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9560,16 +10408,20 @@ meltlab_endgetargs: argtab[4].meltbp_cstring = " maclambda="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.MACLAMBDA__V106*/ meltfptr[56]; - /*_.MELT_DEBUG_FUN__V111*/ meltfptr[110] = melt_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__V111*/ + meltfptr[110] = melt_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___V110*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V111*/ meltfptr[110];; + /*_._IF___V110*/ + meltfptr[32] = /*_.MELT_DEBUG_FUN__V111*/ meltfptr[110];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4077:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L32*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L32*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V111*/ meltfptr[110] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V111*/ + meltfptr[110] = 0 ; } ; } @@ -9582,7 +10434,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4077:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9591,9 +10444,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L31*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L31*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V110*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V110*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9617,7 +10472,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4078:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MACLOCC__V97*/ meltfptr[38]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ meltfrout->tabval[32]))) ) /*then*/ @@ -9664,7 +10520,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L33*/ meltfnum[19] = + /*_#MELT_NEED_DBG__L33*/ + meltfnum[19] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9673,7 +10530,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4079:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L33*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L33*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9708,16 +10566,20 @@ meltlab_endgetargs: argtab[4].meltbp_cstring = " updated maclocc="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.MACLOCC__V97*/ meltfptr[38]; - /*_.MELT_DEBUG_FUN__V113*/ 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_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V113*/ + 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_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V112*/ meltfptr[110] = /*_.MELT_DEBUG_FUN__V113*/ meltfptr[32];; + /*_._IF___V112*/ + meltfptr[110] = /*_.MELT_DEBUG_FUN__V113*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4079:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L34*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L34*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V113*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V113*/ + meltfptr[32] = 0 ; } ; } @@ -9730,7 +10592,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4079:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9739,9 +10602,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L33*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L33*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V112*/ meltfptr[110] = 0 ; + /*clear*/ /*_._IF___V112*/ + meltfptr[110] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9787,7 +10652,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L35*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L35*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9796,7 +10662,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4081:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L35*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L35*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9831,16 +10698,20 @@ meltlab_endgetargs: argtab[4].meltbp_cstring = " updated bindlist="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.BINDLIST__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V115*/ meltfptr[110] = melt_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__V115*/ + meltfptr[110] = melt_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___V114*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V115*/ meltfptr[110];; + /*_._IF___V114*/ + meltfptr[32] = /*_.MELT_DEBUG_FUN__V115*/ meltfptr[110];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4081:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L36*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L36*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V115*/ meltfptr[110] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V115*/ + meltfptr[110] = 0 ; } ; } @@ -9853,7 +10724,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4081:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9862,9 +10734,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L35*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L35*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V114*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V114*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9894,7 +10768,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MACBIND__V108*/ meltfptr[39]; - /*_.PUT_ENV__V116*/ meltfptr[110] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.NEWENV__V21*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V116*/ + meltfptr[110] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.NEWENV__V21*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -9917,7 +10792,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L37*/ meltfnum[20] = + /*_#MELT_NEED_DBG__L37*/ + meltfnum[20] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9926,7 +10802,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4083:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[20]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L37*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9967,16 +10844,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. mainsideflag="; /*^apply.arg*/ argtab[8].meltbp_long = /*_#MAINSIDEFLAG__L28*/ meltfnum[1]; - /*_.MELT_DEBUG_FUN__V118*/ meltfptr[117] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V118*/ + meltfptr[117] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V117*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V118*/ meltfptr[117];; + /*_._IF___V117*/ + meltfptr[32] = /*_.MELT_DEBUG_FUN__V118*/ meltfptr[117];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4083:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L38*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V118*/ meltfptr[117] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V118*/ + meltfptr[117] = 0 ; } ; } @@ -9989,7 +10870,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4083:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9998,9 +10880,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L37*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V117*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V117*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10024,7 +10908,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4084:/ cond"); - /*cond*/ if (/*_#MAINSIDEFLAG__L28*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MAINSIDEFLAG__L28*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10032,7 +10917,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4085:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MAOLDPROC__V101*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[33]))) ) /*then*/ @@ -10043,7 +10929,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MAOLDPROC__V101*/ meltfptr[30]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NRCLOP_CONSTLIST"); - /*_.NRCLOP_CONSTLIST__V119*/ meltfptr[117] = slot; + /*_.NRCLOP_CONSTLIST__V119*/ + meltfptr[117] = slot; }; ; } @@ -10079,7 +10966,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L39*/ meltfnum[12] = + /*_#MELT_NEED_DBG__L39*/ + meltfnum[12] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10088,7 +10976,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4086:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L39*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L39*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10123,16 +11012,20 @@ meltlab_endgetargs: argtab[4].meltbp_cstring = " updated constlist in maoldproc="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.MAOLDPROC__V101*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V121*/ meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V121*/ + meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V120*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V121*/ meltfptr[120];; + /*_._IF___V120*/ + meltfptr[32] = /*_.MELT_DEBUG_FUN__V121*/ meltfptr[120];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4086:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L40*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L40*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V121*/ meltfptr[120] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V121*/ + meltfptr[120] = 0 ; } ; } @@ -10145,7 +11038,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4086:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10154,9 +11048,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L39*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L39*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V120*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V120*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10182,56 +11078,76 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.NRCLOP_CONSTLIST__V119*/ meltfptr[117] = 0 ; + /*clear*/ /*_.NRCLOP_CONSTLIST__V119*/ + meltfptr[117] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-normal.melt:4064:/ clear"); - /*clear*/ /*_.MALOC__V105*/ meltfptr[68] = 0 ; + /*clear*/ /*_.MALOC__V105*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.MACLAMBDA__V106*/ meltfptr[56] = 0 ; + /*clear*/ /*_.MACLAMBDA__V106*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.MACBIND__V108*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MACBIND__V108*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V116*/ meltfptr[110] = 0 ; + /*clear*/ /*_.PUT_ENV__V116*/ + meltfptr[110] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4054:/ clear"); - /*clear*/ /*_.MACSYM__V96*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MACSYM__V96*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.MACLOCC__V97*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MACLOCC__V97*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.MACONSTROUT__V98*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MACONSTROUT__V98*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.MACLOVTUP__V99*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MACLOVTUP__V99*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.MASLOC__V100*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MASLOC__V100*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MAOLDPROC__V101*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MAOLDPROC__V101*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MANDATAROUT__V102*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MANDATAROUT__V102*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_#MAINSIDEFLAG__L28*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MAINSIDEFLAG__L28*/ + meltfnum[1] = 0 ; MELT_LOCATION("warmelt-normal.melt:4037:/ clear"); - /*clear*/ /*_.MACSYMB__V85*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MACSYMB__V85*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.LOCA_LOCATION__V86*/ meltfptr[71] = 0 ; + /*clear*/ /*_.LOCA_LOCATION__V86*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.MLOC__V87*/ meltfptr[74] = 0 ; + /*clear*/ /*_.MLOC__V87*/ + meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.MFORMALS__V88*/ meltfptr[69] = 0 ; + /*clear*/ /*_.MFORMALS__V88*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.MBODY__V89*/ meltfptr[70] = 0 ; + /*clear*/ /*_.MBODY__V89*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWMACENV__V90*/ meltfptr[45] = 0 ; + /*clear*/ /*_.NEWMACENV__V90*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.SLAMBDA__V91*/ meltfptr[50] = 0 ; + /*clear*/ /*_.SLAMBDA__V91*/ + meltfptr[50] = 0 ; MELT_LOCATION("warmelt-normal.melt:4035:/ quasiblock"); @@ -10258,7 +11174,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "impossible LET binding #$1"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#SBIX__L6*/ meltfnum[0]; - /*_.ERROR_AT__V122*/ meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V122*/ + meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -10272,7 +11189,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V124*/ meltfptr[117] = (/*nil*/NULL);; @@ -10303,23 +11221,28 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SB__V23*/ meltfptr[22]; /*^apply.arg*/ argtab[4].meltbp_long = /*_#SBIX__L6*/ meltfnum[0]; - /*_.MELT_ASSERT_FAILURE_FUN__V125*/ meltfptr[68] = 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_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V125*/ + meltfptr[68] = 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V124*/ meltfptr[117] = /*_.MELT_ASSERT_FAILURE_FUN__V125*/ meltfptr[68];; + /*_._IFELSE___V124*/ + meltfptr[117] = /*_.MELT_ASSERT_FAILURE_FUN__V125*/ meltfptr[68];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4093:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V125*/ meltfptr[68] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V125*/ + meltfptr[68] = 0 ; } ; } ; - /*_.IFCPP___V123*/ meltfptr[32] = /*_._IFELSE___V124*/ meltfptr[117];; + /*_.IFCPP___V123*/ + meltfptr[32] = /*_._IFELSE___V124*/ meltfptr[117];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4093:/ clear"); - /*clear*/ /*_._IFELSE___V124*/ meltfptr[117] = 0 ; + /*clear*/ /*_._IFELSE___V124*/ + meltfptr[117] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10330,7 +11253,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4094:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:4094:/ locexp"); @@ -10345,34 +11269,44 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:4091:/ quasiblock"); - /*_.PROGN___V127*/ meltfptr[39] = /*_.RETURN___V126*/ meltfptr[56];; + /*_.PROGN___V127*/ + meltfptr[39] = /*_.RETURN___V126*/ meltfptr[56];; /*^compute*/ - /*_._IFELSE___V82*/ meltfptr[44] = /*_.PROGN___V127*/ meltfptr[39];; + /*_._IFELSE___V82*/ + meltfptr[44] = /*_.PROGN___V127*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4035:/ clear"); - /*clear*/ /*_.ERROR_AT__V122*/ meltfptr[120] = 0 ; + /*clear*/ /*_.ERROR_AT__V122*/ + meltfptr[120] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V123*/ meltfptr[32] = 0 ; + /*clear*/ /*_.IFCPP___V123*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V126*/ meltfptr[56] = 0 ; + /*clear*/ /*_.RETURN___V126*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V127*/ meltfptr[39] = 0 ; + /*clear*/ /*_.PROGN___V127*/ + meltfptr[39] = 0 ; } ; } ; - /*_._IFELSE___V26*/ meltfptr[24] = /*_._IFELSE___V82*/ meltfptr[44];; + /*_._IFELSE___V26*/ + meltfptr[24] = /*_._IFELSE___V82*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:3952:/ clear"); - /*clear*/ /*_#IS_A__L23*/ meltfnum[21] = 0 ; + /*clear*/ /*_#IS_A__L23*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V82*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IFELSE___V82*/ + meltfptr[44] = 0 ; } ; } @@ -10383,13 +11317,17 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:3945:/ clear"); - /*clear*/ /*_.SB__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.SB__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_#SBIX__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#SBIX__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V26*/ meltfptr[24] = 0 ; + /*clear*/ /*_._IFELSE___V26*/ + meltfptr[24] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -10412,7 +11350,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L41*/ meltfnum[19] = + /*_#MELT_NEED_DBG__L41*/ + meltfnum[19] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10421,7 +11360,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4099:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L41*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L41*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10470,16 +11410,20 @@ meltlab_endgetargs: argtab[11].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[12].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V21*/ meltfptr[20]; - /*_.MELT_DEBUG_FUN__V129*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V129*/ + meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V128*/ meltfptr[110] = /*_.MELT_DEBUG_FUN__V129*/ meltfptr[48];; + /*_._IF___V128*/ + meltfptr[110] = /*_.MELT_DEBUG_FUN__V129*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4099:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L42*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L42*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V129*/ meltfptr[48] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V129*/ + meltfptr[48] = 0 ; } ; } @@ -10492,7 +11436,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4099:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10501,9 +11446,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L41*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L41*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V128*/ meltfptr[110] = 0 ; + /*clear*/ /*_._IF___V128*/ + meltfptr[110] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10554,7 +11501,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L43*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L43*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10563,7 +11511,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4103:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L43*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L43*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10614,16 +11563,20 @@ meltlab_endgetargs: argtab[12].meltbp_cstring = "\n.. env="; /*^apply.arg*/ argtab[13].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V131*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_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__V131*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_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___V130*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V131*/ meltfptr[38];; + /*_._IF___V130*/ + meltfptr[33] = /*_.MELT_DEBUG_FUN__V131*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L44*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L44*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V131*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V131*/ + meltfptr[38] = 0 ; } ; } @@ -10636,7 +11589,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4103:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10645,9 +11599,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L43*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L43*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V130*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V130*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10688,7 +11644,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V134*/ meltfptr[29]; /*^multiapply.appl*/ - /*_.NBODY__V133*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[34])), (melt_ptr_t)(/*_.SBODY__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NBODY__V133*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[34])), (melt_ptr_t)(/*_.SBODY__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -10714,7 +11671,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L45*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L45*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10723,7 +11681,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4109:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L45*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L45*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10770,16 +11729,20 @@ meltlab_endgetargs: argtab[10].meltbp_cstring = "\n.. old bindlist="; /*^apply.arg*/ argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.BINDLIST__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V136*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V136*/ + meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V135*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V136*/ meltfptr[31];; + /*_._IF___V135*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V136*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4109:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L46*/ meltfnum[21] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L46*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V136*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V136*/ + meltfptr[31] = 0 ; } ; } @@ -10792,7 +11755,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4109:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10801,9 +11765,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L45*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L45*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V135*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V135*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10833,7 +11799,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V134*/ meltfptr[29]; - /*_.LIST_APPEND2LIST__V137*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.BINDLIST__V22*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V137*/ + meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.BINDLIST__V22*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -10856,7 +11823,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L47*/ meltfnum[20] = + /*_#MELT_NEED_DBG__L47*/ + meltfnum[20] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10865,7 +11833,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4113:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L47*/ meltfnum[20]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L47*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10904,16 +11873,20 @@ meltlab_endgetargs: argtab[6].meltbp_cstring = "; updated bindlist="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.BINDLIST__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V139*/ meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V139*/ + meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V138*/ meltfptr[71] = /*_.MELT_DEBUG_FUN__V139*/ meltfptr[74];; + /*_._IF___V138*/ + meltfptr[71] = /*_.MELT_DEBUG_FUN__V139*/ meltfptr[74];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4113:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L48*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L48*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V139*/ meltfptr[74] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V139*/ + meltfptr[74] = 0 ; } ; } @@ -10926,7 +11899,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4113:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10935,9 +11909,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L47*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L47*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V138*/ meltfptr[71] = 0 ; + /*clear*/ /*_._IF___V138*/ + meltfptr[71] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10967,11 +11943,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L49*/ meltfnum[12] = + /*_#IS_LIST_OR_NULL__L49*/ + meltfnum[12] = ((/*_.BINDLIST__V22*/ meltfptr[21]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.BINDLIST__V22*/ meltfptr[21])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-normal.melt:4115:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L49*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#IS_LIST_OR_NULL__L49*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V141*/ meltfptr[70] = (/*nil*/NULL);; @@ -11000,25 +11978,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4115; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BINDLIST__V22*/ meltfptr[21]; - /*_.MELT_ASSERT_FAILURE_FUN__V142*/ meltfptr[45] = 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__V142*/ + meltfptr[45] = 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___V141*/ meltfptr[70] = /*_.MELT_ASSERT_FAILURE_FUN__V142*/ meltfptr[45];; + /*_._IFELSE___V141*/ + meltfptr[70] = /*_.MELT_ASSERT_FAILURE_FUN__V142*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4115:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V142*/ meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V142*/ + meltfptr[45] = 0 ; } ; } ; - /*_.IFCPP___V140*/ meltfptr[69] = /*_._IFELSE___V141*/ meltfptr[70];; + /*_.IFCPP___V140*/ + meltfptr[69] = /*_._IFELSE___V141*/ meltfptr[70];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4115:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L49*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L49*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V141*/ meltfptr[70] = 0 ; + /*clear*/ /*_._IFELSE___V141*/ + meltfptr[70] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11046,10 +12030,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L50*/ meltfnum[11] = + /*_#IS_A__L50*/ + meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.CBND__V144*/ meltfptr[68]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[19])));; MELT_LOCATION("warmelt-normal.melt:4119:/ cond"); - /*cond*/ if (/*_#IS_A__L50*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#IS_A__L50*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V146*/ meltfptr[120] = (/*nil*/NULL);; @@ -11078,25 +12064,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4119; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CBND__V144*/ meltfptr[68]; - /*_.MELT_ASSERT_FAILURE_FUN__V147*/ meltfptr[32] = 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__V147*/ + meltfptr[32] = 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___V146*/ meltfptr[120] = /*_.MELT_ASSERT_FAILURE_FUN__V147*/ meltfptr[32];; + /*_._IFELSE___V146*/ + meltfptr[120] = /*_.MELT_ASSERT_FAILURE_FUN__V147*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4119:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V147*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V147*/ + meltfptr[32] = 0 ; } ; } ; - /*_.IFCPP___V145*/ meltfptr[117] = /*_._IFELSE___V146*/ meltfptr[120];; + /*_.IFCPP___V145*/ + meltfptr[117] = /*_._IFELSE___V146*/ meltfptr[120];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4119:/ clear"); - /*clear*/ /*_#IS_A__L50*/ meltfnum[11] = 0 ; + /*clear*/ /*_#IS_A__L50*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V146*/ meltfptr[120] = 0 ; + /*clear*/ /*_._IFELSE___V146*/ + meltfptr[120] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11106,17 +12098,21 @@ meltlab_endgetargs: ; } /* end foreach_pair_component_in_list meltcit2__EACHLIST */ /*_.CURPAIR__V143*/ meltfptr[50] = NULL; - /*_.CBND__V144*/ meltfptr[68] = NULL; + /*_.CBND__V144*/ + meltfptr[68] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:4116:/ clear"); - /*clear*/ /*_.CURPAIR__V143*/ meltfptr[50] = 0 ; + /*clear*/ /*_.CURPAIR__V143*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.CBND__V144*/ meltfptr[68] = 0 ; + /*clear*/ /*_.CBND__V144*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V145*/ meltfptr[117] = 0 ; + /*clear*/ /*_.IFCPP___V145*/ + meltfptr[117] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_LOCATION("warmelt-normal.melt:4121:/ quasiblock"); @@ -11127,7 +12123,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__V148*/ meltfptr[56] = slot; + /*_.SYCMAP__V148*/ + meltfptr[56] = slot; }; ; /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ @@ -11145,7 +12142,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BND__V150*/ meltfptr[44]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V151*/ meltfptr[48] = slot; + /*_.BINDER__V151*/ + meltfptr[48] = slot; }; ; @@ -11157,17 +12155,21 @@ meltlab_endgetargs: ; } /* end foreach_pair_component_in_list meltcit3__EACHLIST */ /*_.CURPAIR__V149*/ meltfptr[39] = NULL; - /*_.BND__V150*/ meltfptr[44] = NULL; + /*_.BND__V150*/ + meltfptr[44] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:4122:/ clear"); - /*clear*/ /*_.CURPAIR__V149*/ meltfptr[39] = 0 ; + /*clear*/ /*_.CURPAIR__V149*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.BND__V150*/ meltfptr[44] = 0 ; + /*clear*/ /*_.BND__V150*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V151*/ meltfptr[48] = 0 ; + /*clear*/ /*_.BINDER__V151*/ + meltfptr[48] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -11190,7 +12192,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L51*/ meltfnum[21] = + /*_#MELT_NEED_DBG__L51*/ + meltfnum[21] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -11199,7 +12202,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4127:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L51*/ meltfnum[21]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L51*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11232,16 +12236,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_let shrinked updated sycmap="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SYCMAP__V148*/ meltfptr[56]; - /*_.MELT_DEBUG_FUN__V153*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V153*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V152*/ meltfptr[110] = /*_.MELT_DEBUG_FUN__V153*/ meltfptr[38];; + /*_._IF___V152*/ + meltfptr[110] = /*_.MELT_DEBUG_FUN__V153*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4127:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L52*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L52*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V153*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V153*/ + meltfptr[38] = 0 ; } ; } @@ -11254,7 +12262,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4127:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -11263,9 +12272,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L51*/ meltfnum[21] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L51*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V152*/ meltfptr[110] = 0 ; + /*clear*/ /*_._IF___V152*/ + meltfptr[110] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11287,11 +12298,13 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:4121:/ clear"); - /*clear*/ /*_.SYCMAP__V148*/ meltfptr[56] = 0 ; + /*clear*/ /*_.SYCMAP__V148*/ + meltfptr[56] = 0 ; MELT_LOCATION("warmelt-normal.melt:4130:/ quasiblock"); - /*_.NLASTBODY__V155*/ meltfptr[31] = + /*_.NLASTBODY__V155*/ + meltfptr[31] = (melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V133*/ meltfptr[28]), (-1)));; MELT_CHECK_SIGNAL(); @@ -11303,11 +12316,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V21*/ meltfptr[20]; - /*_.GET_CTYPE__V156*/ meltfptr[30] = meltgc_send((melt_ptr_t)(/*_.NLASTBODY__V155*/ meltfptr[31]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GET_CTYPE__V156*/ + meltfptr[30] = meltgc_send((melt_ptr_t)(/*_.NLASTBODY__V155*/ meltfptr[31]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^cond*/ - /*cond*/ if (/*_.GET_CTYPE__V156*/ meltfptr[30]) /*then*/ + /*cond*/ + if (/*_.GET_CTYPE__V156*/ meltfptr[30]) /*then*/ { /*^cond.then*/ /*_.NLASTYP__V157*/ meltfptr[74] = /*_.GET_CTYPE__V156*/ meltfptr[30];; @@ -11316,7 +12331,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4133:/ cond.else"); - /*_.NLASTYP__V157*/ meltfptr[74] = (/*!CTYPE_VOID*/ meltfrout->tabval[17]);; + /*_.NLASTYP__V157*/ + meltfptr[74] = (/*!CTYPE_VOID*/ meltfrout->tabval[17]);; } ; @@ -11341,7 +12357,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[39]); - /*_.LIST_TO_MULTIPLE__V159*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[38])), (melt_ptr_t)(/*_.BINDLIST__V22*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_TO_MULTIPLE__V159*/ + meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[38])), (melt_ptr_t)(/*_.BINDLIST__V22*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4136:/ quasiblock"); @@ -11352,7 +12369,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LET*/ meltfrout->tabval[37])), (3), "CLASS_NREP_LET"); - /*_.INST__V161*/ meltfptr[32] = + /*_.INST__V161*/ + meltfptr[32] = newobj; }; ; @@ -11375,7 +12393,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V161*/ meltfptr[32], "newly made instance"); ; - /*_.NLET__V160*/ meltfptr[70] = /*_.INST__V161*/ meltfptr[32];; + /*_.NLET__V160*/ + meltfptr[70] = /*_.INST__V161*/ meltfptr[32];; MELT_CHECK_SIGNAL(); ; @@ -11387,7 +12406,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__V163*/ meltfptr[38] = + /*_.INST__V163*/ + meltfptr[38] = newobj; }; ; @@ -11415,7 +12435,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V163*/ meltfptr[38], "newly made instance"); ; - /*_.CBIND__V162*/ meltfptr[120] = /*_.INST__V163*/ meltfptr[38];; + /*_.CBIND__V162*/ + meltfptr[120] = /*_.INST__V163*/ meltfptr[38];; MELT_CHECK_SIGNAL(); ; @@ -11427,7 +12448,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__V165*/ meltfptr[56] = + /*_.INST__V165*/ + meltfptr[56] = newobj; }; ; @@ -11450,9 +12472,11 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V165*/ meltfptr[56], "newly made instance"); ; - /*_.CLOCC__V164*/ meltfptr[110] = /*_.INST__V165*/ meltfptr[56];; + /*_.CLOCC__V164*/ + meltfptr[110] = /*_.INST__V165*/ meltfptr[56];; /*^compute*/ - /*_.RESBINDS__V166*/ meltfptr[165] = + /*_.RESBINDS__V166*/ + meltfptr[165] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[7]))));; { @@ -11480,7 +12504,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L53*/ meltfnum[19] = + /*_#MELT_NEED_DBG__L53*/ + meltfnum[19] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -11489,7 +12514,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4152:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L53*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L53*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11526,16 +12552,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " resbinds="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.RESBINDS__V166*/ meltfptr[165]; - /*_.MELT_DEBUG_FUN__V168*/ meltfptr[167] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V168*/ + meltfptr[167] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V167*/ meltfptr[166] = /*_.MELT_DEBUG_FUN__V168*/ meltfptr[167];; + /*_._IF___V167*/ + meltfptr[166] = /*_.MELT_DEBUG_FUN__V168*/ meltfptr[167];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4152:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L54*/ meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L54*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V168*/ meltfptr[167] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V168*/ + meltfptr[167] = 0 ; } ; } @@ -11548,7 +12578,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4152:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -11557,9 +12588,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L53*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L53*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V167*/ meltfptr[166] = 0 ; + /*clear*/ /*_._IF___V167*/ + meltfptr[166] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11585,7 +12618,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4153:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V164*/ meltfptr[110];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V164*/ meltfptr[110];; MELT_LOCATION("warmelt-normal.melt:4153:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -11593,64 +12627,89 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V154*/ meltfptr[33] = /*_.RETURN___V169*/ meltfptr[167];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V154*/ + meltfptr[33] = /*_.RETURN___V169*/ meltfptr[167];; MELT_LOCATION("warmelt-normal.melt:4130:/ clear"); - /*clear*/ /*_.NLASTBODY__V155*/ meltfptr[31] = 0 ; + /*clear*/ /*_.NLASTBODY__V155*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.GET_CTYPE__V156*/ meltfptr[30] = 0 ; + /*clear*/ /*_.GET_CTYPE__V156*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.NLASTYP__V157*/ meltfptr[74] = 0 ; + /*clear*/ /*_.NLASTYP__V157*/ + meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V158*/ meltfptr[71] = 0 ; + /*clear*/ /*_.CSYM__V158*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_TO_MULTIPLE__V159*/ meltfptr[45] = 0 ; + /*clear*/ /*_.LIST_TO_MULTIPLE__V159*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.NLET__V160*/ meltfptr[70] = 0 ; + /*clear*/ /*_.NLET__V160*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V162*/ meltfptr[120] = 0 ; + /*clear*/ /*_.CBIND__V162*/ + meltfptr[120] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V164*/ meltfptr[110] = 0 ; + /*clear*/ /*_.CLOCC__V164*/ + meltfptr[110] = 0 ; /*^clear*/ - /*clear*/ /*_.RESBINDS__V166*/ meltfptr[165] = 0 ; + /*clear*/ /*_.RESBINDS__V166*/ + meltfptr[165] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V169*/ meltfptr[167] = 0 ; + /*clear*/ /*_.RETURN___V169*/ + meltfptr[167] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V132*/ meltfptr[27] = /*_.LET___V154*/ meltfptr[33];; + /*_.MULTI___V132*/ + meltfptr[27] = /*_.LET___V154*/ meltfptr[33];; MELT_LOCATION("warmelt-normal.melt:4106:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V137*/ meltfptr[43] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V137*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V140*/ meltfptr[69] = 0 ; + /*clear*/ /*_.IFCPP___V140*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V154*/ meltfptr[33] = 0 ; + /*clear*/ /*_.LET___V154*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.NBODBINDINGS__V134*/ meltfptr[29] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.MULTI___V132*/ meltfptr[27];; + /*clear*/ /*_.NBODBINDINGS__V134*/ + meltfptr[29] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.MULTI___V132*/ meltfptr[27];; MELT_LOCATION("warmelt-normal.melt:3938:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SBINDINGS__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SBINDINGS__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SBODY__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SBODY__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWENV__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.NEWENV__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDLIST__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.BINDLIST__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V132*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MULTI___V132*/ + meltfptr[27] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:3932:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:3932:/ locexp"); @@ -11665,17 +12724,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 ; } ; @@ -11757,7 +12821,8 @@ meltrout_64_WARMELTmiNORMAL_LAMBDA_cl13(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_64_WARMELTmiNORMAL_LAMBDA_cl13 fromline 1756 */ - /* classy proc frame meltrout_64_WARMELTmiNORMAL_LAMBDA_cl13 */ MeltFrame_meltrout_64_WARMELTmiNORMAL_LAMBDA_cl13 + /* classy proc frame meltrout_64_WARMELTmiNORMAL_LAMBDA_cl13 */ + MeltFrame_meltrout_64_WARMELTmiNORMAL_LAMBDA_cl13 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_64_WARMELTmiNORMAL_LAMBDA_cl13 fromline 1785*/ #if ENABLE_CHECKING @@ -11770,7 +12835,8 @@ meltrout_64_WARMELTmiNORMAL_LAMBDA_cl13(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl13", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -11780,7 +12846,8 @@ meltrout_64_WARMELTmiNORMAL_LAMBDA_cl13(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4006:/ getarg"); - /*_.B__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.B__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -11793,10 +12860,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#exeq__L1*/ meltfnum[0] = + /*_#exeq__L1*/ + meltfnum[0] = ((/*_.B__V2*/ meltfptr[1]) != ((/*~LASTNBINDING*/ meltfclos->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:4007:/ cond"); - /*cond*/ if (/*_#exeq__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#exeq__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11817,7 +12886,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4006:/ clear"); - /*clear*/ /*_#exeq__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#exeq__L1*/ + meltfnum[0] = 0 ; } ; @@ -11899,7 +12969,8 @@ meltrout_65_WARMELTmiNORMAL_LAMBDA_cl14(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_65_WARMELTmiNORMAL_LAMBDA_cl14 fromline 1756 */ - /* classy proc frame meltrout_65_WARMELTmiNORMAL_LAMBDA_cl14 */ MeltFrame_meltrout_65_WARMELTmiNORMAL_LAMBDA_cl14 + /* classy proc frame meltrout_65_WARMELTmiNORMAL_LAMBDA_cl14 */ + MeltFrame_meltrout_65_WARMELTmiNORMAL_LAMBDA_cl14 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_65_WARMELTmiNORMAL_LAMBDA_cl14 fromline 1785*/ #if ENABLE_CHECKING @@ -11912,7 +12983,8 @@ meltrout_65_WARMELTmiNORMAL_LAMBDA_cl14(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl14", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -11922,12 +12994,14 @@ meltrout_65_WARMELTmiNORMAL_LAMBDA_cl14(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4159:/ 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); ; @@ -11947,19 +13021,23 @@ 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, "NLET_BODY"); - /*_.LBOD__V5*/ meltfptr[4] = slot; + /*_.LBOD__V5*/ + meltfptr[4] = slot; }; ; - /*_#LENB__L1*/ meltfnum[0] = + /*_#LENB__L1*/ + meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.LBOD__V5*/ meltfptr[4])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#lteqI__L2*/ meltfnum[1] = + /*_#lteqI__L2*/ + meltfnum[1] = ((/*_#LENB__L1*/ meltfnum[0]) <= (0));; MELT_LOCATION("warmelt-normal.melt:4162:/ cond"); - /*cond*/ if (/*_#lteqI__L2*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#lteqI__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*!CTYPE_VOID*/ meltfrout->tabval[0]);; @@ -11975,7 +13053,8 @@ meltlab_endgetargs: /*_#miI__L3*/ meltfnum[2] = ((/*_#LENB__L1*/ meltfnum[0]) - (1));; /*^compute*/ - /*_.MULTIPLE_NTH__V7*/ meltfptr[6] = + /*_.MULTIPLE_NTH__V7*/ + meltfptr[6] = (melt_multiple_nth((melt_ptr_t)(/*_.LBOD__V5*/ meltfptr[4]), (/*_#miI__L3*/ meltfnum[2])));; MELT_CHECK_SIGNAL(); @@ -11987,36 +13066,47 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.GET_CTYPE__V8*/ meltfptr[7] = meltgc_send((melt_ptr_t)(/*_.MULTIPLE_NTH__V7*/ meltfptr[6]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[1])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GET_CTYPE__V8*/ + meltfptr[7] = meltgc_send((melt_ptr_t)(/*_.MULTIPLE_NTH__V7*/ meltfptr[6]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[1])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ meltfptr[5] = /*_.GET_CTYPE__V8*/ meltfptr[7];; + /*_._IFELSE___V6*/ + meltfptr[5] = /*_.GET_CTYPE__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4162:/ clear"); - /*clear*/ /*_#miI__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#miI__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_NTH__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MULTIPLE_NTH__V7*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.GET_CTYPE__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.GET_CTYPE__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.LET___V4*/ meltfptr[3] = /*_._IFELSE___V6*/ meltfptr[5];; + /*_.LET___V4*/ + meltfptr[3] = /*_._IFELSE___V6*/ meltfptr[5];; MELT_LOCATION("warmelt-normal.melt:4160:/ clear"); - /*clear*/ /*_.LBOD__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.LBOD__V5*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_#LENB__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#LENB__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#lteqI__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#lteqI__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ + meltfptr[5] = 0 ; MELT_LOCATION("warmelt-normal.melt:4159:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[3];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V4*/ meltfptr[3];; { MELT_LOCATION("warmelt-normal.melt:4159:/ locexp"); @@ -12031,11 +13121,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.LET___V4*/ + meltfptr[3] = 0 ; } ; @@ -12117,7 +13209,8 @@ meltrout_66_WARMELTmiNORMAL_NORMEXP_UNSAFE_GET_FIELD(meltclosure_ptr_t meltclosp /* end of frame for routine meltrout_66_WARMELTmiNORMAL_NORMEXP_UNSAFE_GET_FIELD fromline 1756 */ - /* classy proc frame meltrout_66_WARMELTmiNORMAL_NORMEXP_UNSAFE_GET_FIELD */ MeltFrame_meltrout_66_WARMELTmiNORMAL_NORMEXP_UNSAFE_GET_FIELD + /* classy proc frame meltrout_66_WARMELTmiNORMAL_NORMEXP_UNSAFE_GET_FIELD */ + MeltFrame_meltrout_66_WARMELTmiNORMAL_NORMEXP_UNSAFE_GET_FIELD meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_66_WARMELTmiNORMAL_NORMEXP_UNSAFE_GET_FIELD fromline 1785*/ #if ENABLE_CHECKING @@ -12130,7 +13223,8 @@ meltrout_66_WARMELTmiNORMAL_NORMEXP_UNSAFE_GET_FIELD(meltclosure_ptr_t meltclosp #define meltframe meltfram__ melt_trace_start("NORMEXP_UNSAFE_GET_FIELD", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -12140,26 +13234,30 @@ meltrout_66_WARMELTmiNORMAL_NORMEXP_UNSAFE_GET_FIELD(meltclosure_ptr_t meltclosp /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4170:/ 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); ; @@ -12191,7 +13289,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)) @@ -12200,7 +13299,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4171:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12233,16 +13333,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp unsafeget 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:4171:/ 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 ; } ; } @@ -12255,7 +13359,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4171:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12264,9 +13369,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*/ @@ -12296,10 +13403,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_UNSAFE_GET_FIELD*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:4172:/ 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);; @@ -12328,25 +13437,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4172; /*^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:4172:/ 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:4172:/ 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*/ @@ -12364,10 +13479,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:4173:/ 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);; @@ -12396,25 +13513,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4173; /*^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:4173:/ 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:4173:/ 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*/ @@ -12432,10 +13555,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:4174:/ 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);; @@ -12464,25 +13589,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4174; /*^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:4174:/ 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:4174:/ 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*/ @@ -12498,7 +13629,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:4176:/ getslot"); @@ -12506,7 +13638,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, "SUGET_OBJ"); - /*_.SOBJ__V19*/ meltfptr[18] = slot; + /*_.SOBJ__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4177:/ getslot"); @@ -12514,7 +13647,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, "SUGET_FIELD"); - /*_.SFLD__V20*/ meltfptr[19] = slot; + /*_.SFLD__V20*/ + meltfptr[19] = slot; }; ; @@ -12527,10 +13661,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[0] = + /*_#IS_A__L6*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SFLD__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:4179:/ 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);; @@ -12559,25 +13695,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4179; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SFLD__V20*/ meltfptr[19]; - /*_.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:4179:/ 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:4179:/ 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*/ @@ -12604,7 +13746,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V26*/ meltfptr[25];/*^multimsend.send*/ - /*_.NOBJ__V25*/ meltfptr[21] = meltgc_send ((melt_ptr_t)(/*_.SOBJ__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NOBJ__V25*/ + meltfptr[21] = meltgc_send ((melt_ptr_t)(/*_.SOBJ__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -12613,10 +13756,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L7*/ meltfnum[1] = + /*_#NULL__L7*/ + meltfnum[1] = (/*null*/(/*_.NBIND__V26*/ meltfptr[25]) == NULL);; MELT_LOCATION("warmelt-normal.melt:4183:/ cond"); - /*cond*/ if (/*_#NULL__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#NULL__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12626,14 +13771,18 @@ meltlab_endgetargs: /*_.MAKE_LIST__V28*/ meltfptr[27] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[7]))));; MELT_LOCATION("warmelt-normal.melt:4183:/ compute"); - /*_.NBIND__V26*/ meltfptr[25] = /*_.SETQ___V29*/ meltfptr[28] = /*_.MAKE_LIST__V28*/ meltfptr[27];; - /*_._IF___V27*/ meltfptr[26] = /*_.SETQ___V29*/ meltfptr[28];; + /*_.NBIND__V26*/ + meltfptr[25] = /*_.SETQ___V29*/ meltfptr[28] = /*_.MAKE_LIST__V28*/ meltfptr[27];; + /*_._IF___V27*/ + meltfptr[26] = /*_.SETQ___V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4183:/ clear"); - /*clear*/ /*_.MAKE_LIST__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MAKE_LIST__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.SETQ___V29*/ + meltfptr[28] = 0 ; } ; } @@ -12651,7 +13800,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SFLD__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V31*/ meltfptr[28] = slot; + /*_.NAMED_NAME__V31*/ + meltfptr[28] = slot; }; ; @@ -12677,7 +13827,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ meltfrout->tabval[11])), (3), "CLASS_NREP_UNSAFE_GET_FIELD"); - /*_.INST__V34*/ meltfptr[33] = + /*_.INST__V34*/ + meltfptr[33] = newobj; }; ; @@ -12700,7 +13851,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V34*/ meltfptr[33], "newly made instance"); ; - /*_.INST___V33*/ meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; + /*_.INST___V33*/ + meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; MELT_LOCATION("warmelt-normal.melt:4185:/ quasiblock"); @@ -12709,7 +13861,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__V36*/ meltfptr[35] = + /*_.INST__V36*/ + meltfptr[35] = newobj; }; ; @@ -12737,7 +13890,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V36*/ meltfptr[35], "newly made instance"); ; - /*_.CBIND__V35*/ meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; + /*_.CBIND__V35*/ + meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; MELT_CHECK_SIGNAL(); ; @@ -12749,7 +13903,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[12])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V38*/ meltfptr[37] = + /*_.INST__V38*/ + meltfptr[37] = newobj; }; ; @@ -12777,7 +13932,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V38*/ meltfptr[37], "newly made instance"); ; - /*_.CLOCC__V37*/ meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; + /*_.CLOCC__V37*/ + meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; { MELT_LOCATION("warmelt-normal.melt:4200:/ locexp"); @@ -12804,7 +13960,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)) @@ -12813,7 +13970,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4201:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12850,16 +14008,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V26*/ meltfptr[25]; - /*_.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 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V39*/ meltfptr[38] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; + /*_._IF___V39*/ + meltfptr[38] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4201:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ + meltfptr[39] = 0 ; } ; } @@ -12872,7 +14034,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4201:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12881,9 +14044,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_._IF___V39*/ + meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12909,7 +14074,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4202:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V37*/ meltfptr[36];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V37*/ meltfptr[36];; MELT_LOCATION("warmelt-normal.melt:4202:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -12917,54 +14083,74 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V30*/ meltfptr[27] = /*_.RETURN___V41*/ meltfptr[39];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V30*/ + meltfptr[27] = /*_.RETURN___V41*/ meltfptr[39];; MELT_LOCATION("warmelt-normal.melt:4184:/ clear"); - /*clear*/ /*_.NAMED_NAME__V31*/ meltfptr[28] = 0 ; + /*clear*/ /*_.NAMED_NAME__V31*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.CSYM__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.INST___V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.CBIND__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.CLOCC__V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V41*/ meltfptr[39] = 0 ; + /*clear*/ /*_.RETURN___V41*/ + meltfptr[39] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V24*/ meltfptr[22] = /*_.LET___V30*/ meltfptr[27];; + /*_.MULTI___V24*/ + meltfptr[22] = /*_.LET___V30*/ meltfptr[27];; MELT_LOCATION("warmelt-normal.melt:4180:/ clear"); - /*clear*/ /*_#NULL__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IF___V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V30*/ meltfptr[27] = 0 ; + /*clear*/ /*_.LET___V30*/ + meltfptr[27] = 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:4175:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SOBJ__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SOBJ__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SFLD__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SFLD__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:4170:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:4170:/ locexp"); @@ -12979,17 +14165,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 ; } ; @@ -13071,7 +14262,8 @@ meltrout_67_WARMELTmiNORMAL_NORMEXP_GET_FIELD(meltclosure_ptr_t meltclosp_, melt /* end of frame for routine meltrout_67_WARMELTmiNORMAL_NORMEXP_GET_FIELD fromline 1756 */ - /* classy proc frame meltrout_67_WARMELTmiNORMAL_NORMEXP_GET_FIELD */ MeltFrame_meltrout_67_WARMELTmiNORMAL_NORMEXP_GET_FIELD + /* classy proc frame meltrout_67_WARMELTmiNORMAL_NORMEXP_GET_FIELD */ + MeltFrame_meltrout_67_WARMELTmiNORMAL_NORMEXP_GET_FIELD meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_67_WARMELTmiNORMAL_NORMEXP_GET_FIELD fromline 1785*/ #if ENABLE_CHECKING @@ -13084,7 +14276,8 @@ meltrout_67_WARMELTmiNORMAL_NORMEXP_GET_FIELD(meltclosure_ptr_t meltclosp_, melt #define meltframe meltfram__ melt_trace_start("NORMEXP_GET_FIELD", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -13094,26 +14287,30 @@ meltrout_67_WARMELTmiNORMAL_NORMEXP_GET_FIELD(meltclosure_ptr_t meltclosp_, melt /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4207:/ 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); ; @@ -13135,10 +14332,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_GET_FIELD*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:4208:/ 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);; @@ -13167,25 +14366,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4208; /*^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:4208:/ 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:4208:/ 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*/ @@ -13203,10 +14408,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:4209:/ 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);; @@ -13235,25 +14442,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4209; /*^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:4209:/ 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:4209:/ 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*/ @@ -13271,10 +14484,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:4210:/ 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);; @@ -13303,25 +14518,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4210; /*^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:4210:/ 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:4210:/ 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*/ @@ -13349,7 +14570,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)) @@ -13358,7 +14580,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4211:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13391,16 +14614,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_get_field 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:4211:/ 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 ; } ; } @@ -13413,7 +14640,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4211:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13422,9 +14650,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*/ @@ -13452,7 +14682,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:4213:/ getslot"); @@ -13460,7 +14691,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, "SUGET_OBJ"); - /*_.SOBJ__V19*/ meltfptr[18] = slot; + /*_.SOBJ__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4214:/ getslot"); @@ -13468,7 +14700,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, "SUGET_FIELD"); - /*_.SFLD__V20*/ meltfptr[19] = slot; + /*_.SFLD__V20*/ + meltfptr[19] = slot; }; ; @@ -13481,10 +14714,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[4] = + /*_#IS_A__L6*/ + meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.SFLD__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:4216:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V22*/ meltfptr[21] = (/*nil*/NULL);; @@ -13513,25 +14748,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4216; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SFLD__V20*/ meltfptr[19]; - /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = 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__V23*/ + meltfptr[22] = 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___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:4216:/ 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:4216:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_._IFELSE___V22*/ + meltfptr[21] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13558,7 +14799,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V26*/ meltfptr[25];/*^multimsend.send*/ - /*_.NOBJ__V25*/ meltfptr[21] = meltgc_send ((melt_ptr_t)(/*_.SOBJ__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NOBJ__V25*/ + meltfptr[21] = meltgc_send ((melt_ptr_t)(/*_.SOBJ__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -13567,10 +14809,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L7*/ meltfnum[0] = + /*_#NULL__L7*/ + meltfnum[0] = (/*null*/(/*_.NBIND__V26*/ meltfptr[25]) == NULL);; MELT_LOCATION("warmelt-normal.melt:4220:/ cond"); - /*cond*/ if (/*_#NULL__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#NULL__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13580,14 +14824,18 @@ meltlab_endgetargs: /*_.MAKE_LIST__V28*/ meltfptr[27] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[7]))));; MELT_LOCATION("warmelt-normal.melt:4220:/ compute"); - /*_.NBIND__V26*/ meltfptr[25] = /*_.SETQ___V29*/ meltfptr[28] = /*_.MAKE_LIST__V28*/ meltfptr[27];; - /*_._IF___V27*/ meltfptr[26] = /*_.SETQ___V29*/ meltfptr[28];; + /*_.NBIND__V26*/ + meltfptr[25] = /*_.SETQ___V29*/ meltfptr[28] = /*_.MAKE_LIST__V28*/ meltfptr[27];; + /*_._IF___V27*/ + meltfptr[26] = /*_.SETQ___V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4220:/ clear"); - /*clear*/ /*_.MAKE_LIST__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MAKE_LIST__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.SETQ___V29*/ + meltfptr[28] = 0 ; } ; } @@ -13617,7 +14865,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ meltfnum[4] = + /*_#MELT_NEED_DBG__L8*/ + meltfnum[4] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13626,7 +14875,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4221:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13659,16 +14909,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_get_field nobj"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NOBJ__V25*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V31*/ 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__V31*/ + 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___V30*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[28];; + /*_._IF___V30*/ + meltfptr[27] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4221:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ + meltfptr[28] = 0 ; } ; } @@ -13681,7 +14935,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4221:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13690,9 +14945,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V30*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13720,7 +14977,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SFLD__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V33*/ meltfptr[27] = slot; + /*_.NAMED_NAME__V33*/ + meltfptr[27] = slot; }; ; @@ -13737,7 +14995,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SFLD__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 2, "FLD_OWNCLASS"); - /*_.FCLA__V35*/ meltfptr[34] = slot; + /*_.FCLA__V35*/ + meltfptr[34] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4224:/ quasiblock"); @@ -13757,7 +15016,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]; - /*_.NC__V37*/ meltfptr[36] = meltgc_send((melt_ptr_t)(/*_.FCLA__V35*/ meltfptr[34]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NC__V37*/ + meltfptr[36] = meltgc_send((melt_ptr_t)(/*_.FCLA__V35*/ meltfptr[34]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -13780,7 +15040,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13789,7 +15050,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4225:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13822,16 +15084,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_get_field ncla"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NC__V37*/ meltfptr[36]; - /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 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__V39*/ + meltfptr[38] = 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___V38*/ meltfptr[37] = /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; + /*_._IF___V38*/ + meltfptr[37] = /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4225:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V39*/ + meltfptr[38] = 0 ; } ; } @@ -13844,7 +15110,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4225:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13853,9 +15120,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_._IF___V38*/ + meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13875,11 +15144,14 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V36*/ meltfptr[35] = /*_.NC__V37*/ meltfptr[36];; + /*_.LET___V36*/ + meltfptr[35] = /*_.NC__V37*/ meltfptr[36];; MELT_LOCATION("warmelt-normal.melt:4224:/ clear"); - /*clear*/ /*_.NC__V37*/ meltfptr[36] = 0 ; - /*_.NCLA__V40*/ meltfptr[38] = /*_.LET___V36*/ meltfptr[35];; + /*clear*/ /*_.NC__V37*/ + meltfptr[36] = 0 ; + /*_.NCLA__V40*/ + meltfptr[38] = /*_.LET___V36*/ meltfptr[35];; MELT_CHECK_SIGNAL(); ; @@ -13891,7 +15163,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ meltfrout->tabval[9])), (3), "CLASS_NREP_UNSAFE_GET_FIELD"); - /*_.INST__V42*/ meltfptr[36] = + /*_.INST__V42*/ + meltfptr[36] = newobj; }; ; @@ -13914,7 +15187,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V42*/ meltfptr[36], "newly made instance"); ; - /*_.NUGET__V41*/ meltfptr[37] = /*_.INST__V42*/ meltfptr[36];; + /*_.NUGET__V41*/ + meltfptr[37] = /*_.INST__V42*/ meltfptr[36];; MELT_CHECK_SIGNAL(); ; @@ -13929,7 +15203,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IFISA*/ meltfrout->tabval[12])), (6), "CLASS_NREP_IFISA"); - /*_.INST__V44*/ meltfptr[43] = + /*_.INST__V44*/ + meltfptr[43] = newobj; }; ; @@ -13962,7 +15237,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V44*/ meltfptr[43], "newly made instance"); ; - /*_.INST___V43*/ meltfptr[42] = /*_.INST__V44*/ meltfptr[43];; + /*_.INST___V43*/ + meltfptr[42] = /*_.INST__V44*/ meltfptr[43];; MELT_LOCATION("warmelt-normal.melt:4231:/ quasiblock"); @@ -13971,7 +15247,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[10])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V46*/ meltfptr[45] = + /*_.INST__V46*/ + meltfptr[45] = newobj; }; ; @@ -13999,7 +15276,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V46*/ meltfptr[45], "newly made instance"); ; - /*_.CBIND__V45*/ meltfptr[44] = /*_.INST__V46*/ meltfptr[45];; + /*_.CBIND__V45*/ + meltfptr[44] = /*_.INST__V46*/ meltfptr[45];; MELT_CHECK_SIGNAL(); ; @@ -14011,7 +15289,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__V48*/ meltfptr[47] = + /*_.INST__V48*/ + meltfptr[47] = newobj; }; ; @@ -14039,7 +15318,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V48*/ meltfptr[47], "newly made instance"); ; - /*_.CLOCC__V47*/ meltfptr[46] = /*_.INST__V48*/ meltfptr[47];; + /*_.CLOCC__V47*/ + meltfptr[46] = /*_.INST__V48*/ meltfptr[47];; { MELT_LOCATION("warmelt-normal.melt:4249:/ locexp"); @@ -14066,7 +15346,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)) @@ -14075,7 +15356,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4250:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14112,16 +15394,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V26*/ meltfptr[25]; - /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = 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__V50*/ + meltfptr[49] = 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___V49*/ meltfptr[48] = /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49];; + /*_._IF___V49*/ + meltfptr[48] = /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4250:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V50*/ + meltfptr[49] = 0 ; } ; } @@ -14134,7 +15420,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4250:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14143,9 +15430,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_._IF___V49*/ + meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14171,7 +15460,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4251:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V47*/ meltfptr[46];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V47*/ meltfptr[46];; MELT_LOCATION("warmelt-normal.melt:4251:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -14179,62 +15469,86 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V32*/ meltfptr[28] = /*_.RETURN___V51*/ meltfptr[49];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V32*/ + meltfptr[28] = /*_.RETURN___V51*/ meltfptr[49];; MELT_LOCATION("warmelt-normal.melt:4222:/ clear"); - /*clear*/ /*_.NAMED_NAME__V33*/ meltfptr[27] = 0 ; + /*clear*/ /*_.NAMED_NAME__V33*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.CSYM__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.FCLA__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.FCLA__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.LET___V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.NCLA__V40*/ meltfptr[38] = 0 ; + /*clear*/ /*_.NCLA__V40*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.NUGET__V41*/ meltfptr[37] = 0 ; + /*clear*/ /*_.NUGET__V41*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.INST___V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.CBIND__V45*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.CLOCC__V47*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V51*/ meltfptr[49] = 0 ; + /*clear*/ /*_.RETURN___V51*/ + meltfptr[49] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V24*/ meltfptr[22] = /*_.LET___V32*/ meltfptr[28];; + /*_.MULTI___V24*/ + meltfptr[22] = /*_.LET___V32*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:4217:/ clear"); - /*clear*/ /*_#NULL__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NULL__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IF___V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V32*/ meltfptr[28] = 0 ; + /*clear*/ /*_.LET___V32*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V26*/ meltfptr[25] = 0 ; - /*_.LET___V17*/ meltfptr[6] = /*_.MULTI___V24*/ meltfptr[22];; + /*clear*/ /*_.NBIND__V26*/ + meltfptr[25] = 0 ; + /*_.LET___V17*/ + meltfptr[6] = /*_.MULTI___V24*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:4212:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[13] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.SOBJ__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SOBJ__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SFLD__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SFLD__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:4207:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; { MELT_LOCATION("warmelt-normal.melt:4207:/ locexp"); @@ -14249,17 +15563,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 ; } ; @@ -14341,7 +15660,8 @@ meltrout_68_WARMELTmiNORMAL_NORMEXP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t meltclos /* end of frame for routine meltrout_68_WARMELTmiNORMAL_NORMEXP_UNSAFE_PUT_FIELDS fromline 1756 */ - /* classy proc frame meltrout_68_WARMELTmiNORMAL_NORMEXP_UNSAFE_PUT_FIELDS */ MeltFrame_meltrout_68_WARMELTmiNORMAL_NORMEXP_UNSAFE_PUT_FIELDS + /* classy proc frame meltrout_68_WARMELTmiNORMAL_NORMEXP_UNSAFE_PUT_FIELDS */ + MeltFrame_meltrout_68_WARMELTmiNORMAL_NORMEXP_UNSAFE_PUT_FIELDS meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_68_WARMELTmiNORMAL_NORMEXP_UNSAFE_PUT_FIELDS fromline 1785*/ #if ENABLE_CHECKING @@ -14354,7 +15674,8 @@ meltrout_68_WARMELTmiNORMAL_NORMEXP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t meltclos #define meltframe meltfram__ melt_trace_start("NORMEXP_UNSAFE_PUT_FIELDS", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -14364,26 +15685,30 @@ meltrout_68_WARMELTmiNORMAL_NORMEXP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t meltclos /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4257:/ 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); ; @@ -14405,10 +15730,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_UNSAFE_PUT_FIELDS*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:4258:/ 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);; @@ -14437,25 +15764,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4258; /*^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:4258:/ 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:4258:/ 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*/ @@ -14473,10 +15806,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:4259:/ 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);; @@ -14505,25 +15840,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4259; /*^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:4259:/ 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:4259:/ 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*/ @@ -14541,10 +15882,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:4260:/ 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);; @@ -14573,25 +15916,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4260; /*^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:4260:/ 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:4260:/ 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*/ @@ -14619,7 +15968,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)) @@ -14628,7 +15978,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4261:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14661,16 +16012,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_unsafe_put_fields 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:4261:/ 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 ; } ; } @@ -14683,7 +16038,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4261:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14692,9 +16048,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*/ @@ -14722,7 +16080,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:4263:/ getslot"); @@ -14730,7 +16089,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, "SUPUT_OBJ"); - /*_.SOBJ__V19*/ meltfptr[18] = slot; + /*_.SOBJ__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4264:/ getslot"); @@ -14738,13 +16098,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SUPUT_FIELDS"); - /*_.SFIELDS__V20*/ meltfptr[19] = slot; + /*_.SFIELDS__V20*/ + meltfptr[19] = slot; }; ; - /*_#NBFIELDS__L6*/ meltfnum[4] = + /*_#NBFIELDS__L6*/ + meltfnum[4] = (melt_multiple_length((melt_ptr_t)(/*_.SFIELDS__V20*/ meltfptr[19])));; /*^compute*/ - /*_.NFIELDS__V21*/ meltfptr[20] = + /*_.NFIELDS__V21*/ + meltfptr[20] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#NBFIELDS__L6*/ meltfnum[4])));; MELT_CHECK_SIGNAL(); @@ -14775,7 +16138,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHECKSIGNAL*/ meltfrout->tabval[9])), (1), "CLASS_NREP_CHECKSIGNAL"); - /*_.INST__V25*/ meltfptr[24] = + /*_.INST__V25*/ + meltfptr[24] = newobj; }; ; @@ -14788,7 +16152,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V25*/ meltfptr[24], "newly made instance"); ; - /*_.NCHINT__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; + /*_.NCHINT__V24*/ + meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; MELT_CHECK_SIGNAL(); ; @@ -14800,7 +16165,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[10])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V27*/ meltfptr[26] = + /*_.INST__V27*/ + meltfptr[26] = newobj; }; ; @@ -14823,7 +16189,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V27*/ meltfptr[26], "newly made instance"); ; - /*_.CINTBIND__V26*/ meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; + /*_.CINTBIND__V26*/ + meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; MELT_LOCATION("warmelt-normal.melt:4275:/ blockmultialloc"); /*multiallocblock*/ { @@ -14836,11 +16203,13 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0__CINTBIND_x5*/ - /*_.CINTBIND__V29*/ meltfptr[28] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x5; + /*_.CINTBIND__V29*/ + meltfptr[28] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x5; meltletrec_1_ptr->rpair_0__CINTBIND_x5.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ - /*_.LIST___V30*/ meltfptr[29] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; + /*_.LIST___V30*/ + meltfptr[29] = (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)))); @@ -14862,17 +16231,22 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V30*/ meltfptr[29]); ; - /*_.NBINDLIST__V28*/ meltfptr[27] = /*_.LIST___V30*/ meltfptr[29];; + /*_.NBINDLIST__V28*/ + meltfptr[27] = /*_.LIST___V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4275:/ clear"); - /*clear*/ /*_.CINTBIND__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CINTBIND__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.LIST___V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CINTBIND__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.LIST___V30*/ + meltfptr[29] = 0 ; } /*end multiallocblock*/ ; @@ -14886,7 +16260,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[10])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V32*/ meltfptr[29] = + /*_.INST__V32*/ + meltfptr[29] = newobj; }; ; @@ -14914,7 +16289,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V32*/ meltfptr[29], "newly made instance"); ; - /*_.CBIND__V31*/ meltfptr[28] = /*_.INST__V32*/ meltfptr[29];; + /*_.CBIND__V31*/ + meltfptr[28] = /*_.INST__V32*/ meltfptr[29];; MELT_CHECK_SIGNAL(); ; @@ -14926,7 +16302,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[12])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V34*/ meltfptr[33] = + /*_.INST__V34*/ + meltfptr[33] = newobj; }; ; @@ -14954,7 +16331,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V34*/ meltfptr[33], "newly made instance"); ; - /*_.CLOCC__V33*/ meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; + /*_.CLOCC__V33*/ + meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; MELT_CHECK_SIGNAL(); ; @@ -14974,7 +16352,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V37*/ meltfptr[36];/*^multimsend.send*/ - /*_.NOBJ__V36*/ meltfptr[35] = meltgc_send ((melt_ptr_t)(/*_.SOBJ__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[13]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NOBJ__V36*/ + meltfptr[35] = meltgc_send ((melt_ptr_t)(/*_.SOBJ__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[13]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -14990,14 +16369,16 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V37*/ meltfptr[36]; - /*_.LIST_APPEND2LIST__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NBINDLIST__V28*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V38*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NBINDLIST__V28*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4294:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V40*/ meltfptr[39] = + /*newclosure*/ /*_.LAMBDA___V40*/ + meltfptr[39] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_27*/ meltfrout->tabval[27])), (5)); ; /*^putclosedv*/ @@ -15030,7 +16411,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ meltfptr[39]))); ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ meltfptr[39])->tabval[4] = (melt_ptr_t)(/*_.NFIELDS__V21*/ meltfptr[20]); ; - /*_.LAMBDA___V39*/ meltfptr[38] = /*_.LAMBDA___V40*/ meltfptr[39];; + /*_.LAMBDA___V39*/ + meltfptr[38] = /*_.LAMBDA___V40*/ meltfptr[39];; MELT_CHECK_SIGNAL(); ; @@ -15041,7 +16423,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V39*/ meltfptr[38]; - /*_.MULTIPLE_EVERY__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SFIELDS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_EVERY__V41*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SFIELDS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4318:/ quasiblock"); @@ -15058,7 +16441,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_PUT_FIELDS*/ meltfrout->tabval[28])), (3), "CLASS_NREP_UNSAFE_PUT_FIELDS"); - /*_.INST__V44*/ meltfptr[43] = + /*_.INST__V44*/ + meltfptr[43] = newobj; }; ; @@ -15081,7 +16465,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V44*/ meltfptr[43], "newly made instance"); ; - /*_.NPUF__V43*/ meltfptr[42] = /*_.INST__V44*/ meltfptr[43];; + /*_.NPUF__V43*/ + meltfptr[42] = /*_.INST__V44*/ meltfptr[43];; MELT_CHECK_SIGNAL(); ; @@ -15127,7 +16512,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)) @@ -15136,7 +16522,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4324:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15173,16 +16560,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbindlist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDLIST__V28*/ meltfptr[27]; - /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = 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__V46*/ + meltfptr[45] = 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___V45*/ meltfptr[44] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];; + /*_._IF___V45*/ + meltfptr[44] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4324:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ + meltfptr[45] = 0 ; } ; } @@ -15195,7 +16586,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4324:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15204,9 +16596,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IF___V45*/ + meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15232,7 +16626,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4326:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V33*/ meltfptr[32];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V33*/ meltfptr[32];; MELT_LOCATION("warmelt-normal.melt:4326:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -15240,64 +16635,89 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V42*/ meltfptr[41] = /*_.RETURN___V47*/ meltfptr[45];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V42*/ + meltfptr[41] = /*_.RETURN___V47*/ meltfptr[45];; MELT_LOCATION("warmelt-normal.melt:4318:/ clear"); - /*clear*/ /*_.NPUF__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.NPUF__V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V47*/ meltfptr[45] = 0 ; + /*clear*/ /*_.RETURN___V47*/ + meltfptr[45] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V35*/ meltfptr[34] = /*_.LET___V42*/ meltfptr[41];; + /*_.MULTI___V35*/ + meltfptr[34] = /*_.LET___V42*/ meltfptr[41];; MELT_LOCATION("warmelt-normal.melt:4288:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.LAMBDA___V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_EVERY__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MULTIPLE_EVERY__V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.LET___V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.NOBJBIND__V37*/ meltfptr[36] = 0 ; - /*_.LET___V17*/ meltfptr[6] = /*_.MULTI___V35*/ meltfptr[34];; + /*clear*/ /*_.NOBJBIND__V37*/ + meltfptr[36] = 0 ; + /*_.LET___V17*/ + meltfptr[6] = /*_.MULTI___V35*/ meltfptr[34];; MELT_LOCATION("warmelt-normal.melt:4262:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[13] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.SOBJ__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SOBJ__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SFIELDS__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SFIELDS__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#NBFIELDS__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#NBFIELDS__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.NFIELDS__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.NFIELDS__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.CSYM__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTSYMB__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.CINTSYMB__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHINT__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.NCHINT__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.CINTBIND__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDLIST__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.NBINDLIST__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V31*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CBIND__V31*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.CLOCC__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MULTI___V35*/ + meltfptr[34] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4257:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; { MELT_LOCATION("warmelt-normal.melt:4257:/ locexp"); @@ -15312,17 +16732,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 ; } ; @@ -15404,7 +16829,8 @@ meltrout_69_WARMELTmiNORMAL_LAMBDA_cl15(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_69_WARMELTmiNORMAL_LAMBDA_cl15 fromline 1756 */ - /* classy proc frame meltrout_69_WARMELTmiNORMAL_LAMBDA_cl15 */ MeltFrame_meltrout_69_WARMELTmiNORMAL_LAMBDA_cl15 + /* classy proc frame meltrout_69_WARMELTmiNORMAL_LAMBDA_cl15 */ + MeltFrame_meltrout_69_WARMELTmiNORMAL_LAMBDA_cl15 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_69_WARMELTmiNORMAL_LAMBDA_cl15 fromline 1785*/ #if ENABLE_CHECKING @@ -15417,7 +16843,8 @@ meltrout_69_WARMELTmiNORMAL_LAMBDA_cl15(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl15", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -15427,12 +16854,14 @@ meltrout_69_WARMELTmiNORMAL_LAMBDA_cl15(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4294:/ getarg"); - /*_.FLA__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FLA__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: @@ -15452,10 +16881,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[1] = + /*_#IS_A__L2*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.FLA__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:4295:/ 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);; @@ -15484,25 +16915,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4295; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FLA__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:4295:/ 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:4295:/ 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*/ @@ -15518,7 +16955,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLA__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SFLA_FIELD"); - /*_.FLD__V7*/ meltfptr[3] = slot; + /*_.FLD__V7*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4297:/ getslot"); @@ -15526,7 +16964,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLA__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SFLA_EXPR"); - /*_.EXP__V8*/ meltfptr[7] = slot; + /*_.EXP__V8*/ + meltfptr[7] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4298:/ getslot"); @@ -15534,11 +16973,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLA__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOCA_LOCATION__V9*/ meltfptr[8] = slot; + /*_.LOCA_LOCATION__V9*/ + meltfptr[8] = slot; }; ; /*^cond*/ - /*cond*/ if (/*_.LOCA_LOCATION__V9*/ meltfptr[8]) /*then*/ + /*cond*/ + if (/*_.LOCA_LOCATION__V9*/ meltfptr[8]) /*then*/ { /*^cond.then*/ /*_.FSLOC__V10*/ meltfptr[9] = /*_.LOCA_LOCATION__V9*/ meltfptr[8];; @@ -15547,7 +16988,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4298:/ cond.else"); - /*_.FSLOC__V10*/ meltfptr[9] = (/*~SLOC*/ meltfclos->tabval[0]);; + /*_.FSLOC__V10*/ + meltfptr[9] = (/*~SLOC*/ meltfclos->tabval[0]);; } ; @@ -15560,10 +17002,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.FLD__V7*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:4300:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[11] = (/*nil*/NULL);; @@ -15592,25 +17036,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4300; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FLD__V7*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG 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[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4300:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[10] = /*_._IFELSE___V12*/ meltfptr[11];; + /*_.IFCPP___V11*/ + meltfptr[10] = /*_._IFELSE___V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4300:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15637,7 +17087,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[0]); /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V16*/ meltfptr[15];/*^multimsend.send*/ - /*_.NEXP__V15*/ meltfptr[11] = meltgc_send ((melt_ptr_t)(/*_.EXP__V8*/ meltfptr[7]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[3]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NEXP__V15*/ + meltfptr[11] = meltgc_send ((melt_ptr_t)(/*_.EXP__V8*/ meltfptr[7]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[3]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -15653,7 +17104,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V16*/ meltfptr[15]; - /*_.LIST_APPEND2LIST__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[4])), (melt_ptr_t)((/*~NBINDLIST*/ meltfclos->tabval[3])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V17*/ + meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[4])), (melt_ptr_t)((/*~NBINDLIST*/ meltfclos->tabval[3])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4305:/ quasiblock"); @@ -15670,7 +17122,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ meltfrout->tabval[5])), (3), "CLASS_NREP_FIELDASSIGN"); - /*_.INST__V20*/ meltfptr[19] = + /*_.INST__V20*/ + meltfptr[19] = newobj; }; ; @@ -15693,7 +17146,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V20*/ meltfptr[19], "newly made instance"); ; - /*_.NFLA__V19*/ meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; + /*_.NFLA__V19*/ + meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; { MELT_LOCATION("warmelt-normal.melt:4309:/ locexp"); @@ -15713,7 +17167,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~ENV*/ meltfclos->tabval[1]); - /*_.FCTYP__V22*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.NEXP__V15*/ meltfptr[11]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FCTYP__V22*/ + meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.NEXP__V15*/ meltfptr[11]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -15736,7 +17191,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L4*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L4*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15745,7 +17201,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4311:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15778,16 +17235,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_unsafe_put_fields fctyp"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FCTYP__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[7])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[7])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V23*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; + /*_._IF___V23*/ + meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4311:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L5*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[23] = 0 ; } ; } @@ -15800,7 +17261,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4311:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15809,9 +17271,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L4*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IF___V23*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15834,10 +17298,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#exeq__L6*/ meltfnum[4] = + /*_#exeq__L6*/ + meltfnum[4] = ((/*_.FCTYP__V22*/ meltfptr[21]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:4312:/ cond"); - /*cond*/ if (/*_#exeq__L6*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#exeq__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15845,7 +17311,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4316:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLD__V7*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[10]))) ) /*then*/ @@ -15856,7 +17323,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLD__V7*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V26*/ meltfptr[22] = slot; + /*_.NAMED_NAME__V26*/ + meltfptr[22] = slot; }; ; } @@ -15878,16 +17346,20 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "invalid field type $1 in (UNSAFE_PUT_FIELDS ..); expecting a :value"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V26*/ meltfptr[22]; - /*_.ERROR_AT__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.FSLOC__V10*/ meltfptr[9]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V27*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.FSLOC__V10*/ meltfptr[9]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V25*/ meltfptr[23] = /*_.ERROR_AT__V27*/ meltfptr[26];; + /*_._IF___V25*/ + meltfptr[23] = /*_.ERROR_AT__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4312:/ clear"); - /*clear*/ /*_.NAMED_NAME__V26*/ meltfptr[22] = 0 ; + /*clear*/ /*_.NAMED_NAME__V26*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.ERROR_AT__V27*/ + meltfptr[26] = 0 ; } ; } @@ -15898,53 +17370,72 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V21*/ meltfptr[20] = /*_._IF___V25*/ meltfptr[23];; + /*_.LET___V21*/ + meltfptr[20] = /*_._IF___V25*/ meltfptr[23];; MELT_LOCATION("warmelt-normal.melt:4310:/ clear"); - /*clear*/ /*_.FCTYP__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.FCTYP__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#exeq__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V25*/ meltfptr[23] = 0 ; - /*_.LET___V18*/ meltfptr[17] = /*_.LET___V21*/ meltfptr[20];; + /*clear*/ /*_._IF___V25*/ + meltfptr[23] = 0 ; + /*_.LET___V18*/ + meltfptr[17] = /*_.LET___V21*/ meltfptr[20];; MELT_LOCATION("warmelt-normal.melt:4305:/ clear"); - /*clear*/ /*_.NFLA__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.NFLA__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.LET___V21*/ + meltfptr[20] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V14*/ meltfptr[12] = /*_.LET___V18*/ meltfptr[17];; + /*_.MULTI___V14*/ + meltfptr[12] = /*_.LET___V18*/ meltfptr[17];; MELT_LOCATION("warmelt-normal.melt:4301:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.LET___V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.NEXPBIND__V16*/ meltfptr[15] = 0 ; - /*_.LET___V6*/ meltfptr[4] = /*_.MULTI___V14*/ meltfptr[12];; + /*clear*/ /*_.NEXPBIND__V16*/ + meltfptr[15] = 0 ; + /*_.LET___V6*/ + meltfptr[4] = /*_.MULTI___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:4296:/ clear"); - /*clear*/ /*_.FLD__V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_.FLD__V7*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.EXP__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.EXP__V8*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LOCA_LOCATION__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.LOCA_LOCATION__V9*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.FSLOC__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.FSLOC__V10*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MULTI___V14*/ + meltfptr[12] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4294:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-normal.melt:4294:/ locexp"); @@ -15959,13 +17450,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_.IFCPP___V3*/ + meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V6*/ + meltfptr[4] = 0 ; } ; @@ -16047,7 +17541,8 @@ meltrout_70_WARMELTmiNORMAL_LAMBDA_cl16(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_70_WARMELTmiNORMAL_LAMBDA_cl16 fromline 1756 */ - /* classy proc frame meltrout_70_WARMELTmiNORMAL_LAMBDA_cl16 */ MeltFrame_meltrout_70_WARMELTmiNORMAL_LAMBDA_cl16 + /* classy proc frame meltrout_70_WARMELTmiNORMAL_LAMBDA_cl16 */ + MeltFrame_meltrout_70_WARMELTmiNORMAL_LAMBDA_cl16 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_70_WARMELTmiNORMAL_LAMBDA_cl16 fromline 1785*/ #if ENABLE_CHECKING @@ -16060,7 +17555,8 @@ meltrout_70_WARMELTmiNORMAL_LAMBDA_cl16(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl16", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -16070,12 +17566,14 @@ meltrout_70_WARMELTmiNORMAL_LAMBDA_cl16(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4329:/ 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); ; @@ -16102,7 +17600,8 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; } ; @@ -16184,7 +17683,8 @@ meltrout_71_WARMELTmiNORMAL_NORMEXP_PUT_FIELDS(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_71_WARMELTmiNORMAL_NORMEXP_PUT_FIELDS fromline 1756 */ - /* classy proc frame meltrout_71_WARMELTmiNORMAL_NORMEXP_PUT_FIELDS */ MeltFrame_meltrout_71_WARMELTmiNORMAL_NORMEXP_PUT_FIELDS + /* classy proc frame meltrout_71_WARMELTmiNORMAL_NORMEXP_PUT_FIELDS */ + MeltFrame_meltrout_71_WARMELTmiNORMAL_NORMEXP_PUT_FIELDS meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_71_WARMELTmiNORMAL_NORMEXP_PUT_FIELDS fromline 1785*/ #if ENABLE_CHECKING @@ -16197,7 +17697,8 @@ meltrout_71_WARMELTmiNORMAL_NORMEXP_PUT_FIELDS(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("NORMEXP_PUT_FIELDS", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -16207,26 +17708,30 @@ meltrout_71_WARMELTmiNORMAL_NORMEXP_PUT_FIELDS(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4333:/ 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); ; @@ -16248,10 +17753,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_PUT_FIELDS*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:4334:/ 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);; @@ -16280,25 +17787,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4334; /*^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:4334:/ 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:4334:/ 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*/ @@ -16316,10 +17829,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:4335:/ 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);; @@ -16348,25 +17863,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4335; /*^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:4335:/ 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:4335:/ 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*/ @@ -16384,10 +17905,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:4336:/ 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);; @@ -16416,25 +17939,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4336; /*^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:4336:/ 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:4336:/ 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*/ @@ -16462,7 +17991,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)) @@ -16471,7 +18001,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4337:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16504,16 +18035,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_put_fields 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:4337:/ 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 ; } ; } @@ -16526,7 +18061,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4337:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -16535,9 +18071,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*/ @@ -16565,7 +18103,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:4339:/ getslot"); @@ -16573,7 +18112,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, "SUPUT_OBJ"); - /*_.SOBJ__V19*/ meltfptr[18] = slot; + /*_.SOBJ__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4340:/ getslot"); @@ -16581,13 +18121,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SUPUT_FIELDS"); - /*_.SFIELDS__V20*/ meltfptr[19] = slot; + /*_.SFIELDS__V20*/ + meltfptr[19] = slot; }; ; - /*_#NBFIELDS__L6*/ meltfnum[4] = + /*_#NBFIELDS__L6*/ + meltfnum[4] = (melt_multiple_length((melt_ptr_t)(/*_.SFIELDS__V20*/ meltfptr[19])));; /*^compute*/ - /*_.NFIELDS__V21*/ meltfptr[20] = + /*_.NFIELDS__V21*/ + meltfptr[20] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#NBFIELDS__L6*/ meltfnum[4])));; MELT_CHECK_SIGNAL(); @@ -16618,7 +18161,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHECKSIGNAL*/ meltfrout->tabval[9])), (1), "CLASS_NREP_CHECKSIGNAL"); - /*_.INST__V25*/ meltfptr[24] = + /*_.INST__V25*/ + meltfptr[24] = newobj; }; ; @@ -16631,7 +18175,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V25*/ meltfptr[24], "newly made instance"); ; - /*_.NCHINT__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; + /*_.NCHINT__V24*/ + meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; MELT_CHECK_SIGNAL(); ; @@ -16643,7 +18188,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[10])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V27*/ meltfptr[26] = + /*_.INST__V27*/ + meltfptr[26] = newobj; }; ; @@ -16666,7 +18212,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V27*/ meltfptr[26], "newly made instance"); ; - /*_.CINTBIND__V26*/ meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; + /*_.CINTBIND__V26*/ + meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; MELT_LOCATION("warmelt-normal.melt:4351:/ blockmultialloc"); /*multiallocblock*/ { @@ -16679,11 +18226,13 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0__CINTBIND_x6*/ - /*_.CINTBIND__V29*/ meltfptr[28] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x6; + /*_.CINTBIND__V29*/ + meltfptr[28] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x6; meltletrec_1_ptr->rpair_0__CINTBIND_x6.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ - /*_.LIST___V30*/ meltfptr[29] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; + /*_.LIST___V30*/ + meltfptr[29] = (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)))); @@ -16705,17 +18254,22 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V30*/ meltfptr[29]); ; - /*_.NBINDLIST__V28*/ meltfptr[27] = /*_.LIST___V30*/ meltfptr[29];; + /*_.NBINDLIST__V28*/ + meltfptr[27] = /*_.LIST___V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4351:/ clear"); - /*clear*/ /*_.CINTBIND__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CINTBIND__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.LIST___V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CINTBIND__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.LIST___V30*/ + meltfptr[29] = 0 ; } /*end multiallocblock*/ ; @@ -16729,7 +18283,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[10])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V32*/ meltfptr[29] = + /*_.INST__V32*/ + meltfptr[29] = newobj; }; ; @@ -16757,7 +18312,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V32*/ meltfptr[29], "newly made instance"); ; - /*_.CBIND__V31*/ meltfptr[28] = /*_.INST__V32*/ meltfptr[29];; + /*_.CBIND__V31*/ + meltfptr[28] = /*_.INST__V32*/ meltfptr[29];; MELT_CHECK_SIGNAL(); ; @@ -16769,7 +18325,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[12])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V34*/ meltfptr[33] = + /*_.INST__V34*/ + meltfptr[33] = newobj; }; ; @@ -16797,7 +18354,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V34*/ meltfptr[33], "newly made instance"); ; - /*_.CLOCC__V33*/ meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; + /*_.CLOCC__V33*/ + meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; MELT_CHECK_SIGNAL(); ; @@ -16809,7 +18367,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[13])), (1), "CLASS_REFERENCE"); - /*_.INST__V36*/ meltfptr[35] = + /*_.INST__V36*/ + meltfptr[35] = newobj; }; ; @@ -16822,7 +18381,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V36*/ meltfptr[35], "newly made instance"); ; - /*_.CLACONT__V35*/ meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; + /*_.CLACONT__V35*/ + meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; MELT_CHECK_SIGNAL(); ; @@ -16842,7 +18402,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V39*/ meltfptr[38];/*^multimsend.send*/ - /*_.NOBJ__V38*/ meltfptr[37] = meltgc_send ((melt_ptr_t)(/*_.SOBJ__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[14]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NOBJ__V38*/ + meltfptr[37] = meltgc_send ((melt_ptr_t)(/*_.SOBJ__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[14]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -16858,7 +18419,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V39*/ meltfptr[38]; - /*_.LIST_APPEND2LIST__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NBINDLIST__V28*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V40*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NBINDLIST__V28*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -16893,7 +18455,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L8*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16902,7 +18465,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4372:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16939,16 +18503,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " clacont="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLACONT__V35*/ meltfptr[34]; - /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = 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__V43*/ + meltfptr[42] = 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___V42*/ meltfptr[41] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];; + /*_._IF___V42*/ + meltfptr[41] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4372:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[42] = 0 ; } ; } @@ -16961,7 +18529,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4372:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -16970,9 +18539,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_._IF___V42*/ + meltfptr[41] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17002,10 +18573,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L10*/ meltfnum[8] = + /*_#IS_A__L10*/ + meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.FLA__V41*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ meltfrout->tabval[16])));; MELT_LOCATION("warmelt-normal.melt:4373:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V45*/ meltfptr[41] = (/*nil*/NULL);; @@ -17034,25 +18607,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4373; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FLA__V41*/ meltfptr[40]; - /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45] = 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__V46*/ + meltfptr[45] = 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___V45*/ meltfptr[41] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45];; + /*_._IFELSE___V45*/ + meltfptr[41] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4373:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/ + meltfptr[45] = 0 ; } ; } ; - /*_.IFCPP___V44*/ meltfptr[42] = /*_._IFELSE___V45*/ meltfptr[41];; + /*_.IFCPP___V44*/ + meltfptr[42] = /*_._IFELSE___V45*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4373:/ clear"); - /*clear*/ /*_#IS_A__L10*/ meltfnum[8] = 0 ; + /*clear*/ /*_#IS_A__L10*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V45*/ meltfptr[41] = 0 ; + /*clear*/ /*_._IFELSE___V45*/ + meltfptr[41] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17068,7 +18647,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLA__V41*/ meltfptr[40]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SFLA_FIELD"); - /*_.FLD__V47*/ meltfptr[45] = slot; + /*_.FLD__V47*/ + meltfptr[45] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4375:/ getslot"); @@ -17076,7 +18656,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLA__V41*/ meltfptr[40]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SFLA_EXPR"); - /*_.EXP__V48*/ meltfptr[41] = slot; + /*_.EXP__V48*/ + meltfptr[41] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4376:/ getslot"); @@ -17084,11 +18665,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLA__V41*/ meltfptr[40]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOCA_LOCATION__V49*/ meltfptr[48] = slot; + /*_.LOCA_LOCATION__V49*/ + meltfptr[48] = slot; }; ; /*^cond*/ - /*cond*/ if (/*_.LOCA_LOCATION__V49*/ meltfptr[48]) /*then*/ + /*cond*/ + if (/*_.LOCA_LOCATION__V49*/ meltfptr[48]) /*then*/ { /*^cond.then*/ /*_.FSLOC__V50*/ meltfptr[49] = /*_.LOCA_LOCATION__V49*/ meltfptr[48];; @@ -17097,7 +18680,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4376:/ cond.else"); - /*_.FSLOC__V50*/ meltfptr[49] = /*_.SLOC__V18*/ meltfptr[13];; + /*_.FSLOC__V50*/ + meltfptr[49] = /*_.SLOC__V18*/ meltfptr[13];; } ; @@ -17110,10 +18694,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L11*/ meltfnum[7] = + /*_#IS_A__L11*/ + meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.FLD__V47*/ meltfptr[45]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[17])));; MELT_LOCATION("warmelt-normal.melt:4378:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_A__L11*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V52*/ meltfptr[51] = (/*nil*/NULL);; @@ -17142,25 +18728,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4378; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FLD__V47*/ meltfptr[45]; - /*_.MELT_ASSERT_FAILURE_FUN__V53*/ meltfptr[52] = 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__V53*/ + meltfptr[52] = 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___V52*/ meltfptr[51] = /*_.MELT_ASSERT_FAILURE_FUN__V53*/ meltfptr[52];; + /*_._IFELSE___V52*/ + meltfptr[51] = /*_.MELT_ASSERT_FAILURE_FUN__V53*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4378:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V53*/ + meltfptr[52] = 0 ; } ; } ; - /*_.IFCPP___V51*/ meltfptr[50] = /*_._IFELSE___V52*/ meltfptr[51];; + /*_.IFCPP___V51*/ + meltfptr[50] = /*_._IFELSE___V52*/ meltfptr[51];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4378:/ clear"); - /*clear*/ /*_#IS_A__L11*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L11*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_._IFELSE___V52*/ + meltfptr[51] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17176,11 +18768,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLD__V47*/ meltfptr[45]) /*=obj*/; melt_object_get_field(slot,obj, 2, "FLD_OWNCLASS"); - /*_.FCLA__V55*/ meltfptr[51] = slot; + /*_.FCLA__V55*/ + meltfptr[51] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4380:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLACONT__V35*/ meltfptr[34]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[13]))) ) /*then*/ @@ -17191,7 +18785,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLACONT__V35*/ meltfptr[34]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.PRECLA__V56*/ meltfptr[55] = slot; + /*_.PRECLA__V56*/ + meltfptr[55] = slot; }; ; } @@ -17205,10 +18800,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L12*/ meltfnum[8] = + /*_#NULL__L12*/ + meltfnum[8] = (/*null*/(/*_.PRECLA__V56*/ meltfptr[55]) == NULL);; MELT_LOCATION("warmelt-normal.melt:4382:/ cond"); - /*cond*/ if (/*_#NULL__L12*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#NULL__L12*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17219,7 +18816,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4383:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLACONT__V35*/ meltfptr[34]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[13]))) ) /*then*/ @@ -17241,7 +18839,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.CLACONT__V35*/ meltfptr[34], "put-fields"); ; - /*_._IFELSE___V57*/ meltfptr[56] = /*_.CLACONT__V35*/ meltfptr[34];; + /*_._IFELSE___V57*/ + meltfptr[56] = /*_.CLACONT__V35*/ meltfptr[34];; /*epilog*/ } ; @@ -17250,7 +18849,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4383:/ cond.else"); - /*_._IFELSE___V57*/ meltfptr[56] = /*reallynil*/ NULL ;; + /*_._IFELSE___V57*/ + meltfptr[56] = /*reallynil*/ NULL ;; } ; /*epilog*/ @@ -17268,10 +18868,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L13*/ meltfnum[7] = + /*_#eqeq__L13*/ + meltfnum[7] = ((/*_.PRECLA__V56*/ meltfptr[55]) == (/*_.FCLA__V55*/ meltfptr[51]));; MELT_LOCATION("warmelt-normal.melt:4385:/ cond"); - /*cond*/ if (/*_#eqeq__L13*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#eqeq__L13*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V58*/ meltfptr[57] = (/*nil*/NULL);; @@ -17287,10 +18889,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#SUBCLASS_OF__L14*/ meltfnum[13] = + /*_#SUBCLASS_OF__L14*/ + meltfnum[13] = melt_is_subclass_of((meltobject_ptr_t)(/*_.PRECLA__V56*/ meltfptr[55]), (meltobject_ptr_t)(/*_.FCLA__V55*/ meltfptr[51]));; MELT_LOCATION("warmelt-normal.melt:4388:/ cond"); - /*cond*/ if (/*_#SUBCLASS_OF__L14*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#SUBCLASS_OF__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V59*/ meltfptr[58] = (/*nil*/NULL);; @@ -17306,10 +18910,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#SUBCLASS_OF__L15*/ meltfnum[14] = + /*_#SUBCLASS_OF__L15*/ + meltfnum[14] = melt_is_subclass_of((meltobject_ptr_t)(/*_.FCLA__V55*/ meltfptr[51]), (meltobject_ptr_t)(/*_.PRECLA__V56*/ meltfptr[55]));; MELT_LOCATION("warmelt-normal.melt:4391:/ cond"); - /*cond*/ if (/*_#SUBCLASS_OF__L15*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#SUBCLASS_OF__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17320,7 +18926,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4392:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLACONT__V35*/ meltfptr[34]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[13]))) ) /*then*/ @@ -17342,7 +18949,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.CLACONT__V35*/ meltfptr[34], "put-fields"); ; - /*_._IFELSE___V60*/ meltfptr[59] = /*_.CLACONT__V35*/ meltfptr[34];; + /*_._IFELSE___V60*/ + meltfptr[59] = /*_.CLACONT__V35*/ meltfptr[34];; /*epilog*/ } ; @@ -17351,7 +18959,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4392:/ cond.else"); - /*_._IFELSE___V60*/ meltfptr[59] = /*reallynil*/ NULL ;; + /*_._IFELSE___V60*/ + meltfptr[59] = /*reallynil*/ NULL ;; } ; /*epilog*/ @@ -17386,7 +18995,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)) @@ -17395,7 +19005,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4395:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17436,16 +19047,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " precla="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PRECLA__V56*/ meltfptr[55]; - /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61] = 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__V62*/ + meltfptr[61] = 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___V61*/ meltfptr[60] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61];; + /*_._IF___V61*/ + meltfptr[60] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4395:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ + meltfptr[61] = 0 ; } ; } @@ -17458,7 +19073,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4395:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -17467,9 +19083,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_._IF___V61*/ + meltfptr[60] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17490,7 +19108,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normal.melt:4399:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLD__V47*/ meltfptr[45]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[19]))) ) /*then*/ @@ -17501,7 +19120,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLD__V47*/ meltfptr[45]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V63*/ meltfptr[61] = slot; + /*_.NAMED_NAME__V63*/ + meltfptr[61] = slot; }; ; } @@ -17512,7 +19132,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:4400:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRECLA__V56*/ meltfptr[55]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[19]))) ) /*then*/ @@ -17523,7 +19144,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PRECLA__V56*/ meltfptr[55]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V64*/ meltfptr[60] = slot; + /*_.NAMED_NAME__V64*/ + meltfptr[60] = slot; }; ; } @@ -17534,7 +19156,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:4401:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FCLA__V55*/ meltfptr[51]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[19]))) ) /*then*/ @@ -17545,7 +19168,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FCLA__V55*/ meltfptr[51]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V65*/ meltfptr[64] = slot; + /*_.NAMED_NAME__V65*/ + meltfptr[64] = slot; }; ; } @@ -17572,74 +19196,96 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V64*/ meltfptr[60]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V65*/ meltfptr[64]; - /*_.ERROR_AT__V66*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V66*/ + meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4394:/ quasiblock"); - /*_.PROGN___V67*/ meltfptr[66] = /*_.ERROR_AT__V66*/ meltfptr[65];; + /*_.PROGN___V67*/ + meltfptr[66] = /*_.ERROR_AT__V66*/ meltfptr[65];; /*^compute*/ - /*_._IFELSE___V60*/ meltfptr[59] = /*_.PROGN___V67*/ meltfptr[66];; + /*_._IFELSE___V60*/ + meltfptr[59] = /*_.PROGN___V67*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4391:/ clear"); - /*clear*/ /*_.NAMED_NAME__V63*/ meltfptr[61] = 0 ; + /*clear*/ /*_.NAMED_NAME__V63*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V64*/ meltfptr[60] = 0 ; + /*clear*/ /*_.NAMED_NAME__V64*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V65*/ meltfptr[64] = 0 ; + /*clear*/ /*_.NAMED_NAME__V65*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.ERROR_AT__V66*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_.PROGN___V67*/ + meltfptr[66] = 0 ; } ; } ; - /*_._IFELSE___V59*/ meltfptr[58] = /*_._IFELSE___V60*/ meltfptr[59];; + /*_._IFELSE___V59*/ + meltfptr[58] = /*_._IFELSE___V60*/ meltfptr[59];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4388:/ clear"); - /*clear*/ /*_#SUBCLASS_OF__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#SUBCLASS_OF__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_._IFELSE___V60*/ + meltfptr[59] = 0 ; } ; } ; - /*_._IFELSE___V58*/ meltfptr[57] = /*_._IFELSE___V59*/ meltfptr[58];; + /*_._IFELSE___V58*/ + meltfptr[57] = /*_._IFELSE___V59*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4385:/ clear"); - /*clear*/ /*_#SUBCLASS_OF__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#SUBCLASS_OF__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_._IFELSE___V59*/ + meltfptr[58] = 0 ; } ; } ; - /*_._IFELSE___V57*/ meltfptr[56] = /*_._IFELSE___V58*/ meltfptr[57];; + /*_._IFELSE___V57*/ + meltfptr[56] = /*_._IFELSE___V58*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4382:/ clear"); - /*clear*/ /*_#eqeq__L13*/ meltfnum[7] = 0 ; + /*clear*/ /*_#eqeq__L13*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_._IFELSE___V58*/ + meltfptr[57] = 0 ; } ; } ; - /*_.LET___V54*/ meltfptr[52] = /*_._IFELSE___V57*/ meltfptr[56];; + /*_.LET___V54*/ + meltfptr[52] = /*_._IFELSE___V57*/ meltfptr[56];; MELT_LOCATION("warmelt-normal.melt:4379:/ clear"); - /*clear*/ /*_.FCLA__V55*/ meltfptr[51] = 0 ; + /*clear*/ /*_.FCLA__V55*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.PRECLA__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.PRECLA__V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L12*/ meltfnum[8] = 0 ; + /*clear*/ /*_#NULL__L12*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_._IFELSE___V57*/ + meltfptr[56] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -17659,7 +19305,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V69*/ meltfptr[60];/*^multimsend.send*/ - /*_.NEXP__V68*/ meltfptr[61] = meltgc_send ((melt_ptr_t)(/*_.EXP__V48*/ meltfptr[41]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[14]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NEXP__V68*/ + meltfptr[61] = meltgc_send ((melt_ptr_t)(/*_.EXP__V48*/ meltfptr[41]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[14]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -17675,7 +19322,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V69*/ meltfptr[60]; - /*_.LIST_APPEND2LIST__V70*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NBINDLIST__V28*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V70*/ + meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NBINDLIST__V28*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4409:/ quasiblock"); @@ -17692,7 +19340,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ meltfrout->tabval[20])), (3), "CLASS_NREP_FIELDASSIGN"); - /*_.INST__V72*/ meltfptr[66] = + /*_.INST__V72*/ + meltfptr[66] = newobj; }; ; @@ -17715,7 +19364,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V72*/ meltfptr[66], "newly made instance"); ; - /*_.NFLA__V71*/ meltfptr[65] = /*_.INST__V72*/ meltfptr[66];; + /*_.NFLA__V71*/ + meltfptr[65] = /*_.INST__V72*/ meltfptr[66];; MELT_LOCATION("warmelt-normal.melt:4413:/ quasiblock"); @@ -17729,16 +19379,19 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.FCTYP__V74*/ meltfptr[58] = meltgc_send((melt_ptr_t)(/*_.NEXP__V68*/ meltfptr[61]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[21])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FCTYP__V74*/ + meltfptr[58] = meltgc_send((melt_ptr_t)(/*_.NEXP__V68*/ meltfptr[61]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[21])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#exeq__L18*/ meltfnum[16] = + /*_#exeq__L18*/ + meltfnum[16] = ((/*_.FCTYP__V74*/ meltfptr[58]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[22])));; MELT_LOCATION("warmelt-normal.melt:4415:/ cond"); - /*cond*/ if (/*_#exeq__L18*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#exeq__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17746,7 +19399,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4419:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLD__V47*/ meltfptr[45]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[19]))) ) /*then*/ @@ -17757,7 +19411,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLD__V47*/ meltfptr[45]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V76*/ meltfptr[51] = slot; + /*_.NAMED_NAME__V76*/ + meltfptr[51] = slot; }; ; } @@ -17768,7 +19423,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:4420:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FCTYP__V74*/ meltfptr[58]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[19]))) ) /*then*/ @@ -17779,7 +19435,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FCTYP__V74*/ meltfptr[58]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V77*/ meltfptr[55] = slot; + /*_.NAMED_NAME__V77*/ + meltfptr[55] = slot; }; ; } @@ -17803,18 +19460,23 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V76*/ meltfptr[51]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V77*/ meltfptr[55]; - /*_.ERROR_AT__V78*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.FSLOC__V50*/ meltfptr[49]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V78*/ + meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.FSLOC__V50*/ meltfptr[49]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V75*/ meltfptr[57] = /*_.ERROR_AT__V78*/ meltfptr[56];; + /*_._IF___V75*/ + meltfptr[57] = /*_.ERROR_AT__V78*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4415:/ clear"); - /*clear*/ /*_.NAMED_NAME__V76*/ meltfptr[51] = 0 ; + /*clear*/ /*_.NAMED_NAME__V76*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V77*/ meltfptr[55] = 0 ; + /*clear*/ /*_.NAMED_NAME__V77*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V78*/ meltfptr[56] = 0 ; + /*clear*/ /*_.ERROR_AT__V78*/ + meltfptr[56] = 0 ; } ; } @@ -17825,14 +19487,18 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V73*/ meltfptr[59] = /*_._IF___V75*/ meltfptr[57];; + /*_.LET___V73*/ + meltfptr[59] = /*_._IF___V75*/ meltfptr[57];; MELT_LOCATION("warmelt-normal.melt:4413:/ clear"); - /*clear*/ /*_.FCTYP__V74*/ meltfptr[58] = 0 ; + /*clear*/ /*_.FCTYP__V74*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#exeq__L18*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V75*/ meltfptr[57] = 0 ; + /*clear*/ /*_._IF___V75*/ + meltfptr[57] = 0 ; { MELT_LOCATION("warmelt-normal.melt:4423:/ locexp"); @@ -17841,49 +19507,63 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:4409:/ clear"); - /*clear*/ /*_.NFLA__V71*/ meltfptr[65] = 0 ; + /*clear*/ /*_.NFLA__V71*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V73*/ meltfptr[59] = 0 ; + /*clear*/ /*_.LET___V73*/ + meltfptr[59] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4405:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V70*/ meltfptr[64] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V70*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.NEXPBIND__V69*/ meltfptr[60] = 0 ; + /*clear*/ /*_.NEXPBIND__V69*/ + meltfptr[60] = 0 ; MELT_LOCATION("warmelt-normal.melt:4374:/ clear"); - /*clear*/ /*_.FLD__V47*/ meltfptr[45] = 0 ; + /*clear*/ /*_.FLD__V47*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.EXP__V48*/ meltfptr[41] = 0 ; + /*clear*/ /*_.EXP__V48*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.LOCA_LOCATION__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.LOCA_LOCATION__V49*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.FSLOC__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.FSLOC__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.IFCPP___V51*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V54*/ meltfptr[52] = 0 ; + /*clear*/ /*_.LET___V54*/ + meltfptr[52] = 0 ; if (/*_#IX__L7*/ meltfnum[0]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:4369:/ clear"); - /*clear*/ /*_.FLA__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.FLA__V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IX__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V44*/ meltfptr[42] = 0 ; + /*clear*/ /*_.IFCPP___V44*/ + meltfptr[42] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-normal.melt:4425:/ quasiblock"); MELT_LOCATION("warmelt-normal.melt:4426:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLACONT__V35*/ meltfptr[34]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[13]))) ) /*then*/ @@ -17894,7 +19574,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLACONT__V35*/ meltfptr[34]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V80*/ meltfptr[55] = slot; + /*_.REFERENCED_VALUE__V80*/ + meltfptr[55] = slot; }; ; } @@ -17918,7 +19599,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; - /*_.NCLA__V81*/ meltfptr[56] = meltgc_send((melt_ptr_t)(/*_.REFERENCED_VALUE__V80*/ meltfptr[55]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NCLA__V81*/ + meltfptr[56] = meltgc_send((melt_ptr_t)(/*_.REFERENCED_VALUE__V80*/ meltfptr[55]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -17932,7 +19614,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_PUT_FIELDS*/ meltfrout->tabval[23])), (3), "CLASS_NREP_UNSAFE_PUT_FIELDS"); - /*_.INST__V83*/ meltfptr[57] = + /*_.INST__V83*/ + meltfptr[57] = newobj; }; ; @@ -17955,7 +19638,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V83*/ meltfptr[57], "newly made instance"); ; - /*_.NPUF__V82*/ meltfptr[58] = /*_.INST__V83*/ meltfptr[57];; + /*_.NPUF__V82*/ + meltfptr[58] = /*_.INST__V83*/ meltfptr[57];; MELT_CHECK_SIGNAL(); ; @@ -17967,7 +19651,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IFISA*/ meltfrout->tabval[24])), (6), "CLASS_NREP_IFISA"); - /*_.INST__V85*/ meltfptr[59] = + /*_.INST__V85*/ + meltfptr[59] = newobj; }; ; @@ -18000,7 +19685,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V85*/ meltfptr[59], "newly made instance"); ; - /*_.NIF__V84*/ meltfptr[65] = /*_.INST__V85*/ meltfptr[59];; + /*_.NIF__V84*/ + meltfptr[65] = /*_.INST__V85*/ meltfptr[59];; MELT_CHECK_SIGNAL(); ; @@ -18046,7 +19732,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)) @@ -18055,7 +19742,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4441:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18092,16 +19780,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbindlist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDLIST__V28*/ meltfptr[27]; - /*_.MELT_DEBUG_FUN__V87*/ meltfptr[61] = 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__V87*/ + meltfptr[61] = 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___V86*/ meltfptr[64] = /*_.MELT_DEBUG_FUN__V87*/ meltfptr[61];; + /*_._IF___V86*/ + meltfptr[64] = /*_.MELT_DEBUG_FUN__V87*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4441:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V87*/ meltfptr[61] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V87*/ + meltfptr[61] = 0 ; } ; } @@ -18114,7 +19806,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4441:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18123,9 +19816,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V86*/ meltfptr[64] = 0 ; + /*clear*/ /*_._IF___V86*/ + meltfptr[64] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18151,7 +19846,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4442:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V33*/ meltfptr[32];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V33*/ meltfptr[32];; MELT_LOCATION("warmelt-normal.melt:4442:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -18159,68 +19855,95 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V79*/ meltfptr[51] = /*_.RETURN___V88*/ meltfptr[60];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V79*/ + meltfptr[51] = /*_.RETURN___V88*/ meltfptr[60];; MELT_LOCATION("warmelt-normal.melt:4425:/ clear"); - /*clear*/ /*_.REFERENCED_VALUE__V80*/ meltfptr[55] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V80*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.NCLA__V81*/ meltfptr[56] = 0 ; + /*clear*/ /*_.NCLA__V81*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.NPUF__V82*/ meltfptr[58] = 0 ; + /*clear*/ /*_.NPUF__V82*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.NIF__V84*/ meltfptr[65] = 0 ; + /*clear*/ /*_.NIF__V84*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V88*/ meltfptr[60] = 0 ; + /*clear*/ /*_.RETURN___V88*/ + meltfptr[60] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V37*/ meltfptr[36] = /*_.LET___V79*/ meltfptr[51];; + /*_.MULTI___V37*/ + meltfptr[36] = /*_.LET___V79*/ meltfptr[51];; MELT_LOCATION("warmelt-normal.melt:4365:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V79*/ meltfptr[51] = 0 ; + /*clear*/ /*_.LET___V79*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.NOBJBIND__V39*/ meltfptr[38] = 0 ; - /*_.LET___V17*/ meltfptr[6] = /*_.MULTI___V37*/ meltfptr[36];; + /*clear*/ /*_.NOBJBIND__V39*/ + meltfptr[38] = 0 ; + /*_.LET___V17*/ + meltfptr[6] = /*_.MULTI___V37*/ meltfptr[36];; MELT_LOCATION("warmelt-normal.melt:4338:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[13] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.SOBJ__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SOBJ__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SFIELDS__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SFIELDS__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#NBFIELDS__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#NBFIELDS__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.NFIELDS__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.NFIELDS__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.CSYM__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTSYMB__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.CINTSYMB__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHINT__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.NCHINT__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.CINTBIND__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDLIST__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.NBINDLIST__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V31*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CBIND__V31*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.CLOCC__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.CLACONT__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.CLACONT__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.MULTI___V37*/ + meltfptr[36] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4333:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; { MELT_LOCATION("warmelt-normal.melt:4333:/ locexp"); @@ -18235,17 +19958,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 ; } ; @@ -18327,7 +20055,8 @@ meltrout_72_WARMELTmiNORMAL_NORMEXP_SETQ(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_72_WARMELTmiNORMAL_NORMEXP_SETQ fromline 1756 */ - /* classy proc frame meltrout_72_WARMELTmiNORMAL_NORMEXP_SETQ */ MeltFrame_meltrout_72_WARMELTmiNORMAL_NORMEXP_SETQ + /* classy proc frame meltrout_72_WARMELTmiNORMAL_NORMEXP_SETQ */ + MeltFrame_meltrout_72_WARMELTmiNORMAL_NORMEXP_SETQ meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_72_WARMELTmiNORMAL_NORMEXP_SETQ fromline 1785*/ #if ENABLE_CHECKING @@ -18340,7 +20069,8 @@ meltrout_72_WARMELTmiNORMAL_NORMEXP_SETQ(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("NORMEXP_SETQ", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -18350,26 +20080,30 @@ meltrout_72_WARMELTmiNORMAL_NORMEXP_SETQ(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4448:/ 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); ; @@ -18401,7 +20135,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)) @@ -18410,7 +20145,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4449:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18443,16 +20179,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp setq 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:4449:/ 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 ; } ; } @@ -18465,7 +20205,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4449:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18474,9 +20215,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*/ @@ -18506,10 +20249,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_SETQ*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:4450:/ 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);; @@ -18538,25 +20283,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4450; /*^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:4450:/ 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:4450:/ 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*/ @@ -18574,10 +20325,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:4451:/ 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);; @@ -18606,25 +20359,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4451; /*^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:4451:/ 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:4451:/ 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*/ @@ -18642,10 +20401,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:4452:/ 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);; @@ -18674,25 +20435,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4452; /*^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:4452:/ 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:4452:/ 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*/ @@ -18708,7 +20475,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:4454:/ getslot"); @@ -18716,7 +20484,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, "SSTQ_VAR"); - /*_.SVAR__V19*/ meltfptr[18] = slot; + /*_.SVAR__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4455:/ getslot"); @@ -18724,7 +20493,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, "SSTQ_EXPR"); - /*_.SEXP__V20*/ meltfptr[19] = slot; + /*_.SEXP__V20*/ + meltfptr[19] = slot; }; ; @@ -18737,10 +20507,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[0] = + /*_#IS_A__L6*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SVAR__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:4456:/ 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);; @@ -18769,25 +20541,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4456; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SVAR__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:4456:/ 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:4456:/ 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*/ @@ -18812,7 +20590,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]; - /*_.NVAR__V25*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SVAR__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NVAR__V25*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SVAR__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -18825,7 +20604,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.VARCTYP__V26*/ meltfptr[25] = meltgc_send((melt_ptr_t)(/*_.NVAR__V25*/ meltfptr[21]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.VARCTYP__V26*/ + meltfptr[25] = meltgc_send((melt_ptr_t)(/*_.NVAR__V25*/ meltfptr[21]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -18848,7 +20628,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)) @@ -18857,7 +20638,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4460:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18890,16 +20672,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_setq varctyp"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.VARCTYP__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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V28*/ + meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V27*/ meltfptr[26] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; + /*_._IF___V27*/ + meltfptr[26] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4460:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ + meltfptr[27] = 0 ; } ; } @@ -18912,7 +20698,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4460:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18921,9 +20708,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IF___V27*/ + meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18953,10 +20742,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[0] = + /*_#IS_A__L9*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.VARCTYP__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:4461:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V30*/ meltfptr[26] = (/*nil*/NULL);; @@ -18985,25 +20776,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4461; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VARCTYP__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:4461:/ 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:4461:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V30*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IFELSE___V30*/ + meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19030,7 +20827,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V34*/ meltfptr[33];/*^multimsend.send*/ - /*_.NEXP__V33*/ meltfptr[26] = meltgc_send ((melt_ptr_t)(/*_.SEXP__V20*/ meltfptr[19]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[9]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NEXP__V33*/ + meltfptr[26] = meltgc_send ((melt_ptr_t)(/*_.SEXP__V20*/ meltfptr[19]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[9]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -19039,10 +20837,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L10*/ meltfnum[1] = + /*_#NULL__L10*/ + meltfnum[1] = (/*null*/(/*_.NBIND__V34*/ meltfptr[33]) == NULL);; MELT_LOCATION("warmelt-normal.melt:4465:/ cond"); - /*cond*/ if (/*_#NULL__L10*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#NULL__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19052,14 +20852,18 @@ meltlab_endgetargs: /*_.MAKE_LIST__V36*/ meltfptr[35] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[10]))));; MELT_LOCATION("warmelt-normal.melt:4465:/ compute"); - /*_.NBIND__V34*/ meltfptr[33] = /*_.SETQ___V37*/ meltfptr[36] = /*_.MAKE_LIST__V36*/ meltfptr[35];; - /*_._IF___V35*/ meltfptr[34] = /*_.SETQ___V37*/ meltfptr[36];; + /*_.NBIND__V34*/ + meltfptr[33] = /*_.SETQ___V37*/ meltfptr[36] = /*_.MAKE_LIST__V36*/ meltfptr[35];; + /*_._IF___V35*/ + meltfptr[34] = /*_.SETQ___V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4465:/ clear"); - /*clear*/ /*_.MAKE_LIST__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MAKE_LIST__V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.SETQ___V37*/ + meltfptr[36] = 0 ; } ; } @@ -19082,7 +20886,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.EXPCTYP__V39*/ meltfptr[36] = meltgc_send((melt_ptr_t)(/*_.NEXP__V33*/ meltfptr[26]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.EXPCTYP__V39*/ + meltfptr[36] = meltgc_send((melt_ptr_t)(/*_.NEXP__V33*/ meltfptr[26]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -19105,7 +20910,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L11*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19114,7 +20920,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4468:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L11*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19147,16 +20954,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_setq expctyp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.EXPCTYP__V39*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V40*/ meltfptr[39] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];; + /*_._IF___V40*/ + meltfptr[39] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4468:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[40] = 0 ; } ; } @@ -19169,7 +20980,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4468:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19178,9 +20990,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V40*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19210,10 +21024,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L13*/ meltfnum[11] = + /*_#IS_A__L13*/ + meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.EXPCTYP__V39*/ meltfptr[36]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:4469:/ cond"); - /*cond*/ if (/*_#IS_A__L13*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#IS_A__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V43*/ meltfptr[39] = (/*nil*/NULL);; @@ -19242,25 +21058,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4469; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.EXPCTYP__V39*/ meltfptr[36]; - /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V44*/ + meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V43*/ meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[43];; + /*_._IFELSE___V43*/ + meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4469:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V44*/ + meltfptr[43] = 0 ; } ; } ; - /*_.IFCPP___V42*/ meltfptr[40] = /*_._IFELSE___V43*/ meltfptr[39];; + /*_.IFCPP___V42*/ + meltfptr[40] = /*_._IFELSE___V43*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4469:/ clear"); - /*clear*/ /*_#IS_A__L13*/ meltfnum[11] = 0 ; + /*clear*/ /*_#IS_A__L13*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V43*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IFELSE___V43*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19272,10 +21094,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#exeq__L14*/ meltfnum[0] = + /*_#exeq__L14*/ + meltfnum[0] = ((/*_.VARCTYP__V26*/ meltfptr[25]) != (/*_.EXPCTYP__V39*/ meltfptr[36]));; MELT_LOCATION("warmelt-normal.melt:4470:/ cond"); - /*cond*/ if (/*_#exeq__L14*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#exeq__L14*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19287,7 +21111,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SVAR__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V46*/ meltfptr[39] = slot; + /*_.NAMED_NAME__V46*/ + meltfptr[39] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4473:/ getslot"); @@ -19295,7 +21120,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.VARCTYP__V26*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V47*/ meltfptr[46] = slot; + /*_.NAMED_NAME__V47*/ + meltfptr[46] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4474:/ getslot"); @@ -19303,7 +21129,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.EXPCTYP__V39*/ meltfptr[36]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V48*/ meltfptr[47] = slot; + /*_.NAMED_NAME__V48*/ + meltfptr[47] = slot; }; ; @@ -19322,27 +21149,35 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V47*/ meltfptr[46]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V48*/ meltfptr[47]; - /*_.ERROR_AT__V49*/ meltfptr[48] = 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 ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V49*/ + meltfptr[48] = 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 ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4470:/ quasiblock"); - /*_.PROGN___V50*/ meltfptr[49] = /*_.ERROR_AT__V49*/ meltfptr[48];; + /*_.PROGN___V50*/ + meltfptr[49] = /*_.ERROR_AT__V49*/ meltfptr[48];; /*^compute*/ - /*_._IF___V45*/ meltfptr[43] = /*_.PROGN___V50*/ meltfptr[49];; + /*_._IF___V45*/ + meltfptr[43] = /*_.PROGN___V50*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4470:/ clear"); - /*clear*/ /*_.NAMED_NAME__V46*/ meltfptr[39] = 0 ; + /*clear*/ /*_.NAMED_NAME__V46*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.NAMED_NAME__V47*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.NAMED_NAME__V48*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.ERROR_AT__V49*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.PROGN___V50*/ + meltfptr[49] = 0 ; } ; } @@ -19353,23 +21188,30 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V38*/ meltfptr[35] = /*_._IF___V45*/ meltfptr[43];; + /*_.LET___V38*/ + meltfptr[35] = /*_._IF___V45*/ meltfptr[43];; MELT_LOCATION("warmelt-normal.melt:4466:/ clear"); - /*clear*/ /*_.EXPCTYP__V39*/ meltfptr[36] = 0 ; + /*clear*/ /*_.EXPCTYP__V39*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V42*/ meltfptr[40] = 0 ; + /*clear*/ /*_.IFCPP___V42*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L14*/ meltfnum[0] = 0 ; + /*clear*/ /*_#exeq__L14*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V45*/ meltfptr[43] = 0 ; + /*clear*/ /*_._IF___V45*/ + meltfptr[43] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L15*/ meltfnum[11] = + /*_#IS_A__L15*/ + meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.NVAR__V25*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_MODULEVAROCC*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:4476:/ cond"); - /*cond*/ if (/*_#IS_A__L15*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#IS_A__L15*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19396,7 +21238,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)) @@ -19405,7 +21248,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4477:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19442,16 +21286,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nvar="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NVAR__V25*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V53*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V53*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V52*/ meltfptr[46] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[47];; + /*_._IF___V52*/ + meltfptr[46] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4477:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V53*/ meltfptr[47] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V53*/ + meltfptr[47] = 0 ; } ; } @@ -19464,7 +21312,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4477:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19473,9 +21322,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V52*/ meltfptr[46] = 0 ; + /*clear*/ /*_._IF___V52*/ + meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19521,7 +21372,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PUTMODULEVAR*/ meltfrout->tabval[17])), (3), "CLASS_NREP_PUTMODULEVAR"); - /*_.INST__V57*/ meltfptr[40] = + /*_.INST__V57*/ + meltfptr[40] = newobj; }; ; @@ -19544,7 +21396,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V57*/ meltfptr[40], "newly made instance"); ; - /*_.INST___V56*/ meltfptr[36] = /*_.INST__V57*/ meltfptr[40];; + /*_.INST___V56*/ + meltfptr[36] = /*_.INST__V57*/ meltfptr[40];; MELT_LOCATION("warmelt-normal.melt:4479:/ quasiblock"); @@ -19553,7 +21406,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__V59*/ meltfptr[47] = + /*_.INST__V59*/ + meltfptr[47] = newobj; }; ; @@ -19581,7 +21435,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V59*/ meltfptr[47], "newly made instance"); ; - /*_.CSBIND__V58*/ meltfptr[43] = /*_.INST__V59*/ meltfptr[47];; + /*_.CSBIND__V58*/ + meltfptr[43] = /*_.INST__V59*/ meltfptr[47];; MELT_CHECK_SIGNAL(); ; @@ -19593,7 +21448,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__V61*/ meltfptr[60] = + /*_.INST__V61*/ + meltfptr[60] = newobj; }; ; @@ -19621,7 +21477,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V61*/ meltfptr[60], "newly made instance"); ; - /*_.CSLOCC__V60*/ meltfptr[46] = /*_.INST__V61*/ meltfptr[60];; + /*_.CSLOCC__V60*/ + meltfptr[46] = /*_.INST__V61*/ meltfptr[60];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:4495:/ cppif.then"); @@ -19642,7 +21499,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)) @@ -19651,7 +21509,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4495:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19688,16 +21547,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n cslocc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CSLOCC__V60*/ meltfptr[46]; - /*_.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:4495:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ + meltfptr[62] = 0 ; } ; } @@ -19710,7 +21573,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4495:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19719,9 +21583,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_._IF___V62*/ + meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19753,7 +21619,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4497:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CSLOCC__V60*/ meltfptr[46];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CSLOCC__V60*/ meltfptr[46];; MELT_LOCATION("warmelt-normal.melt:4497:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -19761,31 +21628,42 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V54*/ meltfptr[48] = /*_.RETURN___V64*/ meltfptr[62];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V54*/ + meltfptr[48] = /*_.RETURN___V64*/ meltfptr[62];; MELT_LOCATION("warmelt-normal.melt:4478:/ clear"); - /*clear*/ /*_.CSYM__V55*/ meltfptr[49] = 0 ; + /*clear*/ /*_.CSYM__V55*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V56*/ meltfptr[36] = 0 ; + /*clear*/ /*_.INST___V56*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.CSBIND__V58*/ meltfptr[43] = 0 ; + /*clear*/ /*_.CSBIND__V58*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.CSLOCC__V60*/ meltfptr[46] = 0 ; + /*clear*/ /*_.CSLOCC__V60*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V64*/ meltfptr[62] = 0 ; + /*clear*/ /*_.RETURN___V64*/ + meltfptr[62] = 0 ; MELT_LOCATION("warmelt-normal.melt:4476:/ quasiblock"); - /*_.PROGN___V65*/ meltfptr[61] = /*_.LET___V54*/ meltfptr[48];; + /*_.PROGN___V65*/ + meltfptr[61] = /*_.LET___V54*/ meltfptr[48];; /*^compute*/ - /*_._IF___V51*/ meltfptr[39] = /*_.PROGN___V65*/ meltfptr[61];; + /*_._IF___V51*/ + meltfptr[39] = /*_.PROGN___V65*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4476:/ clear"); - /*clear*/ /*_.LET___V54*/ meltfptr[48] = 0 ; + /*clear*/ /*_.LET___V54*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V65*/ meltfptr[61] = 0 ; + /*clear*/ /*_.PROGN___V65*/ + meltfptr[61] = 0 ; } ; } @@ -19821,7 +21699,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_SETQ*/ meltfrout->tabval[20])), (3), "CLASS_NREP_SETQ"); - /*_.INST__V69*/ meltfptr[46] = + /*_.INST__V69*/ + meltfptr[46] = newobj; }; ; @@ -19844,7 +21723,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V69*/ meltfptr[46], "newly made instance"); ; - /*_.INST___V68*/ meltfptr[43] = /*_.INST__V69*/ meltfptr[46];; + /*_.INST___V68*/ + meltfptr[43] = /*_.INST__V69*/ meltfptr[46];; MELT_LOCATION("warmelt-normal.melt:4501:/ quasiblock"); @@ -19853,7 +21733,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__V71*/ meltfptr[48] = + /*_.INST__V71*/ + meltfptr[48] = newobj; }; ; @@ -19881,7 +21762,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V71*/ meltfptr[48], "newly made instance"); ; - /*_.CBIND__V70*/ meltfptr[62] = /*_.INST__V71*/ meltfptr[48];; + /*_.CBIND__V70*/ + meltfptr[62] = /*_.INST__V71*/ meltfptr[48];; MELT_CHECK_SIGNAL(); ; @@ -19893,7 +21775,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__V73*/ meltfptr[72] = + /*_.INST__V73*/ + meltfptr[72] = newobj; }; ; @@ -19921,7 +21804,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V73*/ meltfptr[72], "newly made instance"); ; - /*_.CLOCC__V72*/ meltfptr[61] = /*_.INST__V73*/ meltfptr[72];; + /*_.CLOCC__V72*/ + meltfptr[61] = /*_.INST__V73*/ meltfptr[72];; { MELT_LOCATION("warmelt-normal.melt:4516:/ locexp"); @@ -19934,7 +21818,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4517:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V72*/ meltfptr[61];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V72*/ meltfptr[61];; MELT_LOCATION("warmelt-normal.melt:4517:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -19942,68 +21827,95 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V66*/ meltfptr[49] = /*_.RETURN___V74*/ meltfptr[73];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V66*/ + meltfptr[49] = /*_.RETURN___V74*/ meltfptr[73];; MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.CSYM__V67*/ meltfptr[36] = 0 ; + /*clear*/ /*_.CSYM__V67*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V68*/ meltfptr[43] = 0 ; + /*clear*/ /*_.INST___V68*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V70*/ meltfptr[62] = 0 ; + /*clear*/ /*_.CBIND__V70*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V72*/ meltfptr[61] = 0 ; + /*clear*/ /*_.CLOCC__V72*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V74*/ meltfptr[73] = 0 ; + /*clear*/ /*_.RETURN___V74*/ + meltfptr[73] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V32*/ meltfptr[30] = /*_.LET___V66*/ meltfptr[49];; + /*_.MULTI___V32*/ + meltfptr[30] = /*_.LET___V66*/ meltfptr[49];; MELT_LOCATION("warmelt-normal.melt:4462:/ clear"); - /*clear*/ /*_#NULL__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IF___V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V38*/ meltfptr[35] = 0 ; + /*clear*/ /*_.LET___V38*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L15*/ meltfnum[11] = 0 ; + /*clear*/ /*_#IS_A__L15*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V51*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V51*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V66*/ meltfptr[49] = 0 ; + /*clear*/ /*_.LET___V66*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V34*/ meltfptr[33] = 0 ; - /*_.LET___V24*/ meltfptr[22] = /*_.MULTI___V32*/ meltfptr[30];; + /*clear*/ /*_.NBIND__V34*/ + meltfptr[33] = 0 ; + /*_.LET___V24*/ + meltfptr[22] = /*_.MULTI___V32*/ meltfptr[30];; MELT_LOCATION("warmelt-normal.melt:4457:/ clear"); - /*clear*/ /*_.NVAR__V25*/ meltfptr[21] = 0 ; + /*clear*/ /*_.NVAR__V25*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.VARCTYP__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.VARCTYP__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V29*/ meltfptr[27] = 0 ; + /*clear*/ /*_.IFCPP___V29*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V32*/ meltfptr[30] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.LET___V24*/ meltfptr[22];; + /*clear*/ /*_.MULTI___V32*/ + meltfptr[30] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.LET___V24*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:4453:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SVAR__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SVAR__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SEXP__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SEXP__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.IFCPP___V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V24*/ meltfptr[22] = 0 ; + /*clear*/ /*_.LET___V24*/ + meltfptr[22] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4448:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:4448:/ locexp"); @@ -20018,17 +21930,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 ; } ; @@ -20110,7 +22027,8 @@ meltrout_73_WARMELTmiNORMAL_LAMBDA_cl17(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_73_WARMELTmiNORMAL_LAMBDA_cl17 fromline 1756 */ - /* classy proc frame meltrout_73_WARMELTmiNORMAL_LAMBDA_cl17 */ MeltFrame_meltrout_73_WARMELTmiNORMAL_LAMBDA_cl17 + /* classy proc frame meltrout_73_WARMELTmiNORMAL_LAMBDA_cl17 */ + MeltFrame_meltrout_73_WARMELTmiNORMAL_LAMBDA_cl17 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_73_WARMELTmiNORMAL_LAMBDA_cl17 fromline 1785*/ #if ENABLE_CHECKING @@ -20123,7 +22041,8 @@ meltrout_73_WARMELTmiNORMAL_LAMBDA_cl17(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl17", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -20133,12 +22052,14 @@ meltrout_73_WARMELTmiNORMAL_LAMBDA_cl17(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4521:/ 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); ; @@ -20155,7 +22076,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, "NSTQ_VAR"); - /*_.NSTQ_VAR__V4*/ meltfptr[3] = slot; + /*_.NSTQ_VAR__V4*/ + meltfptr[3] = slot; }; ; @@ -20168,13 +22090,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.GET_CTYPE__V5*/ meltfptr[4] = meltgc_send((melt_ptr_t)(/*_.NSTQ_VAR__V4*/ meltfptr[3]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GET_CTYPE__V5*/ + meltfptr[4] = meltgc_send((melt_ptr_t)(/*_.NSTQ_VAR__V4*/ meltfptr[3]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4521:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.GET_CTYPE__V5*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.GET_CTYPE__V5*/ meltfptr[4];; { MELT_LOCATION("warmelt-normal.melt:4521:/ locexp"); @@ -20189,13 +22113,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.NSTQ_VAR__V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.NSTQ_VAR__V4*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.GET_CTYPE__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.GET_CTYPE__V5*/ + meltfptr[4] = 0 ; } ; @@ -20277,7 +22204,8 @@ meltrout_74_WARMELTmiNORMAL_NORMEXP_INSTANCE(meltclosure_ptr_t meltclosp_, melt_ /* end of frame for routine meltrout_74_WARMELTmiNORMAL_NORMEXP_INSTANCE fromline 1756 */ - /* classy proc frame meltrout_74_WARMELTmiNORMAL_NORMEXP_INSTANCE */ MeltFrame_meltrout_74_WARMELTmiNORMAL_NORMEXP_INSTANCE + /* classy proc frame meltrout_74_WARMELTmiNORMAL_NORMEXP_INSTANCE */ + MeltFrame_meltrout_74_WARMELTmiNORMAL_NORMEXP_INSTANCE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_74_WARMELTmiNORMAL_NORMEXP_INSTANCE fromline 1785*/ #if ENABLE_CHECKING @@ -20290,7 +22218,8 @@ meltrout_74_WARMELTmiNORMAL_NORMEXP_INSTANCE(meltclosure_ptr_t meltclosp_, melt_ #define meltframe meltfram__ melt_trace_start("NORMEXP_INSTANCE", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -20300,26 +22229,30 @@ meltrout_74_WARMELTmiNORMAL_NORMEXP_INSTANCE(meltclosure_ptr_t meltclosp_, melt_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4528:/ 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); ; @@ -20341,10 +22274,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_INSTANCE*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:4529:/ 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);; @@ -20373,25 +22308,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4529; /*^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:4529:/ 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:4529:/ 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*/ @@ -20409,10 +22350,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:4530:/ 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);; @@ -20441,25 +22384,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4530; /*^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:4530:/ 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:4530:/ 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*/ @@ -20477,10 +22426,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:4531:/ 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);; @@ -20509,25 +22460,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4531; /*^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:4531:/ 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:4531:/ 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*/ @@ -20555,7 +22512,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)) @@ -20564,7 +22522,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4532:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20597,16 +22556,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_instance 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:4532:/ 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 ; } ; } @@ -20619,7 +22582,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4532:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20628,9 +22592,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*/ @@ -20658,7 +22624,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:4534:/ getslot"); @@ -20666,7 +22633,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, "SMINS_CLASS"); - /*_.SCLASS__V19*/ meltfptr[18] = slot; + /*_.SCLASS__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4535:/ getslot"); @@ -20674,7 +22642,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, "SMINS_CLABIND"); - /*_.SCLABIND__V20*/ meltfptr[19] = slot; + /*_.SCLABIND__V20*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4536:/ getslot"); @@ -20682,16 +22651,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, 4, "SMINS_FIELDS"); - /*_.SFIELDS__V21*/ meltfptr[20] = slot; + /*_.SFIELDS__V21*/ + meltfptr[20] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[4] = + /*_#IS_A__L6*/ + meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.SCLABIND__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:4537:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20703,14 +22675,17 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SCLABIND__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V23*/ meltfptr[22] = slot; + /*_.BINDER__V23*/ + meltfptr[22] = slot; }; ; - /*_.SCLASYM__V22*/ meltfptr[21] = /*_.BINDER__V23*/ meltfptr[22];; + /*_.SCLASYM__V22*/ + meltfptr[21] = /*_.BINDER__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4537:/ clear"); - /*clear*/ /*_.BINDER__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.BINDER__V23*/ + meltfptr[22] = 0 ; } ; } @@ -20724,10 +22699,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L7*/ meltfnum[0] = + /*_#IS_A__L7*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SCLASYM__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normal.melt:4538:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20748,14 +22725,17 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; - /*_.NORMAL_EXP__V25*/ meltfptr[24] = meltgc_send((melt_ptr_t)(/*_.SCLASYM__V22*/ meltfptr[21]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_EXP__V25*/ + meltfptr[24] = meltgc_send((melt_ptr_t)(/*_.SCLASYM__V22*/ meltfptr[21]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.CLADATA__V24*/ meltfptr[22] = /*_.NORMAL_EXP__V25*/ meltfptr[24];; + /*_.CLADATA__V24*/ + meltfptr[22] = /*_.NORMAL_EXP__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4538:/ clear"); - /*clear*/ /*_.NORMAL_EXP__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.NORMAL_EXP__V25*/ + meltfptr[24] = 0 ; } ; } @@ -20785,7 +22765,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHECKSIGNAL*/ meltfrout->tabval[10])), (1), "CLASS_NREP_CHECKSIGNAL"); - /*_.INST__V28*/ meltfptr[27] = + /*_.INST__V28*/ + meltfptr[27] = newobj; }; ; @@ -20798,7 +22779,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V28*/ meltfptr[27], "newly made instance"); ; - /*_.NCHINT__V27*/ meltfptr[26] = /*_.INST__V28*/ meltfptr[27];; + /*_.NCHINT__V27*/ + meltfptr[26] = /*_.INST__V28*/ meltfptr[27];; MELT_CHECK_SIGNAL(); ; @@ -20810,7 +22792,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[11])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V30*/ meltfptr[29] = + /*_.INST__V30*/ + meltfptr[29] = newobj; }; ; @@ -20833,7 +22816,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V30*/ meltfptr[29], "newly made instance"); ; - /*_.CINTBIND__V29*/ meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; + /*_.CINTBIND__V29*/ + meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; MELT_LOCATION("warmelt-normal.melt:4547:/ blockmultialloc"); /*multiallocblock*/ { @@ -20846,11 +22830,13 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0__CINTBIND_x7*/ - /*_.CINTBIND__V32*/ meltfptr[31] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x7; + /*_.CINTBIND__V32*/ + meltfptr[31] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x7; meltletrec_1_ptr->rpair_0__CINTBIND_x7.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ - /*_.LIST___V33*/ meltfptr[32] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; + /*_.LIST___V33*/ + meltfptr[32] = (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)))); @@ -20872,26 +22858,33 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V33*/ meltfptr[32]); ; - /*_.BINDLIST__V31*/ meltfptr[30] = /*_.LIST___V33*/ meltfptr[32];; + /*_.BINDLIST__V31*/ + meltfptr[30] = /*_.LIST___V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4547:/ clear"); - /*clear*/ /*_.CINTBIND__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.CINTBIND__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.LIST___V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.CINTBIND__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.LIST___V33*/ + meltfptr[32] = 0 ; } /*end multiallocblock*/ ; MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L8*/ meltfnum[7] = + /*_#IS_NOT_A__L8*/ + meltfnum[7] = !melt_is_instance_of((melt_ptr_t)(/*_.SCLASS__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-normal.melt:4551:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L8*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20918,7 +22911,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20927,7 +22921,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4552:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20960,16 +22955,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_instance bad sclass"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SCLASS__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 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[35] = 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[35];; + /*_._IF___V35*/ + meltfptr[32] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4552:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ + meltfptr[35] = 0 ; } ; } @@ -20982,7 +22981,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4552:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20991,9 +22991,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V35*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V35*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21023,7 +23025,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "bad class in (INSTANCE <class> [:field1 <expr1> ...]) expression"; - /*_.ERROR_AT__V37*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V37*/ + meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -21032,7 +23035,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4554:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-normal.melt:4554:/ locexp"); @@ -21047,21 +23051,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:4551:/ quasiblock"); - /*_.PROGN___V39*/ meltfptr[38] = /*_.RETURN___V38*/ meltfptr[32];; + /*_.PROGN___V39*/ + meltfptr[38] = /*_.RETURN___V38*/ meltfptr[32];; /*^compute*/ - /*_._IFELSE___V34*/ meltfptr[31] = /*_.PROGN___V39*/ meltfptr[38];; + /*_._IFELSE___V34*/ + meltfptr[31] = /*_.PROGN___V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4551:/ clear"); - /*clear*/ /*_.ERROR_AT__V37*/ meltfptr[35] = 0 ; + /*clear*/ /*_.ERROR_AT__V37*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V38*/ meltfptr[32] = 0 ; + /*clear*/ /*_.RETURN___V38*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.PROGN___V39*/ + meltfptr[38] = 0 ; } ; } @@ -21075,10 +23085,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L11*/ meltfnum[9] = + /*_#IS_NOT_A__L11*/ + meltfnum[9] = !melt_is_instance_of((melt_ptr_t)(/*_.CLADATA__V24*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[15])));; MELT_LOCATION("warmelt-normal.melt:4556:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L11*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21105,7 +23117,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21114,7 +23127,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4557:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21147,16 +23161,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_instance bad cladata"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLADATA__V24*/ meltfptr[22]; - /*_.MELT_DEBUG_FUN__V42*/ meltfptr[38] = 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__V42*/ + meltfptr[38] = 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___V41*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[38];; + /*_._IF___V41*/ + meltfptr[32] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4557:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ + meltfptr[38] = 0 ; } ; } @@ -21169,7 +23187,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4557:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21178,9 +23197,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V41*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V41*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21201,7 +23222,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normal.melt:4559:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SCLASS__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[16]))) ) /*then*/ @@ -21212,7 +23234,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SCLASS__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V43*/ meltfptr[38] = slot; + /*_.NAMED_NAME__V43*/ + meltfptr[38] = slot; }; ; } @@ -21234,7 +23257,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "invalid class $1 in (INSTANCE <class> [:field1 <expr1> ...]) expression"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V43*/ meltfptr[38]; - /*_.ERROR_AT__V44*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V44*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -21243,7 +23267,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4560:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-normal.melt:4560:/ locexp"); @@ -21258,23 +23283,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:4556:/ quasiblock"); - /*_.PROGN___V46*/ meltfptr[45] = /*_.RETURN___V45*/ meltfptr[44];; + /*_.PROGN___V46*/ + meltfptr[45] = /*_.RETURN___V45*/ meltfptr[44];; /*^compute*/ - /*_._IFELSE___V40*/ meltfptr[35] = /*_.PROGN___V46*/ meltfptr[45];; + /*_._IFELSE___V40*/ + meltfptr[35] = /*_.PROGN___V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4556:/ clear"); - /*clear*/ /*_.NAMED_NAME__V43*/ meltfptr[38] = 0 ; + /*clear*/ /*_.NAMED_NAME__V43*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V44*/ meltfptr[32] = 0 ; + /*clear*/ /*_.ERROR_AT__V44*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.RETURN___V45*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.PROGN___V46*/ + meltfptr[45] = 0 ; } ; } @@ -21285,13 +23317,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_._IFELSE___V34*/ meltfptr[31] = /*_._IFELSE___V40*/ meltfptr[35];; + /*_._IFELSE___V34*/ + meltfptr[31] = /*_._IFELSE___V40*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4551:/ clear"); - /*clear*/ /*_#IS_NOT_A__L11*/ meltfnum[9] = 0 ; + /*clear*/ /*_#IS_NOT_A__L11*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V40*/ meltfptr[35] = 0 ; + /*clear*/ /*_._IFELSE___V40*/ + meltfptr[35] = 0 ; } ; } @@ -21303,7 +23338,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V49*/ meltfptr[44] = + /*newclosure*/ /*_.LAMBDA___V49*/ + meltfptr[44] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_29*/ meltfrout->tabval[29])), (5)); ; /*^putclosedv*/ @@ -21336,7 +23372,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V49*/ meltfptr[44]))); ((meltclosure_ptr_t)/*_.LAMBDA___V49*/ meltfptr[44])->tabval[4] = (melt_ptr_t)(/*_.BINDLIST__V31*/ meltfptr[30]); ; - /*_.LAMBDA___V48*/ meltfptr[32] = /*_.LAMBDA___V49*/ meltfptr[44];; + /*_.LAMBDA___V48*/ + meltfptr[32] = /*_.LAMBDA___V49*/ meltfptr[44];; MELT_CHECK_SIGNAL(); ; @@ -21347,7 +23384,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V48*/ meltfptr[32]; - /*_.NFIELDS__V50*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.SFIELDS__V21*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NFIELDS__V50*/ + meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.SFIELDS__V21*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -21361,7 +23399,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_INSTANCE*/ meltfrout->tabval[30])), (4), "CLASS_NREP_INSTANCE"); - /*_.INST__V52*/ meltfptr[51] = + /*_.INST__V52*/ + meltfptr[51] = newobj; }; ; @@ -21389,7 +23428,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V52*/ meltfptr[51], "newly made instance"); ; - /*_.NMKINS__V51*/ meltfptr[35] = /*_.INST__V52*/ meltfptr[51];; + /*_.NMKINS__V51*/ + meltfptr[35] = /*_.INST__V52*/ meltfptr[51];; MELT_CHECK_SIGNAL(); ; @@ -21410,7 +23450,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[11])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V55*/ meltfptr[54] = + /*_.INST__V55*/ + meltfptr[54] = newobj; }; ; @@ -21438,7 +23479,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V55*/ meltfptr[54], "newly made instance"); ; - /*_.CBIND__V54*/ meltfptr[53] = /*_.INST__V55*/ meltfptr[54];; + /*_.CBIND__V54*/ + meltfptr[53] = /*_.INST__V55*/ meltfptr[54];; MELT_CHECK_SIGNAL(); ; @@ -21450,7 +23492,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[33])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V57*/ meltfptr[56] = + /*_.INST__V57*/ + meltfptr[56] = newobj; }; ; @@ -21478,7 +23521,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V57*/ meltfptr[56], "newly made instance"); ; - /*_.CLOCC__V56*/ meltfptr[55] = /*_.INST__V57*/ meltfptr[56];; + /*_.CLOCC__V56*/ + meltfptr[55] = /*_.INST__V57*/ meltfptr[56];; { MELT_LOCATION("warmelt-normal.melt:4631:/ locexp"); @@ -21505,7 +23549,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)) @@ -21514,7 +23559,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4632:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21551,16 +23597,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " bindlist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.BINDLIST__V31*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58] = 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__V59*/ + meltfptr[58] = 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___V58*/ meltfptr[57] = /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58];; + /*_._IF___V58*/ + meltfptr[57] = /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4632:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V59*/ + meltfptr[58] = 0 ; } ; } @@ -21573,7 +23623,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4632:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21582,9 +23633,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_._IF___V58*/ + meltfptr[57] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21610,7 +23663,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4633:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V56*/ meltfptr[55];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V56*/ meltfptr[55];; MELT_LOCATION("warmelt-normal.melt:4633:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -21618,62 +23672,88 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V47*/ meltfptr[38] = /*_.RETURN___V60*/ meltfptr[58];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V47*/ + meltfptr[38] = /*_.RETURN___V60*/ meltfptr[58];; MELT_LOCATION("warmelt-normal.melt:4563:/ clear"); - /*clear*/ /*_.LAMBDA___V48*/ meltfptr[32] = 0 ; + /*clear*/ /*_.LAMBDA___V48*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.NFIELDS__V50*/ meltfptr[45] = 0 ; + /*clear*/ /*_.NFIELDS__V50*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.NMKINS__V51*/ meltfptr[35] = 0 ; + /*clear*/ /*_.NMKINS__V51*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_.CSYM__V53*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.CBIND__V54*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.CLOCC__V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V60*/ meltfptr[58] = 0 ; - /*_.LET___V17*/ meltfptr[6] = /*_.LET___V47*/ meltfptr[38];; + /*clear*/ /*_.RETURN___V60*/ + meltfptr[58] = 0 ; + /*_.LET___V17*/ + meltfptr[6] = /*_.LET___V47*/ meltfptr[38];; MELT_LOCATION("warmelt-normal.melt:4533:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[13] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.SCLASS__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SCLASS__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SCLABIND__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SCLABIND__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.SFIELDS__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.SFIELDS__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.SCLASYM__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.SCLASYM__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.CLADATA__V24*/ meltfptr[22] = 0 ; + /*clear*/ /*_.CLADATA__V24*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTSYMB__V26*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CINTSYMB__V26*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHINT__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NCHINT__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CINTBIND__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDLIST__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.BINDLIST__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_NOT_A__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V34*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IFELSE___V34*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V47*/ meltfptr[38] = 0 ; + /*clear*/ /*_.LET___V47*/ + meltfptr[38] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4528:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; { MELT_LOCATION("warmelt-normal.melt:4528:/ locexp"); @@ -21688,17 +23768,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 ; } ; @@ -21780,7 +23865,8 @@ meltrout_75_WARMELTmiNORMAL_LAMBDA_cl18(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_75_WARMELTmiNORMAL_LAMBDA_cl18 fromline 1756 */ - /* classy proc frame meltrout_75_WARMELTmiNORMAL_LAMBDA_cl18 */ MeltFrame_meltrout_75_WARMELTmiNORMAL_LAMBDA_cl18 + /* classy proc frame meltrout_75_WARMELTmiNORMAL_LAMBDA_cl18 */ + MeltFrame_meltrout_75_WARMELTmiNORMAL_LAMBDA_cl18 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_75_WARMELTmiNORMAL_LAMBDA_cl18 fromline 1785*/ #if ENABLE_CHECKING @@ -21793,7 +23879,8 @@ meltrout_75_WARMELTmiNORMAL_LAMBDA_cl18(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl18", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -21803,12 +23890,14 @@ meltrout_75_WARMELTmiNORMAL_LAMBDA_cl18(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4566:/ getarg"); - /*_.CURFLDA__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CURFLDA__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#CURK__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; + /*_#CURK__L1*/ + meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -21838,7 +23927,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L2*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21847,7 +23937,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4567:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21880,16 +23971,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_instance.lambda curflda"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURFLDA__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V4*/ + meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; + /*_._IF___V3*/ + meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4567:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ + meltfptr[3] = 0 ; } ; } @@ -21902,7 +23997,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4567:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21911,9 +24007,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_._IF___V3*/ + meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21943,10 +24041,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[2] = + /*_#IS_A__L4*/ + meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.CURFLDA__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:4568:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[2] = (/*nil*/NULL);; @@ -21975,25 +24075,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4568; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURFLDA__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ meltfptr[2] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ + meltfptr[2] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4568:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ + meltfptr[6] = 0 ; } ; } ; - /*_.IFCPP___V5*/ meltfptr[3] = /*_._IFELSE___V6*/ meltfptr[2];; + /*_.IFCPP___V5*/ + meltfptr[3] = /*_._IFELSE___V6*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4568:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ meltfptr[2] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ + meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22009,7 +24115,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLDA__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.CURFLOC__V9*/ meltfptr[2] = slot; + /*_.CURFLOC__V9*/ + meltfptr[2] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4570:/ getslot"); @@ -22017,7 +24124,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLDA__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SFLA_FIELD"); - /*_.CURFIELD__V10*/ meltfptr[9] = slot; + /*_.CURFIELD__V10*/ + meltfptr[9] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4571:/ getslot"); @@ -22025,16 +24133,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLDA__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SFLA_EXPR"); - /*_.CUREXP__V11*/ meltfptr[10] = slot; + /*_.CUREXP__V11*/ + meltfptr[10] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#NULL__L5*/ meltfnum[1] = + /*_#NULL__L5*/ + meltfnum[1] = (/*null*/(/*_.CURFLOC__V9*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-normal.melt:4572:/ cond"); - /*cond*/ if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22043,11 +24154,13 @@ meltlab_endgetargs: /*^compute*/ /*_.CURFLOC__V9*/ meltfptr[2] = /*_.SETQ___V13*/ meltfptr[12] = (/*~SLOC*/ meltfclos->tabval[0]);; - /*_._IF___V12*/ meltfptr[11] = /*_.SETQ___V13*/ meltfptr[12];; + /*_._IF___V12*/ + meltfptr[11] = /*_.SETQ___V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4572:/ clear"); - /*clear*/ /*_.SETQ___V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.SETQ___V13*/ + meltfptr[12] = 0 ; } ; } @@ -22061,10 +24174,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_NOT_A__L6*/ meltfnum[2] = + /*_#IS_NOT_A__L6*/ + meltfnum[2] = !melt_is_instance_of((melt_ptr_t)(/*_.CURFIELD__V10*/ meltfptr[9]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:4575:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L6*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L6*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22091,7 +24206,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[6] = + /*_#MELT_NEED_DBG__L7*/ + meltfnum[6] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -22100,7 +24216,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4576:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22137,16 +24254,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " curfield="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURFIELD__V10*/ meltfptr[9]; - /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V15*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; + /*_._IF___V15*/ + meltfptr[14] = /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4576:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V16*/ + meltfptr[15] = 0 ; } ; } @@ -22159,7 +24280,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4576:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -22168,9 +24290,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_._IF___V15*/ + meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22191,7 +24315,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normal.melt:4581:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~SCLASS*/ meltfclos->tabval[1])), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -22202,7 +24327,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~SCLASS*/ meltfclos->tabval[1])) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V17*/ meltfptr[15] = slot; + /*_.NAMED_NAME__V17*/ + meltfptr[15] = slot; }; ; } @@ -22226,13 +24352,15 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#CURK__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V17*/ meltfptr[15]; - /*_.ERROR_AT__V18*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[4])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[0])), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V18*/ + meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[4])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[0])), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4582:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:4582:/ locexp"); @@ -22247,23 +24375,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:4575:/ quasiblock"); - /*_.PROGN___V20*/ meltfptr[19] = /*_.RETURN___V19*/ meltfptr[18];; + /*_.PROGN___V20*/ + meltfptr[19] = /*_.RETURN___V19*/ meltfptr[18];; /*^compute*/ - /*_._IFELSE___V14*/ meltfptr[12] = /*_.PROGN___V20*/ meltfptr[19];; + /*_._IFELSE___V14*/ + meltfptr[12] = /*_.PROGN___V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4575:/ clear"); - /*clear*/ /*_.NAMED_NAME__V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.NAMED_NAME__V17*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V18*/ meltfptr[14] = 0 ; + /*clear*/ /*_.ERROR_AT__V18*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.RETURN___V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.PROGN___V20*/ + meltfptr[19] = 0 ; } ; } @@ -22282,16 +24417,20 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFIELD__V10*/ meltfptr[9]) /*=obj*/; melt_object_get_field(slot,obj, 2, "FLD_OWNCLASS"); - /*_.FLD_OWNCLASS__V21*/ meltfptr[15] = slot; + /*_.FLD_OWNCLASS__V21*/ + meltfptr[15] = slot; }; ; - /*_#SUBCLASS_OR_EQ__L9*/ meltfnum[7] = + /*_#SUBCLASS_OR_EQ__L9*/ + meltfnum[7] = (((/*~SCLASS*/ meltfclos->tabval[1]) == /*_.FLD_OWNCLASS__V21*/ meltfptr[15]) || melt_is_subclass_of((meltobject_ptr_t)((/*~SCLASS*/ meltfclos->tabval[1])), (meltobject_ptr_t)(/*_.FLD_OWNCLASS__V21*/ meltfptr[15])));; /*^compute*/ - /*_#NOT__L10*/ meltfnum[6] = + /*_#NOT__L10*/ + meltfnum[6] = (!(/*_#SUBCLASS_OR_EQ__L9*/ meltfnum[7]));; MELT_LOCATION("warmelt-normal.melt:4583:/ cond"); - /*cond*/ if (/*_#NOT__L10*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#NOT__L10*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22318,7 +24457,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = + /*_#MELT_NEED_DBG__L11*/ + meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -22327,7 +24467,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4584:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22364,16 +24505,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " curfield="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURFIELD__V10*/ meltfptr[9]; - /*_.MELT_DEBUG_FUN__V24*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V23*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[19];; + /*_._IF___V23*/ + meltfptr[18] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4584:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[19] = 0 ; } ; } @@ -22386,7 +24531,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4584:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -22395,9 +24541,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V23*/ meltfptr[18] = 0 ; + /*clear*/ /*_._IF___V23*/ + meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22418,7 +24566,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-normal.melt:4588:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFIELD__V10*/ meltfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -22429,7 +24578,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFIELD__V10*/ meltfptr[9]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V25*/ meltfptr[19] = slot; + /*_.NAMED_NAME__V25*/ + meltfptr[19] = slot; }; ; } @@ -22440,7 +24590,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:4589:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFIELD__V10*/ meltfptr[9]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[3]))) ) /*then*/ @@ -22451,7 +24602,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFIELD__V10*/ meltfptr[9]) /*=obj*/; melt_object_get_field(slot,obj, 2, "FLD_OWNCLASS"); - /*_.FLD_OWNCLASS__V26*/ meltfptr[18] = slot; + /*_.FLD_OWNCLASS__V26*/ + meltfptr[18] = slot; }; ; } @@ -22462,7 +24614,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:4589:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLD_OWNCLASS__V26*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -22473,7 +24626,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLD_OWNCLASS__V26*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V27*/ meltfptr[26] = slot; + /*_.NAMED_NAME__V27*/ + meltfptr[26] = slot; }; ; } @@ -22484,7 +24638,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:4590:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~SCLASS*/ meltfclos->tabval[1])), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -22495,7 +24650,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~SCLASS*/ meltfclos->tabval[1])) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V28*/ meltfptr[27] = slot; + /*_.NAMED_NAME__V28*/ + meltfptr[27] = slot; }; ; } @@ -22522,13 +24678,15 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V27*/ meltfptr[26]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V28*/ meltfptr[27]; - /*_.ERROR_AT__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[4])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[0])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V29*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[4])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[0])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4592:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:4592:/ locexp"); @@ -22543,29 +24701,39 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:4583:/ quasiblock"); - /*_.PROGN___V31*/ meltfptr[30] = /*_.RETURN___V30*/ meltfptr[29];; + /*_.PROGN___V31*/ + meltfptr[30] = /*_.RETURN___V30*/ meltfptr[29];; /*^compute*/ - /*_._IFELSE___V22*/ meltfptr[14] = /*_.PROGN___V31*/ meltfptr[30];; + /*_._IFELSE___V22*/ + meltfptr[14] = /*_.PROGN___V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4583:/ clear"); - /*clear*/ /*_.NAMED_NAME__V25*/ meltfptr[19] = 0 ; + /*clear*/ /*_.NAMED_NAME__V25*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.FLD_OWNCLASS__V26*/ meltfptr[18] = 0 ; + /*clear*/ /*_.FLD_OWNCLASS__V26*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NAMED_NAME__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.NAMED_NAME__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.ERROR_AT__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.RETURN___V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.PROGN___V31*/ + meltfptr[30] = 0 ; } ; } @@ -22576,17 +24744,22 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_._IFELSE___V14*/ meltfptr[12] = /*_._IFELSE___V22*/ meltfptr[14];; + /*_._IFELSE___V14*/ + meltfptr[12] = /*_._IFELSE___V22*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4575:/ clear"); - /*clear*/ /*_.FLD_OWNCLASS__V21*/ meltfptr[15] = 0 ; + /*clear*/ /*_.FLD_OWNCLASS__V21*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_#SUBCLASS_OR_EQ__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#SUBCLASS_OR_EQ__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L10*/ meltfnum[6] = 0 ; + /*clear*/ /*_#NOT__L10*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V22*/ meltfptr[14] = 0 ; + /*clear*/ /*_._IFELSE___V22*/ + meltfptr[14] = 0 ; } ; } @@ -22610,7 +24783,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.CURFLOC__V9*/ meltfptr[2]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V34*/ meltfptr[26];/*^multimsend.send*/ - /*_.NEXP__V33*/ meltfptr[18] = meltgc_send ((melt_ptr_t)(/*_.CUREXP__V11*/ meltfptr[10]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NEXP__V33*/ + meltfptr[18] = meltgc_send ((melt_ptr_t)(/*_.CUREXP__V11*/ meltfptr[10]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -22626,11 +24800,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L13*/ meltfnum[11] = + /*_#IS_LIST_OR_NULL__L13*/ + meltfnum[11] = ((/*_.NBIND__V34*/ meltfptr[26]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBIND__V34*/ meltfptr[26])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-normal.melt:4598:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L13*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#IS_LIST_OR_NULL__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V36*/ meltfptr[28] = (/*nil*/NULL);; @@ -22659,25 +24835,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4598; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V34*/ meltfptr[26]; - /*_.MELT_ASSERT_FAILURE_FUN__V37*/ 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__V37*/ + 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___V36*/ meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[29];; + /*_._IFELSE___V36*/ + meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4598:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ + meltfptr[29] = 0 ; } ; } ; - /*_.IFCPP___V35*/ meltfptr[27] = /*_._IFELSE___V36*/ meltfptr[28];; + /*_.IFCPP___V35*/ + meltfptr[27] = /*_._IFELSE___V36*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4598:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L13*/ meltfnum[11] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L13*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V36*/ meltfptr[28] = 0 ; + /*clear*/ /*_._IFELSE___V36*/ + meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22698,7 +24880,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~ENV*/ meltfclos->tabval[2]); - /*_.FCTYP__V39*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.NEXP__V33*/ meltfptr[18]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FCTYP__V39*/ + meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.NEXP__V33*/ meltfptr[18]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -22721,7 +24904,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ meltfnum[10] = + /*_#MELT_NEED_DBG__L14*/ + meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -22730,7 +24914,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4600:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22763,16 +24948,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_instance fctyp"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FCTYP__V39*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V41*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V40*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[29];; + /*_._IF___V40*/ + meltfptr[14] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4600:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[29] = 0 ; } ; } @@ -22785,7 +24974,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4600:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -22794,9 +24984,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ meltfptr[14] = 0 ; + /*clear*/ /*_._IF___V40*/ + meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22819,10 +25011,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#exeq__L16*/ meltfnum[6] = + /*_#exeq__L16*/ + meltfnum[6] = ((/*_.FCTYP__V39*/ meltfptr[15]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:4601:/ cond"); - /*cond*/ if (/*_#exeq__L16*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#exeq__L16*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22830,7 +25024,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4605:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFIELD__V10*/ meltfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -22841,7 +25036,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFIELD__V10*/ meltfptr[9]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V43*/ meltfptr[29] = slot; + /*_.NAMED_NAME__V43*/ + meltfptr[29] = slot; }; ; } @@ -22852,7 +25048,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:4606:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FCTYP__V39*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -22863,7 +25060,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FCTYP__V39*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V44*/ meltfptr[14] = slot; + /*_.NAMED_NAME__V44*/ + meltfptr[14] = slot; }; ; } @@ -22887,18 +25085,23 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V43*/ meltfptr[29]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V44*/ meltfptr[14]; - /*_.ERROR_AT__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CURFLOC__V9*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V45*/ + meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CURFLOC__V9*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V42*/ meltfptr[28] = /*_.ERROR_AT__V45*/ meltfptr[44];; + /*_._IF___V42*/ + meltfptr[28] = /*_.ERROR_AT__V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4601:/ clear"); - /*clear*/ /*_.NAMED_NAME__V43*/ meltfptr[29] = 0 ; + /*clear*/ /*_.NAMED_NAME__V43*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V44*/ meltfptr[14] = 0 ; + /*clear*/ /*_.NAMED_NAME__V44*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.ERROR_AT__V45*/ + meltfptr[44] = 0 ; } ; } @@ -22909,14 +25112,18 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V38*/ meltfptr[30] = /*_._IF___V42*/ meltfptr[28];; + /*_.LET___V38*/ + meltfptr[30] = /*_._IF___V42*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:4599:/ clear"); - /*clear*/ /*_.FCTYP__V39*/ meltfptr[15] = 0 ; + /*clear*/ /*_.FCTYP__V39*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L16*/ meltfnum[6] = 0 ; + /*clear*/ /*_#exeq__L16*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ meltfptr[28] = 0 ; + /*clear*/ /*_._IF___V42*/ + meltfptr[28] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -22927,7 +25134,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V34*/ meltfptr[26]; - /*_.LIST_APPEND2LIST__V46*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[9])), (melt_ptr_t)((/*~BINDLIST*/ meltfclos->tabval[4])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V46*/ + meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[9])), (melt_ptr_t)((/*~BINDLIST*/ meltfclos->tabval[4])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -22941,7 +25149,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ meltfrout->tabval[10])), (3), "CLASS_NREP_FIELDASSIGN"); - /*_.INST__V48*/ meltfptr[44] = + /*_.INST__V48*/ + meltfptr[44] = newobj; }; ; @@ -22964,49 +25173,66 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V48*/ meltfptr[44], "newly made instance"); ; - /*_.INST___V47*/ meltfptr[14] = /*_.INST__V48*/ meltfptr[44];; + /*_.INST___V47*/ + meltfptr[14] = /*_.INST__V48*/ meltfptr[44];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_.MULTI___V32*/ meltfptr[19] = /*_.INST___V47*/ meltfptr[14];; + /*_.MULTI___V32*/ + meltfptr[19] = /*_.INST___V47*/ meltfptr[14];; MELT_LOCATION("warmelt-normal.melt:4595:/ clear"); - /*clear*/ /*_.IFCPP___V35*/ meltfptr[27] = 0 ; + /*clear*/ /*_.IFCPP___V35*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V38*/ meltfptr[30] = 0 ; + /*clear*/ /*_.LET___V38*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_APPEND2LIST__V46*/ meltfptr[29] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V46*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V47*/ meltfptr[14] = 0 ; + /*clear*/ /*_.INST___V47*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V34*/ meltfptr[26] = 0 ; - /*_.LET___V8*/ meltfptr[6] = /*_.MULTI___V32*/ meltfptr[19];; + /*clear*/ /*_.NBIND__V34*/ + meltfptr[26] = 0 ; + /*_.LET___V8*/ + meltfptr[6] = /*_.MULTI___V32*/ meltfptr[19];; MELT_LOCATION("warmelt-normal.melt:4569:/ clear"); - /*clear*/ /*_.CURFLOC__V9*/ meltfptr[2] = 0 ; + /*clear*/ /*_.CURFLOC__V9*/ + meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.CURFIELD__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.CURFIELD__V10*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.CUREXP__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.CUREXP__V11*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_._IF___V12*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L6*/ meltfnum[2] = 0 ; + /*clear*/ /*_#IS_NOT_A__L6*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_._IFELSE___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V32*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MULTI___V32*/ + meltfptr[19] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4566:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; { MELT_LOCATION("warmelt-normal.melt:4566:/ locexp"); @@ -23021,13 +25247,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.IFCPP___V5*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.LET___V8*/ + meltfptr[6] = 0 ; } ; @@ -23109,7 +25338,8 @@ meltrout_76_WARMELTmiNORMAL_LAMBDA_cl19(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_76_WARMELTmiNORMAL_LAMBDA_cl19 fromline 1756 */ - /* classy proc frame meltrout_76_WARMELTmiNORMAL_LAMBDA_cl19 */ MeltFrame_meltrout_76_WARMELTmiNORMAL_LAMBDA_cl19 + /* classy proc frame meltrout_76_WARMELTmiNORMAL_LAMBDA_cl19 */ + MeltFrame_meltrout_76_WARMELTmiNORMAL_LAMBDA_cl19 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_76_WARMELTmiNORMAL_LAMBDA_cl19 fromline 1785*/ #if ENABLE_CHECKING @@ -23122,7 +25352,8 @@ meltrout_76_WARMELTmiNORMAL_LAMBDA_cl19(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl19", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -23132,12 +25363,14 @@ meltrout_76_WARMELTmiNORMAL_LAMBDA_cl19(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4639:/ 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); ; @@ -23164,7 +25397,8 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; } ; @@ -23246,7 +25480,8 @@ meltrout_77_WARMELTmiNORMAL_NORMEXP_FOREVER(meltclosure_ptr_t meltclosp_, melt_p /* end of frame for routine meltrout_77_WARMELTmiNORMAL_NORMEXP_FOREVER fromline 1756 */ - /* classy proc frame meltrout_77_WARMELTmiNORMAL_NORMEXP_FOREVER */ MeltFrame_meltrout_77_WARMELTmiNORMAL_NORMEXP_FOREVER + /* classy proc frame meltrout_77_WARMELTmiNORMAL_NORMEXP_FOREVER */ + MeltFrame_meltrout_77_WARMELTmiNORMAL_NORMEXP_FOREVER meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_77_WARMELTmiNORMAL_NORMEXP_FOREVER fromline 1785*/ #if ENABLE_CHECKING @@ -23259,7 +25494,8 @@ meltrout_77_WARMELTmiNORMAL_NORMEXP_FOREVER(meltclosure_ptr_t meltclosp_, melt_p #define meltframe meltfram__ melt_trace_start("NORMEXP_FOREVER", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -23269,26 +25505,30 @@ meltrout_77_WARMELTmiNORMAL_NORMEXP_FOREVER(meltclosure_ptr_t meltclosp_, melt_p /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4644:/ 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); ; @@ -23310,10 +25550,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_FOREVER*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:4645:/ 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);; @@ -23342,25 +25584,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4645; /*^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:4645:/ 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:4645:/ 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*/ @@ -23378,10 +25626,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:4646:/ 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);; @@ -23410,25 +25660,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4646; /*^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:4646:/ 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:4646:/ 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*/ @@ -23446,10 +25702,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:4647:/ 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);; @@ -23478,25 +25736,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4647; /*^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:4647:/ 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:4647:/ 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*/ @@ -23524,7 +25788,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)) @@ -23533,7 +25798,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4648:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23566,16 +25832,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_forever 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:4648:/ 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 ; } ; } @@ -23588,7 +25858,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4648:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -23597,9 +25868,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*/ @@ -23627,7 +25900,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:4650:/ getslot"); @@ -23635,7 +25909,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, "SLABEL_BIND"); - /*_.SLBIND__V19*/ meltfptr[18] = slot; + /*_.SLBIND__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4651:/ getslot"); @@ -23643,7 +25918,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, "SFRV_BODY"); - /*_.SBODY__V20*/ meltfptr[19] = slot; + /*_.SBODY__V20*/ + meltfptr[19] = slot; }; ; @@ -23665,10 +25941,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[4] = + /*_#IS_A__L6*/ + meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.SLBIND__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normal.melt:4654:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V23*/ meltfptr[22] = (/*nil*/NULL);; @@ -23697,25 +25975,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4654; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SLBIND__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[22] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; + /*_._IFELSE___V23*/ + meltfptr[22] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4654:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ + meltfptr[23] = 0 ; } ; } ; - /*_.IFCPP___V22*/ meltfptr[21] = /*_._IFELSE___V23*/ meltfptr[22];; + /*_.IFCPP___V22*/ + meltfptr[21] = /*_._IFELSE___V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4654:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23733,7 +26017,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SLBIND__V19*/ meltfptr[18]; - /*_.PUT_ENV__V25*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.NEWENV__V21*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V25*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.NEWENV__V21*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4656:/ quasiblock"); @@ -23744,7 +26029,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SLBIND__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V27*/ meltfptr[26] = slot; + /*_.BINDER__V27*/ + meltfptr[26] = slot; }; ; @@ -23776,7 +26062,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)) @@ -23785,7 +26072,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4657:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23822,16 +26110,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " in slbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SLBIND__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 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__V30*/ + meltfptr[29] = 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___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:4657:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[29] = 0 ; } ; } @@ -23844,7 +26136,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4657:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -23853,9 +26146,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_._IF___V29*/ + meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23914,7 +26209,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)) @@ -23923,7 +26219,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4659:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23956,16 +26253,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_forever updated slbind"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLBIND__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V32*/ 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__V32*/ + 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___V31*/ meltfptr[29] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[28];; + /*_._IF___V31*/ + meltfptr[29] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4659:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ + meltfptr[28] = 0 ; } ; } @@ -23978,7 +26279,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4659:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -23987,9 +26289,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V31*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IF___V31*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24019,10 +26323,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L11*/ meltfnum[0] = + /*_#IS_A__L11*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RESY__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-normal.melt:4660:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L11*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V34*/ meltfptr[29] = (/*nil*/NULL);; @@ -24051,25 +26357,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4660; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RESY__V28*/ meltfptr[27]; - /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = 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__V35*/ + meltfptr[34] = 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___V34*/ meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; + /*_._IFELSE___V34*/ + meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4660:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ + meltfptr[34] = 0 ; } ; } ; - /*_.IFCPP___V33*/ meltfptr[28] = /*_._IFELSE___V34*/ meltfptr[29];; + /*_.IFCPP___V33*/ + meltfptr[28] = /*_._IFELSE___V34*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4660:/ clear"); - /*clear*/ /*_#IS_A__L11*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L11*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V34*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IFELSE___V34*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24097,7 +26409,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)) @@ -24106,7 +26419,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4661:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24126,7 +26440,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SLBIND__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 2, "LABIND_CLONSY"); - /*_.LABIND_CLONSY__V37*/ meltfptr[29] = slot; + /*_.LABIND_CLONSY__V37*/ + meltfptr[29] = slot; }; ; @@ -24147,18 +26462,23 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_forever got1 clonsy "; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LABIND_CLONSY__V37*/ meltfptr[29]; - /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 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__V38*/ + meltfptr[37] = 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___V36*/ meltfptr[34] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; + /*_._IF___V36*/ + meltfptr[34] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4661:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.LABIND_CLONSY__V37*/ meltfptr[29] = 0 ; + /*clear*/ /*_.LABIND_CLONSY__V37*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ + meltfptr[37] = 0 ; } ; } @@ -24171,7 +26491,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4661:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -24180,9 +26501,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IF___V36*/ + meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24217,13 +26540,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SLBIND__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 2, "LABIND_CLONSY"); - /*_.LABIND_CLONSY__V40*/ meltfptr[37] = slot; + /*_.LABIND_CLONSY__V40*/ + meltfptr[37] = slot; }; ; - /*_#eqeq__L14*/ meltfnum[0] = + /*_#eqeq__L14*/ + meltfnum[0] = ((/*_.LABIND_CLONSY__V40*/ meltfptr[37]) == (/*_.RESY__V28*/ meltfptr[27]));; MELT_LOCATION("warmelt-normal.melt:4662:/ cond"); - /*cond*/ if (/*_#eqeq__L14*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#eqeq__L14*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V41*/ meltfptr[34] = (/*nil*/NULL);; @@ -24254,27 +26580,34 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RESY__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLBIND__V19*/ meltfptr[18]; - /*_.MELT_ASSERT_FAILURE_FUN__V42*/ meltfptr[41] = 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V42*/ + meltfptr[41] = 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V41*/ meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V42*/ meltfptr[41];; + /*_._IFELSE___V41*/ + meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V42*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4662:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V42*/ + meltfptr[41] = 0 ; } ; } ; - /*_.IFCPP___V39*/ meltfptr[29] = /*_._IFELSE___V41*/ meltfptr[34];; + /*_.IFCPP___V39*/ + meltfptr[29] = /*_._IFELSE___V41*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4662:/ clear"); - /*clear*/ /*_.LABIND_CLONSY__V40*/ meltfptr[37] = 0 ; + /*clear*/ /*_.LABIND_CLONSY__V40*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L14*/ meltfnum[0] = 0 ; + /*clear*/ /*_#eqeq__L14*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V41*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IFELSE___V41*/ + meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24303,7 +26636,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V45*/ meltfptr[34]; /*^multiapply.appl*/ - /*_.NBODY__V44*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SBODY__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NBODY__V44*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SBODY__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -24329,7 +26663,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L15*/ meltfnum[4] = + /*_#MELT_NEED_DBG__L15*/ + meltfnum[4] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -24338,7 +26673,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4666:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L15*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24379,16 +26715,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " nbodbindings="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V45*/ meltfptr[34]; - /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = 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__V47*/ + meltfptr[46] = 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___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:4666:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V47*/ + meltfptr[46] = 0 ; } ; } @@ -24401,7 +26741,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4666:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -24410,9 +26751,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_._IF___V46*/ + meltfptr[45] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24455,7 +26798,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHECKSIGNAL*/ meltfrout->tabval[12])), (1), "CLASS_NREP_CHECKSIGNAL"); - /*_.INST__V51*/ meltfptr[50] = + /*_.INST__V51*/ + meltfptr[50] = newobj; }; ; @@ -24468,7 +26812,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V51*/ meltfptr[50], "newly made instance"); ; - /*_.NCHINT__V50*/ meltfptr[49] = /*_.INST__V51*/ meltfptr[50];; + /*_.NCHINT__V50*/ + meltfptr[49] = /*_.INST__V51*/ meltfptr[50];; MELT_CHECK_SIGNAL(); ; @@ -24480,7 +26825,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[13])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V53*/ meltfptr[52] = + /*_.INST__V53*/ + meltfptr[52] = newobj; }; ; @@ -24503,15 +26849,18 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V53*/ meltfptr[52], "newly made instance"); ; - /*_.CINTBIND__V52*/ meltfptr[51] = /*_.INST__V53*/ meltfptr[52];; + /*_.CINTBIND__V52*/ + meltfptr[51] = /*_.INST__V53*/ meltfptr[52];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L17*/ meltfnum[0] = + /*_#NULL__L17*/ + meltfnum[0] = (/*null*/(/*_.NBODBINDINGS__V45*/ meltfptr[34]) == NULL);; MELT_LOCATION("warmelt-normal.melt:4676:/ cond"); - /*cond*/ if (/*_#NULL__L17*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#NULL__L17*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24530,11 +26879,13 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0__CINTBIND_x8*/ - /*_.CINTBIND__V56*/ meltfptr[55] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x8; + /*_.CINTBIND__V56*/ + meltfptr[55] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x8; meltletrec_1_ptr->rpair_0__CINTBIND_x8.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ - /*_.LIST___V57*/ meltfptr[56] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; + /*_.LIST___V57*/ + meltfptr[56] = (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)))); @@ -24556,28 +26907,37 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V57*/ meltfptr[56]); ; - /*_.LIST___V55*/ meltfptr[54] = /*_.LIST___V57*/ meltfptr[56];; + /*_.LIST___V55*/ + meltfptr[54] = /*_.LIST___V57*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4677:/ clear"); - /*clear*/ /*_.CINTBIND__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.CINTBIND__V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.LIST___V57*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.CINTBIND__V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.LIST___V57*/ + meltfptr[56] = 0 ; } /*end multiallocblock*/ ; /*^compute*/ - /*_.NBODBINDINGS__V45*/ meltfptr[34] = /*_.SETQ___V58*/ meltfptr[55] = /*_.LIST___V55*/ meltfptr[54];; - /*_._IFELSE___V54*/ meltfptr[53] = /*_.SETQ___V58*/ meltfptr[55];; + /*_.NBODBINDINGS__V45*/ + meltfptr[34] = /*_.SETQ___V58*/ meltfptr[55] = /*_.LIST___V55*/ meltfptr[54];; + /*_._IFELSE___V54*/ + meltfptr[53] = /*_.SETQ___V58*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4676:/ clear"); - /*clear*/ /*_.LIST___V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.LIST___V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V58*/ meltfptr[55] = 0 ; + /*clear*/ /*_.SETQ___V58*/ + meltfptr[55] = 0 ; } ; } @@ -24596,25 +26956,32 @@ meltlab_endgetargs: meltgc_prepend_list((melt_ptr_t)(/*_.NBODBINDINGS__V45*/ meltfptr[34]), (melt_ptr_t)(/*_.CINTBIND__V52*/ meltfptr[51])); } ; - /*clear*/ /*_._IFELSE___V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_._IFELSE___V54*/ + meltfptr[53] = 0 ; /*epilog*/ } ; } ; /*^compute*/ - /*_.LET___V48*/ meltfptr[46] = /*_._IFELSE___V54*/ meltfptr[53];; + /*_.LET___V48*/ + meltfptr[46] = /*_._IFELSE___V54*/ meltfptr[53];; MELT_LOCATION("warmelt-normal.melt:4668:/ clear"); - /*clear*/ /*_.CINTSYMB__V49*/ meltfptr[45] = 0 ; + /*clear*/ /*_.CINTSYMB__V49*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHINT__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.NCHINT__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.CINTBIND__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.CINTBIND__V52*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L17*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NULL__L17*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_._IFELSE___V54*/ + meltfptr[53] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:4680:/ cppif.then"); @@ -24625,16 +26992,20 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#GET_INT__L18*/ meltfnum[4] = + /*_#GET_INT__L18*/ + meltfnum[4] = (melt_get_int((melt_ptr_t)((/*!LABIND_CLONSY*/ meltfrout->tabval[15]))));; /*^compute*/ - /*_#OBJECT_LENGTH__L19*/ meltfnum[0] = + /*_#OBJECT_LENGTH__L19*/ + meltfnum[0] = ((long)melt_object_length((melt_ptr_t)(/*_.SLBIND__V19*/ meltfptr[18])));; /*^compute*/ - /*_#ltI__L20*/ meltfnum[19] = + /*_#ltI__L20*/ + meltfnum[19] = ((/*_#GET_INT__L18*/ meltfnum[4]) < (/*_#OBJECT_LENGTH__L19*/ meltfnum[0]));; MELT_LOCATION("warmelt-normal.melt:4680:/ cond"); - /*cond*/ if (/*_#ltI__L20*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#ltI__L20*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V60*/ meltfptr[54] = (/*nil*/NULL);; @@ -24665,29 +27036,37 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!LABIND_CLONSY*/ meltfrout->tabval[15]); /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLBIND__V19*/ meltfptr[18]; - /*_.MELT_ASSERT_FAILURE_FUN__V61*/ meltfptr[55] = 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V61*/ + meltfptr[55] = 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V60*/ meltfptr[54] = /*_.MELT_ASSERT_FAILURE_FUN__V61*/ meltfptr[55];; + /*_._IFELSE___V60*/ + meltfptr[54] = /*_.MELT_ASSERT_FAILURE_FUN__V61*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4680:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V61*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V61*/ + meltfptr[55] = 0 ; } ; } ; - /*_.IFCPP___V59*/ meltfptr[56] = /*_._IFELSE___V60*/ meltfptr[54];; + /*_.IFCPP___V59*/ + meltfptr[56] = /*_._IFELSE___V60*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4680:/ clear"); - /*clear*/ /*_#GET_INT__L18*/ meltfnum[4] = 0 ; + /*clear*/ /*_#GET_INT__L18*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_#OBJECT_LENGTH__L19*/ meltfnum[0] = 0 ; + /*clear*/ /*_#OBJECT_LENGTH__L19*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L20*/ meltfnum[19] = 0 ; + /*clear*/ /*_#ltI__L20*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V60*/ meltfptr[54] = 0 ; + /*clear*/ /*_._IFELSE___V60*/ + meltfptr[54] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24710,7 +27089,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V45*/ meltfptr[34]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13]; - /*_.WRAP_NORMAL_LETSEQ__V63*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NBODY__V44*/ meltfptr[37]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.WRAP_NORMAL_LETSEQ__V63*/ + meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NBODY__V44*/ meltfptr[37]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4682:/ blockmultialloc"); @@ -24724,7 +27104,8 @@ meltlab_endgetargs: meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x10*/ - /*_.TUPLREC___V65*/ meltfptr[53] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x10; + /*_.TUPLREC___V65*/ + meltfptr[53] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x10; meltletrec_2_ptr->rtup_0__TUPLREC__x10.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_2_ptr->rtup_0__TUPLREC__x10.nbval = 1; @@ -24738,13 +27119,16 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V65*/ meltfptr[53]); ; - /*_.RESBODY__V64*/ meltfptr[51] = /*_.TUPLREC___V65*/ meltfptr[53];; + /*_.RESBODY__V64*/ + meltfptr[51] = /*_.TUPLREC___V65*/ meltfptr[53];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4682:/ clear"); - /*clear*/ /*_.TUPLREC___V65*/ meltfptr[53] = 0 ; + /*clear*/ /*_.TUPLREC___V65*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V65*/ meltfptr[53] = 0 ; + /*clear*/ /*_.TUPLREC___V65*/ + meltfptr[53] = 0 ; } /*end multiallocblock*/ ; @@ -24767,7 +27151,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FOREVER*/ meltfrout->tabval[18])), (4), "CLASS_NREP_FOREVER"); - /*_.INST__V68*/ meltfptr[53] = + /*_.INST__V68*/ + meltfptr[53] = newobj; }; ; @@ -24795,7 +27180,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V68*/ meltfptr[53], "newly made instance"); ; - /*_.NFOREVER__V67*/ meltfptr[54] = /*_.INST__V68*/ meltfptr[53];; + /*_.NFOREVER__V67*/ + meltfptr[54] = /*_.INST__V68*/ meltfptr[53];; MELT_CHECK_SIGNAL(); ; @@ -24807,7 +27193,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[13])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V70*/ meltfptr[69] = + /*_.INST__V70*/ + meltfptr[69] = newobj; }; ; @@ -24835,7 +27222,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V70*/ meltfptr[69], "newly made instance"); ; - /*_.CBIND__V69*/ meltfptr[68] = /*_.INST__V70*/ meltfptr[69];; + /*_.CBIND__V69*/ + meltfptr[68] = /*_.INST__V70*/ meltfptr[69];; MELT_CHECK_SIGNAL(); ; @@ -24847,7 +27235,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__V72*/ meltfptr[71] = + /*_.INST__V72*/ + meltfptr[71] = newobj; }; ; @@ -24875,9 +27264,11 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V72*/ meltfptr[71], "newly made instance"); ; - /*_.CLOCC__V71*/ meltfptr[70] = /*_.INST__V72*/ meltfptr[71];; + /*_.CLOCC__V71*/ + meltfptr[70] = /*_.INST__V72*/ meltfptr[71];; /*^compute*/ - /*_.NFORBINDINGS__V73*/ meltfptr[72] = + /*_.NFORBINDINGS__V73*/ + meltfptr[72] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[21]))));; { @@ -24905,7 +27296,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ meltfnum[4] = + /*_#MELT_NEED_DBG__L21*/ + meltfnum[4] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -24914,7 +27306,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4703:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24951,16 +27344,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nforbindings="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NFORBINDINGS__V73*/ meltfptr[72]; - /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74] = 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__V75*/ + meltfptr[74] = 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___V74*/ meltfptr[73] = /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74];; + /*_._IF___V74*/ + meltfptr[73] = /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4703:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V75*/ + meltfptr[74] = 0 ; } ; } @@ -24973,7 +27370,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4703:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -24982,9 +27380,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V74*/ meltfptr[73] = 0 ; + /*clear*/ /*_._IF___V74*/ + meltfptr[73] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25010,7 +27410,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4705:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V71*/ meltfptr[70];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V71*/ meltfptr[70];; MELT_LOCATION("warmelt-normal.melt:4705:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -25018,74 +27419,104 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V62*/ meltfptr[45] = /*_.RETURN___V76*/ meltfptr[74];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V62*/ + meltfptr[45] = /*_.RETURN___V76*/ meltfptr[74];; MELT_LOCATION("warmelt-normal.melt:4681:/ clear"); - /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V63*/ meltfptr[49] = 0 ; + /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V63*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.RESBODY__V64*/ meltfptr[51] = 0 ; + /*clear*/ /*_.RESBODY__V64*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V66*/ meltfptr[55] = 0 ; + /*clear*/ /*_.CSYM__V66*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.NFOREVER__V67*/ meltfptr[54] = 0 ; + /*clear*/ /*_.NFOREVER__V67*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_.CBIND__V69*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V71*/ meltfptr[70] = 0 ; + /*clear*/ /*_.CLOCC__V71*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.NFORBINDINGS__V73*/ meltfptr[72] = 0 ; + /*clear*/ /*_.NFORBINDINGS__V73*/ + meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V76*/ meltfptr[74] = 0 ; + /*clear*/ /*_.RETURN___V76*/ + meltfptr[74] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V43*/ meltfptr[41] = /*_.LET___V62*/ meltfptr[45];; + /*_.MULTI___V43*/ + meltfptr[41] = /*_.LET___V62*/ meltfptr[45];; MELT_LOCATION("warmelt-normal.melt:4663:/ clear"); - /*clear*/ /*_.LET___V48*/ meltfptr[46] = 0 ; + /*clear*/ /*_.LET___V48*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V59*/ meltfptr[56] = 0 ; + /*clear*/ /*_.IFCPP___V59*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V62*/ meltfptr[45] = 0 ; + /*clear*/ /*_.LET___V62*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.NBODBINDINGS__V45*/ meltfptr[34] = 0 ; - /*_.LET___V26*/ meltfptr[22] = /*_.MULTI___V43*/ meltfptr[41];; + /*clear*/ /*_.NBODBINDINGS__V45*/ + meltfptr[34] = 0 ; + /*_.LET___V26*/ + meltfptr[22] = /*_.MULTI___V43*/ meltfptr[41];; MELT_LOCATION("warmelt-normal.melt:4656:/ clear"); - /*clear*/ /*_.BINDER__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.BINDER__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.RESY__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.RESY__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V33*/ meltfptr[28] = 0 ; + /*clear*/ /*_.IFCPP___V33*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V39*/ meltfptr[29] = 0 ; + /*clear*/ /*_.IFCPP___V39*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V43*/ meltfptr[41] = 0 ; - /*_.LET___V17*/ meltfptr[6] = /*_.LET___V26*/ meltfptr[22];; + /*clear*/ /*_.MULTI___V43*/ + meltfptr[41] = 0 ; + /*_.LET___V17*/ + meltfptr[6] = /*_.LET___V26*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:4649:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[13] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.SLBIND__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SLBIND__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SBODY__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SBODY__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWENV__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.NEWENV__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.IFCPP___V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_.PUT_ENV__V25*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V26*/ meltfptr[22] = 0 ; + /*clear*/ /*_.LET___V26*/ + meltfptr[22] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4644:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; { MELT_LOCATION("warmelt-normal.melt:4644:/ locexp"); @@ -25100,17 +27531,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 ; } ; @@ -25192,7 +27628,8 @@ meltrout_78_WARMELTmiNORMAL_NORMEXP_EXIT(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_78_WARMELTmiNORMAL_NORMEXP_EXIT fromline 1756 */ - /* classy proc frame meltrout_78_WARMELTmiNORMAL_NORMEXP_EXIT */ MeltFrame_meltrout_78_WARMELTmiNORMAL_NORMEXP_EXIT + /* classy proc frame meltrout_78_WARMELTmiNORMAL_NORMEXP_EXIT */ + MeltFrame_meltrout_78_WARMELTmiNORMAL_NORMEXP_EXIT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_78_WARMELTmiNORMAL_NORMEXP_EXIT fromline 1785*/ #if ENABLE_CHECKING @@ -25205,7 +27642,8 @@ meltrout_78_WARMELTmiNORMAL_NORMEXP_EXIT(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("NORMEXP_EXIT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -25215,26 +27653,30 @@ meltrout_78_WARMELTmiNORMAL_NORMEXP_EXIT(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4715:/ 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); ; @@ -25256,10 +27698,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_EXIT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:4716:/ 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);; @@ -25288,25 +27732,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4716; /*^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:4716:/ 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:4716:/ 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*/ @@ -25324,10 +27774,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:4717:/ 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);; @@ -25356,25 +27808,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4717; /*^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:4717:/ 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:4717:/ 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*/ @@ -25392,10 +27850,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:4718:/ 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);; @@ -25424,25 +27884,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4718; /*^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:4718:/ 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:4718:/ 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*/ @@ -25470,7 +27936,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)) @@ -25479,7 +27946,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4719:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25512,16 +27980,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_exit 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:4719:/ 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 ; } ; } @@ -25534,7 +28006,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4719:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -25543,9 +28016,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*/ @@ -25573,7 +28048,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:4721:/ getslot"); @@ -25581,7 +28057,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, "SLABEL_BIND"); - /*_.SLBIND__V19*/ meltfptr[18] = slot; + /*_.SLBIND__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4722:/ getslot"); @@ -25589,7 +28066,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, "SEXI_BODY"); - /*_.SBODY__V20*/ meltfptr[19] = slot; + /*_.SBODY__V20*/ + meltfptr[19] = slot; }; ; @@ -25611,10 +28089,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[4] = + /*_#IS_A__L6*/ + meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.SLBIND__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normal.melt:4725:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V23*/ meltfptr[22] = (/*nil*/NULL);; @@ -25643,25 +28123,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4725; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SLBIND__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[22] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; + /*_._IFELSE___V23*/ + meltfptr[22] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4725:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ + meltfptr[23] = 0 ; } ; } ; - /*_.IFCPP___V22*/ meltfptr[21] = /*_._IFELSE___V23*/ meltfptr[22];; + /*_.IFCPP___V22*/ + meltfptr[21] = /*_._IFELSE___V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4725:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25679,7 +28165,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SLBIND__V19*/ meltfptr[18]; - /*_.PUT_ENV__V25*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.NEWENV__V21*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V25*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.NEWENV__V21*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -25703,7 +28190,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V28*/ meltfptr[27]; /*^multiapply.appl*/ - /*_.NBODY__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SBODY__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NBODY__V27*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SBODY__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -25712,10 +28200,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L7*/ meltfnum[0] = + /*_#NULL__L7*/ + meltfnum[0] = (/*null*/(/*_.NBODBINDINGS__V28*/ meltfptr[27]) == NULL);; MELT_LOCATION("warmelt-normal.melt:4730:/ cond"); - /*cond*/ if (/*_#NULL__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#NULL__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25725,14 +28215,18 @@ meltlab_endgetargs: /*_.MAKE_LIST__V30*/ meltfptr[29] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[9]))));; MELT_LOCATION("warmelt-normal.melt:4731:/ compute"); - /*_.NBODBINDINGS__V28*/ meltfptr[27] = /*_.SETQ___V31*/ meltfptr[30] = /*_.MAKE_LIST__V30*/ meltfptr[29];; - /*_._IF___V29*/ meltfptr[28] = /*_.SETQ___V31*/ meltfptr[30];; + /*_.NBODBINDINGS__V28*/ + meltfptr[27] = /*_.SETQ___V31*/ meltfptr[30] = /*_.MAKE_LIST__V30*/ meltfptr[29];; + /*_._IF___V29*/ + meltfptr[28] = /*_.SETQ___V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4730:/ clear"); - /*clear*/ /*_.MAKE_LIST__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MAKE_LIST__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.SETQ___V31*/ + meltfptr[30] = 0 ; } ; } @@ -25748,13 +28242,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MULTIPLE_LENGTH__L8*/ meltfnum[4] = + /*_#MULTIPLE_LENGTH__L8*/ + meltfnum[4] = (melt_multiple_length((melt_ptr_t)(/*_.NBODY__V27*/ meltfptr[26])));; /*^compute*/ - /*_#miI__L9*/ meltfnum[8] = + /*_#miI__L9*/ + meltfnum[8] = ((/*_#MULTIPLE_LENGTH__L8*/ meltfnum[4]) - (1));; /*^compute*/ - /*_.MULTIPLE_NTH__V33*/ meltfptr[30] = + /*_.MULTIPLE_NTH__V33*/ + meltfptr[30] = (melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V27*/ meltfptr[26]), (/*_#miI__L9*/ meltfnum[8])));; MELT_LOCATION("warmelt-normal.melt:4733:/ quasiblock"); @@ -25764,7 +28261,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_EXIT*/ meltfrout->tabval[10])), (3), "CLASS_NREP_EXIT"); - /*_.INST__V35*/ meltfptr[34] = + /*_.INST__V35*/ + meltfptr[34] = newobj; }; ; @@ -25787,7 +28285,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V35*/ meltfptr[34], "newly made instance"); ; - /*_.NEXIT__V34*/ meltfptr[33] = /*_.INST__V35*/ meltfptr[34];; + /*_.NEXIT__V34*/ + meltfptr[33] = /*_.INST__V35*/ meltfptr[34];; MELT_CHECK_SIGNAL(); ; @@ -25808,7 +28307,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[13])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V38*/ meltfptr[37] = + /*_.INST__V38*/ + meltfptr[37] = newobj; }; ; @@ -25836,7 +28336,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V38*/ meltfptr[37], "newly made instance"); ; - /*_.CBIND__V37*/ meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; + /*_.CBIND__V37*/ + meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; MELT_CHECK_SIGNAL(); ; @@ -25848,7 +28349,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V40*/ meltfptr[39] = + /*_.INST__V40*/ + meltfptr[39] = newobj; }; ; @@ -25876,7 +28378,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V40*/ meltfptr[39], "newly made instance"); ; - /*_.CLOCC__V39*/ meltfptr[38] = /*_.INST__V40*/ meltfptr[39];; + /*_.CLOCC__V39*/ + meltfptr[38] = /*_.INST__V40*/ meltfptr[39];; { MELT_LOCATION("warmelt-normal.melt:4749:/ locexp"); @@ -25903,7 +28406,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)) @@ -25912,7 +28416,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4750:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25949,16 +28454,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbodbindings="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V28*/ meltfptr[27]; - /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = 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__V42*/ + meltfptr[41] = 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___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:4750:/ 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 ; } ; } @@ -25971,7 +28480,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4750:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -25980,9 +28490,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IF___V41*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26008,7 +28520,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4751:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V39*/ meltfptr[38];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V39*/ meltfptr[38];; MELT_LOCATION("warmelt-normal.melt:4751:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -26016,62 +28529,86 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V32*/ meltfptr[29] = /*_.RETURN___V43*/ meltfptr[41];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V32*/ + meltfptr[29] = /*_.RETURN___V43*/ meltfptr[41];; MELT_LOCATION("warmelt-normal.melt:4733:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_#miI__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#miI__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_NTH__V33*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MULTIPLE_NTH__V33*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.NEXIT__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.NEXIT__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.CSYM__V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.CBIND__V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.CLOCC__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V43*/ meltfptr[41] = 0 ; + /*clear*/ /*_.RETURN___V43*/ + meltfptr[41] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V26*/ meltfptr[22] = /*_.LET___V32*/ meltfptr[29];; + /*_.MULTI___V26*/ + meltfptr[22] = /*_.LET___V32*/ meltfptr[29];; MELT_LOCATION("warmelt-normal.melt:4727:/ clear"); - /*clear*/ /*_#NULL__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NULL__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_._IF___V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V32*/ meltfptr[29] = 0 ; + /*clear*/ /*_.LET___V32*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.NBODBINDINGS__V28*/ meltfptr[27] = 0 ; - /*_.LET___V17*/ meltfptr[6] = /*_.MULTI___V26*/ meltfptr[22];; + /*clear*/ /*_.NBODBINDINGS__V28*/ + meltfptr[27] = 0 ; + /*_.LET___V17*/ + meltfptr[6] = /*_.MULTI___V26*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:4720:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[13] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.SLBIND__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SLBIND__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SBODY__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SBODY__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWENV__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.NEWENV__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.IFCPP___V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_.PUT_ENV__V25*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V26*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MULTI___V26*/ + meltfptr[22] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4715:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[6];; { MELT_LOCATION("warmelt-normal.melt:4715:/ locexp"); @@ -26086,17 +28623,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 ; } ; @@ -26178,7 +28720,8 @@ meltrout_79_WARMELTmiNORMAL_NORMEXP_AGAIN(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_79_WARMELTmiNORMAL_NORMEXP_AGAIN fromline 1756 */ - /* classy proc frame meltrout_79_WARMELTmiNORMAL_NORMEXP_AGAIN */ MeltFrame_meltrout_79_WARMELTmiNORMAL_NORMEXP_AGAIN + /* classy proc frame meltrout_79_WARMELTmiNORMAL_NORMEXP_AGAIN */ + MeltFrame_meltrout_79_WARMELTmiNORMAL_NORMEXP_AGAIN meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_79_WARMELTmiNORMAL_NORMEXP_AGAIN fromline 1785*/ #if ENABLE_CHECKING @@ -26191,7 +28734,8 @@ meltrout_79_WARMELTmiNORMAL_NORMEXP_AGAIN(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("NORMEXP_AGAIN", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -26201,26 +28745,30 @@ meltrout_79_WARMELTmiNORMAL_NORMEXP_AGAIN(meltclosure_ptr_t meltclosp_, melt_ptr /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4757:/ 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); ; @@ -26252,7 +28800,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)) @@ -26261,7 +28810,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4758:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26294,16 +28844,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_again 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:4758:/ 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 ; } ; } @@ -26316,7 +28870,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4758:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -26325,9 +28880,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*/ @@ -26357,10 +28914,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_AGAIN*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:4759:/ 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);; @@ -26389,25 +28948,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4759; /*^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:4759:/ 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:4759:/ 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*/ @@ -26425,10 +28990,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:4760:/ 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);; @@ -26457,25 +29024,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4760; /*^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:4760:/ 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:4760:/ 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*/ @@ -26493,10 +29066,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:4761:/ 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);; @@ -26525,25 +29100,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4761; /*^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:4761:/ 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:4761:/ 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*/ @@ -26559,7 +29140,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:4763:/ getslot"); @@ -26567,7 +29149,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, "SLABEL_BIND"); - /*_.SLBIND__V19*/ meltfptr[18] = slot; + /*_.SLBIND__V19*/ + meltfptr[18] = slot; }; ; @@ -26590,7 +29173,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_AGAIN*/ meltfrout->tabval[7])), (2), "CLASS_NREP_AGAIN"); - /*_.INST__V22*/ meltfptr[21] = + /*_.INST__V22*/ + meltfptr[21] = newobj; }; ; @@ -26608,7 +29192,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V22*/ meltfptr[21], "newly made instance"); ; - /*_.NAGAIN__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; + /*_.NAGAIN__V21*/ + meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; MELT_CHECK_SIGNAL(); ; @@ -26620,7 +29205,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[8])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V24*/ meltfptr[23] = + /*_.INST__V24*/ + meltfptr[23] = newobj; }; ; @@ -26648,7 +29234,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V24*/ meltfptr[23], "newly made instance"); ; - /*_.CBIND__V23*/ meltfptr[22] = /*_.INST__V24*/ meltfptr[23];; + /*_.CBIND__V23*/ + meltfptr[22] = /*_.INST__V24*/ meltfptr[23];; MELT_CHECK_SIGNAL(); ; @@ -26660,7 +29247,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V26*/ meltfptr[25] = + /*_.INST__V26*/ + meltfptr[25] = newobj; }; ; @@ -26688,7 +29276,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V26*/ meltfptr[25], "newly made instance"); ; - /*_.CLOCC__V25*/ meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; + /*_.CLOCC__V25*/ + meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; MELT_LOCATION("warmelt-normal.melt:4778:/ blockmultialloc"); /*multiallocblock*/ { @@ -26701,11 +29290,13 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0__CBIND_x2*/ - /*_.CBIND__V28*/ meltfptr[27] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CBIND_x2; + /*_.CBIND__V28*/ + meltfptr[27] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CBIND_x2; meltletrec_1_ptr->rpair_0__CBIND_x2.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ - /*_.LIST___V29*/ meltfptr[28] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; + /*_.LIST___V29*/ + meltfptr[28] = (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)))); @@ -26727,17 +29318,22 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V29*/ meltfptr[28]); ; - /*_.NBINDINGS__V27*/ meltfptr[26] = /*_.LIST___V29*/ meltfptr[28];; + /*_.NBINDINGS__V27*/ + meltfptr[26] = /*_.LIST___V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4778:/ clear"); - /*clear*/ /*_.CBIND__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.CBIND__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.LIST___V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.CBIND__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.LIST___V29*/ + meltfptr[28] = 0 ; } /*end multiallocblock*/ ; @@ -26750,10 +29346,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[0] = + /*_#IS_A__L6*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SLBIND__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-normal.melt:4780:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V31*/ meltfptr[28] = (/*nil*/NULL);; @@ -26782,25 +29380,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4780; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SLBIND__V19*/ meltfptr[18]; - /*_.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[28] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; + /*_._IFELSE___V31*/ + meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4780:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ + meltfptr[31] = 0 ; } ; } ; - /*_.IFCPP___V30*/ meltfptr[27] = /*_._IFELSE___V31*/ meltfptr[28];; + /*_.IFCPP___V30*/ + meltfptr[27] = /*_._IFELSE___V31*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4780:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V31*/ meltfptr[28] = 0 ; + /*clear*/ /*_._IFELSE___V31*/ + meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26828,7 +29432,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)) @@ -26837,7 +29442,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4781:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26874,16 +29480,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbindings="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V27*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V34*/ 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__V34*/ + 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___V33*/ meltfptr[31] = /*_.MELT_DEBUG_FUN__V34*/ meltfptr[28];; + /*_._IF___V33*/ + meltfptr[31] = /*_.MELT_DEBUG_FUN__V34*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4781:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V34*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V34*/ + meltfptr[28] = 0 ; } ; } @@ -26896,7 +29506,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4781:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -26905,9 +29516,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V33*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IF___V33*/ + meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26933,7 +29546,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4782:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V25*/ meltfptr[24];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V25*/ meltfptr[24];; MELT_LOCATION("warmelt-normal.melt:4782:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -26941,34 +29555,46 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V17*/ meltfptr[15] = /*_.RETURN___V35*/ meltfptr[28];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V17*/ + meltfptr[15] = /*_.RETURN___V35*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:4762:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SLBIND__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SLBIND__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.CSYM__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.NAGAIN__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.NAGAIN__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.CBIND__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CLOCC__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDINGS__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NBINDINGS__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V30*/ meltfptr[27] = 0 ; + /*clear*/ /*_.IFCPP___V30*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V35*/ meltfptr[28] = 0 ; + /*clear*/ /*_.RETURN___V35*/ + meltfptr[28] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4757:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:4757:/ locexp"); @@ -26983,17 +29609,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 ; } ; @@ -27075,7 +29706,8 @@ meltrout_80_WARMELTmiNORMAL_NORMEXP_IFVARIADIC(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_80_WARMELTmiNORMAL_NORMEXP_IFVARIADIC fromline 1756 */ - /* classy proc frame meltrout_80_WARMELTmiNORMAL_NORMEXP_IFVARIADIC */ MeltFrame_meltrout_80_WARMELTmiNORMAL_NORMEXP_IFVARIADIC + /* classy proc frame meltrout_80_WARMELTmiNORMAL_NORMEXP_IFVARIADIC */ + MeltFrame_meltrout_80_WARMELTmiNORMAL_NORMEXP_IFVARIADIC meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_80_WARMELTmiNORMAL_NORMEXP_IFVARIADIC fromline 1785*/ #if ENABLE_CHECKING @@ -27088,7 +29720,8 @@ meltrout_80_WARMELTmiNORMAL_NORMEXP_IFVARIADIC(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("NORMEXP_IFVARIADIC", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -27098,26 +29731,30 @@ meltrout_80_WARMELTmiNORMAL_NORMEXP_IFVARIADIC(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4789:/ 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); ; @@ -27149,7 +29786,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)) @@ -27158,7 +29796,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4790:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27191,16 +29830,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_ifvariadic 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:4790:/ 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 ; } ; } @@ -27213,7 +29856,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4790:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27222,9 +29866,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*/ @@ -27254,10 +29900,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_IFVARIADIC*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:4791:/ 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);; @@ -27286,25 +29934,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4791; /*^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:4791:/ 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:4791:/ 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*/ @@ -27322,10 +29976,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:4792:/ 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);; @@ -27354,25 +30010,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4792; /*^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:4792:/ 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:4792:/ 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*/ @@ -27390,10 +30052,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:4793:/ 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);; @@ -27422,25 +30086,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4793; /*^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:4793:/ 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:4793:/ 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*/ @@ -27456,11 +30126,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"); - /*_.LOCA_LOCATION__V18*/ meltfptr[5] = slot; + /*_.LOCA_LOCATION__V18*/ + meltfptr[5] = slot; }; ; /*^cond*/ - /*cond*/ if (/*_.LOCA_LOCATION__V18*/ meltfptr[5]) /*then*/ + /*cond*/ + if (/*_.LOCA_LOCATION__V18*/ meltfptr[5]) /*then*/ { /*^cond.then*/ /*_.LOC__V19*/ meltfptr[18] = /*_.LOCA_LOCATION__V18*/ meltfptr[5];; @@ -27469,7 +30141,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4794:/ cond.else"); - /*_.LOC__V19*/ meltfptr[18] = /*_.PSLOC__V5*/ meltfptr[4];; + /*_.LOC__V19*/ + meltfptr[18] = /*_.PSLOC__V5*/ meltfptr[4];; } ; MELT_LOCATION("warmelt-normal.melt:4795:/ getslot"); @@ -27477,17 +30150,20 @@ 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, "SIFVARIADIC_ARGBIND"); - /*_.SARGS__V20*/ meltfptr[19] = slot; + /*_.SARGS__V20*/ + meltfptr[19] = slot; }; ; - /*_#NBARGS__L6*/ meltfnum[0] = + /*_#NBARGS__L6*/ + meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19])));; MELT_LOCATION("warmelt-normal.melt:4797:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SIFVARIADIC_THEN"); - /*_.STHEN__V21*/ meltfptr[20] = slot; + /*_.STHEN__V21*/ + meltfptr[20] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4798:/ getslot"); @@ -27495,7 +30171,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, "SIFVARIADIC_ELSE"); - /*_.SELSE__V22*/ meltfptr[21] = slot; + /*_.SELSE__V22*/ + meltfptr[21] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4799:/ getslot"); @@ -27503,7 +30180,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"); - /*_.CURPRO__V23*/ meltfptr[22] = slot; + /*_.CURPRO__V23*/ + meltfptr[22] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4800:/ getslot"); @@ -27511,11 +30189,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, 7, "NCTX_SYMBCACHEMAP"); - /*_.SYCMAP__V24*/ meltfptr[23] = slot; + /*_.SYCMAP__V24*/ + meltfptr[23] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4801:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPRO__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[5]))) ) /*then*/ @@ -27526,7 +30206,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPRO__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NRCLOP_ARGBINDTUPLE"); - /*_.CURPROCARGS__V25*/ meltfptr[24] = slot; + /*_.CURPROCARGS__V25*/ + meltfptr[24] = slot; }; ; } @@ -27537,7 +30218,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:4802:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPRO__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[6]))) ) /*then*/ @@ -27548,7 +30230,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPRO__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 10, "NRPRO_VARIADIC"); - /*_.NPROVARIADIC__V26*/ meltfptr[25] = slot; + /*_.NPROVARIADIC__V26*/ + meltfptr[25] = slot; }; ; } @@ -27587,7 +30270,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)) @@ -27596,7 +30280,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4805:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27637,16 +30322,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. loc="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V29*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V28*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; + /*_._IF___V28*/ + meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4805:/ 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 ; } ; } @@ -27659,7 +30348,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4805:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27668,9 +30358,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*/ @@ -27700,10 +30392,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE_OR_NULL__L9*/ meltfnum[7] = + /*_#IS_MULTIPLE_OR_NULL__L9*/ + meltfnum[7] = ((/*_.STHEN__V21*/ meltfptr[20]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.STHEN__V21*/ meltfptr[20])) == MELTOBMAG_MULTIPLE));; MELT_LOCATION("warmelt-normal.melt:4806:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L9*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE_OR_NULL__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V31*/ meltfptr[27] = (/*nil*/NULL);; @@ -27732,25 +30426,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4806; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.STHEN__V21*/ meltfptr[20]; - /*_.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[27] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; + /*_._IFELSE___V31*/ + meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4806:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ + meltfptr[31] = 0 ; } ; } ; - /*_.IFCPP___V30*/ meltfptr[28] = /*_._IFELSE___V31*/ meltfptr[27];; + /*_.IFCPP___V30*/ + meltfptr[28] = /*_._IFELSE___V31*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4806:/ clear"); - /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V31*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IFELSE___V31*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27768,10 +30468,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE_OR_NULL__L10*/ meltfnum[1] = + /*_#IS_MULTIPLE_OR_NULL__L10*/ + meltfnum[1] = ((/*_.SELSE__V22*/ meltfptr[21]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.SELSE__V22*/ meltfptr[21])) == MELTOBMAG_MULTIPLE));; MELT_LOCATION("warmelt-normal.melt:4807:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L10*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE_OR_NULL__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V34*/ meltfptr[27] = (/*nil*/NULL);; @@ -27800,25 +30502,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4807; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELSE__V22*/ meltfptr[21]; - /*_.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[27] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; + /*_._IFELSE___V34*/ + meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4807:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ + meltfptr[34] = 0 ; } ; } ; - /*_.IFCPP___V33*/ meltfptr[31] = /*_._IFELSE___V34*/ meltfptr[27];; + /*_.IFCPP___V33*/ + meltfptr[31] = /*_._IFELSE___V34*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4807:/ clear"); - /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V34*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IFELSE___V34*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27830,10 +30538,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_NOT_A__L11*/ meltfnum[7] = + /*_#IS_NOT_A__L11*/ + meltfnum[7] = !melt_is_instance_of((melt_ptr_t)(/*_.CURPROCARGS__V25*/ meltfptr[24]), (melt_ptr_t)((/*!DISCR_VARIADIC_FORMAL_SEQUENCE*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:4808:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L11*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L11*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27860,7 +30570,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)) @@ -27869,7 +30580,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4809:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27906,16 +30618,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " loc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.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 ""), 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V37*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; + /*_._IF___V37*/ + meltfptr[27] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4809:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ + meltfptr[37] = 0 ; } ; } @@ -27928,7 +30644,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4809:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27937,9 +30654,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V37*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V37*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27969,13 +30688,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "(VARIADIC ...) used in non-variadic function"; - /*_.ERROR_AT__V39*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V39*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4811:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:4811:/ locexp"); @@ -27990,21 +30711,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:4808:/ quasiblock"); - /*_.PROGN___V41*/ meltfptr[40] = /*_.RETURN___V40*/ meltfptr[27];; + /*_.PROGN___V41*/ + meltfptr[40] = /*_.RETURN___V40*/ meltfptr[27];; /*^compute*/ - /*_._IF___V36*/ meltfptr[34] = /*_.PROGN___V41*/ meltfptr[40];; + /*_._IF___V36*/ + meltfptr[34] = /*_.PROGN___V41*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4808:/ clear"); - /*clear*/ /*_.ERROR_AT__V39*/ meltfptr[37] = 0 ; + /*clear*/ /*_.ERROR_AT__V39*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V40*/ meltfptr[27] = 0 ; + /*clear*/ /*_.RETURN___V40*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.PROGN___V41*/ + meltfptr[40] = 0 ; } ; } @@ -28034,7 +30761,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)) @@ -28043,7 +30771,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4812:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28080,16 +30809,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "; loc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V43*/ 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__V43*/ + 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___V42*/ meltfptr[37] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[27];; + /*_._IF___V42*/ + meltfptr[37] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4812:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[27] = 0 ; } ; } @@ -28102,7 +30835,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4812:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28111,9 +30845,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ meltfptr[37] = 0 ; + /*clear*/ /*_._IF___V42*/ + meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28144,7 +30880,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if (/*_.NPROVARIADIC__V26*/ meltfptr[25]) /*then*/ + /*cond*/ + if (/*_.NPROVARIADIC__V26*/ meltfptr[25]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V45*/ meltfptr[27] = (/*nil*/NULL);; @@ -28173,23 +30910,28 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4813; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NPROVARIADIC__V26*/ meltfptr[25]; - /*_.MELT_ASSERT_FAILURE_FUN__V46*/ 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__V46*/ + 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___V45*/ meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[37];; + /*_._IFELSE___V45*/ + meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4813:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/ + meltfptr[37] = 0 ; } ; } ; - /*_.IFCPP___V44*/ meltfptr[40] = /*_._IFELSE___V45*/ meltfptr[27];; + /*_.IFCPP___V44*/ + meltfptr[40] = /*_._IFELSE___V45*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4813:/ clear"); - /*clear*/ /*_._IFELSE___V45*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IFELSE___V45*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28200,16 +30942,20 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4816:/ quasiblock"); - /*_.LETBINDTUP__V48*/ meltfptr[27] = + /*_.LETBINDTUP__V48*/ + meltfptr[27] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[10])), (/*_#NBARGS__L6*/ meltfnum[0])));; /*^compute*/ - /*_.LETBINDTHENLIST__V49*/ meltfptr[48] = + /*_.LETBINDTHENLIST__V49*/ + meltfptr[48] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[11]))));; /*^compute*/ - /*_.LOCSYMTUP__V50*/ meltfptr[49] = + /*_.LOCSYMTUP__V50*/ + meltfptr[49] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[10])), (/*_#NBARGS__L6*/ meltfnum[0])));; /*^compute*/ - /*_.CTYPTUP__V51*/ meltfptr[50] = + /*_.CTYPTUP__V51*/ + meltfptr[50] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[10])), (/*_#NBARGS__L6*/ meltfnum[0])));; /*citerblock FOREACH_IN_MULTIPLE*/ { @@ -28243,7 +30989,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ meltfnum[12] = + /*_#MELT_NEED_DBG__L17*/ + meltfnum[12] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28252,7 +30999,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4824:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L17*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28285,16 +31033,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_ifvariadic fbi="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FBI__V52*/ meltfptr[51]; - /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V54*/ + meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V53*/ meltfptr[52] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53];; + /*_._IF___V53*/ + meltfptr[52] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4824:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L18*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ + meltfptr[53] = 0 ; } ; } @@ -28307,7 +31059,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4824:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28316,9 +31069,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_._IF___V53*/ + meltfptr[52] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28348,10 +31103,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L19*/ meltfnum[17] = + /*_#IS_A__L19*/ + meltfnum[17] = melt_is_instance_of((melt_ptr_t)(/*_.FBI__V52*/ meltfptr[51]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:4825:/ cond"); - /*cond*/ if (/*_#IS_A__L19*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#IS_A__L19*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V56*/ meltfptr[52] = (/*nil*/NULL);; @@ -28380,25 +31137,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4825; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FBI__V52*/ meltfptr[51]; - /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V57*/ + meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V56*/ meltfptr[52] = /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56];; + /*_._IFELSE___V56*/ + meltfptr[52] = /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4825:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V57*/ + meltfptr[56] = 0 ; } ; } ; - /*_.IFCPP___V55*/ meltfptr[53] = /*_._IFELSE___V56*/ meltfptr[52];; + /*_.IFCPP___V55*/ + meltfptr[53] = /*_._IFELSE___V56*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4825:/ clear"); - /*clear*/ /*_#IS_A__L19*/ meltfnum[17] = 0 ; + /*clear*/ /*_#IS_A__L19*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V56*/ meltfptr[52] = 0 ; + /*clear*/ /*_._IFELSE___V56*/ + meltfptr[52] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28414,7 +31177,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBI__V52*/ meltfptr[51]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.CURBINDER__V59*/ meltfptr[52] = slot; + /*_.CURBINDER__V59*/ + meltfptr[52] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4827:/ getslot"); @@ -28422,13 +31186,15 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBI__V52*/ meltfptr[51]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.CURCTYPE__V60*/ meltfptr[59] = slot; + /*_.CURCTYPE__V60*/ + meltfptr[59] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_INTEGERBOX__V61*/ meltfptr[60] = + /*_.MAKE_INTEGERBOX__V61*/ + meltfptr[60] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[14])), (/*_#FBIX__L16*/ meltfnum[1])));; MELT_LOCATION("warmelt-normal.melt:4828:/ quasiblock"); @@ -28438,7 +31204,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_VARIADIC_ARGUMENT*/ meltfrout->tabval[13])), (4), "CLASS_NREP_VARIADIC_ARGUMENT"); - /*_.INST__V63*/ meltfptr[62] = + /*_.INST__V63*/ + meltfptr[62] = newobj; }; ; @@ -28466,7 +31233,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V63*/ meltfptr[62], "newly made instance"); ; - /*_.CURVARARG__V62*/ meltfptr[61] = /*_.INST__V63*/ meltfptr[62];; + /*_.CURVARARG__V62*/ + meltfptr[61] = /*_.INST__V63*/ meltfptr[62];; MELT_CHECK_SIGNAL(); ; @@ -28478,7 +31246,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__V65*/ meltfptr[64] = + /*_.INST__V65*/ + meltfptr[64] = newobj; }; ; @@ -28506,7 +31275,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V65*/ meltfptr[64], "newly made instance"); ; - /*_.CURLETBIND__V64*/ meltfptr[63] = /*_.INST__V65*/ meltfptr[64];; + /*_.CURLETBIND__V64*/ + meltfptr[63] = /*_.INST__V65*/ meltfptr[64];; MELT_CHECK_SIGNAL(); ; @@ -28518,7 +31288,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__V67*/ meltfptr[66] = + /*_.INST__V67*/ + meltfptr[66] = newobj; }; ; @@ -28546,7 +31317,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V67*/ meltfptr[66], "newly made instance"); ; - /*_.CURLOCC__V66*/ meltfptr[65] = /*_.INST__V67*/ meltfptr[66];; + /*_.CURLOCC__V66*/ + meltfptr[65] = /*_.INST__V67*/ meltfptr[66];; { MELT_LOCATION("warmelt-normal.melt:4845:/ locexp"); @@ -28579,7 +31351,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ meltfnum[12] = + /*_#MELT_NEED_DBG__L20*/ + meltfnum[12] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28588,7 +31361,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4847:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L20*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28629,16 +31403,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. curctype="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYPE__V60*/ meltfptr[59]; - /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V69*/ + meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V68*/ meltfptr[67] = /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68];; + /*_._IF___V68*/ + meltfptr[67] = /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4847:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V69*/ + meltfptr[68] = 0 ; } ; } @@ -28651,7 +31429,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4847:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28660,9 +31439,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V68*/ meltfptr[67] = 0 ; + /*clear*/ /*_._IF___V68*/ + meltfptr[67] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28704,10 +31485,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L22*/ meltfnum[17] = + /*_#IS_A__L22*/ + meltfnum[17] = melt_is_instance_of((melt_ptr_t)(/*_.CURCTYPE__V60*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[17])));; MELT_LOCATION("warmelt-normal.melt:4851:/ cond"); - /*cond*/ if (/*_#IS_A__L22*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#IS_A__L22*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V71*/ meltfptr[67] = (/*nil*/NULL);; @@ -28736,25 +31519,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4851; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYPE__V60*/ meltfptr[59]; - /*_.MELT_ASSERT_FAILURE_FUN__V72*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V72*/ + meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V71*/ meltfptr[67] = /*_.MELT_ASSERT_FAILURE_FUN__V72*/ meltfptr[71];; + /*_._IFELSE___V71*/ + meltfptr[67] = /*_.MELT_ASSERT_FAILURE_FUN__V72*/ meltfptr[71];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4851:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V72*/ + meltfptr[71] = 0 ; } ; } ; - /*_.IFCPP___V70*/ meltfptr[68] = /*_._IFELSE___V71*/ meltfptr[67];; + /*_.IFCPP___V70*/ + meltfptr[68] = /*_._IFELSE___V71*/ meltfptr[67];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4851:/ clear"); - /*clear*/ /*_#IS_A__L22*/ meltfnum[17] = 0 ; + /*clear*/ /*_#IS_A__L22*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V71*/ meltfptr[67] = 0 ; + /*clear*/ /*_._IFELSE___V71*/ + meltfptr[67] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28772,40 +31561,54 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURLETBIND__V64*/ meltfptr[63]; - /*_.PUT_ENV__V73*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NEWENV__V27*/ meltfptr[26]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V73*/ + meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NEWENV__V27*/ meltfptr[26]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V58*/ meltfptr[56] = /*_.PUT_ENV__V73*/ meltfptr[71];; + /*_.LET___V58*/ + meltfptr[56] = /*_.PUT_ENV__V73*/ meltfptr[71];; MELT_LOCATION("warmelt-normal.melt:4826:/ clear"); - /*clear*/ /*_.CURBINDER__V59*/ meltfptr[52] = 0 ; + /*clear*/ /*_.CURBINDER__V59*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.CURCTYPE__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.CURCTYPE__V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V61*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.CURVARARG__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.CURVARARG__V62*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.CURLETBIND__V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.CURLETBIND__V64*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.CURLOCC__V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.CURLOCC__V66*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V70*/ meltfptr[68] = 0 ; + /*clear*/ /*_.IFCPP___V70*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V73*/ meltfptr[71] = 0 ; + /*clear*/ /*_.PUT_ENV__V73*/ + meltfptr[71] = 0 ; if (/*_#FBIX__L16*/ meltfnum[1]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:4821:/ clear"); - /*clear*/ /*_.FBI__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.FBI__V52*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_#FBIX__L16*/ meltfnum[1] = 0 ; + /*clear*/ /*_#FBIX__L16*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V55*/ meltfptr[53] = 0 ; + /*clear*/ /*_.IFCPP___V55*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V58*/ meltfptr[56] = 0 ; + /*clear*/ /*_.LET___V58*/ + meltfptr[56] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -28828,7 +31631,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L23*/ meltfnum[12] = + /*_#MELT_NEED_DBG__L23*/ + meltfnum[12] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28837,7 +31641,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4854:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L23*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28882,16 +31687,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n.. loc="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V75*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V75*/ + meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V74*/ meltfptr[67] = /*_.MELT_DEBUG_FUN__V75*/ meltfptr[52];; + /*_._IF___V74*/ + meltfptr[67] = /*_.MELT_DEBUG_FUN__V75*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4854:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L24*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V75*/ meltfptr[52] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V75*/ + meltfptr[52] = 0 ; } ; } @@ -28904,7 +31713,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4854:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28913,9 +31723,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L23*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V74*/ meltfptr[67] = 0 ; + /*clear*/ /*_._IF___V74*/ + meltfptr[67] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28958,7 +31770,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSUME_VARIADIC*/ meltfrout->tabval[21])), (3), "CLASS_NREP_CONSUME_VARIADIC"); - /*_.INST__V78*/ meltfptr[61] = + /*_.INST__V78*/ + meltfptr[61] = newobj; }; ; @@ -28981,7 +31794,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V78*/ meltfptr[61], "newly made instance"); ; - /*_.NCONSUME__V77*/ meltfptr[60] = /*_.INST__V78*/ meltfptr[61];; + /*_.NCONSUME__V77*/ + meltfptr[60] = /*_.INST__V78*/ meltfptr[61];; MELT_CHECK_SIGNAL(); ; @@ -28993,7 +31807,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[65] = + /*_.INST__V80*/ + meltfptr[65] = newobj; }; ; @@ -29021,7 +31836,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V80*/ meltfptr[65], "newly made instance"); ; - /*_.CVARBIND__V79*/ meltfptr[63] = /*_.INST__V80*/ meltfptr[65];; + /*_.CVARBIND__V79*/ + meltfptr[63] = /*_.INST__V80*/ meltfptr[65];; { MELT_LOCATION("warmelt-normal.melt:4869:/ locexp"); @@ -29030,11 +31846,14 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:4857:/ clear"); - /*clear*/ /*_.CVARSYM__V76*/ meltfptr[59] = 0 ; + /*clear*/ /*_.CVARSYM__V76*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.NCONSUME__V77*/ meltfptr[60] = 0 ; + /*clear*/ /*_.NCONSUME__V77*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.CVARBIND__V79*/ meltfptr[63] = 0 ; + /*clear*/ /*_.CVARBIND__V79*/ + meltfptr[63] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:4871:/ cppif.then"); @@ -29055,7 +31874,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L25*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L25*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29064,7 +31884,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4871:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L25*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L25*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29117,16 +31938,20 @@ meltlab_endgetargs: argtab[13].meltbp_cstring = "\n.. loc="; /*^apply.arg*/ argtab[14].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V82*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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__V82*/ + meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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___V81*/ meltfptr[68] = /*_.MELT_DEBUG_FUN__V82*/ meltfptr[71];; + /*_._IF___V81*/ + meltfptr[68] = /*_.MELT_DEBUG_FUN__V82*/ meltfptr[71];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4871:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L26*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L26*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V82*/ meltfptr[71] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V82*/ + meltfptr[71] = 0 ; } ; } @@ -29139,7 +31964,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4871:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29148,9 +31974,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L25*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L25*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V81*/ meltfptr[68] = 0 ; + /*clear*/ /*_._IF___V81*/ + meltfptr[68] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29191,7 +32019,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NTHENBINDINGS__V85*/ meltfptr[59]; /*^multiapply.appl*/ - /*_.NTHEN__V84*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.STHEN__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NTHEN__V84*/ + meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.STHEN__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -29217,7 +32046,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L27*/ meltfnum[12] = + /*_#MELT_NEED_DBG__L27*/ + meltfnum[12] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29226,7 +32056,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4879:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L27*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L27*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29267,16 +32098,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. loc="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V87*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V87*/ + 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V86*/ meltfptr[60] = /*_.MELT_DEBUG_FUN__V87*/ meltfptr[63];; + /*_._IF___V86*/ + meltfptr[60] = /*_.MELT_DEBUG_FUN__V87*/ meltfptr[63];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4879:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L28*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L28*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V87*/ meltfptr[63] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V87*/ + meltfptr[63] = 0 ; } ; } @@ -29289,7 +32124,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4879:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29298,9 +32134,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L27*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L27*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V86*/ meltfptr[60] = 0 ; + /*clear*/ /*_._IF___V86*/ + meltfptr[60] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29330,7 +32168,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NTHENBINDINGS__V85*/ meltfptr[59]; - /*_.LIST_APPEND2LIST__V88*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.LETBINDTHENLIST__V49*/ meltfptr[48]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V88*/ + meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.LETBINDTHENLIST__V49*/ meltfptr[48]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -29353,7 +32192,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L29*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L29*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29362,7 +32202,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4882:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L29*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L29*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29407,16 +32248,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n.. loc="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V90*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V90*/ + 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V89*/ meltfptr[68] = /*_.MELT_DEBUG_FUN__V90*/ meltfptr[63];; + /*_._IF___V89*/ + meltfptr[68] = /*_.MELT_DEBUG_FUN__V90*/ meltfptr[63];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4882:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L30*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L30*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V90*/ meltfptr[63] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V90*/ + meltfptr[63] = 0 ; } ; } @@ -29429,7 +32274,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4882:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29438,9 +32284,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L29*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L29*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V89*/ meltfptr[68] = 0 ; + /*clear*/ /*_._IF___V89*/ + meltfptr[68] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29492,7 +32340,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L32*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L32*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29501,7 +32350,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4888:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L32*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L32*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29542,16 +32392,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. loc="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V93*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V93*/ + meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V92*/ meltfptr[63] = /*_.MELT_DEBUG_FUN__V93*/ meltfptr[68];; + /*_._IF___V92*/ + meltfptr[63] = /*_.MELT_DEBUG_FUN__V93*/ meltfptr[68];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4888:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L33*/ meltfnum[32] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L33*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V93*/ meltfptr[68] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V93*/ + meltfptr[68] = 0 ; } ; } @@ -29564,7 +32418,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4888:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29573,9 +32428,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L32*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L32*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V92*/ meltfptr[63] = 0 ; + /*clear*/ /*_._IF___V92*/ + meltfptr[63] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29599,7 +32456,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURBIND__V91*/ meltfptr[60]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[25]))) ) /*then*/ @@ -29610,7 +32468,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURBIND__V91*/ meltfptr[60]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.CURSYM__V94*/ meltfptr[68] = slot; + /*_.CURSYM__V94*/ + meltfptr[68] = slot; }; ; } @@ -29621,14 +32480,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.CACHLOCC__V95*/ meltfptr[63] = + /*_.CACHLOCC__V95*/ + meltfptr[63] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.SYCMAP__V24*/ meltfptr[23]), (meltobject_ptr_t)(/*_.CURSYM__V94*/ meltfptr[68]));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4892:/ cond"); - /*cond*/ if (/*_.CACHLOCC__V95*/ meltfptr[63]) /*then*/ + /*cond*/ + if (/*_.CACHLOCC__V95*/ meltfptr[63]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29645,10 +32506,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L34*/ meltfnum[32] = + /*_#IS_A__L34*/ + meltfnum[32] = melt_is_instance_of((melt_ptr_t)(/*_.CACHLOCC__V95*/ meltfptr[63]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[16])));; MELT_LOCATION("warmelt-normal.melt:4893:/ cond"); - /*cond*/ if (/*_#IS_A__L34*/ meltfnum[32]) /*then*/ + /*cond*/ + if (/*_#IS_A__L34*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V97*/ meltfptr[96] = (/*nil*/NULL);; @@ -29677,25 +32540,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4893; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CACHLOCC__V95*/ meltfptr[63]; - /*_.MELT_ASSERT_FAILURE_FUN__V98*/ meltfptr[97] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V98*/ + meltfptr[97] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V97*/ meltfptr[96] = /*_.MELT_ASSERT_FAILURE_FUN__V98*/ meltfptr[97];; + /*_._IFELSE___V97*/ + meltfptr[96] = /*_.MELT_ASSERT_FAILURE_FUN__V98*/ meltfptr[97];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4893:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V98*/ meltfptr[97] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V98*/ + meltfptr[97] = 0 ; } ; } ; - /*_.IFCPP___V96*/ meltfptr[95] = /*_._IFELSE___V97*/ meltfptr[96];; + /*_.IFCPP___V96*/ + meltfptr[95] = /*_._IFELSE___V97*/ meltfptr[96];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4893:/ clear"); - /*clear*/ /*_#IS_A__L34*/ meltfnum[32] = 0 ; + /*clear*/ /*_#IS_A__L34*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V97*/ meltfptr[96] = 0 ; + /*clear*/ /*_._IFELSE___V97*/ + meltfptr[96] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29723,7 +32592,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L35*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L35*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29732,7 +32602,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4894:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L35*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L35*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29769,16 +32640,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. cursym="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURSYM__V94*/ meltfptr[68]; - /*_.MELT_DEBUG_FUN__V100*/ meltfptr[96] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V100*/ + meltfptr[96] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V99*/ meltfptr[97] = /*_.MELT_DEBUG_FUN__V100*/ meltfptr[96];; + /*_._IF___V99*/ + meltfptr[97] = /*_.MELT_DEBUG_FUN__V100*/ meltfptr[96];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4894:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L36*/ meltfnum[32] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L36*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V100*/ meltfptr[96] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V100*/ + meltfptr[96] = 0 ; } ; } @@ -29791,7 +32666,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4894:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29800,9 +32676,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L35*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L35*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V99*/ meltfptr[97] = 0 ; + /*clear*/ /*_._IF___V99*/ + meltfptr[97] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29835,25 +32713,30 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V96*/ meltfptr[95] = 0 ; + /*clear*/ /*_.IFCPP___V96*/ + meltfptr[95] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-normal.melt:4889:/ clear"); - /*clear*/ /*_.CURSYM__V94*/ meltfptr[68] = 0 ; + /*clear*/ /*_.CURSYM__V94*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.CACHLOCC__V95*/ meltfptr[63] = 0 ; + /*clear*/ /*_.CACHLOCC__V95*/ + meltfptr[63] = 0 ; if (/*_#BIX__L31*/ meltfnum[12]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:4885:/ clear"); - /*clear*/ /*_.CURBIND__V91*/ meltfptr[60] = 0 ; + /*clear*/ /*_.CURBIND__V91*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_#BIX__L31*/ meltfnum[12] = 0 ; + /*clear*/ /*_#BIX__L31*/ + meltfnum[12] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -29876,7 +32759,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)) @@ -29885,7 +32769,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4897:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[32]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L37*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29922,16 +32807,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. loc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V102*/ meltfptr[97] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V102*/ + meltfptr[97] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V101*/ meltfptr[96] = /*_.MELT_DEBUG_FUN__V102*/ meltfptr[97];; + /*_._IF___V101*/ + meltfptr[96] = /*_.MELT_DEBUG_FUN__V102*/ meltfptr[97];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4897:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L38*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V102*/ meltfptr[97] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V102*/ + meltfptr[97] = 0 ; } ; } @@ -29944,7 +32833,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4897:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29953,9 +32843,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[32] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L37*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V101*/ meltfptr[96] = 0 ; + /*clear*/ /*_._IF___V101*/ + meltfptr[96] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29996,7 +32888,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NELSEBINDINGS__V105*/ meltfptr[63]; /*^multiapply.appl*/ - /*_.NELSE__V104*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.SELSE__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NELSE__V104*/ + meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.SELSE__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -30022,7 +32915,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L39*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L39*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30031,7 +32925,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4904:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L39*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L39*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30072,16 +32967,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. loc="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V107*/ meltfptr[96] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V107*/ + meltfptr[96] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V106*/ meltfptr[97] = /*_.MELT_DEBUG_FUN__V107*/ meltfptr[96];; + /*_._IF___V106*/ + meltfptr[97] = /*_.MELT_DEBUG_FUN__V107*/ meltfptr[96];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4904:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L40*/ meltfnum[32] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L40*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V107*/ meltfptr[96] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V107*/ + meltfptr[96] = 0 ; } ; } @@ -30094,7 +32993,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4904:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30103,9 +33003,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L39*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L39*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V106*/ meltfptr[97] = 0 ; + /*clear*/ /*_._IF___V106*/ + meltfptr[97] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30148,7 +33050,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__V111*/ meltfptr[110] = + /*_.INST__V111*/ + meltfptr[110] = newobj; }; ; @@ -30176,7 +33079,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V111*/ meltfptr[110], "newly made instance"); ; - /*_.CBIND__V110*/ meltfptr[109] = /*_.INST__V111*/ meltfptr[110];; + /*_.CBIND__V110*/ + meltfptr[109] = /*_.INST__V111*/ meltfptr[110];; MELT_CHECK_SIGNAL(); ; @@ -30188,7 +33092,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__V113*/ meltfptr[112] = + /*_.INST__V113*/ + meltfptr[112] = newobj; }; ; @@ -30216,7 +33121,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V113*/ meltfptr[112], "newly made instance"); ; - /*_.CLOCC__V112*/ meltfptr[111] = /*_.INST__V113*/ meltfptr[112];; + /*_.CLOCC__V112*/ + meltfptr[111] = /*_.INST__V113*/ meltfptr[112];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:4920:/ cppif.then"); @@ -30237,7 +33143,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L41*/ meltfnum[32] = + /*_#MELT_NEED_DBG__L41*/ + meltfnum[32] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30246,7 +33153,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4920:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L41*/ meltfnum[32]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L41*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30287,16 +33195,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. loc="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V115*/ 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__V115*/ + 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___V114*/ meltfptr[113] = /*_.MELT_DEBUG_FUN__V115*/ meltfptr[114];; + /*_._IF___V114*/ + meltfptr[113] = /*_.MELT_DEBUG_FUN__V115*/ meltfptr[114];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L42*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L42*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V115*/ meltfptr[114] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V115*/ + meltfptr[114] = 0 ; } ; } @@ -30309,7 +33221,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4920:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30318,9 +33231,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L41*/ meltfnum[32] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L41*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V114*/ meltfptr[113] = 0 ; + /*clear*/ /*_._IF___V114*/ + meltfptr[113] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30352,13 +33267,15 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LETBINDTHENLIST__V49*/ meltfptr[48]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.WRAP_NORMAL_LETSEQ__V116*/ meltfptr[114] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.NTHEN__V84*/ meltfptr[67]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.WRAP_NORMAL_LETSEQ__V116*/ + meltfptr[114] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.NTHEN__V84*/ meltfptr[67]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4919:/ quasiblock"); - /*_.NTHENLET__V117*/ meltfptr[113] = /*_.WRAP_NORMAL_LETSEQ__V116*/ meltfptr[114];; + /*_.NTHENLET__V117*/ + meltfptr[113] = /*_.WRAP_NORMAL_LETSEQ__V116*/ meltfptr[114];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:4926:/ cppif.then"); @@ -30379,7 +33296,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L43*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L43*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30388,7 +33306,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4926:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L43*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L43*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30429,16 +33348,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. loc="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V119*/ meltfptr[118] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V119*/ + meltfptr[118] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V118*/ meltfptr[117] = /*_.MELT_DEBUG_FUN__V119*/ meltfptr[118];; + /*_._IF___V118*/ + meltfptr[117] = /*_.MELT_DEBUG_FUN__V119*/ meltfptr[118];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4926:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L44*/ meltfnum[32] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L44*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V119*/ meltfptr[118] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V119*/ + meltfptr[118] = 0 ; } ; } @@ -30451,7 +33374,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4926:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30460,9 +33384,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L43*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L43*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V118*/ meltfptr[117] = 0 ; + /*clear*/ /*_._IF___V118*/ + meltfptr[117] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30494,13 +33420,15 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NELSEBINDINGS__V105*/ meltfptr[63]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.WRAP_NORMAL_LETSEQ__V120*/ meltfptr[118] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.NELSE__V104*/ meltfptr[68]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.WRAP_NORMAL_LETSEQ__V120*/ + meltfptr[118] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.NELSE__V104*/ meltfptr[68]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:4925:/ quasiblock"); - /*_.NELSELET__V121*/ meltfptr[117] = /*_.WRAP_NORMAL_LETSEQ__V120*/ meltfptr[118];; + /*_.NELSELET__V121*/ + meltfptr[117] = /*_.WRAP_NORMAL_LETSEQ__V120*/ meltfptr[118];; MELT_LOCATION("warmelt-normal.melt:4930:/ blockmultialloc"); /*multiallocblock*/ { @@ -30513,11 +33441,13 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0__CBIND_x3*/ - /*_.CBIND__V123*/ meltfptr[122] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CBIND_x3; + /*_.CBIND__V123*/ + meltfptr[122] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CBIND_x3; meltletrec_1_ptr->rpair_0__CBIND_x3.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ - /*_.LIST___V124*/ meltfptr[123] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; + /*_.LIST___V124*/ + meltfptr[123] = (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)))); @@ -30539,17 +33469,22 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V124*/ meltfptr[123]); ; - /*_.NBINDLIST__V122*/ meltfptr[121] = /*_.LIST___V124*/ meltfptr[123];; + /*_.NBINDLIST__V122*/ + meltfptr[121] = /*_.LIST___V124*/ meltfptr[123];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4930:/ clear"); - /*clear*/ /*_.CBIND__V123*/ meltfptr[122] = 0 ; + /*clear*/ /*_.CBIND__V123*/ + meltfptr[122] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V124*/ meltfptr[123] = 0 ; + /*clear*/ /*_.LIST___V124*/ + meltfptr[123] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V123*/ meltfptr[122] = 0 ; + /*clear*/ /*_.CBIND__V123*/ + meltfptr[122] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V124*/ meltfptr[123] = 0 ; + /*clear*/ /*_.LIST___V124*/ + meltfptr[123] = 0 ; } /*end multiallocblock*/ ; @@ -30563,7 +33498,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IFVARIADIC*/ meltfrout->tabval[28])), (6), "CLASS_NREP_IFVARIADIC"); - /*_.INST__V126*/ meltfptr[123] = + /*_.INST__V126*/ + meltfptr[123] = newobj; }; ; @@ -30596,7 +33532,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V126*/ meltfptr[123], "newly made instance"); ; - /*_.NIFV__V125*/ meltfptr[122] = /*_.INST__V126*/ meltfptr[123];; + /*_.NIFV__V125*/ + meltfptr[122] = /*_.INST__V126*/ meltfptr[123];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:4938:/ cppif.then"); @@ -30617,7 +33554,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L45*/ meltfnum[32] = + /*_#MELT_NEED_DBG__L45*/ + meltfnum[32] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30626,7 +33564,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4938:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L45*/ meltfnum[32]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L45*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30659,16 +33598,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_ifvariadic nifv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NIFV__V125*/ meltfptr[122]; - /*_.MELT_DEBUG_FUN__V128*/ meltfptr[127] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V128*/ + meltfptr[127] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V127*/ meltfptr[126] = /*_.MELT_DEBUG_FUN__V128*/ meltfptr[127];; + /*_._IF___V127*/ + meltfptr[126] = /*_.MELT_DEBUG_FUN__V128*/ meltfptr[127];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4938:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L46*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L46*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V128*/ meltfptr[127] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V128*/ + meltfptr[127] = 0 ; } ; } @@ -30681,7 +33624,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4938:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30690,9 +33634,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L45*/ meltfnum[32] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L45*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V127*/ meltfptr[126] = 0 ; + /*clear*/ /*_._IF___V127*/ + meltfptr[126] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30716,7 +33662,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4939:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V110*/ meltfptr[109]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ meltfrout->tabval[29]))) ) /*then*/ @@ -30763,7 +33710,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L47*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L47*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30772,7 +33720,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4940:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L47*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L47*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30809,16 +33758,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbindlist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDLIST__V122*/ meltfptr[121]; - /*_.MELT_DEBUG_FUN__V130*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V130*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V129*/ meltfptr[127] = /*_.MELT_DEBUG_FUN__V130*/ meltfptr[126];; + /*_._IF___V129*/ + meltfptr[127] = /*_.MELT_DEBUG_FUN__V130*/ meltfptr[126];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4940:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L48*/ meltfnum[32] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L48*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V130*/ meltfptr[126] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V130*/ + meltfptr[126] = 0 ; } ; } @@ -30831,7 +33784,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4940:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30840,9 +33794,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L47*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L47*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V129*/ meltfptr[127] = 0 ; + /*clear*/ /*_._IF___V129*/ + meltfptr[127] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30868,7 +33824,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4941:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V112*/ meltfptr[111];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CLOCC__V112*/ meltfptr[111];; MELT_LOCATION("warmelt-normal.melt:4941:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -30876,106 +33833,150 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V108*/ meltfptr[96] = /*_.RETURN___V131*/ meltfptr[126];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V108*/ + meltfptr[96] = /*_.RETURN___V131*/ meltfptr[126];; MELT_LOCATION("warmelt-normal.melt:4905:/ clear"); - /*clear*/ /*_.CSYM__V109*/ meltfptr[97] = 0 ; + /*clear*/ /*_.CSYM__V109*/ + meltfptr[97] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V110*/ meltfptr[109] = 0 ; + /*clear*/ /*_.CBIND__V110*/ + meltfptr[109] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V112*/ meltfptr[111] = 0 ; + /*clear*/ /*_.CLOCC__V112*/ + meltfptr[111] = 0 ; /*^clear*/ - /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V116*/ meltfptr[114] = 0 ; + /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V116*/ + meltfptr[114] = 0 ; /*^clear*/ - /*clear*/ /*_.NTHENLET__V117*/ meltfptr[113] = 0 ; + /*clear*/ /*_.NTHENLET__V117*/ + meltfptr[113] = 0 ; /*^clear*/ - /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V120*/ meltfptr[118] = 0 ; + /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V120*/ + meltfptr[118] = 0 ; /*^clear*/ - /*clear*/ /*_.NELSELET__V121*/ meltfptr[117] = 0 ; + /*clear*/ /*_.NELSELET__V121*/ + meltfptr[117] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDLIST__V122*/ meltfptr[121] = 0 ; + /*clear*/ /*_.NBINDLIST__V122*/ + meltfptr[121] = 0 ; /*^clear*/ - /*clear*/ /*_.NIFV__V125*/ meltfptr[122] = 0 ; + /*clear*/ /*_.NIFV__V125*/ + meltfptr[122] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V131*/ meltfptr[126] = 0 ; + /*clear*/ /*_.RETURN___V131*/ + meltfptr[126] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V103*/ meltfptr[95] = /*_.LET___V108*/ meltfptr[96];; + /*_.MULTI___V103*/ + meltfptr[95] = /*_.LET___V108*/ meltfptr[96];; MELT_LOCATION("warmelt-normal.melt:4899:/ clear"); - /*clear*/ /*_.LET___V108*/ meltfptr[96] = 0 ; + /*clear*/ /*_.LET___V108*/ + meltfptr[96] = 0 ; /*^clear*/ - /*clear*/ /*_.NELSEBINDINGS__V105*/ meltfptr[63] = 0 ; + /*clear*/ /*_.NELSEBINDINGS__V105*/ + meltfptr[63] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V83*/ meltfptr[52] = /*_.MULTI___V103*/ meltfptr[95];; + /*_.MULTI___V83*/ + meltfptr[52] = /*_.MULTI___V103*/ meltfptr[95];; MELT_LOCATION("warmelt-normal.melt:4876:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V88*/ meltfptr[71] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V88*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V103*/ meltfptr[95] = 0 ; + /*clear*/ /*_.MULTI___V103*/ + meltfptr[95] = 0 ; /*^clear*/ - /*clear*/ /*_.NTHENBINDINGS__V85*/ meltfptr[59] = 0 ; - /*_.LET___V47*/ meltfptr[37] = /*_.MULTI___V83*/ meltfptr[52];; + /*clear*/ /*_.NTHENBINDINGS__V85*/ + meltfptr[59] = 0 ; + /*_.LET___V47*/ + meltfptr[37] = /*_.MULTI___V83*/ meltfptr[52];; MELT_LOCATION("warmelt-normal.melt:4816:/ clear"); - /*clear*/ /*_.LETBINDTUP__V48*/ meltfptr[27] = 0 ; + /*clear*/ /*_.LETBINDTUP__V48*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.LETBINDTHENLIST__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.LETBINDTHENLIST__V49*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.LOCSYMTUP__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.LOCSYMTUP__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPTUP__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.CTYPTUP__V51*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V83*/ meltfptr[52] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.LET___V47*/ meltfptr[37];; + /*clear*/ /*_.MULTI___V83*/ + meltfptr[52] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.LET___V47*/ meltfptr[37];; MELT_LOCATION("warmelt-normal.melt:4794:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.LOCA_LOCATION__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.LOC__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SARGS__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SARGS__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#NBARGS__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NBARGS__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.STHEN__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.STHEN__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.SELSE__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.SELSE__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPRO__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.CURPRO__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.SYCMAP__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.SYCMAP__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPROCARGS__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CURPROCARGS__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.NPROVARIADIC__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.NPROVARIADIC__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWENV__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NEWENV__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V30*/ meltfptr[28] = 0 ; + /*clear*/ /*_.IFCPP___V30*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V33*/ meltfptr[31] = 0 ; + /*clear*/ /*_.IFCPP___V33*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L11*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_NOT_A__L11*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IF___V36*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V44*/ meltfptr[40] = 0 ; + /*clear*/ /*_.IFCPP___V44*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V47*/ meltfptr[37] = 0 ; + /*clear*/ /*_.LET___V47*/ + meltfptr[37] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4789:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:4789:/ locexp"); @@ -30990,17 +33991,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 ; } ; @@ -31082,7 +34088,8 @@ meltrout_81_WARMELTmiNORMAL_NORMEXP_COMPILE_WARNING(meltclosure_ptr_t meltclosp_ /* end of frame for routine meltrout_81_WARMELTmiNORMAL_NORMEXP_COMPILE_WARNING fromline 1756 */ - /* classy proc frame meltrout_81_WARMELTmiNORMAL_NORMEXP_COMPILE_WARNING */ MeltFrame_meltrout_81_WARMELTmiNORMAL_NORMEXP_COMPILE_WARNING + /* classy proc frame meltrout_81_WARMELTmiNORMAL_NORMEXP_COMPILE_WARNING */ + MeltFrame_meltrout_81_WARMELTmiNORMAL_NORMEXP_COMPILE_WARNING meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_81_WARMELTmiNORMAL_NORMEXP_COMPILE_WARNING fromline 1785*/ #if ENABLE_CHECKING @@ -31095,7 +34102,8 @@ meltrout_81_WARMELTmiNORMAL_NORMEXP_COMPILE_WARNING(meltclosure_ptr_t meltclosp_ #define meltframe meltfram__ melt_trace_start("NORMEXP_COMPILE_WARNING", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -31105,26 +34113,30 @@ meltrout_81_WARMELTmiNORMAL_NORMEXP_COMPILE_WARNING(meltclosure_ptr_t meltclosp_ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4948:/ 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); ; @@ -31156,7 +34168,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)) @@ -31165,7 +34178,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4949:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31198,16 +34212,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_compile_warning 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:4949:/ 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 ; } ; } @@ -31220,7 +34238,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4949:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31229,9 +34248,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*/ @@ -31261,10 +34282,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_COMPILE_WARNING*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:4950:/ 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);; @@ -31293,25 +34316,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4950; /*^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:4950:/ 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:4950:/ 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*/ @@ -31329,10 +34358,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:4951:/ 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);; @@ -31361,25 +34392,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4951; /*^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:4951:/ 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:4951:/ 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*/ @@ -31397,10 +34434,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:4952:/ 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);; @@ -31429,25 +34468,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4952; /*^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:4952:/ 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:4952:/ 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*/ @@ -31463,7 +34508,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:4954:/ getslot"); @@ -31471,7 +34517,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, "SCDIAG_MSG"); - /*_.SWMSG__V19*/ meltfptr[18] = slot; + /*_.SWMSG__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4955:/ getslot"); @@ -31479,7 +34526,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, "SCDIAG_EXPR"); - /*_.SWEXP__V20*/ meltfptr[19] = slot; + /*_.SWEXP__V20*/ + meltfptr[19] = slot; }; ; @@ -31494,7 +34542,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "COMPILE_WARNING: $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SWMSG__V19*/ meltfptr[18]; - /*_.WARNING_AT__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!WARNING_AT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.WARNING_AT__V21*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!WARNING_AT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -31516,7 +34565,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V24*/ meltfptr[23];/*^multimsend.send*/ - /*_.NEXP__V23*/ meltfptr[22] = meltgc_send ((melt_ptr_t)(/*_.SWEXP__V20*/ meltfptr[19]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NEXP__V23*/ + meltfptr[22] = meltgc_send ((melt_ptr_t)(/*_.SWEXP__V20*/ meltfptr[19]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -31542,7 +34592,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)) @@ -31551,7 +34602,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4961:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31588,16 +34640,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__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:4961:/ 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 ; } ; } @@ -31610,7 +34666,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4961:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31619,9 +34676,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*/ @@ -31647,7 +34706,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4962:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.NEXP__V23*/ meltfptr[22];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.NEXP__V23*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:4962:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -31655,36 +34715,47 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V22*/ meltfptr[21] = /*_.RETURN___V27*/ meltfptr[25];; + /*_.MULTI___V22*/ + meltfptr[21] = /*_.RETURN___V27*/ meltfptr[25];; MELT_LOCATION("warmelt-normal.melt:4958:/ clear"); - /*clear*/ /*_.RETURN___V27*/ meltfptr[25] = 0 ; + /*clear*/ /*_.RETURN___V27*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V24*/ meltfptr[23] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.MULTI___V22*/ meltfptr[21];; + /*clear*/ /*_.NBIND__V24*/ + meltfptr[23] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.MULTI___V22*/ meltfptr[21];; MELT_LOCATION("warmelt-normal.melt:4953:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SWMSG__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SWMSG__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SWEXP__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SWEXP__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.WARNING_AT__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.WARNING_AT__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MULTI___V22*/ + meltfptr[21] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4948:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:4948:/ locexp"); @@ -31699,17 +34770,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 ; } ; @@ -31791,7 +34867,8 @@ meltrout_82_WARMELTmiNORMAL_LAMBDA_cl20(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_82_WARMELTmiNORMAL_LAMBDA_cl20 fromline 1756 */ - /* classy proc frame meltrout_82_WARMELTmiNORMAL_LAMBDA_cl20 */ MeltFrame_meltrout_82_WARMELTmiNORMAL_LAMBDA_cl20 + /* classy proc frame meltrout_82_WARMELTmiNORMAL_LAMBDA_cl20 */ + MeltFrame_meltrout_82_WARMELTmiNORMAL_LAMBDA_cl20 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_82_WARMELTmiNORMAL_LAMBDA_cl20 fromline 1785*/ #if ENABLE_CHECKING @@ -31804,7 +34881,8 @@ meltrout_82_WARMELTmiNORMAL_LAMBDA_cl20(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl20", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -31814,12 +34892,14 @@ meltrout_82_WARMELTmiNORMAL_LAMBDA_cl20(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4967:/ 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); ; @@ -31843,7 +34923,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, "SCDIAG_EXPR"); - /*_.SCDIAG_EXPR__V4*/ meltfptr[3] = slot; + /*_.SCDIAG_EXPR__V4*/ + meltfptr[3] = slot; }; ; } @@ -31863,13 +34944,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.GET_CTYPE__V5*/ meltfptr[4] = meltgc_send((melt_ptr_t)(/*_.SCDIAG_EXPR__V4*/ meltfptr[3]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GET_CTYPE__V5*/ + meltfptr[4] = meltgc_send((melt_ptr_t)(/*_.SCDIAG_EXPR__V4*/ meltfptr[3]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^quasiblock*/ - /*_._RETVAL___V1*/ meltfptr[0] = /*_.GET_CTYPE__V5*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.GET_CTYPE__V5*/ meltfptr[4];; { MELT_LOCATION("warmelt-normal.melt:4967:/ locexp"); @@ -31884,13 +34967,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.SCDIAG_EXPR__V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.SCDIAG_EXPR__V4*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.GET_CTYPE__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.GET_CTYPE__V5*/ + meltfptr[4] = 0 ; } ; @@ -31972,7 +35058,8 @@ meltrout_83_WARMELTmiNORMAL_NORMEXP_COMPILE_ERROR(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_83_WARMELTmiNORMAL_NORMEXP_COMPILE_ERROR fromline 1756 */ - /* classy proc frame meltrout_83_WARMELTmiNORMAL_NORMEXP_COMPILE_ERROR */ MeltFrame_meltrout_83_WARMELTmiNORMAL_NORMEXP_COMPILE_ERROR + /* classy proc frame meltrout_83_WARMELTmiNORMAL_NORMEXP_COMPILE_ERROR */ + MeltFrame_meltrout_83_WARMELTmiNORMAL_NORMEXP_COMPILE_ERROR meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_83_WARMELTmiNORMAL_NORMEXP_COMPILE_ERROR fromline 1785*/ #if ENABLE_CHECKING @@ -31985,7 +35072,8 @@ meltrout_83_WARMELTmiNORMAL_NORMEXP_COMPILE_ERROR(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("NORMEXP_COMPILE_ERROR", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -31995,26 +35083,30 @@ meltrout_83_WARMELTmiNORMAL_NORMEXP_COMPILE_ERROR(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4971:/ 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); ; @@ -32046,7 +35138,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)) @@ -32055,7 +35148,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4972:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32088,16 +35182,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_compile_error 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:4972:/ 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 ; } ; } @@ -32110,7 +35208,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4972:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -32119,9 +35218,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*/ @@ -32151,10 +35252,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_COMPILE_ERROR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:4973:/ 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);; @@ -32183,25 +35286,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4973; /*^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:4973:/ 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:4973:/ 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*/ @@ -32219,10 +35328,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:4974:/ 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);; @@ -32251,25 +35362,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4974; /*^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:4974:/ 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:4974:/ 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*/ @@ -32287,10 +35404,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:4975:/ 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);; @@ -32319,25 +35438,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4975; /*^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:4975:/ 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:4975:/ 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*/ @@ -32353,7 +35478,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:4977:/ getslot"); @@ -32361,7 +35487,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, "SCDIAG_MSG"); - /*_.SWMSG__V19*/ meltfptr[18] = slot; + /*_.SWMSG__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:4978:/ getslot"); @@ -32369,7 +35496,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, "SCDIAG_EXPR"); - /*_.SWEXP__V20*/ meltfptr[19] = slot; + /*_.SWEXP__V20*/ + meltfptr[19] = slot; }; ; @@ -32384,7 +35512,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "COMPILE_ERROR: $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SWMSG__V19*/ meltfptr[18]; - /*_.ERROR_AT__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V21*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -32406,7 +35535,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V24*/ meltfptr[23];/*^multimsend.send*/ - /*_.NEXP__V23*/ meltfptr[22] = meltgc_send ((melt_ptr_t)(/*_.SWEXP__V20*/ meltfptr[19]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NEXP__V23*/ + meltfptr[22] = meltgc_send ((melt_ptr_t)(/*_.SWEXP__V20*/ meltfptr[19]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -32432,7 +35562,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)) @@ -32441,7 +35572,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:4984:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32478,16 +35610,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__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:4984:/ 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 ; } ; } @@ -32500,7 +35636,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:4984:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -32509,9 +35646,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*/ @@ -32537,7 +35676,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4985:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.NEXP__V23*/ meltfptr[22];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.NEXP__V23*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:4985:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -32545,36 +35685,47 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V22*/ meltfptr[21] = /*_.RETURN___V27*/ meltfptr[25];; + /*_.MULTI___V22*/ + meltfptr[21] = /*_.RETURN___V27*/ meltfptr[25];; MELT_LOCATION("warmelt-normal.melt:4981:/ clear"); - /*clear*/ /*_.RETURN___V27*/ meltfptr[25] = 0 ; + /*clear*/ /*_.RETURN___V27*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V24*/ meltfptr[23] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.MULTI___V22*/ meltfptr[21];; + /*clear*/ /*_.NBIND__V24*/ + meltfptr[23] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.MULTI___V22*/ meltfptr[21];; MELT_LOCATION("warmelt-normal.melt:4976:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SWMSG__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SWMSG__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SWEXP__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SWEXP__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.ERROR_AT__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MULTI___V22*/ + meltfptr[21] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4971:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:4971:/ locexp"); @@ -32589,17 +35740,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 ; } ; @@ -32681,7 +35837,8 @@ meltrout_84_WARMELTmiNORMAL_LAMBDA_cl21(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_84_WARMELTmiNORMAL_LAMBDA_cl21 fromline 1756 */ - /* classy proc frame meltrout_84_WARMELTmiNORMAL_LAMBDA_cl21 */ MeltFrame_meltrout_84_WARMELTmiNORMAL_LAMBDA_cl21 + /* classy proc frame meltrout_84_WARMELTmiNORMAL_LAMBDA_cl21 */ + MeltFrame_meltrout_84_WARMELTmiNORMAL_LAMBDA_cl21 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_84_WARMELTmiNORMAL_LAMBDA_cl21 fromline 1785*/ #if ENABLE_CHECKING @@ -32694,7 +35851,8 @@ meltrout_84_WARMELTmiNORMAL_LAMBDA_cl21(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl21", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -32704,12 +35862,14 @@ meltrout_84_WARMELTmiNORMAL_LAMBDA_cl21(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4990:/ 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); ; @@ -32733,7 +35893,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, "SCDIAG_EXPR"); - /*_.SCDIAG_EXPR__V4*/ meltfptr[3] = slot; + /*_.SCDIAG_EXPR__V4*/ + meltfptr[3] = slot; }; ; } @@ -32753,13 +35914,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.GET_CTYPE__V5*/ meltfptr[4] = meltgc_send((melt_ptr_t)(/*_.SCDIAG_EXPR__V4*/ meltfptr[3]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GET_CTYPE__V5*/ + meltfptr[4] = meltgc_send((melt_ptr_t)(/*_.SCDIAG_EXPR__V4*/ meltfptr[3]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^quasiblock*/ - /*_._RETVAL___V1*/ meltfptr[0] = /*_.GET_CTYPE__V5*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.GET_CTYPE__V5*/ meltfptr[4];; { MELT_LOCATION("warmelt-normal.melt:4990:/ locexp"); @@ -32774,13 +35937,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.SCDIAG_EXPR__V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.SCDIAG_EXPR__V4*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.GET_CTYPE__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.GET_CTYPE__V5*/ + meltfptr[4] = 0 ; } ; @@ -32862,7 +36028,8 @@ meltrout_85_WARMELTmiNORMAL_REPLACE_LAST_BY_RETURN(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_85_WARMELTmiNORMAL_REPLACE_LAST_BY_RETURN fromline 1756 */ - /* classy proc frame meltrout_85_WARMELTmiNORMAL_REPLACE_LAST_BY_RETURN */ MeltFrame_meltrout_85_WARMELTmiNORMAL_REPLACE_LAST_BY_RETURN + /* classy proc frame meltrout_85_WARMELTmiNORMAL_REPLACE_LAST_BY_RETURN */ + MeltFrame_meltrout_85_WARMELTmiNORMAL_REPLACE_LAST_BY_RETURN meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_85_WARMELTmiNORMAL_REPLACE_LAST_BY_RETURN fromline 1785*/ #if ENABLE_CHECKING @@ -32875,7 +36042,8 @@ meltrout_85_WARMELTmiNORMAL_REPLACE_LAST_BY_RETURN(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("REPLACE_LAST_BY_RETURN", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -32885,19 +36053,22 @@ meltrout_85_WARMELTmiNORMAL_REPLACE_LAST_BY_RETURN(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:4995:/ getarg"); - /*_.TUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.TUP__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; - /*_.SLOC__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.SLOC__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V4*/ meltfptr[3])) != NULL); ; @@ -32919,10 +36090,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L1*/ meltfnum[0] = + /*_#IS_MULTIPLE__L1*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-normal.melt:4996:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; @@ -32951,25 +36124,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4996; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.TUP__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4996:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ + meltfptr[6] = 0 ; } ; } ; - /*_.IFCPP___V5*/ meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];; + /*_.IFCPP___V5*/ + meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4996:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32987,10 +36166,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[1])));; MELT_LOCATION("warmelt-normal.melt:4997:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -33019,25 +36200,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4997; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (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[0])), (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:4997:/ 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:4997:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L2*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33048,16 +36235,19 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:4998:/ quasiblock"); - /*_#TUPLEN__L3*/ meltfnum[0] = + /*_#TUPLEN__L3*/ + meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.TUP__V2*/ meltfptr[1])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#gtI__L4*/ meltfnum[3] = + /*_#gtI__L4*/ + meltfnum[3] = ((/*_#TUPLEN__L3*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-normal.melt:4999:/ cond"); - /*cond*/ if (/*_#gtI__L4*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#gtI__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33067,16 +36257,20 @@ meltlab_endgetargs: /*_#miI__L5*/ meltfnum[4] = ((/*_#TUPLEN__L3*/ meltfnum[0]) - (1));; /*^compute*/ - /*_.MULTIPLE_NTH__V13*/ meltfptr[12] = + /*_.MULTIPLE_NTH__V13*/ + meltfptr[12] = (melt_multiple_nth((melt_ptr_t)(/*_.TUP__V2*/ meltfptr[1]), (/*_#miI__L5*/ meltfnum[4])));; /*^compute*/ - /*_.LASTCOMP__V12*/ meltfptr[5] = /*_.MULTIPLE_NTH__V13*/ meltfptr[12];; + /*_.LASTCOMP__V12*/ + meltfptr[5] = /*_.MULTIPLE_NTH__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:4999:/ clear"); - /*clear*/ /*_#miI__L5*/ meltfnum[4] = 0 ; + /*clear*/ /*_#miI__L5*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_NTH__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MULTIPLE_NTH__V13*/ + meltfptr[12] = 0 ; } ; } @@ -33090,10 +36284,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L6*/ meltfnum[4] = + /*_#IS_A__L6*/ + meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V12*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NREP_RETURN*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:5002:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33106,7 +36302,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5003:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.TUP__V2*/ meltfptr[1];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.TUP__V2*/ meltfptr[1];; { MELT_LOCATION("warmelt-normal.melt:5003:/ locexp"); @@ -33121,12 +36318,15 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_._IFELSE___V14*/ meltfptr[12] = /*_.RETURN___V15*/ meltfptr[14];; + /*finalret*/ + goto meltlabend_rout ; + /*_._IFELSE___V14*/ + meltfptr[12] = /*_.RETURN___V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5002:/ clear"); - /*clear*/ /*_.RETURN___V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.RETURN___V15*/ + meltfptr[14] = 0 ; } ; } @@ -33140,10 +36340,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ meltfnum[6] = + /*_#IS_A__L7*/ + meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V12*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:5006:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33158,13 +36360,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LASTCOMP__V12*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NOCC_CTYP"); - /*_.NOCC_CTYP__V17*/ meltfptr[16] = slot; + /*_.NOCC_CTYP__V17*/ + meltfptr[16] = slot; }; ; - /*_#eqeq__L8*/ meltfnum[7] = + /*_#eqeq__L8*/ + meltfnum[7] = ((/*_.NOCC_CTYP__V17*/ meltfptr[16]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:5007:/ cond"); - /*cond*/ if (/*_#eqeq__L8*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#eqeq__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33184,7 +36389,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ meltfrout->tabval[2])), (3), "CLASS_NREP_RETURN"); - /*_.INST__V19*/ meltfptr[18] = + /*_.INST__V19*/ + meltfptr[18] = newobj; }; ; @@ -33202,7 +36408,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V19*/ meltfptr[18], "newly made instance"); ; - /*_.INST___V18*/ meltfptr[17] = /*_.INST__V19*/ meltfptr[18];; + /*_.INST___V18*/ + meltfptr[17] = /*_.INST__V19*/ meltfptr[18];; { MELT_LOCATION("warmelt-normal.melt:5008:/ locexp"); @@ -33212,9 +36419,11 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5007:/ clear"); - /*clear*/ /*_#miI__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#miI__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.INST___V18*/ + meltfptr[17] = 0 ; } ; } /*noelse*/ @@ -33225,7 +36434,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5013:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.TUP__V2*/ meltfptr[1];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.TUP__V2*/ meltfptr[1];; { MELT_LOCATION("warmelt-normal.melt:5013:/ locexp"); @@ -33240,23 +36450,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:5006:/ quasiblock"); - /*_.PROGN___V21*/ meltfptr[20] = /*_.RETURN___V20*/ meltfptr[17];; + /*_.PROGN___V21*/ + meltfptr[20] = /*_.RETURN___V20*/ meltfptr[17];; /*^compute*/ - /*_._IFELSE___V16*/ meltfptr[14] = /*_.PROGN___V21*/ meltfptr[20];; + /*_._IFELSE___V16*/ + meltfptr[14] = /*_.PROGN___V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5006:/ clear"); - /*clear*/ /*_.NOCC_CTYP__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.NOCC_CTYP__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#eqeq__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V20*/ meltfptr[17] = 0 ; + /*clear*/ /*_.RETURN___V20*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.PROGN___V21*/ + meltfptr[20] = 0 ; } ; } @@ -33270,10 +36487,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L10*/ meltfnum[8] = + /*_#IS_A__L10*/ + meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V12*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NREP_BOUND_DATA*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:5016:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33293,7 +36512,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ meltfrout->tabval[2])), (3), "CLASS_NREP_RETURN"); - /*_.INST__V24*/ meltfptr[20] = + /*_.INST__V24*/ + meltfptr[20] = newobj; }; ; @@ -33311,7 +36531,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V24*/ meltfptr[20], "newly made instance"); ; - /*_.INST___V23*/ meltfptr[17] = /*_.INST__V24*/ meltfptr[20];; + /*_.INST___V23*/ + meltfptr[17] = /*_.INST__V24*/ meltfptr[20];; { MELT_LOCATION("warmelt-normal.melt:5017:/ locexp"); @@ -33324,7 +36545,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5022:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.TUP__V2*/ meltfptr[1];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.TUP__V2*/ meltfptr[1];; { MELT_LOCATION("warmelt-normal.melt:5022:/ locexp"); @@ -33339,23 +36561,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:5016:/ quasiblock"); - /*_.PROGN___V26*/ meltfptr[25] = /*_.RETURN___V25*/ meltfptr[24];; + /*_.PROGN___V26*/ + meltfptr[25] = /*_.RETURN___V25*/ meltfptr[24];; /*^compute*/ - /*_._IFELSE___V22*/ meltfptr[16] = /*_.PROGN___V26*/ meltfptr[25];; + /*_._IFELSE___V22*/ + meltfptr[16] = /*_.PROGN___V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5016:/ clear"); - /*clear*/ /*_#miI__L11*/ meltfnum[7] = 0 ; + /*clear*/ /*_#miI__L11*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V23*/ meltfptr[17] = 0 ; + /*clear*/ /*_.INST___V23*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.RETURN___V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.PROGN___V26*/ + meltfptr[25] = 0 ; } ; } @@ -33369,10 +36598,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L12*/ meltfnum[7] = + /*_#NULL__L12*/ + meltfnum[7] = (/*null*/(/*_.LASTCOMP__V12*/ meltfptr[5]) == NULL);; MELT_LOCATION("warmelt-normal.melt:5025:/ cond"); - /*cond*/ if (/*_#NULL__L12*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#NULL__L12*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33385,7 +36616,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5026:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.TUP__V2*/ meltfptr[1];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.TUP__V2*/ meltfptr[1];; { MELT_LOCATION("warmelt-normal.melt:5026:/ locexp"); @@ -33400,12 +36632,15 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_._IFELSE___V27*/ meltfptr[17] = /*_.RETURN___V28*/ meltfptr[24];; + /*finalret*/ + goto meltlabend_rout ; + /*_._IFELSE___V27*/ + meltfptr[17] = /*_.RETURN___V28*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5025:/ clear"); - /*clear*/ /*_.RETURN___V28*/ meltfptr[24] = 0 ; + /*clear*/ /*_.RETURN___V28*/ + meltfptr[24] = 0 ; } ; } @@ -33419,10 +36654,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L13*/ meltfnum[12] = + /*_#IS_A__L13*/ + meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V12*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NREP_LET*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normal.melt:5029:/ cond"); - /*cond*/ if (/*_#IS_A__L13*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#IS_A__L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33437,7 +36674,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LASTCOMP__V12*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NLET_BODY"); - /*_.LBODY__V31*/ meltfptr[30] = slot; + /*_.LBODY__V31*/ + meltfptr[30] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5031:/ getslot"); @@ -33445,7 +36683,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LASTCOMP__V12*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NLET_BINDINGS"); - /*_.LBINDING__V32*/ meltfptr[31] = slot; + /*_.LBINDING__V32*/ + meltfptr[31] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5032:/ getslot"); @@ -33453,7 +36692,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LASTCOMP__V12*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.LLOC__V33*/ meltfptr[32] = slot; + /*_.LLOC__V33*/ + meltfptr[32] = slot; }; ; @@ -33469,7 +36709,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V36*/ meltfptr[35] = + /*newclosure*/ /*_.LAMBDA___V36*/ + meltfptr[35] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ meltfrout->tabval[10])), (1)); ; /*^putclosedv*/ @@ -33478,7 +36719,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ meltfptr[35]))); ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ meltfptr[35])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V34*/ meltfptr[33]); ; - /*_.LAMBDA___V35*/ meltfptr[34] = /*_.LAMBDA___V36*/ meltfptr[35];; + /*_.LAMBDA___V35*/ + meltfptr[34] = /*_.LAMBDA___V36*/ meltfptr[35];; MELT_CHECK_SIGNAL(); ; @@ -33489,16 +36731,19 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V35*/ meltfptr[34]; - /*_.MULTIPLE_EVERY__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.LBINDING__V32*/ meltfptr[31]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_EVERY__V37*/ + meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.LBINDING__V32*/ meltfptr[31]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L14*/ meltfnum[13] = + /*_#IS_MULTIPLE__L14*/ + meltfnum[13] = (melt_magic_discr((melt_ptr_t)(/*_.LBODY__V31*/ meltfptr[30])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-normal.melt:5040:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L14*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33517,14 +36762,17 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V34*/ meltfptr[33]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LLOC__V33*/ meltfptr[32]; - /*_.REPLACE_LAST_BY_RETURN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.LBODY__V31*/ meltfptr[30]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.REPLACE_LAST_BY_RETURN__V39*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.LBODY__V31*/ meltfptr[30]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V38*/ meltfptr[37] = /*_.REPLACE_LAST_BY_RETURN__V39*/ meltfptr[38];; + /*_._IF___V38*/ + meltfptr[37] = /*_.REPLACE_LAST_BY_RETURN__V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5040:/ clear"); - /*clear*/ /*_.REPLACE_LAST_BY_RETURN__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.REPLACE_LAST_BY_RETURN__V39*/ + meltfptr[38] = 0 ; } ; } @@ -33540,7 +36788,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5042:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.TUP__V2*/ meltfptr[1];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.TUP__V2*/ meltfptr[1];; { MELT_LOCATION("warmelt-normal.melt:5042:/ locexp"); @@ -33555,32 +36804,45 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V30*/ meltfptr[24] = /*_.RETURN___V40*/ meltfptr[38];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V30*/ + meltfptr[24] = /*_.RETURN___V40*/ meltfptr[38];; MELT_LOCATION("warmelt-normal.melt:5030:/ clear"); - /*clear*/ /*_.LBODY__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.LBODY__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.LBINDING__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.LBINDING__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.LLOC__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.LLOC__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWENV__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.NEWENV__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.LAMBDA___V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_EVERY__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.MULTIPLE_EVERY__V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_MULTIPLE__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_._IF___V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V40*/ meltfptr[38] = 0 ; - /*_._IFELSE___V29*/ meltfptr[25] = /*_.LET___V30*/ meltfptr[24];; + /*clear*/ /*_.RETURN___V40*/ + meltfptr[38] = 0 ; + /*_._IFELSE___V29*/ + meltfptr[25] = /*_.LET___V30*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5029:/ clear"); - /*clear*/ /*_.LET___V30*/ meltfptr[24] = 0 ; + /*clear*/ /*_.LET___V30*/ + meltfptr[24] = 0 ; } ; } @@ -33594,10 +36856,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L15*/ meltfnum[13] = + /*_#IS_A__L15*/ + meltfnum[13] = melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V12*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:5046:/ cond"); - /*cond*/ if (/*_#IS_A__L15*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#IS_A__L15*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33617,7 +36881,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.LASTYP__V43*/ meltfptr[32] = meltgc_send((melt_ptr_t)(/*_.LASTCOMP__V12*/ meltfptr[5]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[13])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LASTYP__V43*/ + meltfptr[32] = meltgc_send((melt_ptr_t)(/*_.LASTCOMP__V12*/ meltfptr[5]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[13])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5048:/ getslot"); @@ -33625,16 +36890,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LASTCOMP__V12*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.LOC__V44*/ meltfptr[33] = slot; + /*_.LOC__V44*/ + meltfptr[33] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L16*/ meltfnum[15] = + /*_#eqeq__L16*/ + meltfnum[15] = ((/*_.LASTYP__V43*/ meltfptr[32]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:5050:/ cond"); - /*cond*/ if (/*_#eqeq__L16*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#eqeq__L16*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33664,7 +36932,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__V49*/ meltfptr[24] = + /*_.INST__V49*/ + meltfptr[24] = newobj; }; ; @@ -33687,7 +36956,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V49*/ meltfptr[24], "newly made instance"); ; - /*_.RCLOCC__V48*/ meltfptr[38] = /*_.INST__V49*/ meltfptr[24];; + /*_.RCLOCC__V48*/ + meltfptr[38] = /*_.INST__V49*/ meltfptr[24];; MELT_CHECK_SIGNAL(); ; @@ -33699,7 +36969,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ meltfrout->tabval[2])), (3), "CLASS_NREP_RETURN"); - /*_.INST__V51*/ meltfptr[50] = + /*_.INST__V51*/ + meltfptr[50] = newobj; }; ; @@ -33717,7 +36988,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V51*/ meltfptr[50], "newly made instance"); ; - /*_.RETN__V50*/ meltfptr[49] = /*_.INST__V51*/ meltfptr[50];; + /*_.RETN__V50*/ + meltfptr[49] = /*_.INST__V51*/ meltfptr[50];; MELT_CHECK_SIGNAL(); ; @@ -33729,7 +37001,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__V53*/ meltfptr[52] = + /*_.INST__V53*/ + meltfptr[52] = newobj; }; ; @@ -33757,7 +37030,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V53*/ meltfptr[52], "newly made instance"); ; - /*_.RBIND__V52*/ meltfptr[51] = /*_.INST__V53*/ meltfptr[52];; + /*_.RBIND__V52*/ + meltfptr[51] = /*_.INST__V53*/ meltfptr[52];; MELT_LOCATION("warmelt-normal.melt:5066:/ blockmultialloc"); /*multiallocblock*/ { @@ -33769,7 +37043,8 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x11*/ - /*_.TUPLREC___V55*/ meltfptr[54] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x11; + /*_.TUPLREC___V55*/ + meltfptr[54] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x11; meltletrec_1_ptr->rtup_0__TUPLREC__x11.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x11.nbval = 1; @@ -33783,13 +37058,16 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V55*/ meltfptr[54]); ; - /*_.RBINTUP__V54*/ meltfptr[53] = /*_.TUPLREC___V55*/ meltfptr[54];; + /*_.RBINTUP__V54*/ + meltfptr[53] = /*_.TUPLREC___V55*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5066:/ 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*/ ; @@ -33806,7 +37084,8 @@ meltlab_endgetargs: meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x12*/ - /*_.TUPLREC___V57*/ meltfptr[56] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x12; + /*_.TUPLREC___V57*/ + meltfptr[56] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x12; meltletrec_2_ptr->rtup_0__TUPLREC__x12.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_2_ptr->rtup_0__TUPLREC__x12.nbval = 1; @@ -33820,13 +37099,16 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V57*/ meltfptr[56]); ; - /*_.TUPLE___V56*/ meltfptr[54] = /*_.TUPLREC___V57*/ meltfptr[56];; + /*_.TUPLE___V56*/ + meltfptr[54] = /*_.TUPLREC___V57*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5070:/ clear"); - /*clear*/ /*_.TUPLREC___V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.TUPLREC___V57*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.TUPLREC___V57*/ + meltfptr[56] = 0 ; } /*end multiallocblock*/ ; MELT_LOCATION("warmelt-normal.melt:5067:/ quasiblock"); @@ -33837,7 +37119,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LET*/ meltfrout->tabval[6])), (3), "CLASS_NREP_LET"); - /*_.INST__V59*/ meltfptr[58] = + /*_.INST__V59*/ + meltfptr[58] = newobj; }; ; @@ -33860,7 +37143,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V59*/ meltfptr[58], "newly made instance"); ; - /*_.RLET__V58*/ meltfptr[56] = /*_.INST__V59*/ meltfptr[58];; + /*_.RLET__V58*/ + meltfptr[56] = /*_.INST__V59*/ meltfptr[58];; MELT_CHECK_SIGNAL(); ; @@ -33880,7 +37164,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.RCLOCC__V48*/ meltfptr[38], "put-fields"); ; - /*_#miI__L17*/ meltfnum[16] = + /*_#miI__L17*/ + meltfnum[16] = ((/*_#TUPLEN__L3*/ meltfnum[0]) - (1));; { @@ -33894,7 +37179,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5076:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.TUP__V2*/ meltfptr[1];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.TUP__V2*/ meltfptr[1];; { MELT_LOCATION("warmelt-normal.melt:5076:/ locexp"); @@ -33909,32 +37195,45 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V46*/ meltfptr[36] = /*_.RETURN___V60*/ meltfptr[59];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V46*/ + meltfptr[36] = /*_.RETURN___V60*/ meltfptr[59];; MELT_LOCATION("warmelt-normal.melt:5051:/ clear"); - /*clear*/ /*_.RCLOSYM__V47*/ meltfptr[37] = 0 ; + /*clear*/ /*_.RCLOSYM__V47*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.RCLOCC__V48*/ meltfptr[38] = 0 ; + /*clear*/ /*_.RCLOCC__V48*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.RETN__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.RETN__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.RBIND__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.RBIND__V52*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.RBINTUP__V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.RBINTUP__V54*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V56*/ meltfptr[54] = 0 ; + /*clear*/ /*_.TUPLE___V56*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.RLET__V58*/ meltfptr[56] = 0 ; + /*clear*/ /*_.RLET__V58*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_#miI__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#miI__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V60*/ meltfptr[59] = 0 ; - /*_._IF___V45*/ meltfptr[34] = /*_.LET___V46*/ meltfptr[36];; + /*clear*/ /*_.RETURN___V60*/ + meltfptr[59] = 0 ; + /*_._IF___V45*/ + meltfptr[34] = /*_.LET___V46*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5050:/ clear"); - /*clear*/ /*_.LET___V46*/ meltfptr[36] = 0 ; + /*clear*/ /*_.LET___V46*/ + meltfptr[36] = 0 ; } ; } @@ -33945,21 +37244,28 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V42*/ meltfptr[31] = /*_._IF___V45*/ meltfptr[34];; + /*_.LET___V42*/ + meltfptr[31] = /*_._IF___V45*/ meltfptr[34];; MELT_LOCATION("warmelt-normal.melt:5047:/ clear"); - /*clear*/ /*_.LASTYP__V43*/ meltfptr[32] = 0 ; + /*clear*/ /*_.LASTYP__V43*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V44*/ meltfptr[33] = 0 ; + /*clear*/ /*_.LOC__V44*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#eqeq__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V45*/ meltfptr[34] = 0 ; - /*_._IFELSE___V41*/ meltfptr[30] = /*_.LET___V42*/ meltfptr[31];; + /*clear*/ /*_._IF___V45*/ + meltfptr[34] = 0 ; + /*_._IFELSE___V41*/ + meltfptr[30] = /*_.LET___V42*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5046:/ clear"); - /*clear*/ /*_.LET___V42*/ meltfptr[31] = 0 ; + /*clear*/ /*_.LET___V42*/ + meltfptr[31] = 0 ; } ; } @@ -33970,57 +37276,72 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_._IFELSE___V29*/ meltfptr[25] = /*_._IFELSE___V41*/ meltfptr[30];; + /*_._IFELSE___V29*/ + meltfptr[25] = /*_._IFELSE___V41*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5029:/ clear"); - /*clear*/ /*_#IS_A__L15*/ meltfnum[13] = 0 ; + /*clear*/ /*_#IS_A__L15*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V41*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V41*/ + meltfptr[30] = 0 ; } ; } ; - /*_._IFELSE___V27*/ meltfptr[17] = /*_._IFELSE___V29*/ meltfptr[25];; + /*_._IFELSE___V27*/ + meltfptr[17] = /*_._IFELSE___V29*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5025:/ clear"); - /*clear*/ /*_#IS_A__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_A__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V29*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V29*/ + meltfptr[25] = 0 ; } ; } ; - /*_._IFELSE___V22*/ meltfptr[16] = /*_._IFELSE___V27*/ meltfptr[17];; + /*_._IFELSE___V22*/ + meltfptr[16] = /*_._IFELSE___V27*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5016:/ clear"); - /*clear*/ /*_#NULL__L12*/ meltfnum[7] = 0 ; + /*clear*/ /*_#NULL__L12*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V27*/ meltfptr[17] = 0 ; + /*clear*/ /*_._IFELSE___V27*/ + meltfptr[17] = 0 ; } ; } ; - /*_._IFELSE___V16*/ meltfptr[14] = /*_._IFELSE___V22*/ meltfptr[16];; + /*_._IFELSE___V16*/ + meltfptr[14] = /*_._IFELSE___V22*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5006:/ clear"); - /*clear*/ /*_#IS_A__L10*/ meltfnum[8] = 0 ; + /*clear*/ /*_#IS_A__L10*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V22*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V22*/ + meltfptr[16] = 0 ; } ; } ; - /*_._IFELSE___V14*/ meltfptr[12] = /*_._IFELSE___V16*/ meltfptr[14];; + /*_._IFELSE___V14*/ + meltfptr[12] = /*_._IFELSE___V16*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5002:/ clear"); - /*clear*/ /*_#IS_A__L7*/ meltfnum[6] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ meltfptr[14] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ + meltfptr[14] = 0 ; } ; } @@ -34031,7 +37352,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5078:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.TUP__V2*/ meltfptr[1];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.TUP__V2*/ meltfptr[1];; { MELT_LOCATION("warmelt-normal.melt:5078:/ locexp"); @@ -34046,28 +37368,37 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V61*/ meltfptr[37];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V11*/ + meltfptr[9] = /*_.RETURN___V61*/ meltfptr[37];; MELT_LOCATION("warmelt-normal.melt:4998:/ clear"); - /*clear*/ /*_#TUPLEN__L3*/ meltfnum[0] = 0 ; + /*clear*/ /*_#TUPLEN__L3*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L4*/ meltfnum[3] = 0 ; + /*clear*/ /*_#gtI__L4*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_.LASTCOMP__V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_.LASTCOMP__V12*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_._IFELSE___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V61*/ meltfptr[37] = 0 ; + /*clear*/ /*_.RETURN___V61*/ + meltfptr[37] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:4995:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; { MELT_LOCATION("warmelt-normal.melt:4995:/ locexp"); @@ -34082,15 +37413,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V5*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.LET___V11*/ + meltfptr[9] = 0 ; } ; @@ -34172,7 +37507,8 @@ meltrout_86_WARMELTmiNORMAL_LAMBDA_cl22(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_86_WARMELTmiNORMAL_LAMBDA_cl22 fromline 1756 */ - /* classy proc frame meltrout_86_WARMELTmiNORMAL_LAMBDA_cl22 */ MeltFrame_meltrout_86_WARMELTmiNORMAL_LAMBDA_cl22 + /* classy proc frame meltrout_86_WARMELTmiNORMAL_LAMBDA_cl22 */ + MeltFrame_meltrout_86_WARMELTmiNORMAL_LAMBDA_cl22 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_86_WARMELTmiNORMAL_LAMBDA_cl22 fromline 1785*/ #if ENABLE_CHECKING @@ -34185,7 +37521,8 @@ meltrout_86_WARMELTmiNORMAL_LAMBDA_cl22(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl22", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -34195,12 +37532,14 @@ meltrout_86_WARMELTmiNORMAL_LAMBDA_cl22(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5037:/ getarg"); - /*_.BND__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.BND__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: @@ -34220,13 +37559,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.BND__V2*/ meltfptr[1]; - /*_.PUT_ENV__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V3*/ + meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5037:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; { MELT_LOCATION("warmelt-normal.melt:5037:/ locexp"); @@ -34241,11 +37582,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 ; } ; @@ -34327,7 +37670,8 @@ meltrout_87_WARMELTmiNORMAL_NORMEXP_DEFUN_DEFMACRO(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_87_WARMELTmiNORMAL_NORMEXP_DEFUN_DEFMACRO fromline 1756 */ - /* classy proc frame meltrout_87_WARMELTmiNORMAL_NORMEXP_DEFUN_DEFMACRO */ MeltFrame_meltrout_87_WARMELTmiNORMAL_NORMEXP_DEFUN_DEFMACRO + /* classy proc frame meltrout_87_WARMELTmiNORMAL_NORMEXP_DEFUN_DEFMACRO */ + MeltFrame_meltrout_87_WARMELTmiNORMAL_NORMEXP_DEFUN_DEFMACRO meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_87_WARMELTmiNORMAL_NORMEXP_DEFUN_DEFMACRO fromline 1785*/ #if ENABLE_CHECKING @@ -34340,7 +37684,8 @@ meltrout_87_WARMELTmiNORMAL_NORMEXP_DEFUN_DEFMACRO(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("NORMEXP_DEFUN_DEFMACRO", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -34350,26 +37695,30 @@ meltrout_87_WARMELTmiNORMAL_NORMEXP_DEFUN_DEFMACRO(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5086:/ 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); ; @@ -34401,7 +37750,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)) @@ -34410,7 +37760,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5087:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34453,16 +37804,20 @@ meltlab_endgetargs: argtab[8].meltbp_cstring = "\n.. psloc="; /*^apply.arg*/ argtab[9].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 ""), 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 ""), 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:5087:/ 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 ; } ; } @@ -34475,7 +37830,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5087:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -34484,9 +37840,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*/ @@ -34527,10 +37885,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_DEFUN*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:5091:/ 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);; @@ -34559,25 +37919,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5091; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5091:/ 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:5091:/ 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*/ @@ -34595,10 +37961,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:5092:/ 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);; @@ -34627,25 +37995,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5092; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5092:/ 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:5092:/ 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*/ @@ -34663,10 +38037,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:5093:/ 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);; @@ -34695,25 +38071,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5093; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5093:/ 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:5093:/ 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*/ @@ -34729,11 +38111,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"); - /*_.LOCA_LOCATION__V18*/ meltfptr[5] = slot; + /*_.LOCA_LOCATION__V18*/ + meltfptr[5] = slot; }; ; /*^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];; @@ -34742,11 +38126,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5094:/ cond.else"); - /*_.SLOC__V19*/ meltfptr[18] = /*_.PSLOC__V5*/ meltfptr[4];; + /*_.SLOC__V19*/ + meltfptr[18] = /*_.PSLOC__V5*/ meltfptr[4];; } ; MELT_LOCATION("warmelt-normal.melt:5095:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[6]))) ) /*then*/ @@ -34757,7 +38143,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); - /*_.SNAM__V20*/ meltfptr[19] = slot; + /*_.SNAM__V20*/ + meltfptr[19] = slot; }; ; } @@ -34772,7 +38159,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SFORMAL_ARGS"); - /*_.SFORMALS__V21*/ meltfptr[20] = slot; + /*_.SFORMALS__V21*/ + meltfptr[20] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5097:/ getslot"); @@ -34780,16 +38168,20 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SFUN_BODY"); - /*_.SBODY__V22*/ meltfptr[21] = slot; + /*_.SBODY__V22*/ + meltfptr[21] = slot; }; ; - /*_#ISMACRO__L6*/ meltfnum[0] = + /*_#ISMACRO__L6*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFMACRO*/ meltfrout->tabval[7])));; /*^compute*/ - /*_#ISLETMACRO__L7*/ meltfnum[1] = + /*_#ISLETMACRO__L7*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFMACRO_IN_LET*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:5100:/ 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*/ @@ -34800,7 +38192,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__V23*/ meltfptr[22] = slot; + /*_.MODCTX__V23*/ + meltfptr[22] = slot; }; ; } @@ -34811,7 +38204,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:5101:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[9]))) ) /*then*/ @@ -34822,7 +38216,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 4, "MOCX_INITIALENV"); - /*_.MODINIENV__V24*/ meltfptr[23] = slot; + /*_.MODINIENV__V24*/ + meltfptr[23] = slot; }; ; } @@ -34833,7 +38228,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:5102:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[9]))) ) /*then*/ @@ -34844,7 +38240,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 5, "MOCX_MACROENV"); - /*_.MACROENV__V25*/ meltfptr[24] = slot; + /*_.MACROENV__V25*/ + meltfptr[24] = slot; }; ; } @@ -34874,7 +38271,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L8*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -34883,7 +38281,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5104:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34934,16 +38333,20 @@ meltlab_endgetargs: argtab[12].meltbp_cstring = "\n.. macroenv="; /*^apply.arg*/ argtab[13].meltbp_aptr = (melt_ptr_t*) &/*_.MACROENV__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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V26*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; + /*_._IF___V26*/ + meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5104:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[26] = 0 ; } ; } @@ -34956,7 +38359,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5104:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -34965,9 +38369,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V26*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34994,7 +38400,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5111:/ cond"); - /*cond*/ if (/*_#ISLETMACRO__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#ISLETMACRO__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35021,7 +38428,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -35030,7 +38438,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5112:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35067,16 +38476,20 @@ meltlab_endgetargs: argtab[5].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[10]); /*^apply.arg*/ argtab[6].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_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_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:5112:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ + meltfptr[30] = 0 ; } ; } @@ -35089,7 +38502,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5112:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -35098,9 +38512,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IF___V30*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35123,13 +38539,16 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5111:/ quasiblock"); - /*_.PROGN___V32*/ meltfptr[30] = /*_.ENV__V3*/ meltfptr[2];; + /*_.PROGN___V32*/ + meltfptr[30] = /*_.ENV__V3*/ meltfptr[2];; /*^compute*/ - /*_.BE__V29*/ meltfptr[25] = /*_.PROGN___V32*/ meltfptr[30];; + /*_.BE__V29*/ + meltfptr[25] = /*_.PROGN___V32*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5111:/ clear"); - /*clear*/ /*_.PROGN___V32*/ meltfptr[30] = 0 ; + /*clear*/ /*_.PROGN___V32*/ + meltfptr[30] = 0 ; } ; } @@ -35144,7 +38563,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5114:/ cond"); - /*cond*/ if (/*_#ISMACRO__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#ISMACRO__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35171,7 +38591,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)) @@ -35180,7 +38601,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5115:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35217,16 +38639,20 @@ meltlab_endgetargs: argtab[5].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[10]); /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MACROENV__V25*/ meltfptr[24]; - /*_.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_CSTRING MELTBPARSTR_PTR 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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V34*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; + /*_._IF___V34*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5115:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = 0 ; } ; } @@ -35239,7 +38665,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5115:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -35248,9 +38675,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[30] = 0 ; + /*clear*/ /*_._IF___V34*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35273,13 +38702,16 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5114:/ quasiblock"); - /*_.PROGN___V36*/ meltfptr[34] = /*_.MACROENV__V25*/ meltfptr[24];; + /*_.PROGN___V36*/ + meltfptr[34] = /*_.MACROENV__V25*/ meltfptr[24];; /*^compute*/ - /*_._IFELSE___V33*/ meltfptr[29] = /*_.PROGN___V36*/ meltfptr[34];; + /*_._IFELSE___V33*/ + meltfptr[29] = /*_.PROGN___V36*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5114:/ clear"); - /*clear*/ /*_.PROGN___V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_.PROGN___V36*/ + meltfptr[34] = 0 ; } ; } @@ -35310,7 +38742,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L14*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -35319,7 +38752,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5118:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35356,16 +38790,20 @@ meltlab_endgetargs: argtab[5].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[10]); /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V38*/ 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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V38*/ + 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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V37*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[34];; + /*_._IF___V37*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5118:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ + meltfptr[34] = 0 ; } ; } @@ -35378,7 +38816,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5118:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -35387,9 +38826,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V37*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V37*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35412,22 +38853,27 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5117:/ quasiblock"); - /*_.PROGN___V39*/ meltfptr[34] = /*_.ENV__V3*/ meltfptr[2];; + /*_.PROGN___V39*/ + meltfptr[34] = /*_.ENV__V3*/ meltfptr[2];; /*^compute*/ - /*_._IFELSE___V33*/ meltfptr[29] = /*_.PROGN___V39*/ meltfptr[34];; + /*_._IFELSE___V33*/ + meltfptr[29] = /*_.PROGN___V39*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5114:/ clear"); - /*clear*/ /*_.PROGN___V39*/ meltfptr[34] = 0 ; + /*clear*/ /*_.PROGN___V39*/ + meltfptr[34] = 0 ; } ; } ; - /*_.BE__V29*/ meltfptr[25] = /*_._IFELSE___V33*/ meltfptr[29];; + /*_.BE__V29*/ + meltfptr[25] = /*_._IFELSE___V33*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5111:/ clear"); - /*clear*/ /*_._IFELSE___V33*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IFELSE___V33*/ + meltfptr[29] = 0 ; } ; } @@ -35452,7 +38898,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L16*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -35461,7 +38908,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5121:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35500,16 +38948,20 @@ meltlab_endgetargs: argtab[6].meltbp_cstring = "; basenv="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.BE__V29*/ meltfptr[25]; - /*_.MELT_DEBUG_FUN__V41*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V40*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[34];; + /*_._IF___V40*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5121:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[34] = 0 ; } ; } @@ -35522,7 +38974,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5121:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -35531,9 +38984,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V40*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35573,7 +39028,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L18*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -35582,7 +39038,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5123:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35607,7 +39064,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SNAM__V20*/ meltfptr[19]; - /*_.FIND_ENV__V43*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FIND_ENV__V43*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -35620,7 +39078,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SNAM__V20*/ meltfptr[19]; - /*_.FIND_ENV__V44*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.MACROENV__V25*/ meltfptr[24]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FIND_ENV__V44*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.MACROENV__V25*/ meltfptr[24]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -35649,20 +39108,26 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n in macroenv got:"; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.FIND_ENV__V44*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V45*/ + meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V42*/ meltfptr[29] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; + /*_._IF___V42*/ + meltfptr[29] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5123:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.FIND_ENV__V43*/ meltfptr[34] = 0 ; + /*clear*/ /*_.FIND_ENV__V43*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.FIND_ENV__V44*/ meltfptr[30] = 0 ; + /*clear*/ /*_.FIND_ENV__V44*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ + meltfptr[44] = 0 ; } ; } @@ -35675,7 +39140,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5123:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -35684,9 +39150,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IF___V42*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35716,10 +39184,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L20*/ meltfnum[7] = + /*_#IS_A__L20*/ + meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.BE__V29*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:5126:/ cond"); - /*cond*/ if (/*_#IS_A__L20*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_A__L20*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V47*/ meltfptr[30] = (/*nil*/NULL);; @@ -35746,25 +39216,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5126; - /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V48*/ + meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V47*/ meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[44];; + /*_._IFELSE___V47*/ + meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5126:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[44] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V48*/ + meltfptr[44] = 0 ; } ; } ; - /*_.IFCPP___V46*/ meltfptr[34] = /*_._IFELSE___V47*/ meltfptr[30];; + /*_.IFCPP___V46*/ + meltfptr[34] = /*_._IFELSE___V47*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5126:/ clear"); - /*clear*/ /*_#IS_A__L20*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L20*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V47*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V47*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35773,16 +39249,20 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V28*/ meltfptr[26] = /*_.BE__V29*/ meltfptr[25];; + /*_.LET___V28*/ + meltfptr[26] = /*_.BE__V29*/ meltfptr[25];; MELT_LOCATION("warmelt-normal.melt:5108:/ clear"); - /*clear*/ /*_.BE__V29*/ meltfptr[25] = 0 ; + /*clear*/ /*_.BE__V29*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V46*/ meltfptr[34] = 0 ; + /*clear*/ /*_.IFCPP___V46*/ + meltfptr[34] = 0 ; MELT_LOCATION("warmelt-normal.melt:5103:/ quasiblock"); - /*_.BASENV__V49*/ meltfptr[29] = /*_.LET___V28*/ meltfptr[26];; + /*_.BASENV__V49*/ + meltfptr[29] = /*_.LET___V28*/ meltfptr[26];; MELT_CHECK_SIGNAL(); ; @@ -35793,7 +39273,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SNAM__V20*/ meltfptr[19]; - /*_.SFUBIND__V50*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.BASENV__V49*/ meltfptr[29]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SFUBIND__V50*/ + meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.BASENV__V49*/ meltfptr[29]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -35810,7 +39291,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"); - /*_.OLDPROC__V52*/ meltfptr[25] = slot; + /*_.OLDPROC__V52*/ + meltfptr[25] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5131:/ getslot"); @@ -35818,22 +39300,27 @@ 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"); - /*_.OLDSYMBCACHE__V53*/ meltfptr[34] = slot; + /*_.OLDSYMBCACHE__V53*/ + meltfptr[34] = slot; }; ; - /*_.CLOSBLIS__V54*/ meltfptr[53] = + /*_.CLOSBLIS__V54*/ + meltfptr[53] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[13]))));; /*^compute*/ - /*_.CNSTLIST__V55*/ meltfptr[54] = + /*_.CNSTLIST__V55*/ + meltfptr[54] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[13]))));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_.MAKE_MAPOBJECT__V56*/ meltfptr[55] = + /*_.MAKE_MAPOBJECT__V56*/ + meltfptr[55] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[15])), (31)));; /*^compute*/ - /*_.MAKE_LIST__V57*/ meltfptr[56] = + /*_.MAKE_LIST__V57*/ + meltfptr[56] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[13]))));; MELT_LOCATION("warmelt-normal.melt:5134:/ quasiblock"); @@ -35843,7 +39330,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DEFUNROUTPROC*/ meltfrout->tabval[14])), (11), "CLASS_NREP_DEFUNROUTPROC"); - /*_.INST__V59*/ meltfptr[58] = + /*_.INST__V59*/ + meltfptr[58] = newobj; }; ; @@ -35906,7 +39394,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V59*/ meltfptr[58], "newly made instance"); ; - /*_.NPROC__V58*/ meltfptr[57] = /*_.INST__V59*/ meltfptr[58];; + /*_.NPROC__V58*/ + meltfptr[57] = /*_.INST__V59*/ meltfptr[58];; MELT_CHECK_SIGNAL(); ; @@ -35924,7 +39413,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[18]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_routine"; - /*_.NORMAL_PREDEF__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[17])), (melt_ptr_t)((/*!DISCR_ROUTINE*/ meltfrout->tabval[18])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V60*/ + meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[17])), (melt_ptr_t)((/*!DISCR_ROUTINE*/ meltfrout->tabval[18])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5148:/ quasiblock"); @@ -35935,7 +39425,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ meltfrout->tabval[16])), (6), "CLASS_NREP_DATAROUTINE"); - /*_.INST__V62*/ meltfptr[61] = + /*_.INST__V62*/ + meltfptr[61] = newobj; }; ; @@ -35958,7 +39449,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V62*/ meltfptr[61], "newly made instance"); ; - /*_.NDATAROUT__V61*/ meltfptr[60] = /*_.INST__V62*/ meltfptr[61];; + /*_.NDATAROUT__V61*/ + meltfptr[60] = /*_.INST__V62*/ meltfptr[61];; MELT_CHECK_SIGNAL(); ; @@ -35966,7 +39458,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5156:/ cond"); - /*cond*/ if (/*_#ISMACRO__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#ISMACRO__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35987,14 +39480,17 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[18]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_macro_closure"; - /*_.NORMAL_PREDEF__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[17])), (melt_ptr_t)((/*!DISCR_MACRO_CLOSURE*/ meltfrout->tabval[20])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V64*/ + meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[17])), (melt_ptr_t)((/*!DISCR_MACRO_CLOSURE*/ meltfrout->tabval[20])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V63*/ meltfptr[62] = /*_.NORMAL_PREDEF__V64*/ meltfptr[63];; + /*_._IFELSE___V63*/ + meltfptr[62] = /*_.NORMAL_PREDEF__V64*/ meltfptr[63];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5156:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V64*/ + meltfptr[63] = 0 ; } ; } @@ -36019,14 +39515,17 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[18]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_closure"; - /*_.NORMAL_PREDEF__V65*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[17])), (melt_ptr_t)((/*!DISCR_CLOSURE*/ meltfrout->tabval[21])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V65*/ + meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[17])), (melt_ptr_t)((/*!DISCR_CLOSURE*/ meltfrout->tabval[21])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V63*/ meltfptr[62] = /*_.NORMAL_PREDEF__V65*/ meltfptr[63];; + /*_._IFELSE___V63*/ + meltfptr[62] = /*_.NORMAL_PREDEF__V65*/ meltfptr[63];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5156:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V65*/ meltfptr[63] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V65*/ + meltfptr[63] = 0 ; } ; } @@ -36039,7 +39538,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATACLOSURE*/ meltfrout->tabval[19])), (7), "CLASS_NREP_DATACLOSURE"); - /*_.INST__V67*/ meltfptr[66] = + /*_.INST__V67*/ + meltfptr[66] = newobj; }; ; @@ -36067,7 +39567,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V67*/ meltfptr[66], "newly made instance"); ; - /*_.NDATACLOS__V66*/ meltfptr[63] = /*_.INST__V67*/ meltfptr[66];; + /*_.NDATACLOS__V66*/ + meltfptr[63] = /*_.INST__V67*/ meltfptr[66];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:5163:/ cppif.then"); @@ -36088,7 +39589,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L21*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -36097,7 +39599,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5163:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36116,7 +39619,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5164:/ cond"); - /*cond*/ if (/*_#ISMACRO__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#ISMACRO__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V69*/ meltfptr[68] = (/*!DEBUG_MORE*/ meltfrout->tabval[1]);; @@ -36125,7 +39629,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5164:/ cond.else"); - /*_._IFELSE___V69*/ meltfptr[68] = (/*!DEBUG_LESS*/ meltfrout->tabval[10]);; + /*_._IFELSE___V69*/ + meltfptr[68] = (/*!DEBUG_LESS*/ meltfrout->tabval[10]);; } ; @@ -36162,18 +39667,23 @@ meltlab_endgetargs: argtab[11].meltbp_cstring = "\n.. newenv="; /*^apply.arg*/ argtab[12].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V51*/ meltfptr[30]; - /*_.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_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V68*/ meltfptr[67] = /*_.MELT_DEBUG_FUN__V70*/ meltfptr[69];; + /*_._IF___V68*/ + meltfptr[67] = /*_.MELT_DEBUG_FUN__V70*/ meltfptr[69];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5163:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_._IFELSE___V69*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V70*/ meltfptr[69] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V70*/ + meltfptr[69] = 0 ; } ; } @@ -36186,7 +39696,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5163:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -36195,9 +39706,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V68*/ meltfptr[67] = 0 ; + /*clear*/ /*_._IF___V68*/ + meltfptr[67] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -36220,7 +39733,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_.MAKE_MAPOBJECT__V71*/ meltfptr[68] = + /*_.MAKE_MAPOBJECT__V71*/ + meltfptr[68] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[15])), (40)));; MELT_LOCATION("warmelt-normal.melt:5166:/ quasiblock"); @@ -36263,7 +39777,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L23*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L23*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -36272,7 +39787,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5169:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L23*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36317,16 +39833,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n.. newenv="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V51*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V73*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V73*/ + 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V72*/ meltfptr[69] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[67];; + /*_._IF___V72*/ + meltfptr[69] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[67];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5169:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L24*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ meltfptr[67] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ + meltfptr[67] = 0 ; } ; } @@ -36339,7 +39859,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5169:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -36348,9 +39869,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L23*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V72*/ meltfptr[69] = 0 ; + /*clear*/ /*_._IF___V72*/ + meltfptr[69] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -36380,7 +39903,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NDATAROUT__V61*/ meltfptr[60]; - /*_.ADD_NCTX_DATA__V74*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V74*/ + meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -36393,7 +39917,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NDATACLOS__V66*/ meltfptr[63]; - /*_.ADD_NCTX_DATA__V75*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V75*/ + meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -36416,7 +39941,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L25*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L25*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -36425,7 +39951,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5175:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L25*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L25*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36470,16 +39997,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n.. sfubind="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.SFUBIND__V50*/ meltfptr[44]; - /*_.MELT_DEBUG_FUN__V77*/ meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V77*/ + meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V76*/ meltfptr[75] = /*_.MELT_DEBUG_FUN__V77*/ meltfptr[76];; + /*_._IF___V76*/ + meltfptr[75] = /*_.MELT_DEBUG_FUN__V77*/ meltfptr[76];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5175:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L26*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L26*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V77*/ meltfptr[76] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V77*/ + meltfptr[76] = 0 ; } ; } @@ -36492,7 +40023,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5175:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -36501,9 +40033,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L25*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L25*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V76*/ meltfptr[75] = 0 ; + /*clear*/ /*_._IF___V76*/ + meltfptr[75] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -36526,10 +40060,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L27*/ meltfnum[7] = + /*_#NULL__L27*/ + meltfnum[7] = (/*null*/(/*_.SFUBIND__V50*/ meltfptr[44]) == NULL);; MELT_LOCATION("warmelt-normal.melt:5177:/ cond"); - /*cond*/ if (/*_#NULL__L27*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#NULL__L27*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36556,7 +40092,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L28*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L28*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -36565,7 +40102,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5178:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L28*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L28*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36614,16 +40152,20 @@ meltlab_endgetargs: argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[12].meltbp_cstring = "\n"; - /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V80*/ + meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V79*/ meltfptr[75] = /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79];; + /*_._IF___V79*/ + meltfptr[75] = /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5178:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L29*/ meltfnum[28] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L29*/ + meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V80*/ + meltfptr[79] = 0 ; } ; } @@ -36636,7 +40178,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5178:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -36645,9 +40188,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L28*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L28*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V79*/ meltfptr[75] = 0 ; + /*clear*/ /*_._IF___V79*/ + meltfptr[75] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -36671,7 +40216,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5181:/ cond"); - /*cond*/ if (/*_#ISMACRO__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#ISMACRO__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36679,7 +40225,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5183:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[24]))) ) /*then*/ @@ -36690,7 +40237,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAM__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V82*/ meltfptr[75] = slot; + /*_.NAMED_NAME__V82*/ + meltfptr[75] = slot; }; ; } @@ -36712,16 +40260,20 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "bad defmacro-ed function $1 without binding"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V82*/ meltfptr[75]; - /*_.ERROR_AT__V83*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V83*/ + meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V81*/ meltfptr[79] = /*_.ERROR_AT__V83*/ meltfptr[82];; + /*_._IFELSE___V81*/ + meltfptr[79] = /*_.ERROR_AT__V83*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5181:/ clear"); - /*clear*/ /*_.NAMED_NAME__V82*/ meltfptr[75] = 0 ; + /*clear*/ /*_.NAMED_NAME__V82*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_.ERROR_AT__V83*/ + meltfptr[82] = 0 ; } ; } @@ -36733,7 +40285,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5184:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[24]))) ) /*then*/ @@ -36744,7 +40297,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAM__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V84*/ meltfptr[75] = slot; + /*_.NAMED_NAME__V84*/ + meltfptr[75] = slot; }; ; } @@ -36766,16 +40320,20 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "bad defun-ed function $1 without binding"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V84*/ meltfptr[75]; - /*_.ERROR_AT__V85*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V85*/ + meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V81*/ meltfptr[79] = /*_.ERROR_AT__V85*/ meltfptr[82];; + /*_._IFELSE___V81*/ + meltfptr[79] = /*_.ERROR_AT__V85*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5181:/ clear"); - /*clear*/ /*_.NAMED_NAME__V84*/ meltfptr[75] = 0 ; + /*clear*/ /*_.NAMED_NAME__V84*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V85*/ meltfptr[82] = 0 ; + /*clear*/ /*_.ERROR_AT__V85*/ + meltfptr[82] = 0 ; } ; } @@ -36794,7 +40352,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5186:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:5186:/ locexp"); @@ -36809,21 +40368,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:5177:/ quasiblock"); - /*_.PROGN___V87*/ meltfptr[82] = /*_.RETURN___V86*/ meltfptr[75];; + /*_.PROGN___V87*/ + meltfptr[82] = /*_.RETURN___V86*/ meltfptr[75];; /*^compute*/ - /*_._IF___V78*/ meltfptr[76] = /*_.PROGN___V87*/ meltfptr[82];; + /*_._IF___V78*/ + meltfptr[76] = /*_.PROGN___V87*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5177:/ clear"); - /*clear*/ /*_._IFELSE___V81*/ meltfptr[79] = 0 ; + /*clear*/ /*_._IFELSE___V81*/ + meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V86*/ meltfptr[75] = 0 ; + /*clear*/ /*_.RETURN___V86*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V87*/ meltfptr[82] = 0 ; + /*clear*/ /*_.PROGN___V87*/ + meltfptr[82] = 0 ; } ; } @@ -36840,10 +40405,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_NOT_A__L30*/ meltfnum[28] = + /*_#IS_NOT_A__L30*/ + meltfnum[28] = !melt_is_instance_of((melt_ptr_t)(/*_.SFUBIND__V50*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_FUNCTION_BINDING*/ meltfrout->tabval[25])));; MELT_LOCATION("warmelt-normal.melt:5187:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L30*/ meltfnum[28]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L30*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36853,10 +40420,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L32*/ meltfnum[31] = + /*_#IS_NOT_A__L32*/ + meltfnum[31] = !melt_is_instance_of((melt_ptr_t)(/*_.SFUBIND__V50*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_MACRO_BINDING*/ meltfrout->tabval[26])));; MELT_LOCATION("warmelt-normal.melt:5187:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L32*/ meltfnum[31]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L32*/ meltfnum[31]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36866,11 +40435,13 @@ meltlab_endgetargs: /*_#IS_NOT_A__L34*/ meltfnum[33] = !melt_is_instance_of((melt_ptr_t)(/*_.SFUBIND__V50*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_DEFINED_MACRO_BINDING*/ meltfrout->tabval[27])));; /*^compute*/ - /*_#_IF___L33*/ meltfnum[32] = /*_#IS_NOT_A__L34*/ meltfnum[33];; + /*_#_IF___L33*/ + meltfnum[32] = /*_#IS_NOT_A__L34*/ meltfnum[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5187:/ clear"); - /*clear*/ /*_#IS_NOT_A__L34*/ meltfnum[33] = 0 ; + /*clear*/ /*_#IS_NOT_A__L34*/ + meltfnum[33] = 0 ; } ; } @@ -36881,13 +40452,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#_IF___L31*/ meltfnum[8] = /*_#_IF___L33*/ meltfnum[32];; + /*_#_IF___L31*/ + meltfnum[8] = /*_#_IF___L33*/ meltfnum[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5187:/ clear"); - /*clear*/ /*_#IS_NOT_A__L32*/ meltfnum[31] = 0 ; + /*clear*/ /*_#IS_NOT_A__L32*/ + meltfnum[31] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L33*/ meltfnum[32] = 0 ; + /*clear*/ /*_#_IF___L33*/ + meltfnum[32] = 0 ; } ; } @@ -36898,7 +40472,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:5187:/ cond"); - /*cond*/ if (/*_#_IF___L31*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#_IF___L31*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36925,7 +40500,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L35*/ meltfnum[33] = + /*_#MELT_NEED_DBG__L35*/ + meltfnum[33] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -36934,7 +40510,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5191:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L35*/ meltfnum[33]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L35*/ meltfnum[33]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36967,16 +40544,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defun_defmacro strange sfubind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SFUBIND__V50*/ meltfptr[44]; - /*_.MELT_DEBUG_FUN__V90*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V90*/ + meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V89*/ meltfptr[75] = /*_.MELT_DEBUG_FUN__V90*/ meltfptr[82];; + /*_._IF___V89*/ + meltfptr[75] = /*_.MELT_DEBUG_FUN__V90*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5191:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L36*/ meltfnum[31] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L36*/ + meltfnum[31] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V90*/ meltfptr[82] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V90*/ + meltfptr[82] = 0 ; } ; } @@ -36989,7 +40570,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5191:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -36998,9 +40580,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L35*/ meltfnum[33] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L35*/ + meltfnum[33] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V89*/ meltfptr[75] = 0 ; + /*clear*/ /*_._IF___V89*/ + meltfptr[75] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37024,7 +40608,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5192:/ cond"); - /*cond*/ if (/*_#ISMACRO__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#ISMACRO__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37032,7 +40617,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5195:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[24]))) ) /*then*/ @@ -37043,7 +40629,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAM__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V92*/ meltfptr[75] = slot; + /*_.NAMED_NAME__V92*/ + meltfptr[75] = slot; }; ; } @@ -37054,10 +40641,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.DISCRIM__V93*/ meltfptr[92] = + /*_.DISCRIM__V93*/ + meltfptr[92] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SFUBIND__V50*/ meltfptr[44]))));; MELT_LOCATION("warmelt-normal.melt:5195:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V93*/ meltfptr[92]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[24]))) ) /*then*/ @@ -37068,7 +40657,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DISCRIM__V93*/ meltfptr[92]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V94*/ meltfptr[93] = slot; + /*_.NAMED_NAME__V94*/ + meltfptr[93] = slot; }; ; } @@ -37093,20 +40683,26 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V92*/ meltfptr[75]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V94*/ meltfptr[93]; - /*_.ERROR_AT__V95*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V95*/ + meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V91*/ meltfptr[82] = /*_.ERROR_AT__V95*/ meltfptr[94];; + /*_._IFELSE___V91*/ + meltfptr[82] = /*_.ERROR_AT__V95*/ meltfptr[94];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5192:/ clear"); - /*clear*/ /*_.NAMED_NAME__V92*/ meltfptr[75] = 0 ; + /*clear*/ /*_.NAMED_NAME__V92*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.DISCRIM__V93*/ meltfptr[92] = 0 ; + /*clear*/ /*_.DISCRIM__V93*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V94*/ meltfptr[93] = 0 ; + /*clear*/ /*_.NAMED_NAME__V94*/ + meltfptr[93] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V95*/ meltfptr[94] = 0 ; + /*clear*/ /*_.ERROR_AT__V95*/ + meltfptr[94] = 0 ; } ; } @@ -37118,7 +40714,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5199:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[24]))) ) /*then*/ @@ -37129,7 +40726,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAM__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V96*/ meltfptr[75] = slot; + /*_.NAMED_NAME__V96*/ + meltfptr[75] = slot; }; ; } @@ -37140,10 +40738,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.DISCRIM__V97*/ meltfptr[92] = + /*_.DISCRIM__V97*/ + meltfptr[92] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SFUBIND__V50*/ meltfptr[44]))));; MELT_LOCATION("warmelt-normal.melt:5199:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V97*/ meltfptr[92]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[24]))) ) /*then*/ @@ -37154,7 +40754,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DISCRIM__V97*/ meltfptr[92]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V98*/ meltfptr[93] = slot; + /*_.NAMED_NAME__V98*/ + meltfptr[93] = slot; }; ; } @@ -37179,20 +40780,26 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V96*/ meltfptr[75]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V98*/ meltfptr[93]; - /*_.ERROR_AT__V99*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V99*/ + meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V91*/ meltfptr[82] = /*_.ERROR_AT__V99*/ meltfptr[94];; + /*_._IFELSE___V91*/ + meltfptr[82] = /*_.ERROR_AT__V99*/ meltfptr[94];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5192:/ clear"); - /*clear*/ /*_.NAMED_NAME__V96*/ meltfptr[75] = 0 ; + /*clear*/ /*_.NAMED_NAME__V96*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.DISCRIM__V97*/ meltfptr[92] = 0 ; + /*clear*/ /*_.DISCRIM__V97*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V98*/ meltfptr[93] = 0 ; + /*clear*/ /*_.NAMED_NAME__V98*/ + meltfptr[93] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V99*/ meltfptr[94] = 0 ; + /*clear*/ /*_.ERROR_AT__V99*/ + meltfptr[94] = 0 ; } ; } @@ -37211,7 +40818,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5201:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:5201:/ locexp"); @@ -37226,21 +40834,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:5187:/ quasiblock"); - /*_.PROGN___V101*/ meltfptr[92] = /*_.RETURN___V100*/ meltfptr[75];; + /*_.PROGN___V101*/ + meltfptr[92] = /*_.RETURN___V100*/ meltfptr[75];; /*^compute*/ - /*_._IF___V88*/ meltfptr[79] = /*_.PROGN___V101*/ meltfptr[92];; + /*_._IF___V88*/ + meltfptr[79] = /*_.PROGN___V101*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5187:/ clear"); - /*clear*/ /*_._IFELSE___V91*/ meltfptr[82] = 0 ; + /*clear*/ /*_._IFELSE___V91*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V100*/ meltfptr[75] = 0 ; + /*clear*/ /*_.RETURN___V100*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V101*/ meltfptr[92] = 0 ; + /*clear*/ /*_.PROGN___V101*/ + meltfptr[92] = 0 ; } ; } @@ -37294,7 +40908,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)) @@ -37303,7 +40918,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5203:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[32]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L37*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37336,16 +40952,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defun_defmacro updated nproc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NPROC__V58*/ meltfptr[57]; - /*_.MELT_DEBUG_FUN__V103*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V103*/ + meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V102*/ meltfptr[93] = /*_.MELT_DEBUG_FUN__V103*/ meltfptr[94];; + /*_._IF___V102*/ + meltfptr[93] = /*_.MELT_DEBUG_FUN__V103*/ meltfptr[94];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5203:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[31] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L38*/ + meltfnum[31] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V103*/ meltfptr[94] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V103*/ + meltfptr[94] = 0 ; } ; } @@ -37358,7 +40978,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5203:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -37367,9 +40988,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[32] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L37*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V102*/ meltfptr[93] = 0 ; + /*clear*/ /*_._IF___V102*/ + meltfptr[93] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37411,10 +41034,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L40*/ meltfnum[31] = + /*_#IS_A__L40*/ + meltfnum[31] = melt_is_instance_of((melt_ptr_t)(/*_.FBI__V104*/ meltfptr[82]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[28])));; MELT_LOCATION("warmelt-normal.melt:5207:/ cond"); - /*cond*/ if (/*_#IS_A__L40*/ meltfnum[31]) /*then*/ + /*cond*/ + if (/*_#IS_A__L40*/ meltfnum[31]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V106*/ meltfptr[92] = (/*nil*/NULL);; @@ -37443,25 +41068,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5207; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FBI__V104*/ meltfptr[82]; - /*_.MELT_ASSERT_FAILURE_FUN__V107*/ meltfptr[94] = 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__V107*/ + meltfptr[94] = 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___V106*/ meltfptr[92] = /*_.MELT_ASSERT_FAILURE_FUN__V107*/ meltfptr[94];; + /*_._IFELSE___V106*/ + meltfptr[92] = /*_.MELT_ASSERT_FAILURE_FUN__V107*/ meltfptr[94];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5207:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V107*/ meltfptr[94] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V107*/ + meltfptr[94] = 0 ; } ; } ; - /*_.IFCPP___V105*/ meltfptr[75] = /*_._IFELSE___V106*/ meltfptr[92];; + /*_.IFCPP___V105*/ + meltfptr[75] = /*_._IFELSE___V106*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5207:/ clear"); - /*clear*/ /*_#IS_A__L40*/ meltfnum[31] = 0 ; + /*clear*/ /*_#IS_A__L40*/ + meltfnum[31] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V106*/ meltfptr[92] = 0 ; + /*clear*/ /*_._IFELSE___V106*/ + meltfptr[92] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37479,7 +41110,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FBI__V104*/ meltfptr[82]; - /*_.PUT_ENV__V108*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[29])), (melt_ptr_t)(/*_.NEWENV__V51*/ meltfptr[30]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V108*/ + meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[29])), (melt_ptr_t)(/*_.NEWENV__V51*/ meltfptr[30]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#IX__L39*/ meltfnum[33]<0) break; @@ -37488,22 +41120,28 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:5204:/ clear"); - /*clear*/ /*_.FBI__V104*/ meltfptr[82] = 0 ; + /*clear*/ /*_.FBI__V104*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L39*/ meltfnum[33] = 0 ; + /*clear*/ /*_#IX__L39*/ + meltfnum[33] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V105*/ meltfptr[75] = 0 ; + /*clear*/ /*_.IFCPP___V105*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V108*/ meltfptr[93] = 0 ; + /*clear*/ /*_.PUT_ENV__V108*/ + meltfptr[93] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L41*/ meltfnum[32] = + /*_#IS_A__L41*/ + meltfnum[32] = melt_is_instance_of((melt_ptr_t)(/*_.SFORMALS__V21*/ meltfptr[20]), (melt_ptr_t)((/*!DISCR_VARIADIC_FORMAL_SEQUENCE*/ meltfrout->tabval[30])));; MELT_LOCATION("warmelt-normal.melt:5209:/ cond"); - /*cond*/ if (/*_#IS_A__L41*/ meltfnum[32]) /*then*/ + /*cond*/ + if (/*_#IS_A__L41*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37514,7 +41152,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5210:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NPROC__V58*/ meltfptr[57]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[31]))) ) /*then*/ @@ -37585,7 +41224,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L42*/ meltfnum[31] = + /*_#MELT_NEED_DBG__L42*/ + meltfnum[31] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -37594,7 +41234,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5212:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L42*/ meltfnum[31]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L42*/ meltfnum[31]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37629,16 +41270,20 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V51*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V110*/ 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_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V110*/ + 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_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V109*/ meltfptr[94] = /*_.MELT_DEBUG_FUN__V110*/ meltfptr[92];; + /*_._IF___V109*/ + meltfptr[94] = /*_.MELT_DEBUG_FUN__V110*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5212:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L43*/ meltfnum[42] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L43*/ + meltfnum[42] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V110*/ meltfptr[92] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V110*/ + meltfptr[92] = 0 ; } ; } @@ -37651,7 +41296,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5212:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -37660,9 +41306,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L42*/ meltfnum[31] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L42*/ + meltfnum[31] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V109*/ meltfptr[94] = 0 ; + /*clear*/ /*_._IF___V109*/ + meltfptr[94] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37697,7 +41345,8 @@ meltlab_endgetargs: /*^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*/ @@ -37708,7 +41357,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, 2, "NCTX_PROCLIST"); - /*_.NCPLIS__V111*/ meltfptr[92] = slot; + /*_.NCPLIS__V111*/ + meltfptr[92] = slot; }; ; } @@ -37744,7 +41394,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L44*/ meltfnum[42] = + /*_#MELT_NEED_DBG__L44*/ + meltfnum[42] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -37753,7 +41404,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5218:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L44*/ meltfnum[42]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L44*/ meltfnum[42]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37790,16 +41442,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__V113*/ meltfptr[112] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V113*/ + meltfptr[112] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V112*/ meltfptr[94] = /*_.MELT_DEBUG_FUN__V113*/ meltfptr[112];; + /*_._IF___V112*/ + meltfptr[94] = /*_.MELT_DEBUG_FUN__V113*/ meltfptr[112];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5218:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L45*/ meltfnum[31] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L45*/ + meltfnum[31] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V113*/ meltfptr[112] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V113*/ + meltfptr[112] = 0 ; } ; } @@ -37812,7 +41468,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5218:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -37821,9 +41478,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L44*/ meltfnum[42] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L44*/ + meltfnum[42] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V112*/ meltfptr[94] = 0 ; + /*clear*/ /*_._IF___V112*/ + meltfptr[94] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37856,7 +41515,8 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:5215:/ clear"); - /*clear*/ /*_.NCPLIS__V111*/ meltfptr[92] = 0 ; + /*clear*/ /*_.NCPLIS__V111*/ + meltfptr[92] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -37878,7 +41538,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V116*/ meltfptr[92]; /*^multiapply.appl*/ - /*_.NBODY__V115*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[32])), (melt_ptr_t)(/*_.SBODY__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NBODY__V115*/ + meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[32])), (melt_ptr_t)(/*_.SBODY__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -37904,7 +41565,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L46*/ meltfnum[31] = + /*_#MELT_NEED_DBG__L46*/ + meltfnum[31] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -37913,7 +41575,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5226:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L46*/ meltfnum[31]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L46*/ meltfnum[31]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37946,16 +41609,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defun_defmacro nbody before replace_last_by_return"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NBODY__V115*/ meltfptr[94]; - /*_.MELT_DEBUG_FUN__V118*/ meltfptr[117] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V118*/ + meltfptr[117] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V117*/ meltfptr[116] = /*_.MELT_DEBUG_FUN__V118*/ meltfptr[117];; + /*_._IF___V117*/ + meltfptr[116] = /*_.MELT_DEBUG_FUN__V118*/ meltfptr[117];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5226:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L47*/ meltfnum[42] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L47*/ + meltfnum[42] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V118*/ meltfptr[117] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V118*/ + meltfptr[117] = 0 ; } ; } @@ -37968,7 +41635,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5226:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -37977,9 +41645,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L46*/ meltfnum[31] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L46*/ + meltfnum[31] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V117*/ meltfptr[116] = 0 ; + /*clear*/ /*_._IF___V117*/ + meltfptr[116] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38003,7 +41673,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V120*/ meltfptr[116] = + /*newclosure*/ /*_.LAMBDA___V120*/ + meltfptr[116] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_35*/ meltfrout->tabval[35])), (1)); ; /*^putclosedv*/ @@ -38012,7 +41683,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V120*/ meltfptr[116]))); ((meltclosure_ptr_t)/*_.LAMBDA___V120*/ meltfptr[116])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V51*/ meltfptr[30]); ; - /*_.LAMBDA___V119*/ meltfptr[117] = /*_.LAMBDA___V120*/ meltfptr[116];; + /*_.LAMBDA___V119*/ + meltfptr[117] = /*_.LAMBDA___V120*/ meltfptr[116];; MELT_CHECK_SIGNAL(); ; @@ -38023,7 +41695,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V119*/ meltfptr[117]; - /*_.MULTIPLE_EVERY__V121*/ meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[33])), (melt_ptr_t)(/*_.NBINDINGS__V116*/ meltfptr[92]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_EVERY__V121*/ + meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[33])), (melt_ptr_t)(/*_.NBINDINGS__V116*/ meltfptr[92]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5231:/ quasiblock"); @@ -38041,7 +41714,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V51*/ meltfptr[30]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[18]; - /*_.NRBODY__V122*/ meltfptr[121] = melt_apply ((meltclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ meltfrout->tabval[36])), (melt_ptr_t)(/*_.NBODY__V115*/ meltfptr[94]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NRBODY__V122*/ + meltfptr[121] = melt_apply ((meltclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ meltfrout->tabval[36])), (melt_ptr_t)(/*_.NBODY__V115*/ meltfptr[94]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -38056,7 +41730,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V116*/ meltfptr[92]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[18]; - /*_.NPBODY__V123*/ meltfptr[122] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ meltfrout->tabval[37])), (melt_ptr_t)(/*_.NRBODY__V122*/ meltfptr[121]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NPBODY__V123*/ + meltfptr[122] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ meltfrout->tabval[37])), (melt_ptr_t)(/*_.NRBODY__V122*/ meltfptr[121]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -38098,7 +41773,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L48*/ meltfnum[42] = + /*_#MELT_NEED_DBG__L48*/ + meltfnum[42] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -38107,7 +41783,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5235:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L48*/ meltfnum[42]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L48*/ meltfnum[42]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38144,16 +41821,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. nproc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NPROC__V58*/ meltfptr[57]; - /*_.MELT_DEBUG_FUN__V125*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V125*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V124*/ meltfptr[123] = /*_.MELT_DEBUG_FUN__V125*/ meltfptr[124];; + /*_._IF___V124*/ + meltfptr[123] = /*_.MELT_DEBUG_FUN__V125*/ meltfptr[124];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5235:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L49*/ meltfnum[31] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L49*/ + meltfnum[31] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V125*/ meltfptr[124] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V125*/ + meltfptr[124] = 0 ; } ; } @@ -38166,7 +41847,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5235:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -38175,9 +41857,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L48*/ meltfnum[42] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L48*/ + meltfnum[42] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V124*/ meltfptr[123] = 0 ; + /*clear*/ /*_._IF___V124*/ + meltfptr[123] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38199,9 +41883,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:5231:/ clear"); - /*clear*/ /*_.NRBODY__V122*/ meltfptr[121] = 0 ; + /*clear*/ /*_.NRBODY__V122*/ + meltfptr[121] = 0 ; /*^clear*/ - /*clear*/ /*_.NPBODY__V123*/ meltfptr[122] = 0 ; + /*clear*/ /*_.NPBODY__V123*/ + meltfptr[122] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -38246,7 +41932,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L50*/ meltfnum[31] = + /*_#MELT_NEED_DBG__L50*/ + meltfnum[31] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -38255,7 +41942,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5238:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L50*/ meltfnum[31]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L50*/ meltfnum[31]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38288,16 +41976,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defun_defmacro restored ncx="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V127*/ meltfptr[123] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V127*/ + meltfptr[123] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V126*/ meltfptr[124] = /*_.MELT_DEBUG_FUN__V127*/ meltfptr[123];; + /*_._IF___V126*/ + meltfptr[124] = /*_.MELT_DEBUG_FUN__V127*/ meltfptr[123];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5238:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L51*/ meltfnum[42] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L51*/ + meltfnum[42] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V127*/ meltfptr[123] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V127*/ + meltfptr[123] = 0 ; } ; } @@ -38310,7 +42002,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5238:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -38319,9 +42012,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L50*/ meltfnum[31] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L50*/ + meltfnum[31] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V126*/ meltfptr[124] = 0 ; + /*clear*/ /*_._IF___V126*/ + meltfptr[124] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38348,7 +42043,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V129*/ meltfptr[122] = + /*newclosure*/ /*_.LAMBDA___V129*/ + meltfptr[122] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_43*/ meltfrout->tabval[43])), (3)); ; /*^putclosedv*/ @@ -38369,7 +42065,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V129*/ meltfptr[122]))); ((meltclosure_ptr_t)/*_.LAMBDA___V129*/ meltfptr[122])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]); ; - /*_.LAMBDA___V128*/ meltfptr[121] = /*_.LAMBDA___V129*/ meltfptr[122];; + /*_.LAMBDA___V128*/ + meltfptr[121] = /*_.LAMBDA___V129*/ meltfptr[122];; MELT_CHECK_SIGNAL(); ; @@ -38382,7 +42079,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[39]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V128*/ meltfptr[121]; - /*_.CLOVTUP__V130*/ meltfptr[123] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[38])), (melt_ptr_t)(/*_.CLOSBLIS__V54*/ meltfptr[53]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CLOVTUP__V130*/ + meltfptr[123] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[38])), (melt_ptr_t)(/*_.CLOSBLIS__V54*/ meltfptr[53]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -38406,16 +42104,20 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5239:/ clear"); - /*clear*/ /*_.LAMBDA___V128*/ meltfptr[121] = 0 ; + /*clear*/ /*_.LAMBDA___V128*/ + meltfptr[121] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOVTUP__V130*/ meltfptr[123] = 0 ; + /*clear*/ /*_.CLOVTUP__V130*/ + meltfptr[123] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L52*/ meltfnum[42] = + /*_#IS_A__L52*/ + meltfnum[42] = melt_is_instance_of((melt_ptr_t)(/*_.SFUBIND__V50*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_FUNCTION_BINDING*/ meltfrout->tabval[25])));; MELT_LOCATION("warmelt-normal.melt:5255:/ cond"); - /*cond*/ if (/*_#IS_A__L52*/ meltfnum[42]) /*then*/ + /*cond*/ + if (/*_#IS_A__L52*/ meltfnum[42]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38440,7 +42142,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.SFUBIND__V50*/ meltfptr[44], "put-fields"); ; - /*_._IFELSE___V131*/ meltfptr[124] = /*_.SFUBIND__V50*/ meltfptr[44];; + /*_._IFELSE___V131*/ + meltfptr[124] = /*_.SFUBIND__V50*/ meltfptr[44];; /*epilog*/ } @@ -38457,10 +42160,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L53*/ meltfnum[31] = + /*_#IS_A__L53*/ + meltfnum[31] = melt_is_instance_of((melt_ptr_t)(/*_.SFUBIND__V50*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_DEFINED_MACRO_BINDING*/ meltfrout->tabval[27])));; MELT_LOCATION("warmelt-normal.melt:5257:/ cond"); - /*cond*/ if (/*_#IS_A__L53*/ meltfnum[31]) /*then*/ + /*cond*/ + if (/*_#IS_A__L53*/ meltfnum[31]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38485,7 +42190,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.SFUBIND__V50*/ meltfptr[44], "put-fields"); ; - /*_._IFELSE___V132*/ meltfptr[121] = /*_.SFUBIND__V50*/ meltfptr[44];; + /*_._IFELSE___V132*/ + meltfptr[121] = /*_.SFUBIND__V50*/ meltfptr[44];; /*epilog*/ } @@ -38502,10 +42208,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L54*/ meltfnum[53] = + /*_#IS_A__L54*/ + meltfnum[53] = melt_is_instance_of((melt_ptr_t)(/*_.SFUBIND__V50*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_MACRO_BINDING*/ meltfrout->tabval[26])));; MELT_LOCATION("warmelt-normal.melt:5259:/ cond"); - /*cond*/ if (/*_#IS_A__L54*/ meltfnum[53]) /*then*/ + /*cond*/ + if (/*_#IS_A__L54*/ meltfnum[53]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38518,10 +42226,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_IS_BOOTSTRAPPING__L55*/ meltfnum[54] = + /*_#MELT_IS_BOOTSTRAPPING__L55*/ + meltfnum[54] = (melt_flag_bootstrapping);; MELT_LOCATION("warmelt-normal.melt:5260:/ cond"); - /*cond*/ if (/*_#MELT_IS_BOOTSTRAPPING__L55*/ meltfnum[54]) /*then*/ + /*cond*/ + if (/*_#MELT_IS_BOOTSTRAPPING__L55*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38529,7 +42239,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5261:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SFUBIND__V50*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[44]))) ) /*then*/ @@ -38540,7 +42251,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SFUBIND__V50*/ meltfptr[44]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V134*/ meltfptr[133] = slot; + /*_.BINDER__V134*/ + meltfptr[133] = slot; }; ; } @@ -38551,7 +42263,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:5261:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDATACLOS__V66*/ meltfptr[63]), (melt_ptr_t)((/*!CLASS_NREP_BOUND_DATA*/ meltfrout->tabval[45]))) ) /*then*/ @@ -38562,7 +42275,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDATACLOS__V66*/ meltfptr[63]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NDATA_NAME"); - /*_.NDATA_NAME__V135*/ meltfptr[134] = slot; + /*_.NDATA_NAME__V135*/ + meltfptr[134] = slot; }; ; } @@ -38573,18 +42287,23 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#eqeq__L57*/ meltfnum[56] = + /*_#eqeq__L57*/ + meltfnum[56] = ((/*_.BINDER__V134*/ meltfptr[133]) == (/*_.NDATA_NAME__V135*/ meltfptr[134]));; /*^compute*/ - /*_#_IF___L56*/ meltfnum[55] = /*_#eqeq__L57*/ meltfnum[56];; + /*_#_IF___L56*/ + meltfnum[55] = /*_#eqeq__L57*/ meltfnum[56];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5260:/ clear"); - /*clear*/ /*_.BINDER__V134*/ meltfptr[133] = 0 ; + /*clear*/ /*_.BINDER__V134*/ + meltfptr[133] = 0 ; /*^clear*/ - /*clear*/ /*_.NDATA_NAME__V135*/ meltfptr[134] = 0 ; + /*clear*/ /*_.NDATA_NAME__V135*/ + meltfptr[134] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L57*/ meltfnum[56] = 0 ; + /*clear*/ /*_#eqeq__L57*/ + meltfnum[56] = 0 ; } ; } @@ -38595,7 +42314,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:5260:/ cond"); - /*cond*/ if (/*_#_IF___L56*/ meltfnum[55]) /*then*/ + /*cond*/ + if (/*_#_IF___L56*/ meltfnum[55]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38622,7 +42342,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L58*/ meltfnum[56] = + /*_#MELT_NEED_DBG__L58*/ + meltfnum[56] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -38631,7 +42352,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5262:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L58*/ meltfnum[56]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L58*/ meltfnum[56]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38668,16 +42390,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n ndataclos="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NDATACLOS__V66*/ meltfptr[63]; - /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V138*/ + meltfptr[137] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V137*/ meltfptr[134] = /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137];; + /*_._IF___V137*/ + meltfptr[134] = /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5262:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L59*/ meltfnum[58] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L59*/ + meltfnum[58] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V138*/ + meltfptr[137] = 0 ; } ; } @@ -38690,7 +42416,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5262:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -38699,9 +42426,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L58*/ meltfnum[56] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L58*/ + meltfnum[56] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V137*/ meltfptr[134] = 0 ; + /*clear*/ /*_._IF___V137*/ + meltfptr[134] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38724,7 +42453,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5263:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; MELT_LOCATION("warmelt-normal.melt:5260:/ quasiblock"); @@ -38753,7 +42483,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "messy definition of $1 with existing macro binding"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SNAM__V20*/ meltfptr[19]; - /*_.ERROR_AT__V139*/ meltfptr[137] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V139*/ + meltfptr[137] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -38767,7 +42498,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V141*/ meltfptr[140] = (/*nil*/NULL);; @@ -38798,23 +42530,28 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SFUBIND__V50*/ meltfptr[44]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NDATACLOS__V66*/ meltfptr[63]; - /*_.MELT_ASSERT_FAILURE_FUN__V142*/ meltfptr[141] = 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__V142*/ + meltfptr[141] = 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___V141*/ meltfptr[140] = /*_.MELT_ASSERT_FAILURE_FUN__V142*/ meltfptr[141];; + /*_._IFELSE___V141*/ + meltfptr[140] = /*_.MELT_ASSERT_FAILURE_FUN__V142*/ meltfptr[141];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5267:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V142*/ meltfptr[141] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V142*/ + meltfptr[141] = 0 ; } ; } ; - /*_.IFCPP___V140*/ meltfptr[134] = /*_._IFELSE___V141*/ meltfptr[140];; + /*_.IFCPP___V140*/ + meltfptr[134] = /*_._IFELSE___V141*/ meltfptr[140];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5267:/ clear"); - /*clear*/ /*_._IFELSE___V141*/ meltfptr[140] = 0 ; + /*clear*/ /*_._IFELSE___V141*/ + meltfptr[140] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38825,7 +42562,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5268:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:5268:/ locexp"); @@ -38840,36 +42578,47 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:5264:/ quasiblock"); - /*_.PROGN___V144*/ meltfptr[140] = /*_.RETURN___V143*/ meltfptr[141];; + /*_.PROGN___V144*/ + meltfptr[140] = /*_.RETURN___V143*/ meltfptr[141];; /*^compute*/ - /*_._IFELSE___V136*/ meltfptr[133] = /*_.PROGN___V144*/ meltfptr[140];; + /*_._IFELSE___V136*/ + meltfptr[133] = /*_.PROGN___V144*/ meltfptr[140];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5260:/ clear"); - /*clear*/ /*_.ERROR_AT__V139*/ meltfptr[137] = 0 ; + /*clear*/ /*_.ERROR_AT__V139*/ + meltfptr[137] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V140*/ meltfptr[134] = 0 ; + /*clear*/ /*_.IFCPP___V140*/ + meltfptr[134] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V143*/ meltfptr[141] = 0 ; + /*clear*/ /*_.RETURN___V143*/ + meltfptr[141] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V144*/ meltfptr[140] = 0 ; + /*clear*/ /*_.PROGN___V144*/ + meltfptr[140] = 0 ; } ; } ; - /*_._IFELSE___V133*/ meltfptr[123] = /*_._IFELSE___V136*/ meltfptr[133];; + /*_._IFELSE___V133*/ + meltfptr[123] = /*_._IFELSE___V136*/ meltfptr[133];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5259:/ clear"); - /*clear*/ /*_#MELT_IS_BOOTSTRAPPING__L55*/ meltfnum[54] = 0 ; + /*clear*/ /*_#MELT_IS_BOOTSTRAPPING__L55*/ + meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L56*/ meltfnum[55] = 0 ; + /*clear*/ /*_#_IF___L56*/ + meltfnum[55] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V136*/ meltfptr[133] = 0 ; + /*clear*/ /*_._IFELSE___V136*/ + meltfptr[133] = 0 ; } ; } @@ -38900,7 +42649,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L60*/ meltfnum[58] = + /*_#MELT_NEED_DBG__L60*/ + meltfnum[58] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -38909,7 +42659,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5270:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L60*/ meltfnum[58]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L60*/ meltfnum[58]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38946,16 +42697,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. for ndataclos="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NDATACLOS__V66*/ meltfptr[63]; - /*_.MELT_DEBUG_FUN__V146*/ meltfptr[134] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V146*/ + meltfptr[134] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V145*/ meltfptr[137] = /*_.MELT_DEBUG_FUN__V146*/ meltfptr[134];; + /*_._IF___V145*/ + meltfptr[137] = /*_.MELT_DEBUG_FUN__V146*/ meltfptr[134];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5270:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L61*/ meltfnum[56] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L61*/ + meltfnum[56] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V146*/ meltfptr[134] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V146*/ + meltfptr[134] = 0 ; } ; } @@ -38968,7 +42723,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5270:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -38977,9 +42733,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L60*/ meltfnum[58] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L60*/ + meltfnum[58] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V145*/ meltfptr[137] = 0 ; + /*clear*/ /*_._IF___V145*/ + meltfptr[137] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39010,7 +42768,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V148*/ meltfptr[140] = (/*nil*/NULL);; @@ -39041,23 +42800,28 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SFUBIND__V50*/ meltfptr[44]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NDATACLOS__V66*/ meltfptr[63]; - /*_.MELT_ASSERT_FAILURE_FUN__V149*/ 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V149*/ + 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V148*/ meltfptr[140] = /*_.MELT_ASSERT_FAILURE_FUN__V149*/ meltfptr[133];; + /*_._IFELSE___V148*/ + meltfptr[140] = /*_.MELT_ASSERT_FAILURE_FUN__V149*/ meltfptr[133];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5271:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V149*/ meltfptr[133] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V149*/ + meltfptr[133] = 0 ; } ; } ; - /*_.IFCPP___V147*/ meltfptr[141] = /*_._IFELSE___V148*/ meltfptr[140];; + /*_.IFCPP___V147*/ + meltfptr[141] = /*_._IFELSE___V148*/ meltfptr[140];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5271:/ clear"); - /*clear*/ /*_._IFELSE___V148*/ meltfptr[140] = 0 ; + /*clear*/ /*_._IFELSE___V148*/ + meltfptr[140] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39068,37 +42832,47 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5269:/ quasiblock"); - /*_.PROGN___V150*/ meltfptr[134] = /*_.IFCPP___V147*/ meltfptr[141];; + /*_.PROGN___V150*/ + meltfptr[134] = /*_.IFCPP___V147*/ meltfptr[141];; /*^compute*/ - /*_._IFELSE___V133*/ meltfptr[123] = /*_.PROGN___V150*/ meltfptr[134];; + /*_._IFELSE___V133*/ + meltfptr[123] = /*_.PROGN___V150*/ meltfptr[134];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5259:/ clear"); - /*clear*/ /*_.IFCPP___V147*/ meltfptr[141] = 0 ; + /*clear*/ /*_.IFCPP___V147*/ + meltfptr[141] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V150*/ meltfptr[134] = 0 ; + /*clear*/ /*_.PROGN___V150*/ + meltfptr[134] = 0 ; } ; } ; - /*_._IFELSE___V132*/ meltfptr[121] = /*_._IFELSE___V133*/ meltfptr[123];; + /*_._IFELSE___V132*/ + meltfptr[121] = /*_._IFELSE___V133*/ meltfptr[123];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5257:/ clear"); - /*clear*/ /*_#IS_A__L54*/ meltfnum[53] = 0 ; + /*clear*/ /*_#IS_A__L54*/ + meltfnum[53] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V133*/ meltfptr[123] = 0 ; + /*clear*/ /*_._IFELSE___V133*/ + meltfptr[123] = 0 ; } ; } ; - /*_._IFELSE___V131*/ meltfptr[124] = /*_._IFELSE___V132*/ meltfptr[121];; + /*_._IFELSE___V131*/ + meltfptr[124] = /*_._IFELSE___V132*/ meltfptr[121];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5255:/ clear"); - /*clear*/ /*_#IS_A__L53*/ meltfnum[31] = 0 ; + /*clear*/ /*_#IS_A__L53*/ + meltfnum[31] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V132*/ meltfptr[121] = 0 ; + /*clear*/ /*_._IFELSE___V132*/ + meltfptr[121] = 0 ; } ; } @@ -39123,7 +42897,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L62*/ meltfnum[54] = + /*_#MELT_NEED_DBG__L62*/ + meltfnum[54] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -39132,7 +42907,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5272:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L62*/ meltfnum[54]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L62*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -39165,16 +42941,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defun_defmacro return ndataclos="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NDATACLOS__V66*/ meltfptr[63]; - /*_.MELT_DEBUG_FUN__V152*/ meltfptr[133] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V152*/ + meltfptr[133] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V151*/ meltfptr[137] = /*_.MELT_DEBUG_FUN__V152*/ meltfptr[133];; + /*_._IF___V151*/ + meltfptr[137] = /*_.MELT_DEBUG_FUN__V152*/ meltfptr[133];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5272:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L63*/ meltfnum[55] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L63*/ + meltfnum[55] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V152*/ meltfptr[133] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V152*/ + meltfptr[133] = 0 ; } ; } @@ -39187,7 +42967,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5272:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -39196,9 +42977,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L62*/ meltfnum[54] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L62*/ + meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V151*/ meltfptr[137] = 0 ; + /*clear*/ /*_._IF___V151*/ + meltfptr[137] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39224,7 +43007,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5273:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.NDATACLOS__V66*/ meltfptr[63];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.NDATACLOS__V66*/ meltfptr[63];; MELT_LOCATION("warmelt-normal.melt:5273:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -39232,104 +43016,149 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V114*/ meltfptr[112] = /*_.RETURN___V153*/ meltfptr[140];; + /*_.MULTI___V114*/ + meltfptr[112] = /*_.RETURN___V153*/ meltfptr[140];; MELT_LOCATION("warmelt-normal.melt:5223:/ clear"); - /*clear*/ /*_.LAMBDA___V119*/ meltfptr[117] = 0 ; + /*clear*/ /*_.LAMBDA___V119*/ + meltfptr[117] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_EVERY__V121*/ meltfptr[120] = 0 ; + /*clear*/ /*_.MULTIPLE_EVERY__V121*/ + meltfptr[120] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L52*/ meltfnum[42] = 0 ; + /*clear*/ /*_#IS_A__L52*/ + meltfnum[42] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V131*/ meltfptr[124] = 0 ; + /*clear*/ /*_._IFELSE___V131*/ + meltfptr[124] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V153*/ meltfptr[140] = 0 ; + /*clear*/ /*_.RETURN___V153*/ + meltfptr[140] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDINGS__V116*/ meltfptr[92] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.MULTI___V114*/ meltfptr[112];; + /*clear*/ /*_.NBINDINGS__V116*/ + meltfptr[92] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.MULTI___V114*/ meltfptr[112];; MELT_LOCATION("warmelt-normal.melt:5094:/ 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*/ /*_.SNAM__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SNAM__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.SFORMALS__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.SFORMALS__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.SBODY__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.SBODY__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_#ISMACRO__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#ISMACRO__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#ISLETMACRO__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#ISLETMACRO__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MODCTX__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MODCTX__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.MODINIENV__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MODINIENV__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.MACROENV__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MACROENV__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V28*/ meltfptr[26] = 0 ; + /*clear*/ /*_.LET___V28*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.BASENV__V49*/ meltfptr[29] = 0 ; + /*clear*/ /*_.BASENV__V49*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.SFUBIND__V50*/ meltfptr[44] = 0 ; + /*clear*/ /*_.SFUBIND__V50*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWENV__V51*/ meltfptr[30] = 0 ; + /*clear*/ /*_.NEWENV__V51*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.OLDPROC__V52*/ meltfptr[25] = 0 ; + /*clear*/ /*_.OLDPROC__V52*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.OLDSYMBCACHE__V53*/ meltfptr[34] = 0 ; + /*clear*/ /*_.OLDSYMBCACHE__V53*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOSBLIS__V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.CLOSBLIS__V54*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.CNSTLIST__V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.CNSTLIST__V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_MAPOBJECT__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MAKE_MAPOBJECT__V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.MAKE_LIST__V57*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.NPROC__V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.NPROC__V58*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.NDATAROUT__V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_.NDATAROUT__V61*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_._IFELSE___V63*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.NDATACLOS__V66*/ meltfptr[63] = 0 ; + /*clear*/ /*_.NDATACLOS__V66*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_MAPOBJECT__V71*/ meltfptr[68] = 0 ; + /*clear*/ /*_.MAKE_MAPOBJECT__V71*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V74*/ meltfptr[67] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V74*/ + meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V75*/ meltfptr[69] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V75*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L27*/ meltfnum[7] = 0 ; + /*clear*/ /*_#NULL__L27*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V78*/ meltfptr[76] = 0 ; + /*clear*/ /*_._IF___V78*/ + meltfptr[76] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L30*/ meltfnum[28] = 0 ; + /*clear*/ /*_#IS_NOT_A__L30*/ + meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L31*/ meltfnum[8] = 0 ; + /*clear*/ /*_#_IF___L31*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V88*/ meltfptr[79] = 0 ; + /*clear*/ /*_._IF___V88*/ + meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L41*/ meltfnum[32] = 0 ; + /*clear*/ /*_#IS_A__L41*/ + meltfnum[32] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V114*/ meltfptr[112] = 0 ; + /*clear*/ /*_.MULTI___V114*/ + meltfptr[112] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5086:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:5086:/ locexp"); @@ -39344,17 +43173,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 ; } ; @@ -39436,7 +43270,8 @@ meltrout_88_WARMELTmiNORMAL_LAMBDA_cl23(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_88_WARMELTmiNORMAL_LAMBDA_cl23 fromline 1756 */ - /* classy proc frame meltrout_88_WARMELTmiNORMAL_LAMBDA_cl23 */ MeltFrame_meltrout_88_WARMELTmiNORMAL_LAMBDA_cl23 + /* classy proc frame meltrout_88_WARMELTmiNORMAL_LAMBDA_cl23 */ + MeltFrame_meltrout_88_WARMELTmiNORMAL_LAMBDA_cl23 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_88_WARMELTmiNORMAL_LAMBDA_cl23 fromline 1785*/ #if ENABLE_CHECKING @@ -39449,7 +43284,8 @@ meltrout_88_WARMELTmiNORMAL_LAMBDA_cl23(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl23", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -39459,12 +43295,14 @@ meltrout_88_WARMELTmiNORMAL_LAMBDA_cl23(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5229:/ getarg"); - /*_.NBI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NBI__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: @@ -39484,13 +43322,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBI__V2*/ meltfptr[1]; - /*_.PUT_ENV__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V3*/ + meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5229:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; { MELT_LOCATION("warmelt-normal.melt:5229:/ locexp"); @@ -39505,11 +43345,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 ; } ; @@ -39591,7 +43433,8 @@ meltrout_89_WARMELTmiNORMAL_LAMBDA_cl24(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_89_WARMELTmiNORMAL_LAMBDA_cl24 fromline 1756 */ - /* classy proc frame meltrout_89_WARMELTmiNORMAL_LAMBDA_cl24 */ MeltFrame_meltrout_89_WARMELTmiNORMAL_LAMBDA_cl24 + /* classy proc frame meltrout_89_WARMELTmiNORMAL_LAMBDA_cl24 */ + MeltFrame_meltrout_89_WARMELTmiNORMAL_LAMBDA_cl24 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_89_WARMELTmiNORMAL_LAMBDA_cl24 fromline 1785*/ #if ENABLE_CHECKING @@ -39604,7 +43447,8 @@ meltrout_89_WARMELTmiNORMAL_LAMBDA_cl24(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl24", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -39614,7 +43458,8 @@ meltrout_89_WARMELTmiNORMAL_LAMBDA_cl24(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5243:/ getarg"); - /*_.BND__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.BND__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -39634,10 +43479,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ meltfnum[0] = + /*_#IS_A__L1*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.BND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:5244:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; @@ -39666,25 +43513,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5244; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BND__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:5244:/ 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:5244:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39700,7 +43553,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BND__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.SY__V7*/ meltfptr[3] = slot; + /*_.SY__V7*/ + meltfptr[3] = slot; }; ; @@ -39717,22 +43571,27 @@ 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]); - /*_.NSY__V8*/ meltfptr[7] = meltgc_send((melt_ptr_t)(/*_.SY__V7*/ meltfptr[3]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[2])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NSY__V8*/ + meltfptr[7] = meltgc_send((melt_ptr_t)(/*_.SY__V7*/ meltfptr[3]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[2])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V6*/ meltfptr[4] = /*_.NSY__V8*/ meltfptr[7];; + /*_.LET___V6*/ + meltfptr[4] = /*_.NSY__V8*/ meltfptr[7];; MELT_LOCATION("warmelt-normal.melt:5245:/ clear"); - /*clear*/ /*_.SY__V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_.SY__V7*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.NSY__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.NSY__V8*/ + meltfptr[7] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5243:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-normal.melt:5243:/ locexp"); @@ -39747,13 +43606,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_.IFCPP___V3*/ + meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V6*/ + meltfptr[4] = 0 ; } ; @@ -39835,7 +43697,8 @@ meltrout_90_WARMELTmiNORMAL_NORMEXP_MACRO_INSTALLATION(meltclosure_ptr_t meltclo /* end of frame for routine meltrout_90_WARMELTmiNORMAL_NORMEXP_MACRO_INSTALLATION fromline 1756 */ - /* classy proc frame meltrout_90_WARMELTmiNORMAL_NORMEXP_MACRO_INSTALLATION */ MeltFrame_meltrout_90_WARMELTmiNORMAL_NORMEXP_MACRO_INSTALLATION + /* classy proc frame meltrout_90_WARMELTmiNORMAL_NORMEXP_MACRO_INSTALLATION */ + MeltFrame_meltrout_90_WARMELTmiNORMAL_NORMEXP_MACRO_INSTALLATION meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_90_WARMELTmiNORMAL_NORMEXP_MACRO_INSTALLATION fromline 1785*/ #if ENABLE_CHECKING @@ -39848,7 +43711,8 @@ meltrout_90_WARMELTmiNORMAL_NORMEXP_MACRO_INSTALLATION(meltclosure_ptr_t meltclo #define meltframe meltfram__ melt_trace_start("NORMEXP_MACRO_INSTALLATION", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -39858,26 +43722,30 @@ meltrout_90_WARMELTmiNORMAL_NORMEXP_MACRO_INSTALLATION(meltclosure_ptr_t meltclo /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5280:/ 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); ; @@ -39909,7 +43777,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)) @@ -39918,7 +43787,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5281:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -39955,16 +43825,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n... env="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), 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:5281:/ 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 ; } ; } @@ -39977,7 +43851,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5281:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -39986,9 +43861,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*/ @@ -40018,10 +43895,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_MACRO_INSTALLATION*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:5282:/ 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);; @@ -40050,25 +43929,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5282; /*^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:5282:/ 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:5282:/ 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*/ @@ -40086,10 +43971,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:5283:/ 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);; @@ -40118,25 +44005,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5283; /*^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:5283:/ 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:5283:/ 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*/ @@ -40154,10 +44047,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:5284:/ 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);; @@ -40186,25 +44081,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5284; /*^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:5284:/ 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:5284:/ 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*/ @@ -40231,11 +44132,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"); - /*_.LOCA_LOCATION__V18*/ meltfptr[5] = slot; + /*_.LOCA_LOCATION__V18*/ + meltfptr[5] = slot; }; ; /*^cond*/ - /*cond*/ if (/*_.LOCA_LOCATION__V18*/ meltfptr[5]) /*then*/ + /*cond*/ + if (/*_.LOCA_LOCATION__V18*/ meltfptr[5]) /*then*/ { /*^cond.then*/ /*_.LOC__V19*/ meltfptr[18] = /*_.LOCA_LOCATION__V18*/ meltfptr[5];; @@ -40244,7 +44147,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5286:/ cond.else"); - /*_.LOC__V19*/ meltfptr[18] = /*_.PSLOC__V5*/ meltfptr[4];; + /*_.LOC__V19*/ + meltfptr[18] = /*_.PSLOC__V5*/ meltfptr[4];; } ; MELT_LOCATION("warmelt-normal.melt:5287:/ getslot"); @@ -40252,11 +44156,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SMACINST_DEFMACRO"); - /*_.SDEFMACRO__V20*/ meltfptr[19] = slot; + /*_.SDEFMACRO__V20*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5288:/ 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*/ @@ -40267,7 +44173,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__V21*/ meltfptr[20] = slot; + /*_.MODCTX__V21*/ + meltfptr[20] = slot; }; ; } @@ -40278,7 +44185,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:5289:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[5]))) ) /*then*/ @@ -40289,7 +44197,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V21*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 5, "MOCX_MACROENV"); - /*_.MACROENV__V22*/ meltfptr[21] = slot; + /*_.MACROENV__V22*/ + meltfptr[21] = slot; }; ; } @@ -40300,7 +44209,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:5290:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[5]))) ) /*then*/ @@ -40311,7 +44221,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V21*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 1, "MOCX_MODULENAME"); - /*_.MODNAME__V23*/ meltfptr[22] = slot; + /*_.MODNAME__V23*/ + meltfptr[22] = slot; }; ; } @@ -40322,7 +44233,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:5291:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_MACRO_INSTALLATION*/ meltfrout->tabval[1]))) ) /*then*/ @@ -40333,7 +44245,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, "SMACINST_ENV"); - /*_.SRCENV__V24*/ meltfptr[23] = slot; + /*_.SRCENV__V24*/ + meltfptr[23] = slot; }; ; } @@ -40363,7 +44276,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)) @@ -40372,7 +44286,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5293:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -40425,16 +44340,20 @@ meltlab_endgetargs: argtab[13].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[7]); /*^apply.arg*/ argtab[14].meltbp_aptr = (melt_ptr_t*) &/*_.SRCENV__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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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:5293:/ 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 ; } ; } @@ -40447,7 +44366,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5293:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -40456,9 +44376,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*/ @@ -40488,10 +44410,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L8*/ meltfnum[1] = + /*_#IS_A__L8*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:5296:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V28*/ meltfptr[24] = (/*nil*/NULL);; @@ -40520,25 +44444,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5296; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V21*/ meltfptr[20]; - /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V29*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V28*/ meltfptr[24] = /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28];; + /*_._IFELSE___V28*/ + meltfptr[24] = /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5296:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V29*/ + meltfptr[28] = 0 ; } ; } ; - /*_.IFCPP___V27*/ meltfptr[25] = /*_._IFELSE___V28*/ meltfptr[24];; + /*_.IFCPP___V27*/ + meltfptr[25] = /*_._IFELSE___V28*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5296:/ clear"); - /*clear*/ /*_#IS_A__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V28*/ meltfptr[24] = 0 ; + /*clear*/ /*_._IFELSE___V28*/ + meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40556,10 +44486,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[0] = + /*_#IS_A__L9*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MACROENV__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:5297:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V31*/ meltfptr[24] = (/*nil*/NULL);; @@ -40588,25 +44520,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5297; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MACROENV__V22*/ meltfptr[21]; - /*_.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[24] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; + /*_._IFELSE___V31*/ + meltfptr[24] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5297:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ + meltfptr[31] = 0 ; } ; } ; - /*_.IFCPP___V30*/ meltfptr[28] = /*_._IFELSE___V31*/ meltfptr[24];; + /*_.IFCPP___V30*/ + meltfptr[28] = /*_._IFELSE___V31*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5297:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V31*/ meltfptr[24] = 0 ; + /*clear*/ /*_._IFELSE___V31*/ + meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40624,10 +44562,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L10*/ meltfnum[1] = + /*_#IS_A__L10*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SRCENV__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:5298:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V34*/ meltfptr[24] = (/*nil*/NULL);; @@ -40656,25 +44596,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5298; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SRCENV__V24*/ meltfptr[23]; - /*_.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[24] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; + /*_._IFELSE___V34*/ + meltfptr[24] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5298:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ + meltfptr[34] = 0 ; } ; } ; - /*_.IFCPP___V33*/ meltfptr[31] = /*_._IFELSE___V34*/ meltfptr[24];; + /*_.IFCPP___V33*/ + meltfptr[31] = /*_._IFELSE___V34*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5298:/ clear"); - /*clear*/ /*_#IS_A__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V34*/ meltfptr[24] = 0 ; + /*clear*/ /*_._IFELSE___V34*/ + meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40692,10 +44638,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L11*/ meltfnum[0] = + /*_#IS_A__L11*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SDEFMACRO__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFMACRO*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:5299:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L11*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V37*/ meltfptr[24] = (/*nil*/NULL);; @@ -40724,25 +44672,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5299; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SDEFMACRO__V20*/ meltfptr[19]; - /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V38*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V37*/ meltfptr[24] = /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[37];; + /*_._IFELSE___V37*/ + meltfptr[24] = /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5299:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V38*/ + meltfptr[37] = 0 ; } ; } ; - /*_.IFCPP___V36*/ meltfptr[34] = /*_._IFELSE___V37*/ meltfptr[24];; + /*_.IFCPP___V36*/ + meltfptr[34] = /*_._IFELSE___V37*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5299:/ clear"); - /*clear*/ /*_#IS_A__L11*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L11*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V37*/ meltfptr[24] = 0 ; + /*clear*/ /*_._IFELSE___V37*/ + meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40770,7 +44724,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)) @@ -40779,7 +44734,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5300:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -40818,16 +44774,20 @@ meltlab_endgetargs: argtab[6].meltbp_cstring = "; sdefmacro="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.SDEFMACRO__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V40*/ 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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V40*/ + 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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V39*/ meltfptr[37] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[24];; + /*_._IF___V39*/ + meltfptr[37] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5300:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ + meltfptr[24] = 0 ; } ; } @@ -40840,7 +44800,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5300:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -40849,9 +44810,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ meltfptr[37] = 0 ; + /*clear*/ /*_._IF___V39*/ + meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40888,11 +44851,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.NCLOS__V42*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_DEFUN_DEFMACRO*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SDEFMACRO__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NCLOS__V42*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_DEFUN_DEFMACRO*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SDEFMACRO__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5303:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SDEFMACRO__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFMACRO*/ meltfrout->tabval[8]))) ) /*then*/ @@ -40903,7 +44868,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEFMACRO__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 6, "SMACRO_BINDING"); - /*_.MBIND__V43*/ meltfptr[42] = slot; + /*_.MBIND__V43*/ + meltfptr[42] = slot; }; ; } @@ -40914,7 +44880,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:5304:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MBIND__V43*/ meltfptr[42]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[10]))) ) /*then*/ @@ -40925,7 +44892,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MBIND__V43*/ meltfptr[42]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.MSYMB__V44*/ meltfptr[43] = slot; + /*_.MSYMB__V44*/ + meltfptr[43] = slot; }; ; } @@ -40955,7 +44923,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)) @@ -40964,7 +44933,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5306:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41015,16 +44985,20 @@ meltlab_endgetargs: argtab[12].meltbp_aptr = (melt_ptr_t*) &/*_.MACROENV__V22*/ meltfptr[21]; /*^apply.arg*/ argtab[13].meltbp_cstring = "\n"; - /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V46*/ + meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V45*/ meltfptr[44] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];; + /*_._IF___V45*/ + meltfptr[44] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5306:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ + meltfptr[45] = 0 ; } ; } @@ -41037,7 +45011,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5306:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -41046,9 +45021,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IF___V45*/ + meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41078,10 +45055,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L16*/ meltfnum[1] = + /*_#IS_A__L16*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_RUNNING_EXTENSION_MODULE_CONTEXT*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-normal.melt:5309:/ cond"); - /*cond*/ if (/*_#IS_A__L16*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L16*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V48*/ meltfptr[44] = (/*nil*/NULL);; @@ -41112,25 +45091,31 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V21*/ meltfptr[20]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V49*/ + meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V48*/ meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V49*/ meltfptr[48];; + /*_._IFELSE___V48*/ + meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V49*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5309:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V49*/ + meltfptr[48] = 0 ; } ; } ; - /*_.IFCPP___V47*/ meltfptr[45] = /*_._IFELSE___V48*/ meltfptr[44];; + /*_.IFCPP___V47*/ + meltfptr[45] = /*_._IFELSE___V48*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5309:/ clear"); - /*clear*/ /*_#IS_A__L16*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L16*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V48*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IFELSE___V48*/ + meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41148,10 +45133,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L17*/ meltfnum[0] = + /*_#IS_A__L17*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCLOS__V42*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_NREP_DATACLOSURE*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-normal.melt:5310:/ cond"); - /*cond*/ if (/*_#IS_A__L17*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L17*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V51*/ meltfptr[44] = (/*nil*/NULL);; @@ -41184,25 +45171,31 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V52*/ + meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V51*/ meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V52*/ meltfptr[51];; + /*_._IFELSE___V51*/ + meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V52*/ meltfptr[51];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5310:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V52*/ + meltfptr[51] = 0 ; } ; } ; - /*_.IFCPP___V50*/ meltfptr[48] = /*_._IFELSE___V51*/ meltfptr[44];; + /*_.IFCPP___V50*/ + meltfptr[48] = /*_._IFELSE___V51*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5310:/ clear"); - /*clear*/ /*_#IS_A__L17*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L17*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V51*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IFELSE___V51*/ + meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41220,10 +45213,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L18*/ meltfnum[1] = + /*_#IS_A__L18*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MBIND__V43*/ meltfptr[42]), (melt_ptr_t)((/*!CLASS_DEFINED_MACRO_BINDING*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-normal.melt:5311:/ cond"); - /*cond*/ if (/*_#IS_A__L18*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L18*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V54*/ meltfptr[44] = (/*nil*/NULL);; @@ -41256,25 +45251,31 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V55*/ + meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V54*/ meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V55*/ meltfptr[54];; + /*_._IFELSE___V54*/ + meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V55*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5311:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V55*/ + meltfptr[54] = 0 ; } ; } ; - /*_.IFCPP___V53*/ meltfptr[51] = /*_._IFELSE___V54*/ meltfptr[44];; + /*_.IFCPP___V53*/ + meltfptr[51] = /*_._IFELSE___V54*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5311:/ clear"); - /*clear*/ /*_#IS_A__L18*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L18*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V54*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IFELSE___V54*/ + meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41316,7 +45317,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V21*/ meltfptr[20]; - /*_.NLI__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_LITERAL_VALUE*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.MBIND__V43*/ meltfptr[42]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NLI__V60*/ + meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_LITERAL_VALUE*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.MBIND__V43*/ meltfptr[42]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -41339,7 +45341,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)) @@ -41348,7 +45351,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5316:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41383,16 +45387,20 @@ meltlab_endgetargs: argtab[4].meltbp_cstring = " nlitbind="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.NLI__V60*/ meltfptr[59]; - /*_.MELT_DEBUG_FUN__V62*/ 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_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V62*/ + 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_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V61*/ meltfptr[60] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61];; + /*_._IF___V61*/ + meltfptr[60] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5316:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ + meltfptr[61] = 0 ; } ; } @@ -41405,7 +45413,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5316:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -41414,9 +45423,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_._IF___V61*/ + meltfptr[60] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41436,11 +45447,14 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V59*/ meltfptr[58] = /*_.NLI__V60*/ meltfptr[59];; + /*_.LET___V59*/ + meltfptr[58] = /*_.NLI__V60*/ meltfptr[59];; MELT_LOCATION("warmelt-normal.melt:5315:/ clear"); - /*clear*/ /*_.NLI__V60*/ meltfptr[59] = 0 ; - /*_.NLITBIND__V63*/ meltfptr[61] = /*_.LET___V59*/ meltfptr[58];; + /*clear*/ /*_.NLI__V60*/ + meltfptr[59] = 0 ; + /*_.NLITBIND__V63*/ + meltfptr[61] = /*_.LET___V59*/ meltfptr[58];; MELT_CHECK_SIGNAL(); ; @@ -41452,7 +45466,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[16])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V65*/ meltfptr[59] = + /*_.INST__V65*/ + meltfptr[59] = newobj; }; ; @@ -41480,7 +45495,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V65*/ meltfptr[59], "newly made instance"); ; - /*_.CLOBIND__V64*/ meltfptr[60] = /*_.INST__V65*/ meltfptr[59];; + /*_.CLOBIND__V64*/ + meltfptr[60] = /*_.INST__V65*/ meltfptr[59];; MELT_CHECK_SIGNAL(); ; @@ -41492,7 +45508,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__V67*/ meltfptr[66] = + /*_.INST__V67*/ + meltfptr[66] = newobj; }; ; @@ -41520,7 +45537,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V67*/ meltfptr[66], "newly made instance"); ; - /*_.CLOSOCC__V66*/ meltfptr[65] = /*_.INST__V67*/ meltfptr[66];; + /*_.CLOSOCC__V66*/ + meltfptr[65] = /*_.INST__V67*/ meltfptr[66];; MELT_LOCATION("warmelt-normal.melt:5328:/ quasiblock"); @@ -41535,7 +45553,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LITERALNAMEDVALUE*/ meltfrout->tabval[19])), (3), "CLASS_NREP_LITERALNAMEDVALUE"); - /*_.INST__V70*/ meltfptr[69] = + /*_.INST__V70*/ + meltfptr[69] = newobj; }; ; @@ -41553,7 +45572,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V70*/ meltfptr[69], "newly made instance"); ; - /*_.NLV__V69*/ meltfptr[68] = /*_.INST__V70*/ meltfptr[69];; + /*_.NLV__V69*/ + meltfptr[68] = /*_.INST__V70*/ meltfptr[69];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:5332:/ cppif.then"); @@ -41574,7 +45594,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)) @@ -41583,7 +45604,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5332:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41618,16 +45640,20 @@ meltlab_endgetargs: argtab[4].meltbp_cstring = " nlitval="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.NLV__V69*/ meltfptr[68]; - /*_.MELT_DEBUG_FUN__V72*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V72*/ + meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V71*/ meltfptr[70] = /*_.MELT_DEBUG_FUN__V72*/ meltfptr[71];; + /*_._IF___V71*/ + meltfptr[70] = /*_.MELT_DEBUG_FUN__V72*/ meltfptr[71];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5332:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V72*/ + meltfptr[71] = 0 ; } ; } @@ -41640,7 +45666,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5332:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -41649,9 +45676,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V71*/ meltfptr[70] = 0 ; + /*clear*/ /*_._IF___V71*/ + meltfptr[70] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41671,11 +45700,14 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V68*/ meltfptr[67] = /*_.NLV__V69*/ meltfptr[68];; + /*_.LET___V68*/ + meltfptr[67] = /*_.NLV__V69*/ meltfptr[68];; MELT_LOCATION("warmelt-normal.melt:5328:/ clear"); - /*clear*/ /*_.NLV__V69*/ meltfptr[68] = 0 ; - /*_.NLITVAL__V73*/ meltfptr[71] = /*_.LET___V68*/ meltfptr[67];; + /*clear*/ /*_.NLV__V69*/ + meltfptr[68] = 0 ; + /*_.NLITVAL__V73*/ + meltfptr[71] = /*_.LET___V68*/ meltfptr[67];; MELT_LOCATION("warmelt-normal.melt:5334:/ quasiblock"); @@ -41693,7 +45725,8 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x13*/ - /*_.TUPLREC___V76*/ meltfptr[75] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x13; + /*_.TUPLREC___V76*/ + meltfptr[75] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x13; meltletrec_1_ptr->rtup_0__TUPLREC__x13.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x13.nbval = 2; @@ -41713,13 +45746,16 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V76*/ meltfptr[75]); ; - /*_.TUPLE___V75*/ meltfptr[68] = /*_.TUPLREC___V76*/ meltfptr[75];; + /*_.TUPLE___V75*/ + meltfptr[68] = /*_.TUPLREC___V76*/ meltfptr[75];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5338:/ clear"); - /*clear*/ /*_.TUPLREC___V76*/ meltfptr[75] = 0 ; + /*clear*/ /*_.TUPLREC___V76*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V76*/ meltfptr[75] = 0 ; + /*clear*/ /*_.TUPLREC___V76*/ + meltfptr[75] = 0 ; } /*end multiallocblock*/ ; @@ -41736,7 +45772,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; /*^apply.arg*/ argtab[2].meltbp_cstring = "hook_macro_installer"; - /*_.NORMAL_PREDEF__V77*/ meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[23])), (melt_ptr_t)((/*!HOOK_MACRO_INSTALLER*/ meltfrout->tabval[24])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V77*/ + meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[23])), (melt_ptr_t)((/*!HOOK_MACRO_INSTALLER*/ meltfrout->tabval[24])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5341:/ blockmultialloc"); @@ -41750,7 +45787,8 @@ meltlab_endgetargs: meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x14*/ - /*_.TUPLREC___V79*/ meltfptr[78] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x14; + /*_.TUPLREC___V79*/ + meltfptr[78] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x14; meltletrec_2_ptr->rtup_0__TUPLREC__x14.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_2_ptr->rtup_0__TUPLREC__x14.nbval = 0; @@ -41758,16 +45796,20 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V79*/ meltfptr[78]); ; - /*_.TUPLE___V78*/ meltfptr[77] = /*_.TUPLREC___V79*/ meltfptr[78];; + /*_.TUPLE___V78*/ + meltfptr[77] = /*_.TUPLREC___V79*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5341:/ clear"); - /*clear*/ /*_.TUPLREC___V79*/ meltfptr[78] = 0 ; + /*clear*/ /*_.TUPLREC___V79*/ + meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V79*/ meltfptr[78] = 0 ; + /*clear*/ /*_.TUPLREC___V79*/ + meltfptr[78] = 0 ; } /*end multiallocblock*/ ; - /*_.HOOK_DATA__V80*/ meltfptr[78] = + /*_.HOOK_DATA__V80*/ + meltfptr[78] = melt_hook_data((melt_ptr_t)(/*!HOOK_MACRO_INSTALLER*/ meltfrout->tabval[24]));; MELT_LOCATION("warmelt-normal.melt:5334:/ quasiblock"); @@ -41777,7 +45819,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_HOOK_CALL*/ meltfrout->tabval[20])), (7), "CLASS_NREP_HOOK_CALL"); - /*_.INST__V82*/ meltfptr[81] = + /*_.INST__V82*/ + meltfptr[81] = newobj; }; ; @@ -41820,7 +45863,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V82*/ meltfptr[81], "newly made instance"); ; - /*_.NHC__V81*/ meltfptr[80] = /*_.INST__V82*/ meltfptr[81];; + /*_.NHC__V81*/ + meltfptr[80] = /*_.INST__V82*/ meltfptr[81];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:5344:/ cppif.then"); @@ -41841,7 +45885,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L23*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L23*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -41850,7 +45895,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5344:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L23*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41889,16 +45935,20 @@ meltlab_endgetargs: argtab[6].meltbp_cstring = "\n.. loc="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.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_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_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:5344:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L24*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V84*/ meltfptr[83] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V84*/ + meltfptr[83] = 0 ; } ; } @@ -41911,7 +45961,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5344:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -41920,9 +45971,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L23*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_._IF___V83*/ + meltfptr[82] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41942,21 +45995,29 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V74*/ meltfptr[70] = /*_.NHC__V81*/ meltfptr[80];; + /*_.LET___V74*/ + meltfptr[70] = /*_.NHC__V81*/ meltfptr[80];; MELT_LOCATION("warmelt-normal.melt:5334:/ clear"); - /*clear*/ /*_.TUPLE___V75*/ meltfptr[68] = 0 ; + /*clear*/ /*_.TUPLE___V75*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V77*/ meltfptr[75] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V77*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V78*/ meltfptr[77] = 0 ; + /*clear*/ /*_.TUPLE___V78*/ + meltfptr[77] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOK_DATA__V80*/ meltfptr[78] = 0 ; + /*clear*/ /*_.HOOK_DATA__V80*/ + meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.NHC__V81*/ meltfptr[80] = 0 ; - /*_.NHCALL__V85*/ meltfptr[83] = /*_.LET___V74*/ meltfptr[70];; + /*clear*/ /*_.NHC__V81*/ + meltfptr[80] = 0 ; + /*_.NHCALL__V85*/ + meltfptr[83] = /*_.LET___V74*/ meltfptr[70];; MELT_LOCATION("warmelt-normal.melt:5346:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MBIND__V43*/ meltfptr[42]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[10]))) ) /*then*/ @@ -41967,7 +46028,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MBIND__V43*/ meltfptr[42]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V86*/ meltfptr[82] = slot; + /*_.BINDER__V86*/ + meltfptr[82] = slot; }; ; } @@ -41997,7 +46059,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[16])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V89*/ meltfptr[77] = + /*_.INST__V89*/ + meltfptr[77] = newobj; }; ; @@ -42025,7 +46088,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V89*/ meltfptr[77], "newly made instance"); ; - /*_.CBIND__V88*/ meltfptr[75] = /*_.INST__V89*/ meltfptr[77];; + /*_.CBIND__V88*/ + meltfptr[75] = /*_.INST__V89*/ meltfptr[77];; MELT_CHECK_SIGNAL(); ; @@ -42037,7 +46101,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__V91*/ meltfptr[80] = + /*_.INST__V91*/ + meltfptr[80] = newobj; }; ; @@ -42065,7 +46130,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V91*/ meltfptr[80], "newly made instance"); ; - /*_.SYMOCC__V90*/ meltfptr[78] = /*_.INST__V91*/ meltfptr[80];; + /*_.SYMOCC__V90*/ + meltfptr[78] = /*_.INST__V91*/ meltfptr[80];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-normal.melt:5358:/ cppif.then"); @@ -42086,7 +46152,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L25*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L25*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -42095,7 +46162,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5358:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L25*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L25*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42134,16 +46202,20 @@ meltlab_endgetargs: argtab[6].meltbp_cstring = "\n.. loc="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V93*/ 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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V93*/ + 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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V92*/ meltfptr[91] = /*_.MELT_DEBUG_FUN__V93*/ meltfptr[92];; + /*_._IF___V92*/ + meltfptr[91] = /*_.MELT_DEBUG_FUN__V93*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5358:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L26*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L26*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V93*/ meltfptr[92] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V93*/ + meltfptr[92] = 0 ; } ; } @@ -42156,7 +46228,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5358:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -42165,9 +46238,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L25*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L25*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V92*/ meltfptr[91] = 0 ; + /*clear*/ /*_._IF___V92*/ + meltfptr[91] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42207,7 +46282,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L27*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L27*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -42216,7 +46292,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5359:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L27*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L27*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42255,16 +46332,20 @@ meltlab_endgetargs: argtab[6].meltbp_cstring = " nhcall="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.NHCALL__V85*/ meltfptr[83]; - /*_.MELT_DEBUG_FUN__V95*/ meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V95*/ + meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V94*/ meltfptr[92] = /*_.MELT_DEBUG_FUN__V95*/ meltfptr[91];; + /*_._IF___V94*/ + meltfptr[92] = /*_.MELT_DEBUG_FUN__V95*/ meltfptr[91];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5359:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L28*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L28*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V95*/ meltfptr[91] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V95*/ + meltfptr[91] = 0 ; } ; } @@ -42277,7 +46358,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5359:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -42286,9 +46368,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L27*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L27*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V94*/ meltfptr[92] = 0 ; + /*clear*/ /*_._IF___V94*/ + meltfptr[92] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42328,7 +46412,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L29*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L29*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -42337,7 +46422,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5360:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L29*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L29*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42384,16 +46470,20 @@ meltlab_endgetargs: argtab[10].meltbp_cstring = "\n.. clobind="; /*^apply.arg*/ argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.CLOBIND__V64*/ meltfptr[60]; - /*_.MELT_DEBUG_FUN__V97*/ 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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V97*/ + 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_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V96*/ meltfptr[91] = /*_.MELT_DEBUG_FUN__V97*/ meltfptr[92];; + /*_._IF___V96*/ + meltfptr[91] = /*_.MELT_DEBUG_FUN__V97*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5360:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L30*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L30*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V97*/ meltfptr[92] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V97*/ + meltfptr[92] = 0 ; } ; } @@ -42406,7 +46496,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5360:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -42415,9 +46506,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L29*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L29*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V96*/ meltfptr[91] = 0 ; + /*clear*/ /*_._IF___V96*/ + meltfptr[91] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42448,7 +46541,8 @@ meltlab_endgetargs: meltletrec_3_ptr = (struct meltletrec_3_st *) meltgc_allocate (sizeof (struct meltletrec_3_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x15*/ - /*_.TUPLREC___V99*/ meltfptr[91] = (melt_ptr_t) &meltletrec_3_ptr->rtup_0__TUPLREC__x15; + /*_.TUPLREC___V99*/ + meltfptr[91] = (melt_ptr_t) &meltletrec_3_ptr->rtup_0__TUPLREC__x15; meltletrec_3_ptr->rtup_0__TUPLREC__x15.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_3_ptr->rtup_0__TUPLREC__x15.nbval = 2; @@ -42468,13 +46562,16 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V99*/ meltfptr[91]); ; - /*_.TUPLE___V98*/ meltfptr[92] = /*_.TUPLREC___V99*/ meltfptr[91];; + /*_.TUPLE___V98*/ + meltfptr[92] = /*_.TUPLREC___V99*/ meltfptr[91];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5362:/ clear"); - /*clear*/ /*_.TUPLREC___V99*/ meltfptr[91] = 0 ; + /*clear*/ /*_.TUPLREC___V99*/ + meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V99*/ meltfptr[91] = 0 ; + /*clear*/ /*_.TUPLREC___V99*/ + meltfptr[91] = 0 ; } /*end multiallocblock*/ ; /*^blockmultialloc*/ @@ -42490,15 +46587,18 @@ meltlab_endgetargs: meltletrec_4_ptr = (struct meltletrec_4_st *) meltgc_allocate (sizeof (struct meltletrec_4_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0__CLOBIND_x1*/ - /*_.CLOBIND__V101*/ meltfptr[100] = (melt_ptr_t) &meltletrec_4_ptr->rpair_0__CLOBIND_x1; + /*_.CLOBIND__V101*/ + meltfptr[100] = (melt_ptr_t) &meltletrec_4_ptr->rpair_0__CLOBIND_x1; meltletrec_4_ptr->rpair_0__CLOBIND_x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inipair rpair_1__CBIND_x4*/ - /*_.CBIND__V102*/ meltfptr[101] = (melt_ptr_t) &meltletrec_4_ptr->rpair_1__CBIND_x4; + /*_.CBIND__V102*/ + meltfptr[101] = (melt_ptr_t) &meltletrec_4_ptr->rpair_1__CBIND_x4; meltletrec_4_ptr->rpair_1__CBIND_x4.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_2__LIST_*/ - /*_.LIST___V103*/ meltfptr[102] = (melt_ptr_t) &meltletrec_4_ptr->rlist_2__LIST_; + /*_.LIST___V103*/ + meltfptr[102] = (melt_ptr_t) &meltletrec_4_ptr->rlist_2__LIST_; meltletrec_4_ptr->rlist_2__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); @@ -42533,21 +46633,28 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V103*/ meltfptr[102]); ; - /*_.LIST___V100*/ meltfptr[91] = /*_.LIST___V103*/ meltfptr[102];; + /*_.LIST___V100*/ + meltfptr[91] = /*_.LIST___V103*/ meltfptr[102];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5362:/ clear"); - /*clear*/ /*_.CLOBIND__V101*/ meltfptr[100] = 0 ; + /*clear*/ /*_.CLOBIND__V101*/ + meltfptr[100] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V102*/ meltfptr[101] = 0 ; + /*clear*/ /*_.CBIND__V102*/ + meltfptr[101] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V103*/ meltfptr[102] = 0 ; + /*clear*/ /*_.LIST___V103*/ + meltfptr[102] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOBIND__V101*/ meltfptr[100] = 0 ; + /*clear*/ /*_.CLOBIND__V101*/ + meltfptr[100] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V102*/ meltfptr[101] = 0 ; + /*clear*/ /*_.CBIND__V102*/ + meltfptr[101] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V103*/ meltfptr[102] = 0 ; + /*clear*/ /*_.LIST___V103*/ + meltfptr[102] = 0 ; } /*end multiallocblock*/ ; @@ -42556,7 +46663,8 @@ meltlab_endgetargs: /*^quasiblock*/ - /*_._RETVAL___V1*/ meltfptr[0] = /*_.TUPLE___V98*/ meltfptr[92];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.TUPLE___V98*/ meltfptr[92];; MELT_LOCATION("warmelt-normal.melt:5362:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -42564,92 +46672,133 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V56*/ meltfptr[54] = /*_.RETURN___V104*/ meltfptr[100];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V56*/ + meltfptr[54] = /*_.RETURN___V104*/ meltfptr[100];; MELT_LOCATION("warmelt-normal.melt:5312:/ clear"); - /*clear*/ /*_.NLITSYM__V57*/ meltfptr[44] = 0 ; + /*clear*/ /*_.NLITSYM__V57*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.NCLOSYM__V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.NCLOSYM__V58*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.LET___V59*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.NLITBIND__V63*/ meltfptr[61] = 0 ; + /*clear*/ /*_.NLITBIND__V63*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOBIND__V64*/ meltfptr[60] = 0 ; + /*clear*/ /*_.CLOBIND__V64*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOSOCC__V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.CLOSOCC__V66*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V68*/ meltfptr[67] = 0 ; + /*clear*/ /*_.LET___V68*/ + meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.NLITVAL__V73*/ meltfptr[71] = 0 ; + /*clear*/ /*_.NLITVAL__V73*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V74*/ meltfptr[70] = 0 ; + /*clear*/ /*_.LET___V74*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.NHCALL__V85*/ meltfptr[83] = 0 ; + /*clear*/ /*_.NHCALL__V85*/ + meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V86*/ meltfptr[82] = 0 ; + /*clear*/ /*_.BINDER__V86*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.CSYM__V87*/ meltfptr[68] = 0 ; + /*clear*/ /*_.CSYM__V87*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V88*/ meltfptr[75] = 0 ; + /*clear*/ /*_.CBIND__V88*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.SYMOCC__V90*/ meltfptr[78] = 0 ; + /*clear*/ /*_.SYMOCC__V90*/ + meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V98*/ meltfptr[92] = 0 ; + /*clear*/ /*_.TUPLE___V98*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V100*/ meltfptr[91] = 0 ; + /*clear*/ /*_.LIST___V100*/ + meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V104*/ meltfptr[100] = 0 ; - /*_.LET___V41*/ meltfptr[24] = /*_.LET___V56*/ meltfptr[54];; + /*clear*/ /*_.RETURN___V104*/ + meltfptr[100] = 0 ; + /*_.LET___V41*/ + meltfptr[24] = /*_.LET___V56*/ meltfptr[54];; MELT_LOCATION("warmelt-normal.melt:5301:/ clear"); - /*clear*/ /*_.NCLOS__V42*/ meltfptr[37] = 0 ; + /*clear*/ /*_.NCLOS__V42*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.MBIND__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.MBIND__V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.MSYMB__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MSYMB__V44*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V47*/ meltfptr[45] = 0 ; + /*clear*/ /*_.IFCPP___V47*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V50*/ meltfptr[48] = 0 ; + /*clear*/ /*_.IFCPP___V50*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V53*/ meltfptr[51] = 0 ; + /*clear*/ /*_.IFCPP___V53*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V56*/ meltfptr[54] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.LET___V41*/ meltfptr[24];; + /*clear*/ /*_.LET___V56*/ + meltfptr[54] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.LET___V41*/ meltfptr[24];; MELT_LOCATION("warmelt-normal.melt:5286:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.LOCA_LOCATION__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.LOC__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SDEFMACRO__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SDEFMACRO__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MODCTX__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MODCTX__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MACROENV__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MACROENV__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.MODNAME__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MODNAME__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.SRCENV__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.SRCENV__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V27*/ meltfptr[25] = 0 ; + /*clear*/ /*_.IFCPP___V27*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V30*/ meltfptr[28] = 0 ; + /*clear*/ /*_.IFCPP___V30*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V33*/ meltfptr[31] = 0 ; + /*clear*/ /*_.IFCPP___V33*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_.IFCPP___V36*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V41*/ meltfptr[24] = 0 ; + /*clear*/ /*_.LET___V41*/ + meltfptr[24] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5280:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:5280:/ locexp"); @@ -42664,17 +46813,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 ; } ; @@ -42756,7 +46910,8 @@ meltrout_91_WARMELTmiNORMAL_NORMEXP_DEFHOOK(meltclosure_ptr_t meltclosp_, melt_p /* end of frame for routine meltrout_91_WARMELTmiNORMAL_NORMEXP_DEFHOOK fromline 1756 */ - /* classy proc frame meltrout_91_WARMELTmiNORMAL_NORMEXP_DEFHOOK */ MeltFrame_meltrout_91_WARMELTmiNORMAL_NORMEXP_DEFHOOK + /* classy proc frame meltrout_91_WARMELTmiNORMAL_NORMEXP_DEFHOOK */ + MeltFrame_meltrout_91_WARMELTmiNORMAL_NORMEXP_DEFHOOK meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_91_WARMELTmiNORMAL_NORMEXP_DEFHOOK fromline 1785*/ #if ENABLE_CHECKING @@ -42769,7 +46924,8 @@ meltrout_91_WARMELTmiNORMAL_NORMEXP_DEFHOOK(meltclosure_ptr_t meltclosp_, melt_p #define meltframe meltfram__ melt_trace_start("NORMEXP_DEFHOOK", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -42779,26 +46935,30 @@ meltrout_91_WARMELTmiNORMAL_NORMEXP_DEFHOOK(meltclosure_ptr_t meltclosp_, melt_p /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5370:/ 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); ; @@ -42830,7 +46990,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)) @@ -42839,7 +47000,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5371:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42880,16 +47042,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. env="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5371:/ 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 ; } ; } @@ -42902,7 +47068,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5371:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -42911,9 +47078,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*/ @@ -42943,10 +47112,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_DEFHOOK*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:5372:/ 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);; @@ -42975,25 +47146,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5372; /*^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:5372:/ 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:5372:/ 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*/ @@ -43011,10 +47188,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:5373:/ 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);; @@ -43043,25 +47222,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5373; /*^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:5373:/ 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:5373:/ 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*/ @@ -43079,10 +47264,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:5374:/ 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);; @@ -43111,25 +47298,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5374; /*^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:5374:/ 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:5374:/ 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*/ @@ -43145,11 +47338,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:5376:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[5]))) ) /*then*/ @@ -43160,7 +47355,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); - /*_.SYMB__V19*/ meltfptr[18] = slot; + /*_.SYMB__V19*/ + meltfptr[18] = slot; }; ; } @@ -43190,7 +47386,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)) @@ -43199,7 +47396,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5378:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43232,16 +47430,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defhook symb="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SYMB__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V21*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), 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:5378:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ + meltfptr[20] = 0 ; } ; } @@ -43254,7 +47456,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5378:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -43263,9 +47466,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IF___V20*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -43289,7 +47494,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ @@ -43300,7 +47506,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SYMB__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.SN__V23*/ meltfptr[19] = slot; + /*_.SN__V23*/ + meltfptr[19] = slot; }; ; } @@ -43330,7 +47537,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)) @@ -43339,7 +47547,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5381:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43372,16 +47581,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defhook symbname="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SN__V23*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V24*/ meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; + /*_._IF___V24*/ + meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5381:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ + meltfptr[24] = 0 ; } ; } @@ -43394,7 +47607,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5381:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -43403,9 +47617,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V24*/ + meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -43425,20 +47641,24 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V22*/ meltfptr[20] = /*_.SN__V23*/ meltfptr[19];; + /*_.LET___V22*/ + meltfptr[20] = /*_.SN__V23*/ meltfptr[19];; MELT_LOCATION("warmelt-normal.melt:5379:/ clear"); - /*clear*/ /*_.SN__V23*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SN__V23*/ + meltfptr[19] = 0 ; MELT_LOCATION("warmelt-normal.melt:5377:/ quasiblock"); - /*_.SYMBNAME__V26*/ meltfptr[24] = /*_.LET___V22*/ meltfptr[20];; + /*_.SYMBNAME__V26*/ + meltfptr[24] = /*_.LET___V22*/ meltfptr[20];; MELT_LOCATION("warmelt-normal.melt:5383:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SFORMAL_ARGS"); - /*_.SINFORMALS__V27*/ meltfptr[23] = slot; + /*_.SINFORMALS__V27*/ + meltfptr[23] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5384:/ getslot"); @@ -43446,7 +47666,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SHOOK_OUT_FORMALS"); - /*_.SOUTFORMALS__V28*/ meltfptr[19] = slot; + /*_.SOUTFORMALS__V28*/ + meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5385:/ getslot"); @@ -43454,7 +47675,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "SHOOK_CTYPE"); - /*_.SCTYPE__V29*/ meltfptr[28] = slot; + /*_.SCTYPE__V29*/ + meltfptr[28] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5386:/ getslot"); @@ -43462,7 +47684,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 7, "SHOOK_PREDEF"); - /*_.SPREDEF__V30*/ meltfptr[29] = slot; + /*_.SPREDEF__V30*/ + meltfptr[29] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5387:/ getslot"); @@ -43470,7 +47693,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 8, "SHOOK_VARIABLE"); - /*_.SMODVAR__V31*/ meltfptr[30] = slot; + /*_.SMODVAR__V31*/ + meltfptr[30] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5388:/ getslot"); @@ -43478,7 +47702,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, 9, "SHOOK_BODY"); - /*_.SBODY__V32*/ meltfptr[31] = slot; + /*_.SBODY__V32*/ + meltfptr[31] = slot; }; ; @@ -43491,7 +47716,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SYMB__V19*/ meltfptr[18]; - /*_.SHOBIND__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SHOBIND__V33*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -43508,7 +47734,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"); - /*_.OLDPROC__V35*/ meltfptr[34] = slot; + /*_.OLDPROC__V35*/ + meltfptr[34] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5392:/ getslot"); @@ -43516,19 +47743,23 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NCTX_SYMBCACHEMAP"); - /*_.OLDSYMBCACHE__V36*/ meltfptr[35] = slot; + /*_.OLDSYMBCACHE__V36*/ + meltfptr[35] = slot; }; ; - /*_.CLOSBINDLIST__V37*/ meltfptr[36] = + /*_.CLOSBINDLIST__V37*/ + meltfptr[36] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[9]))));; /*^compute*/ - /*_.CONSTLIST__V38*/ meltfptr[37] = + /*_.CONSTLIST__V38*/ + meltfptr[37] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[9]))));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_.MAKE_MAPOBJECT__V39*/ meltfptr[38] = + /*_.MAKE_MAPOBJECT__V39*/ + meltfptr[38] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[11])), (31)));; MELT_LOCATION("warmelt-normal.melt:5395:/ quasiblock"); @@ -43538,7 +47769,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[10])), (10), "CLASS_NREP_HOOKPROC"); - /*_.INST__V41*/ meltfptr[40] = + /*_.INST__V41*/ + meltfptr[40] = newobj; }; ; @@ -43596,7 +47828,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V41*/ meltfptr[40], "newly made instance"); ; - /*_.NPROC__V40*/ meltfptr[39] = /*_.INST__V41*/ meltfptr[40];; + /*_.NPROC__V40*/ + meltfptr[39] = /*_.INST__V41*/ meltfptr[40];; MELT_CHECK_SIGNAL(); ; @@ -43608,7 +47841,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_HOOK_DESCRIPTOR*/ meltfrout->tabval[12])), (6), "CLASS_HOOK_DESCRIPTOR"); - /*_.INST__V43*/ meltfptr[42] = + /*_.INST__V43*/ + meltfptr[42] = newobj; }; ; @@ -43641,7 +47875,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V43*/ meltfptr[42], "newly made instance"); ; - /*_.DESCRHOOK__V42*/ meltfptr[41] = /*_.INST__V43*/ meltfptr[42];; + /*_.DESCRHOOK__V42*/ + meltfptr[41] = /*_.INST__V43*/ meltfptr[42];; MELT_CHECK_SIGNAL(); ; @@ -43659,7 +47894,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_hook"; - /*_.NORMAL_PREDEF__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[14])), (melt_ptr_t)((/*!DISCR_HOOK*/ meltfrout->tabval[15])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V44*/ + meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[14])), (melt_ptr_t)((/*!DISCR_HOOK*/ meltfrout->tabval[15])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5413:/ quasiblock"); @@ -43670,7 +47906,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAHOOK*/ meltfrout->tabval[13])), (10), "CLASS_NREP_DATAHOOK"); - /*_.INST__V46*/ meltfptr[45] = + /*_.INST__V46*/ + meltfptr[45] = newobj; }; ; @@ -43713,36 +47950,47 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V46*/ meltfptr[45], "newly made instance"); ; - /*_.NDATAHOOK__V45*/ meltfptr[44] = /*_.INST__V46*/ meltfptr[45];; + /*_.NDATAHOOK__V45*/ + meltfptr[44] = /*_.INST__V46*/ meltfptr[45];; /*^compute*/ - /*_#MULTIPLE_LENGTH__L10*/ meltfnum[0] = + /*_#MULTIPLE_LENGTH__L10*/ + meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.SINFORMALS__V27*/ meltfptr[23])));; /*^compute*/ - /*_#MULTIPLE_LENGTH__L11*/ meltfnum[1] = + /*_#MULTIPLE_LENGTH__L11*/ + meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.SOUTFORMALS__V28*/ meltfptr[19])));; /*^compute*/ - /*_#plI__L12*/ meltfnum[11] = + /*_#plI__L12*/ + meltfnum[11] = ((/*_#MULTIPLE_LENGTH__L10*/ meltfnum[0]) + (/*_#MULTIPLE_LENGTH__L11*/ meltfnum[1]));; /*^compute*/ - /*_#stI__L13*/ meltfnum[12] = + /*_#stI__L13*/ + meltfnum[12] = ((/*_#plI__L12*/ meltfnum[11]) * (2));; /*^compute*/ - /*_#plI__L14*/ meltfnum[13] = + /*_#plI__L14*/ + meltfnum[13] = ((9) + (/*_#stI__L13*/ meltfnum[12]));; /*^compute*/ - /*_.FORMSYMBMAP__V47*/ meltfptr[46] = + /*_.FORMSYMBMAP__V47*/ + meltfptr[46] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[11])), (/*_#plI__L14*/ meltfnum[13])));; /*^compute*/ - /*_#MULTIPLE_LENGTH__L15*/ meltfnum[14] = + /*_#MULTIPLE_LENGTH__L15*/ + meltfnum[14] = (melt_multiple_length((melt_ptr_t)(/*_.SINFORMALS__V27*/ meltfptr[23])));; /*^compute*/ - /*_.FORMINTUPLE__V48*/ meltfptr[47] = + /*_.FORMINTUPLE__V48*/ + meltfptr[47] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[16])), (/*_#MULTIPLE_LENGTH__L15*/ meltfnum[14])));; /*^compute*/ - /*_#MULTIPLE_LENGTH__L16*/ meltfnum[15] = + /*_#MULTIPLE_LENGTH__L16*/ + meltfnum[15] = (melt_multiple_length((melt_ptr_t)(/*_.SOUTFORMALS__V28*/ meltfptr[19])));; /*^compute*/ - /*_.FORMOUTUPLE__V49*/ meltfptr[48] = + /*_.FORMOUTUPLE__V49*/ + meltfptr[48] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[16])), (/*_#MULTIPLE_LENGTH__L16*/ meltfnum[15])));; MELT_CHECK_SIGNAL(); @@ -43761,7 +48009,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[14])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[18])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V50*/ + meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[14])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[18])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5427:/ quasiblock"); @@ -43772,7 +48021,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ meltfrout->tabval[17])), (6), "CLASS_NREP_DATASTRING"); - /*_.INST__V52*/ meltfptr[51] = + /*_.INST__V52*/ + meltfptr[51] = newobj; }; ; @@ -43795,19 +48045,23 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V52*/ meltfptr[51], "newly made instance"); ; - /*_.NAMSTRDATA__V51*/ meltfptr[50] = /*_.INST__V52*/ meltfptr[51];; + /*_.NAMSTRDATA__V51*/ + meltfptr[50] = /*_.INST__V52*/ meltfptr[51];; MELT_LOCATION("warmelt-normal.melt:5432:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!CLASS_HOOK_DESCRIPTOR*/ meltfrout->tabval[12])) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); - /*_.CLASS_FIELDS__V53*/ meltfptr[52] = slot; + /*_.CLASS_FIELDS__V53*/ + meltfptr[52] = slot; }; ; - /*_#MULTIPLE_LENGTH__L17*/ meltfnum[16] = + /*_#MULTIPLE_LENGTH__L17*/ + meltfnum[16] = (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V53*/ meltfptr[52])));; /*^compute*/ - /*_.SLOTUP__V54*/ meltfptr[53] = + /*_.SLOTUP__V54*/ + meltfptr[53] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[16])), (/*_#MULTIPLE_LENGTH__L17*/ meltfnum[16])));; MELT_CHECK_SIGNAL(); @@ -43826,13 +48080,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "class_hook_descriptor"; - /*_.NORMAL_PREDEF__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[14])), (melt_ptr_t)((/*!CLASS_HOOK_DESCRIPTOR*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V55*/ + meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[14])), (melt_ptr_t)((/*!CLASS_HOOK_DESCRIPTOR*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_#OBJ_HASH__L18*/ meltfnum[17] = + /*_#OBJ_HASH__L18*/ + meltfnum[17] = (melt_obj_hash((melt_ptr_t)(/*_.DESCRHOOK__V42*/ meltfptr[41])));; /*^compute*/ - /*_.MAKE_INTEGERBOX__V56*/ meltfptr[55] = + /*_.MAKE_INTEGERBOX__V56*/ + meltfptr[55] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[20])), (/*_#OBJ_HASH__L18*/ meltfnum[17])));; MELT_LOCATION("warmelt-normal.melt:5433:/ quasiblock"); @@ -43842,7 +48099,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ meltfrout->tabval[19])), (9), "CLASS_NREP_DATAINSTANCE"); - /*_.INST__V58*/ meltfptr[57] = + /*_.INST__V58*/ + meltfptr[57] = newobj; }; ; @@ -43875,12 +48133,14 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V58*/ meltfptr[57], "newly made instance"); ; - /*_.INSDATA__V57*/ meltfptr[56] = /*_.INST__V58*/ meltfptr[57];; + /*_.INSDATA__V57*/ + meltfptr[56] = /*_.INST__V58*/ meltfptr[57];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5441:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDATAHOOK__V45*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_NREP_DATAHOOK*/ meltfrout->tabval[13]))) ) /*then*/ @@ -43911,7 +48171,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5442:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NPROC__V40*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[10]))) ) /*then*/ @@ -43958,7 +48219,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L19*/ meltfnum[18] = + /*_#MELT_NEED_DBG__L19*/ + meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -43967,7 +48229,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5443:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44008,16 +48271,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. nproc="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NPROC__V40*/ meltfptr[39]; - /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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 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:5443:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ + meltfptr[59] = 0 ; } ; } @@ -44030,7 +48297,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5443:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -44039,9 +48307,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_._IF___V59*/ + meltfptr[58] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44081,7 +48351,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ meltfnum[19] = + /*_#MELT_NEED_DBG__L21*/ + meltfnum[19] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -44090,7 +48361,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5445:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44127,16 +48399,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. sctype="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SCTYPE__V29*/ meltfptr[28]; - /*_.MELT_DEBUG_FUN__V62*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V62*/ + meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V61*/ meltfptr[59] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[58];; + /*_._IF___V61*/ + meltfptr[59] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5445:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ meltfptr[58] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ + meltfptr[58] = 0 ; } ; } @@ -44149,7 +48425,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5445:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -44158,9 +48435,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V61*/ meltfptr[59] = 0 ; + /*clear*/ /*_._IF___V61*/ + meltfptr[59] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44200,7 +48479,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L23*/ meltfnum[18] = + /*_#MELT_NEED_DBG__L23*/ + meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -44209,7 +48489,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5446:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L23*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44246,16 +48527,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. smodvar="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SMODVAR__V31*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V64*/ 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__V64*/ + 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___V63*/ meltfptr[58] = /*_.MELT_DEBUG_FUN__V64*/ meltfptr[59];; + /*_._IF___V63*/ + meltfptr[58] = /*_.MELT_DEBUG_FUN__V64*/ meltfptr[59];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5446:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L24*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V64*/ meltfptr[59] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V64*/ + meltfptr[59] = 0 ; } ; } @@ -44268,7 +48553,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5446:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -44277,9 +48563,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L23*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V63*/ meltfptr[58] = 0 ; + /*clear*/ /*_._IF___V63*/ + meltfptr[58] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44303,7 +48591,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5447:/ cond"); - /*cond*/ if (/*_.SMODVAR__V31*/ meltfptr[30]) /*then*/ + /*cond*/ + if (/*_.SMODVAR__V31*/ meltfptr[30]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44323,7 +48612,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SMODVAR__V31*/ meltfptr[30]; - /*_.MODVARBIND__V65*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MODVARBIND__V65*/ + meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -44346,7 +48636,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L25*/ meltfnum[19] = + /*_#MELT_NEED_DBG__L25*/ + meltfnum[19] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -44355,7 +48646,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5450:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L25*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L25*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44396,16 +48688,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " modvarbind="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.MODVARBIND__V65*/ meltfptr[59]; - /*_.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 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V66*/ meltfptr[58] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66];; + /*_._IF___V66*/ + meltfptr[58] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5450:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L26*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L26*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V67*/ + meltfptr[66] = 0 ; } ; } @@ -44418,7 +48714,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5450:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -44427,9 +48724,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L25*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L25*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V66*/ meltfptr[58] = 0 ; + /*clear*/ /*_._IF___V66*/ + meltfptr[58] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44452,10 +48751,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L27*/ meltfnum[18] = + /*_#IS_NOT_A__L27*/ + meltfnum[18] = !melt_is_instance_of((melt_ptr_t)(/*_.MODVARBIND__V65*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_NORMAL_MODULE_VARIABLE_BINDING*/ meltfrout->tabval[21])));; MELT_LOCATION("warmelt-normal.melt:5451:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L27*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L27*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44474,13 +48775,15 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "DEFHOOK $1 has bad :VAR annotation, should be a module variable"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBNAME__V26*/ meltfptr[24]; - /*_.ERROR_AT__V69*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V69*/ + meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5454:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:5454:/ locexp"); @@ -44495,21 +48798,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:5451:/ quasiblock"); - /*_.PROGN___V71*/ meltfptr[70] = /*_.RETURN___V70*/ meltfptr[69];; + /*_.PROGN___V71*/ + meltfptr[70] = /*_.RETURN___V70*/ meltfptr[69];; /*^compute*/ - /*_._IF___V68*/ meltfptr[66] = /*_.PROGN___V71*/ meltfptr[70];; + /*_._IF___V68*/ + meltfptr[66] = /*_.PROGN___V71*/ meltfptr[70];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5451:/ clear"); - /*clear*/ /*_.ERROR_AT__V69*/ meltfptr[58] = 0 ; + /*clear*/ /*_.ERROR_AT__V69*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V70*/ meltfptr[69] = 0 ; + /*clear*/ /*_.RETURN___V70*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V71*/ meltfptr[70] = 0 ; + /*clear*/ /*_.PROGN___V71*/ + meltfptr[70] = 0 ; } ; } @@ -44523,7 +48832,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5456:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDATAHOOK__V45*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_NREP_DATAHOOK*/ meltfrout->tabval[13]))) ) /*then*/ @@ -44570,7 +48880,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L28*/ meltfnum[19] = + /*_#MELT_NEED_DBG__L28*/ + meltfnum[19] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -44579,7 +48890,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5457:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L28*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L28*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44612,16 +48924,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defhook updated ndatahook="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NDATAHOOK__V45*/ meltfptr[44]; - /*_.MELT_DEBUG_FUN__V73*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V73*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V72*/ meltfptr[58] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[69];; + /*_._IF___V72*/ + meltfptr[58] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[69];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5457:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L29*/ meltfnum[28] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L29*/ + meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ meltfptr[69] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ + meltfptr[69] = 0 ; } ; } @@ -44634,7 +48950,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5457:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -44643,9 +48960,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L28*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L28*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V72*/ meltfptr[58] = 0 ; + /*clear*/ /*_._IF___V72*/ + meltfptr[58] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44667,11 +48986,14 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:5448:/ clear"); - /*clear*/ /*_.MODVARBIND__V65*/ meltfptr[59] = 0 ; + /*clear*/ /*_.MODVARBIND__V65*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L27*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IS_NOT_A__L27*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V68*/ meltfptr[66] = 0 ; + /*clear*/ /*_._IF___V68*/ + meltfptr[66] = 0 ; /*epilog*/ } ; @@ -44687,10 +49009,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L30*/ meltfnum[28] = + /*_#IS_A__L30*/ + meltfnum[28] = melt_is_instance_of((melt_ptr_t)(/*_.SCTYPE__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[23])));; MELT_LOCATION("warmelt-normal.melt:5459:/ cond"); - /*cond*/ if (/*_#IS_A__L30*/ meltfnum[28]) /*then*/ + /*cond*/ + if (/*_#IS_A__L30*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V75*/ meltfptr[69] = (/*nil*/NULL);; @@ -44719,25 +49043,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5459; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SCTYPE__V29*/ meltfptr[28]; - /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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[58] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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[69] = /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[58];; + /*_._IFELSE___V75*/ + meltfptr[69] = /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5459:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[58] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V76*/ + meltfptr[58] = 0 ; } ; } ; - /*_.IFCPP___V74*/ meltfptr[70] = /*_._IFELSE___V75*/ meltfptr[69];; + /*_.IFCPP___V74*/ + meltfptr[70] = /*_._IFELSE___V75*/ meltfptr[69];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5459:/ clear"); - /*clear*/ /*_#IS_A__L30*/ meltfnum[28] = 0 ; + /*clear*/ /*_#IS_A__L30*/ + meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V75*/ meltfptr[69] = 0 ; + /*clear*/ /*_._IFELSE___V75*/ + meltfptr[69] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44755,10 +49085,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L31*/ meltfnum[19] = + /*_#IS_STRING__L31*/ + meltfnum[19] = (melt_magic_discr((melt_ptr_t)(/*_.SYMBNAME__V26*/ meltfptr[24])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-normal.melt:5460:/ cond"); - /*cond*/ if (/*_#IS_STRING__L31*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L31*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V78*/ meltfptr[66] = (/*nil*/NULL);; @@ -44787,25 +49119,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5460; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBNAME__V26*/ meltfptr[24]; - /*_.MELT_ASSERT_FAILURE_FUN__V79*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V79*/ + meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V78*/ meltfptr[66] = /*_.MELT_ASSERT_FAILURE_FUN__V79*/ meltfptr[58];; + /*_._IFELSE___V78*/ + meltfptr[66] = /*_.MELT_ASSERT_FAILURE_FUN__V79*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5460:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V79*/ meltfptr[58] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V79*/ + meltfptr[58] = 0 ; } ; } ; - /*_.IFCPP___V77*/ meltfptr[59] = /*_._IFELSE___V78*/ meltfptr[66];; + /*_.IFCPP___V77*/ + meltfptr[59] = /*_._IFELSE___V78*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5460:/ clear"); - /*clear*/ /*_#IS_STRING__L31*/ meltfnum[19] = 0 ; + /*clear*/ /*_#IS_STRING__L31*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V78*/ meltfptr[66] = 0 ; + /*clear*/ /*_._IFELSE___V78*/ + meltfptr[66] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44826,10 +49164,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE_OR_NULL__L32*/ meltfnum[18] = + /*_#IS_MULTIPLE_OR_NULL__L32*/ + meltfnum[18] = ((/*_.SINFORMALS__V27*/ meltfptr[23]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.SINFORMALS__V27*/ meltfptr[23])) == MELTOBMAG_MULTIPLE));; MELT_LOCATION("warmelt-normal.melt:5461:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L32*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE_OR_NULL__L32*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44839,11 +49179,13 @@ meltlab_endgetargs: /*_#IS_NOT_A__L34*/ meltfnum[19] = !melt_is_instance_of((melt_ptr_t)(/*_.SINFORMALS__V27*/ meltfptr[23]), (melt_ptr_t)((/*!DISCR_VARIADIC_FORMAL_SEQUENCE*/ meltfrout->tabval[24])));; /*^compute*/ - /*_#_IF___L33*/ meltfnum[28] = /*_#IS_NOT_A__L34*/ meltfnum[19];; + /*_#_IF___L33*/ + meltfnum[28] = /*_#IS_NOT_A__L34*/ meltfnum[19];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5461:/ clear"); - /*clear*/ /*_#IS_NOT_A__L34*/ meltfnum[19] = 0 ; + /*clear*/ /*_#IS_NOT_A__L34*/ + meltfnum[19] = 0 ; } ; } @@ -44854,7 +49196,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:5461:/ cond"); - /*cond*/ if (/*_#_IF___L33*/ meltfnum[28]) /*then*/ + /*cond*/ + if (/*_#_IF___L33*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V81*/ meltfptr[58] = (/*nil*/NULL);; @@ -44883,27 +49226,34 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5461; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SINFORMALS__V27*/ meltfptr[23]; - /*_.MELT_ASSERT_FAILURE_FUN__V82*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V82*/ + meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V81*/ meltfptr[58] = /*_.MELT_ASSERT_FAILURE_FUN__V82*/ meltfptr[66];; + /*_._IFELSE___V81*/ + meltfptr[58] = /*_.MELT_ASSERT_FAILURE_FUN__V82*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5461:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V82*/ meltfptr[66] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V82*/ + meltfptr[66] = 0 ; } ; } ; - /*_.IFCPP___V80*/ meltfptr[69] = /*_._IFELSE___V81*/ meltfptr[58];; + /*_.IFCPP___V80*/ + meltfptr[69] = /*_._IFELSE___V81*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5461:/ clear"); - /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L32*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L32*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L33*/ meltfnum[28] = 0 ; + /*clear*/ /*_#_IF___L33*/ + meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V81*/ meltfptr[58] = 0 ; + /*clear*/ /*_._IFELSE___V81*/ + meltfptr[58] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44924,10 +49274,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE_OR_NULL__L35*/ meltfnum[19] = + /*_#IS_MULTIPLE_OR_NULL__L35*/ + meltfnum[19] = ((/*_.SOUTFORMALS__V28*/ meltfptr[19]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.SOUTFORMALS__V28*/ meltfptr[19])) == MELTOBMAG_MULTIPLE));; MELT_LOCATION("warmelt-normal.melt:5464:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L35*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE_OR_NULL__L35*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44937,11 +49289,13 @@ meltlab_endgetargs: /*_#IS_NOT_A__L37*/ meltfnum[28] = !melt_is_instance_of((melt_ptr_t)(/*_.SOUTFORMALS__V28*/ meltfptr[19]), (melt_ptr_t)((/*!DISCR_VARIADIC_FORMAL_SEQUENCE*/ meltfrout->tabval[24])));; /*^compute*/ - /*_#_IF___L36*/ meltfnum[18] = /*_#IS_NOT_A__L37*/ meltfnum[28];; + /*_#_IF___L36*/ + meltfnum[18] = /*_#IS_NOT_A__L37*/ meltfnum[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5464:/ clear"); - /*clear*/ /*_#IS_NOT_A__L37*/ meltfnum[28] = 0 ; + /*clear*/ /*_#IS_NOT_A__L37*/ + meltfnum[28] = 0 ; } ; } @@ -44952,7 +49306,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-normal.melt:5464:/ cond"); - /*cond*/ if (/*_#_IF___L36*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#_IF___L36*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V84*/ meltfptr[58] = (/*nil*/NULL);; @@ -44981,27 +49336,34 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5464; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SOUTFORMALS__V28*/ meltfptr[19]; - /*_.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[58] = /*_.MELT_ASSERT_FAILURE_FUN__V85*/ meltfptr[84];; + /*_._IFELSE___V84*/ + meltfptr[58] = /*_.MELT_ASSERT_FAILURE_FUN__V85*/ meltfptr[84];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5464:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V85*/ meltfptr[84] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V85*/ + meltfptr[84] = 0 ; } ; } ; - /*_.IFCPP___V83*/ meltfptr[66] = /*_._IFELSE___V84*/ meltfptr[58];; + /*_.IFCPP___V83*/ + meltfptr[66] = /*_._IFELSE___V84*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5464:/ clear"); - /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L35*/ meltfnum[19] = 0 ; + /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L35*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L36*/ meltfnum[18] = 0 ; + /*clear*/ /*_#_IF___L36*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V84*/ meltfptr[58] = 0 ; + /*clear*/ /*_._IFELSE___V84*/ + meltfptr[58] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -45029,7 +49391,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L38*/ meltfnum[28] = + /*_#MELT_NEED_DBG__L38*/ + meltfnum[28] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -45038,7 +49401,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5467:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L38*/ meltfnum[28]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L38*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45083,16 +49447,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n ndatahook="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.NDATAHOOK__V45*/ meltfptr[44]; - /*_.MELT_DEBUG_FUN__V87*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V87*/ + meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V86*/ meltfptr[84] = /*_.MELT_DEBUG_FUN__V87*/ meltfptr[58];; + /*_._IF___V86*/ + meltfptr[84] = /*_.MELT_DEBUG_FUN__V87*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5467:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L39*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L39*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V87*/ meltfptr[58] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V87*/ + meltfptr[58] = 0 ; } ; } @@ -45105,7 +49473,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5467:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -45114,9 +49483,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L38*/ meltfnum[28] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L38*/ + meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V86*/ meltfptr[84] = 0 ; + /*clear*/ /*_._IF___V86*/ + meltfptr[84] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -45139,10 +49510,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_.MAKE_MAPOBJECT__V88*/ meltfptr[58] = + /*_.MAKE_MAPOBJECT__V88*/ + meltfptr[58] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[11])), (40)));; MELT_LOCATION("warmelt-normal.melt:5469:/ 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*/ @@ -45184,7 +49557,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NDATAHOOK__V45*/ meltfptr[44]; - /*_.ADD_NCTX_DATA__V89*/ meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V89*/ + meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -45197,16 +49571,19 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INSDATA__V57*/ meltfptr[56]; - /*_.ADD_NCTX_DATA__V90*/ meltfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V90*/ + meltfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L40*/ meltfnum[18] = + /*_#IS_NOT_A__L40*/ + meltfnum[18] = !melt_is_instance_of((melt_ptr_t)(/*_.SHOBIND__V33*/ meltfptr[32]), (melt_ptr_t)((/*!CLASS_HOOK_BINDING*/ meltfrout->tabval[26])));; MELT_LOCATION("warmelt-normal.melt:5474:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L40*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L40*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45216,7 +49593,8 @@ meltlab_endgetargs: /*_.DISCRIM__V92*/ meltfptr[91] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SHOBIND__V33*/ meltfptr[32]))));; MELT_LOCATION("warmelt-normal.melt:5477:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V92*/ meltfptr[91]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ @@ -45227,7 +49605,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DISCRIM__V92*/ meltfptr[91]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V93*/ meltfptr[92] = slot; + /*_.NAMED_NAME__V93*/ + meltfptr[92] = slot; }; ; } @@ -45252,13 +49631,15 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBNAME__V26*/ meltfptr[24]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V93*/ meltfptr[92]; - /*_.ERROR_AT__V94*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V94*/ + meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5478:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-normal.melt:5478:/ locexp"); @@ -45273,25 +49654,33 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-normal.melt:5474:/ quasiblock"); - /*_.PROGN___V96*/ meltfptr[95] = /*_.RETURN___V95*/ meltfptr[94];; + /*_.PROGN___V96*/ + meltfptr[95] = /*_.RETURN___V95*/ meltfptr[94];; /*^compute*/ - /*_._IF___V91*/ meltfptr[90] = /*_.PROGN___V96*/ meltfptr[95];; + /*_._IF___V91*/ + meltfptr[90] = /*_.PROGN___V96*/ meltfptr[95];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5474:/ clear"); - /*clear*/ /*_.DISCRIM__V92*/ meltfptr[91] = 0 ; + /*clear*/ /*_.DISCRIM__V92*/ + meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V93*/ meltfptr[92] = 0 ; + /*clear*/ /*_.NAMED_NAME__V93*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V94*/ meltfptr[93] = 0 ; + /*clear*/ /*_.ERROR_AT__V94*/ + meltfptr[93] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V95*/ meltfptr[94] = 0 ; + /*clear*/ /*_.RETURN___V95*/ + meltfptr[94] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V96*/ meltfptr[95] = 0 ; + /*clear*/ /*_.PROGN___V96*/ + meltfptr[95] = 0 ; } ; } @@ -45321,7 +49710,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L41*/ meltfnum[19] = + /*_#MELT_NEED_DBG__L41*/ + meltfnum[19] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -45330,7 +49720,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5480:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L41*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L41*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45363,16 +49754,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defhook namstrdata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V51*/ meltfptr[50]; - /*_.MELT_DEBUG_FUN__V98*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V98*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V97*/ meltfptr[91] = /*_.MELT_DEBUG_FUN__V98*/ meltfptr[92];; + /*_._IF___V97*/ + meltfptr[91] = /*_.MELT_DEBUG_FUN__V98*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5480:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L42*/ meltfnum[28] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L42*/ + meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V98*/ meltfptr[92] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V98*/ + meltfptr[92] = 0 ; } ; } @@ -45385,7 +49780,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5480:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -45394,9 +49790,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L41*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L41*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V97*/ meltfptr[91] = 0 ; + /*clear*/ /*_._IF___V97*/ + meltfptr[91] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -45426,10 +49824,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V51*/ meltfptr[50]; - /*_.ADD_NCTX_DATA__V99*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V99*/ + meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L43*/ meltfnum[28] = + /*_#GET_INT__L43*/ + meltfnum[28] = (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ meltfrout->tabval[27]))));; { @@ -45455,7 +49855,8 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_FORMALS__V100*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[28])), (melt_ptr_t)(/*_.SINFORMALS__V27*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_FORMALS__V100*/ + meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[28])), (melt_ptr_t)(/*_.SINFORMALS__V27*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5485:/ quasiblock"); @@ -45478,7 +49879,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V101*/ meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[14])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[16])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V101*/ + meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[14])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[16])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5485:/ quasiblock"); @@ -45489,7 +49891,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[29])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V103*/ meltfptr[91] = + /*_.INST__V103*/ + meltfptr[91] = newobj; }; ; @@ -45517,7 +49920,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V103*/ meltfptr[91], "newly made instance"); ; - /*_.NINTUPDATA__V102*/ meltfptr[92] = /*_.INST__V103*/ meltfptr[91];; + /*_.NINTUPDATA__V102*/ + meltfptr[92] = /*_.INST__V103*/ meltfptr[91];; MELT_CHECK_SIGNAL(); ; @@ -45528,10 +49932,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NINTUPDATA__V102*/ meltfptr[92]; - /*_.ADD_NCTX_DATA__V104*/ meltfptr[103] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V104*/ + meltfptr[103] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L44*/ meltfnum[19] = + /*_#GET_INT__L44*/ + meltfnum[19] = (melt_get_int((melt_ptr_t)((/*!HOOKDESC_IN_FORMALS*/ meltfrout->tabval[30]))));; { @@ -45559,7 +49965,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L45*/ meltfnum[44] = + /*_#MELT_NEED_DBG__L45*/ + meltfnum[44] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -45568,7 +49975,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5493:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L45*/ meltfnum[44]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L45*/ meltfnum[44]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45601,16 +50009,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defhook nintupdata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NINTUPDATA__V102*/ meltfptr[92]; - /*_.MELT_DEBUG_FUN__V106*/ 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__V106*/ + 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___V105*/ meltfptr[104] = /*_.MELT_DEBUG_FUN__V106*/ meltfptr[105];; + /*_._IF___V105*/ + meltfptr[104] = /*_.MELT_DEBUG_FUN__V106*/ meltfptr[105];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5493:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L46*/ meltfnum[45] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L46*/ + meltfnum[45] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V106*/ meltfptr[105] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V106*/ + meltfptr[105] = 0 ; } ; } @@ -45623,7 +50035,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5493:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -45632,9 +50045,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L45*/ meltfnum[44] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L45*/ + meltfnum[44] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V105*/ meltfptr[104] = 0 ; + /*clear*/ /*_._IF___V105*/ + meltfptr[104] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -45656,13 +50071,17 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:5485:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V101*/ meltfptr[95] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V101*/ + meltfptr[95] = 0 ; /*^clear*/ - /*clear*/ /*_.NINTUPDATA__V102*/ meltfptr[92] = 0 ; + /*clear*/ /*_.NINTUPDATA__V102*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V104*/ meltfptr[103] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V104*/ + meltfptr[103] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L44*/ meltfnum[19] = 0 ; + /*clear*/ /*_#GET_INT__L44*/ + meltfnum[19] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -45681,7 +50100,8 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.FILL_NORMAL_FORMALS__V107*/ meltfptr[105] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[28])), (melt_ptr_t)(/*_.SOUTFORMALS__V28*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FILL_NORMAL_FORMALS__V107*/ + meltfptr[105] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ meltfrout->tabval[28])), (melt_ptr_t)(/*_.SOUTFORMALS__V28*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5496:/ quasiblock"); @@ -45704,7 +50124,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V108*/ meltfptr[104] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[14])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[16])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V108*/ + meltfptr[104] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[14])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[16])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5496:/ quasiblock"); @@ -45715,7 +50136,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ meltfrout->tabval[29])), (6), "CLASS_NREP_DATATUPLE"); - /*_.INST__V110*/ meltfptr[92] = + /*_.INST__V110*/ + meltfptr[92] = newobj; }; ; @@ -45743,7 +50165,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V110*/ meltfptr[92], "newly made instance"); ; - /*_.NOUTUPDATA__V109*/ meltfptr[95] = /*_.INST__V110*/ meltfptr[92];; + /*_.NOUTUPDATA__V109*/ + meltfptr[95] = /*_.INST__V110*/ meltfptr[92];; MELT_CHECK_SIGNAL(); ; @@ -45754,10 +50177,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NOUTUPDATA__V109*/ meltfptr[95]; - /*_.ADD_NCTX_DATA__V111*/ meltfptr[103] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD_NCTX_DATA__V111*/ + meltfptr[103] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#GET_INT__L47*/ meltfnum[45] = + /*_#GET_INT__L47*/ + meltfnum[45] = (melt_get_int((melt_ptr_t)((/*!HOOKDESC_OUT_FORMALS*/ meltfrout->tabval[31]))));; { @@ -45785,7 +50210,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L48*/ meltfnum[44] = + /*_#MELT_NEED_DBG__L48*/ + meltfnum[44] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -45794,7 +50220,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5504:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L48*/ meltfnum[44]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L48*/ meltfnum[44]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45827,16 +50254,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defhook noutupdata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NOUTUPDATA__V109*/ meltfptr[95]; - /*_.MELT_DEBUG_FUN__V113*/ meltfptr[112] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V113*/ + meltfptr[112] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V112*/ meltfptr[111] = /*_.MELT_DEBUG_FUN__V113*/ meltfptr[112];; + /*_._IF___V112*/ + meltfptr[111] = /*_.MELT_DEBUG_FUN__V113*/ meltfptr[112];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5504:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L49*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L49*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V113*/ meltfptr[112] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V113*/ + meltfptr[112] = 0 ; } ; } @@ -45849,7 +50280,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5504:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -45858,9 +50290,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L48*/ meltfnum[44] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L48*/ + meltfnum[44] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V112*/ meltfptr[111] = 0 ; + /*clear*/ /*_._IF___V112*/ + meltfptr[111] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -45882,14 +50316,19 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:5496:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V108*/ meltfptr[104] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V108*/ + meltfptr[104] = 0 ; /*^clear*/ - /*clear*/ /*_.NOUTUPDATA__V109*/ meltfptr[95] = 0 ; + /*clear*/ /*_.NOUTUPDATA__V109*/ + meltfptr[95] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V111*/ meltfptr[103] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V111*/ + meltfptr[103] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L47*/ meltfnum[45] = 0 ; - /*_#GET_INT__L50*/ meltfnum[19] = + /*clear*/ /*_#GET_INT__L47*/ + meltfnum[45] = 0 ; + /*_#GET_INT__L50*/ + meltfnum[19] = (melt_get_int((melt_ptr_t)((/*!HOOKDESC_CTYPE*/ meltfrout->tabval[32]))));; MELT_CHECK_SIGNAL(); @@ -45905,7 +50344,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "hook ctype"; - /*_.NORMAL_PREDEF__V114*/ meltfptr[112] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SCTYPE__V29*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.NORMAL_PREDEF__V114*/ + meltfptr[112] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SCTYPE__V29*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -45934,7 +50374,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L51*/ meltfnum[44] = + /*_#MELT_NEED_DBG__L51*/ + meltfnum[44] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -45943,7 +50384,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5508:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L51*/ meltfnum[44]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L51*/ meltfnum[44]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45976,16 +50418,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defhook slotup="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLOTUP__V54*/ meltfptr[53]; - /*_.MELT_DEBUG_FUN__V116*/ meltfptr[104] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V116*/ + meltfptr[104] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V115*/ meltfptr[111] = /*_.MELT_DEBUG_FUN__V116*/ meltfptr[104];; + /*_._IF___V115*/ + meltfptr[111] = /*_.MELT_DEBUG_FUN__V116*/ meltfptr[104];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5508:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L52*/ meltfnum[45] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L52*/ + meltfnum[45] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V116*/ meltfptr[104] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V116*/ + meltfptr[104] = 0 ; } ; } @@ -45998,7 +50444,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5508:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -46007,9 +50454,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L51*/ meltfnum[44] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L51*/ + meltfnum[44] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V115*/ meltfptr[111] = 0 ; + /*clear*/ /*_._IF___V115*/ + meltfptr[111] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -46049,7 +50498,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L53*/ meltfnum[45] = + /*_#MELT_NEED_DBG__L53*/ + meltfnum[45] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -46058,7 +50508,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5510:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L53*/ meltfnum[45]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L53*/ meltfnum[45]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -46095,16 +50546,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n .. nproc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NPROC__V40*/ meltfptr[39]; - /*_.MELT_DEBUG_FUN__V118*/ 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V118*/ + 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V117*/ meltfptr[95] = /*_.MELT_DEBUG_FUN__V118*/ meltfptr[103];; + /*_._IF___V117*/ + meltfptr[95] = /*_.MELT_DEBUG_FUN__V118*/ meltfptr[103];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5510:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L54*/ meltfnum[44] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L54*/ + meltfnum[44] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V118*/ meltfptr[103] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V118*/ + meltfptr[103] = 0 ; } ; } @@ -46117,7 +50572,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5510:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -46126,9 +50582,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L53*/ meltfnum[45] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L53*/ + meltfnum[45] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V117*/ meltfptr[95] = 0 ; + /*clear*/ /*_._IF___V117*/ + meltfptr[95] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -46170,10 +50628,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L56*/ meltfnum[45] = + /*_#IS_A__L56*/ + meltfnum[45] = melt_is_instance_of((melt_ptr_t)(/*_.FBI__V119*/ meltfptr[104]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[33])));; MELT_LOCATION("warmelt-normal.melt:5514:/ cond"); - /*cond*/ if (/*_#IS_A__L56*/ meltfnum[45]) /*then*/ + /*cond*/ + if (/*_#IS_A__L56*/ meltfnum[45]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V121*/ meltfptr[103] = (/*nil*/NULL);; @@ -46202,25 +50662,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5514; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FBI__V119*/ meltfptr[104]; - /*_.MELT_ASSERT_FAILURE_FUN__V122*/ meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V122*/ + meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V121*/ meltfptr[103] = /*_.MELT_ASSERT_FAILURE_FUN__V122*/ meltfptr[95];; + /*_._IFELSE___V121*/ + meltfptr[103] = /*_.MELT_ASSERT_FAILURE_FUN__V122*/ meltfptr[95];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5514:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V122*/ meltfptr[95] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V122*/ + meltfptr[95] = 0 ; } ; } ; - /*_.IFCPP___V120*/ meltfptr[111] = /*_._IFELSE___V121*/ meltfptr[103];; + /*_.IFCPP___V120*/ + meltfptr[111] = /*_._IFELSE___V121*/ meltfptr[103];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5514:/ clear"); - /*clear*/ /*_#IS_A__L56*/ meltfnum[45] = 0 ; + /*clear*/ /*_#IS_A__L56*/ + meltfnum[45] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V121*/ meltfptr[103] = 0 ; + /*clear*/ /*_._IFELSE___V121*/ + meltfptr[103] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -46238,7 +50704,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FBI__V119*/ meltfptr[104]; - /*_.PUT_ENV__V123*/ meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[34])), (melt_ptr_t)(/*_.NEWENV__V34*/ meltfptr[33]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V123*/ + meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[34])), (melt_ptr_t)(/*_.NEWENV__V34*/ meltfptr[33]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#IX__L55*/ meltfnum[44]<0) break; @@ -46247,13 +50714,17 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:5511:/ clear"); - /*clear*/ /*_.FBI__V119*/ meltfptr[104] = 0 ; + /*clear*/ /*_.FBI__V119*/ + meltfptr[104] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L55*/ meltfnum[44] = 0 ; + /*clear*/ /*_#IX__L55*/ + meltfnum[44] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V120*/ meltfptr[111] = 0 ; + /*clear*/ /*_.IFCPP___V120*/ + meltfptr[111] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V123*/ meltfptr[95] = 0 ; + /*clear*/ /*_.PUT_ENV__V123*/ + meltfptr[95] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -46278,10 +50749,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L58*/ meltfnum[57] = + /*_#IS_A__L58*/ + meltfnum[57] = melt_is_instance_of((melt_ptr_t)(/*_.FBO__V124*/ meltfptr[103]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[33])));; MELT_LOCATION("warmelt-normal.melt:5519:/ cond"); - /*cond*/ if (/*_#IS_A__L58*/ meltfnum[57]) /*then*/ + /*cond*/ + if (/*_#IS_A__L58*/ meltfnum[57]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V126*/ meltfptr[125] = (/*nil*/NULL);; @@ -46310,25 +50783,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5519; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FBO__V124*/ meltfptr[103]; - /*_.MELT_ASSERT_FAILURE_FUN__V127*/ meltfptr[126] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V127*/ + meltfptr[126] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V126*/ meltfptr[125] = /*_.MELT_ASSERT_FAILURE_FUN__V127*/ meltfptr[126];; + /*_._IFELSE___V126*/ + meltfptr[125] = /*_.MELT_ASSERT_FAILURE_FUN__V127*/ meltfptr[126];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5519:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V127*/ meltfptr[126] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V127*/ + meltfptr[126] = 0 ; } ; } ; - /*_.IFCPP___V125*/ meltfptr[124] = /*_._IFELSE___V126*/ meltfptr[125];; + /*_.IFCPP___V125*/ + meltfptr[124] = /*_._IFELSE___V126*/ meltfptr[125];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5519:/ clear"); - /*clear*/ /*_#IS_A__L58*/ meltfnum[57] = 0 ; + /*clear*/ /*_#IS_A__L58*/ + meltfnum[57] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V126*/ meltfptr[125] = 0 ; + /*clear*/ /*_._IFELSE___V126*/ + meltfptr[125] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -46346,7 +50825,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FBO__V124*/ meltfptr[103]; - /*_.PUT_ENV__V128*/ meltfptr[126] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[34])), (melt_ptr_t)(/*_.NEWENV__V34*/ meltfptr[33]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V128*/ + meltfptr[126] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[34])), (melt_ptr_t)(/*_.NEWENV__V34*/ meltfptr[33]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#IX__L57*/ meltfnum[45]<0) break; @@ -46355,20 +50835,25 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:5516:/ clear"); - /*clear*/ /*_.FBO__V124*/ meltfptr[103] = 0 ; + /*clear*/ /*_.FBO__V124*/ + meltfptr[103] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L57*/ meltfnum[45] = 0 ; + /*clear*/ /*_#IX__L57*/ + meltfnum[45] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V125*/ meltfptr[124] = 0 ; + /*clear*/ /*_.IFCPP___V125*/ + meltfptr[124] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V128*/ meltfptr[126] = 0 ; + /*clear*/ /*_.PUT_ENV__V128*/ + meltfptr[126] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5521:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NPROC__V40*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[10]))) ) /*then*/ @@ -46404,7 +50889,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5524:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NEWENV__V34*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3]))) ) /*then*/ @@ -46451,7 +50937,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L59*/ meltfnum[57] = + /*_#MELT_NEED_DBG__L59*/ + meltfnum[57] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -46460,7 +50947,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5525:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L59*/ meltfnum[57]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L59*/ meltfnum[57]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -46493,16 +50981,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defhook updated newenv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V34*/ meltfptr[33]; - /*_.MELT_DEBUG_FUN__V130*/ meltfptr[129] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V130*/ + meltfptr[129] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V129*/ meltfptr[125] = /*_.MELT_DEBUG_FUN__V130*/ meltfptr[129];; + /*_._IF___V129*/ + meltfptr[125] = /*_.MELT_DEBUG_FUN__V130*/ meltfptr[129];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5525:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L60*/ meltfnum[59] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L60*/ + meltfnum[59] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V130*/ meltfptr[129] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V130*/ + meltfptr[129] = 0 ; } ; } @@ -46515,7 +51007,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5525:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -46524,9 +51017,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L59*/ meltfnum[57] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L59*/ + meltfnum[57] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V129*/ meltfptr[125] = 0 ; + /*clear*/ /*_._IF___V129*/ + meltfptr[125] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -46567,7 +51062,8 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V133*/ meltfptr[132]; /*^multiapply.appl*/ - /*_.NBODY__V132*/ meltfptr[125] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[35])), (melt_ptr_t)(/*_.SBODY__V32*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NBODY__V132*/ + meltfptr[125] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[35])), (melt_ptr_t)(/*_.SBODY__V32*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -46593,7 +51089,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L61*/ meltfnum[59] = + /*_#MELT_NEED_DBG__L61*/ + meltfnum[59] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -46602,7 +51099,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5530:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L61*/ meltfnum[59]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L61*/ meltfnum[59]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -46639,16 +51137,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. nbindings="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V133*/ meltfptr[132]; - /*_.MELT_DEBUG_FUN__V135*/ meltfptr[134] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V135*/ + meltfptr[134] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V134*/ meltfptr[133] = /*_.MELT_DEBUG_FUN__V135*/ meltfptr[134];; + /*_._IF___V134*/ + meltfptr[133] = /*_.MELT_DEBUG_FUN__V135*/ meltfptr[134];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5530:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L62*/ meltfnum[57] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L62*/ + meltfnum[57] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V135*/ meltfptr[134] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V135*/ + meltfptr[134] = 0 ; } ; } @@ -46661,7 +51163,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5530:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -46670,9 +51173,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L61*/ meltfnum[59] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L61*/ + meltfnum[59] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V134*/ meltfptr[133] = 0 ; + /*clear*/ /*_._IF___V134*/ + meltfptr[133] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -46696,7 +51201,8 @@ meltlab_endgetargs: /*^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*/ @@ -46707,7 +51213,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, 2, "NCTX_PROCLIST"); - /*_.NCPLIS__V136*/ meltfptr[134] = slot; + /*_.NCPLIS__V136*/ + meltfptr[134] = slot; }; ; } @@ -46743,7 +51250,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L63*/ meltfnum[57] = + /*_#MELT_NEED_DBG__L63*/ + meltfnum[57] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -46752,7 +51260,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5535:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L63*/ meltfnum[57]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L63*/ meltfnum[57]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -46793,16 +51302,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. ncplis="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NCPLIS__V136*/ meltfptr[134]; - /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V138*/ + meltfptr[137] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V137*/ meltfptr[133] = /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137];; + /*_._IF___V137*/ + meltfptr[133] = /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5535:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L64*/ meltfnum[59] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L64*/ + meltfnum[59] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V138*/ + meltfptr[137] = 0 ; } ; } @@ -46815,7 +51328,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5535:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -46824,9 +51338,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L63*/ meltfnum[57] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L63*/ + meltfnum[57] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V137*/ meltfptr[133] = 0 ; + /*clear*/ /*_._IF___V137*/ + meltfptr[133] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -46848,7 +51364,8 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-normal.melt:5532:/ clear"); - /*clear*/ /*_.NCPLIS__V136*/ meltfptr[134] = 0 ; + /*clear*/ /*_.NCPLIS__V136*/ + meltfptr[134] = 0 ; { MELT_LOCATION("warmelt-normal.melt:5537:/ locexp"); @@ -46882,7 +51399,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBI__V139*/ meltfptr[137]; - /*_.PUT_ENV__V140*/ meltfptr[133] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[34])), (melt_ptr_t)(/*_.NEWENV__V34*/ meltfptr[33]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V140*/ + meltfptr[133] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[34])), (melt_ptr_t)(/*_.NEWENV__V34*/ meltfptr[33]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#BIX__L65*/ meltfnum[59]<0) break; @@ -46891,11 +51409,14 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:5539:/ clear"); - /*clear*/ /*_.NBI__V139*/ meltfptr[137] = 0 ; + /*clear*/ /*_.NBI__V139*/ + meltfptr[137] = 0 ; /*^clear*/ - /*clear*/ /*_#BIX__L65*/ meltfnum[59] = 0 ; + /*clear*/ /*_#BIX__L65*/ + meltfnum[59] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V140*/ meltfptr[133] = 0 ; + /*clear*/ /*_.PUT_ENV__V140*/ + meltfptr[133] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -46918,7 +51439,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L66*/ meltfnum[57] = + /*_#MELT_NEED_DBG__L66*/ + meltfnum[57] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -46927,7 +51449,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5543:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L66*/ meltfnum[57]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L66*/ meltfnum[57]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -46960,16 +51483,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defhook updated newenv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V34*/ meltfptr[33]; - /*_.MELT_DEBUG_FUN__V142*/ meltfptr[141] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V142*/ + meltfptr[141] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V141*/ meltfptr[134] = /*_.MELT_DEBUG_FUN__V142*/ meltfptr[141];; + /*_._IF___V141*/ + meltfptr[134] = /*_.MELT_DEBUG_FUN__V142*/ meltfptr[141];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5543:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L67*/ meltfnum[66] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L67*/ + meltfnum[66] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V142*/ meltfptr[141] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V142*/ + meltfptr[141] = 0 ; } ; } @@ -46982,7 +51509,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5543:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -46991,9 +51519,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L66*/ meltfnum[57] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L66*/ + meltfnum[57] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V141*/ meltfptr[134] = 0 ; + /*clear*/ /*_._IF___V141*/ + meltfptr[134] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47017,7 +51547,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5545:/ 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*/ @@ -47069,7 +51600,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L68*/ meltfnum[66] = + /*_#MELT_NEED_DBG__L68*/ + meltfnum[66] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -47078,7 +51610,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5549:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L68*/ meltfnum[66]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L68*/ meltfnum[66]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -47111,16 +51644,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defhook restored ncx="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V144*/ meltfptr[134] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V144*/ + meltfptr[134] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V143*/ meltfptr[141] = /*_.MELT_DEBUG_FUN__V144*/ meltfptr[134];; + /*_._IF___V143*/ + meltfptr[141] = /*_.MELT_DEBUG_FUN__V144*/ meltfptr[134];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5549:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L69*/ meltfnum[57] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L69*/ + meltfnum[57] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V144*/ meltfptr[134] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V144*/ + meltfptr[134] = 0 ; } ; } @@ -47133,7 +51670,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5549:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -47142,9 +51680,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L68*/ meltfnum[66] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L68*/ + meltfnum[66] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V143*/ meltfptr[141] = 0 ; + /*clear*/ /*_._IF___V143*/ + meltfptr[141] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47184,7 +51724,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L70*/ meltfnum[57] = + /*_#MELT_NEED_DBG__L70*/ + meltfnum[57] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -47193,7 +51734,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5550:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L70*/ meltfnum[57]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L70*/ meltfnum[57]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -47230,16 +51772,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. constlist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CONSTLIST__V38*/ meltfptr[37]; - /*_.MELT_DEBUG_FUN__V146*/ meltfptr[141] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V146*/ + meltfptr[141] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V145*/ meltfptr[134] = /*_.MELT_DEBUG_FUN__V146*/ meltfptr[141];; + /*_._IF___V145*/ + meltfptr[134] = /*_.MELT_DEBUG_FUN__V146*/ meltfptr[141];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5550:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L71*/ meltfnum[66] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L71*/ + meltfnum[66] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V146*/ meltfptr[141] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V146*/ + meltfptr[141] = 0 ; } ; } @@ -47252,7 +51798,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5550:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -47261,9 +51808,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L70*/ meltfnum[57] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L70*/ + meltfnum[57] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V145*/ meltfptr[134] = 0 ; + /*clear*/ /*_._IF___V145*/ + meltfptr[134] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47293,10 +51842,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L72*/ meltfnum[66] = + /*_#IS_LIST__L72*/ + meltfnum[66] = (melt_magic_discr((melt_ptr_t)(/*_.CLOSBINDLIST__V37*/ meltfptr[36])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:5551:/ cond"); - /*cond*/ if (/*_#IS_LIST__L72*/ meltfnum[66]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L72*/ meltfnum[66]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V148*/ meltfptr[134] = (/*nil*/NULL);; @@ -47325,25 +51876,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5551; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CLOSBINDLIST__V37*/ meltfptr[36]; - /*_.MELT_ASSERT_FAILURE_FUN__V149*/ meltfptr[148] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V149*/ + meltfptr[148] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V148*/ meltfptr[134] = /*_.MELT_ASSERT_FAILURE_FUN__V149*/ meltfptr[148];; + /*_._IFELSE___V148*/ + meltfptr[134] = /*_.MELT_ASSERT_FAILURE_FUN__V149*/ meltfptr[148];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5551:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V149*/ meltfptr[148] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V149*/ + meltfptr[148] = 0 ; } ; } ; - /*_.IFCPP___V147*/ meltfptr[141] = /*_._IFELSE___V148*/ meltfptr[134];; + /*_.IFCPP___V147*/ + meltfptr[141] = /*_._IFELSE___V148*/ meltfptr[134];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5551:/ clear"); - /*clear*/ /*_#IS_LIST__L72*/ meltfnum[66] = 0 ; + /*clear*/ /*_#IS_LIST__L72*/ + meltfnum[66] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V148*/ meltfptr[134] = 0 ; + /*clear*/ /*_._IFELSE___V148*/ + meltfptr[134] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47361,10 +51918,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L73*/ meltfnum[57] = + /*_#IS_LIST__L73*/ + meltfnum[57] = (melt_magic_discr((melt_ptr_t)(/*_.CONSTLIST__V38*/ meltfptr[37])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:5552:/ cond"); - /*cond*/ if (/*_#IS_LIST__L73*/ meltfnum[57]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L73*/ meltfnum[57]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V151*/ meltfptr[134] = (/*nil*/NULL);; @@ -47393,25 +51952,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5552; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CONSTLIST__V38*/ meltfptr[37]; - /*_.MELT_ASSERT_FAILURE_FUN__V152*/ meltfptr[151] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V152*/ + meltfptr[151] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V151*/ meltfptr[134] = /*_.MELT_ASSERT_FAILURE_FUN__V152*/ meltfptr[151];; + /*_._IFELSE___V151*/ + meltfptr[134] = /*_.MELT_ASSERT_FAILURE_FUN__V152*/ meltfptr[151];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5552:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V152*/ meltfptr[151] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V152*/ + meltfptr[151] = 0 ; } ; } ; - /*_.IFCPP___V150*/ meltfptr[148] = /*_._IFELSE___V151*/ meltfptr[134];; + /*_.IFCPP___V150*/ + meltfptr[148] = /*_._IFELSE___V151*/ meltfptr[134];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5552:/ clear"); - /*clear*/ /*_#IS_LIST__L73*/ meltfnum[57] = 0 ; + /*clear*/ /*_#IS_LIST__L73*/ + meltfnum[57] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V151*/ meltfptr[134] = 0 ; + /*clear*/ /*_._IFELSE___V151*/ + meltfptr[134] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47434,21 +51999,27 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V133*/ meltfptr[132]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.NSEQ__V154*/ meltfptr[134] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ meltfrout->tabval[36])), (melt_ptr_t)(/*_.NBODY__V132*/ meltfptr[125]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NSEQ__V154*/ + meltfptr[134] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ meltfrout->tabval[36])), (melt_ptr_t)(/*_.NBODY__V132*/ meltfptr[125]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#NBCLOSBIND__L74*/ meltfnum[66] = + /*_#NBCLOSBIND__L74*/ + meltfnum[66] = (melt_list_length((melt_ptr_t)(/*_.CLOSBINDLIST__V37*/ meltfptr[36])));; /*^compute*/ - /*_#NBCONST__L75*/ meltfnum[57] = + /*_#NBCONST__L75*/ + meltfnum[57] = (melt_list_length((melt_ptr_t)(/*_.CONSTLIST__V38*/ meltfptr[37])));; /*^compute*/ - /*_#IX__L76*/ meltfnum[75] = 0;; + /*_#IX__L76*/ + meltfnum[75] = 0;; /*^compute*/ - /*_#plI__L77*/ meltfnum[76] = + /*_#plI__L77*/ + meltfnum[76] = ((/*_#NBCLOSBIND__L74*/ meltfnum[66]) + (/*_#NBCONST__L75*/ meltfnum[57]));; /*^compute*/ - /*_.CLOSVTUP__V155*/ meltfptr[154] = + /*_.CLOSVTUP__V155*/ + meltfptr[154] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[16])), (/*_#plI__L77*/ meltfnum[76])));; #if MELT_HAVE_DEBUG @@ -47470,7 +52041,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L78*/ meltfnum[77] = + /*_#MELT_NEED_DBG__L78*/ + meltfnum[77] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -47479,7 +52051,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5560:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L78*/ meltfnum[77]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L78*/ meltfnum[77]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -47516,16 +52089,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " nbconst#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#NBCONST__L75*/ meltfnum[57]; - /*_.MELT_DEBUG_FUN__V157*/ meltfptr[156] = melt_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_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V157*/ + meltfptr[156] = melt_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_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V156*/ meltfptr[155] = /*_.MELT_DEBUG_FUN__V157*/ meltfptr[156];; + /*_._IF___V156*/ + meltfptr[155] = /*_.MELT_DEBUG_FUN__V157*/ meltfptr[156];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5560:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L79*/ meltfnum[78] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L79*/ + meltfnum[78] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V157*/ meltfptr[156] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V157*/ + meltfptr[156] = 0 ; } ; } @@ -47538,7 +52115,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5560:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -47547,9 +52125,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L78*/ meltfnum[77] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L78*/ + meltfnum[77] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V156*/ meltfptr[155] = 0 ; + /*clear*/ /*_._IF___V156*/ + meltfptr[155] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47599,7 +52179,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L80*/ meltfnum[78] = + /*_#MELT_NEED_DBG__L80*/ + meltfnum[78] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -47608,7 +52189,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5565:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L80*/ meltfnum[78]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L80*/ meltfnum[78]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -47645,16 +52227,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#IX__L76*/ meltfnum[75]; - /*_.MELT_DEBUG_FUN__V161*/ meltfptr[160] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V161*/ + meltfptr[160] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V160*/ meltfptr[159] = /*_.MELT_DEBUG_FUN__V161*/ meltfptr[160];; + /*_._IF___V160*/ + meltfptr[159] = /*_.MELT_DEBUG_FUN__V161*/ meltfptr[160];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5565:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L81*/ meltfnum[77] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L81*/ + meltfnum[77] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V161*/ meltfptr[160] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V161*/ + meltfptr[160] = 0 ; } ; } @@ -47667,7 +52253,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5565:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -47676,9 +52263,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L80*/ meltfnum[78] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L80*/ + meltfnum[78] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V160*/ meltfptr[159] = 0 ; + /*clear*/ /*_._IF___V160*/ + meltfptr[159] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47708,10 +52297,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L82*/ meltfnum[77] = + /*_#IS_A__L82*/ + meltfnum[77] = melt_is_instance_of((melt_ptr_t)(/*_.CURCLOBND__V159*/ meltfptr[155]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[37])));; MELT_LOCATION("warmelt-normal.melt:5566:/ cond"); - /*cond*/ if (/*_#IS_A__L82*/ meltfnum[77]) /*then*/ + /*cond*/ + if (/*_#IS_A__L82*/ meltfnum[77]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V163*/ meltfptr[159] = (/*nil*/NULL);; @@ -47740,25 +52331,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5566; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCLOBND__V159*/ meltfptr[155]; - /*_.MELT_ASSERT_FAILURE_FUN__V164*/ meltfptr[163] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V164*/ + meltfptr[163] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V163*/ meltfptr[159] = /*_.MELT_ASSERT_FAILURE_FUN__V164*/ meltfptr[163];; + /*_._IFELSE___V163*/ + meltfptr[159] = /*_.MELT_ASSERT_FAILURE_FUN__V164*/ meltfptr[163];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5566:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V164*/ meltfptr[163] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V164*/ + meltfptr[163] = 0 ; } ; } ; - /*_.IFCPP___V162*/ meltfptr[160] = /*_._IFELSE___V163*/ meltfptr[159];; + /*_.IFCPP___V162*/ + meltfptr[160] = /*_._IFELSE___V163*/ meltfptr[159];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5566:/ clear"); - /*clear*/ /*_#IS_A__L82*/ meltfnum[77] = 0 ; + /*clear*/ /*_#IS_A__L82*/ + meltfnum[77] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V163*/ meltfptr[159] = 0 ; + /*clear*/ /*_._IFELSE___V163*/ + meltfptr[159] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47774,7 +52371,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCLOBND__V159*/ meltfptr[155]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.SY__V165*/ meltfptr[163] = slot; + /*_.SY__V165*/ + meltfptr[163] = slot; }; ; @@ -47791,7 +52389,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5]; - /*_.NSY__V166*/ meltfptr[159] = meltgc_send((melt_ptr_t)(/*_.SY__V165*/ meltfptr[163]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[38])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NSY__V166*/ + meltfptr[159] = meltgc_send((melt_ptr_t)(/*_.SY__V165*/ meltfptr[163]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[38])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -47814,7 +52413,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L84*/ meltfnum[77] = + /*_#MELT_NEED_DBG__L84*/ + meltfnum[77] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -47823,7 +52423,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5571:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L84*/ meltfnum[77]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L84*/ meltfnum[77]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -47856,16 +52457,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normal_exp nsy="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NSY__V166*/ meltfptr[159]; - /*_.MELT_DEBUG_FUN__V168*/ meltfptr[167] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V168*/ + meltfptr[167] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V167*/ meltfptr[166] = /*_.MELT_DEBUG_FUN__V168*/ meltfptr[167];; + /*_._IF___V167*/ + meltfptr[166] = /*_.MELT_DEBUG_FUN__V168*/ meltfptr[167];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5571:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L85*/ meltfnum[84] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L85*/ + meltfnum[84] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V168*/ meltfptr[167] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V168*/ + meltfptr[167] = 0 ; } ; } @@ -47878,7 +52483,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5571:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -47887,9 +52493,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L84*/ meltfnum[77] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L84*/ + meltfnum[77] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V167*/ meltfptr[166] = 0 ; + /*clear*/ /*_._IF___V167*/ + meltfptr[166] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -47915,35 +52523,47 @@ meltlab_endgetargs: meltgc_multiple_put_nth((melt_ptr_t)(/*_.CLOSVTUP__V155*/ meltfptr[154]), (/*_#IX__L76*/ meltfnum[75]), (melt_ptr_t)(/*_.NSY__V166*/ meltfptr[159])); } ; - /*_#plI__L86*/ meltfnum[84] = + /*_#plI__L86*/ + meltfnum[84] = ((/*_#IX__L76*/ meltfnum[75]) + (1));; MELT_LOCATION("warmelt-normal.melt:5573:/ compute"); - /*_#IX__L76*/ meltfnum[75] = /*_#SETQ___L87*/ meltfnum[77] = /*_#plI__L86*/ meltfnum[84];; - /*_#LET___L83*/ meltfnum[78] = /*_#SETQ___L87*/ meltfnum[77];; + /*_#IX__L76*/ + meltfnum[75] = /*_#SETQ___L87*/ meltfnum[77] = /*_#plI__L86*/ meltfnum[84];; + /*_#LET___L83*/ + meltfnum[78] = /*_#SETQ___L87*/ meltfnum[77];; MELT_LOCATION("warmelt-normal.melt:5567:/ clear"); - /*clear*/ /*_.SY__V165*/ meltfptr[163] = 0 ; + /*clear*/ /*_.SY__V165*/ + meltfptr[163] = 0 ; /*^clear*/ - /*clear*/ /*_.NSY__V166*/ meltfptr[159] = 0 ; + /*clear*/ /*_.NSY__V166*/ + meltfptr[159] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L86*/ meltfnum[84] = 0 ; + /*clear*/ /*_#plI__L86*/ + meltfnum[84] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L87*/ meltfnum[77] = 0 ; + /*clear*/ /*_#SETQ___L87*/ + meltfnum[77] = 0 ; } /* end foreach_pair_component_in_list meltcit4__EACHLIST */ /*_.CURPAIR__V158*/ meltfptr[156] = NULL; - /*_.CURCLOBND__V159*/ meltfptr[155] = NULL; + /*_.CURCLOBND__V159*/ + meltfptr[155] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:5562:/ clear"); - /*clear*/ /*_.CURPAIR__V158*/ meltfptr[156] = 0 ; + /*clear*/ /*_.CURPAIR__V158*/ + meltfptr[156] = 0 ; /*^clear*/ - /*clear*/ /*_.CURCLOBND__V159*/ meltfptr[155] = 0 ; + /*clear*/ /*_.CURCLOBND__V159*/ + meltfptr[155] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V162*/ meltfptr[160] = 0 ; + /*clear*/ /*_.IFCPP___V162*/ + meltfptr[160] = 0 ; /*^clear*/ - /*clear*/ /*_#LET___L83*/ meltfnum[78] = 0 ; + /*clear*/ /*_#LET___L83*/ + meltfnum[78] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -47966,7 +52586,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L88*/ meltfnum[84] = + /*_#MELT_NEED_DBG__L88*/ + meltfnum[84] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -47975,7 +52596,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5575:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L88*/ meltfnum[84]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L88*/ meltfnum[84]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -48012,16 +52634,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " closvtup="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOSVTUP__V155*/ meltfptr[154]; - /*_.MELT_DEBUG_FUN__V170*/ meltfptr[166] = melt_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__V170*/ + meltfptr[166] = melt_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___V169*/ meltfptr[167] = /*_.MELT_DEBUG_FUN__V170*/ meltfptr[166];; + /*_._IF___V169*/ + meltfptr[167] = /*_.MELT_DEBUG_FUN__V170*/ meltfptr[166];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5575:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L89*/ meltfnum[77] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L89*/ + meltfnum[77] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V170*/ meltfptr[166] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V170*/ + meltfptr[166] = 0 ; } ; } @@ -48034,7 +52660,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5575:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -48043,9 +52670,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L88*/ meltfnum[84] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L88*/ + meltfnum[84] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V169*/ meltfptr[167] = 0 ; + /*clear*/ /*_._IF___V169*/ + meltfptr[167] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -48085,7 +52714,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L90*/ meltfnum[77] = + /*_#MELT_NEED_DBG__L90*/ + meltfnum[77] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -48094,7 +52724,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5577:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L90*/ meltfnum[77]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L90*/ meltfnum[77]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -48127,16 +52758,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defhook closing constlist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CONSTLIST__V38*/ meltfptr[37]; - /*_.MELT_DEBUG_FUN__V172*/ meltfptr[159] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V172*/ + meltfptr[159] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V171*/ meltfptr[163] = /*_.MELT_DEBUG_FUN__V172*/ meltfptr[159];; + /*_._IF___V171*/ + meltfptr[163] = /*_.MELT_DEBUG_FUN__V172*/ meltfptr[159];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5577:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L91*/ meltfnum[84] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L91*/ + meltfnum[84] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V172*/ meltfptr[159] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V172*/ + meltfptr[159] = 0 ; } ; } @@ -48149,7 +52784,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5577:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -48158,9 +52794,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L90*/ meltfnum[77] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L90*/ + meltfnum[77] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V171*/ meltfptr[163] = 0 ; + /*clear*/ /*_._IF___V171*/ + meltfptr[163] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -48210,7 +52848,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L92*/ meltfnum[84] = + /*_#MELT_NEED_DBG__L92*/ + meltfnum[84] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -48219,7 +52858,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5581:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L92*/ meltfnum[84]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L92*/ meltfnum[84]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -48256,16 +52896,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#IX__L76*/ meltfnum[75]; - /*_.MELT_DEBUG_FUN__V176*/ meltfptr[163] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V176*/ + meltfptr[163] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V175*/ meltfptr[159] = /*_.MELT_DEBUG_FUN__V176*/ meltfptr[163];; + /*_._IF___V175*/ + meltfptr[159] = /*_.MELT_DEBUG_FUN__V176*/ meltfptr[163];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5581:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L93*/ meltfnum[77] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L93*/ + meltfnum[77] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V176*/ meltfptr[163] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V176*/ + meltfptr[163] = 0 ; } ; } @@ -48278,7 +52922,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5581:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -48287,9 +52932,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L92*/ meltfnum[84] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L92*/ + meltfnum[84] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V175*/ meltfptr[159] = 0 ; + /*clear*/ /*_._IF___V175*/ + meltfptr[159] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -48319,10 +52966,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L94*/ meltfnum[77] = + /*_#IS_A__L94*/ + meltfnum[77] = melt_is_instance_of((melt_ptr_t)(/*_.CURCONST__V174*/ meltfptr[167]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[39])));; MELT_LOCATION("warmelt-normal.melt:5582:/ cond"); - /*cond*/ if (/*_#IS_A__L94*/ meltfnum[77]) /*then*/ + /*cond*/ + if (/*_#IS_A__L94*/ meltfnum[77]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V178*/ meltfptr[159] = (/*nil*/NULL);; @@ -48351,25 +53000,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5582; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCONST__V174*/ meltfptr[167]; - /*_.MELT_ASSERT_FAILURE_FUN__V179*/ meltfptr[178] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V179*/ + meltfptr[178] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V178*/ meltfptr[159] = /*_.MELT_ASSERT_FAILURE_FUN__V179*/ meltfptr[178];; + /*_._IFELSE___V178*/ + meltfptr[159] = /*_.MELT_ASSERT_FAILURE_FUN__V179*/ meltfptr[178];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5582:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V179*/ meltfptr[178] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V179*/ + meltfptr[178] = 0 ; } ; } ; - /*_.IFCPP___V177*/ meltfptr[163] = /*_._IFELSE___V178*/ meltfptr[159];; + /*_.IFCPP___V177*/ + meltfptr[163] = /*_._IFELSE___V178*/ meltfptr[159];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5582:/ clear"); - /*clear*/ /*_#IS_A__L94*/ meltfnum[77] = 0 ; + /*clear*/ /*_#IS_A__L94*/ + meltfnum[77] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V178*/ meltfptr[159] = 0 ; + /*clear*/ /*_._IFELSE___V178*/ + meltfptr[159] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -48383,27 +53038,35 @@ meltlab_endgetargs: meltgc_multiple_put_nth((melt_ptr_t)(/*_.CLOSVTUP__V155*/ meltfptr[154]), (/*_#IX__L76*/ meltfnum[75]), (melt_ptr_t)(/*_.CURCONST__V174*/ meltfptr[167])); } ; - /*_#plI__L95*/ meltfnum[84] = + /*_#plI__L95*/ + meltfnum[84] = ((/*_#IX__L76*/ meltfnum[75]) + (1));; MELT_LOCATION("warmelt-normal.melt:5584:/ compute"); - /*_#IX__L76*/ meltfnum[75] = /*_#SETQ___L96*/ meltfnum[77] = /*_#plI__L95*/ meltfnum[84];; + /*_#IX__L76*/ + meltfnum[75] = /*_#SETQ___L96*/ meltfnum[77] = /*_#plI__L95*/ meltfnum[84];; } /* end foreach_pair_component_in_list meltcit5__EACHLIST */ /*_.CURPAIR__V173*/ meltfptr[166] = NULL; - /*_.CURCONST__V174*/ meltfptr[167] = NULL; + /*_.CURCONST__V174*/ + meltfptr[167] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-normal.melt:5578:/ clear"); - /*clear*/ /*_.CURPAIR__V173*/ meltfptr[166] = 0 ; + /*clear*/ /*_.CURPAIR__V173*/ + meltfptr[166] = 0 ; /*^clear*/ - /*clear*/ /*_.CURCONST__V174*/ meltfptr[167] = 0 ; + /*clear*/ /*_.CURCONST__V174*/ + meltfptr[167] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V177*/ meltfptr[163] = 0 ; + /*clear*/ /*_.IFCPP___V177*/ + meltfptr[163] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L95*/ meltfnum[84] = 0 ; + /*clear*/ /*_#plI__L95*/ + meltfnum[84] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L96*/ meltfnum[77] = 0 ; + /*clear*/ /*_#SETQ___L96*/ + meltfnum[77] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -48426,7 +53089,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L97*/ meltfnum[96] = + /*_#MELT_NEED_DBG__L97*/ + meltfnum[96] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -48435,7 +53099,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5586:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L97*/ meltfnum[96]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L97*/ meltfnum[96]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -48472,16 +53137,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " closvtup="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOSVTUP__V155*/ meltfptr[154]; - /*_.MELT_DEBUG_FUN__V181*/ meltfptr[159] = melt_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__V181*/ + meltfptr[159] = melt_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___V180*/ meltfptr[178] = /*_.MELT_DEBUG_FUN__V181*/ meltfptr[159];; + /*_._IF___V180*/ + meltfptr[178] = /*_.MELT_DEBUG_FUN__V181*/ meltfptr[159];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5586:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L98*/ meltfnum[97] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L98*/ + meltfnum[97] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V181*/ meltfptr[159] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V181*/ + meltfptr[159] = 0 ; } ; } @@ -48494,7 +53163,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5586:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -48503,9 +53173,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L97*/ meltfnum[96] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L97*/ + meltfnum[96] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V180*/ meltfptr[178] = 0 ; + /*clear*/ /*_._IF___V180*/ + meltfptr[178] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -48535,13 +53207,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#plI__L99*/ meltfnum[97] = + /*_#plI__L99*/ + meltfnum[97] = ((/*_#NBCLOSBIND__L74*/ meltfnum[66]) + (/*_#NBCONST__L75*/ meltfnum[57]));; /*^compute*/ - /*_#eqeqI__L100*/ meltfnum[96] = + /*_#eqeqI__L100*/ + meltfnum[96] = ((/*_#IX__L76*/ meltfnum[75]) == (/*_#plI__L99*/ meltfnum[97]));; MELT_LOCATION("warmelt-normal.melt:5587:/ cond"); - /*cond*/ if (/*_#eqeqI__L100*/ meltfnum[96]) /*then*/ + /*cond*/ + if (/*_#eqeqI__L100*/ meltfnum[96]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V183*/ meltfptr[178] = (/*nil*/NULL);; @@ -48570,27 +53245,34 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5587; /*^apply.arg*/ argtab[3].meltbp_long = /*_#IX__L76*/ meltfnum[75]; - /*_.MELT_ASSERT_FAILURE_FUN__V184*/ meltfptr[183] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V184*/ + meltfptr[183] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V183*/ meltfptr[178] = /*_.MELT_ASSERT_FAILURE_FUN__V184*/ meltfptr[183];; + /*_._IFELSE___V183*/ + meltfptr[178] = /*_.MELT_ASSERT_FAILURE_FUN__V184*/ meltfptr[183];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5587:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V184*/ meltfptr[183] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V184*/ + meltfptr[183] = 0 ; } ; } ; - /*_.IFCPP___V182*/ meltfptr[159] = /*_._IFELSE___V183*/ meltfptr[178];; + /*_.IFCPP___V182*/ + meltfptr[159] = /*_._IFELSE___V183*/ meltfptr[178];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5587:/ clear"); - /*clear*/ /*_#plI__L99*/ meltfnum[97] = 0 ; + /*clear*/ /*_#plI__L99*/ + meltfnum[97] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeqI__L100*/ meltfnum[96] = 0 ; + /*clear*/ /*_#eqeqI__L100*/ + meltfnum[96] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V183*/ meltfptr[178] = 0 ; + /*clear*/ /*_._IFELSE___V183*/ + meltfptr[178] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -48618,7 +53300,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L101*/ meltfnum[97] = + /*_#MELT_NEED_DBG__L101*/ + meltfnum[97] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -48627,7 +53310,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5589:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L101*/ meltfnum[97]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L101*/ meltfnum[97]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -48664,16 +53348,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n ..final closvtup="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOSVTUP__V155*/ meltfptr[154]; - /*_.MELT_DEBUG_FUN__V186*/ 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__V186*/ + 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___V185*/ meltfptr[183] = /*_.MELT_DEBUG_FUN__V186*/ meltfptr[178];; + /*_._IF___V185*/ + meltfptr[183] = /*_.MELT_DEBUG_FUN__V186*/ meltfptr[178];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5589:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L102*/ meltfnum[96] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L102*/ + meltfnum[96] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V186*/ meltfptr[178] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V186*/ + meltfptr[178] = 0 ; } ; } @@ -48686,7 +53374,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5589:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -48695,9 +53384,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L101*/ meltfnum[97] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L101*/ + meltfnum[97] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V185*/ meltfptr[183] = 0 ; + /*clear*/ /*_._IF___V185*/ + meltfptr[183] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -48721,7 +53412,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5590:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NPROC__V40*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ meltfrout->tabval[40]))) ) /*then*/ @@ -48752,7 +53444,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5591:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDATAHOOK__V45*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_NREP_DATAHOOK*/ meltfrout->tabval[13]))) ) /*then*/ @@ -48783,7 +53476,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5592:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SHOBIND__V33*/ meltfptr[32]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ meltfrout->tabval[41]))) ) /*then*/ @@ -48830,7 +53524,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L103*/ meltfnum[96] = + /*_#MELT_NEED_DBG__L103*/ + meltfnum[96] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -48839,7 +53534,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5593:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L103*/ meltfnum[96]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L103*/ meltfnum[96]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -48872,16 +53568,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defhook final nproc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NPROC__V40*/ meltfptr[39]; - /*_.MELT_DEBUG_FUN__V188*/ meltfptr[183] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V188*/ + meltfptr[183] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V187*/ meltfptr[178] = /*_.MELT_DEBUG_FUN__V188*/ meltfptr[183];; + /*_._IF___V187*/ + meltfptr[178] = /*_.MELT_DEBUG_FUN__V188*/ meltfptr[183];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5593:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L104*/ meltfnum[97] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L104*/ + meltfnum[97] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V188*/ meltfptr[183] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V188*/ + meltfptr[183] = 0 ; } ; } @@ -48894,7 +53594,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5593:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -48903,9 +53604,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L103*/ meltfnum[96] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L103*/ + meltfnum[96] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V187*/ meltfptr[178] = 0 ; + /*clear*/ /*_._IF___V187*/ + meltfptr[178] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -48945,7 +53648,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L105*/ meltfnum[97] = + /*_#MELT_NEED_DBG__L105*/ + meltfnum[97] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -48954,7 +53658,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5594:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L105*/ meltfnum[97]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L105*/ meltfnum[97]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -48991,16 +53696,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. shobind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SHOBIND__V33*/ meltfptr[32]; - /*_.MELT_DEBUG_FUN__V190*/ 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__V190*/ + 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___V189*/ meltfptr[183] = /*_.MELT_DEBUG_FUN__V190*/ meltfptr[178];; + /*_._IF___V189*/ + meltfptr[183] = /*_.MELT_DEBUG_FUN__V190*/ meltfptr[178];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5594:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L106*/ meltfnum[96] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L106*/ + meltfnum[96] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V190*/ meltfptr[178] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V190*/ + meltfptr[178] = 0 ; } ; } @@ -49013,7 +53722,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5594:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -49022,9 +53732,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L105*/ meltfnum[97] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L105*/ + meltfnum[97] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V189*/ meltfptr[183] = 0 ; + /*clear*/ /*_._IF___V189*/ + meltfptr[183] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -49064,7 +53776,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L107*/ meltfnum[96] = + /*_#MELT_NEED_DBG__L107*/ + meltfnum[96] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -49073,7 +53786,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-normal.melt:5597:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L107*/ meltfnum[96]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L107*/ meltfnum[96]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -49106,16 +53820,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "normexp_defhook result nproc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NPROC__V40*/ meltfptr[39]; - /*_.MELT_DEBUG_FUN__V192*/ meltfptr[183] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V192*/ + meltfptr[183] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V191*/ meltfptr[178] = /*_.MELT_DEBUG_FUN__V192*/ meltfptr[183];; + /*_._IF___V191*/ + meltfptr[178] = /*_.MELT_DEBUG_FUN__V192*/ meltfptr[183];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5597:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L108*/ meltfnum[97] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L108*/ + meltfnum[97] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V192*/ meltfptr[183] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V192*/ + meltfptr[183] = 0 ; } ; } @@ -49128,7 +53846,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-normal.melt:5597:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -49137,9 +53856,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L107*/ meltfnum[96] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L107*/ + meltfnum[96] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V191*/ meltfptr[178] = 0 ; + /*clear*/ /*_._IF___V191*/ + meltfptr[178] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -49165,7 +53886,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-normal.melt:5598:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.NPROC__V40*/ meltfptr[39];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.NPROC__V40*/ meltfptr[39];; MELT_LOCATION("warmelt-normal.melt:5598:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -49173,160 +53895,233 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V153*/ meltfptr[151] = /*_.RETURN___V193*/ meltfptr[183];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V153*/ + meltfptr[151] = /*_.RETURN___V193*/ meltfptr[183];; MELT_LOCATION("warmelt-normal.melt:5554:/ clear"); - /*clear*/ /*_.NSEQ__V154*/ meltfptr[134] = 0 ; + /*clear*/ /*_.NSEQ__V154*/ + meltfptr[134] = 0 ; /*^clear*/ - /*clear*/ /*_#NBCLOSBIND__L74*/ meltfnum[66] = 0 ; + /*clear*/ /*_#NBCLOSBIND__L74*/ + meltfnum[66] = 0 ; /*^clear*/ - /*clear*/ /*_#NBCONST__L75*/ meltfnum[57] = 0 ; + /*clear*/ /*_#NBCONST__L75*/ + meltfnum[57] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L76*/ meltfnum[75] = 0 ; + /*clear*/ /*_#IX__L76*/ + meltfnum[75] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L77*/ meltfnum[76] = 0 ; + /*clear*/ /*_#plI__L77*/ + meltfnum[76] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOSVTUP__V155*/ meltfptr[154] = 0 ; + /*clear*/ /*_.CLOSVTUP__V155*/ + meltfptr[154] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V182*/ meltfptr[159] = 0 ; + /*clear*/ /*_.IFCPP___V182*/ + meltfptr[159] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V193*/ meltfptr[183] = 0 ; + /*clear*/ /*_.RETURN___V193*/ + meltfptr[183] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V131*/ meltfptr[129] = /*_.LET___V153*/ meltfptr[151];; + /*_.MULTI___V131*/ + meltfptr[129] = /*_.LET___V153*/ meltfptr[151];; MELT_LOCATION("warmelt-normal.melt:5527:/ clear"); - /*clear*/ /*_.IFCPP___V147*/ meltfptr[141] = 0 ; + /*clear*/ /*_.IFCPP___V147*/ + meltfptr[141] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V150*/ meltfptr[148] = 0 ; + /*clear*/ /*_.IFCPP___V150*/ + meltfptr[148] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V153*/ meltfptr[151] = 0 ; + /*clear*/ /*_.LET___V153*/ + meltfptr[151] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDINGS__V133*/ meltfptr[132] = 0 ; - /*_.LET___V17*/ meltfptr[15] = /*_.MULTI___V131*/ meltfptr[129];; + /*clear*/ /*_.NBINDINGS__V133*/ + meltfptr[132] = 0 ; + /*_.LET___V17*/ + meltfptr[15] = /*_.MULTI___V131*/ meltfptr[129];; MELT_LOCATION("warmelt-normal.melt:5375:/ clear"); - /*clear*/ /*_.SLOC__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V18*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.SYMB__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.SYMB__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V22*/ meltfptr[20] = 0 ; + /*clear*/ /*_.LET___V22*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.SYMBNAME__V26*/ meltfptr[24] = 0 ; + /*clear*/ /*_.SYMBNAME__V26*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.SINFORMALS__V27*/ meltfptr[23] = 0 ; + /*clear*/ /*_.SINFORMALS__V27*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.SOUTFORMALS__V28*/ meltfptr[19] = 0 ; + /*clear*/ /*_.SOUTFORMALS__V28*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.SCTYPE__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.SCTYPE__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.SPREDEF__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.SPREDEF__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.SMODVAR__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.SMODVAR__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.SBODY__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.SBODY__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.SHOBIND__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.SHOBIND__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWENV__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.NEWENV__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.OLDPROC__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.OLDPROC__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.OLDSYMBCACHE__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.OLDSYMBCACHE__V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOSBINDLIST__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.CLOSBINDLIST__V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.CONSTLIST__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.CONSTLIST__V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_MAPOBJECT__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MAKE_MAPOBJECT__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.NPROC__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.NPROC__V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.DESCRHOOK__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.DESCRHOOK__V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V44*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.NDATAHOOK__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.NDATAHOOK__V45*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#plI__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_#stI__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#stI__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#plI__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.FORMSYMBMAP__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.FORMSYMBMAP__V47*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.FORMINTUPLE__V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.FORMINTUPLE__V48*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.FORMOUTUPLE__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.FORMOUTUPLE__V49*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMSTRDATA__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.NAMSTRDATA__V51*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.CLASS_FIELDS__V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_.CLASS_FIELDS__V53*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.SLOTUP__V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.SLOTUP__V54*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_#OBJ_HASH__L18*/ meltfnum[17] = 0 ; + /*clear*/ /*_#OBJ_HASH__L18*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.INSDATA__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.INSDATA__V57*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V74*/ meltfptr[70] = 0 ; + /*clear*/ /*_.IFCPP___V74*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V77*/ meltfptr[59] = 0 ; + /*clear*/ /*_.IFCPP___V77*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V80*/ meltfptr[69] = 0 ; + /*clear*/ /*_.IFCPP___V80*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V83*/ meltfptr[66] = 0 ; + /*clear*/ /*_.IFCPP___V83*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_MAPOBJECT__V88*/ meltfptr[58] = 0 ; + /*clear*/ /*_.MAKE_MAPOBJECT__V88*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V89*/ meltfptr[84] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V89*/ + meltfptr[84] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V90*/ meltfptr[89] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V90*/ + meltfptr[89] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L40*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IS_NOT_A__L40*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V91*/ meltfptr[90] = 0 ; + /*clear*/ /*_._IF___V91*/ + meltfptr[90] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD_NCTX_DATA__V99*/ meltfptr[93] = 0 ; + /*clear*/ /*_.ADD_NCTX_DATA__V99*/ + meltfptr[93] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L43*/ meltfnum[28] = 0 ; + /*clear*/ /*_#GET_INT__L43*/ + meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_FORMALS__V100*/ meltfptr[94] = 0 ; + /*clear*/ /*_.FILL_NORMAL_FORMALS__V100*/ + meltfptr[94] = 0 ; /*^clear*/ - /*clear*/ /*_.FILL_NORMAL_FORMALS__V107*/ meltfptr[105] = 0 ; + /*clear*/ /*_.FILL_NORMAL_FORMALS__V107*/ + meltfptr[105] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L50*/ meltfnum[19] = 0 ; + /*clear*/ /*_#GET_INT__L50*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMAL_PREDEF__V114*/ meltfptr[112] = 0 ; + /*clear*/ /*_.NORMAL_PREDEF__V114*/ + meltfptr[112] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V131*/ meltfptr[129] = 0 ; + /*clear*/ /*_.MULTI___V131*/ + meltfptr[129] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-normal.melt:5370:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:5370:/ locexp"); @@ -49341,17 +54136,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 ; } ; |