diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-outobj+03.cc')
-rw-r--r-- | gcc/melt/generated/warmelt-outobj+03.cc | 6220 |
1 files changed, 2080 insertions, 4140 deletions
diff --git a/gcc/melt/generated/warmelt-outobj+03.cc b/gcc/melt/generated/warmelt-outobj+03.cc index 20235ef1d11..2eae0f69709 100644 --- a/gcc/melt/generated/warmelt-outobj+03.cc +++ b/gcc/melt/generated/warmelt-outobj+03.cc @@ -961,8 +961,7 @@ meltrout_50_WARMELTmiOUTOBJ_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_50_WARMELTmiOUTOBJ_LAMBDA_cl3 fromline 1756 */ - /* classy proc frame meltrout_50_WARMELTmiOUTOBJ_LAMBDA_cl3 */ - MeltFrame_meltrout_50_WARMELTmiOUTOBJ_LAMBDA_cl3 + /* classy proc frame meltrout_50_WARMELTmiOUTOBJ_LAMBDA_cl3 */ MeltFrame_meltrout_50_WARMELTmiOUTOBJ_LAMBDA_cl3 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_50_WARMELTmiOUTOBJ_LAMBDA_cl3 fromline 1785*/ #if ENABLE_CHECKING @@ -975,8 +974,7 @@ meltrout_50_WARMELTmiOUTOBJ_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl3", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -986,14 +984,12 @@ meltrout_50_WARMELTmiOUTOBJ_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:2253:/ getarg"); - /*_.ROU__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.ROU__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DSBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DSBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DSBUF__V3*/ meltfptr[2])) != NULL); ; @@ -1014,8 +1010,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2255:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ meltfptr[2]), ( "/*startiniframdecl*/")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ meltfptr[2]), ( "/*startiniframdecl*/")); } ; @@ -1111,8 +1106,7 @@ meltrout_51_WARMELTmiOUTOBJ_OUTPUT_CENTRALDECL_HOOKROUTINE(meltclosure_ptr_t mel /* end of frame for routine meltrout_51_WARMELTmiOUTOBJ_OUTPUT_CENTRALDECL_HOOKROUTINE fromline 1756 */ - /* classy proc frame meltrout_51_WARMELTmiOUTOBJ_OUTPUT_CENTRALDECL_HOOKROUTINE */ - MeltFrame_meltrout_51_WARMELTmiOUTOBJ_OUTPUT_CENTRALDECL_HOOKROUTINE + /* classy proc frame meltrout_51_WARMELTmiOUTOBJ_OUTPUT_CENTRALDECL_HOOKROUTINE */ MeltFrame_meltrout_51_WARMELTmiOUTOBJ_OUTPUT_CENTRALDECL_HOOKROUTINE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_51_WARMELTmiOUTOBJ_OUTPUT_CENTRALDECL_HOOKROUTINE fromline 1785*/ #if ENABLE_CHECKING @@ -1125,8 +1119,7 @@ meltrout_51_WARMELTmiOUTOBJ_OUTPUT_CENTRALDECL_HOOKROUTINE(meltclosure_ptr_t mel #define meltframe meltfram__ melt_trace_start("OUTPUT_CENTRALDECL_HOOKROUTINE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1136,28 +1129,24 @@ meltrout_51_WARMELTmiOUTOBJ_OUTPUT_CENTRALDECL_HOOKROUTINE(meltclosure_ptr_t mel /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:2450:/ getarg"); - /*_.PHOOK__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.PHOOK__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.SBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.SBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_CSTRING) goto meltlab_endgetargs; - /*_?*/ - meltfram__.loc_CSTRING__o0 = meltxargtab_[1].meltbp_cstring; + /*_?*/ meltfram__.loc_CSTRING__o0 = meltxargtab_[1].meltbp_cstring; /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_CSTRING) goto meltlab_endgetargs; - /*_?*/ - meltfram__.loc_CSTRING__o1 = meltxargtab_[2].meltbp_cstring; + /*_?*/ meltfram__.loc_CSTRING__o1 = meltxargtab_[2].meltbp_cstring; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -1187,8 +1176,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1197,8 +1185,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2451:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1231,20 +1218,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "output_centraldecl_hookroutine start phook="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PHOOK__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V5*/ - meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ - meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2451:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } @@ -1257,8 +1240,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2451:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -1267,11 +1249,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1301,12 +1281,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_HOOKROUTINEOBJ*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:2452:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -1335,31 +1313,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2452; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PHOOK__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ - meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ - meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2452:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ - meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2452:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1377,12 +1349,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L4*/ - meltfnum[0] = + /*_#IS_STRBUF__L4*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-outobj.melt:2453:/ cond"); - /*cond*/ - if (/*_#IS_STRBUF__L4*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_STRBUF__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -1411,31 +1381,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2453; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ - meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ - meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2453:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ - meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; + /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2453:/ clear"); - /*clear*/ /*_#IS_STRBUF__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_STRBUF__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1447,8 +1411,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3]))) ) /*then*/ @@ -1459,8 +1422,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.HOOKNAME__V12*/ - meltfptr[10] = slot; + /*_.HOOKNAME__V12*/ meltfptr[10] = slot; }; ; } @@ -1471,8 +1433,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2455:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ meltfrout->tabval[4]))) ) /*then*/ @@ -1483,8 +1444,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "OBROUT_PROC"); - /*_.NHOOKPROC__V13*/ - meltfptr[3] = slot; + /*_.NHOOKPROC__V13*/ meltfptr[3] = slot; }; ; } @@ -1495,8 +1455,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2456:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ meltfrout->tabval[4]))) ) /*then*/ @@ -1507,8 +1466,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 9, "OBROUT_RETVAL"); - /*_.ORETVAL__V14*/ - meltfptr[13] = slot; + /*_.ORETVAL__V14*/ meltfptr[13] = slot; }; ; } @@ -1519,8 +1477,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2457:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NHOOKPROC__V13*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[5]))) ) /*then*/ @@ -1531,8 +1488,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NHOOKPROC__V13*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 8, "NRHOOK_CTYPE"); - /*_.ORETCTYPE__V15*/ - meltfptr[14] = slot; + /*_.ORETCTYPE__V15*/ meltfptr[14] = slot; }; ; } @@ -1543,8 +1499,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2458:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ORETCTYPE__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -1555,8 +1510,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ORETCTYPE__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.ORETCTYCNAME__V16*/ - meltfptr[15] = slot; + /*_.ORETCTYCNAME__V16*/ meltfptr[15] = slot; }; ; } @@ -1567,8 +1521,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2459:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_HOOKROUTINEOBJ*/ meltfrout->tabval[1]))) ) /*then*/ @@ -1579,8 +1532,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 12, "OHOOKROUT_DATARG"); - /*_.OHKDATARG__V17*/ - meltfptr[16] = slot; + /*_.OHKDATARG__V17*/ meltfptr[16] = slot; }; ; } @@ -1591,8 +1543,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2460:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OHKDATARG__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_OBJCFORMAL*/ meltfrout->tabval[7]))) ) /*then*/ @@ -1603,8 +1554,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OHKDATARG__V17*/ meltfptr[16]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OFORMAL_NAME"); - /*_.OHKDATACNAME__V18*/ - meltfptr[17] = slot; + /*_.OHKDATACNAME__V18*/ meltfptr[17] = slot; }; ; } @@ -1615,8 +1565,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2461:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_HOOKROUTINEOBJ*/ meltfrout->tabval[1]))) ) /*then*/ @@ -1627,8 +1576,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 13, "OHOOKROUT_INARGS"); - /*_.OHKINARGS__V19*/ - meltfptr[18] = slot; + /*_.OHKINARGS__V19*/ meltfptr[18] = slot; }; ; } @@ -1639,8 +1587,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2462:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_HOOKROUTINEOBJ*/ meltfrout->tabval[1]))) ) /*then*/ @@ -1651,8 +1598,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 14, "OHOOKROUT_OUTARGS"); - /*_.OHKOUTARGS__V20*/ - meltfptr[19] = slot; + /*_.OHKOUTARGS__V20*/ meltfptr[19] = slot; }; ; } @@ -1682,8 +1628,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1692,8 +1637,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2464:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1730,20 +1674,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. oretval="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.ORETVAL__V14*/ meltfptr[13]; - /*_.MELT_DEBUG_FUN__V22*/ - meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V21*/ - meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; + /*_._IF___V21*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2464:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0 ; } ; } @@ -1756,8 +1696,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2464:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -1766,11 +1705,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_._IF___V21*/ meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1800,12 +1737,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ - meltfnum[0] = + /*_#IS_A__L7*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ORETCTYPE__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-outobj.melt:2465:/ cond"); - /*cond*/ - if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V24*/ meltfptr[20] = (/*nil*/NULL);; @@ -1834,31 +1769,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2465; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ORETCTYPE__V15*/ meltfptr[14]; - /*_.MELT_ASSERT_FAILURE_FUN__V25*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V24*/ - meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; + /*_._IFELSE___V24*/ meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2465:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = 0 ; } ; } ; - /*_.IFCPP___V23*/ - meltfptr[21] = /*_._IFELSE___V24*/ meltfptr[20];; + /*_.IFCPP___V23*/ meltfptr[21] = /*_._IFELSE___V24*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2465:/ clear"); - /*clear*/ /*_#IS_A__L7*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V24*/ - meltfptr[20] = 0 ; + /*clear*/ /*_._IFELSE___V24*/ meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1890,8 +1819,7 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HOOKNAME__V12*/ meltfptr[10]; /*^apply.arg*/ argtab[4].meltbp_cstring = " */"; - /*_.ADD2OUT__V26*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V26*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -1904,8 +1832,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:2469:/ cond"); - /*cond*/ - if (/*_?*/ meltfram__.loc_CSTRING__o1) /*then*/ + /*cond*/ if (/*_?*/ meltfram__.loc_CSTRING__o1) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1950,8 +1877,7 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "(melt_ptr_t "; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OHKDATACNAME__V18*/ meltfptr[17]; - /*_.ADD2OUT__V27*/ - meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V27*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -1986,8 +1912,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1996,8 +1921,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2478:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2034,20 +1958,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " inix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#INIX__L8*/ meltfnum[1]; - /*_.MELT_DEBUG_FUN__V30*/ - meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), 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-outobj.melt:2478:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0 ; } ; } @@ -2060,8 +1980,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2478:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -2070,11 +1989,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_._IF___V29*/ meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2097,8 +2014,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2479:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2]), ( ",")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2]), ( ",")); } ; @@ -2111,8 +2027,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINARG__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_OBJVALUE*/ meltfrout->tabval[9]))) ) /*then*/ @@ -2123,8 +2038,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINARG__V28*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBV_TYPE"); - /*_.CURINCTYP__V32*/ - meltfptr[28] = slot; + /*_.CURINCTYP__V32*/ meltfptr[28] = slot; }; ; } @@ -2135,8 +2049,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2482:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINARG__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_OBJCFORMAL*/ meltfrout->tabval[7]))) ) /*then*/ @@ -2147,8 +2060,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINARG__V28*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OFORMAL_NAME"); - /*_.CURFORMALNAME__V33*/ - meltfptr[32] = slot; + /*_.CURFORMALNAME__V33*/ meltfptr[32] = slot; }; ; } @@ -2159,8 +2071,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2483:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINCTYP__V32*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -2171,8 +2082,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINCTYP__V32*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CURINCTYCNAME__V34*/ - meltfptr[33] = slot; + /*_.CURINCTYCNAME__V34*/ meltfptr[33] = slot; }; ; } @@ -2196,39 +2106,30 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = " "; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.CURFORMALNAME__V33*/ meltfptr[32]; - /*_.ADD2OUT__V35*/ - meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V31*/ - meltfptr[29] = /*_.ADD2OUT__V35*/ meltfptr[34];; + /*_.LET___V31*/ meltfptr[29] = /*_.ADD2OUT__V35*/ meltfptr[34];; MELT_LOCATION("warmelt-outobj.melt:2481:/ clear"); - /*clear*/ /*_.CURINCTYP__V32*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.CURINCTYP__V32*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.CURFORMALNAME__V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.CURFORMALNAME__V33*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.CURINCTYCNAME__V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.CURINCTYCNAME__V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.ADD2OUT__V35*/ meltfptr[34] = 0 ; if (/*_#INIX__L8*/ meltfnum[1]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:2475:/ clear"); - /*clear*/ /*_.CURINARG__V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.CURINARG__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#INIX__L8*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#INIX__L8*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V31*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.LET___V31*/ meltfptr[29] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -2263,8 +2164,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2273,8 +2173,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2491:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2311,20 +2210,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " outix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#OUTIX__L11*/ meltfnum[9]; - /*_.MELT_DEBUG_FUN__V38*/ - meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V38*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V37*/ - meltfptr[32] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[33];; + /*_._IF___V37*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2491:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ meltfptr[33] = 0 ; } ; } @@ -2337,8 +2232,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2491:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -2347,11 +2241,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V37*/ - meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V37*/ meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2374,8 +2266,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2492:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2]), ( ",")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2]), ( ",")); } ; @@ -2388,8 +2279,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTARG__V36*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_OBJVALUE*/ meltfrout->tabval[9]))) ) /*then*/ @@ -2400,8 +2290,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTARG__V36*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBV_TYPE"); - /*_.CUROUTCTYP__V40*/ - meltfptr[33] = slot; + /*_.CUROUTCTYP__V40*/ meltfptr[33] = slot; }; ; } @@ -2412,8 +2301,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2495:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTARG__V36*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_OBJCFORMAL*/ meltfrout->tabval[7]))) ) /*then*/ @@ -2424,8 +2312,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTARG__V36*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OFORMAL_NAME"); - /*_.CURFORMALNAME__V41*/ - meltfptr[32] = slot; + /*_.CURFORMALNAME__V41*/ meltfptr[32] = slot; }; ; } @@ -2436,8 +2323,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2496:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTCTYP__V40*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -2448,8 +2334,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTCTYP__V40*/ meltfptr[33]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CUROUTCTYCNAME__V42*/ - meltfptr[41] = slot; + /*_.CUROUTCTYCNAME__V42*/ meltfptr[41] = slot; }; ; } @@ -2473,39 +2358,30 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "* "; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.CURFORMALNAME__V41*/ meltfptr[32]; - /*_.ADD2OUT__V43*/ - meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V39*/ - meltfptr[34] = /*_.ADD2OUT__V43*/ meltfptr[42];; + /*_.LET___V39*/ meltfptr[34] = /*_.ADD2OUT__V43*/ meltfptr[42];; MELT_LOCATION("warmelt-outobj.melt:2494:/ clear"); - /*clear*/ /*_.CUROUTCTYP__V40*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.CUROUTCTYP__V40*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.CURFORMALNAME__V41*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.CURFORMALNAME__V41*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.CUROUTCTYCNAME__V42*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.CUROUTCTYCNAME__V42*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V43*/ - meltfptr[42] = 0 ; + /*clear*/ /*_.ADD2OUT__V43*/ meltfptr[42] = 0 ; if (/*_#OUTIX__L11*/ meltfnum[9]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:2488:/ clear"); - /*clear*/ /*_.CUROUTARG__V36*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.CUROUTARG__V36*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_#OUTIX__L11*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#OUTIX__L11*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V39*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.LET___V39*/ meltfptr[34] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -2522,52 +2398,38 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:2454:/ clear"); - /*clear*/ /*_.HOOKNAME__V12*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.HOOKNAME__V12*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.NHOOKPROC__V13*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.NHOOKPROC__V13*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.ORETVAL__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.ORETVAL__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.ORETCTYPE__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.ORETCTYPE__V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.ORETCTYCNAME__V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.ORETCTYCNAME__V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.OHKDATARG__V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.OHKDATARG__V17*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.OHKDATACNAME__V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.OHKDATACNAME__V18*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.OHKINARGS__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.OHKINARGS__V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.OHKOUTARGS__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.OHKOUTARGS__V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V23*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.IFCPP___V23*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V26*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.ADD2OUT__V26*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V27*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.ADD2OUT__V27*/ meltfptr[20] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2450:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; } ; @@ -2650,8 +2512,7 @@ meltrout_52_WARMELTmiOUTOBJ_OUTPUCOD_HOOKROUTINE(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_52_WARMELTmiOUTOBJ_OUTPUCOD_HOOKROUTINE fromline 1756 */ - /* classy proc frame meltrout_52_WARMELTmiOUTOBJ_OUTPUCOD_HOOKROUTINE */ - MeltFrame_meltrout_52_WARMELTmiOUTOBJ_OUTPUCOD_HOOKROUTINE + /* classy proc frame meltrout_52_WARMELTmiOUTOBJ_OUTPUCOD_HOOKROUTINE */ MeltFrame_meltrout_52_WARMELTmiOUTOBJ_OUTPUCOD_HOOKROUTINE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_52_WARMELTmiOUTOBJ_OUTPUCOD_HOOKROUTINE fromline 1785*/ #if ENABLE_CHECKING @@ -2664,8 +2525,7 @@ meltrout_52_WARMELTmiOUTOBJ_OUTPUCOD_HOOKROUTINE(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("OUTPUCOD_HOOKROUTINE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -2675,30 +2535,26 @@ meltrout_52_WARMELTmiOUTOBJ_OUTPUCOD_HOOKROUTINE(meltclosure_ptr_t meltclosp_, m /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:2508:/ getarg"); - /*_.PHOOK__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.PHOOK__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -2728,8 +2584,7 @@ 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)) @@ -2738,8 +2593,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2509:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2755,8 +2609,7 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ - /*_.DISCRIM__V6*/ - meltfptr[5] = + /*_.DISCRIM__V6*/ meltfptr[5] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]))));; MELT_CHECK_SIGNAL(); @@ -2780,23 +2633,18 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n of discrim="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DISCRIM__V6*/ meltfptr[5]; - /*_.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___V5*/ - meltfptr[4] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2509:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.DISCRIM__V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.DISCRIM__V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -2809,8 +2657,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2509:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -2819,11 +2666,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2853,12 +2698,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[2] = + /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_HOOKROUTINEOBJ*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:2511:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[6] = (/*nil*/NULL);; @@ -2887,31 +2730,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2511; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PHOOK__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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[6] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[4];; + /*_._IFELSE___V9*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2511:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[4] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[5] = /*_._IFELSE___V9*/ meltfptr[6];; + /*_.IFCPP___V8*/ meltfptr[5] = /*_._IFELSE___V9*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2511:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2923,8 +2760,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3]))) ) /*then*/ @@ -2935,8 +2771,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.HOOKNAME__V11*/ - meltfptr[4] = slot; + /*_.HOOKNAME__V11*/ meltfptr[4] = slot; }; ; } @@ -2947,8 +2782,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2513:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ meltfrout->tabval[4]))) ) /*then*/ @@ -2959,8 +2793,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "OBROUT_PROC"); - /*_.NHOOKPROC__V12*/ - meltfptr[6] = slot; + /*_.NHOOKPROC__V12*/ meltfptr[6] = slot; }; ; } @@ -2971,8 +2804,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2514:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NHOOKPROC__V12*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[5]))) ) /*then*/ @@ -2983,8 +2815,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NHOOKPROC__V12*/ meltfptr[6]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NRCLOP_NAME"); - /*_.NRAWHOOKNAME__V13*/ - meltfptr[12] = slot; + /*_.NRAWHOOKNAME__V13*/ meltfptr[12] = slot; }; ; } @@ -2995,8 +2826,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2515:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ meltfrout->tabval[4]))) ) /*then*/ @@ -3007,8 +2837,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "OBROUT_BODY"); - /*_.OBODY__V14*/ - meltfptr[13] = slot; + /*_.OBODY__V14*/ meltfptr[13] = slot; }; ; } @@ -3019,8 +2848,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2516:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ meltfrout->tabval[4]))) ) /*then*/ @@ -3031,8 +2859,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "OBROUT_NBVAL"); - /*_.NBVAL__V15*/ - meltfptr[14] = slot; + /*_.NBVAL__V15*/ meltfptr[14] = slot; }; ; } @@ -3043,8 +2870,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2517:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ meltfrout->tabval[4]))) ) /*then*/ @@ -3055,8 +2881,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 7, "OBROUT_NBLONG"); - /*_.NBLONGS__V16*/ - meltfptr[15] = slot; + /*_.NBLONGS__V16*/ meltfptr[15] = slot; }; ; } @@ -3067,8 +2892,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2518:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ meltfrout->tabval[4]))) ) /*then*/ @@ -3079,8 +2903,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 8, "OBROUT_OTHERS"); - /*_.OTHERVARS__V17*/ - meltfptr[16] = slot; + /*_.OTHERVARS__V17*/ meltfptr[16] = slot; }; ; } @@ -3091,8 +2914,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2519:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ meltfrout->tabval[4]))) ) /*then*/ @@ -3103,8 +2925,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 9, "OBROUT_RETVAL"); - /*_.ORETVAL__V18*/ - meltfptr[17] = slot; + /*_.ORETVAL__V18*/ meltfptr[17] = slot; }; ; } @@ -3115,8 +2936,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2520:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ORETVAL__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_OBJVALUE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -3127,8 +2947,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ORETVAL__V18*/ meltfptr[17]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBV_TYPE"); - /*_.ORETCTYPE__V19*/ - meltfptr[18] = slot; + /*_.ORETCTYPE__V19*/ meltfptr[18] = slot; }; ; } @@ -3139,8 +2958,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2521:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ORETCTYPE__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -3151,8 +2969,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ORETCTYPE__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.ORETCTYCNAME__V20*/ - meltfptr[19] = slot; + /*_.ORETCTYCNAME__V20*/ meltfptr[19] = slot; }; ; } @@ -3163,8 +2980,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2524:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_HOOKROUTINEOBJ*/ meltfrout->tabval[1]))) ) /*then*/ @@ -3175,8 +2991,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 12, "OHOOKROUT_DATARG"); - /*_.OHKDATARG__V21*/ - meltfptr[20] = slot; + /*_.OHKDATARG__V21*/ meltfptr[20] = slot; }; ; } @@ -3187,8 +3002,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2525:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OHKDATARG__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_OBJCFORMAL*/ meltfrout->tabval[8]))) ) /*then*/ @@ -3199,8 +3013,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OHKDATARG__V21*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OFORMAL_NAME"); - /*_.OHKDATACNAME__V22*/ - meltfptr[21] = slot; + /*_.OHKDATACNAME__V22*/ meltfptr[21] = slot; }; ; } @@ -3211,8 +3024,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2526:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_HOOKROUTINEOBJ*/ meltfrout->tabval[1]))) ) /*then*/ @@ -3223,8 +3035,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 13, "OHOOKROUT_INARGS"); - /*_.OHKINARGS__V23*/ - meltfptr[22] = slot; + /*_.OHKINARGS__V23*/ meltfptr[22] = slot; }; ; } @@ -3235,8 +3046,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2527:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_HOOKROUTINEOBJ*/ meltfrout->tabval[1]))) ) /*then*/ @@ -3247,8 +3057,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 14, "OHOOKROUT_OUTARGS"); - /*_.OHKOUTARGS__V24*/ - meltfptr[23] = slot; + /*_.OHKOUTARGS__V24*/ meltfptr[23] = slot; }; ; } @@ -3259,8 +3068,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2528:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_HOOKROUTINEOBJ*/ meltfrout->tabval[1]))) ) /*then*/ @@ -3271,8 +3079,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 15, "OHOOKROUT_EPILOG"); - /*_.OHKEPILOG__V25*/ - meltfptr[24] = slot; + /*_.OHKEPILOG__V25*/ meltfptr[24] = slot; }; ; } @@ -3283,16 +3090,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#OBJ_HASH__L5*/ - meltfnum[1] = + /*_#OBJ_HASH__L5*/ meltfnum[1] = (melt_obj_hash((melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1])));; /*^compute*/ - /*_#pcIRAW__L6*/ - meltfnum[2] = + /*_#pcIRAW__L6*/ meltfnum[2] = ((/*_#OBJ_HASH__L5*/ meltfnum[1]) % (4096));; /*^compute*/ - /*_#MINIHASH__L7*/ - meltfnum[6] = + /*_#MINIHASH__L7*/ meltfnum[6] = ((2) + (/*_#pcIRAW__L6*/ meltfnum[2]));; #if MELT_HAVE_DEBUG @@ -3314,8 +3118,7 @@ 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)) @@ -3324,8 +3127,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2531:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3394,20 +3196,16 @@ meltlab_endgetargs: argtab[21].meltbp_cstring = "\n ohkepilog="; /*^apply.arg*/ argtab[22].meltbp_aptr = (melt_ptr_t*) &/*_.OHKEPILOG__V25*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V27*/ - meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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 ""), 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-outobj.melt:2531:/ 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 ; } ; } @@ -3420,8 +3218,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2531:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -3430,11 +3227,9 @@ 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*/ @@ -3474,8 +3269,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HOOKNAME__V11*/ meltfptr[4]; /*^apply.arg*/ argtab[2].meltbp_cstring = "**/"; - /*_.ADD2OUT__V28*/ - meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V28*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -3504,8 +3298,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HOOKNAME__V11*/ meltfptr[4]; /*^apply.arg*/ argtab[2].meltbp_cstring = "**/"; - /*_.ADD2OUT__V29*/ - meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V29*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -3528,8 +3321,7 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "declaration of"; /*^apply.arg*/ argtab[2].meltbp_cstring = "MELT_EXTERN"; - /*_.OUTPUT_CENTRALDECL_HOOKROUTINE__V30*/ - meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CENTRALDECL_HOOKROUTINE*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CENTRALDECL_HOOKROUTINE__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CENTRALDECL_HOOKROUTINE*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -3576,8 +3368,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HOOKNAME__V11*/ meltfptr[4]; /*^apply.arg*/ argtab[2].meltbp_cstring = " hook: */"; - /*_.ADD2OUT__V31*/ - meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -3590,8 +3381,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.OUTPUT_CURFRAME_DECLSTRUCT__V32*/ - meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CURFRAME_DECLSTRUCT__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3614,8 +3404,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HOOKNAME__V11*/ meltfptr[4]; /*^apply.arg*/ argtab[2].meltbp_cstring = " hook */"; - /*_.ADD2OUT__V33*/ - meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -3630,8 +3419,7 @@ meltlab_endgetargs: meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - /*_?*/ - meltfram__.loc_CSTRING__o0 = + /*_?*/ meltfram__.loc_CSTRING__o0 = (char*)0;; MELT_CHECK_SIGNAL(); @@ -3647,8 +3435,7 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "implementation of"; /*^apply.arg*/ argtab[2].meltbp_cstring = /*_?*/ meltfram__.loc_CSTRING__o0; - /*_.OUTPUT_CENTRALDECL_HOOKROUTINE__V34*/ - meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CENTRALDECL_HOOKROUTINE*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CENTRALDECL_HOOKROUTINE__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CENTRALDECL_HOOKROUTINE*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.PHOOK__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -3665,8 +3452,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HOOKNAME__V11*/ meltfptr[4]; /*^apply.arg*/ argtab[2].meltbp_cstring = " from outpucod_hookroutine */"; - /*_.ADD2OUT__V35*/ - meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -3679,8 +3465,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OHKDATARG__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_OBJCFORMAL*/ meltfrout->tabval[8]))) ) /*then*/ @@ -3691,8 +3476,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OHKDATARG__V21*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 4, "OFORMAL_LOCV"); - /*_.ODATALOCV__V36*/ - meltfptr[35] = slot; + /*_.ODATALOCV__V36*/ meltfptr[35] = slot; }; ; } @@ -3722,8 +3506,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ - meltfnum[8] = + /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3732,8 +3515,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2565:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3774,20 +3556,16 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. odatalocv="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.ODATALOCV__V36*/ meltfptr[35]; - /*_.MELT_DEBUG_FUN__V38*/ - meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V37*/ - meltfptr[36] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; + /*_._IF___V37*/ meltfptr[36] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2565:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0 ; } ; } @@ -3800,8 +3578,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2565:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -3810,11 +3587,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_._IF___V37*/ meltfptr[36] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3871,8 +3646,7 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[12].meltbp_cstring = " meltfram__(meltcast_melthook_st(melthookdatap)) /*hook classy frame\ */;\n "; - /*_.ADD2OUT__V39*/ - meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (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 ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V39*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (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 ""), argtab, "", (union meltparam_un*)0); } ; @@ -3895,8 +3669,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NRAWHOOKNAME__V13*/ meltfptr[12]; /*^apply.arg*/ argtab[2].meltbp_cstring = "*/ ((melthook_ptr_t) ("; - /*_.ADD2OUT__V40*/ - meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V40*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -3913,15 +3686,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = 0; - /*_.OUTPUT_C_CODE__V41*/ - meltfptr[40] = meltgc_send((melt_ptr_t)(/*_.ODATALOCV__V36*/ meltfptr[35]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V41*/ meltfptr[40] = meltgc_send((melt_ptr_t)(/*_.ODATALOCV__V36*/ meltfptr[35]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:2586:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "))")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "))")); } ; @@ -3944,8 +3715,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HOOKNAME__V11*/ meltfptr[4]; /*^apply.arg*/ argtab[2].meltbp_cstring = " hook */"; - /*_.ADD2OUT__V42*/ - meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -3974,8 +3744,7 @@ 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)) @@ -3984,8 +3753,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2594:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L12*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4018,20 +3786,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_hookroutine obody="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBODY__V14*/ meltfptr[13]; - /*_.MELT_DEBUG_FUN__V44*/ - meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V43*/ - meltfptr[42] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];; + /*_._IF___V43*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2594:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ - meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = 0 ; } ; } @@ -4044,8 +3808,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2594:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -4054,11 +3817,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V43*/ - meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V43*/ meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4088,12 +3849,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L14*/ - meltfnum[8] = + /*_#IS_LIST__L14*/ meltfnum[8] = (melt_magic_discr((melt_ptr_t)(/*_.OBODY__V14*/ meltfptr[13])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:2595:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L14*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L14*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V46*/ meltfptr[42] = (/*nil*/NULL);; @@ -4122,31 +3881,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2595; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBODY__V14*/ meltfptr[13]; - /*_.MELT_ASSERT_FAILURE_FUN__V47*/ - meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V46*/ - meltfptr[42] = /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[46];; + /*_._IFELSE___V46*/ meltfptr[42] = /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2595:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V47*/ - meltfptr[46] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[46] = 0 ; } ; } ; - /*_.IFCPP___V45*/ - meltfptr[43] = /*_._IFELSE___V46*/ meltfptr[42];; + /*_.IFCPP___V45*/ meltfptr[43] = /*_._IFELSE___V46*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2595:/ clear"); - /*clear*/ /*_#IS_LIST__L14*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#IS_LIST__L14*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V46*/ - meltfptr[42] = 0 ; + /*clear*/ /*_._IFELSE___V46*/ meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4184,8 +3937,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L15*/ - meltfnum[7] = + /*_#MELT_NEED_DBG__L15*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4194,8 +3946,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2599:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L15*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4228,20 +3979,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_hookroutine curbodyo="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURBODYO__V49*/ meltfptr[42]; - /*_.MELT_DEBUG_FUN__V51*/ - meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V50*/ - meltfptr[49] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; + /*_._IF___V50*/ meltfptr[49] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2599:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0 ; } ; } @@ -4254,8 +4001,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2599:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -4264,11 +4010,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V50*/ - meltfptr[49] = 0 ; + /*clear*/ /*_._IF___V50*/ meltfptr[49] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4291,12 +4035,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L17*/ - meltfnum[8] = + /*_#IS_NOT_A__L17*/ meltfnum[8] = !melt_is_instance_of((melt_ptr_t)(/*_.CURBODYO__V49*/ meltfptr[42]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-outobj.melt:2600:/ cond"); - /*cond*/ - if (/*_#IS_NOT_A__L17*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#IS_NOT_A__L17*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4317,15 +4059,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = 1; - /*_.OUTPUT_C_CODE__V52*/ - meltfptr[50] = meltgc_send((melt_ptr_t)(/*_.CURBODYO__V49*/ meltfptr[42]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V52*/ meltfptr[50] = meltgc_send((melt_ptr_t)(/*_.CURBODYO__V49*/ meltfptr[42]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:2602:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); } ; @@ -4340,8 +4080,7 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V52*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V52*/ meltfptr[50] = 0 ; } ; } /*noelse*/ @@ -4356,12 +4095,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L18*/ - meltfnum[7] = + /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[7] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:2605:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[14])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[15]))) ) /*then*/ @@ -4372,8 +4109,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[14])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V54*/ - meltfptr[50] = slot; + /*_.REFERENCED_VALUE__V54*/ meltfptr[50] = slot; }; ; } @@ -4384,16 +4120,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L19*/ - meltfnum[18] = + /*_#GET_INT__L19*/ meltfnum[18] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V54*/ meltfptr[50])));; /*^compute*/ - /*_#ltI__L20*/ - meltfnum[19] = + /*_#ltI__L20*/ meltfnum[19] = ((/*_#STRBUF_USEDLENGTH__L18*/ meltfnum[7]) < (/*_#GET_INT__L19*/ meltfnum[18]));; MELT_LOCATION("warmelt-outobj.melt:2604:/ cond"); - /*cond*/ - if (/*_#ltI__L20*/ meltfnum[19]) /*then*/ + /*cond*/ if (/*_#ltI__L20*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V55*/ meltfptr[54] = (/*nil*/NULL);; @@ -4422,40 +4155,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2604; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V56*/ - meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V55*/ - meltfptr[54] = /*_.MELT_ASSERT_FAILURE_FUN__V56*/ meltfptr[55];; + /*_._IFELSE___V55*/ meltfptr[54] = /*_.MELT_ASSERT_FAILURE_FUN__V56*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2604:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V56*/ - meltfptr[55] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V56*/ meltfptr[55] = 0 ; } ; } ; - /*_.IFCPP___V53*/ - meltfptr[49] = /*_._IFELSE___V55*/ meltfptr[54];; + /*_.IFCPP___V53*/ meltfptr[49] = /*_._IFELSE___V55*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2604:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L18*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V54*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V54*/ meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L19*/ - meltfnum[18] = 0 ; + /*clear*/ /*_#GET_INT__L19*/ meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L20*/ - meltfnum[19] = 0 ; + /*clear*/ /*_#ltI__L20*/ meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V55*/ - meltfptr[54] = 0 ; + /*clear*/ /*_._IFELSE___V55*/ meltfptr[54] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4465,24 +4189,19 @@ meltlab_endgetargs: ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURBODYPAIR__V48*/ meltfptr[46] = NULL; - /*_.CURBODYO__V49*/ - meltfptr[42] = NULL; + /*_.CURBODYO__V49*/ meltfptr[42] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:2596:/ clear"); - /*clear*/ /*_.CURBODYPAIR__V48*/ - meltfptr[46] = 0 ; + /*clear*/ /*_.CURBODYPAIR__V48*/ meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.CURBODYO__V49*/ - meltfptr[42] = 0 ; + /*clear*/ /*_.CURBODYO__V49*/ meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L17*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#IS_NOT_A__L17*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V53*/ - meltfptr[49] = 0 ; + /*clear*/ /*_.IFCPP___V53*/ meltfptr[49] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -4500,8 +4219,7 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[2].meltbp_cstring = " hook */\n goto meltlabend_rout\t\t;\ \n meltlabend_rout:\t\t\t;\n "; - /*_.ADD2OUT__V57*/ - meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V57*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -4530,8 +4248,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ - meltfnum[7] = + /*_#MELT_NEED_DBG__L21*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4540,8 +4257,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2616:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L21*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4574,20 +4290,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_hookroutine ohkepilog="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OHKEPILOG__V25*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V59*/ - meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V59*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V58*/ - meltfptr[50] = /*_.MELT_DEBUG_FUN__V59*/ meltfptr[54];; + /*_._IF___V58*/ meltfptr[50] = /*_.MELT_DEBUG_FUN__V59*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2616:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ - meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V59*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V59*/ meltfptr[54] = 0 ; } ; } @@ -4600,8 +4312,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2616:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -4610,11 +4321,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V58*/ - meltfptr[50] = 0 ; + /*clear*/ /*_._IF___V58*/ meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4644,12 +4353,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L23*/ - meltfnum[19] = + /*_#IS_LIST__L23*/ meltfnum[19] = (melt_magic_discr((melt_ptr_t)(/*_.OHKEPILOG__V25*/ meltfptr[24])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:2617:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L23*/ meltfnum[19]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L23*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V61*/ meltfptr[50] = (/*nil*/NULL);; @@ -4678,31 +4385,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2617; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OHKEPILOG__V25*/ meltfptr[24]; - /*_.MELT_ASSERT_FAILURE_FUN__V62*/ - meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V61*/ - meltfptr[50] = /*_.MELT_ASSERT_FAILURE_FUN__V62*/ meltfptr[61];; + /*_._IFELSE___V61*/ meltfptr[50] = /*_.MELT_ASSERT_FAILURE_FUN__V62*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2617:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V62*/ - meltfptr[61] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V62*/ meltfptr[61] = 0 ; } ; } ; - /*_.IFCPP___V60*/ - meltfptr[54] = /*_._IFELSE___V61*/ meltfptr[50];; + /*_.IFCPP___V60*/ meltfptr[54] = /*_._IFELSE___V61*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2617:/ clear"); - /*clear*/ /*_#IS_LIST__L23*/ - meltfnum[19] = 0 ; + /*clear*/ /*_#IS_LIST__L23*/ meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V61*/ - meltfptr[50] = 0 ; + /*clear*/ /*_._IFELSE___V61*/ meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4740,8 +4441,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L24*/ - meltfnum[18] = + /*_#MELT_NEED_DBG__L24*/ meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4750,8 +4450,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2621:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L24*/ meltfnum[18]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L24*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4784,20 +4483,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_hookroutine curepins="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUREPINS__V64*/ meltfptr[50]; - /*_.MELT_DEBUG_FUN__V66*/ - meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V65*/ - meltfptr[64] = /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65];; + /*_._IF___V65*/ meltfptr[64] = /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2621:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L25*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L25*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V66*/ - meltfptr[65] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65] = 0 ; } ; } @@ -4810,8 +4505,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2621:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -4820,11 +4514,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L24*/ - meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L24*/ meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V65*/ - meltfptr[64] = 0 ; + /*clear*/ /*_._IF___V65*/ meltfptr[64] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4847,12 +4539,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L26*/ - meltfnum[19] = + /*_#IS_NOT_A__L26*/ meltfnum[19] = !melt_is_instance_of((melt_ptr_t)(/*_.CUREPINS__V64*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-outobj.melt:2622:/ cond"); - /*cond*/ - if (/*_#IS_NOT_A__L26*/ meltfnum[19]) /*then*/ + /*cond*/ if (/*_#IS_NOT_A__L26*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4873,15 +4563,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = 1; - /*_.OUTPUT_C_CODE__V67*/ - meltfptr[65] = meltgc_send((melt_ptr_t)(/*_.CUREPINS__V64*/ meltfptr[50]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V67*/ meltfptr[65] = meltgc_send((melt_ptr_t)(/*_.CUREPINS__V64*/ meltfptr[50]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:2624:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); } ; @@ -4896,29 +4584,24 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V67*/ - meltfptr[65] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V67*/ meltfptr[65] = 0 ; } ; } /*noelse*/ ; } /* end foreach_pair_component_in_list meltcit2__EACHLIST */ /*_.CUREPIPAIR__V63*/ meltfptr[61] = NULL; - /*_.CUREPINS__V64*/ - meltfptr[50] = NULL; + /*_.CUREPINS__V64*/ meltfptr[50] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:2618:/ clear"); - /*clear*/ /*_.CUREPIPAIR__V63*/ - meltfptr[61] = 0 ; + /*clear*/ /*_.CUREPIPAIR__V63*/ meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.CUREPINS__V64*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.CUREPINS__V64*/ meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L26*/ - meltfnum[19] = 0 ; + /*clear*/ /*_#IS_NOT_A__L26*/ meltfnum[19] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -4935,8 +4618,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HOOKNAME__V11*/ meltfptr[4]; /*^apply.arg*/ argtab[2].meltbp_cstring = " hook */\n return "; - /*_.ADD2OUT__V68*/ - meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V68*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -4949,8 +4631,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:2632:/ cond"); - /*cond*/ - if (/*_.ORETVAL__V18*/ meltfptr[17]) /*then*/ + /*cond*/ if (/*_.ORETVAL__V18*/ meltfptr[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4971,17 +4652,14 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = 1; - /*_.OUTPUT_C_CODE__V70*/ - meltfptr[69] = meltgc_send((melt_ptr_t)(/*_.ORETVAL__V18*/ meltfptr[17]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V70*/ meltfptr[69] = meltgc_send((melt_ptr_t)(/*_.ORETVAL__V18*/ meltfptr[17]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V69*/ - meltfptr[65] = /*_.OUTPUT_C_CODE__V70*/ meltfptr[69];; + /*_._IF___V69*/ meltfptr[65] = /*_.OUTPUT_C_CODE__V70*/ meltfptr[69];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2632:/ clear"); - /*clear*/ /*_.OUTPUT_C_CODE__V70*/ - meltfptr[69] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V70*/ meltfptr[69] = 0 ; } ; } @@ -4994,8 +4672,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2634:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); } ; @@ -5018,8 +4695,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HOOKNAME__V11*/ meltfptr[4]; /*^apply.arg*/ argtab[2].meltbp_cstring = " hook */"; - /*_.ADD2OUT__V71*/ - meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V71*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5108,8 +4784,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HOOKNAME__V11*/ meltfptr[4]; /*^apply.arg*/ argtab[2].meltbp_cstring = "**/"; - /*_.ADD2OUT__V72*/ - meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V72*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5150,8 +4825,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HOOKNAME__V11*/ meltfptr[4]; /*^apply.arg*/ argtab[2].meltbp_cstring = "**/"; - /*_.ADD2OUT__V73*/ - meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V73*/ meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5174,134 +4848,93 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:2563:/ clear"); - /*clear*/ /*_.ODATALOCV__V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.ODATALOCV__V36*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V39*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.ADD2OUT__V39*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V40*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.ADD2OUT__V40*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V41*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V41*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V42*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.ADD2OUT__V42*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V45*/ - meltfptr[43] = 0 ; + /*clear*/ /*_.IFCPP___V45*/ meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V57*/ - meltfptr[55] = 0 ; + /*clear*/ /*_.ADD2OUT__V57*/ meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V60*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.IFCPP___V60*/ meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V68*/ - meltfptr[64] = 0 ; + /*clear*/ /*_.ADD2OUT__V68*/ meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V69*/ - meltfptr[65] = 0 ; + /*clear*/ /*_._IF___V69*/ meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V71*/ - meltfptr[69] = 0 ; + /*clear*/ /*_.ADD2OUT__V71*/ meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V72*/ - meltfptr[71] = 0 ; + /*clear*/ /*_.ADD2OUT__V72*/ meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V73*/ - meltfptr[72] = 0 ; + /*clear*/ /*_.ADD2OUT__V73*/ meltfptr[72] = 0 ; MELT_LOCATION("warmelt-outobj.melt:2512:/ clear"); - /*clear*/ /*_.HOOKNAME__V11*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.HOOKNAME__V11*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.NHOOKPROC__V12*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.NHOOKPROC__V12*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.NRAWHOOKNAME__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.NRAWHOOKNAME__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.OBODY__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.OBODY__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.NBVAL__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.NBVAL__V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.NBLONGS__V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.NBLONGS__V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.OTHERVARS__V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.OTHERVARS__V17*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.ORETVAL__V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.ORETVAL__V18*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.ORETCTYPE__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.ORETCTYPE__V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.ORETCTYCNAME__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.ORETCTYCNAME__V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.OHKDATARG__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.OHKDATARG__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.OHKDATACNAME__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.OHKDATACNAME__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.OHKINARGS__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.OHKINARGS__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.OHKOUTARGS__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.OHKOUTARGS__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.OHKEPILOG__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.OHKEPILOG__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_#OBJ_HASH__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#OBJ_HASH__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#pcIRAW__L6*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#pcIRAW__L6*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_#MINIHASH__L7*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#MINIHASH__L7*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V28*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.ADD2OUT__V28*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V29*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.ADD2OUT__V29*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_CENTRALDECL_HOOKROUTINE__V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.OUTPUT_CENTRALDECL_HOOKROUTINE__V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.ADD2OUT__V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT__V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.ADD2OUT__V33*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ - meltfram__.loc_CSTRING__o0 = 0 ; + /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_CENTRALDECL_HOOKROUTINE__V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.OUTPUT_CENTRALDECL_HOOKROUTINE__V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.ADD2OUT__V35*/ meltfptr[34] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2508:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[5] = 0 ; } ; @@ -5383,8 +5016,7 @@ meltrout_53_WARMELTmiOUTOBJ_OUTPUCOD_INITIALEXTENSIONROUTINE(meltclosure_ptr_t m /* end of frame for routine meltrout_53_WARMELTmiOUTOBJ_OUTPUCOD_INITIALEXTENSIONROUTINE fromline 1756 */ - /* classy proc frame meltrout_53_WARMELTmiOUTOBJ_OUTPUCOD_INITIALEXTENSIONROUTINE */ - MeltFrame_meltrout_53_WARMELTmiOUTOBJ_OUTPUCOD_INITIALEXTENSIONROUTINE + /* classy proc frame meltrout_53_WARMELTmiOUTOBJ_OUTPUCOD_INITIALEXTENSIONROUTINE */ MeltFrame_meltrout_53_WARMELTmiOUTOBJ_OUTPUCOD_INITIALEXTENSIONROUTINE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_53_WARMELTmiOUTOBJ_OUTPUCOD_INITIALEXTENSIONROUTINE fromline 1785*/ #if ENABLE_CHECKING @@ -5397,8 +5029,7 @@ meltrout_53_WARMELTmiOUTOBJ_OUTPUCOD_INITIALEXTENSIONROUTINE(meltclosure_ptr_t m #define meltframe meltfram__ melt_trace_start("OUTPUCOD_INITIALEXTENSIONROUTINE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -5408,30 +5039,26 @@ meltrout_53_WARMELTmiOUTOBJ_OUTPUCOD_INITIALEXTENSIONROUTINE(meltclosure_ptr_t m /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:2665:/ getarg"); - /*_.PINI__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.PINI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -5461,8 +5088,7 @@ 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)) @@ -5471,8 +5097,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2666:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5488,8 +5113,7 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ - /*_.DISCRIM__V6*/ - meltfptr[5] = + /*_.DISCRIM__V6*/ meltfptr[5] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]))));; MELT_CHECK_SIGNAL(); @@ -5513,23 +5137,18 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n of discrim "; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DISCRIM__V6*/ meltfptr[5]; - /*_.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___V5*/ - meltfptr[4] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2666:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.DISCRIM__V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.DISCRIM__V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -5542,8 +5161,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2666:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -5552,11 +5170,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5586,12 +5202,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[2] = + /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_INITIAL_EXTENSION_ROUTINEOBJ*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:2668:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[6] = (/*nil*/NULL);; @@ -5620,31 +5234,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2668; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PINI__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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[6] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[4];; + /*_._IFELSE___V9*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2668:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[4] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[5] = /*_._IFELSE___V9*/ meltfptr[6];; + /*_.IFCPP___V8*/ meltfptr[5] = /*_._IFELSE___V9*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2668:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5667,8 +5275,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:2671:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3]))) ) /*then*/ @@ -5679,8 +5286,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.ONAME__V11*/ - meltfptr[4] = slot; + /*_.ONAME__V11*/ meltfptr[4] = slot; }; ; } @@ -5691,8 +5297,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2672:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ meltfrout->tabval[4]))) ) /*then*/ @@ -5703,8 +5308,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 12, "OIROUT_DATA"); - /*_.ODATUP__V12*/ - meltfptr[6] = slot; + /*_.ODATUP__V12*/ meltfptr[6] = slot; }; ; } @@ -5715,8 +5319,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2673:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ meltfrout->tabval[4]))) ) /*then*/ @@ -5727,8 +5330,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 14, "OIROUT_FILL"); - /*_.ORFILL__V13*/ - meltfptr[12] = slot; + /*_.ORFILL__V13*/ meltfptr[12] = slot; }; ; } @@ -5739,8 +5341,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2674:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ meltfrout->tabval[4]))) ) /*then*/ @@ -5751,8 +5352,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 13, "OIROUT_PROLOG"); - /*_.OPROLOG__V14*/ - meltfptr[13] = slot; + /*_.OPROLOG__V14*/ meltfptr[13] = slot; }; ; } @@ -5767,13 +5367,11 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 15, "OIROUT_MODCTX"); - /*_.OMODU__V15*/ - meltfptr[14] = slot; + /*_.OMODU__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:2676:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OMODU__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[5]))) ) /*then*/ @@ -5784,8 +5382,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OMODU__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 1, "MOCX_MODULENAME"); - /*_.OMODNAM__V16*/ - meltfptr[15] = slot; + /*_.OMODNAM__V16*/ meltfptr[15] = slot; }; ; } @@ -5798,8 +5395,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:2677:/ quasiblock"); - /*_.SBUF__V18*/ - meltfptr[17] = + /*_.SBUF__V18*/ meltfptr[17] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[6])), (const char*)0);; { @@ -5808,24 +5404,18 @@ meltlab_endgetargs: melt_string_str((melt_ptr_t)(/*_.OMODNAM__V16*/ meltfptr[15]))); } ; - /*_.STRBUF2STRING__V19*/ - meltfptr[18] = + /*_.STRBUF2STRING__V19*/ meltfptr[18] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[7])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V18*/ meltfptr[17]))));; /*^compute*/ - /*_.LET___V17*/ - meltfptr[16] = /*_.STRBUF2STRING__V19*/ meltfptr[18];; + /*_.LET___V17*/ meltfptr[16] = /*_.STRBUF2STRING__V19*/ meltfptr[18];; MELT_LOCATION("warmelt-outobj.melt:2677:/ clear"); - /*clear*/ /*_.SBUF__V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.SBUF__V18*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V19*/ - meltfptr[18] = 0 ; - /*_.OMODCNAME__V20*/ - meltfptr[17] = /*_.LET___V17*/ meltfptr[16];; + /*clear*/ /*_.STRBUF2STRING__V19*/ meltfptr[18] = 0 ; + /*_.OMODCNAME__V20*/ meltfptr[17] = /*_.LET___V17*/ meltfptr[16];; MELT_LOCATION("warmelt-outobj.melt:2681:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ meltfrout->tabval[8]))) ) /*then*/ @@ -5836,8 +5426,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "OBROUT_BODY"); - /*_.OBODY__V21*/ - meltfptr[18] = slot; + /*_.OBODY__V21*/ meltfptr[18] = slot; }; ; } @@ -5848,8 +5437,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2682:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ meltfrout->tabval[8]))) ) /*then*/ @@ -5860,8 +5448,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "OBROUT_NBVAL"); - /*_.ONBVAL__V22*/ - meltfptr[21] = slot; + /*_.ONBVAL__V22*/ meltfptr[21] = slot; }; ; } @@ -5872,24 +5459,19 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#NBVAL__L5*/ - meltfnum[1] = + /*_#NBVAL__L5*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.ONBVAL__V22*/ meltfptr[21])));; /*^compute*/ - /*_#OBJ_HASH__L6*/ - meltfnum[2] = + /*_#OBJ_HASH__L6*/ meltfnum[2] = (melt_obj_hash((melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1])));; /*^compute*/ - /*_#pcIRAW__L7*/ - meltfnum[6] = + /*_#pcIRAW__L7*/ meltfnum[6] = ((/*_#OBJ_HASH__L6*/ meltfnum[2]) % (4096));; /*^compute*/ - /*_#MINIHASH__L8*/ - meltfnum[7] = + /*_#MINIHASH__L8*/ meltfnum[7] = ((1) + (/*_#pcIRAW__L7*/ meltfnum[6]));; MELT_LOCATION("warmelt-outobj.melt:2685:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ meltfrout->tabval[8]))) ) /*then*/ @@ -5900,8 +5482,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 9, "OBROUT_RETVAL"); - /*_.ORETVAL__V23*/ - meltfptr[22] = slot; + /*_.ORETVAL__V23*/ meltfptr[22] = slot; }; ; } @@ -5964,8 +5545,7 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[14].meltbp_cstring = "_have_debug_disabled\n#endif /* MELT_HAVE_DEBUG */\ \n\n "; - /*_.ADD2OUT__V24*/ - meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2]), (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 ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2]), (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 ""), argtab, "", (union meltparam_un*)0); } ; @@ -6019,8 +5599,7 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[16].meltbp_cstring = " (melt_ptr_t meltarg_curenvbox_p, melt_ptr_t meltarg_tuplitval_p) \ \n{\n"; - /*_.ADD2OUT__V25*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (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 ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (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 ""), argtab, "", (union meltparam_un*)0); } ; @@ -6041,8 +5620,7 @@ meltlab_endgetargs: argtab[3].meltbp_long = 2727; /*^apply.arg*/ argtab[4].meltbp_cstring = "\n"; - /*_.ADD2OUT__V26*/ - meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6055,8 +5633,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; - /*_.OUTPUT_CURFRAME_DECLSTRUCT__V27*/ - meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CURFRAME_DECLSTRUCT__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.PINI__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -6083,8 +5660,7 @@ meltlab_endgetargs: argtab[3].meltbp_long = 2730; /*^apply.arg*/ argtab[4].meltbp_cstring = " */ typedef "; - /*_.ADD2OUT__V28*/ - meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6106,8 +5682,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INITIAL_CLASSY_FRAME_NAME__V29*/ meltfptr[28]; - /*_.ADD2OUT__V30*/ - meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -6128,8 +5703,7 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OMODNAM__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[4].meltbp_cstring = " frame type*/;"; - /*_.ADD2OUT__V31*/ - meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6158,16 +5732,14 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OMODNAM__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[2].meltbp_cstring = " initial frame init */"; - /*_.ADD2OUT__V32*/ - meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2740:/ quasiblock"); /*^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_14*/ meltfrout->tabval[14])), (1)); ; /*^putclosedv*/ @@ -6176,8 +5748,7 @@ 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)(/*_.OMODNAM__V16*/ meltfptr[15]); ; - /*_.LAMBDA___V33*/ - meltfptr[32] = /*_.LAMBDA___V34*/ meltfptr[33];; + /*_.LAMBDA___V33*/ meltfptr[32] = /*_.LAMBDA___V34*/ meltfptr[33];; MELT_CHECK_SIGNAL(); ; @@ -6190,8 +5761,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.PINI__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V35*/ - meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT_INIT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.LAMBDA___V33*/ meltfptr[32]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT_INIT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.LAMBDA___V33*/ meltfptr[32]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -6214,8 +5784,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OMODNAM__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[2].meltbp_cstring = " initialized initial frame */"; - /*_.ADD2OUT__V36*/ - meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6238,8 +5807,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OMODNAM__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[2].meltbp_cstring = " cdata struct */"; - /*_.ADD2OUT__V37*/ - meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6252,15 +5820,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.OUTPUT_CURFRAME_CDAT_STRUCT__V38*/ - meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_CDAT_STRUCT*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.ODATUP__V12*/ meltfptr[6]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CURFRAME_CDAT_STRUCT__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_CDAT_STRUCT*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.ODATUP__V12*/ meltfptr[6]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:2750:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " *meltcdat = NULL;")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " *meltcdat = NULL;")); } ; @@ -6289,8 +5855,7 @@ 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)) @@ -6299,8 +5864,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2753:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6333,20 +5897,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_initialextensionroutine oprolog="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OPROLOG__V14*/ meltfptr[13]; - /*_.MELT_DEBUG_FUN__V40*/ - meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V39*/ - meltfptr[38] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; + /*_._IF___V39*/ meltfptr[38] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2753:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 0 ; } ; } @@ -6359,8 +5919,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2753:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -6369,11 +5928,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ - meltfptr[38] = 0 ; + /*clear*/ /*_._IF___V39*/ meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6413,8 +5970,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OMODNAM__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[2].meltbp_cstring = " prologue */"; - /*_.ADD2OUT__V41*/ - meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V41*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ @@ -6434,8 +5990,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:2759:/ cond"); - /*cond*/ - if (/*_.CURPROL__V43*/ meltfptr[42]) /*then*/ + /*cond*/ if (/*_.CURPROL__V43*/ meltfptr[42]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6445,20 +6000,16 @@ meltlab_endgetargs: /*_#IS_A__L12*/ meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.CURPROL__V43*/ meltfptr[42]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ meltfrout->tabval[16])));; /*^compute*/ - /*_#NOT__L13*/ - meltfnum[12] = + /*_#NOT__L13*/ meltfnum[12] = (!(/*_#IS_A__L12*/ meltfnum[8]));; /*^compute*/ - /*_#_IF___L11*/ - meltfnum[9] = /*_#NOT__L13*/ meltfnum[12];; + /*_#_IF___L11*/ meltfnum[9] = /*_#NOT__L13*/ meltfnum[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2759:/ clear"); - /*clear*/ /*_#IS_A__L12*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#IS_A__L12*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L13*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#NOT__L13*/ meltfnum[12] = 0 ; } ; } @@ -6469,8 +6020,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2759:/ cond"); - /*cond*/ - if (/*_#_IF___L11*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#_IF___L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6497,26 +6047,21 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = 1; - /*_.OUTPUT_C_CODE__V45*/ - meltfptr[44] = meltgc_send((melt_ptr_t)(/*_.CURPROL__V43*/ meltfptr[42]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V45*/ meltfptr[44] = meltgc_send((melt_ptr_t)(/*_.CURPROL__V43*/ meltfptr[42]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2759:/ quasiblock"); - /*_.PROGN___V46*/ - meltfptr[45] = /*_.OUTPUT_C_CODE__V45*/ meltfptr[44];; + /*_.PROGN___V46*/ meltfptr[45] = /*_.OUTPUT_C_CODE__V45*/ meltfptr[44];; /*^compute*/ - /*_._IF___V44*/ - meltfptr[43] = /*_.PROGN___V46*/ meltfptr[45];; + /*_._IF___V44*/ meltfptr[43] = /*_.PROGN___V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2759:/ clear"); - /*clear*/ /*_.OUTPUT_C_CODE__V45*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V45*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V46*/ - meltfptr[45] = 0 ; + /*clear*/ /*_.PROGN___V46*/ meltfptr[45] = 0 ; } ; } @@ -6528,24 +6073,19 @@ meltlab_endgetargs: ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURPAIR__V42*/ meltfptr[38] = NULL; - /*_.CURPROL__V43*/ - meltfptr[42] = NULL; + /*_.CURPROL__V43*/ meltfptr[42] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:2756:/ clear"); - /*clear*/ /*_.CURPAIR__V42*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.CURPAIR__V42*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPROL__V43*/ - meltfptr[42] = 0 ; + /*clear*/ /*_.CURPROL__V43*/ meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L11*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#_IF___L11*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V44*/ - meltfptr[43] = 0 ; + /*clear*/ /*_._IF___V44*/ meltfptr[43] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -6568,8 +6108,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OMODNAM__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[2].meltbp_cstring = " cdata fill */"; - /*_.ADD2OUT__V47*/ - meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V47*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6582,8 +6121,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.OUTPUT_CURFRAME_CDAT_FILL__V48*/ - meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_CDAT_FILL*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.ODATUP__V12*/ meltfptr[6]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CURFRAME_CDAT_FILL__V48*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_CDAT_FILL*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.ODATUP__V12*/ meltfptr[6]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -6606,8 +6144,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OMODNAM__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[2].meltbp_cstring = " cdata done fill */"; - /*_.ADD2OUT__V49*/ - meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6636,8 +6173,7 @@ 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)) @@ -6646,8 +6182,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2770:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L14*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6680,20 +6215,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_initialextensionroutine obody="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBODY__V21*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V51*/ - meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V50*/ - meltfptr[49] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; + /*_._IF___V50*/ meltfptr[49] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2770:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0 ; } ; } @@ -6706,8 +6237,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2770:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -6716,11 +6246,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V50*/ - meltfptr[49] = 0 ; + /*clear*/ /*_._IF___V50*/ meltfptr[49] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6752,12 +6280,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L16*/ - meltfnum[12] = + /*_#IS_LIST__L16*/ meltfnum[12] = (melt_magic_discr((melt_ptr_t)(/*_.OBODY__V21*/ meltfptr[18])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:2774:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L16*/ meltfnum[12]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L16*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6774,17 +6300,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[20]); - /*_.LIST_TO_MULTIPLE__V53*/ - meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.OBODY__V21*/ meltfptr[18]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_TO_MULTIPLE__V53*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.OBODY__V21*/ meltfptr[18]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.BODTUP__V52*/ - meltfptr[50] = /*_.LIST_TO_MULTIPLE__V53*/ meltfptr[49];; + /*_.BODTUP__V52*/ meltfptr[50] = /*_.LIST_TO_MULTIPLE__V53*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2774:/ clear"); - /*clear*/ /*_.LIST_TO_MULTIPLE__V53*/ - meltfptr[49] = 0 ; + /*clear*/ /*_.LIST_TO_MULTIPLE__V53*/ meltfptr[49] = 0 ; } ; } @@ -6798,12 +6321,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L17*/ - meltfnum[8] = + /*_#IS_MULTIPLE__L17*/ meltfnum[8] = (melt_magic_discr((melt_ptr_t)(/*_.OBODY__V21*/ meltfptr[18])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-outobj.melt:2775:/ cond"); - /*cond*/ - if (/*_#IS_MULTIPLE__L17*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#IS_MULTIPLE__L17*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V54*/ meltfptr[49] = /*_.OBODY__V21*/ meltfptr[18];; @@ -6827,8 +6348,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ - if ((/*nil*/NULL)) /*then*/ + /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V56*/ meltfptr[55] = (/*nil*/NULL);; @@ -6857,28 +6377,23 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2777; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBODY__V21*/ meltfptr[18]; - /*_.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[55] = /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56];; + /*_._IFELSE___V56*/ meltfptr[55] = /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2777:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V57*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56] = 0 ; } ; } ; - /*_.IFCPP___V55*/ - meltfptr[54] = /*_._IFELSE___V56*/ meltfptr[55];; + /*_.IFCPP___V55*/ meltfptr[54] = /*_._IFELSE___V56*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2777:/ clear"); - /*clear*/ /*_._IFELSE___V56*/ - meltfptr[55] = 0 ; + /*clear*/ /*_._IFELSE___V56*/ meltfptr[55] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6889,39 +6404,31 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:2776:/ quasiblock"); - /*_.PROGN___V58*/ - meltfptr[56] = /*_.IFCPP___V55*/ meltfptr[54];; + /*_.PROGN___V58*/ meltfptr[56] = /*_.IFCPP___V55*/ meltfptr[54];; /*^compute*/ - /*_._IFELSE___V54*/ - meltfptr[49] = /*_.PROGN___V58*/ meltfptr[56];; + /*_._IFELSE___V54*/ meltfptr[49] = /*_.PROGN___V58*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2775:/ clear"); - /*clear*/ /*_.IFCPP___V55*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.IFCPP___V55*/ meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V58*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.PROGN___V58*/ meltfptr[56] = 0 ; } ; } ; - /*_.BODTUP__V52*/ - meltfptr[50] = /*_._IFELSE___V54*/ meltfptr[49];; + /*_.BODTUP__V52*/ meltfptr[50] = /*_._IFELSE___V54*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2774:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L17*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L17*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V54*/ - meltfptr[49] = 0 ; + /*clear*/ /*_._IFELSE___V54*/ meltfptr[49] = 0 ; } ; } ; - /*_#NBBODY__L18*/ - meltfnum[8] = + /*_#NBBODY__L18*/ meltfnum[8] = (melt_multiple_length((melt_ptr_t)(/*_.BODTUP__V52*/ meltfptr[50])));; #if MELT_HAVE_DEBUG @@ -6943,8 +6450,7 @@ 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)) @@ -6953,8 +6459,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2780:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L19*/ meltfnum[18]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6987,20 +6492,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_initialextensionroutine bodtup="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BODTUP__V52*/ meltfptr[50]; - /*_.MELT_DEBUG_FUN__V60*/ - meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V60*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V59*/ - meltfptr[55] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[54];; + /*_._IF___V59*/ meltfptr[55] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2780:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ - meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ meltfptr[54] = 0 ; } ; } @@ -7013,8 +6514,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2780:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -7023,11 +6523,9 @@ 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[55] = 0 ; + /*clear*/ /*_._IF___V59*/ meltfptr[55] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7065,8 +6563,7 @@ meltlab_endgetargs: argtab[3].meltbp_long = /*_#NBBODY__L18*/ meltfnum[8]; /*^apply.arg*/ argtab[4].meltbp_cstring = " instructions */"; - /*_.ADD2OUT__V61*/ - meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V61*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -7101,8 +6598,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L22*/ - meltfnum[18] = + /*_#MELT_NEED_DBG__L22*/ meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7111,8 +6607,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2785:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L22*/ meltfnum[18]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L22*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7128,8 +6623,7 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ - /*_.DISCRIM__V64*/ - meltfptr[55] = + /*_.DISCRIM__V64*/ meltfptr[55] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.CURBODY__V62*/ meltfptr[49]))));; MELT_CHECK_SIGNAL(); @@ -7159,23 +6653,18 @@ meltlab_endgetargs: argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.DISCRIM__V64*/ meltfptr[55]; /*^apply.arg*/ argtab[9].meltbp_cstring = "\n"; - /*_.MELT_DEBUG_FUN__V65*/ - meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V63*/ - meltfptr[54] = /*_.MELT_DEBUG_FUN__V65*/ meltfptr[64];; + /*_._IF___V63*/ meltfptr[54] = /*_.MELT_DEBUG_FUN__V65*/ meltfptr[64];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2785:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L23*/ - meltfnum[22] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L23*/ meltfnum[22] = 0 ; /*^clear*/ - /*clear*/ /*_.DISCRIM__V64*/ - meltfptr[55] = 0 ; + /*clear*/ /*_.DISCRIM__V64*/ meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V65*/ - meltfptr[64] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V65*/ meltfptr[64] = 0 ; } ; } @@ -7188,8 +6677,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2785:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -7198,11 +6686,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L22*/ - meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L22*/ meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V63*/ - meltfptr[54] = 0 ; + /*clear*/ /*_._IF___V63*/ meltfptr[54] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7229,8 +6715,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:2788:/ cond"); - /*cond*/ - if (/*_.CURBODY__V62*/ meltfptr[49]) /*then*/ + /*cond*/ if (/*_.CURBODY__V62*/ meltfptr[49]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7240,13 +6725,11 @@ meltlab_endgetargs: /*_#IS_NOT_A__L25*/ meltfnum[18] = !melt_is_instance_of((melt_ptr_t)(/*_.CURBODY__V62*/ meltfptr[49]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ meltfrout->tabval[16])));; /*^compute*/ - /*_#_IF___L24*/ - meltfnum[22] = /*_#IS_NOT_A__L25*/ meltfnum[18];; + /*_#_IF___L24*/ meltfnum[22] = /*_#IS_NOT_A__L25*/ meltfnum[18];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2788:/ clear"); - /*clear*/ /*_#IS_NOT_A__L25*/ - meltfnum[18] = 0 ; + /*clear*/ /*_#IS_NOT_A__L25*/ meltfnum[18] = 0 ; } ; } @@ -7257,8 +6740,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:2788:/ cond"); - /*cond*/ - if (/*_#_IF___L24*/ meltfnum[22]) /*then*/ + /*cond*/ if (/*_#_IF___L24*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7285,8 +6767,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L26*/ - meltfnum[18] = + /*_#MELT_NEED_DBG__L26*/ meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7295,8 +6776,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2789:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L26*/ meltfnum[18]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7333,20 +6813,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n real curbody="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURBODY__V62*/ meltfptr[49]; - /*_.MELT_DEBUG_FUN__V68*/ - meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V68*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V67*/ - meltfptr[64] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[54];; + /*_._IF___V67*/ meltfptr[64] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2789:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L27*/ - meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ meltfptr[54] = 0 ; } ; } @@ -7359,8 +6835,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2789:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -7369,11 +6844,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L26*/ - meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V67*/ - meltfptr[64] = 0 ; + /*clear*/ /*_._IF___V67*/ meltfptr[64] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7417,8 +6890,7 @@ meltlab_endgetargs: argtab[3].meltbp_long = /*_#BODIX__L21*/ meltfnum[19]; /*^apply.arg*/ argtab[4].meltbp_cstring = " */"; - /*_.ADD2OUT__V69*/ - meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V69*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7431,8 +6903,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURBODY__V62*/ meltfptr[49]), (melt_ptr_t)((/*!CLASS_OBJINSTR*/ meltfrout->tabval[21]))) ) /*then*/ @@ -7443,8 +6914,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURBODY__V62*/ meltfptr[49]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBI_LOC"); - /*_.CURLOC__V71*/ - meltfptr[70] = slot; + /*_.CURLOC__V71*/ meltfptr[70] = slot; }; ; } @@ -7458,8 +6928,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:2795:/ cond"); - /*cond*/ - if (/*_.CURLOC__V71*/ meltfptr[70]) /*then*/ + /*cond*/ if (/*_.CURLOC__V71*/ meltfptr[70]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7480,17 +6949,14 @@ meltlab_endgetargs: argtab[1].meltbp_long = 1; /*^apply.arg*/ argtab[2].meltbp_cstring = "curbody"; - /*_.OUTPUT_LOCATION__V73*/ - meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.CURLOC__V71*/ meltfptr[70]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V73*/ meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.CURLOC__V71*/ meltfptr[70]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V72*/ - meltfptr[71] = /*_.OUTPUT_LOCATION__V73*/ meltfptr[72];; + /*_._IF___V72*/ meltfptr[71] = /*_.OUTPUT_LOCATION__V73*/ meltfptr[72];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2795:/ clear"); - /*clear*/ /*_.OUTPUT_LOCATION__V73*/ - meltfptr[72] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V73*/ meltfptr[72] = 0 ; } ; } @@ -7501,15 +6967,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V70*/ - meltfptr[64] = /*_._IF___V72*/ meltfptr[71];; + /*_.LET___V70*/ meltfptr[64] = /*_._IF___V72*/ meltfptr[71];; MELT_LOCATION("warmelt-outobj.melt:2793:/ clear"); - /*clear*/ /*_.CURLOC__V71*/ - meltfptr[70] = 0 ; + /*clear*/ /*_.CURLOC__V71*/ meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V72*/ - meltfptr[71] = 0 ; + /*clear*/ /*_._IF___V72*/ meltfptr[71] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -7524,32 +6987,25 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = 1; - /*_.OUTPUT_C_CODE__V74*/ - meltfptr[72] = meltgc_send((melt_ptr_t)(/*_.CURBODY__V62*/ meltfptr[49]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V74*/ meltfptr[72] = meltgc_send((melt_ptr_t)(/*_.CURBODY__V62*/ meltfptr[49]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2788:/ quasiblock"); - /*_.PROGN___V75*/ - meltfptr[70] = /*_.OUTPUT_C_CODE__V74*/ meltfptr[72];; + /*_.PROGN___V75*/ meltfptr[70] = /*_.OUTPUT_C_CODE__V74*/ meltfptr[72];; /*^compute*/ - /*_._IF___V66*/ - meltfptr[55] = /*_.PROGN___V75*/ meltfptr[70];; + /*_._IF___V66*/ meltfptr[55] = /*_.PROGN___V75*/ meltfptr[70];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2788:/ clear"); - /*clear*/ /*_.ADD2OUT__V69*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.ADD2OUT__V69*/ meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V70*/ - meltfptr[64] = 0 ; + /*clear*/ /*_.LET___V70*/ meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V74*/ - meltfptr[72] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V74*/ meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V75*/ - meltfptr[70] = 0 ; + /*clear*/ /*_.PROGN___V75*/ meltfptr[70] = 0 ; } ; } @@ -7565,17 +7021,13 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:2782:/ clear"); - /*clear*/ /*_.CURBODY__V62*/ - meltfptr[49] = 0 ; + /*clear*/ /*_.CURBODY__V62*/ meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_#BODIX__L21*/ - meltfnum[19] = 0 ; + /*clear*/ /*_#BODIX__L21*/ meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L24*/ - meltfnum[22] = 0 ; + /*clear*/ /*_#_IF___L24*/ meltfnum[22] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V66*/ - meltfptr[55] = 0 ; + /*clear*/ /*_._IF___V66*/ meltfptr[55] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -7598,8 +7050,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OMODNAM__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[2].meltbp_cstring = " --*/"; - /*_.ADD2OUT__V76*/ - meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V76*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7613,8 +7064,7 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[0].meltbp_cstring = "\n goto meltlabend_rout;\nmeltlabend_rout:\ \n return (melt_ptr_t)"; - /*_.ADD2OUT__V77*/ - meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V77*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7631,8 +7081,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = 1; - /*_.OUTPUT_C_CODE__V78*/ - meltfptr[64] = meltgc_send((melt_ptr_t)(/*_.ORETVAL__V23*/ meltfptr[22]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V78*/ meltfptr[64] = meltgc_send((melt_ptr_t)(/*_.ORETVAL__V23*/ meltfptr[22]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -7653,8 +7102,7 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ONAME__V11*/ meltfptr[4]; /*^apply.arg*/ argtab[4].meltbp_cstring = " */"; - /*_.ADD2OUT__V79*/ - meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V79*/ meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7683,137 +7131,95 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:2772:/ clear"); - /*clear*/ /*_#IS_LIST__L16*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#IS_LIST__L16*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.BODTUP__V52*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.BODTUP__V52*/ meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_#NBBODY__L18*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#NBBODY__L18*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V61*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.ADD2OUT__V61*/ meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V76*/ - meltfptr[71] = 0 ; + /*clear*/ /*_.ADD2OUT__V76*/ meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V77*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.ADD2OUT__V77*/ meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V78*/ - meltfptr[64] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V78*/ meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V79*/ - meltfptr[72] = 0 ; + /*clear*/ /*_.ADD2OUT__V79*/ meltfptr[72] = 0 ; MELT_LOCATION("warmelt-outobj.melt:2670:/ clear"); - /*clear*/ /*_.ONAME__V11*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.ONAME__V11*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.ODATUP__V12*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.ODATUP__V12*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.ORFILL__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.ORFILL__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.OPROLOG__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.OPROLOG__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.OMODU__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.OMODU__V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.OMODNAM__V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.OMODNAM__V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.LET___V17*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.OMODCNAME__V20*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.OMODCNAME__V20*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.OBODY__V21*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.OBODY__V21*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.ONBVAL__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.ONBVAL__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_#NBVAL__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NBVAL__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#OBJ_HASH__L6*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#OBJ_HASH__L6*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_#pcIRAW__L7*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#pcIRAW__L7*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_#MINIHASH__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MINIHASH__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.ORETVAL__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.ORETVAL__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.ADD2OUT__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.ADD2OUT__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.ADD2OUT__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT__V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.ADD2OUT__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.INITIAL_CLASSY_FRAME_NAME__V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.INITIAL_CLASSY_FRAME_NAME__V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.ADD2OUT__V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.ADD2OUT__V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.ADD2OUT__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.LAMBDA___V33*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V35*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.ADD2OUT__V36*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.ADD2OUT__V37*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_CURFRAME_CDAT_STRUCT__V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.OUTPUT_CURFRAME_CDAT_STRUCT__V38*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V41*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.ADD2OUT__V41*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V47*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.ADD2OUT__V47*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_CURFRAME_CDAT_FILL__V48*/ - meltfptr[45] = 0 ; + /*clear*/ /*_.OUTPUT_CURFRAME_CDAT_FILL__V48*/ meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V49*/ - meltfptr[48] = 0 ; + /*clear*/ /*_.ADD2OUT__V49*/ meltfptr[48] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2665:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[5] = 0 ; } ; @@ -7895,8 +7301,7 @@ meltrout_54_WARMELTmiOUTOBJ_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_54_WARMELTmiOUTOBJ_LAMBDA_cl4 fromline 1756 */ - /* classy proc frame meltrout_54_WARMELTmiOUTOBJ_LAMBDA_cl4 */ - MeltFrame_meltrout_54_WARMELTmiOUTOBJ_LAMBDA_cl4 + /* classy proc frame meltrout_54_WARMELTmiOUTOBJ_LAMBDA_cl4 */ MeltFrame_meltrout_54_WARMELTmiOUTOBJ_LAMBDA_cl4 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_54_WARMELTmiOUTOBJ_LAMBDA_cl4 fromline 1785*/ #if ENABLE_CHECKING @@ -7909,8 +7314,7 @@ meltrout_54_WARMELTmiOUTOBJ_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl4", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -7920,14 +7324,12 @@ meltrout_54_WARMELTmiOUTOBJ_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:2740:/ getarg"); - /*_.ROU__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.ROU__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DSBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DSBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DSBUF__V3*/ meltfptr[2])) != NULL); ; @@ -7963,8 +7365,7 @@ meltlab_endgetargs: argtab[3].meltbp_long = 2742; /*^apply.arg*/ argtab[4].meltbp_cstring = " */ "; - /*_.ADD2OUT__V4*/ - meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.DSBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.DSBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7973,8 +7374,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:2740:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.ADD2OUT__V4*/ meltfptr[3];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.ADD2OUT__V4*/ meltfptr[3];; { MELT_LOCATION("warmelt-outobj.melt:2740:/ locexp"); @@ -7989,13 +7389,11 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.ADD2OUT__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ADD2OUT__V4*/ meltfptr[3] = 0 ; } ; @@ -8077,8 +7475,7 @@ meltrout_55_WARMELTmiOUTOBJ_OUTPUCOD_GETARG(meltclosure_ptr_t meltclosp_, melt_p /* end of frame for routine meltrout_55_WARMELTmiOUTOBJ_OUTPUCOD_GETARG fromline 1756 */ - /* classy proc frame meltrout_55_WARMELTmiOUTOBJ_OUTPUCOD_GETARG */ - MeltFrame_meltrout_55_WARMELTmiOUTOBJ_OUTPUCOD_GETARG + /* classy proc frame meltrout_55_WARMELTmiOUTOBJ_OUTPUCOD_GETARG */ MeltFrame_meltrout_55_WARMELTmiOUTOBJ_OUTPUCOD_GETARG meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_55_WARMELTmiOUTOBJ_OUTPUCOD_GETARG fromline 1785*/ #if ENABLE_CHECKING @@ -8091,8 +7488,7 @@ meltrout_55_WARMELTmiOUTOBJ_OUTPUCOD_GETARG(meltclosure_ptr_t meltclosp_, melt_p #define meltframe meltfram__ melt_trace_start("OUTPUCOD_GETARG", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -8102,30 +7498,26 @@ meltrout_55_WARMELTmiOUTOBJ_OUTPUCOD_GETARG(meltclosure_ptr_t meltclosp_, melt_p /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:2824:/ getarg"); - /*_.GARG__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.GARG__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -8145,12 +7537,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ - meltfnum[1] = + /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.GARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGETARG*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-outobj.melt:2825:/ cond"); - /*cond*/ - if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; @@ -8179,31 +7569,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2825; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GARG__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2825:/ 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-outobj.melt:2825:/ clear"); - /*clear*/ /*_#IS_A__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8219,8 +7603,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GARG__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OBARG_OBLOC"); - /*_.OLOC__V9*/ - meltfptr[5] = slot; + /*_.OLOC__V9*/ meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:2827:/ getslot"); @@ -8228,8 +7611,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GARG__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBI_LOC"); - /*_.NLOC__V10*/ - meltfptr[9] = slot; + /*_.NLOC__V10*/ meltfptr[9] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:2828:/ getslot"); @@ -8237,20 +7619,17 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GARG__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "OBARG_BIND"); - /*_.OBIND__V11*/ - meltfptr[10] = slot; + /*_.OBIND__V11*/ meltfptr[10] = slot; }; ; - /*_#RKBIND__L3*/ - meltfnum[1] = + /*_#RKBIND__L3*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.OBIND__V11*/ meltfptr[10])));; MELT_LOCATION("warmelt-outobj.melt:2830:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBIND__V11*/ meltfptr[10]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.CTYBIND__V12*/ - meltfptr[11] = slot; + /*_.CTYBIND__V12*/ meltfptr[11] = slot; }; ; @@ -8263,12 +7642,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[3] = + /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.OBIND__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-outobj.melt:2832:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; @@ -8297,31 +7674,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2832; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBIND__V11*/ meltfptr[10]; - /*_.MELT_ASSERT_FAILURE_FUN__V15*/ - meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V14*/ - meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; + /*_._IFELSE___V14*/ meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2832:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = 0 ; } ; } ; - /*_.IFCPP___V13*/ - meltfptr[12] = /*_._IFELSE___V14*/ meltfptr[13];; + /*_.IFCPP___V13*/ meltfptr[12] = /*_._IFELSE___V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2832:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_._IFELSE___V14*/ meltfptr[13] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8343,8 +7714,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "getarg"; - /*_.OUTPUT_LOCATION__V16*/ - meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NLOC__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V16*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NLOC__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -8357,12 +7727,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ - meltfnum[3] = + /*_#IS_A__L5*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-outobj.melt:2834:/ cond"); - /*cond*/ - if (/*_#IS_A__L5*/ meltfnum[3]) /*then*/ + /*cond*/ if (/*_#IS_A__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; @@ -8391,31 +7759,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2834; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OLOC__V9*/ meltfptr[5]; - /*_.MELT_ASSERT_FAILURE_FUN__V19*/ - meltfptr[18] = 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__V19*/ meltfptr[18] = 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___V18*/ - meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; + /*_._IFELSE___V18*/ meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2834:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = 0 ; } ; } ; - /*_.IFCPP___V17*/ - meltfptr[13] = /*_._IFELSE___V18*/ meltfptr[17];; + /*_.IFCPP___V17*/ meltfptr[13] = /*_._IFELSE___V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2834:/ clear"); - /*clear*/ /*_#IS_A__L5*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#IS_A__L5*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_._IFELSE___V18*/ meltfptr[17] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8433,12 +7795,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ - meltfnum[3] = + /*_#IS_A__L6*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.CTYBIND__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-outobj.melt:2835:/ cond"); - /*cond*/ - if (/*_#IS_A__L6*/ meltfnum[3]) /*then*/ + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[17] = (/*nil*/NULL);; @@ -8467,31 +7827,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2835; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYBIND__V12*/ meltfptr[11]; - /*_.MELT_ASSERT_FAILURE_FUN__V22*/ - meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V21*/ - meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; + /*_._IFELSE___V21*/ meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2835:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; } ; } ; - /*_.IFCPP___V20*/ - meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[17];; + /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2835:/ clear"); - /*clear*/ /*_#IS_A__L6*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#IS_A__L6*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ - meltfptr[17] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ meltfptr[17] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8503,8 +7857,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:73:/ cond"); - /*cond*/ - if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ + /*cond*/ if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8521,17 +7874,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GARG__V2*/ meltfptr[1]; - /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V24*/ - meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V24*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V23*/ - meltfptr[21] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V24*/ meltfptr[17];; + /*_._IF___V23*/ meltfptr[21] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V24*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:73:/ clear"); - /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V24*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V24*/ meltfptr[17] = 0 ; } ; } @@ -8545,12 +7895,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#eqeqI__L7*/ - meltfnum[3] = + /*_#eqeqI__L7*/ meltfnum[3] = ((/*_#RKBIND__L3*/ meltfnum[1]) == (0));; MELT_LOCATION("warmelt-outobj.melt:2837:/ cond"); - /*cond*/ - if (/*_#eqeqI__L7*/ meltfnum[3]) /*then*/ + /*cond*/ if (/*_#eqeqI__L7*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8567,12 +7915,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L8*/ - meltfnum[7] = + /*_#eqeq__L8*/ meltfnum[7] = ((/*_.CTYBIND__V12*/ meltfptr[11]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-outobj.melt:2839:/ cond"); - /*cond*/ - if (/*_#eqeq__L8*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#eqeq__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V26*/ meltfptr[25] = (/*nil*/NULL);; @@ -8601,31 +7947,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2839; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYBIND__V12*/ meltfptr[11]; - /*_.MELT_ASSERT_FAILURE_FUN__V27*/ - meltfptr[26] = 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__V27*/ meltfptr[26] = 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___V26*/ - meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];; + /*_._IFELSE___V26*/ meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2839:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26] = 0 ; } ; } ; - /*_.IFCPP___V25*/ - meltfptr[17] = /*_._IFELSE___V26*/ meltfptr[25];; + /*_.IFCPP___V25*/ meltfptr[17] = /*_._IFELSE___V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2839:/ clear"); - /*clear*/ /*_#eqeq__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#eqeq__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V26*/ meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8647,15 +7987,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V28*/ - meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V28*/ meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:2841:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = (melt_ptr_t) meltfirstargp_;")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = (melt_ptr_t) meltfirstargp_;")); } ; @@ -8670,11 +8008,9 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2837:/ clear"); - /*clear*/ /*_.IFCPP___V25*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.IFCPP___V25*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V28*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V28*/ meltfptr[26] = 0 ; } ; } @@ -8693,8 +8029,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYBIND__V12*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CTYPE_PARCHAR"); - /*_.PARC__V29*/ - meltfptr[25] = slot; + /*_.PARC__V29*/ meltfptr[25] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:2847:/ getslot"); @@ -8702,23 +8037,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYBIND__V12*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 7, "CTYPE_ARGFIELD"); - /*_.ARGF__V30*/ - meltfptr[17] = slot; + /*_.ARGF__V30*/ meltfptr[17] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L9*/ - meltfnum[7] = + /*_#IS_STRING__L9*/ meltfnum[7] = (melt_magic_discr((melt_ptr_t)(/*_.PARC__V29*/ meltfptr[25])) == MELTOBMAG_STRING);; /*^compute*/ - /*_#NOT__L10*/ - meltfnum[9] = + /*_#NOT__L10*/ meltfnum[9] = (!(/*_#IS_STRING__L9*/ meltfnum[7]));; MELT_LOCATION("warmelt-outobj.melt:2849:/ cond"); - /*cond*/ - if (/*_#NOT__L10*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#NOT__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8730,8 +8061,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYBIND__V12*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V31*/ - meltfptr[26] = slot; + /*_.NAMED_NAME__V31*/ meltfptr[26] = slot; }; ; @@ -8743,8 +8073,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2849:/ clear"); - /*clear*/ /*_.NAMED_NAME__V31*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.NAMED_NAME__V31*/ meltfptr[26] = 0 ; } ; } /*noelse*/ @@ -8752,12 +8081,10 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2852:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "if (meltxargdescr_[")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "if (meltxargdescr_[")); } ; - /*_#miI__L11*/ - meltfnum[10] = + /*_#miI__L11*/ meltfnum[10] = ((/*_#RKBIND__L3*/ meltfnum[1]) - (1));; { @@ -8768,23 +8095,20 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2854:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "] != ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "] != ")); } ; { MELT_LOCATION("warmelt-outobj.melt:2855:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.PARC__V29*/ meltfptr[25]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.PARC__V29*/ meltfptr[25]))); } ; { MELT_LOCATION("warmelt-outobj.melt:2856:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ") goto meltlab_endgetargs;")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ") goto meltlab_endgetargs;")); } ; @@ -8796,12 +8120,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L12*/ - meltfnum[11] = + /*_#eqeq__L12*/ meltfnum[11] = ((/*_.CTYBIND__V12*/ meltfptr[11]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-outobj.melt:2858:/ cond"); - /*cond*/ - if (/*_#eqeq__L12*/ meltfnum[11]) /*then*/ + /*cond*/ if (/*_#eqeq__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8822,19 +8144,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V32*/ - meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V32*/ meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:2861:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = (meltxargtab_[")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = (meltxargtab_[")); } ; - /*_#miI__L13*/ - meltfnum[12] = + /*_#miI__L13*/ meltfnum[12] = ((/*_#RKBIND__L3*/ meltfnum[1]) - (1));; { @@ -8845,12 +8164,10 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2863:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "].meltbp_aptr) ? (*(meltxargtab_[")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "].meltbp_aptr) ? (*(meltxargtab_[")); } ; - /*_#miI__L14*/ - meltfnum[13] = + /*_#miI__L14*/ meltfnum[13] = ((/*_#RKBIND__L3*/ meltfnum[1]) - (1));; { @@ -8861,8 +8178,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2865:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "].meltbp_aptr)) : NULL;")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "].meltbp_aptr)) : NULL;")); } ; @@ -8874,8 +8190,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2867:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "gcc_assert(melt_discr((melt_ptr_t)(")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "gcc_assert(melt_discr((melt_ptr_t)(")); } ; @@ -8892,15 +8207,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V33*/ - meltfptr[32] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V33*/ meltfptr[32] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:2869:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ")) != NULL);")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ")) != NULL);")); } ; @@ -8915,17 +8228,13 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2858:/ clear"); - /*clear*/ /*_.OUTPUT_C_CODE__V32*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V32*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_#miI__L13*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#miI__L13*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#miI__L14*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#miI__L14*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V33*/ meltfptr[32] = 0 ; } ; } @@ -8950,19 +8259,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V34*/ - meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V34*/ meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:2874:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = meltxargtab_[")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = meltxargtab_[")); } ; - /*_#miI__L15*/ - meltfnum[12] = + /*_#miI__L15*/ meltfnum[12] = ((/*_#RKBIND__L3*/ meltfnum[1]) - (1));; { @@ -8973,23 +8279,20 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2876:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "].")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "].")); } ; { MELT_LOCATION("warmelt-outobj.melt:2877:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.ARGF__V30*/ meltfptr[17]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.ARGF__V30*/ meltfptr[17]))); } ; { MELT_LOCATION("warmelt-outobj.melt:2878:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); } ; MELT_LOCATION("warmelt-outobj.melt:2872:/ quasiblock"); @@ -8998,11 +8301,9 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2858:/ clear"); - /*clear*/ /*_.OUTPUT_C_CODE__V34*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V34*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_#miI__L15*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#miI__L15*/ meltfnum[12] = 0 ; } ; } @@ -9015,23 +8316,17 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:2844:/ clear"); - /*clear*/ /*_.PARC__V29*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.PARC__V29*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.ARGF__V30*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.ARGF__V30*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L9*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#IS_STRING__L9*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L10*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#NOT__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#miI__L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#miI__L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L12*/ - meltfnum[11] = 0 ; + /*clear*/ /*_#eqeq__L12*/ meltfnum[11] = 0 ; /*epilog*/ } ; @@ -9047,12 +8342,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L16*/ - meltfnum[13] = + /*_#STRBUF_USEDLENGTH__L16*/ meltfnum[13] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:2884:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[9])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[10]))) ) /*then*/ @@ -9063,8 +8356,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[9])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V36*/ - meltfptr[26] = slot; + /*_.REFERENCED_VALUE__V36*/ meltfptr[26] = slot; }; ; } @@ -9075,16 +8367,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L17*/ - meltfnum[12] = + /*_#GET_INT__L17*/ meltfnum[12] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V36*/ meltfptr[26])));; /*^compute*/ - /*_#ltI__L18*/ - meltfnum[7] = + /*_#ltI__L18*/ meltfnum[7] = ((/*_#STRBUF_USEDLENGTH__L16*/ meltfnum[13]) < (/*_#GET_INT__L17*/ meltfnum[12]));; MELT_LOCATION("warmelt-outobj.melt:2883:/ cond"); - /*cond*/ - if (/*_#ltI__L18*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#ltI__L18*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V37*/ meltfptr[25] = (/*nil*/NULL);; @@ -9113,40 +8402,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2883; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V38*/ - meltfptr[17] = 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__V38*/ meltfptr[17] = 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___V37*/ - meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[17];; + /*_._IFELSE___V37*/ meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2883:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V38*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V35*/ - meltfptr[32] = /*_._IFELSE___V37*/ meltfptr[25];; + /*_.IFCPP___V35*/ meltfptr[32] = /*_._IFELSE___V37*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2883:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L16*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L16*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V36*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V36*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L17*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#GET_INT__L17*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L18*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#ltI__L18*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V37*/ - meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V37*/ meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9155,53 +8435,39 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V8*/ - meltfptr[6] = /*_.IFCPP___V35*/ meltfptr[32];; + /*_.LET___V8*/ meltfptr[6] = /*_.IFCPP___V35*/ meltfptr[32];; MELT_LOCATION("warmelt-outobj.melt:2826:/ clear"); - /*clear*/ /*_.OLOC__V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.OLOC__V9*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.NLOC__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.NLOC__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.OBIND__V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.OBIND__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_#RKBIND__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#RKBIND__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYBIND__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.CTYBIND__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_LOCATION__V16*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V16*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V17*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V20*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V23*/ - meltfptr[21] = 0 ; + /*clear*/ /*_._IF___V23*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeqI__L7*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#eqeqI__L7*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V35*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.IFCPP___V35*/ meltfptr[32] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:2824:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; { MELT_LOCATION("warmelt-outobj.melt:2824:/ locexp"); @@ -9216,16 +8482,13 @@ 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*/ /*_.LET___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.LET___V8*/ meltfptr[6] = 0 ; } ; @@ -9307,8 +8570,7 @@ meltrout_56_WARMELTmiOUTOBJ_OUTPUCOD_GETARGREST(meltclosure_ptr_t meltclosp_, me /* end of frame for routine meltrout_56_WARMELTmiOUTOBJ_OUTPUCOD_GETARGREST fromline 1756 */ - /* classy proc frame meltrout_56_WARMELTmiOUTOBJ_OUTPUCOD_GETARGREST */ - MeltFrame_meltrout_56_WARMELTmiOUTOBJ_OUTPUCOD_GETARGREST + /* classy proc frame meltrout_56_WARMELTmiOUTOBJ_OUTPUCOD_GETARGREST */ MeltFrame_meltrout_56_WARMELTmiOUTOBJ_OUTPUCOD_GETARGREST meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_56_WARMELTmiOUTOBJ_OUTPUCOD_GETARGREST fromline 1785*/ #if ENABLE_CHECKING @@ -9321,8 +8583,7 @@ meltrout_56_WARMELTmiOUTOBJ_OUTPUCOD_GETARGREST(meltclosure_ptr_t meltclosp_, me #define meltframe meltfram__ melt_trace_start("OUTPUCOD_GETARGREST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -9332,30 +8593,26 @@ meltrout_56_WARMELTmiOUTOBJ_OUTPUCOD_GETARGREST(meltclosure_ptr_t meltclosp_, me /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:2890:/ getarg"); - /*_.GARG__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.GARG__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -9375,12 +8632,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ - meltfnum[1] = + /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.GARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGETARGREST*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-outobj.melt:2891:/ cond"); - /*cond*/ - if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; @@ -9409,31 +8664,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2891; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GARG__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2891:/ 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-outobj.melt:2891:/ clear"); - /*clear*/ /*_#IS_A__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9449,8 +8698,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GARG__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OBARG_OBLOC"); - /*_.OLOC__V9*/ - meltfptr[5] = slot; + /*_.OLOC__V9*/ meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:2893:/ getslot"); @@ -9458,8 +8706,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GARG__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBI_LOC"); - /*_.NLOC__V10*/ - meltfptr[9] = slot; + /*_.NLOC__V10*/ meltfptr[9] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:2894:/ getslot"); @@ -9467,13 +8714,11 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GARG__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "OBARG_BIND"); - /*_.OBIND__V11*/ - meltfptr[10] = slot; + /*_.OBIND__V11*/ meltfptr[10] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:2895:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGETARGREST*/ meltfrout->tabval[0]))) ) /*then*/ @@ -9484,8 +8729,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GARG__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "OBARG_REST"); - /*_.OREST__V12*/ - meltfptr[11] = slot; + /*_.OREST__V12*/ meltfptr[11] = slot; }; ; } @@ -9496,16 +8740,14 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#RKBIND__L3*/ - meltfnum[1] = + /*_#RKBIND__L3*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.OBIND__V11*/ meltfptr[10])));; MELT_LOCATION("warmelt-outobj.melt:2897:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBIND__V11*/ meltfptr[10]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.CTYBIND__V13*/ - meltfptr[12] = slot; + /*_.CTYBIND__V13*/ meltfptr[12] = slot; }; ; @@ -9536,12 +8778,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[3] = + /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.OBIND__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-outobj.melt:2901:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; @@ -9570,31 +8810,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2901; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBIND__V11*/ meltfptr[10]; - /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = 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__V18*/ meltfptr[17] = 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___V17*/ - meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; + /*_._IFELSE___V17*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2901:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V16*/ - meltfptr[15] = /*_._IFELSE___V17*/ meltfptr[16];; + /*_.IFCPP___V16*/ meltfptr[15] = /*_._IFELSE___V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2901:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9616,8 +8850,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "getarg"; - /*_.OUTPUT_LOCATION__V19*/ - meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.NLOC__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V19*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.NLOC__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -9630,12 +8863,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ - meltfnum[3] = + /*_#IS_A__L5*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-outobj.melt:2903:/ cond"); - /*cond*/ - if (/*_#IS_A__L5*/ meltfnum[3]) /*then*/ + /*cond*/ if (/*_#IS_A__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[20] = (/*nil*/NULL);; @@ -9664,31 +8895,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2903; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OLOC__V9*/ meltfptr[5]; - /*_.MELT_ASSERT_FAILURE_FUN__V22*/ - meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V21*/ - meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; + /*_._IFELSE___V21*/ meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2903:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; } ; } ; - /*_.IFCPP___V20*/ - meltfptr[16] = /*_._IFELSE___V21*/ meltfptr[20];; + /*_.IFCPP___V20*/ meltfptr[16] = /*_._IFELSE___V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2903:/ clear"); - /*clear*/ /*_#IS_A__L5*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#IS_A__L5*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9706,12 +8931,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ - meltfnum[3] = + /*_#IS_A__L6*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.CTYBIND__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-outobj.melt:2904:/ cond"); - /*cond*/ - if (/*_#IS_A__L6*/ meltfnum[3]) /*then*/ + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V24*/ meltfptr[20] = (/*nil*/NULL);; @@ -9740,31 +8963,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2904; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYBIND__V13*/ meltfptr[12]; - /*_.MELT_ASSERT_FAILURE_FUN__V25*/ - meltfptr[24] = 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__V25*/ meltfptr[24] = 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___V24*/ - meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; + /*_._IFELSE___V24*/ meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2904:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = 0 ; } ; } ; - /*_.IFCPP___V23*/ - meltfptr[21] = /*_._IFELSE___V24*/ meltfptr[20];; + /*_.IFCPP___V23*/ meltfptr[21] = /*_._IFELSE___V24*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2904:/ clear"); - /*clear*/ /*_#IS_A__L6*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#IS_A__L6*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V24*/ - meltfptr[20] = 0 ; + /*clear*/ /*_._IFELSE___V24*/ meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9776,8 +8993,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:73:/ cond"); - /*cond*/ - if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ + /*cond*/ if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9794,17 +9010,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GARG__V2*/ meltfptr[1]; - /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V27*/ - meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V27*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V26*/ - meltfptr[24] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V27*/ meltfptr[20];; + /*_._IF___V26*/ meltfptr[24] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V27*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:73:/ clear"); - /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V27*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V27*/ meltfptr[20] = 0 ; } ; } @@ -9818,12 +9031,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#eqeqI__L7*/ - meltfnum[3] = + /*_#eqeqI__L7*/ meltfnum[3] = ((/*_#RKBIND__L3*/ meltfnum[1]) == (0));; MELT_LOCATION("warmelt-outobj.melt:2906:/ cond"); - /*cond*/ - if (/*_#eqeqI__L7*/ meltfnum[3]) /*then*/ + /*cond*/ if (/*_#eqeqI__L7*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9840,12 +9051,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L8*/ - meltfnum[7] = + /*_#eqeq__L8*/ meltfnum[7] = ((/*_.CTYBIND__V13*/ meltfptr[12]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-outobj.melt:2908:/ cond"); - /*cond*/ - if (/*_#eqeq__L8*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#eqeq__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V29*/ meltfptr[28] = (/*nil*/NULL);; @@ -9874,31 +9083,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2908; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYBIND__V13*/ meltfptr[12]; - /*_.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[28] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29];; + /*_._IFELSE___V29*/ meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2908:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29] = 0 ; } ; } ; - /*_.IFCPP___V28*/ - meltfptr[20] = /*_._IFELSE___V29*/ meltfptr[28];; + /*_.IFCPP___V28*/ meltfptr[20] = /*_._IFELSE___V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2908:/ clear"); - /*clear*/ /*_#eqeq__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#eqeq__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_._IFELSE___V29*/ meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9920,15 +9123,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V31*/ - meltfptr[29] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V31*/ meltfptr[29] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:2910:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = (melt_ptr_t) meltfirstargp_;")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = (melt_ptr_t) meltfirstargp_;")); } ; @@ -9943,11 +9144,9 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2906:/ clear"); - /*clear*/ /*_.IFCPP___V28*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.IFCPP___V28*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V31*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V31*/ meltfptr[29] = 0 ; } ; } @@ -9966,8 +9165,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYBIND__V13*/ meltfptr[12]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CTYPE_PARCHAR"); - /*_.PARC__V32*/ - meltfptr[28] = slot; + /*_.PARC__V32*/ meltfptr[28] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:2916:/ getslot"); @@ -9975,23 +9173,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYBIND__V13*/ meltfptr[12]) /*=obj*/; melt_object_get_field(slot,obj, 7, "CTYPE_ARGFIELD"); - /*_.ARGF__V33*/ - meltfptr[20] = slot; + /*_.ARGF__V33*/ meltfptr[20] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L9*/ - meltfnum[7] = + /*_#IS_STRING__L9*/ meltfnum[7] = (melt_magic_discr((melt_ptr_t)(/*_.PARC__V32*/ meltfptr[28])) == MELTOBMAG_STRING);; /*^compute*/ - /*_#NOT__L10*/ - meltfnum[9] = + /*_#NOT__L10*/ meltfnum[9] = (!(/*_#IS_STRING__L9*/ meltfnum[7]));; MELT_LOCATION("warmelt-outobj.melt:2918:/ cond"); - /*cond*/ - if (/*_#NOT__L10*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#NOT__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10003,8 +9197,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYBIND__V13*/ meltfptr[12]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V34*/ - meltfptr[29] = slot; + /*_.NAMED_NAME__V34*/ meltfptr[29] = slot; }; ; @@ -10016,8 +9209,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2918:/ clear"); - /*clear*/ /*_.NAMED_NAME__V34*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.NAMED_NAME__V34*/ meltfptr[29] = 0 ; } ; } /*noelse*/ @@ -10025,12 +9217,10 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2921:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "if (meltxargdescr_[")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "if (meltxargdescr_[")); } ; - /*_#miI__L11*/ - meltfnum[10] = + /*_#miI__L11*/ meltfnum[10] = ((/*_#RKBIND__L3*/ meltfnum[1]) - (1));; { @@ -10041,27 +9231,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2923:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "] != ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "] != ")); } ; { MELT_LOCATION("warmelt-outobj.melt:2924:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.PARC__V32*/ meltfptr[28]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.PARC__V32*/ meltfptr[28]))); } ; { MELT_LOCATION("warmelt-outobj.melt:2925:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ") { /*getargrest*/")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ") { /*getargrest*/")); } ; - /*_#plI__L12*/ - meltfnum[11] = + /*_#plI__L12*/ meltfnum[11] = ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));; { @@ -10072,35 +9258,30 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2927:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.OVARIADICINDEX__V14*/ meltfptr[13]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.OVARIADICINDEX__V14*/ meltfptr[13]))); } ; { MELT_LOCATION("warmelt-outobj.melt:2928:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = ")); } ; { MELT_LOCATION("warmelt-outobj.melt:2929:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.OVARIADICLENGTH__V15*/ meltfptr[14]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.OVARIADICLENGTH__V15*/ meltfptr[14]))); } ; { MELT_LOCATION("warmelt-outobj.melt:2930:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); } ; - /*_#plI__L13*/ - meltfnum[12] = + /*_#plI__L13*/ meltfnum[12] = ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));; { @@ -10111,8 +9292,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2932:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "goto meltlab_endgetargs;")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "goto meltlab_endgetargs;")); } ; @@ -10124,8 +9304,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2934:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "}")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "}")); } ; @@ -10137,16 +9316,14 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2936:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.OVARIADICINDEX__V14*/ meltfptr[13]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.OVARIADICINDEX__V14*/ meltfptr[13]))); } ; { MELT_LOCATION("warmelt-outobj.melt:2937:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = ")); } ; @@ -10158,8 +9335,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2939:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); } ; @@ -10171,12 +9347,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L14*/ - meltfnum[13] = + /*_#eqeq__L14*/ meltfnum[13] = ((/*_.CTYBIND__V13*/ meltfptr[12]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-outobj.melt:2941:/ cond"); - /*cond*/ - if (/*_#eqeq__L14*/ meltfnum[13]) /*then*/ + /*cond*/ if (/*_#eqeq__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10197,19 +9371,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V35*/ - meltfptr[29] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V35*/ meltfptr[29] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:2944:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = (meltxargtab_[")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = (meltxargtab_[")); } ; - /*_#miI__L15*/ - meltfnum[14] = + /*_#miI__L15*/ meltfnum[14] = ((/*_#RKBIND__L3*/ meltfnum[1]) - (1));; { @@ -10220,12 +9391,10 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2946:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "].meltbp_aptr) ? (*(meltxargtab_[")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "].meltbp_aptr) ? (*(meltxargtab_[")); } ; - /*_#miI__L16*/ - meltfnum[15] = + /*_#miI__L16*/ meltfnum[15] = ((/*_#RKBIND__L3*/ meltfnum[1]) - (1));; { @@ -10236,8 +9405,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2948:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "].meltbp_aptr)) : NULL;")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "].meltbp_aptr)) : NULL;")); } ; @@ -10249,8 +9417,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2950:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "gcc_assert(melt_discr((melt_ptr_t)(")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "gcc_assert(melt_discr((melt_ptr_t)(")); } ; @@ -10267,15 +9434,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V36*/ - meltfptr[35] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V36*/ meltfptr[35] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:2952:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ")) != NULL);")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ")) != NULL);")); } ; @@ -10290,17 +9455,13 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2941:/ clear"); - /*clear*/ /*_.OUTPUT_C_CODE__V35*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V35*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_#miI__L15*/ - meltfnum[14] = 0 ; + /*clear*/ /*_#miI__L15*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_#miI__L16*/ - meltfnum[15] = 0 ; + /*clear*/ /*_#miI__L16*/ meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V36*/ meltfptr[35] = 0 ; } ; } @@ -10325,19 +9486,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V37*/ - meltfptr[29] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V37*/ meltfptr[29] = meltgc_send((melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:2957:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = meltxargtab_[")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = meltxargtab_[")); } ; - /*_#miI__L17*/ - meltfnum[14] = + /*_#miI__L17*/ meltfnum[14] = ((/*_#RKBIND__L3*/ meltfnum[1]) - (1));; { @@ -10348,23 +9506,20 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2959:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "].")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "].")); } ; { MELT_LOCATION("warmelt-outobj.melt:2960:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.ARGF__V33*/ meltfptr[20]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.ARGF__V33*/ meltfptr[20]))); } ; { MELT_LOCATION("warmelt-outobj.melt:2961:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); } ; MELT_LOCATION("warmelt-outobj.melt:2955:/ quasiblock"); @@ -10373,11 +9528,9 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2941:/ clear"); - /*clear*/ /*_.OUTPUT_C_CODE__V37*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V37*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_#miI__L17*/ - meltfnum[14] = 0 ; + /*clear*/ /*_#miI__L17*/ meltfnum[14] = 0 ; } ; } @@ -10390,29 +9543,21 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:2913:/ clear"); - /*clear*/ /*_.PARC__V32*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.PARC__V32*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.ARGF__V33*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.ARGF__V33*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L9*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#IS_STRING__L9*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L10*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#NOT__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#miI__L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#miI__L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L12*/ - meltfnum[11] = 0 ; + /*clear*/ /*_#plI__L12*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L13*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#plI__L13*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L14*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#eqeq__L14*/ meltfnum[13] = 0 ; /*epilog*/ } ; @@ -10428,12 +9573,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L18*/ - meltfnum[15] = + /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[15] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:2967:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[11])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[12]))) ) /*then*/ @@ -10444,8 +9587,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[11])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V39*/ - meltfptr[29] = slot; + /*_.REFERENCED_VALUE__V39*/ meltfptr[29] = slot; }; ; } @@ -10456,16 +9598,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L19*/ - meltfnum[14] = + /*_#GET_INT__L19*/ meltfnum[14] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V39*/ meltfptr[29])));; /*^compute*/ - /*_#ltI__L20*/ - meltfnum[7] = + /*_#ltI__L20*/ meltfnum[7] = ((/*_#STRBUF_USEDLENGTH__L18*/ meltfnum[15]) < (/*_#GET_INT__L19*/ meltfnum[14]));; MELT_LOCATION("warmelt-outobj.melt:2966:/ cond"); - /*cond*/ - if (/*_#ltI__L20*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#ltI__L20*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V40*/ meltfptr[28] = (/*nil*/NULL);; @@ -10494,40 +9633,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2966; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V41*/ - meltfptr[20] = 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__V41*/ meltfptr[20] = 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___V40*/ - meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[20];; + /*_._IFELSE___V40*/ meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2966:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V41*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[20] = 0 ; } ; } ; - /*_.IFCPP___V38*/ - meltfptr[35] = /*_._IFELSE___V40*/ meltfptr[28];; + /*_.IFCPP___V38*/ meltfptr[35] = /*_._IFELSE___V40*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2966:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L18*/ - meltfnum[15] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V39*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V39*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L19*/ - meltfnum[14] = 0 ; + /*clear*/ /*_#GET_INT__L19*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L20*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#ltI__L20*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V40*/ - meltfptr[28] = 0 ; + /*clear*/ /*_._IFELSE___V40*/ meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10536,62 +9666,45 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V8*/ - meltfptr[6] = /*_.IFCPP___V38*/ meltfptr[35];; + /*_.LET___V8*/ meltfptr[6] = /*_.IFCPP___V38*/ meltfptr[35];; MELT_LOCATION("warmelt-outobj.melt:2892:/ clear"); - /*clear*/ /*_.OLOC__V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.OLOC__V9*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.NLOC__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.NLOC__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.OBIND__V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.OBIND__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.OREST__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.OREST__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_#RKBIND__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#RKBIND__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYBIND__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.CTYBIND__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.OVARIADICINDEX__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.OVARIADICINDEX__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.OVARIADICLENGTH__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.OVARIADICLENGTH__V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_LOCATION__V19*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V19*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V20*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V23*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.IFCPP___V23*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ - meltfptr[24] = 0 ; + /*clear*/ /*_._IF___V26*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeqI__L7*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#eqeqI__L7*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V38*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.IFCPP___V38*/ meltfptr[35] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:2890:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; { MELT_LOCATION("warmelt-outobj.melt:2890:/ locexp"); @@ -10606,16 +9719,13 @@ 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*/ /*_.LET___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.LET___V8*/ meltfptr[6] = 0 ; } ; @@ -10697,8 +9807,7 @@ meltrout_57_WARMELTmiOUTOBJ_OUTPUCOD_OBJCFORMAL(meltclosure_ptr_t meltclosp_, me /* end of frame for routine meltrout_57_WARMELTmiOUTOBJ_OUTPUCOD_OBJCFORMAL fromline 1756 */ - /* classy proc frame meltrout_57_WARMELTmiOUTOBJ_OUTPUCOD_OBJCFORMAL */ - MeltFrame_meltrout_57_WARMELTmiOUTOBJ_OUTPUCOD_OBJCFORMAL + /* classy proc frame meltrout_57_WARMELTmiOUTOBJ_OUTPUCOD_OBJCFORMAL */ MeltFrame_meltrout_57_WARMELTmiOUTOBJ_OUTPUCOD_OBJCFORMAL meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_57_WARMELTmiOUTOBJ_OUTPUCOD_OBJCFORMAL fromline 1785*/ #if ENABLE_CHECKING @@ -10711,8 +9820,7 @@ meltrout_57_WARMELTmiOUTOBJ_OUTPUCOD_OBJCFORMAL(meltclosure_ptr_t meltclosp_, me #define meltframe meltfram__ melt_trace_start("OUTPUCOD_OBJCFORMAL", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -10722,30 +9830,26 @@ meltrout_57_WARMELTmiOUTOBJ_OUTPUCOD_OBJCFORMAL(meltclosure_ptr_t meltclosp_, me /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:2974:/ getarg"); - /*_.CFORM__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CFORM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -10775,8 +9879,7 @@ 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)) @@ -10785,8 +9888,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2975:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10819,20 +9921,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_objcformal cform="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CFORM__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V5*/ - meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; + /*_._IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2975:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } @@ -10845,8 +9943,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2975:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -10855,11 +9952,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10889,12 +9984,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[2] = + /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.CFORM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCFORMAL*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:2976:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -10923,31 +10016,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2976; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CFORM__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ - meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2976:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ - meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; + /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2976:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10965,12 +10052,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L5*/ - meltfnum[1] = + /*_#IS_STRBUF__L5*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-outobj.melt:2977:/ cond"); - /*cond*/ - if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[4] = (/*nil*/NULL);; @@ -10999,31 +10084,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2977; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V12*/ - meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V11*/ - meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; + /*_._IFELSE___V11*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2977:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = 0 ; } ; } ; - /*_.IFCPP___V10*/ - meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[4];; + /*_.IFCPP___V10*/ meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2977:/ clear"); - /*clear*/ /*_#IS_STRBUF__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRBUF__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V11*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V11*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11035,8 +10114,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CFORM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCFORMAL*/ meltfrout->tabval[1]))) ) /*then*/ @@ -11047,8 +10125,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CFORM__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OFORMAL_NAME"); - /*_.FORNAM__V13*/ - meltfptr[11] = slot; + /*_.FORNAM__V13*/ meltfptr[11] = slot; }; ; } @@ -11062,8 +10139,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:73:/ cond"); - /*cond*/ - if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ + /*cond*/ if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11080,17 +10156,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CFORM__V2*/ meltfptr[1]; - /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V15*/ - meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V14*/ - meltfptr[4] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V15*/ meltfptr[14];; + /*_._IF___V14*/ meltfptr[4] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:73:/ clear"); - /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V15*/ meltfptr[14] = 0 ; } ; } @@ -11110,12 +10183,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L6*/ - meltfnum[2] = + /*_#IS_STRING__L6*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.FORNAM__V13*/ meltfptr[11])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-outobj.melt:2981:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L6*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L6*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; @@ -11144,31 +10215,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2981; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FORNAM__V13*/ meltfptr[11]; - /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V17*/ - meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; + /*_._IFELSE___V17*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2981:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V16*/ - meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[16];; + /*_.IFCPP___V16*/ meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2981:/ clear"); - /*clear*/ /*_#IS_STRING__L6*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_STRING__L6*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11190,25 +10255,20 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:2978:/ clear"); - /*clear*/ /*_.FORNAM__V13*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.FORNAM__V13*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V14*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V14*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ meltfptr[14] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2974:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V10*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; } ; @@ -11290,8 +10350,7 @@ meltrout_58_WARMELTmiOUTOBJ_OUTPUCOD_OBJFETCHMODVAR(meltclosure_ptr_t meltclosp_ /* end of frame for routine meltrout_58_WARMELTmiOUTOBJ_OUTPUCOD_OBJFETCHMODVAR fromline 1756 */ - /* classy proc frame meltrout_58_WARMELTmiOUTOBJ_OUTPUCOD_OBJFETCHMODVAR */ - MeltFrame_meltrout_58_WARMELTmiOUTOBJ_OUTPUCOD_OBJFETCHMODVAR + /* classy proc frame meltrout_58_WARMELTmiOUTOBJ_OUTPUCOD_OBJFETCHMODVAR */ MeltFrame_meltrout_58_WARMELTmiOUTOBJ_OUTPUCOD_OBJFETCHMODVAR meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_58_WARMELTmiOUTOBJ_OUTPUCOD_OBJFETCHMODVAR fromline 1785*/ #if ENABLE_CHECKING @@ -11304,8 +10363,7 @@ meltrout_58_WARMELTmiOUTOBJ_OUTPUCOD_OBJFETCHMODVAR(meltclosure_ptr_t meltclosp_ #define meltframe meltfram__ melt_trace_start("OUTPUCOD_OBJFETCHMODVAR", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -11315,30 +10373,26 @@ meltrout_58_WARMELTmiOUTOBJ_OUTPUCOD_OBJFETCHMODVAR(meltclosure_ptr_t meltclosp_ /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:2989:/ getarg"); - /*_.FMODVAR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FMODVAR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -11368,8 +10422,7 @@ 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)) @@ -11378,8 +10431,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:2990:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11412,20 +10464,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_objfetchmodvar fmodvar="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FMODVAR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V5*/ - meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; + /*_._IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2990:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } @@ -11438,8 +10486,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:2990:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -11448,11 +10495,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11482,12 +10527,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[2] = + /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.FMODVAR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJFETCHMODVAR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:2991:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -11516,31 +10559,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2991; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FMODVAR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ - meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2991:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ - meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; + /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2991:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11552,8 +10589,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FMODVAR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJFETCHMODVAR*/ meltfrout->tabval[1]))) ) /*then*/ @@ -11564,8 +10600,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FMODVAR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OBFETCHMODVAR_BIND"); - /*_.VARBIND__V11*/ - meltfptr[4] = slot; + /*_.VARBIND__V11*/ meltfptr[4] = slot; }; ; } @@ -11579,8 +10614,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:73:/ cond"); - /*cond*/ - if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ + /*cond*/ if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11597,17 +10631,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FMODVAR__V2*/ meltfptr[1]; - /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V12*/ - meltfptr[11] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V13*/ meltfptr[12];; + /*_._IF___V12*/ meltfptr[11] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:73:/ clear"); - /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V13*/ meltfptr[12] = 0 ; } ; } @@ -11627,12 +10658,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ - meltfnum[1] = + /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.VARBIND__V11*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_NORMAL_MODULE_VARIABLE_BINDING*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-outobj.melt:2996:/ cond"); - /*cond*/ - if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[14] = (/*nil*/NULL);; @@ -11661,31 +10690,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2996; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VARBIND__V11*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2996:/ 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[14];; + /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:2996:/ clear"); - /*clear*/ /*_#IS_A__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11703,8 +10726,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " (melt_module_var_fetch ("; - /*_.ADD2OUT__V17*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V17*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -11717,8 +10739,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VARBIND__V11*/ meltfptr[4]; - /*_.OUT_ENUMIX_MODVARBIND__V18*/ - meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUT_ENUMIX_MODVARBIND*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUT_ENUMIX_MODVARBIND__V18*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUT_ENUMIX_MODVARBIND*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -11731,39 +10752,30 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "))"; - /*_.ADD2OUT__V19*/ - meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V10*/ - meltfptr[8] = /*_.ADD2OUT__V19*/ meltfptr[18];; + /*_.LET___V10*/ meltfptr[8] = /*_.ADD2OUT__V19*/ meltfptr[18];; MELT_LOCATION("warmelt-outobj.melt:2992:/ clear"); - /*clear*/ /*_.VARBIND__V11*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.VARBIND__V11*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_._IF___V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.ADD2OUT__V17*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.OUT_ENUMIX_MODVARBIND__V18*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.OUT_ENUMIX_MODVARBIND__V18*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.ADD2OUT__V19*/ meltfptr[18] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:2989:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-outobj.melt:2989:/ locexp"); @@ -11778,16 +10790,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V10*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.LET___V10*/ meltfptr[8] = 0 ; } ; @@ -11869,8 +10878,7 @@ meltrout_59_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTMODVAR(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_59_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTMODVAR fromline 1756 */ - /* classy proc frame meltrout_59_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTMODVAR */ - MeltFrame_meltrout_59_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTMODVAR + /* classy proc frame meltrout_59_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTMODVAR */ MeltFrame_meltrout_59_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTMODVAR meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_59_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTMODVAR fromline 1785*/ #if ENABLE_CHECKING @@ -11883,8 +10891,7 @@ meltrout_59_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTMODVAR(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("OUTPUCOD_OBJPUTMODVAR", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -11894,30 +10901,26 @@ meltrout_59_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTMODVAR(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:3004:/ getarg"); - /*_.PMODVAR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.PMODVAR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -11947,8 +10950,7 @@ 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)) @@ -11957,8 +10959,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:3005:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11991,20 +10992,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_objputmodvar pmodvar="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PMODVAR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V5*/ - meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; + /*_._IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3005:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } @@ -12017,8 +11014,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3005:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -12027,11 +11023,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12061,12 +11055,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[2] = + /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.PMODVAR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTMODVAR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:3006:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -12095,31 +11087,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3006; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PMODVAR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ - meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3006:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ - meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; + /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3006:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12131,8 +11117,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PMODVAR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINSTR*/ meltfrout->tabval[3]))) ) /*then*/ @@ -12143,8 +11128,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PMODVAR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBI_LOC"); - /*_.OLOC__V10*/ - meltfptr[8] = slot; + /*_.OLOC__V10*/ meltfptr[8] = slot; }; ; } @@ -12155,8 +11139,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:3008:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PMODVAR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTMODVAR*/ meltfrout->tabval[1]))) ) /*then*/ @@ -12167,8 +11150,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PMODVAR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OBPUTMODVAR_BIND"); - /*_.VARBIND__V11*/ - meltfptr[4] = slot; + /*_.VARBIND__V11*/ meltfptr[4] = slot; }; ; } @@ -12179,8 +11161,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:3009:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PMODVAR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTMODVAR*/ meltfrout->tabval[1]))) ) /*then*/ @@ -12191,8 +11172,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PMODVAR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "OBPUTMODVAR_VAL"); - /*_.OVAL__V12*/ - meltfptr[11] = slot; + /*_.OVAL__V12*/ meltfptr[11] = slot; }; ; } @@ -12222,8 +11202,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12232,8 +11211,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:3012:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12266,20 +11244,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_objputmodvar varbind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.VARBIND__V11*/ meltfptr[4]; - /*_.MELT_DEBUG_FUN__V14*/ - meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V13*/ - meltfptr[12] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; + /*_._IF___V13*/ meltfptr[12] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3012:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0 ; } ; } @@ -12292,8 +11266,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3012:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -12302,11 +11275,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IF___V13*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12336,12 +11307,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ - meltfnum[2] = + /*_#IS_A__L7*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.VARBIND__V11*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_NORMAL_MODULE_VARIABLE_BINDING*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-outobj.melt:3013:/ cond"); - /*cond*/ - if (/*_#IS_A__L7*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L7*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[12] = (/*nil*/NULL);; @@ -12370,31 +11339,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3013; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VARBIND__V11*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V17*/ - meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V16*/ - meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; + /*_._IFELSE___V16*/ meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3013:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; } ; } ; - /*_.IFCPP___V15*/ - meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[12];; + /*_.IFCPP___V15*/ meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3013:/ clear"); - /*clear*/ /*_#IS_A__L7*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L7*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12406,8 +11369,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:3014:/ cond"); - /*cond*/ - if (/*_.OLOC__V10*/ meltfptr[8]) /*then*/ + /*cond*/ if (/*_.OLOC__V10*/ meltfptr[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12428,17 +11390,14 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "putmodvar"; - /*_.OUTPUT_LOCATION__V19*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V10*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V19*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V10*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V18*/ - meltfptr[16] = /*_.OUTPUT_LOCATION__V19*/ meltfptr[12];; + /*_._IF___V18*/ meltfptr[16] = /*_.OUTPUT_LOCATION__V19*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3014:/ clear"); - /*clear*/ /*_.OUTPUT_LOCATION__V19*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V19*/ meltfptr[12] = 0 ; } ; } @@ -12458,8 +11417,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "melt_module_var_put ("; - /*_.ADD2OUT__V20*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V20*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -12472,8 +11430,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VARBIND__V11*/ meltfptr[4]; - /*_.OUT_ENUMIX_MODVARBIND__V21*/ - meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!OUT_ENUMIX_MODVARBIND*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUT_ENUMIX_MODVARBIND__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!OUT_ENUMIX_MODVARBIND*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -12486,8 +11443,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ", (melt_ptr_t)("; - /*_.ADD2OUT__V22*/ - meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -12504,8 +11460,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V23*/ - meltfptr[22] = meltgc_send((melt_ptr_t)(/*_.OVAL__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V23*/ meltfptr[22] = meltgc_send((melt_ptr_t)(/*_.OVAL__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -12518,8 +11473,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "));"; - /*_.ADD2OUT__V24*/ - meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -12530,43 +11484,32 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:3007:/ clear"); - /*clear*/ /*_.OLOC__V10*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.OLOC__V10*/ meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.VARBIND__V11*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.VARBIND__V11*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.OVAL__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.OVAL__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V18*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IF___V18*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V20*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.ADD2OUT__V20*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.OUT_ENUMIX_MODVARBIND__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.OUT_ENUMIX_MODVARBIND__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.ADD2OUT__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.ADD2OUT__V24*/ meltfptr[23] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3004:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; @@ -12648,8 +11591,7 @@ meltrout_60_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTOUTARG(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_60_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTOUTARG fromline 1756 */ - /* classy proc frame meltrout_60_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTOUTARG */ - MeltFrame_meltrout_60_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTOUTARG + /* classy proc frame meltrout_60_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTOUTARG */ MeltFrame_meltrout_60_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTOUTARG meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_60_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTOUTARG fromline 1785*/ #if ENABLE_CHECKING @@ -12662,8 +11604,7 @@ meltrout_60_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTOUTARG(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("OUTPUCOD_OBJPUTOUTARG", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -12673,30 +11614,26 @@ meltrout_60_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTOUTARG(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:3025:/ getarg"); - /*_.OUTA__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.OUTA__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -12726,8 +11663,7 @@ 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)) @@ -12736,8 +11672,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:3026:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12770,20 +11705,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_objputoutarg outa="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTA__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V5*/ - meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; + /*_._IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3026:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } @@ -12796,8 +11727,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3026:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -12806,11 +11736,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12840,12 +11768,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[2] = + /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.OUTA__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTOUTARG*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:3027:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -12874,31 +11800,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3027; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTA__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ - meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3027:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ - meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; + /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3027:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12910,8 +11830,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OUTA__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINSTR*/ meltfrout->tabval[3]))) ) /*then*/ @@ -12922,8 +11841,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OUTA__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBI_LOC"); - /*_.OLOC__V10*/ - meltfptr[8] = slot; + /*_.OLOC__V10*/ meltfptr[8] = slot; }; ; } @@ -12934,8 +11852,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:3029:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OUTA__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTOUTARG*/ meltfrout->tabval[1]))) ) /*then*/ @@ -12946,8 +11863,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OUTA__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OBOUTARG_FORMAL"); - /*_.OFORMAL__V11*/ - meltfptr[4] = slot; + /*_.OFORMAL__V11*/ meltfptr[4] = slot; }; ; } @@ -12958,8 +11874,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:3030:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OFORMAL__V11*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_OBJCFORMAL*/ meltfrout->tabval[4]))) ) /*then*/ @@ -12970,8 +11885,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OFORMAL__V11*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 4, "OFORMAL_LOCV"); - /*_.OLOCV__V12*/ - meltfptr[11] = slot; + /*_.OLOCV__V12*/ meltfptr[11] = slot; }; ; } @@ -13001,8 +11915,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13011,8 +11924,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:3032:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13045,20 +11957,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_objputoutarg oformal="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OFORMAL__V11*/ meltfptr[4]; - /*_.MELT_DEBUG_FUN__V14*/ - meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V13*/ - meltfptr[12] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; + /*_._IF___V13*/ meltfptr[12] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3032:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0 ; } ; } @@ -13071,8 +11979,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3032:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -13081,11 +11988,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IF___V13*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13115,12 +12020,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ - meltfnum[2] = + /*_#IS_A__L7*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.OFORMAL__V11*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_OBJCFORMAL*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-outobj.melt:3033:/ cond"); - /*cond*/ - if (/*_#IS_A__L7*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L7*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[12] = (/*nil*/NULL);; @@ -13149,31 +12052,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3033; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OFORMAL__V11*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V17*/ - meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V16*/ - meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; + /*_._IFELSE___V16*/ meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3033:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; } ; } ; - /*_.IFCPP___V15*/ - meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[12];; + /*_.IFCPP___V15*/ meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3033:/ clear"); - /*clear*/ /*_#IS_A__L7*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L7*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13191,12 +12088,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L8*/ - meltfnum[1] = + /*_#IS_A__L8*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.OLOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-outobj.melt:3034:/ cond"); - /*cond*/ - if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[12] = (/*nil*/NULL);; @@ -13225,31 +12120,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3034; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OLOCV__V12*/ meltfptr[11]; - /*_.MELT_ASSERT_FAILURE_FUN__V20*/ - meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V19*/ - meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; + /*_._IFELSE___V19*/ meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3034:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; } ; } ; - /*_.IFCPP___V18*/ - meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[12];; + /*_.IFCPP___V18*/ meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3034:/ clear"); - /*clear*/ /*_#IS_A__L8*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L8*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V19*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IFELSE___V19*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13271,15 +12160,13 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "putoutarg"; - /*_.OUTPUT_LOCATION__V21*/ - meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.OLOC__V10*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V21*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.OLOC__V10*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:3036:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "if ((")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "if ((")); } ; @@ -13296,19 +12183,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V22*/ - meltfptr[12] = meltgc_send((melt_ptr_t)(/*_.OFORMAL__V11*/ meltfptr[4]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V22*/ meltfptr[12] = meltgc_send((melt_ptr_t)(/*_.OFORMAL__V11*/ meltfptr[4]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:3038:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ") != NULL)")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ") != NULL)")); } ; - /*_#plI__L9*/ - meltfnum[2] = + /*_#plI__L9*/ meltfnum[2] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; { @@ -13326,8 +12210,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "*"; - /*_.ADD2OUT__V23*/ - meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -13344,15 +12227,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V24*/ - meltfptr[23] = meltgc_send((melt_ptr_t)(/*_.OFORMAL__V11*/ meltfptr[4]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V24*/ meltfptr[23] = meltgc_send((melt_ptr_t)(/*_.OFORMAL__V11*/ meltfptr[4]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:3042:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " /*putout*/ = ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " /*putout*/ = ")); } ; @@ -13369,15 +12250,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V25*/ - meltfptr[24] = meltgc_send((melt_ptr_t)(/*_.OLOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V25*/ meltfptr[24] = meltgc_send((melt_ptr_t)(/*_.OLOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:3044:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); } ; @@ -13388,46 +12267,34 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:3028:/ clear"); - /*clear*/ /*_.OLOC__V10*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.OLOC__V10*/ meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.OFORMAL__V11*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.OFORMAL__V11*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.OLOCV__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.OLOCV__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V18*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.IFCPP___V18*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_LOCATION__V21*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V21*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V22*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V22*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L9*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#plI__L9*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.ADD2OUT__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V25*/ meltfptr[24] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3025:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; @@ -13509,8 +12376,7 @@ meltrout_61_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOCV(meltclosure_ptr_t meltclosp_, melt_ /* end of frame for routine meltrout_61_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOCV fromline 1756 */ - /* classy proc frame meltrout_61_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOCV */ - MeltFrame_meltrout_61_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOCV + /* classy proc frame meltrout_61_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOCV */ MeltFrame_meltrout_61_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOCV meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_61_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOCV fromline 1785*/ #if ENABLE_CHECKING @@ -13523,8 +12389,7 @@ meltrout_61_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOCV(meltclosure_ptr_t meltclosp_, melt_ #define meltframe meltfram__ melt_trace_start("OUTPUCOD_OBJLOCV", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -13534,30 +12399,26 @@ meltrout_61_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOCV(meltclosure_ptr_t meltclosp_, melt_ /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:3051:/ getarg"); - /*_.LOCV__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.LOCV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -13577,12 +12438,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ - meltfnum[1] = + /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.LOCV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-outobj.melt:3052:/ cond"); - /*cond*/ - if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; @@ -13611,31 +12470,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3052; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LOCV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3052:/ 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-outobj.melt:3052:/ clear"); - /*clear*/ /*_#IS_A__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13651,8 +12504,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LOCV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBV_TYPE"); - /*_.LTYP__V8*/ - meltfptr[6] = slot; + /*_.LTYP__V8*/ meltfptr[6] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3055:/ getslot"); @@ -13660,8 +12512,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LOCV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OBL_OFF"); - /*_.LOFF__V9*/ - meltfptr[5] = slot; + /*_.LOFF__V9*/ meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3056:/ getslot"); @@ -13669,16 +12520,14 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LOCV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "OBL_CNAME"); - /*_.LCNAM__V10*/ - meltfptr[9] = slot; + /*_.LCNAM__V10*/ meltfptr[9] = slot; }; ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:73:/ cond"); - /*cond*/ - if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ + /*cond*/ if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13695,17 +12544,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOCV__V2*/ meltfptr[1]; - /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V12*/ - meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V11*/ - meltfptr[10] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V12*/ meltfptr[11];; + /*_._IF___V11*/ meltfptr[10] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:73:/ clear"); - /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V12*/ meltfptr[11] = 0 ; } ; } @@ -13719,12 +12565,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#eqeq__L3*/ - meltfnum[1] = + /*_#eqeq__L3*/ meltfnum[1] = ((/*_.LTYP__V8*/ meltfptr[6]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-outobj.melt:3060:/ cond"); - /*cond*/ - if (/*_#eqeq__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#eqeq__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13734,27 +12578,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3061:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*_.")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*_.")); } ; { MELT_LOCATION("warmelt-outobj.melt:3062:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.LCNAM__V10*/ meltfptr[9]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.LCNAM__V10*/ meltfptr[9]))); } ; { MELT_LOCATION("warmelt-outobj.melt:3063:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/ meltfptr[")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/ meltfptr[")); } ; - /*_#GET_INT__L4*/ - meltfnum[3] = + /*_#GET_INT__L4*/ meltfnum[3] = (melt_get_int((melt_ptr_t)(/*_.LOFF__V9*/ meltfptr[5])));; { @@ -13765,8 +12605,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3065:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "]")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "]")); } ; MELT_LOCATION("warmelt-outobj.melt:3060:/ quasiblock"); @@ -13775,8 +12614,7 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#GET_INT__L4*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#GET_INT__L4*/ meltfnum[3] = 0 ; } ; } @@ -13790,12 +12628,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L5*/ - meltfnum[3] = + /*_#eqeq__L5*/ meltfnum[3] = ((/*_.LTYP__V8*/ meltfptr[6]) == ((/*!CTYPE_LONG*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-outobj.melt:3066:/ cond"); - /*cond*/ - if (/*_#eqeq__L5*/ meltfnum[3]) /*then*/ + /*cond*/ if (/*_#eqeq__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13805,27 +12641,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3067:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*_#")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*_#")); } ; { MELT_LOCATION("warmelt-outobj.melt:3068:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.LCNAM__V10*/ meltfptr[9]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.LCNAM__V10*/ meltfptr[9]))); } ; { MELT_LOCATION("warmelt-outobj.melt:3069:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/ meltfnum[")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/ meltfnum[")); } ; - /*_#GET_INT__L6*/ - meltfnum[5] = + /*_#GET_INT__L6*/ meltfnum[5] = (melt_get_int((melt_ptr_t)(/*_.LOFF__V9*/ meltfptr[5])));; { @@ -13836,8 +12668,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3071:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "]")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "]")); } ; MELT_LOCATION("warmelt-outobj.melt:3066:/ quasiblock"); @@ -13846,8 +12677,7 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#GET_INT__L6*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#GET_INT__L6*/ meltfnum[5] = 0 ; } ; } @@ -13861,16 +12691,14 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3073:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*_?*/ meltfram__.")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*_?*/ meltfram__.")); } ; { MELT_LOCATION("warmelt-outobj.melt:3074:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.LCNAM__V10*/ meltfptr[9]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.LCNAM__V10*/ meltfptr[9]))); } ; MELT_LOCATION("warmelt-outobj.melt:3072:/ quasiblock"); @@ -13884,28 +12712,22 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3060:/ clear"); - /*clear*/ /*_#eqeq__L5*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#eqeq__L5*/ meltfnum[3] = 0 ; } ; } ; MELT_LOCATION("warmelt-outobj.melt:3053:/ clear"); - /*clear*/ /*_.LTYP__V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.LTYP__V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.LOFF__V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.LOFF__V9*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LCNAM__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.LCNAM__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_._IF___V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#eqeq__L3*/ meltfnum[1] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-outobj.melt:3076:/ cppif.then"); @@ -13916,12 +12738,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L7*/ - meltfnum[5] = + /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:3077:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -13932,8 +12752,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V14*/ - meltfptr[6] = slot; + /*_.REFERENCED_VALUE__V14*/ meltfptr[6] = slot; }; ; } @@ -13944,16 +12763,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L8*/ - meltfnum[3] = + /*_#GET_INT__L8*/ meltfnum[3] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V14*/ meltfptr[6])));; /*^compute*/ - /*_#ltI__L9*/ - meltfnum[1] = + /*_#ltI__L9*/ meltfnum[1] = ((/*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5]) < (/*_#GET_INT__L8*/ meltfnum[3]));; MELT_LOCATION("warmelt-outobj.melt:3076:/ cond"); - /*cond*/ - if (/*_#ltI__L9*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#ltI__L9*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -13982,40 +12798,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3076; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[9];; + /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3076:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V13*/ - meltfptr[11] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V13*/ meltfptr[11] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3076:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L7*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V14*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V14*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L8*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#GET_INT__L8*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L9*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#ltI__L9*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14029,8 +12836,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:3051:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.IFCPP___V13*/ meltfptr[11];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V13*/ meltfptr[11];; { MELT_LOCATION("warmelt-outobj.melt:3051:/ locexp"); @@ -14045,16 +12851,13 @@ 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___V13*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; } ; @@ -14136,8 +12939,7 @@ meltrout_62_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOCCV(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_62_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOCCV fromline 1756 */ - /* classy proc frame meltrout_62_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOCCV */ - MeltFrame_meltrout_62_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOCCV + /* classy proc frame meltrout_62_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOCCV */ MeltFrame_meltrout_62_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOCCV meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_62_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOCCV fromline 1785*/ #if ENABLE_CHECKING @@ -14150,8 +12952,7 @@ meltrout_62_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOCCV(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("OUTPUCOD_OBJCLOCCV", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -14161,30 +12962,26 @@ meltrout_62_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOCCV(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:3083:/ getarg"); - /*_.OCCV__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.OCCV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -14204,12 +13001,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ - meltfnum[1] = + /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.OCCV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCLOCCV*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-outobj.melt:3084:/ cond"); - /*cond*/ - if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; @@ -14238,31 +13033,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3084; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OCCV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3084:/ 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-outobj.melt:3084:/ clear"); - /*clear*/ /*_#IS_A__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14278,8 +13067,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OCCV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OBC_OFF"); - /*_.OOFF__V9*/ - meltfptr[5] = slot; + /*_.OOFF__V9*/ meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3086:/ getslot"); @@ -14287,8 +13075,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OCCV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "OBC_NAME"); - /*_.ONAM__V10*/ - meltfptr[9] = slot; + /*_.ONAM__V10*/ meltfptr[9] = slot; }; ; @@ -14306,16 +13093,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OCCV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBV_TYPE"); - /*_.OBV_TYPE__V12*/ - meltfptr[11] = slot; + /*_.OBV_TYPE__V12*/ meltfptr[11] = slot; }; ; - /*_#eqeq__L3*/ - meltfnum[1] = + /*_#eqeq__L3*/ meltfnum[1] = ((/*_.OBV_TYPE__V12*/ meltfptr[11]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-outobj.melt:3087:/ cond"); - /*cond*/ - if (/*_#eqeq__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#eqeq__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; @@ -14344,34 +13128,27 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3087; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OCCV__V2*/ meltfptr[1]; - /*_.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[12] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; + /*_._IFELSE___V13*/ meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3087:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[12];; + /*_.IFCPP___V11*/ meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3087:/ clear"); - /*clear*/ /*_.OBV_TYPE__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.OBV_TYPE__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#eqeq__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14383,8 +13160,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:73:/ cond"); - /*cond*/ - if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ + /*cond*/ if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14401,17 +13177,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OCCV__V2*/ meltfptr[1]; - /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V16*/ - meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V16*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V15*/ - meltfptr[13] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V16*/ meltfptr[11];; + /*_._IF___V15*/ meltfptr[13] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V16*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:73:/ clear"); - /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V16*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V16*/ meltfptr[11] = 0 ; } ; } @@ -14424,27 +13197,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3090:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "(/*~")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "(/*~")); } ; { MELT_LOCATION("warmelt-outobj.melt:3091:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.ONAM__V10*/ meltfptr[9]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.ONAM__V10*/ meltfptr[9]))); } ; { MELT_LOCATION("warmelt-outobj.melt:3092:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/ meltfclos->tabval[")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/ meltfclos->tabval[")); } ; - /*_#GET_INT__L4*/ - meltfnum[1] = + /*_#GET_INT__L4*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.OOFF__V9*/ meltfptr[5])));; { @@ -14455,8 +13224,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3094:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "])")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "])")); } ; @@ -14469,12 +13237,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L5*/ - meltfnum[4] = + /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:3096:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[4])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -14485,8 +13251,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[4])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V18*/ - meltfptr[11] = slot; + /*_.REFERENCED_VALUE__V18*/ meltfptr[11] = slot; }; ; } @@ -14497,16 +13262,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L6*/ - meltfnum[5] = + /*_#GET_INT__L6*/ meltfnum[5] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V18*/ meltfptr[11])));; /*^compute*/ - /*_#ltI__L7*/ - meltfnum[6] = + /*_#ltI__L7*/ meltfnum[6] = ((/*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4]) < (/*_#GET_INT__L6*/ meltfnum[5]));; MELT_LOCATION("warmelt-outobj.melt:3095:/ cond"); - /*cond*/ - if (/*_#ltI__L7*/ meltfnum[6]) /*then*/ + /*cond*/ if (/*_#ltI__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[18] = (/*nil*/NULL);; @@ -14535,40 +13297,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3095; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V20*/ - meltfptr[19] = 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__V20*/ meltfptr[19] = 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___V19*/ - meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; + /*_._IFELSE___V19*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3095:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; } ; } ; - /*_.IFCPP___V17*/ - meltfptr[12] = /*_._IFELSE___V19*/ meltfptr[18];; + /*_.IFCPP___V17*/ meltfptr[12] = /*_._IFELSE___V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3095:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L5*/ - meltfnum[4] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V18*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V18*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L6*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#GET_INT__L6*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L7*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#ltI__L7*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_._IFELSE___V19*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14577,35 +13330,27 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V8*/ - meltfptr[6] = /*_.IFCPP___V17*/ meltfptr[12];; + /*_.LET___V8*/ meltfptr[6] = /*_.IFCPP___V17*/ meltfptr[12];; MELT_LOCATION("warmelt-outobj.melt:3085:/ clear"); - /*clear*/ /*_.OOFF__V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.OOFF__V9*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.ONAM__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.ONAM__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V15*/ - meltfptr[13] = 0 ; + /*clear*/ /*_._IF___V15*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L4*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#GET_INT__L4*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V17*/ meltfptr[12] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:3083:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; { MELT_LOCATION("warmelt-outobj.melt:3083:/ locexp"); @@ -14620,16 +13365,13 @@ 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*/ /*_.LET___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.LET___V8*/ meltfptr[6] = 0 ; } ; @@ -14711,8 +13453,7 @@ meltrout_63_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOHOOKV(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_63_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOHOOKV fromline 1756 */ - /* classy proc frame meltrout_63_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOHOOKV */ - MeltFrame_meltrout_63_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOHOOKV + /* classy proc frame meltrout_63_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOHOOKV */ MeltFrame_meltrout_63_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOHOOKV meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_63_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOHOOKV fromline 1785*/ #if ENABLE_CHECKING @@ -14725,8 +13466,7 @@ meltrout_63_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOHOOKV(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("OUTPUCOD_OBJCLOHOOKV", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -14736,30 +13476,26 @@ meltrout_63_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOHOOKV(meltclosure_ptr_t meltclosp_, m /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:3102:/ getarg"); - /*_.OCCV__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.OCCV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -14789,8 +13525,7 @@ 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)) @@ -14799,8 +13534,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:3103:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14833,20 +13567,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_objclohookv occv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OCCV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V5*/ - meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; + /*_._IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3103:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } @@ -14859,8 +13589,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3103:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -14869,11 +13598,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14903,12 +13630,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[2] = + /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.OCCV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCLOHOOKV*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:3104:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -14937,31 +13662,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3104; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OCCV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ - meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3104:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ - meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; + /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3104:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14977,8 +13696,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OCCV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OBC_OFF"); - /*_.OOFF__V11*/ - meltfptr[4] = slot; + /*_.OOFF__V11*/ meltfptr[4] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3106:/ getslot"); @@ -14986,8 +13704,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OCCV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "OBC_NAME"); - /*_.ONAM__V12*/ - meltfptr[11] = slot; + /*_.ONAM__V12*/ meltfptr[11] = slot; }; ; @@ -15005,16 +13722,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OCCV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBV_TYPE"); - /*_.OBV_TYPE__V14*/ - meltfptr[13] = slot; + /*_.OBV_TYPE__V14*/ meltfptr[13] = slot; }; ; - /*_#eqeq__L5*/ - meltfnum[1] = + /*_#eqeq__L5*/ meltfnum[1] = ((/*_.OBV_TYPE__V14*/ meltfptr[13]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-outobj.melt:3107:/ cond"); - /*cond*/ - if (/*_#eqeq__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#eqeq__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[14] = (/*nil*/NULL);; @@ -15043,34 +13757,27 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3107; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OCCV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3107:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V13*/ - meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[14];; + /*_.IFCPP___V13*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3107:/ clear"); - /*clear*/ /*_.OBV_TYPE__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.OBV_TYPE__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#eqeq__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15082,8 +13789,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:73:/ cond"); - /*cond*/ - if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ + /*cond*/ if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15100,17 +13806,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OCCV__V2*/ meltfptr[1]; - /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V18*/ - meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V18*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V17*/ - meltfptr[15] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V18*/ meltfptr[13];; + /*_._IF___V17*/ meltfptr[15] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V18*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:73:/ clear"); - /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V18*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V18*/ meltfptr[13] = 0 ; } ; } @@ -15123,27 +13826,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3110:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "(/*~")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "(/*~")); } ; { MELT_LOCATION("warmelt-outobj.melt:3111:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.ONAM__V12*/ meltfptr[11]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.ONAM__V12*/ meltfptr[11]))); } ; { MELT_LOCATION("warmelt-outobj.melt:3112:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/ meltfhook->tabval[")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/ meltfhook->tabval[")); } ; - /*_#GET_INT__L6*/ - meltfnum[2] = + /*_#GET_INT__L6*/ meltfnum[2] = (melt_get_int((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[4])));; { @@ -15154,8 +13853,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3114:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "])")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "])")); } ; @@ -15168,12 +13866,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L7*/ - meltfnum[1] = + /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[1] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:3116:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -15184,8 +13880,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V20*/ - meltfptr[13] = slot; + /*_.REFERENCED_VALUE__V20*/ meltfptr[13] = slot; }; ; } @@ -15196,16 +13891,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L8*/ - meltfnum[7] = + /*_#GET_INT__L8*/ meltfnum[7] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V20*/ meltfptr[13])));; /*^compute*/ - /*_#ltI__L9*/ - meltfnum[8] = + /*_#ltI__L9*/ meltfnum[8] = ((/*_#STRBUF_USEDLENGTH__L7*/ meltfnum[1]) < (/*_#GET_INT__L8*/ meltfnum[7]));; MELT_LOCATION("warmelt-outobj.melt:3115:/ cond"); - /*cond*/ - if (/*_#ltI__L9*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#ltI__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[20] = (/*nil*/NULL);; @@ -15234,40 +13926,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3115; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V22*/ - meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V21*/ - meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; + /*_._IFELSE___V21*/ meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3115:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; } ; } ; - /*_.IFCPP___V19*/ - meltfptr[14] = /*_._IFELSE___V21*/ meltfptr[20];; + /*_.IFCPP___V19*/ meltfptr[14] = /*_._IFELSE___V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3115:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V20*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V20*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#GET_INT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#ltI__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15276,35 +13959,27 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V10*/ - meltfptr[8] = /*_.IFCPP___V19*/ meltfptr[14];; + /*_.LET___V10*/ meltfptr[8] = /*_.IFCPP___V19*/ meltfptr[14];; MELT_LOCATION("warmelt-outobj.melt:3105:/ clear"); - /*clear*/ /*_.OOFF__V11*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.OOFF__V11*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.ONAM__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.ONAM__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_._IF___V17*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L6*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#GET_INT__L6*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V19*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.IFCPP___V19*/ meltfptr[14] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:3102:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-outobj.melt:3102:/ locexp"); @@ -15319,16 +13994,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V10*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.LET___V10*/ meltfptr[8] = 0 ; } ; @@ -15410,8 +14082,7 @@ meltrout_64_WARMELTmiOUTOBJ_OUTPUCOD_OBJCONSTV(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_64_WARMELTmiOUTOBJ_OUTPUCOD_OBJCONSTV fromline 1756 */ - /* classy proc frame meltrout_64_WARMELTmiOUTOBJ_OUTPUCOD_OBJCONSTV */ - MeltFrame_meltrout_64_WARMELTmiOUTOBJ_OUTPUCOD_OBJCONSTV + /* classy proc frame meltrout_64_WARMELTmiOUTOBJ_OUTPUCOD_OBJCONSTV */ MeltFrame_meltrout_64_WARMELTmiOUTOBJ_OUTPUCOD_OBJCONSTV meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_64_WARMELTmiOUTOBJ_OUTPUCOD_OBJCONSTV fromline 1785*/ #if ENABLE_CHECKING @@ -15424,8 +14095,7 @@ meltrout_64_WARMELTmiOUTOBJ_OUTPUCOD_OBJCONSTV(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("OUTPUCOD_OBJCONSTV", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -15435,30 +14105,26 @@ meltrout_64_WARMELTmiOUTOBJ_OUTPUCOD_OBJCONSTV(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:3123:/ getarg"); - /*_.OCNSTV__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.OCNSTV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -15478,12 +14144,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ - meltfnum[1] = + /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.OCNSTV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCONSTV*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-outobj.melt:3124:/ cond"); - /*cond*/ - if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; @@ -15512,31 +14176,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3124; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OCNSTV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3124:/ 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-outobj.melt:3124:/ clear"); - /*clear*/ /*_#IS_A__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15552,8 +14210,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OCNSTV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OBC_OFF"); - /*_.OOFF__V9*/ - meltfptr[5] = slot; + /*_.OOFF__V9*/ meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3126:/ getslot"); @@ -15561,8 +14218,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OCNSTV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "OBC_NAME"); - /*_.ONAM__V10*/ - meltfptr[9] = slot; + /*_.ONAM__V10*/ meltfptr[9] = slot; }; ; @@ -15580,16 +14236,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OCNSTV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBV_TYPE"); - /*_.OBV_TYPE__V12*/ - meltfptr[11] = slot; + /*_.OBV_TYPE__V12*/ meltfptr[11] = slot; }; ; - /*_#eqeq__L3*/ - meltfnum[1] = + /*_#eqeq__L3*/ meltfnum[1] = ((/*_.OBV_TYPE__V12*/ meltfptr[11]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-outobj.melt:3127:/ cond"); - /*cond*/ - if (/*_#eqeq__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#eqeq__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; @@ -15618,34 +14271,27 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3127; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OCNSTV__V2*/ meltfptr[1]; - /*_.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[12] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; + /*_._IFELSE___V13*/ meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3127:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[12];; + /*_.IFCPP___V11*/ meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3127:/ clear"); - /*clear*/ /*_.OBV_TYPE__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.OBV_TYPE__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#eqeq__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15657,8 +14303,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:73:/ cond"); - /*cond*/ - if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ + /*cond*/ if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15675,17 +14320,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OCNSTV__V2*/ meltfptr[1]; - /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V16*/ - meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V16*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V15*/ - meltfptr[13] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V16*/ meltfptr[11];; + /*_._IF___V15*/ meltfptr[13] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V16*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:73:/ clear"); - /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V16*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V16*/ meltfptr[11] = 0 ; } ; } @@ -15698,27 +14340,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3130:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "(/*!")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "(/*!")); } ; { MELT_LOCATION("warmelt-outobj.melt:3131:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.ONAM__V10*/ meltfptr[9]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.ONAM__V10*/ meltfptr[9]))); } ; { MELT_LOCATION("warmelt-outobj.melt:3133:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/ meltfrout->tabval[")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/ meltfrout->tabval[")); } ; - /*_#GET_INT__L4*/ - meltfnum[1] = + /*_#GET_INT__L4*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.OOFF__V9*/ meltfptr[5])));; { @@ -15729,8 +14367,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3135:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "])")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "])")); } ; @@ -15743,12 +14380,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L5*/ - meltfnum[4] = + /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:3137:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[4])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -15759,8 +14394,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[4])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V18*/ - meltfptr[11] = slot; + /*_.REFERENCED_VALUE__V18*/ meltfptr[11] = slot; }; ; } @@ -15771,16 +14405,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L6*/ - meltfnum[5] = + /*_#GET_INT__L6*/ meltfnum[5] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V18*/ meltfptr[11])));; /*^compute*/ - /*_#ltI__L7*/ - meltfnum[6] = + /*_#ltI__L7*/ meltfnum[6] = ((/*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4]) < (/*_#GET_INT__L6*/ meltfnum[5]));; MELT_LOCATION("warmelt-outobj.melt:3136:/ cond"); - /*cond*/ - if (/*_#ltI__L7*/ meltfnum[6]) /*then*/ + /*cond*/ if (/*_#ltI__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[18] = (/*nil*/NULL);; @@ -15809,40 +14440,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3136; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V20*/ - meltfptr[19] = 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__V20*/ meltfptr[19] = 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___V19*/ - meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; + /*_._IFELSE___V19*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3136:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; } ; } ; - /*_.IFCPP___V17*/ - meltfptr[12] = /*_._IFELSE___V19*/ meltfptr[18];; + /*_.IFCPP___V17*/ meltfptr[12] = /*_._IFELSE___V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3136:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L5*/ - meltfnum[4] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V18*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V18*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L6*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#GET_INT__L6*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L7*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#ltI__L7*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_._IFELSE___V19*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15851,35 +14473,27 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V8*/ - meltfptr[6] = /*_.IFCPP___V17*/ meltfptr[12];; + /*_.LET___V8*/ meltfptr[6] = /*_.IFCPP___V17*/ meltfptr[12];; MELT_LOCATION("warmelt-outobj.melt:3125:/ clear"); - /*clear*/ /*_.OOFF__V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.OOFF__V9*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.ONAM__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.ONAM__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V15*/ - meltfptr[13] = 0 ; + /*clear*/ /*_._IF___V15*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L4*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#GET_INT__L4*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V17*/ meltfptr[12] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:3123:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; { MELT_LOCATION("warmelt-outobj.melt:3123:/ locexp"); @@ -15894,16 +14508,13 @@ 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*/ /*_.LET___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.LET___V8*/ meltfptr[6] = 0 ; } ; @@ -15985,8 +14596,7 @@ meltrout_65_WARMELTmiOUTOBJ_OUTPUT_CODE_INSTRUCTIONS_LIST(meltclosure_ptr_t melt /* end of frame for routine meltrout_65_WARMELTmiOUTOBJ_OUTPUT_CODE_INSTRUCTIONS_LIST fromline 1756 */ - /* classy proc frame meltrout_65_WARMELTmiOUTOBJ_OUTPUT_CODE_INSTRUCTIONS_LIST */ - MeltFrame_meltrout_65_WARMELTmiOUTOBJ_OUTPUT_CODE_INSTRUCTIONS_LIST + /* classy proc frame meltrout_65_WARMELTmiOUTOBJ_OUTPUT_CODE_INSTRUCTIONS_LIST */ MeltFrame_meltrout_65_WARMELTmiOUTOBJ_OUTPUT_CODE_INSTRUCTIONS_LIST meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_65_WARMELTmiOUTOBJ_OUTPUT_CODE_INSTRUCTIONS_LIST fromline 1785*/ #if ENABLE_CHECKING @@ -15999,8 +14609,7 @@ meltrout_65_WARMELTmiOUTOBJ_OUTPUT_CODE_INSTRUCTIONS_LIST(meltclosure_ptr_t melt #define meltframe meltfram__ melt_trace_start("OUTPUT_CODE_INSTRUCTIONS_LIST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -16010,30 +14619,26 @@ meltrout_65_WARMELTmiOUTOBJ_OUTPUT_CODE_INSTRUCTIONS_LIST(meltclosure_ptr_t melt /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:3143:/ getarg"); - /*_.LIS__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.LIS__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.BOXEDDEPTH__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.BOXEDDEPTH__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.BOXEDDEPTH__V5*/ meltfptr[4])) != NULL); ; @@ -16055,13 +14660,11 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L1*/ - meltfnum[0] = + /*_#IS_LIST_OR_NULL__L1*/ meltfnum[0] = ((/*_.LIS__V2*/ meltfptr[1]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.LIS__V2*/ meltfptr[1])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-outobj.melt:3144:/ cond"); - /*cond*/ - if (/*_#IS_LIST_OR_NULL__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_LIST_OR_NULL__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; @@ -16090,31 +14693,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3144; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LIS__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ - meltfptr[7] = 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__V8*/ meltfptr[7] = 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___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-outobj.melt:3144:/ 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-outobj.melt:3144:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16132,12 +14729,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_INTEGERBOX__L2*/ - meltfnum[0] = + /*_#IS_INTEGERBOX__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BOXEDDEPTH__V5*/ meltfptr[4])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-outobj.melt:3145:/ cond"); - /*cond*/ - if (/*_#IS_INTEGERBOX__L2*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_INTEGERBOX__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[6] = (/*nil*/NULL);; @@ -16166,31 +14761,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3145; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BOXEDDEPTH__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ - meltfptr[10] = 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__V11*/ meltfptr[10] = 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___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-outobj.melt:3145:/ 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-outobj.melt:3145:/ clear"); - /*clear*/ /*_#IS_INTEGERBOX__L2*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_INTEGERBOX__L2*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ - meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16201,8 +14790,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:3146:/ quasiblock"); - /*_#DEPTH__L3*/ - meltfnum[0] = + /*_#DEPTH__L3*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.BOXEDDEPTH__V5*/ meltfptr[4])));; { @@ -16223,12 +14811,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[3] = + /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.CUR__V13*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_OBJPLAINBLOCK*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:3152:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16249,8 +14835,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUR__V13*/ meltfptr[6]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBI_LOC"); - /*_.BLOC__V16*/ - meltfptr[15] = slot; + /*_.BLOC__V16*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3155:/ getslot"); @@ -16258,8 +14843,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUR__V13*/ meltfptr[6]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OBLO_BODYL"); - /*_.BODYL__V17*/ - meltfptr[16] = slot; + /*_.BODYL__V17*/ meltfptr[16] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3156:/ getslot"); @@ -16267,16 +14851,14 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUR__V13*/ meltfptr[6]) /*=obj*/; melt_object_get_field(slot,obj, 2, "OBLO_EPIL"); - /*_.EPIL__V18*/ - meltfptr[17] = slot; + /*_.EPIL__V18*/ meltfptr[17] = slot; }; ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:3158:/ cond"); - /*cond*/ - if (/*_.BLOC__V16*/ meltfptr[15]) /*then*/ + /*cond*/ if (/*_.BLOC__V16*/ meltfptr[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16297,17 +14879,14 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#DEPTH__L3*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "quasiblock"; - /*_.OUTPUT_LOCATION__V20*/ - meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.BLOC__V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.BLOC__V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V19*/ - meltfptr[18] = /*_.OUTPUT_LOCATION__V20*/ meltfptr[19];; + /*_._IF___V19*/ meltfptr[18] = /*_.OUTPUT_LOCATION__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3158:/ clear"); - /*clear*/ /*_.OUTPUT_LOCATION__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V20*/ meltfptr[19] = 0 ; } ; } @@ -16321,8 +14900,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:3159:/ cond"); - /*cond*/ - if (/*_.BODYL__V17*/ meltfptr[16]) /*then*/ + /*cond*/ if (/*_.BODYL__V17*/ meltfptr[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16343,17 +14921,14 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXEDDEPTH__V5*/ meltfptr[4]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ - meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.BODYL__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.BODYL__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V21*/ - meltfptr[19] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ meltfptr[21];; + /*_._IF___V21*/ meltfptr[19] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3159:/ clear"); - /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ meltfptr[21] = 0 ; } ; } @@ -16367,8 +14942,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:3160:/ cond"); - /*cond*/ - if (/*_.EPIL__V18*/ meltfptr[17]) /*then*/ + /*cond*/ if (/*_.EPIL__V18*/ meltfptr[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16389,17 +14963,14 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXEDDEPTH__V5*/ meltfptr[4]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V24*/ - meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.EPIL__V18*/ meltfptr[17]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.EPIL__V18*/ meltfptr[17]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V23*/ - meltfptr[21] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V24*/ meltfptr[23];; + /*_._IF___V23*/ meltfptr[21] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3160:/ clear"); - /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V24*/ meltfptr[23] = 0 ; } ; } @@ -16410,43 +14981,32 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V15*/ - meltfptr[14] = /*_._IF___V23*/ meltfptr[21];; + /*_.LET___V15*/ meltfptr[14] = /*_._IF___V23*/ meltfptr[21];; MELT_LOCATION("warmelt-outobj.melt:3154:/ clear"); - /*clear*/ /*_.BLOC__V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.BLOC__V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.BODYL__V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.BODYL__V17*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.EPIL__V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.EPIL__V18*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_._IF___V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V21*/ - meltfptr[19] = 0 ; + /*clear*/ /*_._IF___V21*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V23*/ - meltfptr[21] = 0 ; + /*clear*/ /*_._IF___V23*/ meltfptr[21] = 0 ; MELT_LOCATION("warmelt-outobj.melt:3152:/ quasiblock"); - /*_.PROGN___V25*/ - meltfptr[23] = /*_.LET___V15*/ meltfptr[14];; + /*_.PROGN___V25*/ meltfptr[23] = /*_.LET___V15*/ meltfptr[14];; /*^compute*/ - /*_._IFELSE___V14*/ - meltfptr[13] = /*_.PROGN___V25*/ meltfptr[23];; + /*_._IFELSE___V14*/ meltfptr[13] = /*_.PROGN___V25*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3152:/ clear"); - /*clear*/ /*_.LET___V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.LET___V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V25*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.PROGN___V25*/ meltfptr[23] = 0 ; } ; } @@ -16464,8 +15024,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:3163:/ cond"); - /*cond*/ - if (/*_.CUR__V13*/ meltfptr[6]) /*then*/ + /*cond*/ if (/*_.CUR__V13*/ meltfptr[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16475,13 +15034,11 @@ meltlab_endgetargs: /*_#IS_NOT_A__L6*/ meltfnum[5] = !melt_is_instance_of((melt_ptr_t)(/*_.CUR__V13*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ meltfrout->tabval[4])));; /*^compute*/ - /*_#_IF___L5*/ - meltfnum[4] = /*_#IS_NOT_A__L6*/ meltfnum[5];; + /*_#_IF___L5*/ meltfnum[4] = /*_#IS_NOT_A__L6*/ meltfnum[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3163:/ clear"); - /*clear*/ /*_#IS_NOT_A__L6*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#IS_NOT_A__L6*/ meltfnum[5] = 0 ; } ; } @@ -16492,8 +15049,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:3163:/ cond"); - /*cond*/ - if (/*_#_IF___L5*/ meltfnum[4]) /*then*/ + /*cond*/ if (/*_#_IF___L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16520,15 +15076,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#DEPTH__L3*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V27*/ - meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.CUR__V13*/ meltfptr[6]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V27*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.CUR__V13*/ meltfptr[6]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:3166:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";")); } ; MELT_LOCATION("warmelt-outobj.melt:3163:/ quasiblock"); @@ -16537,8 +15091,7 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V27*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V27*/ meltfptr[16] = 0 ; } ; } @@ -16549,16 +15102,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_._IFELSE___V14*/ - meltfptr[13] = /*_._IFELSE___V26*/ meltfptr[15];; + /*_._IFELSE___V14*/ meltfptr[13] = /*_._IFELSE___V26*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3152:/ clear"); - /*clear*/ /*_#_IF___L5*/ - meltfnum[4] = 0 ; + /*clear*/ /*_#_IF___L5*/ meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V26*/ - meltfptr[15] = 0 ; + /*clear*/ /*_._IFELSE___V26*/ meltfptr[15] = 0 ; } ; } @@ -16573,12 +15123,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L7*/ - meltfnum[5] = + /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:3169:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -16589,8 +15137,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V29*/ - meltfptr[18] = slot; + /*_.REFERENCED_VALUE__V29*/ meltfptr[18] = slot; }; ; } @@ -16601,16 +15148,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L8*/ - meltfnum[4] = + /*_#GET_INT__L8*/ meltfnum[4] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V29*/ meltfptr[18])));; /*^compute*/ - /*_#ltI__L9*/ - meltfnum[8] = + /*_#ltI__L9*/ meltfnum[8] = ((/*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5]) < (/*_#GET_INT__L8*/ meltfnum[4]));; MELT_LOCATION("warmelt-outobj.melt:3168:/ cond"); - /*cond*/ - if (/*_#ltI__L9*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#ltI__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V30*/ meltfptr[19] = (/*nil*/NULL);; @@ -16639,40 +15183,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3168; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V31*/ - meltfptr[21] = 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__V31*/ meltfptr[21] = 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___V30*/ - meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[21];; + /*_._IFELSE___V30*/ meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3168:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V31*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[21] = 0 ; } ; } ; - /*_.IFCPP___V28*/ - meltfptr[17] = /*_._IFELSE___V30*/ meltfptr[19];; + /*_.IFCPP___V28*/ meltfptr[17] = /*_._IFELSE___V30*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3168:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L7*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V29*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V29*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L8*/ - meltfnum[4] = 0 ; + /*clear*/ /*_#GET_INT__L8*/ meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#ltI__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V30*/ - meltfptr[19] = 0 ; + /*clear*/ /*_._IFELSE___V30*/ meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16690,12 +15225,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L10*/ - meltfnum[5] = + /*_#STRBUF_USEDLENGTH__L10*/ meltfnum[5] = melt_strbuf_usedlength((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2]));; MELT_LOCATION("warmelt-outobj.melt:3171:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -16706,8 +15239,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V33*/ - meltfptr[23] = slot; + /*_.REFERENCED_VALUE__V33*/ meltfptr[23] = slot; }; ; } @@ -16718,16 +15250,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L11*/ - meltfnum[4] = + /*_#GET_INT__L11*/ meltfnum[4] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V33*/ meltfptr[23])));; /*^compute*/ - /*_#ltI__L12*/ - meltfnum[8] = + /*_#ltI__L12*/ meltfnum[8] = ((/*_#STRBUF_USEDLENGTH__L10*/ meltfnum[5]) < (/*_#GET_INT__L11*/ meltfnum[4]));; MELT_LOCATION("warmelt-outobj.melt:3170:/ cond"); - /*cond*/ - if (/*_#ltI__L12*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#ltI__L12*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V34*/ meltfptr[16] = (/*nil*/NULL);; @@ -16756,40 +15285,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3170; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V35*/ - meltfptr[15] = 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__V35*/ meltfptr[15] = 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___V34*/ - meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[15];; + /*_._IFELSE___V34*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3170:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V32*/ - meltfptr[14] = /*_._IFELSE___V34*/ meltfptr[16];; + /*_.IFCPP___V32*/ meltfptr[14] = /*_._IFELSE___V34*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3170:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L10*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L10*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V33*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V33*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L11*/ - meltfnum[4] = 0 ; + /*clear*/ /*_#GET_INT__L11*/ meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L12*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#ltI__L12*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V34*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V34*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16799,47 +15319,37 @@ meltlab_endgetargs: ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.PAIR__V12*/ meltfptr[10] = NULL; - /*_.CUR__V13*/ - meltfptr[6] = NULL; + /*_.CUR__V13*/ meltfptr[6] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:3148:/ clear"); - /*clear*/ /*_.PAIR__V12*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.PAIR__V12*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.CUR__V13*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.CUR__V13*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L4*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_._IFELSE___V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V28*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.IFCPP___V28*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V32*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.IFCPP___V32*/ meltfptr[14] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_LOCATION("warmelt-outobj.melt:3146:/ clear"); - /*clear*/ /*_#DEPTH__L3*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#DEPTH__L3*/ meltfnum[0] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3143:/ 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 ; } ; @@ -16921,8 +15431,7 @@ meltrout_66_WARMELTmiOUTOBJ_OUTPUCOD_OBJCHECKSIGNAL(meltclosure_ptr_t meltclosp_ /* end of frame for routine meltrout_66_WARMELTmiOUTOBJ_OUTPUCOD_OBJCHECKSIGNAL fromline 1756 */ - /* classy proc frame meltrout_66_WARMELTmiOUTOBJ_OUTPUCOD_OBJCHECKSIGNAL */ - MeltFrame_meltrout_66_WARMELTmiOUTOBJ_OUTPUCOD_OBJCHECKSIGNAL + /* classy proc frame meltrout_66_WARMELTmiOUTOBJ_OUTPUCOD_OBJCHECKSIGNAL */ MeltFrame_meltrout_66_WARMELTmiOUTOBJ_OUTPUCOD_OBJCHECKSIGNAL meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_66_WARMELTmiOUTOBJ_OUTPUCOD_OBJCHECKSIGNAL fromline 1785*/ #if ENABLE_CHECKING @@ -16935,8 +15444,7 @@ meltrout_66_WARMELTmiOUTOBJ_OUTPUCOD_OBJCHECKSIGNAL(meltclosure_ptr_t meltclosp_ #define meltframe meltfram__ melt_trace_start("OUTPUCOD_OBJCHECKSIGNAL", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -16946,30 +15454,26 @@ meltrout_66_WARMELTmiOUTOBJ_OUTPUCOD_OBJCHECKSIGNAL(meltclosure_ptr_t meltclosp_ /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:3177:/ getarg"); - /*_.OBCHI__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.OBCHI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -16989,12 +15493,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ - meltfnum[1] = + /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.OBCHI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCHECKSIGNAL*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-outobj.melt:3178:/ cond"); - /*cond*/ - if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; @@ -17023,31 +15525,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3178; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBCHI__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3178:/ 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-outobj.melt:3178:/ clear"); - /*clear*/ /*_#IS_A__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17063,16 +15559,14 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBCHI__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBI_LOC"); - /*_.OLOC__V8*/ - meltfptr[6] = slot; + /*_.OLOC__V8*/ meltfptr[6] = slot; }; ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:3183:/ cond"); - /*cond*/ - if (/*_.OLOC__V8*/ meltfptr[6]) /*then*/ + /*cond*/ if (/*_.OLOC__V8*/ meltfptr[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17093,17 +15587,14 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "checksignal"; - /*_.OUTPUT_RAW_LOCATION__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_RAW_LOCATION__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V9*/ - meltfptr[5] = /*_.OUTPUT_RAW_LOCATION__V10*/ meltfptr[9];; + /*_._IF___V9*/ meltfptr[5] = /*_.OUTPUT_RAW_LOCATION__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3183:/ clear"); - /*clear*/ /*_.OUTPUT_RAW_LOCATION__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.OUTPUT_RAW_LOCATION__V10*/ meltfptr[9] = 0 ; } ; } @@ -17123,8 +15614,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " MELT_CHECK_SIGNAL();"; - /*_.ADD2OUT__V11*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V11*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -17135,22 +15625,18 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:3179:/ clear"); - /*clear*/ /*_.OLOC__V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.OLOC__V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V9*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.ADD2OUT__V11*/ meltfptr[9] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3177:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; } ; @@ -17232,8 +15718,7 @@ meltrout_67_WARMELTmiOUTOBJ_OUTPUCOD_OBJANYBLOCK(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_67_WARMELTmiOUTOBJ_OUTPUCOD_OBJANYBLOCK fromline 1756 */ - /* classy proc frame meltrout_67_WARMELTmiOUTOBJ_OUTPUCOD_OBJANYBLOCK */ - MeltFrame_meltrout_67_WARMELTmiOUTOBJ_OUTPUCOD_OBJANYBLOCK + /* classy proc frame meltrout_67_WARMELTmiOUTOBJ_OUTPUCOD_OBJANYBLOCK */ MeltFrame_meltrout_67_WARMELTmiOUTOBJ_OUTPUCOD_OBJANYBLOCK meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_67_WARMELTmiOUTOBJ_OUTPUCOD_OBJANYBLOCK fromline 1785*/ #if ENABLE_CHECKING @@ -17246,8 +15731,7 @@ meltrout_67_WARMELTmiOUTOBJ_OUTPUCOD_OBJANYBLOCK(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("OUTPUCOD_OBJANYBLOCK", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -17257,30 +15741,26 @@ meltrout_67_WARMELTmiOUTOBJ_OUTPUCOD_OBJANYBLOCK(meltclosure_ptr_t meltclosp_, m /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:3190:/ getarg"); - /*_.OBLO__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.OBLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -17300,12 +15780,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ - meltfnum[1] = + /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJANYBLOCK*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-outobj.melt:3191:/ cond"); - /*cond*/ - if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; @@ -17334,31 +15812,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3191; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBLO__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3191:/ 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-outobj.melt:3191:/ clear"); - /*clear*/ /*_#IS_A__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17371,8 +15843,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBI_LOC"); - /*_.OBI_LOC__V8*/ - meltfptr[6] = slot; + /*_.OBI_LOC__V8*/ meltfptr[6] = slot; }; ; @@ -17389,8 +15860,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "block"; - /*_.OUTPUT_LOCATION__V9*/ - meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V8*/ meltfptr[6]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V9*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V8*/ meltfptr[6]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:3193:/ quasiblock"); @@ -17401,8 +15871,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OBLO_BODYL"); - /*_.BODYL__V11*/ - meltfptr[10] = slot; + /*_.BODYL__V11*/ meltfptr[10] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3194:/ getslot"); @@ -17410,23 +15879,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "OBLO_EPIL"); - /*_.EPIL__V12*/ - meltfptr[11] = slot; + /*_.EPIL__V12*/ meltfptr[11] = slot; }; ; - /*_#plI__L3*/ - meltfnum[1] = + /*_#plI__L3*/ meltfnum[1] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; /*^compute*/ - /*_.BOXDEPTHP1__V13*/ - meltfptr[12] = + /*_.BOXDEPTHP1__V13*/ meltfptr[12] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[3])), (/*_#plI__L3*/ meltfnum[1])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:73:/ cond"); - /*cond*/ - if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ + /*cond*/ if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17443,17 +15908,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OBLO__V2*/ meltfptr[1]; - /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V15*/ - meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V14*/ - meltfptr[13] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V15*/ meltfptr[14];; + /*_._IF___V14*/ meltfptr[13] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:73:/ clear"); - /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V15*/ meltfptr[14] = 0 ; } ; } @@ -17466,19 +15928,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3198:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*anyblock*/{")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*anyblock*/{")); } ; MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L4*/ - meltfnum[3] = + /*_#IS_LIST__L4*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.BODYL__V11*/ meltfptr[10])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:3199:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L4*/ meltfnum[3]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17499,17 +15958,14 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ meltfptr[12]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ - meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.BODYL__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.BODYL__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V16*/ - meltfptr[14] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ meltfptr[16];; + /*_._IF___V16*/ meltfptr[14] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3199:/ clear"); - /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ meltfptr[16] = 0 ; } ; } @@ -17523,12 +15979,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_LIST__L5*/ - meltfnum[4] = + /*_#IS_LIST__L5*/ meltfnum[4] = (melt_magic_discr((melt_ptr_t)(/*_.EPIL__V12*/ meltfptr[11])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:3201:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L5*/ meltfnum[4]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17546,8 +16000,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3204:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*epilog*/")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*epilog*/")); } ; @@ -17564,29 +16017,23 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ meltfptr[12]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V19*/ - meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.EPIL__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.EPIL__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:3202:/ quasiblock"); - /*_.PROGN___V20*/ - meltfptr[19] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V19*/ meltfptr[18];; + /*_.PROGN___V20*/ meltfptr[19] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V19*/ meltfptr[18];; /*^compute*/ - /*_._IF___V18*/ - meltfptr[16] = /*_.PROGN___V20*/ meltfptr[19];; + /*_._IF___V18*/ meltfptr[16] = /*_.PROGN___V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3201:/ clear"); - /*clear*/ /*_#GET_INT__L6*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#GET_INT__L6*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.PROGN___V20*/ meltfptr[19] = 0 ; } ; } @@ -17599,8 +16046,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3206:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "}")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "}")); } ; @@ -17619,12 +16065,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L7*/ - meltfnum[5] = + /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:3209:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -17635,8 +16079,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V22*/ - meltfptr[19] = slot; + /*_.REFERENCED_VALUE__V22*/ meltfptr[19] = slot; }; ; } @@ -17647,16 +16090,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L8*/ - meltfnum[7] = + /*_#GET_INT__L8*/ meltfnum[7] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V22*/ meltfptr[19])));; /*^compute*/ - /*_#ltI__L9*/ - meltfnum[8] = + /*_#ltI__L9*/ meltfnum[8] = ((/*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5]) < (/*_#GET_INT__L8*/ meltfnum[7]));; MELT_LOCATION("warmelt-outobj.melt:3208:/ cond"); - /*cond*/ - if (/*_#ltI__L9*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#ltI__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V23*/ meltfptr[22] = (/*nil*/NULL);; @@ -17685,40 +16125,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3208; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.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-outobj.melt:3208:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = 0 ; } ; } ; - /*_.IFCPP___V21*/ - meltfptr[18] = /*_._IFELSE___V23*/ meltfptr[22];; + /*_.IFCPP___V21*/ meltfptr[18] = /*_._IFELSE___V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3208:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L7*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V22*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V22*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#GET_INT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#ltI__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17727,47 +16158,35 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V10*/ - meltfptr[9] = /*_.IFCPP___V21*/ meltfptr[18];; + /*_.LET___V10*/ meltfptr[9] = /*_.IFCPP___V21*/ meltfptr[18];; MELT_LOCATION("warmelt-outobj.melt:3193:/ clear"); - /*clear*/ /*_.BODYL__V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.BODYL__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.EPIL__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.EPIL__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#plI__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.BOXDEPTHP1__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.BOXDEPTHP1__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_._IF___V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L4*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#IS_LIST__L4*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V16*/ - meltfptr[14] = 0 ; + /*clear*/ /*_._IF___V16*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L5*/ - meltfnum[4] = 0 ; + /*clear*/ /*_#IS_LIST__L5*/ meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V18*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IF___V18*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V21*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V21*/ meltfptr[18] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:3190:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V10*/ meltfptr[9];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[9];; { MELT_LOCATION("warmelt-outobj.melt:3190:/ locexp"); @@ -17782,22 +16201,17 @@ 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*/ /*_.OBI_LOC__V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.OBI_LOC__V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_LOCATION__V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V9*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.LET___V10*/ meltfptr[9] = 0 ; } ; @@ -17879,8 +16293,7 @@ meltrout_68_WARMELTmiOUTOBJ_OUTPUCOD_OBJFLAG(meltclosure_ptr_t meltclosp_, melt_ /* end of frame for routine meltrout_68_WARMELTmiOUTOBJ_OUTPUCOD_OBJFLAG fromline 1756 */ - /* classy proc frame meltrout_68_WARMELTmiOUTOBJ_OUTPUCOD_OBJFLAG */ - MeltFrame_meltrout_68_WARMELTmiOUTOBJ_OUTPUCOD_OBJFLAG + /* classy proc frame meltrout_68_WARMELTmiOUTOBJ_OUTPUCOD_OBJFLAG */ MeltFrame_meltrout_68_WARMELTmiOUTOBJ_OUTPUCOD_OBJFLAG meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_68_WARMELTmiOUTOBJ_OUTPUCOD_OBJFLAG fromline 1785*/ #if ENABLE_CHECKING @@ -17893,8 +16306,7 @@ meltrout_68_WARMELTmiOUTOBJ_OUTPUCOD_OBJFLAG(meltclosure_ptr_t meltclosp_, melt_ #define meltframe meltfram__ melt_trace_start("OUTPUCOD_OBJFLAG", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -17904,30 +16316,26 @@ meltrout_68_WARMELTmiOUTOBJ_OUTPUCOD_OBJFLAG(meltclosure_ptr_t meltclosp_, melt_ /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:3216:/ getarg"); - /*_.OFLAG__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.OFLAG__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -17957,8 +16365,7 @@ 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)) @@ -17967,8 +16374,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:3217:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18001,20 +16407,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_objflag oflag="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OFLAG__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V5*/ - meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; + /*_._IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3217:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } @@ -18027,8 +16429,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3217:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -18037,11 +16438,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18071,12 +16470,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[2] = + /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.OFLAG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJFLAG*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:3218:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -18105,31 +16502,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3218; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OFLAG__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ - meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3218:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ - meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; + /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3218:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18141,8 +16532,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:73:/ cond"); - /*cond*/ - if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ + /*cond*/ if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18159,17 +16549,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OFLAG__V2*/ meltfptr[1]; - /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V11*/ - meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V10*/ - meltfptr[8] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V11*/ meltfptr[4];; + /*_._IF___V10*/ meltfptr[8] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V11*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:73:/ clear"); - /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V11*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V11*/ meltfptr[4] = 0 ; } ; } @@ -18183,8 +16570,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OFLAG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJFLAG*/ meltfrout->tabval[1]))) ) /*then*/ @@ -18195,8 +16581,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OFLAG__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "OBFLAG_NAME"); - /*_.OFLNAME__V13*/ - meltfptr[12] = slot; + /*_.OFLNAME__V13*/ meltfptr[12] = slot; }; ; } @@ -18207,8 +16592,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:3221:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OFLAG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJFLAG*/ meltfrout->tabval[1]))) ) /*then*/ @@ -18219,8 +16603,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OFLAG__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "OBFLAG_RANK"); - /*_.OFLRANK__V14*/ - meltfptr[13] = slot; + /*_.OFLRANK__V14*/ meltfptr[13] = slot; }; ; } @@ -18248,30 +16631,24 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OFLRANK__V14*/ meltfptr[13]; /*^apply.arg*/ argtab[4].meltbp_cstring = " "; - /*_.ADD2OUT__V15*/ - meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V12*/ - meltfptr[4] = /*_.ADD2OUT__V15*/ meltfptr[14];; + /*_.LET___V12*/ meltfptr[4] = /*_.ADD2OUT__V15*/ meltfptr[14];; MELT_LOCATION("warmelt-outobj.melt:3220:/ clear"); - /*clear*/ /*_.OFLNAME__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.OFLNAME__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.OFLRANK__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.OFLRANK__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.ADD2OUT__V15*/ meltfptr[14] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:3216:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V12*/ meltfptr[4];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[4];; { MELT_LOCATION("warmelt-outobj.melt:3216:/ locexp"); @@ -18286,19 +16663,15 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V10*/ - meltfptr[8] = 0 ; + /*clear*/ /*_._IF___V10*/ meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V12*/ meltfptr[4] = 0 ; } ; @@ -18380,8 +16753,7 @@ meltrout_69_WARMELTmiOUTOBJ_OUTPUCOD_OBJMATCHFLAGBLOCK(meltclosure_ptr_t meltclo /* end of frame for routine meltrout_69_WARMELTmiOUTOBJ_OUTPUCOD_OBJMATCHFLAGBLOCK fromline 1756 */ - /* classy proc frame meltrout_69_WARMELTmiOUTOBJ_OUTPUCOD_OBJMATCHFLAGBLOCK */ - MeltFrame_meltrout_69_WARMELTmiOUTOBJ_OUTPUCOD_OBJMATCHFLAGBLOCK + /* classy proc frame meltrout_69_WARMELTmiOUTOBJ_OUTPUCOD_OBJMATCHFLAGBLOCK */ MeltFrame_meltrout_69_WARMELTmiOUTOBJ_OUTPUCOD_OBJMATCHFLAGBLOCK meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_69_WARMELTmiOUTOBJ_OUTPUCOD_OBJMATCHFLAGBLOCK fromline 1785*/ #if ENABLE_CHECKING @@ -18394,8 +16766,7 @@ meltrout_69_WARMELTmiOUTOBJ_OUTPUCOD_OBJMATCHFLAGBLOCK(meltclosure_ptr_t meltclo #define meltframe meltfram__ melt_trace_start("OUTPUCOD_OBJMATCHFLAGBLOCK", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -18405,30 +16776,26 @@ meltrout_69_WARMELTmiOUTOBJ_OUTPUCOD_OBJMATCHFLAGBLOCK(meltclosure_ptr_t meltclo /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:3228:/ getarg"); - /*_.OBLO__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.OBLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -18458,8 +16825,7 @@ 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)) @@ -18468,8 +16834,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:3229:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18502,20 +16867,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_objmatchflagblock oblo="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBLO__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V5*/ - meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; + /*_._IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3229:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } @@ -18528,8 +16889,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3229:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -18538,11 +16898,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18572,12 +16930,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[2] = + /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMATCHFLAGBLOCK*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:3230:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -18606,31 +16962,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3230; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBLO__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ - meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3230:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ - meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; + /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3230:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18642,8 +16992,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:3232:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINSTR*/ meltfrout->tabval[3]))) ) /*then*/ @@ -18654,8 +17003,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBI_LOC"); - /*_.OLOC__V10*/ - meltfptr[8] = slot; + /*_.OLOC__V10*/ meltfptr[8] = slot; }; ; } @@ -18666,8 +17014,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:3233:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMATCHFLAGBLOCK*/ meltfrout->tabval[1]))) ) /*then*/ @@ -18678,8 +17025,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "OMCHFLGBLO_FLAGS"); - /*_.OFLAGS__V11*/ - meltfptr[4] = slot; + /*_.OFLAGS__V11*/ meltfptr[4] = slot; }; ; } @@ -18690,8 +17036,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:3234:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJANYBLOCK*/ meltfrout->tabval[4]))) ) /*then*/ @@ -18702,8 +17047,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OBLO_BODYL"); - /*_.OBODY__V12*/ - meltfptr[11] = slot; + /*_.OBODY__V12*/ meltfptr[11] = slot; }; ; } @@ -18718,12 +17062,10 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "OBLO_EPIL"); - /*_.OEPIL__V13*/ - meltfptr[12] = slot; + /*_.OEPIL__V13*/ meltfptr[12] = slot; }; ; - /*_#DEPTHSUCC__L5*/ - meltfnum[1] = + /*_#DEPTHSUCC__L5*/ meltfnum[1] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; MELT_CHECK_SIGNAL(); @@ -18739,15 +17081,13 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "matchflagblock"; - /*_.OUTPUT_LOCATION__V14*/ - meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V10*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V10*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:3239:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*matchflagblock*/ {")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*matchflagblock*/ {")); } ; @@ -18770,8 +17110,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ - meltfnum[2] = + /*_#MELT_NEED_DBG__L6*/ meltfnum[2] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18780,8 +17119,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:3241:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L6*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18814,20 +17152,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_objmatchflagblock oflags="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OFLAGS__V11*/ meltfptr[4]; - /*_.MELT_DEBUG_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V15*/ - meltfptr[14] = /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; + /*_._IF___V15*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3241:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0 ; } ; } @@ -18840,8 +17174,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3241:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -18850,11 +17183,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_._IF___V15*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18878,8 +17209,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:3242:/ cond"); - /*cond*/ - if (/*_.OFLAGS__V11*/ meltfptr[4]) /*then*/ + /*cond*/ if (/*_.OFLAGS__V11*/ meltfptr[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18896,12 +17226,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L8*/ - meltfnum[6] = + /*_#IS_MULTIPLE__L8*/ meltfnum[6] = (melt_magic_discr((melt_ptr_t)(/*_.OFLAGS__V11*/ meltfptr[4])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-outobj.melt:3243:/ cond"); - /*cond*/ - if (/*_#IS_MULTIPLE__L8*/ meltfnum[6]) /*then*/ + /*cond*/ if (/*_#IS_MULTIPLE__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[14] = (/*nil*/NULL);; @@ -18930,31 +17258,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3243; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OFLAGS__V11*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V19*/ - meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V18*/ - meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; + /*_._IFELSE___V18*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3243:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = 0 ; } ; } ; - /*_.IFCPP___V17*/ - meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[14];; + /*_.IFCPP___V17*/ meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3243:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L8*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L8*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V18*/ - meltfptr[14] = 0 ; + /*clear*/ /*_._IFELSE___V18*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18994,8 +17316,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ - meltfnum[6] = + /*_#MELT_NEED_DBG__L10*/ meltfnum[6] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19004,8 +17325,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:3247:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L10*/ meltfnum[6]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19042,20 +17362,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#IX__L9*/ meltfnum[2]; - /*_.MELT_DEBUG_FUN__V22*/ - meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V21*/ - meltfptr[14] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; + /*_._IF___V21*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3247:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0 ; } ; } @@ -19068,8 +17384,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3247:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -19078,11 +17393,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V21*/ - meltfptr[14] = 0 ; + /*clear*/ /*_._IF___V21*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19112,12 +17425,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L12*/ - meltfnum[10] = + /*_#IS_A__L12*/ meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.CUROFLAG__V20*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_OBJFLAG*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-outobj.melt:3248:/ cond"); - /*cond*/ - if (/*_#IS_A__L12*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#IS_A__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V24*/ meltfptr[14] = (/*nil*/NULL);; @@ -19146,31 +17457,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3248; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CUROFLAG__V20*/ meltfptr[18]; - /*_.MELT_ASSERT_FAILURE_FUN__V25*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V24*/ - meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; + /*_._IFELSE___V24*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3248:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = 0 ; } ; } ; - /*_.IFCPP___V23*/ - meltfptr[21] = /*_._IFELSE___V24*/ meltfptr[14];; + /*_.IFCPP___V23*/ meltfptr[21] = /*_._IFELSE___V24*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3248:/ clear"); - /*clear*/ /*_#IS_A__L12*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#IS_A__L12*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V24*/ - meltfptr[14] = 0 ; + /*clear*/ /*_._IFELSE___V24*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19187,8 +17492,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3250:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "bool ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "bool ")); } ; @@ -19205,15 +17509,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#DEPTHSUCC__L5*/ meltfnum[1]; - /*_.OUTPUT_C_CODE__V26*/ - meltfptr[24] = meltgc_send((melt_ptr_t)(/*_.CUROFLAG__V20*/ meltfptr[18]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V26*/ meltfptr[24] = meltgc_send((melt_ptr_t)(/*_.CUROFLAG__V20*/ meltfptr[18]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:3252:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = false;")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = false;")); } ; if (/*_#IX__L9*/ meltfnum[2]<0) break; @@ -19222,17 +17524,13 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:3244:/ clear"); - /*clear*/ /*_.CUROFLAG__V20*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.CUROFLAG__V20*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L9*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IX__L9*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V23*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.IFCPP___V23*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V26*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V26*/ meltfptr[24] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-outobj.melt:3242:/ quasiblock"); @@ -19241,8 +17539,7 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; } ; } /*noelse*/ @@ -19267,8 +17564,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ - meltfnum[6] = + /*_#MELT_NEED_DBG__L13*/ meltfnum[6] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19277,8 +17573,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:3256:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L13*/ meltfnum[6]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19311,20 +17606,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_objmatchflagblock obody="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBODY__V12*/ meltfptr[11]; - /*_.MELT_DEBUG_FUN__V28*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V28*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V27*/ - meltfptr[14] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[15];; + /*_._IF___V27*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3256:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ meltfptr[15] = 0 ; } ; } @@ -19337,8 +17628,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3256:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -19347,11 +17637,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V27*/ - meltfptr[14] = 0 ; + /*clear*/ /*_._IF___V27*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19375,8 +17663,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:3257:/ cond"); - /*cond*/ - if (/*_.OBODY__V12*/ meltfptr[11]) /*then*/ + /*cond*/ if (/*_.OBODY__V12*/ meltfptr[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19403,8 +17690,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "matchflagblock.body"; - /*_.OUTPUT_LOCATION__V30*/ - meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V10*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V30*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V10*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -19417,12 +17703,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L15*/ - meltfnum[10] = + /*_#IS_LIST__L15*/ meltfnum[10] = (melt_magic_discr((melt_ptr_t)(/*_.OBODY__V12*/ meltfptr[11])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:3260:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L15*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L15*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V32*/ meltfptr[31] = (/*nil*/NULL);; @@ -19451,31 +17735,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3260; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBODY__V12*/ meltfptr[11]; - /*_.MELT_ASSERT_FAILURE_FUN__V33*/ - meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V32*/ - meltfptr[31] = /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32];; + /*_._IFELSE___V32*/ meltfptr[31] = /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3260:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32] = 0 ; } ; } ; - /*_.IFCPP___V31*/ - meltfptr[30] = /*_._IFELSE___V32*/ meltfptr[31];; + /*_.IFCPP___V31*/ meltfptr[30] = /*_._IFELSE___V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3260:/ clear"); - /*clear*/ /*_#IS_LIST__L15*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#IS_LIST__L15*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_._IFELSE___V32*/ meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19484,8 +17762,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.BOX__V34*/ - meltfptr[32] = + /*_.BOX__V34*/ meltfptr[32] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#DEPTHSUCC__L5*/ meltfnum[1]));; MELT_CHECK_SIGNAL(); @@ -19501,35 +17778,27 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOX__V34*/ meltfptr[32]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V35*/ - meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OBODY__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V35*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OBODY__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:3257:/ quasiblock"); - /*_.PROGN___V36*/ - meltfptr[35] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V35*/ meltfptr[31];; + /*_.PROGN___V36*/ meltfptr[35] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V35*/ meltfptr[31];; /*^compute*/ - /*_._IF___V29*/ - meltfptr[15] = /*_.PROGN___V36*/ meltfptr[35];; + /*_._IF___V29*/ meltfptr[15] = /*_.PROGN___V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3257:/ clear"); - /*clear*/ /*_.OUTPUT_LOCATION__V30*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V30*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.IFCPP___V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.BOX__V34*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.BOX__V34*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V35*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V35*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.PROGN___V36*/ meltfptr[35] = 0 ; } ; } @@ -19559,8 +17828,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ - meltfnum[6] = + /*_#MELT_NEED_DBG__L16*/ meltfnum[6] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19569,8 +17837,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:3265:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L16*/ meltfnum[6]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19603,20 +17870,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "outpucod_objmatchflagblock oepil="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OEPIL__V13*/ meltfptr[12]; - /*_.MELT_DEBUG_FUN__V38*/ - meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V38*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V37*/ - meltfptr[14] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[30];; + /*_._IF___V37*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3265:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ meltfptr[30] = 0 ; } ; } @@ -19629,8 +17892,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3265:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -19639,11 +17901,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V37*/ - meltfptr[14] = 0 ; + /*clear*/ /*_._IF___V37*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19667,8 +17927,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:3266:/ cond"); - /*cond*/ - if (/*_.OEPIL__V13*/ meltfptr[12]) /*then*/ + /*cond*/ if (/*_.OEPIL__V13*/ meltfptr[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19695,8 +17954,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "matchflagblock.epilog"; - /*_.OUTPUT_LOCATION__V40*/ - meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V10*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V40*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V10*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -19709,12 +17967,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L18*/ - meltfnum[10] = + /*_#IS_LIST__L18*/ meltfnum[10] = (melt_magic_discr((melt_ptr_t)(/*_.OEPIL__V13*/ meltfptr[12])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:3269:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L18*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L18*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V42*/ meltfptr[30] = (/*nil*/NULL);; @@ -19743,31 +17999,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3269; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OEPIL__V13*/ meltfptr[12]; - /*_.MELT_ASSERT_FAILURE_FUN__V43*/ - meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V42*/ - meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[14];; + /*_._IFELSE___V42*/ meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3269:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V43*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[14] = 0 ; } ; } ; - /*_.IFCPP___V41*/ - meltfptr[35] = /*_._IFELSE___V42*/ meltfptr[30];; + /*_.IFCPP___V41*/ meltfptr[35] = /*_._IFELSE___V42*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3269:/ clear"); - /*clear*/ /*_#IS_LIST__L18*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#IS_LIST__L18*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V42*/ - meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V42*/ meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19776,8 +18026,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.BOX__V44*/ - meltfptr[14] = + /*_.BOX__V44*/ meltfptr[14] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#DEPTHSUCC__L5*/ meltfnum[1]));; MELT_CHECK_SIGNAL(); @@ -19793,35 +18042,27 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOX__V44*/ meltfptr[14]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V45*/ - meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OEPIL__V13*/ meltfptr[12]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V45*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OEPIL__V13*/ meltfptr[12]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:3266:/ quasiblock"); - /*_.PROGN___V46*/ - meltfptr[45] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V45*/ meltfptr[30];; + /*_.PROGN___V46*/ meltfptr[45] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V45*/ meltfptr[30];; /*^compute*/ - /*_._IF___V39*/ - meltfptr[32] = /*_.PROGN___V46*/ meltfptr[45];; + /*_._IF___V39*/ meltfptr[32] = /*_.PROGN___V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3266:/ clear"); - /*clear*/ /*_.OUTPUT_LOCATION__V40*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V40*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V41*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.IFCPP___V41*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.BOX__V44*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.BOX__V44*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V45*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V45*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V46*/ - meltfptr[45] = 0 ; + /*clear*/ /*_.PROGN___V46*/ meltfptr[45] = 0 ; } ; } @@ -19840,8 +18081,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3274:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";} /*end.matchflagblock*/ ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";} /*end.matchflagblock*/ ")); } ; @@ -19852,37 +18092,28 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:3231:/ clear"); - /*clear*/ /*_.OLOC__V10*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.OLOC__V10*/ meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.OFLAGS__V11*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.OFLAGS__V11*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.OBODY__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.OBODY__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.OEPIL__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.OEPIL__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_#DEPTHSUCC__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#DEPTHSUCC__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_LOCATION__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V29*/ - meltfptr[15] = 0 ; + /*clear*/ /*_._IF___V29*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ - meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V39*/ meltfptr[32] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3228:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; @@ -19964,8 +18195,7 @@ meltrout_70_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIALLOCBLOCK(meltclosure_ptr_t meltcl /* end of frame for routine meltrout_70_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIALLOCBLOCK fromline 1756 */ - /* classy proc frame meltrout_70_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIALLOCBLOCK */ - MeltFrame_meltrout_70_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIALLOCBLOCK + /* classy proc frame meltrout_70_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIALLOCBLOCK */ MeltFrame_meltrout_70_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIALLOCBLOCK meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_70_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIALLOCBLOCK fromline 1785*/ #if ENABLE_CHECKING @@ -19978,8 +18208,7 @@ meltrout_70_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIALLOCBLOCK(meltclosure_ptr_t meltcl #define meltframe meltfram__ melt_trace_start("OUTPUCOD_OBJMULTIALLOCBLOCK", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -19989,30 +18218,26 @@ meltrout_70_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIALLOCBLOCK(meltclosure_ptr_t meltcl /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:3280:/ getarg"); - /*_.OBLO__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.OBLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -20032,12 +18257,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ - meltfnum[1] = + /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMULTIALLOCBLOCK*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-outobj.melt:3281:/ cond"); - /*cond*/ - if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; @@ -20066,31 +18289,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3281; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBLO__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3281:/ 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-outobj.melt:3281:/ clear"); - /*clear*/ /*_#IS_A__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20106,8 +18323,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBI_LOC"); - /*_.OLOC__V8*/ - meltfptr[6] = slot; + /*_.OLOC__V8*/ meltfptr[6] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3283:/ getslot"); @@ -20115,8 +18331,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "OMALBLO_ALLSTRUCT"); - /*_.OALLSTRUCT__V9*/ - meltfptr[5] = slot; + /*_.OALLSTRUCT__V9*/ meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3284:/ getslot"); @@ -20124,8 +18339,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "OMALBLO_NAME"); - /*_.ONAME__V10*/ - meltfptr[9] = slot; + /*_.ONAME__V10*/ meltfptr[9] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3285:/ getslot"); @@ -20133,8 +18347,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "OBLO_EPIL"); - /*_.EPIL__V11*/ - meltfptr[10] = slot; + /*_.EPIL__V11*/ meltfptr[10] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3286:/ getslot"); @@ -20142,53 +18355,42 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OBLO_BODYL"); - /*_.BODYL__V12*/ - meltfptr[11] = slot; + /*_.BODYL__V12*/ meltfptr[11] = slot; }; ; - /*_#DEPTHP1__L3*/ - meltfnum[1] = + /*_#DEPTHP1__L3*/ meltfnum[1] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; /*^compute*/ - /*_.BOXDEPTHP1__V13*/ - meltfptr[12] = + /*_.BOXDEPTHP1__V13*/ meltfptr[12] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[2])), (/*_#DEPTHP1__L3*/ meltfnum[1])));; MELT_LOCATION("warmelt-outobj.melt:3289:/ quasiblock"); - /*_.PTRBUF__V15*/ - meltfptr[14] = + /*_.PTRBUF__V15*/ meltfptr[14] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; { MELT_LOCATION("warmelt-outobj.melt:3290:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.PTRBUF__V15*/ meltfptr[14]), - melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ meltfptr[9]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.PTRBUF__V15*/ meltfptr[14]), + melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ meltfptr[9]))); } ; { MELT_LOCATION("warmelt-outobj.melt:3291:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.PTRBUF__V15*/ meltfptr[14]), ( "_ptr")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.PTRBUF__V15*/ meltfptr[14]), ( "_ptr")); } ; - /*_.STRBUF2STRING__V16*/ - meltfptr[15] = + /*_.STRBUF2STRING__V16*/ meltfptr[15] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[4])), melt_strbuf_str((melt_ptr_t)(/*_.PTRBUF__V15*/ meltfptr[14]))));; /*^compute*/ - /*_.LET___V14*/ - meltfptr[13] = /*_.STRBUF2STRING__V16*/ meltfptr[15];; + /*_.LET___V14*/ meltfptr[13] = /*_.STRBUF2STRING__V16*/ meltfptr[15];; MELT_LOCATION("warmelt-outobj.melt:3289:/ clear"); - /*clear*/ /*_.PTRBUF__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.PTRBUF__V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V16*/ - meltfptr[15] = 0 ; - /*_.ONAMEPTR__V17*/ - meltfptr[14] = /*_.LET___V14*/ meltfptr[13];; + /*clear*/ /*_.STRBUF2STRING__V16*/ meltfptr[15] = 0 ; + /*_.ONAMEPTR__V17*/ meltfptr[14] = /*_.LET___V14*/ meltfptr[13];; MELT_CHECK_SIGNAL(); ; @@ -20203,8 +18405,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "blockmultialloc"; - /*_.OUTPUT_LOCATION__V18*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V18*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -20217,12 +18418,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE_OR_NULL__L4*/ - meltfnum[3] = + /*_#IS_MULTIPLE_OR_NULL__L4*/ meltfnum[3] = ((/*_.OALLSTRUCT__V9*/ meltfptr[5]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.OALLSTRUCT__V9*/ meltfptr[5])) == MELTOBMAG_MULTIPLE));; MELT_LOCATION("warmelt-outobj.melt:3295:/ cond"); - /*cond*/ - if (/*_#IS_MULTIPLE_OR_NULL__L4*/ meltfnum[3]) /*then*/ + /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V20*/ meltfptr[19] = (/*nil*/NULL);; @@ -20251,31 +18450,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3295; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OALLSTRUCT__V9*/ meltfptr[5]; - /*_.MELT_ASSERT_FAILURE_FUN__V21*/ - meltfptr[20] = 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__V21*/ meltfptr[20] = 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___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-outobj.melt:3295:/ 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-outobj.melt:3295:/ clear"); - /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L4*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L4*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_._IFELSE___V20*/ meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20286,8 +18479,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3296:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*multiallocblock*/{")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*multiallocblock*/{")); } ; @@ -20299,23 +18491,20 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3298:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "struct ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "struct ")); } ; { MELT_LOCATION("warmelt-outobj.melt:3299:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ meltfptr[9]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ meltfptr[9]))); } ; { MELT_LOCATION("warmelt-outobj.melt:3300:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "_st {")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "_st {")); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -20340,12 +18529,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ - meltfnum[5] = + /*_#IS_A__L6*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.CURSTRU__V22*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_OBJINITELEM*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-outobj.melt:3304:/ cond"); - /*cond*/ - if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V24*/ meltfptr[23] = (/*nil*/NULL);; @@ -20374,31 +18561,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3304; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURSTRU__V22*/ meltfptr[20]; - /*_.MELT_ASSERT_FAILURE_FUN__V25*/ - meltfptr[24] = 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__V25*/ meltfptr[24] = 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___V24*/ - meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; + /*_._IFELSE___V24*/ meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3304:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = 0 ; } ; } ; - /*_.IFCPP___V23*/ - meltfptr[19] = /*_._IFELSE___V24*/ meltfptr[23];; + /*_.IFCPP___V23*/ meltfptr[19] = /*_._IFELSE___V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3304:/ clear"); - /*clear*/ /*_#IS_A__L6*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_._IFELSE___V24*/ meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20422,8 +18603,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.OUTPUT_C_DECLINIT__V26*/ - meltfptr[24] = meltgc_send((melt_ptr_t)(/*_.CURSTRU__V22*/ meltfptr[20]), (melt_ptr_t)((/*!OUTPUT_C_DECLINIT*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_DECLINIT__V26*/ meltfptr[24] = meltgc_send((melt_ptr_t)(/*_.CURSTRU__V22*/ meltfptr[20]), (melt_ptr_t)((/*!OUTPUT_C_DECLINIT*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -20436,12 +18616,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L7*/ - meltfnum[5] = + /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:3308:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[9]))) ) /*then*/ @@ -20452,8 +18630,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[8])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V28*/ - meltfptr[27] = slot; + /*_.REFERENCED_VALUE__V28*/ meltfptr[27] = slot; }; ; } @@ -20464,16 +18641,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L8*/ - meltfnum[7] = + /*_#GET_INT__L8*/ meltfnum[7] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V28*/ meltfptr[27])));; /*^compute*/ - /*_#ltI__L9*/ - meltfnum[8] = + /*_#ltI__L9*/ meltfnum[8] = ((/*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5]) < (/*_#GET_INT__L8*/ meltfnum[7]));; MELT_LOCATION("warmelt-outobj.melt:3307:/ cond"); - /*cond*/ - if (/*_#ltI__L9*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#ltI__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V29*/ meltfptr[28] = (/*nil*/NULL);; @@ -20502,40 +18676,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3307; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.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[28] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29];; + /*_._IFELSE___V29*/ meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3307:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29] = 0 ; } ; } ; - /*_.IFCPP___V27*/ - meltfptr[23] = /*_._IFELSE___V29*/ meltfptr[28];; + /*_.IFCPP___V27*/ meltfptr[23] = /*_._IFELSE___V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3307:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L7*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#GET_INT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#ltI__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_._IFELSE___V29*/ meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20549,57 +18714,47 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:3301:/ clear"); - /*clear*/ /*_.CURSTRU__V22*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.CURSTRU__V22*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_#STRIX__L5*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#STRIX__L5*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V23*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.IFCPP___V23*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_DECLINIT__V26*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.OUTPUT_C_DECLINIT__V26*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V27*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.IFCPP___V27*/ meltfptr[23] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-outobj.melt:3310:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " long ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " long ")); } ; { MELT_LOCATION("warmelt-outobj.melt:3311:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ meltfptr[9]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ meltfptr[9]))); } ; { MELT_LOCATION("warmelt-outobj.melt:3312:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "_endgap; } *")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "_endgap; } *")); } ; { MELT_LOCATION("warmelt-outobj.melt:3313:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ meltfptr[9]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ meltfptr[9]))); } ; { MELT_LOCATION("warmelt-outobj.melt:3314:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "_ptr = 0;")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "_ptr = 0;")); } ; @@ -20611,46 +18766,40 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3316:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ meltfptr[9]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ meltfptr[9]))); } ; { MELT_LOCATION("warmelt-outobj.melt:3317:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "_ptr = (struct ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "_ptr = (struct ")); } ; { MELT_LOCATION("warmelt-outobj.melt:3318:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ meltfptr[9]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ meltfptr[9]))); } ; { MELT_LOCATION("warmelt-outobj.melt:3319:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "_st *) meltgc_allocate (sizeof (struct ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "_st *) meltgc_allocate (sizeof (struct ")); } ; { MELT_LOCATION("warmelt-outobj.melt:3320:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ meltfptr[9]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ meltfptr[9]))); } ; { MELT_LOCATION("warmelt-outobj.melt:3321:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "_st), 0);")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "_st), 0);")); } ; @@ -20673,8 +18822,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "blockmultialloc.initfill"; - /*_.OUTPUT_LOCATION__V31*/ - meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V31*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -20703,8 +18851,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.ONAMEPTR__V17*/ meltfptr[14]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#DEPTHP1__L3*/ meltfnum[1]; - /*_.OUTPUT_C_INITIAL_FILL__V33*/ - meltfptr[28] = meltgc_send((melt_ptr_t)(/*_.CURSTRU__V32*/ meltfptr[27]), (melt_ptr_t)((/*!OUTPUT_C_INITIAL_FILL*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_INITIAL_FILL__V33*/ meltfptr[28] = meltgc_send((melt_ptr_t)(/*_.CURSTRU__V32*/ meltfptr[27]), (melt_ptr_t)((/*!OUTPUT_C_INITIAL_FILL*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -20717,12 +18864,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L11*/ - meltfnum[7] = + /*_#STRBUF_USEDLENGTH__L11*/ meltfnum[7] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:3330:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[9]))) ) /*then*/ @@ -20733,8 +18878,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[8])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V35*/ - meltfptr[34] = slot; + /*_.REFERENCED_VALUE__V35*/ meltfptr[34] = slot; }; ; } @@ -20745,16 +18889,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L12*/ - meltfnum[8] = + /*_#GET_INT__L12*/ meltfnum[8] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V35*/ meltfptr[34])));; /*^compute*/ - /*_#ltI__L13*/ - meltfnum[12] = + /*_#ltI__L13*/ meltfnum[12] = ((/*_#STRBUF_USEDLENGTH__L11*/ meltfnum[7]) < (/*_#GET_INT__L12*/ meltfnum[8]));; MELT_LOCATION("warmelt-outobj.melt:3329:/ cond"); - /*cond*/ - if (/*_#ltI__L13*/ meltfnum[12]) /*then*/ + /*cond*/ if (/*_#ltI__L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V36*/ meltfptr[35] = (/*nil*/NULL);; @@ -20783,40 +18924,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3329; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V37*/ - meltfptr[36] = 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__V37*/ meltfptr[36] = 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___V36*/ - meltfptr[35] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36];; + /*_._IFELSE___V36*/ meltfptr[35] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3329:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36] = 0 ; } ; } ; - /*_.IFCPP___V34*/ - meltfptr[33] = /*_._IFELSE___V36*/ meltfptr[35];; + /*_.IFCPP___V34*/ meltfptr[33] = /*_._IFELSE___V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3329:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L11*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L11*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V35*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L12*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#GET_INT__L12*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L13*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#ltI__L13*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_._IFELSE___V36*/ meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20836,28 +18968,22 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:3325:/ clear"); - /*clear*/ /*_.CURSTRU__V32*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.CURSTRU__V32*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#STRIX__L10*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#STRIX__L10*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_INITIAL_FILL__V33*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.OUTPUT_C_INITIAL_FILL__V33*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.IFCPP___V34*/ meltfptr[33] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L14*/ - meltfnum[7] = + /*_#IS_LIST__L14*/ meltfnum[7] = (melt_magic_discr((melt_ptr_t)(/*_.BODYL__V12*/ meltfptr[11])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:3334:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L14*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L14*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20878,17 +19004,14 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ meltfptr[12]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V39*/ - meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.BODYL__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V39*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.BODYL__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V38*/ - meltfptr[36] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V39*/ meltfptr[34];; + /*_._IF___V38*/ meltfptr[36] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V39*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3334:/ clear"); - /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V39*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V39*/ meltfptr[34] = 0 ; } ; } @@ -20902,12 +19025,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_LIST__L15*/ - meltfnum[8] = + /*_#IS_LIST__L15*/ meltfnum[8] = (melt_magic_discr((melt_ptr_t)(/*_.EPIL__V11*/ meltfptr[10])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:3337:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L15*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L15*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20925,8 +19046,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3340:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*epilog*/")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*epilog*/")); } ; @@ -20943,29 +19063,23 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ meltfptr[12]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V41*/ - meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.EPIL__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V41*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.EPIL__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:3338:/ quasiblock"); - /*_.PROGN___V42*/ - meltfptr[41] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V41*/ meltfptr[34];; + /*_.PROGN___V42*/ meltfptr[41] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V41*/ meltfptr[34];; /*^compute*/ - /*_._IF___V40*/ - meltfptr[35] = /*_.PROGN___V42*/ meltfptr[41];; + /*_._IF___V40*/ meltfptr[35] = /*_.PROGN___V42*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3337:/ clear"); - /*clear*/ /*_#GET_INT__L16*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#GET_INT__L16*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V41*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V41*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V42*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.PROGN___V42*/ meltfptr[41] = 0 ; } ; } @@ -20978,8 +19092,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3342:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "} /*end multiallocblock*/")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "} /*end multiallocblock*/")); } ; @@ -20990,53 +19103,37 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:3282:/ clear"); - /*clear*/ /*_.OLOC__V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.OLOC__V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.OALLSTRUCT__V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.OALLSTRUCT__V9*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.ONAME__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.ONAME__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.EPIL__V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.EPIL__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.BODYL__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.BODYL__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_#DEPTHP1__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#DEPTHP1__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.BOXDEPTHP1__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.BOXDEPTHP1__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.LET___V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.ONAMEPTR__V17*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.ONAMEPTR__V17*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_LOCATION__V18*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V18*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_LOCATION__V31*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V31*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L14*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#IS_LIST__L14*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V38*/ - meltfptr[36] = 0 ; + /*clear*/ /*_._IF___V38*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L15*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#IS_LIST__L15*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ - meltfptr[35] = 0 ; + /*clear*/ /*_._IF___V40*/ meltfptr[35] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-outobj.melt:3345:/ cppif.then"); @@ -21047,12 +19144,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L17*/ - meltfnum[12] = + /*_#STRBUF_USEDLENGTH__L17*/ meltfnum[12] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:3346:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[9]))) ) /*then*/ @@ -21063,8 +19158,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[8])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V44*/ - meltfptr[41] = slot; + /*_.REFERENCED_VALUE__V44*/ meltfptr[41] = slot; }; ; } @@ -21075,16 +19169,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L18*/ - meltfnum[1] = + /*_#GET_INT__L18*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V44*/ meltfptr[41])));; /*^compute*/ - /*_#ltI__L19*/ - meltfnum[7] = + /*_#ltI__L19*/ meltfnum[7] = ((/*_#STRBUF_USEDLENGTH__L17*/ meltfnum[12]) < (/*_#GET_INT__L18*/ meltfnum[1]));; MELT_LOCATION("warmelt-outobj.melt:3345:/ cond"); - /*cond*/ - if (/*_#ltI__L19*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#ltI__L19*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V45*/ meltfptr[6] = (/*nil*/NULL);; @@ -21113,40 +19204,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3345; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V46*/ - meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V45*/ - meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[5];; + /*_._IFELSE___V45*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3345:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[5] = 0 ; } ; } ; - /*_.IFCPP___V43*/ - meltfptr[34] = /*_._IFELSE___V45*/ meltfptr[6];; + /*_.IFCPP___V43*/ meltfptr[34] = /*_._IFELSE___V45*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3345:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L17*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L17*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V44*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V44*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L18*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#GET_INT__L18*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L19*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#ltI__L19*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V45*/ - meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V45*/ meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21160,8 +19242,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:3280:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.IFCPP___V43*/ meltfptr[34];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V43*/ meltfptr[34];; { MELT_LOCATION("warmelt-outobj.melt:3280:/ locexp"); @@ -21176,16 +19257,13 @@ 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___V43*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.IFCPP___V43*/ meltfptr[34] = 0 ; } ; @@ -21267,8 +19345,7 @@ meltrout_71_WARMELTmiOUTOBJ_OUTPUCOD_OBJCITERBLOCK(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_71_WARMELTmiOUTOBJ_OUTPUCOD_OBJCITERBLOCK fromline 1756 */ - /* classy proc frame meltrout_71_WARMELTmiOUTOBJ_OUTPUCOD_OBJCITERBLOCK */ - MeltFrame_meltrout_71_WARMELTmiOUTOBJ_OUTPUCOD_OBJCITERBLOCK + /* classy proc frame meltrout_71_WARMELTmiOUTOBJ_OUTPUCOD_OBJCITERBLOCK */ MeltFrame_meltrout_71_WARMELTmiOUTOBJ_OUTPUCOD_OBJCITERBLOCK meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_71_WARMELTmiOUTOBJ_OUTPUCOD_OBJCITERBLOCK fromline 1785*/ #if ENABLE_CHECKING @@ -21281,8 +19358,7 @@ meltrout_71_WARMELTmiOUTOBJ_OUTPUCOD_OBJCITERBLOCK(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("OUTPUCOD_OBJCITERBLOCK", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -21292,30 +19368,26 @@ meltrout_71_WARMELTmiOUTOBJ_OUTPUCOD_OBJCITERBLOCK(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:3351:/ getarg"); - /*_.OBCIT__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.OBCIT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.DECLBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#DEPTH__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -21335,12 +19407,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ - meltfnum[1] = + /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.OBCIT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCITERBLOCK*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-outobj.melt:3352:/ cond"); - /*cond*/ - if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; @@ -21369,31 +19439,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3352; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBCIT__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3352:/ 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-outobj.melt:3352:/ clear"); - /*clear*/ /*_#IS_A__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21409,8 +19473,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBCIT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "OBI_LOC"); - /*_.OLOC__V8*/ - meltfptr[6] = slot; + /*_.OLOC__V8*/ meltfptr[6] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3354:/ getslot"); @@ -21418,8 +19481,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBCIT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "OBLO_BODYL"); - /*_.BODYL__V9*/ - meltfptr[5] = slot; + /*_.BODYL__V9*/ meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3355:/ getslot"); @@ -21427,24 +19489,20 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBCIT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "OBLO_EPIL"); - /*_.EPIL__V10*/ - meltfptr[9] = slot; + /*_.EPIL__V10*/ meltfptr[9] = slot; }; ; - /*_#plI__L3*/ - meltfnum[1] = + /*_#plI__L3*/ meltfnum[1] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; /*^compute*/ - /*_.BOXDEPTHP1__V11*/ - meltfptr[10] = + /*_.BOXDEPTHP1__V11*/ meltfptr[10] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[2])), (/*_#plI__L3*/ meltfnum[1])));; MELT_LOCATION("warmelt-outobj.melt:3357:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBCIT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "OBCITER_BEFORE"); - /*_.OBEFORE__V12*/ - meltfptr[11] = slot; + /*_.OBEFORE__V12*/ meltfptr[11] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3358:/ getslot"); @@ -21452,8 +19510,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBCIT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "OBCITER_AFTER"); - /*_.OAFTER__V13*/ - meltfptr[12] = slot; + /*_.OAFTER__V13*/ meltfptr[12] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:3359:/ getslot"); @@ -21461,8 +19518,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBCIT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "OBCITER_CITER"); - /*_.CITER__V14*/ - meltfptr[13] = slot; + /*_.CITER__V14*/ meltfptr[13] = slot; }; ; @@ -21475,12 +19531,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[3] = + /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.CITER__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-outobj.melt:3361:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; @@ -21509,31 +19563,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3361; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CITER__V14*/ meltfptr[13]; - /*_.MELT_ASSERT_FAILURE_FUN__V17*/ - meltfptr[16] = 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__V17*/ meltfptr[16] = 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___V16*/ - meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; + /*_._IFELSE___V16*/ meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3361:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; } ; } ; - /*_.IFCPP___V15*/ - meltfptr[14] = /*_._IFELSE___V16*/ meltfptr[15];; + /*_.IFCPP___V15*/ meltfptr[14] = /*_._IFELSE___V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3361:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21551,15 +19599,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "citerblock"; - /*_.OUTPUT_LOCATION__V18*/ - meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V18*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:3363:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*citerblock ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*citerblock ")); } ; MELT_LOCATION("warmelt-outobj.melt:3364:/ getslot"); @@ -21567,8 +19613,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CITER__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V19*/ - meltfptr[15] = slot; + /*_.NAMED_NAME__V19*/ meltfptr[15] = slot; }; ; @@ -21581,8 +19626,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3365:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/ {")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/ {")); } ; @@ -21601,8 +19645,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "citerbefore"; - /*_.OUTPUT_LOCATION__V20*/ - meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -21617,8 +19660,7 @@ meltlab_endgetargs: - /*_#GET_INT__L6*/ - meltfnum[5] = + /*_#GET_INT__L6*/ meltfnum[5] = (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V11*/ meltfptr[10])));; MELT_CHECK_SIGNAL(); @@ -21634,8 +19676,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#GET_INT__L6*/ meltfnum[5]; - /*_.OUTPUT_C_CODE__V22*/ - meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.OBEF__V21*/ meltfptr[20]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V22*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.OBEF__V21*/ meltfptr[20]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -21648,12 +19689,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L7*/ - meltfnum[6] = + /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:3373:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -21664,8 +19703,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V24*/ - meltfptr[23] = slot; + /*_.REFERENCED_VALUE__V24*/ meltfptr[23] = slot; }; ; } @@ -21676,16 +19714,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L8*/ - meltfnum[7] = + /*_#GET_INT__L8*/ meltfnum[7] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V24*/ meltfptr[23])));; /*^compute*/ - /*_#ltI__L9*/ - meltfnum[8] = + /*_#ltI__L9*/ meltfnum[8] = ((/*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6]) < (/*_#GET_INT__L8*/ meltfnum[7]));; MELT_LOCATION("warmelt-outobj.melt:3372:/ cond"); - /*cond*/ - if (/*_#ltI__L9*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#ltI__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V25*/ meltfptr[24] = (/*nil*/NULL);; @@ -21714,40 +19749,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3372; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V26*/ - meltfptr[25] = 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__V26*/ meltfptr[25] = 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___V25*/ - meltfptr[24] = /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25];; + /*_._IFELSE___V25*/ meltfptr[24] = /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3372:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25] = 0 ; } ; } ; - /*_.IFCPP___V23*/ - meltfptr[22] = /*_._IFELSE___V25*/ meltfptr[24];; + /*_.IFCPP___V23*/ meltfptr[22] = /*_._IFELSE___V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3372:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L7*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#GET_INT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#ltI__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_._IFELSE___V25*/ meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21761,20 +19787,15 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:3368:/ clear"); - /*clear*/ /*_.OBEF__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.OBEF__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L5*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#IX__L5*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L6*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#GET_INT__L6*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.IFCPP___V23*/ meltfptr[22] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -21793,19 +19814,16 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "citerbody"; - /*_.OUTPUT_LOCATION__V27*/ - meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V27*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L10*/ - meltfnum[6] = + /*_#IS_LIST__L10*/ meltfnum[6] = (melt_magic_discr((melt_ptr_t)(/*_.BODYL__V9*/ meltfptr[5])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:3377:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L10*/ meltfnum[6]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L10*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21826,17 +19844,14 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V11*/ meltfptr[10]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V29*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.BODYL__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V29*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.BODYL__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V28*/ - meltfptr[23] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V29*/ meltfptr[24];; + /*_._IF___V28*/ meltfptr[23] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V29*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3377:/ clear"); - /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V29*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V29*/ meltfptr[24] = 0 ; } ; } @@ -21862,8 +19877,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "citerafter"; - /*_.OUTPUT_LOCATION__V30*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V30*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -21878,8 +19892,7 @@ meltlab_endgetargs: - /*_#GET_INT__L12*/ - meltfnum[8] = + /*_#GET_INT__L12*/ meltfnum[8] = (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V11*/ meltfptr[10])));; MELT_CHECK_SIGNAL(); @@ -21895,8 +19908,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = /*_#GET_INT__L12*/ meltfnum[8]; - /*_.OUTPUT_C_CODE__V32*/ - meltfptr[31] = meltgc_send((melt_ptr_t)(/*_.OAFT__V31*/ meltfptr[30]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V32*/ meltfptr[31] = meltgc_send((melt_ptr_t)(/*_.OAFT__V31*/ meltfptr[30]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -21909,12 +19921,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L13*/ - meltfnum[12] = + /*_#STRBUF_USEDLENGTH__L13*/ meltfnum[12] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:3386:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -21925,8 +19935,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V34*/ - meltfptr[33] = slot; + /*_.REFERENCED_VALUE__V34*/ meltfptr[33] = slot; }; ; } @@ -21937,16 +19946,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L14*/ - meltfnum[13] = + /*_#GET_INT__L14*/ meltfnum[13] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V34*/ meltfptr[33])));; /*^compute*/ - /*_#ltI__L15*/ - meltfnum[14] = + /*_#ltI__L15*/ meltfnum[14] = ((/*_#STRBUF_USEDLENGTH__L13*/ meltfnum[12]) < (/*_#GET_INT__L14*/ meltfnum[13]));; MELT_LOCATION("warmelt-outobj.melt:3385:/ cond"); - /*cond*/ - if (/*_#ltI__L15*/ meltfnum[14]) /*then*/ + /*cond*/ if (/*_#ltI__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V35*/ meltfptr[34] = (/*nil*/NULL);; @@ -21975,40 +19981,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3385; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V36*/ - meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V35*/ - meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35];; + /*_._IFELSE___V35*/ meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3385:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35] = 0 ; } ; } ; - /*_.IFCPP___V33*/ - meltfptr[32] = /*_._IFELSE___V35*/ meltfptr[34];; + /*_.IFCPP___V33*/ meltfptr[32] = /*_._IFELSE___V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3385:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L13*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L13*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L14*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#GET_INT__L14*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L15*/ - meltfnum[14] = 0 ; + /*clear*/ /*_#ltI__L15*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_._IFELSE___V35*/ meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22022,20 +20019,15 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:3381:/ clear"); - /*clear*/ /*_.OAFT__V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.OAFT__V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L11*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#IX__L11*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L12*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#GET_INT__L12*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.IFCPP___V33*/ meltfptr[32] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -22054,19 +20046,16 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "citerepil"; - /*_.OUTPUT_LOCATION__V37*/ - meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_LOCATION__V37*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V8*/ meltfptr[6]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L16*/ - meltfnum[12] = + /*_#IS_LIST__L16*/ meltfnum[12] = (melt_magic_discr((melt_ptr_t)(/*_.EPIL__V10*/ meltfptr[9])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:3390:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L16*/ meltfnum[12]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L16*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22084,8 +20073,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3393:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*citerepilog*/")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*citerepilog*/")); } ; @@ -22102,29 +20090,23 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V11*/ meltfptr[10]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V39*/ - meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.EPIL__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V39*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.EPIL__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:3391:/ quasiblock"); - /*_.PROGN___V40*/ - meltfptr[39] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V39*/ meltfptr[34];; + /*_.PROGN___V40*/ meltfptr[39] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V39*/ meltfptr[34];; /*^compute*/ - /*_._IF___V38*/ - meltfptr[33] = /*_.PROGN___V40*/ meltfptr[39];; + /*_._IF___V38*/ meltfptr[33] = /*_.PROGN___V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3390:/ clear"); - /*clear*/ /*_#GET_INT__L17*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#GET_INT__L17*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V39*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V39*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.PROGN___V40*/ meltfptr[39] = 0 ; } ; } @@ -22137,8 +20119,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3395:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "} /*endciterblock ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "} /*endciterblock ")); } ; MELT_LOCATION("warmelt-outobj.melt:3396:/ getslot"); @@ -22146,8 +20127,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CITER__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V41*/ - meltfptr[34] = slot; + /*_.NAMED_NAME__V41*/ meltfptr[34] = slot; }; ; @@ -22160,8 +20140,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:3397:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/")); } ; @@ -22172,65 +20151,45 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:3353:/ clear"); - /*clear*/ /*_.OLOC__V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.OLOC__V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.BODYL__V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.BODYL__V9*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.EPIL__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.EPIL__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#plI__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.BOXDEPTHP1__V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.BOXDEPTHP1__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.OBEFORE__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.OBEFORE__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.OAFTER__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.OAFTER__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.CITER__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.CITER__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_LOCATION__V18*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V18*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V19*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.NAMED_NAME__V19*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_LOCATION__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_LOCATION__V27*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V27*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L10*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#IS_LIST__L10*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V28*/ - meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V28*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_LOCATION__V30*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V30*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_LOCATION__V37*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.OUTPUT_LOCATION__V37*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L16*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#IS_LIST__L16*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V38*/ - meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V38*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V41*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.NAMED_NAME__V41*/ meltfptr[34] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-outobj.melt:3400:/ cppif.then"); @@ -22241,12 +20200,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L18*/ - meltfnum[14] = + /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[14] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:3401:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -22257,8 +20214,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V43*/ - meltfptr[6] = slot; + /*_.REFERENCED_VALUE__V43*/ meltfptr[6] = slot; }; ; } @@ -22269,16 +20225,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L19*/ - meltfnum[13] = + /*_#GET_INT__L19*/ meltfnum[13] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V43*/ meltfptr[6])));; /*^compute*/ - /*_#ltI__L20*/ - meltfnum[1] = + /*_#ltI__L20*/ meltfnum[1] = ((/*_#STRBUF_USEDLENGTH__L18*/ meltfnum[14]) < (/*_#GET_INT__L19*/ meltfnum[13]));; MELT_LOCATION("warmelt-outobj.melt:3400:/ cond"); - /*cond*/ - if (/*_#ltI__L20*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#ltI__L20*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V44*/ meltfptr[5] = (/*nil*/NULL);; @@ -22307,40 +20260,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3400; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V45*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V44*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[9];; + /*_._IFELSE___V44*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3400:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V45*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V42*/ - meltfptr[39] = /*_._IFELSE___V44*/ meltfptr[5];; + /*_.IFCPP___V42*/ meltfptr[39] = /*_._IFELSE___V44*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3400:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L18*/ - meltfnum[14] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V43*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V43*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L19*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#GET_INT__L19*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L20*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#ltI__L20*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V44*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V44*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22354,8 +20298,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:3351:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.IFCPP___V42*/ meltfptr[39];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V42*/ meltfptr[39];; { MELT_LOCATION("warmelt-outobj.melt:3351:/ locexp"); @@ -22370,16 +20313,13 @@ 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___V42*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.IFCPP___V42*/ meltfptr[39] = 0 ; } ; |