diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-outobj+06.cc')
| -rw-r--r-- | gcc/melt/generated/warmelt-outobj+06.cc | 13017 |
1 files changed, 4341 insertions, 8676 deletions
diff --git a/gcc/melt/generated/warmelt-outobj+06.cc b/gcc/melt/generated/warmelt-outobj+06.cc index fdb506d19d1..79aa709fd13 100644 --- a/gcc/melt/generated/warmelt-outobj+06.cc +++ b/gcc/melt/generated/warmelt-outobj+06.cc @@ -895,8 +895,7 @@ meltrout_113_WARMELTmiOUTOBJ_OUTPUCOD_INTEGER(meltclosure_ptr_t meltclosp_, melt /* end of frame for routine meltrout_113_WARMELTmiOUTOBJ_OUTPUCOD_INTEGER fromline 1719 */ - /* classy proc frame meltrout_113_WARMELTmiOUTOBJ_OUTPUCOD_INTEGER */ - MeltFrame_meltrout_113_WARMELTmiOUTOBJ_OUTPUCOD_INTEGER + /* classy proc frame meltrout_113_WARMELTmiOUTOBJ_OUTPUCOD_INTEGER */ MeltFrame_meltrout_113_WARMELTmiOUTOBJ_OUTPUCOD_INTEGER meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_113_WARMELTmiOUTOBJ_OUTPUCOD_INTEGER fromline 1748*/ #if ENABLE_CHECKING @@ -909,8 +908,7 @@ meltrout_113_WARMELTmiOUTOBJ_OUTPUCOD_INTEGER(meltclosure_ptr_t meltclosp_, melt #define meltframe meltfram__ melt_trace_start("OUTPUCOD_INTEGER", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -920,30 +918,26 @@ meltrout_113_WARMELTmiOUTOBJ_OUTPUCOD_INTEGER(meltclosure_ptr_t meltclosp_, melt /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:5122:/ getarg"); - /*_.VINT__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.VINT__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: @@ -963,12 +957,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_INTEGERBOX__L2*/ - meltfnum[1] = + /*_#IS_INTEGERBOX__L2*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.VINT__V2*/ meltfptr[1])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-outobj.melt:5123:/ cond"); - /*cond*/ - if (/*_#IS_INTEGERBOX__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_INTEGERBOX__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; @@ -997,31 +989,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5123; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VINT__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5123:/ 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:5123:/ clear"); - /*clear*/ /*_#IS_INTEGERBOX__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_INTEGERBOX__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1030,8 +1016,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_#GET_INT__L3*/ - meltfnum[1] = + /*_#GET_INT__L3*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.VINT__V2*/ meltfptr[1])));; { @@ -1045,11 +1030,9 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5122:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#GET_INT__L3*/ meltfnum[1] = 0 ; } ; @@ -1130,8 +1113,7 @@ meltrout_114_WARMELTmiOUTOBJ_OUTPUCOD_FINALRETURN(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_114_WARMELTmiOUTOBJ_OUTPUCOD_FINALRETURN fromline 1719 */ - /* classy proc frame meltrout_114_WARMELTmiOUTOBJ_OUTPUCOD_FINALRETURN */ - MeltFrame_meltrout_114_WARMELTmiOUTOBJ_OUTPUCOD_FINALRETURN + /* classy proc frame meltrout_114_WARMELTmiOUTOBJ_OUTPUCOD_FINALRETURN */ MeltFrame_meltrout_114_WARMELTmiOUTOBJ_OUTPUCOD_FINALRETURN meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_114_WARMELTmiOUTOBJ_OUTPUCOD_FINALRETURN fromline 1748*/ #if ENABLE_CHECKING @@ -1144,8 +1126,7 @@ meltrout_114_WARMELTmiOUTOBJ_OUTPUCOD_FINALRETURN(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("OUTPUCOD_FINALRETURN", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1155,30 +1136,26 @@ meltrout_114_WARMELTmiOUTOBJ_OUTPUCOD_FINALRETURN(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:5129:/ getarg"); - /*_.FRET__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FRET__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: @@ -1198,12 +1175,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ - meltfnum[1] = + /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.FRET__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJFINALRETURN*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-outobj.melt:5130:/ 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);; @@ -1232,31 +1207,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5130; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FRET__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:5130:/ 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:5130:/ 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*/ @@ -1269,8 +1238,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FRET__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; }; ; @@ -1287,15 +1255,13 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "finalreturn"; - /*_.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:5132:/ 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]), ( ";")); } ; @@ -1307,8 +1273,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5134:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*finalret*/ goto meltlabend_rout ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*finalret*/ goto meltlabend_rout ")); } ; @@ -1321,12 +1286,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L3*/ - meltfnum[1] = + /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:5136:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[3])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[4]))) ) /*then*/ @@ -1337,8 +1300,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[3])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V11*/ - meltfptr[10] = slot; + /*_.REFERENCED_VALUE__V11*/ meltfptr[10] = slot; }; ; } @@ -1349,16 +1311,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L4*/ - meltfnum[3] = + /*_#GET_INT__L4*/ meltfnum[3] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V11*/ meltfptr[10])));; /*^compute*/ - /*_#ltI__L5*/ - meltfnum[4] = + /*_#ltI__L5*/ meltfnum[4] = ((/*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1]) < (/*_#GET_INT__L4*/ meltfnum[3]));; MELT_LOCATION("warmelt-outobj.melt:5135:/ cond"); - /*cond*/ - if (/*_#ltI__L5*/ meltfnum[4]) /*then*/ + /*cond*/ if (/*_#ltI__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[11] = (/*nil*/NULL);; @@ -1387,40 +1346,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5135; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5135:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V10*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[11];; + /*_.IFCPP___V10*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5135:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L4*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#GET_INT__L4*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L5*/ - meltfnum[4] = 0 ; + /*clear*/ /*_#ltI__L5*/ meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1434,8 +1384,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:5129:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.IFCPP___V10*/ meltfptr[9];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V10*/ meltfptr[9];; { MELT_LOCATION("warmelt-outobj.melt:5129:/ locexp"); @@ -1450,22 +1399,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*/ /*_.IFCPP___V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V10*/ meltfptr[9] = 0 ; } ; @@ -1546,8 +1490,7 @@ meltrout_115_WARMELTmiOUTOBJ_SORTED_NAMED_DICT_TUPLE(meltclosure_ptr_t meltclosp /* end of frame for routine meltrout_115_WARMELTmiOUTOBJ_SORTED_NAMED_DICT_TUPLE fromline 1719 */ - /* classy proc frame meltrout_115_WARMELTmiOUTOBJ_SORTED_NAMED_DICT_TUPLE */ - MeltFrame_meltrout_115_WARMELTmiOUTOBJ_SORTED_NAMED_DICT_TUPLE + /* classy proc frame meltrout_115_WARMELTmiOUTOBJ_SORTED_NAMED_DICT_TUPLE */ MeltFrame_meltrout_115_WARMELTmiOUTOBJ_SORTED_NAMED_DICT_TUPLE meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_115_WARMELTmiOUTOBJ_SORTED_NAMED_DICT_TUPLE fromline 1748*/ #if ENABLE_CHECKING @@ -1560,8 +1503,7 @@ meltrout_115_WARMELTmiOUTOBJ_SORTED_NAMED_DICT_TUPLE(meltclosure_ptr_t meltclosp #define meltframe meltfram__ melt_trace_start("SORTED_NAMED_DICT_TUPLE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1571,8 +1513,7 @@ meltrout_115_WARMELTmiOUTOBJ_SORTED_NAMED_DICT_TUPLE(meltclosure_ptr_t meltclosp /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:5142:/ getarg"); - /*_.DIC__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.DIC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -1585,12 +1526,10 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:5143:/ quasiblock"); - /*_#DICNT__L1*/ - meltfnum[0] = + /*_#DICNT__L1*/ meltfnum[0] = (melt_count_mapstrings((struct meltmapstrings_st*)(/*_.DIC__V2*/ meltfptr[1])));; /*^compute*/ - /*_.ENTLIST__V4*/ - meltfptr[3] = + /*_.ENTLIST__V4*/ meltfptr[3] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[0]))));; /*citerblock FOREACH_IN_MAPSTRING*/ { @@ -1605,16 +1544,13 @@ meltlab_endgetargs: { const char* meltcit1__EACHSTRMAP_str = NULL; const char* meltcit1__EACHSTRMAP_nam = NULL; - /*_.NAM__V5*/ - meltfptr[4] = NULL; - /*_.ENT__V6*/ - meltfptr[5] = NULL; + /*_.NAM__V5*/ meltfptr[4] = NULL; + /*_.ENT__V6*/ meltfptr[5] = NULL; meltcit1__EACHSTRMAP_str = ((struct meltmapstrings_st*)/*_.DIC__V2*/ meltfptr[1])->entab[meltcit1__EACHSTRMAP_ix].e_at; if (!meltcit1__EACHSTRMAP_str || meltcit1__EACHSTRMAP_str == HTAB_DELETED_ENTRY) continue; /*foreach_in_mapstring meltcit1__EACHSTRMAP inside before*/ - /*_.ENT__V6*/ - meltfptr[5] = ((struct meltmapstrings_st*)/*_.DIC__V2*/ meltfptr[1])->entab[meltcit1__EACHSTRMAP_ix].e_va; + /*_.ENT__V6*/ meltfptr[5] = ((struct meltmapstrings_st*)/*_.DIC__V2*/ meltfptr[1])->entab[meltcit1__EACHSTRMAP_ix].e_va; if (!/*_.ENT__V6*/ meltfptr[5]) continue; if (melt_is_instance_of((melt_ptr_t) /*_.ENT__V6*/ meltfptr[5], (melt_ptr_t) MELT_PREDEF (CLASS_NAMED)) @@ -1627,8 +1563,7 @@ meltlab_endgetargs: else { /*_.NAM__V5*/ meltfptr[4] = NULL; - /*_.NAM__V5*/ - meltfptr[4] = + /*_.NAM__V5*/ meltfptr[4] = meltgc_new_stringdup ((meltobject_ptr_t) MELT_PREDEF (DISCR_STRING), meltcit1__EACHSTRMAP_str); } @@ -1647,12 +1582,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ - meltfnum[1] = + /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.ENT__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:5149:/ cond"); - /*cond*/ - if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; @@ -1681,31 +1614,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5149; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENT__V6*/ meltfptr[5]; - /*_.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[7] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5149:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ - meltfptr[6] = /*_._IFELSE___V8*/ meltfptr[7];; + /*_.IFCPP___V7*/ meltfptr[6] = /*_._IFELSE___V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5149:/ clear"); - /*clear*/ /*_#IS_A__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ - meltfptr[7] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1720,23 +1647,18 @@ meltlab_endgetargs: } ; /* end foreach_in_mapstring meltcit1__EACHSTRMAP */ - /*_.NAM__V5*/ - meltfptr[4] = NULL; - /*_.ENT__V6*/ - meltfptr[5] = NULL; + /*_.NAM__V5*/ meltfptr[4] = NULL; + /*_.ENT__V6*/ meltfptr[5] = NULL; } /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:5146:/ clear"); - /*clear*/ /*_.NAM__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.NAM__V5*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.ENT__V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.ENT__V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; } /*endciterblock FOREACH_IN_MAPSTRING*/ ; MELT_LOCATION("warmelt-outobj.melt:5151:/ quasiblock"); @@ -1763,36 +1685,27 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!COMPARE_NAMED_ALPHA*/ meltfrout->tabval[5]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[6]); - /*_.MULTIPLE_SORT__V12*/ - meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.RAWTUP__V11*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_SORT__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.RAWTUP__V11*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V10*/ - meltfptr[8] = /*_.MULTIPLE_SORT__V12*/ meltfptr[11];; + /*_.LET___V10*/ meltfptr[8] = /*_.MULTIPLE_SORT__V12*/ meltfptr[11];; MELT_LOCATION("warmelt-outobj.melt:5151:/ clear"); - /*clear*/ /*_.RAWTUP__V11*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.RAWTUP__V11*/ meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_SORT__V12*/ - meltfptr[11] = 0 ; - /*_.LET___V3*/ - meltfptr[2] = /*_.LET___V10*/ meltfptr[8];; + /*clear*/ /*_.MULTIPLE_SORT__V12*/ meltfptr[11] = 0 ; + /*_.LET___V3*/ meltfptr[2] = /*_.LET___V10*/ meltfptr[8];; MELT_LOCATION("warmelt-outobj.melt:5143:/ clear"); - /*clear*/ /*_#DICNT__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#DICNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.ENTLIST__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ENTLIST__V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V10*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.LET___V10*/ meltfptr[8] = 0 ; MELT_LOCATION("warmelt-outobj.melt:5142:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; { MELT_LOCATION("warmelt-outobj.melt:5142:/ locexp"); @@ -1807,13 +1720,11 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.LET___V3*/ meltfptr[2] = 0 ; } ; @@ -1894,8 +1805,7 @@ meltrout_116_WARMELTmiOUTOBJ_OUTPUT_EXPORTED_OFFSETS(meltclosure_ptr_t meltclosp /* end of frame for routine meltrout_116_WARMELTmiOUTOBJ_OUTPUT_EXPORTED_OFFSETS fromline 1719 */ - /* classy proc frame meltrout_116_WARMELTmiOUTOBJ_OUTPUT_EXPORTED_OFFSETS */ - MeltFrame_meltrout_116_WARMELTmiOUTOBJ_OUTPUT_EXPORTED_OFFSETS + /* classy proc frame meltrout_116_WARMELTmiOUTOBJ_OUTPUT_EXPORTED_OFFSETS */ MeltFrame_meltrout_116_WARMELTmiOUTOBJ_OUTPUT_EXPORTED_OFFSETS meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_116_WARMELTmiOUTOBJ_OUTPUT_EXPORTED_OFFSETS fromline 1748*/ #if ENABLE_CHECKING @@ -1908,8 +1818,7 @@ meltrout_116_WARMELTmiOUTOBJ_OUTPUT_EXPORTED_OFFSETS(meltclosure_ptr_t meltclosp #define meltframe meltfram__ melt_trace_start("OUTPUT_EXPORTED_OFFSETS", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1919,22 +1828,19 @@ meltrout_116_WARMELTmiOUTOBJ_OUTPUT_EXPORTED_OFFSETS(meltclosure_ptr_t meltclosp /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:5158:/ getarg"); - /*_.MODCTX__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.MODCTX__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); ; @@ -1956,12 +1862,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ - meltfnum[0] = + /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-outobj.melt:5159:/ cond"); - /*cond*/ - if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; @@ -1990,31 +1894,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5159; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__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:5159:/ 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:5159:/ clear"); - /*clear*/ /*_#IS_A__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2030,8 +1928,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "MOCX_EXPFIELDICT"); - /*_.RAWDICTFIELDS__V8*/ - meltfptr[6] = slot; + /*_.RAWDICTFIELDS__V8*/ meltfptr[6] = slot; }; ; @@ -2048,8 +1945,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "MOCX_EXPCLASSDICT"); - /*_.RAWDICTCLASSES__V10*/ - meltfptr[9] = slot; + /*_.RAWDICTCLASSES__V10*/ meltfptr[9] = slot; }; ; @@ -2076,12 +1972,10 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5168:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/* exported ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/* exported ")); } ; - /*_#MAPSTRING_COUNT__L2*/ - meltfnum[0] = + /*_#MAPSTRING_COUNT__L2*/ meltfnum[0] = (melt_count_mapstrings((struct meltmapstrings_st*)(/*_.RAWDICTFIELDS__V8*/ meltfptr[6])));; { @@ -2092,8 +1986,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5170:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " field offsets */")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " field offsets */")); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -2118,12 +2011,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[3] = + /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.FLD__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-outobj.melt:5174:/ 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);; @@ -2152,31 +2043,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5174; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FLD__V12*/ meltfptr[11]; - /*_.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:5174:/ 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:5174:/ 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*/ @@ -2193,8 +2078,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5176:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "MELT_EXTERN const int meltfieldoff__")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "MELT_EXTERN const int meltfieldoff__")); } ; MELT_LOCATION("warmelt-outobj.melt:5177:/ getslot"); @@ -2202,8 +2086,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLD__V12*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V16*/ - meltfptr[14] = slot; + /*_.NAMED_NAME__V16*/ meltfptr[14] = slot; }; ; @@ -2216,8 +2099,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5178:/ 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]), ( ";")); } ; @@ -2229,8 +2111,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5180:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "const int meltfieldoff__")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "const int meltfieldoff__")); } ; MELT_LOCATION("warmelt-outobj.melt:5181:/ getslot"); @@ -2238,8 +2119,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLD__V12*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V17*/ - meltfptr[13] = slot; + /*_.NAMED_NAME__V17*/ meltfptr[13] = slot; }; ; @@ -2252,12 +2132,10 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5182:/ 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]), ( " = ")); } ; - /*_#GET_INT__L5*/ - meltfnum[3] = + /*_#GET_INT__L5*/ meltfnum[3] = (melt_get_int((melt_ptr_t)(/*_.FLD__V12*/ meltfptr[11])));; { @@ -2268,20 +2146,17 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5184:/ 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:5185:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " /* in ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " /* in ")); } ; MELT_LOCATION("warmelt-outobj.melt:5186:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLD__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[3]))) ) /*then*/ @@ -2292,8 +2167,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLD__V12*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 2, "FLD_OWNCLASS"); - /*_.FLD_OWNCLASS__V18*/ - meltfptr[17] = slot; + /*_.FLD_OWNCLASS__V18*/ meltfptr[17] = slot; }; ; } @@ -2304,8 +2178,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5186:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLD_OWNCLASS__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -2316,8 +2189,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLD_OWNCLASS__V18*/ meltfptr[17]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V19*/ - meltfptr[18] = slot; + /*_.NAMED_NAME__V19*/ meltfptr[18] = slot; }; ; } @@ -2330,16 +2202,14 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5186:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V19*/ meltfptr[18]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V19*/ meltfptr[18]))); } ; { MELT_LOCATION("warmelt-outobj.melt:5187:/ 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]), ( " */")); } ; @@ -2352,12 +2222,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L6*/ - meltfnum[5] = + /*_#STRBUF_USEDLENGTH__L6*/ meltfnum[5] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));; MELT_LOCATION("warmelt-outobj.melt:5189:/ 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*/ @@ -2368,8 +2236,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__V21*/ - meltfptr[20] = slot; + /*_.REFERENCED_VALUE__V21*/ meltfptr[20] = slot; }; ; } @@ -2380,16 +2247,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L7*/ - meltfnum[6] = + /*_#GET_INT__L7*/ meltfnum[6] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V21*/ meltfptr[20])));; /*^compute*/ - /*_#ltI__L8*/ - meltfnum[7] = + /*_#ltI__L8*/ meltfnum[7] = ((/*_#STRBUF_USEDLENGTH__L6*/ meltfnum[5]) < (/*_#GET_INT__L7*/ meltfnum[6]));; MELT_LOCATION("warmelt-outobj.melt:5188:/ cond"); - /*cond*/ - if (/*_#ltI__L8*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#ltI__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V22*/ meltfptr[21] = (/*nil*/NULL);; @@ -2418,40 +2282,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5188; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V23*/ - meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V22*/ - meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; + /*_._IFELSE___V22*/ meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5188:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = 0 ; } ; } ; - /*_.IFCPP___V20*/ - meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[21];; + /*_.IFCPP___V20*/ meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5188:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L6*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L6*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L7*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#GET_INT__L7*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#ltI__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_._IFELSE___V22*/ meltfptr[21] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2465,32 +2320,23 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:5171:/ clear"); - /*clear*/ /*_.FLD__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.FLD__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L3*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IX__L3*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V16*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.NAMED_NAME__V16*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V17*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.NAMED_NAME__V17*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L5*/ - meltfnum[3] = 0 ; + /*clear*/ /*_#GET_INT__L5*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_.FLD_OWNCLASS__V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.FLD_OWNCLASS__V18*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.NAMED_NAME__V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ meltfptr[19] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -2508,12 +2354,10 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5193:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/* exported ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/* exported ")); } ; - /*_#MAPSTRING_COUNT__L9*/ - meltfnum[5] = + /*_#MAPSTRING_COUNT__L9*/ meltfnum[5] = (melt_count_mapstrings((struct meltmapstrings_st*)(/*_.RAWDICTCLASSES__V10*/ meltfptr[9])));; { @@ -2524,8 +2368,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5195:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " class lengths */")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " class lengths */")); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -2550,12 +2393,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L11*/ - meltfnum[7] = + /*_#IS_A__L11*/ meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.CLA__V24*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-outobj.melt:5199:/ cond"); - /*cond*/ - if (/*_#IS_A__L11*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#IS_A__L11*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V26*/ meltfptr[21] = (/*nil*/NULL);; @@ -2584,31 +2425,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5199; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CLA__V24*/ meltfptr[22]; - /*_.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[21] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];; + /*_._IFELSE___V26*/ meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5199:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26] = 0 ; } ; } ; - /*_.IFCPP___V25*/ - meltfptr[20] = /*_._IFELSE___V26*/ meltfptr[21];; + /*_.IFCPP___V25*/ meltfptr[20] = /*_._IFELSE___V26*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5199:/ clear"); - /*clear*/ /*_#IS_A__L11*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L11*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V26*/ - meltfptr[21] = 0 ; + /*clear*/ /*_._IFELSE___V26*/ meltfptr[21] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2625,8 +2460,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5201:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "MELT_EXTERN const int meltclasslen__")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "MELT_EXTERN const int meltclasslen__")); } ; MELT_LOCATION("warmelt-outobj.melt:5202:/ getslot"); @@ -2634,8 +2468,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLA__V24*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V28*/ - meltfptr[26] = slot; + /*_.NAMED_NAME__V28*/ meltfptr[26] = slot; }; ; @@ -2648,8 +2481,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5203:/ 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]), ( ";")); } ; @@ -2661,8 +2493,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5205:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "const int meltclasslen__")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "const int meltclasslen__")); } ; MELT_LOCATION("warmelt-outobj.melt:5206:/ getslot"); @@ -2670,8 +2501,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLA__V24*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V29*/ - meltfptr[21] = slot; + /*_.NAMED_NAME__V29*/ meltfptr[21] = slot; }; ; @@ -2684,8 +2514,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5207:/ 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:5209:/ getslot"); @@ -2693,12 +2522,10 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLA__V24*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); - /*_.CLASS_FIELDS__V30*/ - meltfptr[29] = slot; + /*_.CLASS_FIELDS__V30*/ meltfptr[29] = slot; }; ; - /*_#MULTIPLE_LENGTH__L12*/ - meltfnum[7] = + /*_#MULTIPLE_LENGTH__L12*/ meltfnum[7] = (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V30*/ meltfptr[29])));; { @@ -2709,8 +2536,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5210:/ 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]), ( ";")); } ; @@ -2723,12 +2549,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:5212:/ 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*/ @@ -2739,8 +2563,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__V32*/ - meltfptr[31] = slot; + /*_.REFERENCED_VALUE__V32*/ meltfptr[31] = slot; }; ; } @@ -2751,16 +2574,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L14*/ - meltfnum[13] = + /*_#GET_INT__L14*/ meltfnum[13] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V32*/ meltfptr[31])));; /*^compute*/ - /*_#ltI__L15*/ - meltfnum[14] = + /*_#ltI__L15*/ meltfnum[14] = ((/*_#STRBUF_USEDLENGTH__L13*/ meltfnum[12]) < (/*_#GET_INT__L14*/ meltfnum[13]));; MELT_LOCATION("warmelt-outobj.melt:5211:/ cond"); - /*cond*/ - if (/*_#ltI__L15*/ meltfnum[14]) /*then*/ + /*cond*/ if (/*_#ltI__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V33*/ meltfptr[32] = (/*nil*/NULL);; @@ -2789,40 +2609,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5211; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V34*/ - meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V33*/ - meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; + /*_._IFELSE___V33*/ meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5211:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = 0 ; } ; } ; - /*_.IFCPP___V31*/ - meltfptr[30] = /*_._IFELSE___V33*/ meltfptr[32];; + /*_.IFCPP___V31*/ meltfptr[30] = /*_._IFELSE___V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5211:/ clear"); - /*clear*/ /*_#STRBUF_USEDLENGTH__L13*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L13*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V32*/ meltfptr[31] = 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___V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_._IFELSE___V33*/ meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2836,29 +2647,21 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:5196:/ clear"); - /*clear*/ /*_.CLA__V24*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.CLA__V24*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L10*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#IX__L10*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V25*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.IFCPP___V25*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V28*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.NAMED_NAME__V28*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V29*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.NAMED_NAME__V29*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CLASS_FIELDS__V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.CLASS_FIELDS__V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.IFCPP___V31*/ meltfptr[30] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -2875,31 +2678,24 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:5160:/ clear"); - /*clear*/ /*_.RAWDICTFIELDS__V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.RAWDICTFIELDS__V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.SORTEDFIELDS__V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.SORTEDFIELDS__V9*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.RAWDICTCLASSES__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.RAWDICTCLASSES__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.SORTEDCLASSES__V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.SORTEDCLASSES__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_#MAPSTRING_COUNT__L2*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MAPSTRING_COUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#MAPSTRING_COUNT__L9*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#MAPSTRING_COUNT__L9*/ meltfnum[5] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5158:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; } ; @@ -2980,8 +2776,7 @@ meltrout_117_WARMELTmiOUTOBJ_NTH_SECUNDARY_FILE(meltclosure_ptr_t meltclosp_, me /* end of frame for routine meltrout_117_WARMELTmiOUTOBJ_NTH_SECUNDARY_FILE fromline 1719 */ - /* classy proc frame meltrout_117_WARMELTmiOUTOBJ_NTH_SECUNDARY_FILE */ - MeltFrame_meltrout_117_WARMELTmiOUTOBJ_NTH_SECUNDARY_FILE + /* classy proc frame meltrout_117_WARMELTmiOUTOBJ_NTH_SECUNDARY_FILE */ MeltFrame_meltrout_117_WARMELTmiOUTOBJ_NTH_SECUNDARY_FILE meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_117_WARMELTmiOUTOBJ_NTH_SECUNDARY_FILE fromline 1748*/ #if ENABLE_CHECKING @@ -2994,8 +2789,7 @@ meltrout_117_WARMELTmiOUTOBJ_NTH_SECUNDARY_FILE(meltclosure_ptr_t meltclosp_, me #define meltframe meltfram__ melt_trace_start("NTH_SECUNDARY_FILE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -3005,30 +2799,26 @@ meltrout_117_WARMELTmiOUTOBJ_NTH_SECUNDARY_FILE(meltclosure_ptr_t meltclosp_, me /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:5237:/ getarg"); - /*_.MODCTX__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.MODCTX__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODNAMSTR__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODNAMSTR__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODNAMSTR__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.DECLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#IX__L1*/ - meltfnum[0] = meltxargtab_[2].meltbp_long; + /*_#IX__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -3048,12 +2838,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ - meltfnum[1] = + /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-outobj.melt:5238:/ 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);; @@ -3082,31 +2870,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5238; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__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:5238:/ 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:5238:/ 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*/ @@ -3124,12 +2906,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L3*/ - meltfnum[1] = + /*_#IS_STRING__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.MODNAMSTR__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-outobj.melt:5239:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -3158,31 +2938,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5239; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5239:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5239:/ clear"); - /*clear*/ /*_#IS_STRING__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRING__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3200,12 +2974,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L4*/ - meltfnum[1] = + /*_#IS_STRBUF__L4*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-outobj.melt:5240:/ cond"); - /*cond*/ - if (/*_#IS_STRBUF__L4*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_STRBUF__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -3234,31 +3006,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5240; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5240:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5240:/ clear"); - /*clear*/ /*_#IS_STRBUF__L4*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRBUF__L4*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3270,8 +3036,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[0]))) ) /*then*/ @@ -3282,8 +3047,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 7, "MOCX_FILETUPLE"); - /*_.MOFILES__V15*/ - meltfptr[5] = slot; + /*_.MOFILES__V15*/ meltfptr[5] = slot; }; ; } @@ -3294,19 +3058,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#NBFILES__L5*/ - meltfnum[1] = + /*_#NBFILES__L5*/ meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.MOFILES__V15*/ meltfptr[5])));; /*^compute*/ - /*_.NTHFILE__V16*/ - meltfptr[15] = + /*_.NTHFILE__V16*/ meltfptr[15] = (melt_multiple_nth((melt_ptr_t)(/*_.MOFILES__V15*/ meltfptr[5]), (/*_#IX__L1*/ meltfnum[0])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:5245:/ cond"); - /*cond*/ - if (/*_.NTHFILE__V16*/ meltfptr[15]) /*then*/ + /*cond*/ if (/*_.NTHFILE__V16*/ meltfptr[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3319,8 +3080,7 @@ meltlab_endgetargs: /*^quasiblock*/ - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.NTHFILE__V16*/ meltfptr[15];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.NTHFILE__V16*/ meltfptr[15];; { MELT_LOCATION("warmelt-outobj.melt:5245:/ locexp"); @@ -3335,15 +3095,12 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_._IF___V17*/ - meltfptr[16] = /*_.RETURN___V18*/ meltfptr[17];; + /*finalret*/ goto meltlabend_rout ; + /*_._IF___V17*/ meltfptr[16] = /*_.RETURN___V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5245:/ clear"); - /*clear*/ /*_.RETURN___V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.RETURN___V18*/ meltfptr[17] = 0 ; } ; } @@ -3357,12 +3114,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#lteqI__L6*/ - meltfnum[5] = + /*_#lteqI__L6*/ meltfnum[5] = ((/*_#IX__L1*/ meltfnum[0]) <= (0));; MELT_LOCATION("warmelt-outobj.melt:5246:/ cond"); - /*cond*/ - if (/*_#lteqI__L6*/ meltfnum[5]) /*then*/ + /*cond*/ if (/*_#lteqI__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3387,15 +3142,12 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_._IF___V19*/ - meltfptr[17] = /*_.RETURN___V20*/ meltfptr[19];; + /*finalret*/ goto meltlabend_rout ; + /*_._IF___V19*/ meltfptr[17] = /*_.RETURN___V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5246:/ clear"); - /*clear*/ /*_.RETURN___V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.RETURN___V20*/ meltfptr[19] = 0 ; } ; } @@ -3409,12 +3161,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#gteqI__L7*/ - meltfnum[6] = + /*_#gteqI__L7*/ meltfnum[6] = ((/*_#IX__L1*/ meltfnum[0]) >= (/*_#NBFILES__L5*/ meltfnum[1]));; MELT_LOCATION("warmelt-outobj.melt:5247:/ cond"); - /*cond*/ - if (/*_#gteqI__L7*/ meltfnum[6]) /*then*/ + /*cond*/ if (/*_#gteqI__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3439,15 +3189,12 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_._IF___V21*/ - meltfptr[19] = /*_.RETURN___V22*/ meltfptr[21];; + /*finalret*/ goto meltlabend_rout ; + /*_._IF___V21*/ meltfptr[19] = /*_.RETURN___V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5247:/ clear"); - /*clear*/ /*_.RETURN___V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.RETURN___V22*/ meltfptr[21] = 0 ; } ; } @@ -3460,15 +3207,13 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:5249:/ quasiblock"); - /*_.PATH__V24*/ - meltfptr[23] = + /*_.PATH__V24*/ meltfptr[23] = meltgc_new_string_generated_cc_filename /* generated_cc_filename */ ((meltobject_ptr_t) ((/*!DISCR_STRING*/ meltfrout->tabval[2])), melt_string_str((melt_ptr_t) (/*_.MODNAMSTR__V3*/ meltfptr[2])), melt_string_str((melt_ptr_t) ((/*nil*/NULL))), (/*_#IX__L1*/ meltfnum[0]));; /*^compute*/ - /*_.IMPLBUF__V25*/ - meltfptr[24] = + /*_.IMPLBUF__V25*/ meltfptr[24] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; MELT_CHECK_SIGNAL(); @@ -3481,8 +3226,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SECONDARY_CC_FILE*/ meltfrout->tabval[4])), (4), "CLASS_SECONDARY_CC_FILE"); - /*_.INST__V27*/ - meltfptr[26] = + /*_.INST__V27*/ meltfptr[26] = newobj; }; ; @@ -3510,8 +3254,7 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V27*/ meltfptr[26], "newly made instance"); ; - /*_.NEWFILE__V26*/ - meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; + /*_.NEWFILE__V26*/ meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; { MELT_LOCATION("warmelt-outobj.melt:5261:/ locexp"); @@ -3530,8 +3273,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:5263:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.NEWFILE__V26*/ meltfptr[25];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.NEWFILE__V26*/ meltfptr[25];; { MELT_LOCATION("warmelt-outobj.melt:5263:/ locexp"); @@ -3546,61 +3288,44 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V23*/ - meltfptr[21] = /*_.RETURN___V28*/ meltfptr[27];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V23*/ meltfptr[21] = /*_.RETURN___V28*/ meltfptr[27];; MELT_LOCATION("warmelt-outobj.melt:5249:/ clear"); - /*clear*/ /*_.PATH__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.PATH__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.IMPLBUF__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.IMPLBUF__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWFILE__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.NEWFILE__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V28*/ - meltfptr[27] = 0 ; - /*_.LET___V14*/ - meltfptr[12] = /*_.LET___V23*/ meltfptr[21];; + /*clear*/ /*_.RETURN___V28*/ meltfptr[27] = 0 ; + /*_.LET___V14*/ meltfptr[12] = /*_.LET___V23*/ meltfptr[21];; MELT_LOCATION("warmelt-outobj.melt:5241:/ clear"); - /*clear*/ /*_.MOFILES__V15*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.MOFILES__V15*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_#NBFILES__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NBFILES__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.NTHFILE__V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.NTHFILE__V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IF___V17*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_#lteqI__L6*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#lteqI__L6*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V19*/ - meltfptr[17] = 0 ; + /*clear*/ /*_._IF___V19*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_#gteqI__L7*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#gteqI__L7*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V21*/ - meltfptr[19] = 0 ; + /*clear*/ /*_._IF___V21*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V23*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.LET___V23*/ meltfptr[21] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:5237:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { MELT_LOCATION("warmelt-outobj.melt:5237:/ locexp"); @@ -3615,22 +3340,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*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ; } ; @@ -3713,8 +3433,7 @@ meltrout_118_WARMELTmiOUTOBJ_OUTPUT_MELT_DESCRIPTOR(meltclosure_ptr_t meltclosp_ /* end of frame for routine meltrout_118_WARMELTmiOUTOBJ_OUTPUT_MELT_DESCRIPTOR fromline 1719 */ - /* classy proc frame meltrout_118_WARMELTmiOUTOBJ_OUTPUT_MELT_DESCRIPTOR */ - MeltFrame_meltrout_118_WARMELTmiOUTOBJ_OUTPUT_MELT_DESCRIPTOR + /* classy proc frame meltrout_118_WARMELTmiOUTOBJ_OUTPUT_MELT_DESCRIPTOR */ MeltFrame_meltrout_118_WARMELTmiOUTOBJ_OUTPUT_MELT_DESCRIPTOR meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_118_WARMELTmiOUTOBJ_OUTPUT_MELT_DESCRIPTOR fromline 1748*/ #if ENABLE_CHECKING @@ -3727,8 +3446,7 @@ meltrout_118_WARMELTmiOUTOBJ_OUTPUT_MELT_DESCRIPTOR(meltclosure_ptr_t meltclosp_ #define meltframe meltfram__ melt_trace_start("OUTPUT_MELT_DESCRIPTOR", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -3738,22 +3456,19 @@ meltrout_118_WARMELTmiOUTOBJ_OUTPUT_MELT_DESCRIPTOR(meltclosure_ptr_t meltclosp_ /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:5271:/ getarg"); - /*_.MODNAMSTR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.MODNAMSTR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.SECFILES__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.SECFILES__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SECFILES__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MODCTX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3])) != NULL); ; @@ -3785,8 +3500,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)) @@ -3795,8 +3509,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5272:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3837,20 +3550,16 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " modctx="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V5*/ - meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; + /*_._IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5272:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } @@ -3863,8 +3572,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5272:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -3873,11 +3581,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3907,12 +3613,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L3*/ - meltfnum[1] = + /*_#IS_STRING__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.MODNAMSTR__V2*/ meltfptr[1])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-outobj.melt:5273:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -3941,31 +3645,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5273; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ - meltfptr[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:5273:/ 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:5273:/ clear"); - /*clear*/ /*_#IS_STRING__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRING__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3983,12 +3681,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-outobj.melt:5274:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[4] = (/*nil*/NULL);; @@ -4017,31 +3713,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5274; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V12*/ - meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V11*/ - meltfptr[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:5274:/ 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:5274:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V11*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V11*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4052,35 +3742,27 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:5275:/ quasiblock"); - /*_#NBSECFILES__L5*/ - meltfnum[1] = + /*_#NBSECFILES__L5*/ meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.SECFILES__V3*/ meltfptr[2])));; /*^compute*/ - /*_#LASTSECFILEIX__L6*/ - meltfnum[0] = 0;; + /*_#LASTSECFILEIX__L6*/ meltfnum[0] = 0;; /*^compute*/ - /*_.DEBUF__V13*/ - meltfptr[11] = + /*_.DEBUF__V13*/ meltfptr[11] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; /*^compute*/ - /*_.TIBUF__V14*/ - meltfptr[4] = + /*_.TIBUF__V14*/ meltfptr[4] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; /*^compute*/ - /*_.MKBUF__V15*/ - meltfptr[14] = + /*_.MKBUF__V15*/ meltfptr[14] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; /*^compute*/ - /*_.PATHLIST__V16*/ - meltfptr[15] = + /*_.PATHLIST__V16*/ meltfptr[15] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; /*^compute*/ - /*_.MD5LIST__V17*/ - meltfptr[16] = + /*_.MD5LIST__V17*/ meltfptr[16] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; MELT_LOCATION("warmelt-outobj.melt:5283:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2]))) ) /*then*/ @@ -4091,8 +3773,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 17, "MOCX_VARLIST"); - /*_.MOCX_VARLIST__V18*/ - meltfptr[17] = slot; + /*_.MOCX_VARLIST__V18*/ meltfptr[17] = slot; }; ; } @@ -4112,23 +3793,19 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[6]); - /*_.TUPSTATVAR__V19*/ - meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.MOCX_VARLIST__V18*/ meltfptr[17]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.TUPSTATVAR__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.MOCX_VARLIST__V18*/ meltfptr[17]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#NBSTATVAR__L7*/ - meltfnum[6] = + /*_#NBSTATVAR__L7*/ meltfnum[6] = (melt_multiple_length((melt_ptr_t)(/*_.TUPSTATVAR__V19*/ meltfptr[18])));; /*^compute*/ - /*_.MODBUILDSTR__V20*/ - meltfptr[19] = + /*_.MODBUILDSTR__V20*/ meltfptr[19] = (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), melt_string_str((melt_ptr_t)(/*_.MODNAMSTR__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-outobj.melt:5286:/ quasiblock"); - /*_.BUF__V22*/ - meltfptr[21] = + /*_.BUF__V22*/ meltfptr[21] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; { @@ -4137,26 +3814,20 @@ meltlab_endgetargs: melt_string_str((melt_ptr_t)(/*_.MODNAMSTR__V2*/ meltfptr[1]))); } ; - /*_.STRBUF2STRING__V23*/ - meltfptr[22] = + /*_.STRBUF2STRING__V23*/ meltfptr[22] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), melt_strbuf_str((melt_ptr_t)(/*_.BUF__V22*/ meltfptr[21]))));; /*^compute*/ - /*_.LET___V21*/ - meltfptr[20] = /*_.STRBUF2STRING__V23*/ meltfptr[22];; + /*_.LET___V21*/ meltfptr[20] = /*_.STRBUF2STRING__V23*/ meltfptr[22];; MELT_LOCATION("warmelt-outobj.melt:5286:/ clear"); - /*clear*/ /*_.BUF__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.BUF__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V23*/ - meltfptr[22] = 0 ; - /*_.MODCIDENT__V24*/ - meltfptr[21] = /*_.LET___V21*/ meltfptr[20];; + /*clear*/ /*_.STRBUF2STRING__V23*/ meltfptr[22] = 0 ; + /*_.MODCIDENT__V24*/ meltfptr[21] = /*_.LET___V21*/ meltfptr[20];; MELT_LOCATION("warmelt-outobj.melt:5290:/ quasiblock"); - /*_.BUF__V26*/ - meltfptr[25] = + /*_.BUF__V26*/ meltfptr[25] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; { @@ -4165,21 +3836,16 @@ meltlab_endgetargs: melt_string_str((melt_ptr_t)(/*_.MODBUILDSTR__V20*/ meltfptr[19]))); } ; - /*_.STRBUF2STRING__V27*/ - meltfptr[26] = + /*_.STRBUF2STRING__V27*/ meltfptr[26] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), melt_strbuf_str((melt_ptr_t)(/*_.BUF__V26*/ meltfptr[25]))));; /*^compute*/ - /*_.LET___V25*/ - meltfptr[22] = /*_.STRBUF2STRING__V27*/ meltfptr[26];; + /*_.LET___V25*/ meltfptr[22] = /*_.STRBUF2STRING__V27*/ meltfptr[26];; MELT_LOCATION("warmelt-outobj.melt:5290:/ clear"); - /*clear*/ /*_.BUF__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.BUF__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V27*/ - meltfptr[26] = 0 ; - /*_.MODBUILDCIDENT__V28*/ - meltfptr[25] = /*_.LET___V25*/ meltfptr[22];; + /*clear*/ /*_.STRBUF2STRING__V27*/ meltfptr[26] = 0 ; + /*_.MODBUILDCIDENT__V28*/ meltfptr[25] = /*_.LET___V25*/ meltfptr[22];; MELT_CHECK_SIGNAL(); ; @@ -4192,13 +3858,11 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "$(GCCMELTGEN_BUILD)"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODBUILDSTR__V20*/ meltfptr[19]; - /*_.MODPREFSTR__V29*/ - meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MODPREFSTR__V29*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:5295:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2]))) ) /*then*/ @@ -4209,8 +3873,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 14, "MOCX_PACKAGEPCLIST"); - /*_.PACKAGEPCLIST__V30*/ - meltfptr[29] = slot; + /*_.PACKAGEPCLIST__V30*/ meltfptr[29] = slot; }; ; } @@ -4224,12 +3887,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L8*/ - meltfnum[7] = + /*_#IS_A__L8*/ meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_RUNNING_EXTENSION_MODULE_CONTEXT*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-outobj.melt:5297:/ cond"); - /*cond*/ - if (/*_#IS_A__L8*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#IS_A__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4247,8 +3908,7 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x1*/ - /*_.TUPLREC___V33*/ - meltfptr[32] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x1; + /*_.TUPLREC___V33*/ meltfptr[32] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x1; meltletrec_1_ptr->rtup_0__TUPLREC__x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x1.nbval = 2; @@ -4268,25 +3928,20 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V33*/ meltfptr[32]); ; - /*_.TUPLE___V32*/ - meltfptr[31] = /*_.TUPLREC___V33*/ meltfptr[32];; + /*_.TUPLE___V32*/ meltfptr[31] = /*_.TUPLREC___V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5298:/ clear"); - /*clear*/ /*_.TUPLREC___V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.TUPLREC___V33*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.TUPLREC___V33*/ meltfptr[32] = 0 ; } /*end multiallocblock*/ ; - /*_.FLAVORTUPLE__V31*/ - meltfptr[30] = /*_.TUPLE___V32*/ meltfptr[31];; + /*_.FLAVORTUPLE__V31*/ meltfptr[30] = /*_.TUPLE___V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5297:/ clear"); - /*clear*/ /*_.TUPLE___V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.TUPLE___V32*/ meltfptr[31] = 0 ; } ; } @@ -4308,8 +3963,7 @@ meltlab_endgetargs: meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x2*/ - /*_.TUPLREC___V35*/ - meltfptr[31] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x2; + /*_.TUPLREC___V35*/ meltfptr[31] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x2; meltletrec_2_ptr->rtup_0__TUPLREC__x2.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_2_ptr->rtup_0__TUPLREC__x2.nbval = 4; @@ -4341,25 +3995,20 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V35*/ meltfptr[31]); ; - /*_.TUPLE___V34*/ - meltfptr[32] = /*_.TUPLREC___V35*/ meltfptr[31];; + /*_.TUPLE___V34*/ meltfptr[32] = /*_.TUPLREC___V35*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5299:/ clear"); - /*clear*/ /*_.TUPLREC___V35*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.TUPLREC___V35*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V35*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.TUPLREC___V35*/ meltfptr[31] = 0 ; } /*end multiallocblock*/ ; - /*_.FLAVORTUPLE__V31*/ - meltfptr[30] = /*_.TUPLE___V34*/ meltfptr[32];; + /*_.FLAVORTUPLE__V31*/ meltfptr[30] = /*_.TUPLE___V34*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5297:/ clear"); - /*clear*/ /*_.TUPLE___V34*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.TUPLE___V34*/ meltfptr[32] = 0 ; } ; } @@ -4367,8 +4016,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5301:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/** GENERATED MELT DESCRIPTOR FILE ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/** GENERATED MELT DESCRIPTOR FILE ")); } ; @@ -4381,8 +4029,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5303:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "+meltdesc.c \n** NEVER EDIT OR MOVE THIS, IT IS GENERATED & PARSED\ + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "+meltdesc.c \n** NEVER EDIT OR MOVE THIS, IT IS GENERATED & PARSED\ ! **/")); } ; @@ -4395,8 +4042,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5305:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* These identifiers are generated in warmelt-outobj.melt \ + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* These identifiers are generated in warmelt-outobj.melt \ \n & handled in melt-runtime.c carefully. */")); } ; @@ -4420,8 +4066,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[2].meltbp_cstring = "+meltbuild.mk\n"; - /*_.ADD2OUT__V36*/ - meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V36*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -4435,8 +4080,7 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[0].meltbp_cstring = "## NEVER EDIT THIS FILE, generated from warmelt-outobj.melt by output_melt_de\ scriptor\n"; - /*_.ADD2OUT__V37*/ - meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V37*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -4462,8 +4106,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ \n\t extern \"C\" const int melt_module_nb_module_vars;\ \n\n\t extern \"C\" {\n\t \ #endif /*__cplusplus */\n\t "; - /*_.ADD2OUT__V38*/ - meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -4475,8 +4118,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5327:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* version of the GCC compiler & MELT runtime generating this */")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* version of the GCC compiler & MELT runtime generating this */")); } ; @@ -4488,8 +4130,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5329:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const char melt_genversionstr[]=\"")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const char melt_genversionstr[]=\"")); } ; @@ -4503,8 +4144,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5335:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "\"")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "\"")); } ; @@ -4526,8 +4166,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ \n\t #else\n\t \" (in C)\"\ \n\t #endif\n\t\t\ \t\t\t;\n\t "; - /*_.ADD2OUT__V39*/ - meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -4539,8 +4178,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5346:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const char melt_versionmeltstr[]=\"")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const char melt_versionmeltstr[]=\"")); } ; @@ -4553,8 +4191,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "## generated by MELT version "; - /*_.ADD2OUT__V40*/ - meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -4569,8 +4206,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5354:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "\";")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "\";")); } ; @@ -4594,8 +4230,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5359:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* source name & real path of the module */")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* source name & real path of the module */")); } ; @@ -4607,8 +4242,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5361:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/*MELTMODULENAME ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/*MELTMODULENAME ")); } ; @@ -4621,8 +4255,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5363:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( " */")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( " */")); } ; @@ -4641,8 +4274,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "#module name and identifier\n"; - /*_.ADD2OUT__V41*/ - meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -4657,8 +4289,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[0].meltbp_cstring = "MELTGEN_MODULENAME="; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V2*/ meltfptr[1]; - /*_.ADD2OUT__V42*/ - meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4679,8 +4310,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[0].meltbp_cstring = "MELTGEN_MODULEIDENT="; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODCIDENT__V24*/ meltfptr[21]; - /*_.ADD2OUT__V43*/ - meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4692,8 +4322,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5370:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const char melt_modulename[]=\"")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const char melt_modulename[]=\"")); } ; @@ -4707,8 +4336,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5378:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "\";")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "\";")); } ; @@ -4720,8 +4348,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5380:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const char melt_modulerealpath[]=\"")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const char melt_modulerealpath[]=\"")); } ; @@ -4751,8 +4378,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5399:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "\";")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "\";")); } ; @@ -4770,8 +4396,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5402:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* hash of preprocessed melt-run.h generating this */")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* hash of preprocessed melt-run.h generating this */")); } ; @@ -4783,8 +4408,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5404:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const char melt_prepromd5meltrun[]=\"")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const char melt_prepromd5meltrun[]=\"")); } ; @@ -4798,8 +4422,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5410:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "\";")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "\";")); } ; @@ -4811,8 +4434,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5413:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* hexmd5checksum of primary C++ file */")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* hexmd5checksum of primary C++ file */")); } ; @@ -4824,8 +4446,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5415:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const char melt_primaryhexmd5[]=\"")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const char melt_primaryhexmd5[]=\"")); } ; MELT_LOCATION("warmelt-outobj.melt:5416:/ quasiblock"); @@ -4843,24 +4464,19 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = ".cc"; - /*_.PRIMPATH__V44*/ - meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.PRIMPATH__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.PRIMMD5S__V45*/ - meltfptr[44] = + /*_.PRIMMD5S__V45*/ meltfptr[44] = (meltgc_string_hex_md5sum_file (melt_string_str((melt_ptr_t)/*_.PRIMPATH__V44*/ meltfptr[43])));; /*^compute*/ - /*_.MKRULEBUF__V46*/ - meltfptr[45] = + /*_.MKRULEBUF__V46*/ meltfptr[45] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; /*^compute*/ - /*_.SECMD5BUF__V47*/ - meltfptr[46] = + /*_.SECMD5BUF__V47*/ meltfptr[46] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; /*^compute*/ - /*_.SECPATHBUF__V48*/ - meltfptr[47] = + /*_.SECPATHBUF__V48*/ meltfptr[47] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; #if MELT_HAVE_DEBUG @@ -4882,8 +4498,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ 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)) @@ -4892,8 +4507,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5423:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4926,20 +4540,16 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[3].meltbp_cstring = "output_melt_descriptor primpath="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PRIMPATH__V44*/ meltfptr[43]; - /*_.MELT_DEBUG_FUN__V50*/ - meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V49*/ - meltfptr[48] = /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49];; + /*_._IF___V49*/ meltfptr[48] = /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5423:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V50*/ - meltfptr[49] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = 0 ; } ; } @@ -4952,8 +4562,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5423:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -4962,11 +4571,9 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V49*/ - meltfptr[48] = 0 ; + /*clear*/ /*_._IF___V49*/ meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5015,8 +4622,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "#primary path and checksum\n"; - /*_.ADD2OUT__V51*/ - meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V51*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5035,8 +4641,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[2].meltbp_cstring = "="; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PRIMPATH__V44*/ meltfptr[43]; - /*_.ADD2OUT__V52*/ - meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V52*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5061,8 +4666,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[2].meltbp_cstring = "="; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PRIMMD5S__V45*/ meltfptr[44]; - /*_.ADD2OUT__V53*/ - meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5084,12 +4688,10 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[6]); - /*_.PACKAGEPCTUP__V55*/ - meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.PACKAGEPCLIST__V30*/ meltfptr[29]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PACKAGEPCTUP__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.PACKAGEPCLIST__V30*/ meltfptr[29]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#NBPACKAGEPC__L11*/ - meltfnum[9] = + /*_#NBPACKAGEPC__L11*/ meltfnum[9] = (melt_multiple_length((melt_ptr_t)(/*_.PACKAGEPCTUP__V55*/ meltfptr[54])));; #if MELT_HAVE_DEBUG @@ -5111,8 +4713,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ - meltfnum[8] = + /*_#MELT_NEED_DBG__L12*/ meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -5121,8 +4722,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5436:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L12*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5155,20 +4755,16 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[3].meltbp_cstring = "output_melt_descriptor packagepctup="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PACKAGEPCTUP__V55*/ meltfptr[54]; - /*_.MELT_DEBUG_FUN__V57*/ - meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V56*/ - meltfptr[55] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56];; + /*_._IF___V56*/ meltfptr[55] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5436:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = 0 ; } ; } @@ -5181,8 +4777,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5436:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -5191,11 +4786,9 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V56*/ - meltfptr[55] = 0 ; + /*clear*/ /*_._IF___V56*/ meltfptr[55] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5219,8 +4812,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:5437:/ cond"); - /*cond*/ - if (/*_#NBPACKAGEPC__L11*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#NBPACKAGEPC__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5241,8 +4833,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[1].meltbp_long = /*_#NBPACKAGEPC__L11*/ meltfnum[9]; /*^apply.arg*/ argtab[2].meltbp_cstring = " packages for pkg-config utility\n"; - /*_.ADD2OUT__V59*/ - meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V59*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5259,8 +4850,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODCIDENT__V24*/ meltfptr[21]; /*^apply.arg*/ argtab[2].meltbp_cstring = "="; - /*_.ADD2OUT__V60*/ - meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -5287,8 +4877,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[0].meltbp_cstring = " "; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURPACK__V61*/ meltfptr[60]; - /*_.ADD2OUT__V62*/ - meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#PKIX__L14*/ meltfnum[12]<0) break; @@ -5297,14 +4886,11 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:5440:/ clear"); - /*clear*/ /*_.CURPACK__V61*/ - meltfptr[60] = 0 ; + /*clear*/ /*_.CURPACK__V61*/ meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_#PKIX__L14*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#PKIX__L14*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V62*/ - meltfptr[61] = 0 ; + /*clear*/ /*_.ADD2OUT__V62*/ meltfptr[61] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -5317,8 +4903,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "\n# global name for these pkg-config packages:\n"; - /*_.ADD2OUT__V63*/ - meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5335,35 +4920,27 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODCIDENT__V24*/ meltfptr[21]; /*^apply.arg*/ argtab[2].meltbp_cstring = ")\n"; - /*_.ADD2OUT__V64*/ - meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:5437:/ quasiblock"); - /*_.PROGN___V65*/ - meltfptr[64] = /*_.ADD2OUT__V64*/ meltfptr[63];; + /*_.PROGN___V65*/ meltfptr[64] = /*_.ADD2OUT__V64*/ meltfptr[63];; /*^compute*/ - /*_._IF___V58*/ - meltfptr[56] = /*_.PROGN___V65*/ meltfptr[64];; + /*_._IF___V58*/ meltfptr[56] = /*_.PROGN___V65*/ meltfptr[64];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5437:/ clear"); - /*clear*/ /*_.ADD2OUT__V59*/ - meltfptr[55] = 0 ; + /*clear*/ /*_.ADD2OUT__V59*/ meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V60*/ - meltfptr[59] = 0 ; + /*clear*/ /*_.ADD2OUT__V60*/ meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V63*/ - meltfptr[62] = 0 ; + /*clear*/ /*_.ADD2OUT__V63*/ meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V64*/ - meltfptr[63] = 0 ; + /*clear*/ /*_.ADD2OUT__V64*/ meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V65*/ - meltfptr[64] = 0 ; + /*clear*/ /*_.PROGN___V65*/ meltfptr[64] = 0 ; } ; } @@ -5377,8 +4954,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:5447:/ cond"); - /*cond*/ - if (/*_#NBPACKAGEPC__L11*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#NBPACKAGEPC__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V66*/ meltfptr[55] = (/*nil*/NULL);; @@ -5401,45 +4977,35 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "# no packages needed thru pkg-config\n"; - /*_.ADD2OUT__V67*/ - meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V67*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:5447:/ quasiblock"); - /*_.PROGN___V68*/ - meltfptr[62] = /*_.ADD2OUT__V67*/ meltfptr[59];; + /*_.PROGN___V68*/ meltfptr[62] = /*_.ADD2OUT__V67*/ meltfptr[59];; /*^compute*/ - /*_._IFELSE___V66*/ - meltfptr[55] = /*_.PROGN___V68*/ meltfptr[62];; + /*_._IFELSE___V66*/ meltfptr[55] = /*_.PROGN___V68*/ meltfptr[62];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5447:/ clear"); - /*clear*/ /*_.ADD2OUT__V67*/ - meltfptr[59] = 0 ; + /*clear*/ /*_.ADD2OUT__V67*/ meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V68*/ - meltfptr[62] = 0 ; + /*clear*/ /*_.PROGN___V68*/ meltfptr[62] = 0 ; } ; } ; - /*_.LET___V54*/ - meltfptr[53] = /*_._IFELSE___V66*/ meltfptr[55];; + /*_.LET___V54*/ meltfptr[53] = /*_._IFELSE___V66*/ meltfptr[55];; MELT_LOCATION("warmelt-outobj.melt:5433:/ clear"); - /*clear*/ /*_.PACKAGEPCTUP__V55*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.PACKAGEPCTUP__V55*/ meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_#NBPACKAGEPC__L11*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#NBPACKAGEPC__L11*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V58*/ - meltfptr[56] = 0 ; + /*clear*/ /*_._IF___V58*/ meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V66*/ - meltfptr[55] = 0 ; + /*clear*/ /*_._IFELSE___V66*/ meltfptr[55] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -5454,8 +5020,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[2].meltbp_cstring = "\n\n"; - /*_.ADD2OUT__V69*/ - meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V69*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5472,8 +5037,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODCIDENT__V24*/ meltfptr[21]; /*^apply.arg*/ argtab[2].meltbp_cstring = "\n"; - /*_.ADD2OUT__V70*/ - meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V70*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -5512,8 +5076,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.PRIMPATH__V44*/ meltfptr[43]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n"; - /*_.ADD2OUT__V72*/ - meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V72*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#FLAVIX__L15*/ meltfnum[8]<0) break; @@ -5522,21 +5085,17 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:5452:/ clear"); - /*clear*/ /*_.CURFLAV__V71*/ - meltfptr[59] = 0 ; + /*clear*/ /*_.CURFLAV__V71*/ meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_#FLAVIX__L15*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#FLAVIX__L15*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V72*/ - meltfptr[62] = 0 ; + /*clear*/ /*_.ADD2OUT__V72*/ meltfptr[62] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-outobj.melt:5457:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "\";")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "\";")); } ; @@ -5554,8 +5113,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5461:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* hexmd5checksum of secondary C++ files */")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* hexmd5checksum of secondary C++ files */")); } ; @@ -5567,8 +5125,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5463:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const char* const melt_secondaryhexmd5tab[]={")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const char* const melt_secondaryhexmd5tab[]={")); } ; @@ -5591,8 +5148,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ - meltfnum[9] = + /*_#MELT_NEED_DBG__L16*/ meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -5601,8 +5157,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5465:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L16*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5635,20 +5190,16 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[3].meltbp_cstring = "output_melt_descriptor secfiles="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SECFILES__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V74*/ - meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V74*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V73*/ - meltfptr[54] = /*_.MELT_DEBUG_FUN__V74*/ meltfptr[56];; + /*_._IF___V73*/ meltfptr[54] = /*_.MELT_DEBUG_FUN__V74*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5465:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ - meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V74*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V74*/ meltfptr[56] = 0 ; } ; } @@ -5661,8 +5212,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5465:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -5671,11 +5221,9 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V73*/ - meltfptr[54] = 0 ; + /*clear*/ /*_._IF___V73*/ meltfptr[54] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5727,8 +5275,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L19*/ - meltfnum[9] = + /*_#MELT_NEED_DBG__L19*/ meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -5737,8 +5284,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5469:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L19*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5775,20 +5321,16 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[5].meltbp_cstring = " filix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#FILIX__L18*/ meltfnum[16]; - /*_.MELT_DEBUG_FUN__V77*/ - meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V77*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V76*/ - meltfptr[56] = /*_.MELT_DEBUG_FUN__V77*/ meltfptr[54];; + /*_._IF___V76*/ meltfptr[56] = /*_.MELT_DEBUG_FUN__V77*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5469:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ - meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V77*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V77*/ meltfptr[54] = 0 ; } ; } @@ -5801,8 +5343,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5469:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -5811,11 +5352,9 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V76*/ - meltfptr[56] = 0 ; + /*clear*/ /*_._IF___V76*/ meltfptr[56] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5845,8 +5384,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:5471:/ cond"); - /*cond*/ - if (/*_.CURFIL__V75*/ meltfptr[55]) /*then*/ + /*cond*/ if (/*_.CURFIL__V75*/ meltfptr[55]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5863,12 +5401,10 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L21*/ - meltfnum[19] = + /*_#IS_A__L21*/ meltfnum[19] = melt_is_instance_of((melt_ptr_t)(/*_.CURFIL__V75*/ meltfptr[55]), (melt_ptr_t)((/*!CLASS_SECONDARY_CC_FILE*/ meltfrout->tabval[17])));; MELT_LOCATION("warmelt-outobj.melt:5473:/ cond"); - /*cond*/ - if (/*_#IS_A__L21*/ meltfnum[19]) /*then*/ + /*cond*/ if (/*_#IS_A__L21*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V79*/ meltfptr[56] = (/*nil*/NULL);; @@ -5897,31 +5433,25 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[2].meltbp_long = 5473; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURFIL__V75*/ meltfptr[55]; - /*_.MELT_ASSERT_FAILURE_FUN__V80*/ - meltfptr[79] = 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__V80*/ meltfptr[79] = 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___V79*/ - meltfptr[56] = /*_.MELT_ASSERT_FAILURE_FUN__V80*/ meltfptr[79];; + /*_._IFELSE___V79*/ meltfptr[56] = /*_.MELT_ASSERT_FAILURE_FUN__V80*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5473:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V80*/ - meltfptr[79] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V80*/ meltfptr[79] = 0 ; } ; } ; - /*_.IFCPP___V78*/ - meltfptr[54] = /*_._IFELSE___V79*/ meltfptr[56];; + /*_.IFCPP___V78*/ meltfptr[54] = /*_._IFELSE___V79*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5473:/ clear"); - /*clear*/ /*_#IS_A__L21*/ - meltfnum[19] = 0 ; + /*clear*/ /*_#IS_A__L21*/ meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V79*/ - meltfptr[56] = 0 ; + /*clear*/ /*_._IFELSE___V79*/ meltfptr[56] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5930,14 +5460,12 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-outobj.melt:5475:/ compute"); - /*_#LASTSECFILEIX__L6*/ - meltfnum[0] = /*_#SETQ___L22*/ meltfnum[9] = /*_#FILIX__L18*/ meltfnum[16];; + /*_#LASTSECFILEIX__L6*/ meltfnum[0] = /*_#SETQ___L22*/ meltfnum[9] = /*_#FILIX__L18*/ meltfnum[16];; MELT_LOCATION("warmelt-outobj.melt:5476:/ quasiblock"); /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFIL__V75*/ meltfptr[55]), (melt_ptr_t)((/*!CLASS_SECONDARY_CC_FILE*/ meltfrout->tabval[17]))) ) /*then*/ @@ -5948,8 +5476,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFIL__V75*/ meltfptr[55]) /*=obj*/; melt_object_get_field(slot,obj, 1, "SECFIL_PATH"); - /*_.SECPATH__V81*/ - meltfptr[79] = slot; + /*_.SECPATH__V81*/ meltfptr[79] = slot; }; ; } @@ -5960,8 +5487,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ } ; /*^compute*/ - /*_.SECMD5S__V82*/ - meltfptr[56] = + /*_.SECMD5S__V82*/ meltfptr[56] = (meltgc_string_hex_md5sum_file (melt_string_str((melt_ptr_t)/*_.SECPATH__V81*/ meltfptr[79])));; { @@ -5978,8 +5504,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5481:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/*sechexmd5checksum ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/*sechexmd5checksum ")); } ; @@ -5992,12 +5517,10 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5483:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( " #")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( " #")); } ; - /*_#GET_INT__L23*/ - meltfnum[19] = + /*_#GET_INT__L23*/ meltfnum[19] = (melt_get_int((melt_ptr_t)(/*_.CURFIL__V75*/ meltfptr[55])));; { @@ -6008,8 +5531,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5485:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( " */ \"")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( " */ \"")); } ; @@ -6022,8 +5544,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5487:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "\",")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "\",")); } ; @@ -6038,8 +5559,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[0].meltbp_cstring = " "; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SECPATH__V81*/ meltfptr[79]; - /*_.ADD2OUT__V83*/ - meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.SECPATHBUF__V48*/ meltfptr[47]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V83*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.SECPATHBUF__V48*/ meltfptr[47]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -6054,8 +5574,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[0].meltbp_cstring = " "; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SECMD5S__V82*/ meltfptr[56]; - /*_.ADD2OUT__V84*/ - meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.SECMD5BUF__V47*/ meltfptr[46]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V84*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.SECMD5BUF__V47*/ meltfptr[46]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -6076,8 +5595,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCIDENT__V24*/ meltfptr[21]; /*^apply.arg*/ argtab[4].meltbp_cstring = "\n"; - /*_.ADD2OUT__V85*/ - meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V85*/ meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -6095,12 +5613,10 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ MELT_CHECK_SIGNAL(); ; - /*_#ltI__L25*/ - meltfnum[24] = + /*_#ltI__L25*/ meltfnum[24] = ((/*_#FILIX__L18*/ meltfnum[16]) < (10));; MELT_LOCATION("warmelt-outobj.melt:5496:/ cond"); - /*cond*/ - if (/*_#ltI__L25*/ meltfnum[24]) /*then*/ + /*cond*/ if (/*_#ltI__L25*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*_?*/ meltfram__.loc_CSTRING__o0 = "0";; @@ -6109,20 +5625,17 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5496:/ cond.else"); - /*_?*/ - meltfram__.loc_CSTRING__o0 = "";; + /*_?*/ meltfram__.loc_CSTRING__o0 = "";; } ; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#ltI__L26*/ - meltfnum[25] = + /*_#ltI__L26*/ meltfnum[25] = ((/*_#FILIX__L18*/ meltfnum[16]) < (10));; MELT_LOCATION("warmelt-outobj.melt:5498:/ cond"); - /*cond*/ - if (/*_#ltI__L26*/ meltfnum[25]) /*then*/ + /*cond*/ if (/*_#ltI__L26*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*_?*/ meltfram__.loc_CSTRING__o1 = "0";; @@ -6131,8 +5644,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5498:/ cond.else"); - /*_?*/ - meltfram__.loc_CSTRING__o1 = "";; + /*_?*/ meltfram__.loc_CSTRING__o1 = "";; } ; @@ -6173,8 +5685,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[13].meltbp_cstring = ".cc"; /*^apply.arg*/ argtab[14].meltbp_cstring = "\n"; - /*_.ADD2OUT__V87*/ - meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V87*/ meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#FLAVIX__L24*/ meltfnum[23]<0) break; @@ -6183,58 +5694,43 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:5492:/ clear"); - /*clear*/ /*_.CURFLAV__V86*/ - meltfptr[85] = 0 ; + /*clear*/ /*_.CURFLAV__V86*/ meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_#FLAVIX__L24*/ - meltfnum[23] = 0 ; + /*clear*/ /*_#FLAVIX__L24*/ meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L25*/ - meltfnum[24] = 0 ; + /*clear*/ /*_#ltI__L25*/ meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ - meltfram__.loc_CSTRING__o0 = 0 ; + /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L26*/ - meltfnum[25] = 0 ; + /*clear*/ /*_#ltI__L26*/ meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ - meltfram__.loc_CSTRING__o1 = 0 ; + /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o1 = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V87*/ - meltfptr[86] = 0 ; + /*clear*/ /*_.ADD2OUT__V87*/ meltfptr[86] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-outobj.melt:5476:/ clear"); - /*clear*/ /*_.SECPATH__V81*/ - meltfptr[79] = 0 ; + /*clear*/ /*_.SECPATH__V81*/ meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_.SECMD5S__V82*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.SECMD5S__V82*/ meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L23*/ - meltfnum[19] = 0 ; + /*clear*/ /*_#GET_INT__L23*/ meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V83*/ - meltfptr[82] = 0 ; + /*clear*/ /*_.ADD2OUT__V83*/ meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V84*/ - meltfptr[83] = 0 ; + /*clear*/ /*_.ADD2OUT__V84*/ meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V85*/ - meltfptr[84] = 0 ; + /*clear*/ /*_.ADD2OUT__V85*/ meltfptr[84] = 0 ; MELT_LOCATION("warmelt-outobj.melt:5472:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5471:/ clear"); - /*clear*/ /*_.IFCPP___V78*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.IFCPP___V78*/ meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L22*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#SETQ___L22*/ meltfnum[9] = 0 ; } ; } @@ -6248,8 +5744,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5502:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/*nosecfile*/ (const char*)0,")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/*nosecfile*/ (const char*)0,")); } ; /*epilog*/ @@ -6263,11 +5758,9 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:5466:/ clear"); - /*clear*/ /*_.CURFIL__V75*/ - meltfptr[55] = 0 ; + /*clear*/ /*_.CURFIL__V75*/ meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_#FILIX__L18*/ - meltfnum[16] = 0 ; + /*clear*/ /*_#FILIX__L18*/ meltfnum[16] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -6279,8 +5772,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5505:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "(const char*)0 };")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "(const char*)0 };")); } ; @@ -6298,8 +5790,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5509:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* last index of secondary files */")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* last index of secondary files */")); } ; @@ -6311,8 +5802,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5511:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const int melt_lastsecfileindex=")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "const int melt_lastsecfileindex=")); } ; @@ -6324,8 +5814,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5513:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( ";")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( ";")); } ; @@ -6344,12 +5833,10 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "#secondary paths and checksums\n"; - /*_.ADD2OUT__V88*/ - meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V88*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.STRBUF2STRING__V89*/ - meltfptr[56] = + /*_.STRBUF2STRING__V89*/ meltfptr[56] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), melt_strbuf_str((melt_ptr_t)(/*_.SECPATHBUF__V48*/ meltfptr[47]))));; MELT_CHECK_SIGNAL(); @@ -6369,8 +5856,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.STRBUF2STRING__V89*/ meltfptr[56]; /*^apply.arg*/ argtab[4].meltbp_cstring = "\n"; - /*_.ADD2OUT__V90*/ - meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V90*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6379,8 +5865,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (0), 0); } ; - /*_.STRBUF2STRING__V91*/ - meltfptr[83] = + /*_.STRBUF2STRING__V91*/ meltfptr[83] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), melt_strbuf_str((melt_ptr_t)(/*_.SECMD5BUF__V47*/ meltfptr[46]))));; MELT_CHECK_SIGNAL(); @@ -6400,8 +5885,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.STRBUF2STRING__V91*/ meltfptr[83]; /*^apply.arg*/ argtab[4].meltbp_cstring = "\n"; - /*_.ADD2OUT__V92*/ - meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V92*/ meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6422,19 +5906,16 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ /*_.LIST_TO_MULTIPLE__V94*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.PATHLIST__V16*/ meltfptr[15]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; - /*_.CUMPATHMDS__V95*/ - meltfptr[94] = + /*_.CUMPATHMDS__V95*/ meltfptr[94] = (meltgc_string_hex_md5sum_file_sequence ((melt_ptr_t) /*_.LIST_TO_MULTIPLE__V94*/ meltfptr[93]));; /*^compute*/ - /*_.MIDSTR__V96*/ - meltfptr[95] = + /*_.MIDSTR__V96*/ meltfptr[95] = (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), melt_string_str((melt_ptr_t)(/*_.MODNAMSTR__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-outobj.melt:5525:/ quasiblock"); - /*_.MOUT__V98*/ - meltfptr[97] = + /*_.MOUT__V98*/ meltfptr[97] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; MELT_CHECK_SIGNAL(); @@ -6446,8 +5927,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "meltmod_"; - /*_.ADD2OUT__V99*/ - meltfptr[98] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MOUT__V98*/ meltfptr[97]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V99*/ meltfptr[98] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MOUT__V98*/ meltfptr[97]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6467,8 +5947,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "_mds__"; - /*_.ADD2OUT__V100*/ - meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MOUT__V98*/ meltfptr[97]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V100*/ meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MOUT__V98*/ meltfptr[97]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6478,27 +5957,20 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ melt_string_str((melt_ptr_t)(/*_.CUMPATHMDS__V95*/ meltfptr[94]))); } ; - /*_.STRBUF2STRING__V101*/ - meltfptr[100] = + /*_.STRBUF2STRING__V101*/ meltfptr[100] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), melt_strbuf_str((melt_ptr_t)(/*_.MOUT__V98*/ meltfptr[97]))));; /*^compute*/ - /*_.LET___V97*/ - meltfptr[96] = /*_.STRBUF2STRING__V101*/ meltfptr[100];; + /*_.LET___V97*/ meltfptr[96] = /*_.STRBUF2STRING__V101*/ meltfptr[100];; MELT_LOCATION("warmelt-outobj.melt:5525:/ clear"); - /*clear*/ /*_.MOUT__V98*/ - meltfptr[97] = 0 ; + /*clear*/ /*_.MOUT__V98*/ meltfptr[97] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V99*/ - meltfptr[98] = 0 ; + /*clear*/ /*_.ADD2OUT__V99*/ meltfptr[98] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V100*/ - meltfptr[99] = 0 ; + /*clear*/ /*_.ADD2OUT__V100*/ meltfptr[99] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V101*/ - meltfptr[100] = 0 ; - /*_.MODIDNAM__V102*/ - meltfptr[97] = /*_.LET___V97*/ meltfptr[96];; + /*clear*/ /*_.STRBUF2STRING__V101*/ meltfptr[100] = 0 ; + /*_.MODIDNAM__V102*/ meltfptr[97] = /*_.LET___V97*/ meltfptr[96];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-outobj.melt:5534:/ cppif.then"); @@ -6509,12 +5981,10 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L27*/ - meltfnum[19] = + /*_#IS_STRING__L27*/ meltfnum[19] = (melt_magic_discr((melt_ptr_t)(/*_.CUMPATHMDS__V95*/ meltfptr[94])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-outobj.melt:5534:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L27*/ meltfnum[19]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L27*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V104*/ meltfptr[99] = (/*nil*/NULL);; @@ -6543,31 +6013,25 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[2].meltbp_long = 5534; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CUMPATHMDS__V95*/ meltfptr[94]; - /*_.MELT_ASSERT_FAILURE_FUN__V105*/ - meltfptr[100] = 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__V105*/ meltfptr[100] = 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___V104*/ - meltfptr[99] = /*_.MELT_ASSERT_FAILURE_FUN__V105*/ meltfptr[100];; + /*_._IFELSE___V104*/ meltfptr[99] = /*_.MELT_ASSERT_FAILURE_FUN__V105*/ meltfptr[100];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5534:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V105*/ - meltfptr[100] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V105*/ meltfptr[100] = 0 ; } ; } ; - /*_.IFCPP___V103*/ - meltfptr[98] = /*_._IFELSE___V104*/ meltfptr[99];; + /*_.IFCPP___V103*/ meltfptr[98] = /*_._IFELSE___V104*/ meltfptr[99];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5534:/ clear"); - /*clear*/ /*_#IS_STRING__L27*/ - meltfnum[19] = 0 ; + /*clear*/ /*_#IS_STRING__L27*/ meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V104*/ - meltfptr[99] = 0 ; + /*clear*/ /*_._IFELSE___V104*/ meltfptr[99] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6589,8 +6053,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[2].meltbp_cstring = "\n"; - /*_.ADD2OUT__V106*/ - meltfptr[100] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V106*/ meltfptr[100] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6617,8 +6080,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[7].meltbp_cstring = "+melttime.h\n"; - /*_.ADD2OUT__V107*/ - meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V107*/ meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6635,8 +6097,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[2].meltbp_cstring = "\n"; - /*_.ADD2OUT__V108*/ - meltfptr[107] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V108*/ meltfptr[107] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -6669,8 +6130,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[4].meltbp_cstring = "\n\n"; - /*_.ADD2OUT__V110*/ - meltfptr[109] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V110*/ meltfptr[109] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6691,8 +6151,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[4].meltbp_cstring = "\n"; - /*_.ADD2OUT__V111*/ - meltfptr[110] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V111*/ meltfptr[110] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6725,8 +6184,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[9].meltbp_aptr = (melt_ptr_t*) &/*_.CUMPATHMDS__V95*/ meltfptr[94]; /*^apply.arg*/ argtab[10].meltbp_cstring = ".descriptor.meltpic.o "; - /*_.ADD2OUT__V112*/ - meltfptr[111] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V112*/ meltfptr[111] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:5550:/ quasiblock"); @@ -6742,8 +6200,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[6]); - /*_.PATHTUP__V113*/ - meltfptr[112] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.PATHLIST__V16*/ meltfptr[15]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PATHTUP__V113*/ meltfptr[112] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.PATHLIST__V16*/ meltfptr[15]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -6756,8 +6213,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[6]); - /*_.MD5TUP__V114*/ - meltfptr[113] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.MD5LIST__V17*/ meltfptr[16]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MD5TUP__V114*/ meltfptr[113] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.MD5LIST__V17*/ meltfptr[16]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -6770,20 +6226,16 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ MELT_CHECK_SIGNAL(); ; - /*_#MULTIPLE_LENGTH__L29*/ - meltfnum[19] = + /*_#MULTIPLE_LENGTH__L29*/ meltfnum[19] = (melt_multiple_length((melt_ptr_t)(/*_.PATHTUP__V113*/ meltfptr[112])));; /*^compute*/ - /*_#MULTIPLE_LENGTH__L30*/ - meltfnum[29] = + /*_#MULTIPLE_LENGTH__L30*/ meltfnum[29] = (melt_multiple_length((melt_ptr_t)(/*_.MD5TUP__V114*/ meltfptr[113])));; /*^compute*/ - /*_#eqeqI__L31*/ - meltfnum[30] = + /*_#eqeqI__L31*/ meltfnum[30] = ((/*_#MULTIPLE_LENGTH__L29*/ meltfnum[19]) == (/*_#MULTIPLE_LENGTH__L30*/ meltfnum[29]));; MELT_LOCATION("warmelt-outobj.melt:5553:/ cond"); - /*cond*/ - if (/*_#eqeqI__L31*/ meltfnum[30]) /*then*/ + /*cond*/ if (/*_#eqeqI__L31*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V116*/ meltfptr[115] = (/*nil*/NULL);; @@ -6814,37 +6266,29 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PATHTUP__V113*/ meltfptr[112]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MD5TUP__V114*/ meltfptr[113]; - /*_.MELT_ASSERT_FAILURE_FUN__V117*/ - meltfptr[116] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V117*/ meltfptr[116] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V116*/ - meltfptr[115] = /*_.MELT_ASSERT_FAILURE_FUN__V117*/ meltfptr[116];; + /*_._IFELSE___V116*/ meltfptr[115] = /*_.MELT_ASSERT_FAILURE_FUN__V117*/ meltfptr[116];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5553:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V117*/ - meltfptr[116] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V117*/ meltfptr[116] = 0 ; } ; } ; - /*_.IFCPP___V115*/ - meltfptr[114] = /*_._IFELSE___V116*/ meltfptr[115];; + /*_.IFCPP___V115*/ meltfptr[114] = /*_._IFELSE___V116*/ meltfptr[115];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5553:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L29*/ - meltfnum[19] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L29*/ meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L30*/ - meltfnum[29] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L30*/ meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeqI__L31*/ - meltfnum[30] = 0 ; + /*clear*/ /*_#eqeqI__L31*/ meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V116*/ - meltfptr[115] = 0 ; + /*clear*/ /*_._IFELSE___V116*/ meltfptr[115] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6867,8 +6311,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ MELT_LOCATION("warmelt-outobj.melt:5558:/ quasiblock"); - /*_.CURMD5__V120*/ - meltfptr[119] = + /*_.CURMD5__V120*/ meltfptr[119] = (melt_multiple_nth((melt_ptr_t)(/*_.MD5TUP__V114*/ meltfptr[113]), (/*_#IX__L32*/ meltfnum[19])));; #if MELT_HAVE_DEBUG @@ -6890,8 +6333,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L33*/ - meltfnum[29] = + /*_#MELT_NEED_DBG__L33*/ meltfnum[29] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6900,8 +6342,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5560:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L33*/ meltfnum[29]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L33*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6942,20 +6383,16 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[7].meltbp_cstring = " curmd5="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.CURMD5__V120*/ meltfptr[119]; - /*_.MELT_DEBUG_FUN__V122*/ - meltfptr[121] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V122*/ meltfptr[121] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V121*/ - meltfptr[120] = /*_.MELT_DEBUG_FUN__V122*/ meltfptr[121];; + /*_._IF___V121*/ meltfptr[120] = /*_.MELT_DEBUG_FUN__V122*/ meltfptr[121];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5560:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L34*/ - meltfnum[30] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L34*/ meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V122*/ - meltfptr[121] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V122*/ meltfptr[121] = 0 ; } ; } @@ -6968,8 +6405,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5560:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -6978,11 +6414,9 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L33*/ - meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L33*/ meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V121*/ - meltfptr[120] = 0 ; + /*clear*/ /*_._IF___V121*/ meltfptr[120] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7002,8 +6436,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ #endif /*MELT_HAVE_DEBUG*/ ; - /*_.MAKE_STRING_NAKEDBASENAME__V123*/ - meltfptr[121] = + /*_.MAKE_STRING_NAKEDBASENAME__V123*/ meltfptr[121] = (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), melt_string_str((melt_ptr_t)(/*_.CURPATH__V118*/ meltfptr[116]))));; @@ -7030,48 +6463,37 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURFLAV__V109*/ meltfptr[108]; /*^apply.arg*/ argtab[7].meltbp_cstring = ".meltpic.o"; - /*_.ADD2OUT__V124*/ - meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V124*/ meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V119*/ - meltfptr[115] = /*_.ADD2OUT__V124*/ meltfptr[120];; + /*_.LET___V119*/ meltfptr[115] = /*_.ADD2OUT__V124*/ meltfptr[120];; MELT_LOCATION("warmelt-outobj.melt:5558:/ clear"); - /*clear*/ /*_.CURMD5__V120*/ - meltfptr[119] = 0 ; + /*clear*/ /*_.CURMD5__V120*/ meltfptr[119] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V123*/ - meltfptr[121] = 0 ; + /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V123*/ meltfptr[121] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V124*/ - meltfptr[120] = 0 ; + /*clear*/ /*_.ADD2OUT__V124*/ meltfptr[120] = 0 ; if (/*_#IX__L32*/ meltfnum[19]<0) break; } /* end foreach_in_multiple meltcit6__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:5555:/ clear"); - /*clear*/ /*_.CURPATH__V118*/ - meltfptr[116] = 0 ; + /*clear*/ /*_.CURPATH__V118*/ meltfptr[116] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L32*/ - meltfnum[19] = 0 ; + /*clear*/ /*_#IX__L32*/ meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V119*/ - meltfptr[115] = 0 ; + /*clear*/ /*_.LET___V119*/ meltfptr[115] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-outobj.melt:5550:/ clear"); - /*clear*/ /*_.PATHTUP__V113*/ - meltfptr[112] = 0 ; + /*clear*/ /*_.PATHTUP__V113*/ meltfptr[112] = 0 ; /*^clear*/ - /*clear*/ /*_.MD5TUP__V114*/ - meltfptr[113] = 0 ; + /*clear*/ /*_.MD5TUP__V114*/ meltfptr[113] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V115*/ - meltfptr[114] = 0 ; + /*clear*/ /*_.IFCPP___V115*/ meltfptr[114] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -7082,8 +6504,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "\n\n"; - /*_.ADD2OUT__V125*/ - meltfptr[119] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V125*/ meltfptr[119] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#FLAVIX__L28*/ meltfnum[9]<0) break; @@ -7092,23 +6513,17 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:5541:/ clear"); - /*clear*/ /*_.CURFLAV__V109*/ - meltfptr[108] = 0 ; + /*clear*/ /*_.CURFLAV__V109*/ meltfptr[108] = 0 ; /*^clear*/ - /*clear*/ /*_#FLAVIX__L28*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#FLAVIX__L28*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V110*/ - meltfptr[109] = 0 ; + /*clear*/ /*_.ADD2OUT__V110*/ meltfptr[109] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V111*/ - meltfptr[110] = 0 ; + /*clear*/ /*_.ADD2OUT__V111*/ meltfptr[110] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V112*/ - meltfptr[111] = 0 ; + /*clear*/ /*_.ADD2OUT__V112*/ meltfptr[111] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V125*/ - meltfptr[119] = 0 ; + /*clear*/ /*_.ADD2OUT__V125*/ meltfptr[119] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -7125,8 +6540,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[2].meltbp_cstring = "\n\n"; - /*_.ADD2OUT__V126*/ - meltfptr[121] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V126*/ meltfptr[121] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKRULEBUF__V46*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7139,13 +6553,11 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MKRULEBUF__V46*/ meltfptr[45]; - /*_.ADD2OUT__V127*/ - meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V127*/ meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:5571:/ compute"); - /*_.MKRULEBUF__V46*/ - meltfptr[45] = /*_.SETQ___V128*/ meltfptr[112] = (/*nil*/NULL);; + /*_.MKRULEBUF__V46*/ meltfptr[45] = /*_.SETQ___V128*/ meltfptr[112] = (/*nil*/NULL);; MELT_CHECK_SIGNAL(); ; @@ -7156,8 +6568,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "## cumulated checksum and naked name\n"; - /*_.ADD2OUT__V129*/ - meltfptr[113] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V129*/ meltfptr[113] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7178,8 +6589,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CUMPATHMDS__V95*/ meltfptr[94]; /*^apply.arg*/ argtab[4].meltbp_cstring = "\n"; - /*_.ADD2OUT__V130*/ - meltfptr[114] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V130*/ meltfptr[114] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7200,8 +6610,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MIDSTR__V96*/ meltfptr[95]; /*^apply.arg*/ argtab[4].meltbp_cstring = "\n"; - /*_.ADD2OUT__V131*/ - meltfptr[130] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V131*/ meltfptr[130] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7239,15 +6648,13 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.MIDSTR__V96*/ meltfptr[95]; /*^apply.arg*/ argtab[8].meltbp_cstring = "+melttime.h\"\n\t "; - /*_.ADD2OUT__V132*/ - meltfptr[131] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V132*/ meltfptr[131] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:5591:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.TIBUF__V14*/ meltfptr[4]), ( "/** GENERATED MELT TIMESTAMP FILE ")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.TIBUF__V14*/ meltfptr[4]), ( "/** GENERATED MELT TIMESTAMP FILE ")); } ; @@ -7260,8 +6667,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5593:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.TIBUF__V14*/ meltfptr[4]), ( "+melttime.h \n** NEVER EDIT OR MOVE THIS, IT IS GENERATED & PARSED\ + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.TIBUF__V14*/ meltfptr[4]), ( "+melttime.h \n** NEVER EDIT OR MOVE THIS, IT IS GENERATED & PARSED\ ! **/")); } ; @@ -7274,8 +6680,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ { MELT_LOCATION("warmelt-outobj.melt:5595:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.TIBUF__V14*/ meltfptr[4]), ( "/* These identifiers are generated in warmelt-outobj.melt \ + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.TIBUF__V14*/ meltfptr[4]), ( "/* These identifiers are generated in warmelt-outobj.melt \ \n & handled in melt-runtime.c carefully. */")); } ; @@ -7322,8 +6727,7 @@ ltstr[];\n\t extern \"C\" const char melt_genversionstr[];\ \nextern \"C\" const char melt_build_timestamp[] ;\ \nextern \"C\" {\n#endif /*__cplusplu\ s */\n\n\t\t "; - /*_.ADD2OUT__V133*/ - meltfptr[132] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.TIBUF__V14*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V133*/ meltfptr[132] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.TIBUF__V14*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7374,8 +6778,7 @@ s */\n\n\t\t "; \n\t\t #ifdef __cplusplus\n\t\t \" (in C++)\"\ \n\t\t #else\n\t\t \" (in C)\"\n\t\t #endif /*__cplus\ plus*/\n\t\t\t\t\t;\n\t\t "; - /*_.ADD2OUT__V134*/ - meltfptr[133] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.TIBUF__V14*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V134*/ meltfptr[133] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.TIBUF__V14*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7408,8 +6811,7 @@ e /* ! "; argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.MODIDNAM__V102*/ meltfptr[97]; /*^apply.arg*/ argtab[6].meltbp_cstring = " */\n\t\t "; - /*_.ADD2OUT__V135*/ - meltfptr[134] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.TIBUF__V14*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V135*/ meltfptr[134] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.TIBUF__V14*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7437,8 +6839,7 @@ e /* ! "; \ \n\t\t #endif /*__cplusplus\ */\n\t\t "; - /*_.ADD2OUT__V136*/ - meltfptr[135] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V136*/ meltfptr[135] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7450,8 +6851,7 @@ e /* ! "; { MELT_LOCATION("warmelt-outobj.melt:5662:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* end of melt descriptor file */")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), ( "/* end of melt descriptor file */")); } ; @@ -7474,76 +6874,53 @@ e /* ! "; argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[2].meltbp_cstring = "+meltbuild.mk\n"; - /*_.ADD2OUT__V137*/ - meltfptr[136] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V137*/ meltfptr[136] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V93*/ - meltfptr[54] = /*_.ADD2OUT__V137*/ meltfptr[136];; + /*_.LET___V93*/ meltfptr[54] = /*_.ADD2OUT__V137*/ meltfptr[136];; MELT_LOCATION("warmelt-outobj.melt:5521:/ clear"); - /*clear*/ /*_.LIST_TO_MULTIPLE__V94*/ - meltfptr[93] = 0 ; + /*clear*/ /*_.LIST_TO_MULTIPLE__V94*/ meltfptr[93] = 0 ; /*^clear*/ - /*clear*/ /*_.CUMPATHMDS__V95*/ - meltfptr[94] = 0 ; + /*clear*/ /*_.CUMPATHMDS__V95*/ meltfptr[94] = 0 ; /*^clear*/ - /*clear*/ /*_.MIDSTR__V96*/ - meltfptr[95] = 0 ; + /*clear*/ /*_.MIDSTR__V96*/ meltfptr[95] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V97*/ - meltfptr[96] = 0 ; + /*clear*/ /*_.LET___V97*/ meltfptr[96] = 0 ; /*^clear*/ - /*clear*/ /*_.MODIDNAM__V102*/ - meltfptr[97] = 0 ; + /*clear*/ /*_.MODIDNAM__V102*/ meltfptr[97] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V103*/ - meltfptr[98] = 0 ; + /*clear*/ /*_.IFCPP___V103*/ meltfptr[98] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V106*/ - meltfptr[100] = 0 ; + /*clear*/ /*_.ADD2OUT__V106*/ meltfptr[100] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V107*/ - meltfptr[99] = 0 ; + /*clear*/ /*_.ADD2OUT__V107*/ meltfptr[99] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V108*/ - meltfptr[107] = 0 ; + /*clear*/ /*_.ADD2OUT__V108*/ meltfptr[107] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V126*/ - meltfptr[121] = 0 ; + /*clear*/ /*_.ADD2OUT__V126*/ meltfptr[121] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V127*/ - meltfptr[120] = 0 ; + /*clear*/ /*_.ADD2OUT__V127*/ meltfptr[120] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V128*/ - meltfptr[112] = 0 ; + /*clear*/ /*_.SETQ___V128*/ meltfptr[112] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V129*/ - meltfptr[113] = 0 ; + /*clear*/ /*_.ADD2OUT__V129*/ meltfptr[113] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V130*/ - meltfptr[114] = 0 ; + /*clear*/ /*_.ADD2OUT__V130*/ meltfptr[114] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V131*/ - meltfptr[130] = 0 ; + /*clear*/ /*_.ADD2OUT__V131*/ meltfptr[130] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V132*/ - meltfptr[131] = 0 ; + /*clear*/ /*_.ADD2OUT__V132*/ meltfptr[131] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V133*/ - meltfptr[132] = 0 ; + /*clear*/ /*_.ADD2OUT__V133*/ meltfptr[132] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V134*/ - meltfptr[133] = 0 ; + /*clear*/ /*_.ADD2OUT__V134*/ meltfptr[133] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V135*/ - meltfptr[134] = 0 ; + /*clear*/ /*_.ADD2OUT__V135*/ meltfptr[134] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V136*/ - meltfptr[135] = 0 ; + /*clear*/ /*_.ADD2OUT__V136*/ meltfptr[135] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V137*/ - meltfptr[136] = 0 ; + /*clear*/ /*_.ADD2OUT__V137*/ meltfptr[136] = 0 ; MELT_LOCATION("warmelt-outobj.melt:5666:/ quasiblock"); @@ -7559,8 +6936,7 @@ e /* ! "; argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "+meltdesc.c"; - /*_.MELTDESCPATH__V138*/ - meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELTDESCPATH__V138*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7575,8 +6951,7 @@ e /* ! "; argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "+melttime.h"; - /*_.MELTTIMEPATH__V139*/ - meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELTTIMEPATH__V139*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7591,8 +6966,7 @@ e /* ! "; argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "+meltbuild.mk"; - /*_.MELTMAKEPATH__V140*/ - meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELTMAKEPATH__V140*/ meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7615,8 +6989,7 @@ e /* ! "; MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L35*/ - meltfnum[30] = + /*_#MELT_NEED_DBG__L35*/ meltfnum[30] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7625,8 +6998,7 @@ e /* ! "; #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5671:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L35*/ meltfnum[30]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L35*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7663,20 +7035,16 @@ e /* ! "; argtab[5].meltbp_cstring = "\n* debuf="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DEBUF__V13*/ meltfptr[11]; - /*_.MELT_DEBUG_FUN__V142*/ - meltfptr[97] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V142*/ meltfptr[97] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V141*/ - meltfptr[96] = /*_.MELT_DEBUG_FUN__V142*/ meltfptr[97];; + /*_._IF___V141*/ meltfptr[96] = /*_.MELT_DEBUG_FUN__V142*/ meltfptr[97];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5671:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L36*/ - meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L36*/ meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V142*/ - meltfptr[97] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V142*/ meltfptr[97] = 0 ; } ; } @@ -7689,8 +7057,7 @@ e /* ! "; { MELT_LOCATION("warmelt-outobj.melt:5671:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -7699,11 +7066,9 @@ e /* ! "; /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L35*/ - meltfnum[30] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L35*/ meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V141*/ - meltfptr[96] = 0 ; + /*clear*/ /*_._IF___V141*/ meltfptr[96] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7743,8 +7108,7 @@ e /* ! "; MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L37*/ - meltfnum[29] = + /*_#MELT_NEED_DBG__L37*/ meltfnum[29] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7753,8 +7117,7 @@ e /* ! "; #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5673:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L37*/ meltfnum[29]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7791,20 +7154,16 @@ e /* ! "; argtab[5].meltbp_cstring = "\n* tibuf="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.TIBUF__V14*/ meltfptr[4]; - /*_.MELT_DEBUG_FUN__V144*/ - meltfptr[100] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (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__V144*/ meltfptr[100] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (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___V143*/ - meltfptr[98] = /*_.MELT_DEBUG_FUN__V144*/ meltfptr[100];; + /*_._IF___V143*/ meltfptr[98] = /*_.MELT_DEBUG_FUN__V144*/ meltfptr[100];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5673:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L38*/ - meltfnum[30] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V144*/ - meltfptr[100] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V144*/ meltfptr[100] = 0 ; } ; } @@ -7817,8 +7176,7 @@ e /* ! "; { MELT_LOCATION("warmelt-outobj.melt:5673:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -7827,11 +7185,9 @@ e /* ! "; /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L37*/ - meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V143*/ - meltfptr[98] = 0 ; + /*clear*/ /*_._IF___V143*/ meltfptr[98] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7871,8 +7227,7 @@ e /* ! "; MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L39*/ - meltfnum[30] = + /*_#MELT_NEED_DBG__L39*/ meltfnum[30] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7881,8 +7236,7 @@ e /* ! "; #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5675:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L39*/ meltfnum[30]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L39*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7919,20 +7273,16 @@ e /* ! "; argtab[5].meltbp_cstring = "\n* mkbuf="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MKBUF__V15*/ meltfptr[14]; - /*_.MELT_DEBUG_FUN__V146*/ - meltfptr[107] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V146*/ meltfptr[107] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V145*/ - meltfptr[99] = /*_.MELT_DEBUG_FUN__V146*/ meltfptr[107];; + /*_._IF___V145*/ meltfptr[99] = /*_.MELT_DEBUG_FUN__V146*/ meltfptr[107];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5675:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L40*/ - meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L40*/ meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V146*/ - meltfptr[107] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V146*/ meltfptr[107] = 0 ; } ; } @@ -7945,8 +7295,7 @@ e /* ! "; { MELT_LOCATION("warmelt-outobj.melt:5675:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -7955,11 +7304,9 @@ e /* ! "; /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L39*/ - meltfnum[30] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L39*/ meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V145*/ - meltfptr[99] = 0 ; + /*clear*/ /*_._IF___V145*/ meltfptr[99] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7982,25 +7329,22 @@ e /* ! "; { MELT_LOCATION("warmelt-outobj.melt:5677:/ locexp"); - /*output_sbuf_no_overwrite_strval*/ - melt_output_strbuf_to_file_no_overwrite((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), - melt_string_str((melt_ptr_t) /*_.MELTDESCPATH__V138*/ meltfptr[93])) ; + /*output_sbuf_no_overwrite_strval*/ melt_output_strbuf_to_file_no_overwrite((melt_ptr_t)(/*_.DEBUF__V13*/ meltfptr[11]), + melt_string_str((melt_ptr_t) /*_.MELTDESCPATH__V138*/ meltfptr[93])) ; } ; { MELT_LOCATION("warmelt-outobj.melt:5678:/ locexp"); - /*output_sbuf_no_overwrite_strval*/ - melt_output_strbuf_to_file_no_overwrite((melt_ptr_t)(/*_.TIBUF__V14*/ meltfptr[4]), - melt_string_str((melt_ptr_t) /*_.MELTTIMEPATH__V139*/ meltfptr[94])) ; + /*output_sbuf_no_overwrite_strval*/ melt_output_strbuf_to_file_no_overwrite((melt_ptr_t)(/*_.TIBUF__V14*/ meltfptr[4]), + melt_string_str((melt_ptr_t) /*_.MELTTIMEPATH__V139*/ meltfptr[94])) ; } ; { MELT_LOCATION("warmelt-outobj.melt:5679:/ locexp"); - /*output_sbuf_no_overwrite_strval*/ - melt_output_strbuf_to_file_no_overwrite((melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), - melt_string_str((melt_ptr_t) /*_.MELTMAKEPATH__V140*/ meltfptr[95])) ; + /*output_sbuf_no_overwrite_strval*/ melt_output_strbuf_to_file_no_overwrite((melt_ptr_t)(/*_.MKBUF__V15*/ meltfptr[14]), + melt_string_str((melt_ptr_t) /*_.MELTMAKEPATH__V140*/ meltfptr[95])) ; } ; @@ -8023,8 +7367,7 @@ e /* ! "; MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L41*/ - meltfnum[29] = + /*_#MELT_NEED_DBG__L41*/ meltfnum[29] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8033,8 +7376,7 @@ e /* ! "; #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5680:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L41*/ meltfnum[29]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L41*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8067,20 +7409,16 @@ e /* ! "; argtab[3].meltbp_cstring = "output_melt_descriptor final modctx="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V148*/ - meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V148*/ meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V147*/ - meltfptr[121] = /*_.MELT_DEBUG_FUN__V148*/ meltfptr[120];; + /*_._IF___V147*/ meltfptr[121] = /*_.MELT_DEBUG_FUN__V148*/ meltfptr[120];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5680:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L42*/ - meltfnum[30] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L42*/ meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V148*/ - meltfptr[120] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V148*/ meltfptr[120] = 0 ; } ; } @@ -8093,8 +7431,7 @@ e /* ! "; { MELT_LOCATION("warmelt-outobj.melt:5680:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -8103,11 +7440,9 @@ e /* ! "; /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L41*/ - meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L41*/ meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V147*/ - meltfptr[121] = 0 ; + /*clear*/ /*_._IF___V147*/ meltfptr[121] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8129,159 +7464,110 @@ e /* ! "; ; MELT_LOCATION("warmelt-outobj.melt:5666:/ clear"); - /*clear*/ /*_.MELTDESCPATH__V138*/ - meltfptr[93] = 0 ; + /*clear*/ /*_.MELTDESCPATH__V138*/ meltfptr[93] = 0 ; /*^clear*/ - /*clear*/ /*_.MELTTIMEPATH__V139*/ - meltfptr[94] = 0 ; + /*clear*/ /*_.MELTTIMEPATH__V139*/ meltfptr[94] = 0 ; /*^clear*/ - /*clear*/ /*_.MELTMAKEPATH__V140*/ - meltfptr[95] = 0 ; + /*clear*/ /*_.MELTMAKEPATH__V140*/ meltfptr[95] = 0 ; MELT_LOCATION("warmelt-outobj.melt:5416:/ clear"); - /*clear*/ /*_.PRIMPATH__V44*/ - meltfptr[43] = 0 ; + /*clear*/ /*_.PRIMPATH__V44*/ meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.PRIMMD5S__V45*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.PRIMMD5S__V45*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.MKRULEBUF__V46*/ - meltfptr[45] = 0 ; + /*clear*/ /*_.MKRULEBUF__V46*/ meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.SECMD5BUF__V47*/ - meltfptr[46] = 0 ; + /*clear*/ /*_.SECMD5BUF__V47*/ meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.SECPATHBUF__V48*/ - meltfptr[47] = 0 ; + /*clear*/ /*_.SECPATHBUF__V48*/ meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V51*/ - meltfptr[49] = 0 ; + /*clear*/ /*_.ADD2OUT__V51*/ meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V52*/ - meltfptr[48] = 0 ; + /*clear*/ /*_.ADD2OUT__V52*/ meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V53*/ - meltfptr[52] = 0 ; + /*clear*/ /*_.ADD2OUT__V53*/ meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V54*/ - meltfptr[53] = 0 ; + /*clear*/ /*_.LET___V54*/ meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V69*/ - meltfptr[63] = 0 ; + /*clear*/ /*_.ADD2OUT__V69*/ meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V70*/ - meltfptr[64] = 0 ; + /*clear*/ /*_.ADD2OUT__V70*/ meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V88*/ - meltfptr[79] = 0 ; + /*clear*/ /*_.ADD2OUT__V88*/ meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V89*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.STRBUF2STRING__V89*/ meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V90*/ - meltfptr[82] = 0 ; + /*clear*/ /*_.ADD2OUT__V90*/ meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V91*/ - meltfptr[83] = 0 ; + /*clear*/ /*_.STRBUF2STRING__V91*/ meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V92*/ - meltfptr[84] = 0 ; + /*clear*/ /*_.ADD2OUT__V92*/ meltfptr[84] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V93*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.LET___V93*/ meltfptr[54] = 0 ; MELT_LOCATION("warmelt-outobj.melt:5275:/ clear"); - /*clear*/ /*_#NBSECFILES__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NBSECFILES__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#LASTSECFILEIX__L6*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#LASTSECFILEIX__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUF__V13*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.DEBUF__V13*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.TIBUF__V14*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.TIBUF__V14*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MKBUF__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.MKBUF__V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.PATHLIST__V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.PATHLIST__V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.MD5LIST__V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.MD5LIST__V17*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MOCX_VARLIST__V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.MOCX_VARLIST__V18*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPSTATVAR__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.TUPSTATVAR__V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_#NBSTATVAR__L7*/ - meltfnum[6] = 0 ; + /*clear*/ /*_#NBSTATVAR__L7*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.MODBUILDSTR__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.MODBUILDSTR__V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.LET___V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MODCIDENT__V24*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MODCIDENT__V24*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V25*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.LET___V25*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.MODBUILDCIDENT__V28*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.MODBUILDCIDENT__V28*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.MODPREFSTR__V29*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.MODPREFSTR__V29*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.PACKAGEPCLIST__V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.PACKAGEPCLIST__V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.FLAVORTUPLE__V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.FLAVORTUPLE__V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V36*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.ADD2OUT__V36*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V37*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.ADD2OUT__V37*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.ADD2OUT__V38*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V39*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.ADD2OUT__V39*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.ADD2OUT__V40*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V41*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.ADD2OUT__V41*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V42*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.ADD2OUT__V42*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V43*/ - meltfptr[42] = 0 ; + /*clear*/ /*_.ADD2OUT__V43*/ meltfptr[42] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5271:/ 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 ; } ; @@ -8362,8 +7648,7 @@ meltrout_119_WARMELTmiOUTOBJ_SYNTESTGEN_ANY(meltclosure_ptr_t meltclosp_, melt_p /* end of frame for routine meltrout_119_WARMELTmiOUTOBJ_SYNTESTGEN_ANY fromline 1719 */ - /* classy proc frame meltrout_119_WARMELTmiOUTOBJ_SYNTESTGEN_ANY */ - MeltFrame_meltrout_119_WARMELTmiOUTOBJ_SYNTESTGEN_ANY + /* classy proc frame meltrout_119_WARMELTmiOUTOBJ_SYNTESTGEN_ANY */ MeltFrame_meltrout_119_WARMELTmiOUTOBJ_SYNTESTGEN_ANY meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_119_WARMELTmiOUTOBJ_SYNTESTGEN_ANY fromline 1748*/ #if ENABLE_CHECKING @@ -8376,8 +7661,7 @@ meltrout_119_WARMELTmiOUTOBJ_SYNTESTGEN_ANY(meltclosure_ptr_t meltclosp_, melt_p #define meltframe meltfram__ melt_trace_start("SYNTESTGEN_ANY", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -8387,38 +7671,33 @@ meltrout_119_WARMELTmiOUTOBJ_SYNTESTGEN_ANY(meltclosure_ptr_t meltclosp_, melt_p /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:5697:/ getarg"); - /*_.RECV__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GENDEV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GENDEV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.SBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.SBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#IX__L1*/ - meltfnum[0] = meltxargtab_[3].meltbp_long; + /*_#IX__L1*/ meltfnum[0] = meltxargtab_[3].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -8431,12 +7710,10 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:5698:/ quasiblock"); - /*_.DIS__V7*/ - meltfptr[6] = + /*_.DIS__V7*/ meltfptr[6] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-outobj.melt:5699:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V7*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[0]))) ) /*then*/ @@ -8447,8 +7724,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V7*/ meltfptr[6]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.DISNAME__V8*/ - meltfptr[7] = slot; + /*_.DISNAME__V8*/ meltfptr[7] = slot; }; ; } @@ -8459,8 +7735,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5700:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[1]))) ) /*then*/ @@ -8471,8 +7746,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.DLOC__V9*/ - meltfptr[8] = slot; + /*_.DLOC__V9*/ meltfptr[8] = slot; }; ; } @@ -8502,8 +7776,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)) @@ -8512,8 +7785,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5702:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8566,20 +7838,16 @@ meltlab_endgetargs: argtab[13].meltbp_cstring = "\n* ix="; /*^apply.arg*/ argtab[14].meltbp_long = /*_#IX__L1*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V11*/ - meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V10*/ - meltfptr[9] = /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10];; + /*_._IF___V10*/ meltfptr[9] = /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5702:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = 0 ; } ; } @@ -8592,8 +7860,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5702:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -8602,11 +7869,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_._IF___V10*/ meltfptr[9] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8642,12 +7907,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[2] = + /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_GENERATOR_DEVICE*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-outobj.melt:5708:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[9] = (/*nil*/NULL);; @@ -8676,31 +7939,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5708; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GENDEV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V14*/ - meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V13*/ - meltfptr[9] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; + /*_._IFELSE___V13*/ meltfptr[9] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5708:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = 0 ; } ; } ; - /*_.IFCPP___V12*/ - meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[9];; + /*_.IFCPP___V12*/ meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5708:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V13*/ - meltfptr[9] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ meltfptr[9] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8718,12 +7975,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L5*/ - meltfnum[1] = + /*_#IS_STRBUF__L5*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-outobj.melt:5709:/ cond"); - /*cond*/ - if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[9] = (/*nil*/NULL);; @@ -8752,31 +8007,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5709; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V17*/ - meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V16*/ - meltfptr[9] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; + /*_._IFELSE___V16*/ meltfptr[9] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5709:/ 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[9];; + /*_.IFCPP___V15*/ meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5709:/ clear"); - /*clear*/ /*_#IS_STRBUF__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRBUF__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ - meltfptr[9] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ meltfptr[9] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8794,12 +8043,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ - meltfnum[2] = + /*_#IS_A__L6*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-outobj.melt:5710:/ cond"); - /*cond*/ - if (/*_#IS_A__L6*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[9] = (/*nil*/NULL);; @@ -8828,31 +8075,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5710; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V20*/ - meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V19*/ - meltfptr[9] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; + /*_._IFELSE___V19*/ meltfptr[9] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5710:/ 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[9];; + /*_.IFCPP___V18*/ meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5710:/ clear"); - /*clear*/ /*_#IS_A__L6*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L6*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V19*/ - meltfptr[9] = 0 ; + /*clear*/ /*_._IFELSE___V19*/ meltfptr[9] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8871,8 +8112,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ - if ((/*nil*/NULL)) /*then*/ + /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V22*/ meltfptr[9] = (/*nil*/NULL);; @@ -8901,28 +8141,23 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5711; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V23*/ - meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V22*/ - meltfptr[9] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; + /*_._IFELSE___V22*/ meltfptr[9] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5711:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = 0 ; } ; } ; - /*_.IFCPP___V21*/ - meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[9];; + /*_.IFCPP___V21*/ meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5711:/ clear"); - /*clear*/ /*_._IFELSE___V22*/ - meltfptr[9] = 0 ; + /*clear*/ /*_._IFELSE___V22*/ meltfptr[9] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8931,35 +8166,26 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V6*/ - meltfptr[5] = /*_.IFCPP___V21*/ meltfptr[19];; + /*_.LET___V6*/ meltfptr[5] = /*_.IFCPP___V21*/ meltfptr[19];; MELT_LOCATION("warmelt-outobj.melt:5698:/ clear"); - /*clear*/ /*_.DIS__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.DIS__V7*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.DISNAME__V8*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.DISNAME__V8*/ meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.DLOC__V9*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.DLOC__V9*/ meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V12*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V18*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.IFCPP___V18*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V21*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.IFCPP___V21*/ meltfptr[19] = 0 ; MELT_LOCATION("warmelt-outobj.melt:5697:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V6*/ meltfptr[5];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[5];; { MELT_LOCATION("warmelt-outobj.melt:5697:/ locexp"); @@ -8974,13 +8200,11 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.LET___V6*/ meltfptr[5] = 0 ; } ; @@ -9062,8 +8286,7 @@ meltrout_120_WARMELTmiOUTOBJ_SUBSTITUTE_FORMALS_FOR_SYNTEST(meltclosure_ptr_t me /* end of frame for routine meltrout_120_WARMELTmiOUTOBJ_SUBSTITUTE_FORMALS_FOR_SYNTEST fromline 1719 */ - /* classy proc frame meltrout_120_WARMELTmiOUTOBJ_SUBSTITUTE_FORMALS_FOR_SYNTEST */ - MeltFrame_meltrout_120_WARMELTmiOUTOBJ_SUBSTITUTE_FORMALS_FOR_SYNTEST + /* classy proc frame meltrout_120_WARMELTmiOUTOBJ_SUBSTITUTE_FORMALS_FOR_SYNTEST */ MeltFrame_meltrout_120_WARMELTmiOUTOBJ_SUBSTITUTE_FORMALS_FOR_SYNTEST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_120_WARMELTmiOUTOBJ_SUBSTITUTE_FORMALS_FOR_SYNTEST fromline 1748*/ #if ENABLE_CHECKING @@ -9076,8 +8299,7 @@ meltrout_120_WARMELTmiOUTOBJ_SUBSTITUTE_FORMALS_FOR_SYNTEST(meltclosure_ptr_t me #define meltframe meltfram__ melt_trace_start("SUBSTITUTE_FORMALS_FOR_SYNTEST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -9087,30 +8309,26 @@ meltrout_120_WARMELTmiOUTOBJ_SUBSTITUTE_FORMALS_FOR_SYNTEST(meltclosure_ptr_t me /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:5717:/ getarg"); - /*_.SBUF__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.SBUF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.REPLMAP__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.REPLMAP__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.REPLMAP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.FORMALS__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.FORMALS__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.FORMALS__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_CSTRING) goto meltlab_endgetargs; - /*_?*/ - meltfram__.loc_CSTRING__o0 = meltxargtab_[2].meltbp_cstring; + /*_?*/ meltfram__.loc_CSTRING__o0 = meltxargtab_[2].meltbp_cstring; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -9140,8 +8358,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)) @@ -9150,8 +8367,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5718:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9196,20 +8412,16 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n prefix="; /*^apply.arg*/ argtab[10].meltbp_cstring = /*_?*/ meltfram__.loc_CSTRING__o0; - /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), 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:5718:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } @@ -9222,8 +8434,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5718:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -9232,11 +8443,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9266,12 +8475,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L3*/ - meltfnum[1] = + /*_#IS_STRBUF__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-outobj.melt:5719:/ cond"); - /*cond*/ - if (/*_#IS_STRBUF__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_STRBUF__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -9300,31 +8507,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5719; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ - meltfptr[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:5719:/ 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:5719:/ clear"); - /*clear*/ /*_#IS_STRBUF__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRBUF__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9342,12 +8543,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MAPOBJECT__L4*/ - meltfnum[0] = + /*_#IS_MAPOBJECT__L4*/ meltfnum[0] = /*is_mapobject:*/(melt_magic_discr((melt_ptr_t)(/*_.REPLMAP__V3*/ meltfptr[2])) == MELTOBMAG_MAPOBJECTS);; MELT_LOCATION("warmelt-outobj.melt:5720:/ cond"); - /*cond*/ - if (/*_#IS_MAPOBJECT__L4*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_MAPOBJECT__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[4] = (/*nil*/NULL);; @@ -9376,31 +8575,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5720; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.REPLMAP__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V12*/ - meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V11*/ - meltfptr[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:5720:/ 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:5720:/ clear"); - /*clear*/ /*_#IS_MAPOBJECT__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MAPOBJECT__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V11*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V11*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9418,12 +8611,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE_OR_NULL__L5*/ - meltfnum[1] = + /*_#IS_MULTIPLE_OR_NULL__L5*/ meltfnum[1] = ((/*_.FORMALS__V4*/ meltfptr[3]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.FORMALS__V4*/ meltfptr[3])) == MELTOBMAG_MULTIPLE));; MELT_LOCATION("warmelt-outobj.melt:5721:/ cond"); - /*cond*/ - if (/*_#IS_MULTIPLE_OR_NULL__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V14*/ meltfptr[4] = (/*nil*/NULL);; @@ -9452,31 +8643,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5721; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FORMALS__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V15*/ - meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V14*/ - meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; + /*_._IFELSE___V14*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5721:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = 0 ; } ; } ; - /*_.IFCPP___V13*/ - meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[4];; + /*_.IFCPP___V13*/ meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5721:/ clear"); - /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V14*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V14*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9516,8 +8701,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9526,8 +8710,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5725:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9564,20 +8747,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#IX__L6*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V18*/ - meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V17*/ - meltfptr[4] = /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17];; + /*_._IF___V17*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5725:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 0 ; } ; } @@ -9590,8 +8769,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5725:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -9600,11 +8778,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V17*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V17*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9634,12 +8810,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ - meltfnum[7] = + /*_#IS_A__L9*/ meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.CURFORMAL__V16*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-outobj.melt:5726:/ cond"); - /*cond*/ - if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V20*/ meltfptr[4] = (/*nil*/NULL);; @@ -9668,31 +8842,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5726; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURFORMAL__V16*/ meltfptr[14]; - /*_.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[4] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];; + /*_._IFELSE___V20*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5726:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20] = 0 ; } ; } ; - /*_.IFCPP___V19*/ - meltfptr[17] = /*_._IFELSE___V20*/ meltfptr[4];; + /*_.IFCPP___V19*/ meltfptr[17] = /*_._IFELSE___V20*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5726:/ clear"); - /*clear*/ /*_#IS_A__L9*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L9*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V20*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V20*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9704,8 +8872,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFORMAL__V16*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[3]))) ) /*then*/ @@ -9716,8 +8883,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFORMAL__V16*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.FSYMB__V22*/ - meltfptr[20] = slot; + /*_.FSYMB__V22*/ meltfptr[20] = slot; }; ; } @@ -9728,8 +8894,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5728:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFORMAL__V16*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[2]))) ) /*then*/ @@ -9740,8 +8905,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFORMAL__V16*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FTYPE__V23*/ - meltfptr[4] = slot; + /*_.FTYPE__V23*/ meltfptr[4] = slot; }; ; } @@ -9754,8 +8918,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:5729:/ quasiblock"); - /*_.NAMBUF__V25*/ - meltfptr[24] = + /*_.NAMBUF__V25*/ meltfptr[24] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[4])), (const char*)0);; MELT_CHECK_SIGNAL(); @@ -9771,13 +8934,11 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#IX__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "_"; - /*_.ADD2OUT__V26*/ - meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.NAMBUF__V25*/ meltfptr[24]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.NAMBUF__V25*/ meltfptr[24]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:5732:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FSYMB__V22*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ @@ -9788,8 +8949,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FSYMB__V22*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V27*/ - meltfptr[26] = slot; + /*_.NAMED_NAME__V27*/ meltfptr[26] = slot; }; ; } @@ -9806,27 +8966,20 @@ meltlab_endgetargs: melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V27*/ meltfptr[26]))); } ; - /*_.STRBUF2STRING__V28*/ - meltfptr[27] = + /*_.STRBUF2STRING__V28*/ meltfptr[27] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[7])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V25*/ meltfptr[24]))));; /*^compute*/ - /*_.LET___V24*/ - meltfptr[23] = /*_.STRBUF2STRING__V28*/ meltfptr[27];; + /*_.LET___V24*/ meltfptr[23] = /*_.STRBUF2STRING__V28*/ meltfptr[27];; MELT_LOCATION("warmelt-outobj.melt:5729:/ clear"); - /*clear*/ /*_.NAMBUF__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.NAMBUF__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.ADD2OUT__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.NAMED_NAME__V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V28*/ - meltfptr[27] = 0 ; - /*_.GENSY__V29*/ - meltfptr[24] = /*_.LET___V24*/ meltfptr[23];; + /*clear*/ /*_.STRBUF2STRING__V28*/ meltfptr[27] = 0 ; + /*_.GENSY__V29*/ meltfptr[24] = /*_.LET___V24*/ meltfptr[23];; { MELT_LOCATION("warmelt-outobj.melt:5735:/ locexp"); @@ -9855,8 +9008,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9865,8 +9017,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5736:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9907,20 +9058,16 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n with gensy="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.GENSY__V29*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V31*/ - meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V31*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V30*/ - meltfptr[25] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[26];; + /*_._IF___V30*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5736:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[26] = 0 ; } ; } @@ -9933,8 +9080,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5736:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -9943,11 +9089,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ - meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V30*/ meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9968,8 +9112,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-outobj.melt:5737:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FTYPE__V23*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8]))) ) /*then*/ @@ -9980,8 +9123,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FTYPE__V23*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V32*/ - meltfptr[27] = slot; + /*_.CTYPE_CNAME__V32*/ meltfptr[27] = slot; }; ; } @@ -10007,8 +9149,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.GENSY__V29*/ meltfptr[24]; /*^apply.arg*/ argtab[3].meltbp_cstring = " =0;"; - /*_.ADD2OUT__V33*/ - meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V33*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -10019,37 +9160,28 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:5727:/ clear"); - /*clear*/ /*_.FSYMB__V22*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.FSYMB__V22*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.FTYPE__V23*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.FTYPE__V23*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.LET___V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.GENSY__V29*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.GENSY__V29*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V32*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V32*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V33*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.ADD2OUT__V33*/ meltfptr[26] = 0 ; if (/*_#IX__L6*/ meltfnum[0]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:5722:/ clear"); - /*clear*/ /*_.CURFORMAL__V16*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.CURFORMAL__V16*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L6*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IX__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V19*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.IFCPP___V19*/ meltfptr[17] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -10058,14 +9190,11 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5717:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V10*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; } ; @@ -10146,8 +9275,7 @@ meltrout_121_WARMELTmiOUTOBJ_EXPAND_TUPLE_FOR_SYNTEST(meltclosure_ptr_t meltclos /* end of frame for routine meltrout_121_WARMELTmiOUTOBJ_EXPAND_TUPLE_FOR_SYNTEST fromline 1719 */ - /* classy proc frame meltrout_121_WARMELTmiOUTOBJ_EXPAND_TUPLE_FOR_SYNTEST */ - MeltFrame_meltrout_121_WARMELTmiOUTOBJ_EXPAND_TUPLE_FOR_SYNTEST + /* classy proc frame meltrout_121_WARMELTmiOUTOBJ_EXPAND_TUPLE_FOR_SYNTEST */ MeltFrame_meltrout_121_WARMELTmiOUTOBJ_EXPAND_TUPLE_FOR_SYNTEST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_121_WARMELTmiOUTOBJ_EXPAND_TUPLE_FOR_SYNTEST fromline 1748*/ #if ENABLE_CHECKING @@ -10160,8 +9288,7 @@ meltrout_121_WARMELTmiOUTOBJ_EXPAND_TUPLE_FOR_SYNTEST(meltclosure_ptr_t meltclos #define meltframe meltfram__ melt_trace_start("EXPAND_TUPLE_FOR_SYNTEST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -10171,30 +9298,26 @@ meltrout_121_WARMELTmiOUTOBJ_EXPAND_TUPLE_FOR_SYNTEST(meltclosure_ptr_t meltclos /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:5743:/ getarg"); - /*_.SBUF__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.SBUF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.REPLMAP__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.REPLMAP__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.REPLMAP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.TUP__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.TUP__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.TUP__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.LOC__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.LOC__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.LOC__V5*/ meltfptr[4])) != NULL); ; @@ -10226,8 +9349,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)) @@ -10236,8 +9358,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5744:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10278,20 +9399,16 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n tup="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.TUP__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5744:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -10304,8 +9421,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5744:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -10314,11 +9430,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10370,8 +9484,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L4*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10380,8 +9493,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5748:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10414,20 +9526,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "expand_tuple_for_syntest curexpan="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXPAN__V8*/ meltfptr[6]; - /*_.MELT_DEBUG_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V9*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; + /*_._IF___V9*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5748:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L5*/ - meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0 ; } ; } @@ -10440,8 +9548,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5748:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -10450,11 +9557,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10477,12 +9582,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L6*/ - meltfnum[4] = + /*_#IS_OBJECT__L6*/ meltfnum[4] = (melt_magic_discr((melt_ptr_t)(/*_.CUREXPAN__V8*/ meltfptr[6])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-outobj.melt:5749:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L6*/ meltfnum[4]) /*then*/ + /*cond*/ if (/*_#IS_OBJECT__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10492,8 +9595,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:5750:/ quasiblock"); - /*_.CUREPL__V13*/ - meltfptr[12] = + /*_.CUREPL__V13*/ meltfptr[12] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.REPLMAP__V3*/ meltfptr[2]), (meltobject_ptr_t)(/*_.CUREXPAN__V8*/ meltfptr[6]));; @@ -10516,8 +9618,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10526,8 +9627,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5752:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10560,20 +9660,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "expand_tuple_for_syntest curepl="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUREPL__V13*/ meltfptr[12]; - /*_.MELT_DEBUG_FUN__V15*/ - meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V14*/ - meltfptr[13] = /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];; + /*_._IF___V14*/ meltfptr[13] = /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5752:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 0 ; } ; } @@ -10586,8 +9682,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5752:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -10596,11 +9691,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_._IF___V14*/ meltfptr[13] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10624,8 +9717,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:5753:/ cond"); - /*cond*/ - if (/*_.CUREPL__V13*/ meltfptr[12]) /*then*/ + /*cond*/ if (/*_.CUREPL__V13*/ meltfptr[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10642,17 +9734,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREPL__V13*/ meltfptr[12]; - /*_.ADD2OUT__V17*/ - meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V17*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V16*/ - meltfptr[14] = /*_.ADD2OUT__V17*/ meltfptr[13];; + /*_._IFELSE___V16*/ meltfptr[14] = /*_.ADD2OUT__V17*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5753:/ clear"); - /*clear*/ /*_.ADD2OUT__V17*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.ADD2OUT__V17*/ meltfptr[13] = 0 ; } ; } @@ -10667,8 +9756,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUREXPAN__V8*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2]))) ) /*then*/ @@ -10679,8 +9767,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXPAN__V8*/ meltfptr[6]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.CUREXPNAM__V18*/ - meltfptr[13] = slot; + /*_.CUREXPNAM__V18*/ meltfptr[13] = slot; }; ; } @@ -10710,8 +9797,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ - meltfnum[7] = + /*_#MELT_NEED_DBG__L9*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10720,8 +9806,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5757:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10758,20 +9843,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " replmap="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.REPLMAP__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V20*/ - meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V19*/ - meltfptr[18] = /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; + /*_._IF___V19*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5757:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = 0 ; } ; } @@ -10784,8 +9865,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5757:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -10794,11 +9874,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_._IF___V19*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10826,33 +9904,26 @@ meltlab_endgetargs: melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V5*/ meltfptr[4]), ( "unexpected symbol in expansion [syntax check]"), (melt_ptr_t)(/*_.CUREXPNAM__V18*/ meltfptr[13])); } ; - /*clear*/ /*_._IFELSE___V16*/ - meltfptr[14] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ meltfptr[14] = 0 ; MELT_LOCATION("warmelt-outobj.melt:5755:/ clear"); - /*clear*/ /*_.CUREXPNAM__V18*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.CUREXPNAM__V18*/ meltfptr[13] = 0 ; /*epilog*/ } ; } ; - /*_.LET___V12*/ - meltfptr[5] = /*_._IFELSE___V16*/ meltfptr[14];; + /*_.LET___V12*/ meltfptr[5] = /*_._IFELSE___V16*/ meltfptr[14];; MELT_LOCATION("warmelt-outobj.melt:5750:/ clear"); - /*clear*/ /*_.CUREPL__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.CUREPL__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ - meltfptr[14] = 0 ; - /*_._IFELSE___V11*/ - meltfptr[9] = /*_.LET___V12*/ meltfptr[5];; + /*clear*/ /*_._IFELSE___V16*/ meltfptr[14] = 0 ; + /*_._IFELSE___V11*/ meltfptr[9] = /*_.LET___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5749:/ clear"); - /*clear*/ /*_.LET___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.LET___V12*/ meltfptr[5] = 0 ; } ; } @@ -10873,17 +9944,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXPAN__V8*/ meltfptr[6]; - /*_.ADD2OUT__V21*/ - meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V21*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V11*/ - meltfptr[9] = /*_.ADD2OUT__V21*/ meltfptr[19];; + /*_._IFELSE___V11*/ meltfptr[9] = /*_.ADD2OUT__V21*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5749:/ clear"); - /*clear*/ /*_.ADD2OUT__V21*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.ADD2OUT__V21*/ meltfptr[19] = 0 ; } ; } @@ -10894,17 +9962,13 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:5745:/ clear"); - /*clear*/ /*_.CUREXPAN__V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.CUREXPAN__V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_#PIX__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#PIX__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_OBJECT__L6*/ - meltfnum[4] = 0 ; + /*clear*/ /*_#IS_OBJECT__L6*/ meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_._IFELSE___V11*/ meltfptr[9] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -10927,8 +9991,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L11*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10937,8 +10000,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5763:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L11*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10971,20 +10033,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "expand_tuple_for_syntest done sbuf="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V23*/ - 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__V23*/ 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___V22*/ - meltfptr[18] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[13];; + /*_._IF___V22*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5763:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ meltfptr[13] = 0 ; } ; } @@ -10997,8 +10055,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5763:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -11007,11 +10064,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V22*/ - meltfptr[18] = 0 ; + /*clear*/ /*_._IF___V22*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11115,8 +10170,7 @@ meltrout_122_WARMELTmiOUTOBJ_SYNTESTGEN_PRIMITIVE(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_122_WARMELTmiOUTOBJ_SYNTESTGEN_PRIMITIVE fromline 1719 */ - /* classy proc frame meltrout_122_WARMELTmiOUTOBJ_SYNTESTGEN_PRIMITIVE */ - MeltFrame_meltrout_122_WARMELTmiOUTOBJ_SYNTESTGEN_PRIMITIVE + /* classy proc frame meltrout_122_WARMELTmiOUTOBJ_SYNTESTGEN_PRIMITIVE */ MeltFrame_meltrout_122_WARMELTmiOUTOBJ_SYNTESTGEN_PRIMITIVE meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_122_WARMELTmiOUTOBJ_SYNTESTGEN_PRIMITIVE fromline 1748*/ #if ENABLE_CHECKING @@ -11129,8 +10183,7 @@ meltrout_122_WARMELTmiOUTOBJ_SYNTESTGEN_PRIMITIVE(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("SYNTESTGEN_PRIMITIVE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -11140,38 +10193,33 @@ meltrout_122_WARMELTmiOUTOBJ_SYNTESTGEN_PRIMITIVE(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:5767:/ getarg"); - /*_.RECV__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GENDEV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GENDEV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.SBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.SBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#IX__L1*/ - meltfnum[0] = meltxargtab_[3].meltbp_long; + /*_#IX__L1*/ meltfnum[0] = meltxargtab_[3].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -11201,8 +10249,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)) @@ -11211,8 +10258,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5768:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11249,20 +10295,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " gendev="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.GENDEV__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5768:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -11275,8 +10317,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5768:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -11285,11 +10326,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11319,12 +10358,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[2] = + /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:5769:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -11353,31 +10390,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5769; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5769:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5769:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11395,12 +10426,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ - meltfnum[1] = + /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_GENERATOR_DEVICE*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-outobj.melt:5770:/ cond"); - /*cond*/ - if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -11429,31 +10458,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5770; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GENDEV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5770:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5770:/ clear"); - /*clear*/ /*_#IS_A__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11471,12 +10494,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L6*/ - meltfnum[2] = + /*_#IS_STRBUF__L6*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-outobj.melt:5771:/ cond"); - /*cond*/ - if (/*_#IS_STRBUF__L6*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_STRBUF__L6*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -11505,31 +10526,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5771; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5771:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ - meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5771:/ clear"); - /*clear*/ /*_#IS_STRBUF__L6*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_STRBUF__L6*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11547,12 +10562,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ - meltfnum[1] = + /*_#IS_A__L7*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-outobj.melt:5772:/ cond"); - /*cond*/ - if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[5] = (/*nil*/NULL);; @@ -11581,31 +10594,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5772; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ 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[5] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; + /*_._IFELSE___V18*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5772:/ 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[5];; + /*_.IFCPP___V17*/ meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5772:/ clear"); - /*clear*/ /*_#IS_A__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V18*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V18*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11617,8 +10624,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -11629,8 +10635,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.DLOC__V20*/ - meltfptr[18] = slot; + /*_.DLOC__V20*/ meltfptr[18] = slot; }; ; } @@ -11641,8 +10646,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5774:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_GENERATOR_DEVICE*/ meltfrout->tabval[3]))) ) /*then*/ @@ -11653,8 +10657,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SRCGEN_DEFIN"); - /*_.PRIDEF__V21*/ - meltfptr[5] = slot; + /*_.PRIDEF__V21*/ meltfptr[5] = slot; }; ; } @@ -11665,8 +10668,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5775:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_GENERATOR_DEVICE*/ meltfrout->tabval[3]))) ) /*then*/ @@ -11677,8 +10679,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SRCGEN_REPR"); - /*_.PRIREP__V22*/ - meltfptr[21] = slot; + /*_.PRIREP__V22*/ meltfptr[21] = slot; }; ; } @@ -11689,8 +10690,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5776:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ @@ -11701,8 +10701,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.PRINAM__V23*/ - meltfptr[22] = slot; + /*_.PRINAM__V23*/ meltfptr[22] = slot; }; ; } @@ -11713,8 +10712,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5777:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -11725,8 +10723,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "PRIM_FORMALS"); - /*_.PRIFORMALS__V24*/ - meltfptr[23] = slot; + /*_.PRIFORMALS__V24*/ meltfptr[23] = slot; }; ; } @@ -11737,8 +10734,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5778:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRIDEF__V21*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ meltfrout->tabval[7]))) ) /*then*/ @@ -11749,8 +10745,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PRIDEF__V21*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 7, "SPRIM_EXPLOC"); - /*_.SPRIM_EXPLOC__V25*/ - meltfptr[24] = slot; + /*_.SPRIM_EXPLOC__V25*/ meltfptr[24] = slot; }; ; } @@ -11761,8 +10756,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5778:/ cond"); - /*cond*/ - if (/*_.SPRIM_EXPLOC__V25*/ meltfptr[24]) /*then*/ + /*cond*/ if (/*_.SPRIM_EXPLOC__V25*/ meltfptr[24]) /*then*/ { /*^cond.then*/ /*_.EXPLOC__V26*/ meltfptr[25] = /*_.SPRIM_EXPLOC__V25*/ meltfptr[24];; @@ -11771,13 +10765,11 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5778:/ cond.else"); - /*_.EXPLOC__V26*/ - meltfptr[25] = /*_.DLOC__V20*/ meltfptr[18];; + /*_.EXPLOC__V26*/ meltfptr[25] = /*_.DLOC__V20*/ meltfptr[18];; } ; MELT_LOCATION("warmelt-outobj.melt:5779:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -11788,8 +10780,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "PRIM_TYPE"); - /*_.PRITYPE__V27*/ - meltfptr[26] = slot; + /*_.PRITYPE__V27*/ meltfptr[26] = slot; }; ; } @@ -11800,8 +10791,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5780:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -11812,8 +10802,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "PRIM_EXPANSION"); - /*_.PRIMEXPAN__V28*/ - meltfptr[27] = slot; + /*_.PRIMEXPAN__V28*/ meltfptr[27] = slot; }; ; } @@ -11824,20 +10813,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#MULTIPLE_LENGTH__L8*/ - meltfnum[2] = + /*_#MULTIPLE_LENGTH__L8*/ meltfnum[2] = (melt_multiple_length((melt_ptr_t)(/*_.PRIFORMALS__V24*/ meltfptr[23])));; /*^compute*/ - /*_#stI__L9*/ - meltfnum[1] = + /*_#stI__L9*/ meltfnum[1] = ((2) * (/*_#MULTIPLE_LENGTH__L8*/ meltfnum[2]));; /*^compute*/ - /*_#plI__L10*/ - meltfnum[9] = + /*_#plI__L10*/ meltfnum[9] = ((5) + (/*_#stI__L9*/ meltfnum[1]));; /*^compute*/ - /*_.REPLMAP__V29*/ - meltfptr[28] = + /*_.REPLMAP__V29*/ meltfptr[28] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[8])), (/*_#plI__L10*/ meltfnum[9])));; #if MELT_HAVE_DEBUG @@ -11849,12 +10834,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L11*/ - meltfnum[10] = + /*_#IS_A__L11*/ meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.PRIDEF__V21*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-outobj.melt:5784:/ cond"); - /*cond*/ - if (/*_#IS_A__L11*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#IS_A__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V31*/ meltfptr[30] = (/*nil*/NULL);; @@ -11883,31 +10866,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5784; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PRIDEF__V21*/ meltfptr[5]; - /*_.MELT_ASSERT_FAILURE_FUN__V32*/ - meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V31*/ - meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; + /*_._IFELSE___V31*/ meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5784:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31] = 0 ; } ; } ; - /*_.IFCPP___V30*/ - meltfptr[29] = /*_._IFELSE___V31*/ meltfptr[30];; + /*_.IFCPP___V30*/ meltfptr[29] = /*_._IFELSE___V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5784:/ clear"); - /*clear*/ /*_#IS_A__L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#IS_A__L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V31*/ meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11925,12 +10902,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L12*/ - meltfnum[10] = + /*_#eqeq__L12*/ meltfnum[10] = ((/*_.PRIREP__V22*/ meltfptr[21]) == (/*_.RECV__V2*/ meltfptr[1]));; MELT_LOCATION("warmelt-outobj.melt:5785:/ cond"); - /*cond*/ - if (/*_#eqeq__L12*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#eqeq__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V34*/ meltfptr[30] = (/*nil*/NULL);; @@ -11961,31 +10936,25 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PRIREP__V22*/ meltfptr[21]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V35*/ - meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V34*/ - meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; + /*_._IFELSE___V34*/ meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5785:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = 0 ; } ; } ; - /*_.IFCPP___V33*/ - meltfptr[31] = /*_._IFELSE___V34*/ meltfptr[30];; + /*_.IFCPP___V33*/ meltfptr[31] = /*_._IFELSE___V34*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5785:/ clear"); - /*clear*/ /*_#eqeq__L12*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#eqeq__L12*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V34*/ - meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V34*/ meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12003,8 +10972,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "/*primitive-syntax "; - /*_.ADD2OUT__V36*/ - meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V36*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -12024,8 +10992,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "*/ {"; - /*_.ADD2OUT__V37*/ - meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V37*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -12048,19 +11015,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.PRIFORMALS__V24*/ meltfptr[23]; /*^apply.arg*/ argtab[2].meltbp_cstring = "meltprimf_"; - /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V38*/ - meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!SUBSTITUTE_FORMALS_FOR_SYNTEST*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!SUBSTITUTE_FORMALS_FOR_SYNTEST*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#exeq__L13*/ - meltfnum[10] = + /*_#exeq__L13*/ meltfnum[10] = ((/*_.PRITYPE__V27*/ meltfptr[26]) != ((/*!CTYPE_VOID*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-outobj.melt:5792:/ cond"); - /*cond*/ - if (/*_#exeq__L13*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#exeq__L13*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12071,8 +11035,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRITYPE__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[12]))) ) /*then*/ @@ -12083,8 +11046,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PRITYPE__V27*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.PRITYNAM__V41*/ - meltfptr[40] = slot; + /*_.PRITYNAM__V41*/ meltfptr[40] = slot; }; ; } @@ -12110,26 +11072,20 @@ meltlab_endgetargs: argtab[2].meltbp_long = /*_#IX__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[3].meltbp_cstring = " = "; - /*_.ADD2OUT__V42*/ - meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V40*/ - meltfptr[39] = /*_.ADD2OUT__V42*/ meltfptr[41];; + /*_.LET___V40*/ meltfptr[39] = /*_.ADD2OUT__V42*/ meltfptr[41];; MELT_LOCATION("warmelt-outobj.melt:5793:/ clear"); - /*clear*/ /*_.PRITYNAM__V41*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.PRITYNAM__V41*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V42*/ - meltfptr[41] = 0 ; - /*_._IF___V39*/ - meltfptr[38] = /*_.LET___V40*/ meltfptr[39];; + /*clear*/ /*_.ADD2OUT__V42*/ meltfptr[41] = 0 ; + /*_._IF___V39*/ meltfptr[38] = /*_.LET___V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5792:/ clear"); - /*clear*/ /*_.LET___V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.LET___V40*/ meltfptr[39] = 0 ; } ; } @@ -12143,8 +11099,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:5798:/ cond"); - /*cond*/ - if (/*_.EXPLOC__V26*/ meltfptr[25]) /*then*/ + /*cond*/ if (/*_.EXPLOC__V26*/ meltfptr[25]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12165,17 +11120,14 @@ meltlab_endgetargs: argtab[1].meltbp_long = 0; /*^apply.arg*/ argtab[2].meltbp_cstring = "primitive-syntax"; - /*_.OUTPUT_RAW_LOCATION__V44*/ - meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.EXPLOC__V26*/ meltfptr[25]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_RAW_LOCATION__V44*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.EXPLOC__V26*/ meltfptr[25]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V43*/ - meltfptr[40] = /*_.OUTPUT_RAW_LOCATION__V44*/ meltfptr[41];; + /*_._IF___V43*/ meltfptr[40] = /*_.OUTPUT_RAW_LOCATION__V44*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5798:/ clear"); - /*clear*/ /*_.OUTPUT_RAW_LOCATION__V44*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.OUTPUT_RAW_LOCATION__V44*/ meltfptr[41] = 0 ; } ; } @@ -12189,12 +11141,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#exeq__L14*/ - meltfnum[13] = + /*_#exeq__L14*/ meltfnum[13] = ((/*_.PRITYPE__V27*/ meltfptr[26]) != ((/*!CTYPE_VOID*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-outobj.melt:5799:/ cond"); - /*cond*/ - if (/*_#exeq__L14*/ meltfnum[13]) /*then*/ + /*cond*/ if (/*_#exeq__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12211,17 +11161,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " "; - /*_.ADD2OUT__V46*/ - meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V46*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V45*/ - meltfptr[39] = /*_.ADD2OUT__V46*/ meltfptr[41];; + /*_._IF___V45*/ meltfptr[39] = /*_.ADD2OUT__V46*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5799:/ clear"); - /*clear*/ /*_.ADD2OUT__V46*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.ADD2OUT__V46*/ meltfptr[41] = 0 ; } ; } @@ -12251,8 +11198,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L15*/ - meltfnum[14] = + /*_#MELT_NEED_DBG__L15*/ meltfnum[14] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12261,8 +11207,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5801:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L15*/ meltfnum[14]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12295,20 +11240,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "syntestgen_primitive primexpan="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PRIMEXPAN__V28*/ meltfptr[27]; - /*_.MELT_DEBUG_FUN__V48*/ - meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V47*/ - meltfptr[41] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47];; + /*_._IF___V47*/ meltfptr[41] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5801:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ - meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ - meltfptr[47] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = 0 ; } ; } @@ -12321,8 +11262,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5801:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -12331,11 +11271,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ - meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V47*/ - meltfptr[41] = 0 ; + /*clear*/ /*_._IF___V47*/ meltfptr[41] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12369,19 +11307,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.PRIMEXPAN__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.EXPLOC__V26*/ meltfptr[25]; - /*_.EXPAND_TUPLE_FOR_SYNTEST__V49*/ - meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_TUPLE_FOR_SYNTEST*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.EXPAND_TUPLE_FOR_SYNTEST__V49*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_TUPLE_FOR_SYNTEST*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#exeq__L17*/ - meltfnum[15] = + /*_#exeq__L17*/ meltfnum[15] = ((/*_.PRITYPE__V27*/ meltfptr[26]) != ((/*!CTYPE_VOID*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-outobj.melt:5804:/ cond"); - /*cond*/ - if (/*_#exeq__L17*/ meltfnum[15]) /*then*/ + /*cond*/ if (/*_#exeq__L17*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12392,8 +11327,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRITYPE__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[12]))) ) /*then*/ @@ -12404,8 +11338,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PRITYPE__V27*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.PRITYNAM__V52*/ - meltfptr[51] = slot; + /*_.PRITYNAM__V52*/ meltfptr[51] = slot; }; ; } @@ -12425,8 +11358,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ";"; - /*_.ADD2OUT__V53*/ - meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -12449,29 +11381,22 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#IX__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = ") return"; - /*_.ADD2OUT__V54*/ - meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V51*/ - meltfptr[50] = /*_.ADD2OUT__V54*/ meltfptr[53];; + /*_.LET___V51*/ meltfptr[50] = /*_.ADD2OUT__V54*/ meltfptr[53];; MELT_LOCATION("warmelt-outobj.melt:5805:/ clear"); - /*clear*/ /*_.PRITYNAM__V52*/ - meltfptr[51] = 0 ; + /*clear*/ /*_.PRITYNAM__V52*/ meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V53*/ - meltfptr[52] = 0 ; + /*clear*/ /*_.ADD2OUT__V53*/ meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V54*/ - meltfptr[53] = 0 ; - /*_._IF___V50*/ - meltfptr[41] = /*_.LET___V51*/ meltfptr[50];; + /*clear*/ /*_.ADD2OUT__V54*/ meltfptr[53] = 0 ; + /*_._IF___V50*/ meltfptr[41] = /*_.LET___V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5804:/ clear"); - /*clear*/ /*_.LET___V51*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.LET___V51*/ meltfptr[50] = 0 ; } ; } @@ -12491,8 +11416,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ";"; - /*_.ADD2OUT__V55*/ - meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V55*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -12511,8 +11435,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "} /*end primitive-syntax "; - /*_.ADD2OUT__V56*/ - meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V56*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -12532,8 +11455,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "*/"; - /*_.ADD2OUT__V57*/ - meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V57*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -12544,109 +11466,76 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:5773:/ clear"); - /*clear*/ /*_.DLOC__V20*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.DLOC__V20*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.PRIDEF__V21*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.PRIDEF__V21*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.PRIREP__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.PRIREP__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.PRINAM__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.PRINAM__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.PRIFORMALS__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.PRIFORMALS__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.SPRIM_EXPLOC__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.SPRIM_EXPLOC__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPLOC__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.EXPLOC__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.PRITYPE__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.PRITYPE__V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.PRIMEXPAN__V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.PRIMEXPAN__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_#stI__L9*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#stI__L9*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L10*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#plI__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.REPLMAP__V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.REPLMAP__V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.IFCPP___V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V33*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.IFCPP___V33*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V36*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.ADD2OUT__V36*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V37*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.ADD2OUT__V37*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V38*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L13*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#exeq__L13*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ - meltfptr[38] = 0 ; + /*clear*/ /*_._IF___V39*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V43*/ - meltfptr[40] = 0 ; + /*clear*/ /*_._IF___V43*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L14*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#exeq__L14*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V45*/ - meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V45*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPAND_TUPLE_FOR_SYNTEST__V49*/ - meltfptr[47] = 0 ; + /*clear*/ /*_.EXPAND_TUPLE_FOR_SYNTEST__V49*/ meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_#exeq__L17*/ - meltfnum[15] = 0 ; + /*clear*/ /*_#exeq__L17*/ meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V50*/ - meltfptr[41] = 0 ; + /*clear*/ /*_._IF___V50*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V55*/ - meltfptr[51] = 0 ; + /*clear*/ /*_.ADD2OUT__V55*/ meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V56*/ - meltfptr[52] = 0 ; + /*clear*/ /*_.ADD2OUT__V56*/ meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V57*/ - meltfptr[53] = 0 ; + /*clear*/ /*_.ADD2OUT__V57*/ meltfptr[53] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5767:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; } ; @@ -12727,8 +11616,7 @@ meltrout_123_WARMELTmiOUTOBJ_SYNTESTGEN_CITERATOR(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_123_WARMELTmiOUTOBJ_SYNTESTGEN_CITERATOR fromline 1719 */ - /* classy proc frame meltrout_123_WARMELTmiOUTOBJ_SYNTESTGEN_CITERATOR */ - MeltFrame_meltrout_123_WARMELTmiOUTOBJ_SYNTESTGEN_CITERATOR + /* classy proc frame meltrout_123_WARMELTmiOUTOBJ_SYNTESTGEN_CITERATOR */ MeltFrame_meltrout_123_WARMELTmiOUTOBJ_SYNTESTGEN_CITERATOR meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_123_WARMELTmiOUTOBJ_SYNTESTGEN_CITERATOR fromline 1748*/ #if ENABLE_CHECKING @@ -12741,8 +11629,7 @@ meltrout_123_WARMELTmiOUTOBJ_SYNTESTGEN_CITERATOR(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("SYNTESTGEN_CITERATOR", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -12752,38 +11639,33 @@ meltrout_123_WARMELTmiOUTOBJ_SYNTESTGEN_CITERATOR(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:5827:/ getarg"); - /*_.RECV__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GENDEV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GENDEV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.SBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.SBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#IX__L1*/ - meltfnum[0] = meltxargtab_[3].meltbp_long; + /*_#IX__L1*/ meltfnum[0] = meltxargtab_[3].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -12813,8 +11695,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)) @@ -12823,8 +11704,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5828:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12861,20 +11741,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " gendev="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.GENDEV__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5828:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -12887,8 +11763,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5828:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -12897,11 +11772,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12931,12 +11804,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[2] = + /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:5829:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -12965,31 +11836,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5829; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5829:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5829:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13007,12 +11872,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ - meltfnum[1] = + /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_GENERATOR_DEVICE*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-outobj.melt:5830:/ cond"); - /*cond*/ - if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -13041,31 +11904,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5830; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GENDEV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5830:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5830:/ clear"); - /*clear*/ /*_#IS_A__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13083,12 +11940,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L6*/ - meltfnum[2] = + /*_#IS_STRBUF__L6*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-outobj.melt:5831:/ cond"); - /*cond*/ - if (/*_#IS_STRBUF__L6*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_STRBUF__L6*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -13117,31 +11972,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5831; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5831:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ - meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5831:/ clear"); - /*clear*/ /*_#IS_STRBUF__L6*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_STRBUF__L6*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13159,12 +12008,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ - meltfnum[1] = + /*_#IS_A__L7*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-outobj.melt:5832:/ cond"); - /*cond*/ - if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[5] = (/*nil*/NULL);; @@ -13193,31 +12040,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5832; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ 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[5] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; + /*_._IFELSE___V18*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5832:/ 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[5];; + /*_.IFCPP___V17*/ meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5832:/ clear"); - /*clear*/ /*_#IS_A__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V18*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V18*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13229,8 +12070,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -13241,8 +12081,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.DLOC__V20*/ - meltfptr[18] = slot; + /*_.DLOC__V20*/ meltfptr[18] = slot; }; ; } @@ -13253,8 +12092,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5834:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_GENERATOR_DEVICE*/ meltfrout->tabval[3]))) ) /*then*/ @@ -13265,8 +12103,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SRCGEN_DEFIN"); - /*_.CITDEF__V21*/ - meltfptr[5] = slot; + /*_.CITDEF__V21*/ meltfptr[5] = slot; }; ; } @@ -13277,8 +12114,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5835:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_GENERATOR_DEVICE*/ meltfrout->tabval[3]))) ) /*then*/ @@ -13289,8 +12125,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SRCGEN_REPR"); - /*_.CITREP__V22*/ - meltfptr[21] = slot; + /*_.CITREP__V22*/ meltfptr[21] = slot; }; ; } @@ -13301,8 +12136,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5836:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ @@ -13313,8 +12147,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.CITNAM__V23*/ - meltfptr[22] = slot; + /*_.CITNAM__V23*/ meltfptr[22] = slot; }; ; } @@ -13325,8 +12158,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5837:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[1]))) ) /*then*/ @@ -13337,8 +12169,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "CITER_START_FORMALS"); - /*_.CITSTAFORMALS__V24*/ - meltfptr[23] = slot; + /*_.CITSTAFORMALS__V24*/ meltfptr[23] = slot; }; ; } @@ -13349,8 +12180,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5838:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[1]))) ) /*then*/ @@ -13361,8 +12191,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "CITER_STATE"); - /*_.CITSTATE__V25*/ - meltfptr[24] = slot; + /*_.CITSTATE__V25*/ meltfptr[24] = slot; }; ; } @@ -13373,8 +12202,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5839:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[1]))) ) /*then*/ @@ -13385,8 +12213,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CITER_BODY_FORMALS"); - /*_.CITBODFORMALS__V26*/ - meltfptr[25] = slot; + /*_.CITBODFORMALS__V26*/ meltfptr[25] = slot; }; ; } @@ -13397,8 +12224,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5840:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[1]))) ) /*then*/ @@ -13409,8 +12235,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CITER_EXPBEFORE"); - /*_.CITEXPBEFO__V27*/ - meltfptr[26] = slot; + /*_.CITEXPBEFO__V27*/ meltfptr[26] = slot; }; ; } @@ -13421,8 +12246,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5841:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[1]))) ) /*then*/ @@ -13433,8 +12257,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CITER_EXPAFTER"); - /*_.CITEXPAFTE__V28*/ - meltfptr[27] = slot; + /*_.CITEXPAFTE__V28*/ meltfptr[27] = slot; }; ; } @@ -13445,26 +12268,21 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#MULTIPLE_LENGTH__L8*/ - meltfnum[2] = + /*_#MULTIPLE_LENGTH__L8*/ meltfnum[2] = (melt_multiple_length((melt_ptr_t)(/*_.CITSTAFORMALS__V24*/ meltfptr[23])));; /*^compute*/ - /*_#plI__L9*/ - meltfnum[1] = + /*_#plI__L9*/ meltfnum[1] = ((3) + (/*_#MULTIPLE_LENGTH__L8*/ meltfnum[2]));; /*^compute*/ - /*_#stI__L10*/ - meltfnum[9] = + /*_#stI__L10*/ meltfnum[9] = ((2) * (/*_#plI__L9*/ meltfnum[1]));; /*^compute*/ - /*_.REPLMAP__V29*/ - meltfptr[28] = + /*_.REPLMAP__V29*/ meltfptr[28] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[7])), (/*_#stI__L10*/ meltfnum[9])));; MELT_LOCATION("warmelt-outobj.melt:5843:/ quasiblock"); - /*_.NBUF__V31*/ - meltfptr[30] = + /*_.NBUF__V31*/ meltfptr[30] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[8])), (const char*)0);; MELT_CHECK_SIGNAL(); @@ -13480,13 +12298,11 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#IX__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "_"; - /*_.ADD2OUT__V32*/ - meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.NBUF__V31*/ meltfptr[30]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.NBUF__V31*/ meltfptr[30]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:5846:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CITSTATE__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ @@ -13497,8 +12313,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CITSTATE__V25*/ meltfptr[24]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V33*/ - meltfptr[32] = slot; + /*_.NAMED_NAME__V33*/ meltfptr[32] = slot; }; ; } @@ -13515,30 +12330,22 @@ meltlab_endgetargs: melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V33*/ meltfptr[32]))); } ; - /*_.STRBUF2STRING__V34*/ - meltfptr[33] = + /*_.STRBUF2STRING__V34*/ meltfptr[33] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[10])), melt_strbuf_str((melt_ptr_t)(/*_.NBUF__V31*/ meltfptr[30]))));; /*^compute*/ - /*_.LET___V30*/ - meltfptr[29] = /*_.STRBUF2STRING__V34*/ meltfptr[33];; + /*_.LET___V30*/ meltfptr[29] = /*_.STRBUF2STRING__V34*/ meltfptr[33];; MELT_LOCATION("warmelt-outobj.melt:5843:/ clear"); - /*clear*/ /*_.NBUF__V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.NBUF__V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.ADD2OUT__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.NAMED_NAME__V33*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V34*/ - meltfptr[33] = 0 ; - /*_.REPSTATNAM__V35*/ - meltfptr[30] = /*_.LET___V30*/ meltfptr[29];; + /*clear*/ /*_.STRBUF2STRING__V34*/ meltfptr[33] = 0 ; + /*_.REPSTATNAM__V35*/ meltfptr[30] = /*_.LET___V30*/ meltfptr[29];; MELT_LOCATION("warmelt-outobj.melt:5848:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CITDEF__V21*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCITERATOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -13549,8 +12356,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CITDEF__V21*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 6, "SCITERDEF_BEFORELOC"); - /*_.SCITERDEF_BEFORELOC__V36*/ - meltfptr[31] = slot; + /*_.SCITERDEF_BEFORELOC__V36*/ meltfptr[31] = slot; }; ; } @@ -13561,8 +12367,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5848:/ cond"); - /*cond*/ - if (/*_.SCITERDEF_BEFORELOC__V36*/ meltfptr[31]) /*then*/ + /*cond*/ if (/*_.SCITERDEF_BEFORELOC__V36*/ meltfptr[31]) /*then*/ { /*^cond.then*/ /*_.BEFLOC__V37*/ meltfptr[32] = /*_.SCITERDEF_BEFORELOC__V36*/ meltfptr[31];; @@ -13571,13 +12376,11 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5848:/ cond.else"); - /*_.BEFLOC__V37*/ - meltfptr[32] = /*_.DLOC__V20*/ meltfptr[18];; + /*_.BEFLOC__V37*/ meltfptr[32] = /*_.DLOC__V20*/ meltfptr[18];; } ; MELT_LOCATION("warmelt-outobj.melt:5849:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CITDEF__V21*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCITERATOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -13588,8 +12391,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CITDEF__V21*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 7, "SCITERDEF_AFTERLOC"); - /*_.SCITERDEF_AFTERLOC__V38*/ - meltfptr[33] = slot; + /*_.SCITERDEF_AFTERLOC__V38*/ meltfptr[33] = slot; }; ; } @@ -13600,8 +12402,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5849:/ cond"); - /*cond*/ - if (/*_.SCITERDEF_AFTERLOC__V38*/ meltfptr[33]) /*then*/ + /*cond*/ if (/*_.SCITERDEF_AFTERLOC__V38*/ meltfptr[33]) /*then*/ { /*^cond.then*/ /*_.AFTLOC__V39*/ meltfptr[38] = /*_.SCITERDEF_AFTERLOC__V38*/ meltfptr[33];; @@ -13610,8 +12411,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5849:/ cond.else"); - /*_.AFTLOC__V39*/ - meltfptr[38] = /*_.DLOC__V20*/ meltfptr[18];; + /*_.AFTLOC__V39*/ meltfptr[38] = /*_.DLOC__V20*/ meltfptr[18];; } ; @@ -13624,12 +12424,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L11*/ - meltfnum[10] = + /*_#IS_A__L11*/ meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.CITDEF__V21*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCITERATOR*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-outobj.melt:5851:/ cond"); - /*cond*/ - if (/*_#IS_A__L11*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#IS_A__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V41*/ meltfptr[40] = (/*nil*/NULL);; @@ -13658,31 +12456,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5851; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CITDEF__V21*/ meltfptr[5]; - /*_.MELT_ASSERT_FAILURE_FUN__V42*/ - meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V41*/ - meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V42*/ meltfptr[41];; + /*_._IFELSE___V41*/ meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V42*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5851:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V42*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V42*/ meltfptr[41] = 0 ; } ; } ; - /*_.IFCPP___V40*/ - meltfptr[39] = /*_._IFELSE___V41*/ meltfptr[40];; + /*_.IFCPP___V40*/ meltfptr[39] = /*_._IFELSE___V41*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5851:/ clear"); - /*clear*/ /*_#IS_A__L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#IS_A__L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V41*/ - meltfptr[40] = 0 ; + /*clear*/ /*_._IFELSE___V41*/ meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13700,12 +12492,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L12*/ - meltfnum[10] = + /*_#eqeq__L12*/ meltfnum[10] = ((/*_.CITREP__V22*/ meltfptr[21]) == (/*_.RECV__V2*/ meltfptr[1]));; MELT_LOCATION("warmelt-outobj.melt:5852:/ cond"); - /*cond*/ - if (/*_#eqeq__L12*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#eqeq__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V44*/ meltfptr[40] = (/*nil*/NULL);; @@ -13736,31 +12526,25 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CITREP__V22*/ meltfptr[21]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V45*/ - meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V44*/ - meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44];; + /*_._IFELSE___V44*/ meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5852:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V45*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44] = 0 ; } ; } ; - /*_.IFCPP___V43*/ - meltfptr[41] = /*_._IFELSE___V44*/ meltfptr[40];; + /*_.IFCPP___V43*/ meltfptr[41] = /*_._IFELSE___V44*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5852:/ clear"); - /*clear*/ /*_#eqeq__L12*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#eqeq__L12*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V44*/ - meltfptr[40] = 0 ; + /*clear*/ /*_._IFELSE___V44*/ meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13778,8 +12562,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "/*citerator-syntax "; - /*_.ADD2OUT__V46*/ - meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V46*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -13799,8 +12582,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "*/ {"; - /*_.ADD2OUT__V47*/ - meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V47*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -13813,8 +12595,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:5857:/ cond"); - /*cond*/ - if (/*_.DLOC__V20*/ meltfptr[18]) /*then*/ + /*cond*/ if (/*_.DLOC__V20*/ meltfptr[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13835,17 +12616,14 @@ meltlab_endgetargs: argtab[1].meltbp_long = 0; /*^apply.arg*/ argtab[2].meltbp_cstring = "citerator-syntax"; - /*_.OUTPUT_RAW_LOCATION__V49*/ - meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.DLOC__V20*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_RAW_LOCATION__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.DLOC__V20*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V48*/ - meltfptr[47] = /*_.OUTPUT_RAW_LOCATION__V49*/ meltfptr[48];; + /*_._IF___V48*/ meltfptr[47] = /*_.OUTPUT_RAW_LOCATION__V49*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5857:/ clear"); - /*clear*/ /*_.OUTPUT_RAW_LOCATION__V49*/ - meltfptr[48] = 0 ; + /*clear*/ /*_.OUTPUT_RAW_LOCATION__V49*/ meltfptr[48] = 0 ; } ; } @@ -13883,8 +12661,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ - meltfnum[10] = + /*_#MELT_NEED_DBG__L13*/ meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13893,8 +12670,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5859:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L13*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13927,20 +12703,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "syntestgen_citerator replmap="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.REPLMAP__V29*/ meltfptr[28]; - /*_.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[48] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; + /*_._IF___V50*/ meltfptr[48] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5859:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0 ; } ; } @@ -13953,8 +12725,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5859:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -13963,11 +12734,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V50*/ - meltfptr[48] = 0 ; + /*clear*/ /*_._IF___V50*/ meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14001,8 +12770,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CITSTAFORMALS__V24*/ meltfptr[23]; /*^apply.arg*/ argtab[2].meltbp_cstring = "meltcitstart_"; - /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V52*/ - meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!SUBSTITUTE_FORMALS_FOR_SYNTEST*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V52*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!SUBSTITUTE_FORMALS_FOR_SYNTEST*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -14019,16 +12787,14 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CITBODFORMALS__V26*/ meltfptr[25]; /*^apply.arg*/ argtab[2].meltbp_cstring = "meltcitbody_"; - /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V53*/ - meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!SUBSTITUTE_FORMALS_FOR_SYNTEST*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V53*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!SUBSTITUTE_FORMALS_FOR_SYNTEST*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:5862:/ cond"); - /*cond*/ - if (/*_.BEFLOC__V37*/ meltfptr[32]) /*then*/ + /*cond*/ if (/*_.BEFLOC__V37*/ meltfptr[32]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14049,17 +12815,14 @@ meltlab_endgetargs: argtab[1].meltbp_long = 0; /*^apply.arg*/ argtab[2].meltbp_cstring = "citerator-syntax-before"; - /*_.OUTPUT_RAW_LOCATION__V55*/ - meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.BEFLOC__V37*/ meltfptr[32]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_RAW_LOCATION__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.BEFLOC__V37*/ meltfptr[32]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V54*/ - meltfptr[53] = /*_.OUTPUT_RAW_LOCATION__V55*/ meltfptr[54];; + /*_._IF___V54*/ meltfptr[53] = /*_.OUTPUT_RAW_LOCATION__V55*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5862:/ clear"); - /*clear*/ /*_.OUTPUT_RAW_LOCATION__V55*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.OUTPUT_RAW_LOCATION__V55*/ meltfptr[54] = 0 ; } ; } @@ -14083,8 +12846,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CITEXPBEFO__V27*/ meltfptr[26]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BEFLOC__V37*/ meltfptr[32]; - /*_.EXPAND_TUPLE_FOR_SYNTEST__V56*/ - meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_TUPLE_FOR_SYNTEST*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.EXPAND_TUPLE_FOR_SYNTEST__V56*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_TUPLE_FOR_SYNTEST*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -14107,8 +12869,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L15*/ - meltfnum[13] = + /*_#MELT_NEED_DBG__L15*/ meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14117,8 +12878,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5864:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L15*/ meltfnum[13]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14151,20 +12911,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "syntestgen_citerator after start formals replmap="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.REPLMAP__V29*/ meltfptr[28]; - /*_.MELT_DEBUG_FUN__V58*/ - meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V57*/ - meltfptr[56] = /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57];; + /*_._IF___V57*/ meltfptr[56] = /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5864:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V58*/ - meltfptr[57] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57] = 0 ; } ; } @@ -14177,8 +12933,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5864:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -14187,11 +12942,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V57*/ - meltfptr[56] = 0 ; + /*clear*/ /*_._IF___V57*/ meltfptr[56] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14231,8 +12984,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.REPSTATNAM__V35*/ meltfptr[30]; /*^apply.arg*/ argtab[2].meltbp_cstring = " **/"; - /*_.ADD2OUT__V59*/ - meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V59*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -14261,8 +13013,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ - meltfnum[10] = + /*_#MELT_NEED_DBG__L17*/ meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14271,8 +13022,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5868:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L17*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14305,20 +13055,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "syntestgen_citerator citbodformals="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CITBODFORMALS__V26*/ meltfptr[25]; - /*_.MELT_DEBUG_FUN__V61*/ - meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V60*/ - meltfptr[56] = /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60];; + /*_._IF___V60*/ meltfptr[56] = /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5868:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L18*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V61*/ - meltfptr[60] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = 0 ; } ; } @@ -14331,8 +13077,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5868:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -14341,11 +13086,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V60*/ - meltfptr[56] = 0 ; + /*clear*/ /*_._IF___V60*/ meltfptr[56] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14397,8 +13140,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ - meltfnum[10] = + /*_#MELT_NEED_DBG__L20*/ meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14407,8 +13149,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5872:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L20*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14441,20 +13182,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "syntestgen_citerator curbodformbind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURBODFORMBIND__V62*/ meltfptr[60]; - /*_.MELT_DEBUG_FUN__V64*/ - meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V63*/ - meltfptr[56] = /*_.MELT_DEBUG_FUN__V64*/ meltfptr[63];; + /*_._IF___V63*/ meltfptr[56] = /*_.MELT_DEBUG_FUN__V64*/ meltfptr[63];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5872:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ - meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V64*/ - meltfptr[63] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V64*/ meltfptr[63] = 0 ; } ; } @@ -14467,8 +13204,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5872:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -14477,11 +13213,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V63*/ - meltfptr[56] = 0 ; + /*clear*/ /*_._IF___V63*/ meltfptr[56] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14505,8 +13239,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:5874:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURBODFORMBIND__V62*/ meltfptr[60]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[15]))) ) /*then*/ @@ -14517,8 +13250,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURBODFORMBIND__V62*/ meltfptr[60]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.CURBODFORMAL__V65*/ - meltfptr[63] = slot; + /*_.CURBODFORMAL__V65*/ meltfptr[63] = slot; }; ; } @@ -14529,8 +13261,7 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.NAMBODFORMAL__V66*/ - meltfptr[56] = + /*_.NAMBODFORMAL__V66*/ meltfptr[56] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.REPLMAP__V29*/ meltfptr[28]), (meltobject_ptr_t)(/*_.CURBODFORMAL__V65*/ meltfptr[63]));; @@ -14553,8 +13284,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L22*/ - meltfnum[20] = + /*_#MELT_NEED_DBG__L22*/ meltfnum[20] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14563,8 +13293,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5877:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L22*/ meltfnum[20]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L22*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14597,20 +13326,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "syntestgen_citerator nambodformal="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NAMBODFORMAL__V66*/ meltfptr[56]; - /*_.MELT_DEBUG_FUN__V68*/ - meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V67*/ - meltfptr[66] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67];; + /*_._IF___V67*/ meltfptr[66] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5877:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L23*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L23*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ - meltfptr[67] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67] = 0 ; } ; } @@ -14623,8 +13348,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5877:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -14633,11 +13357,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L22*/ - meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L22*/ meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V67*/ - meltfptr[66] = 0 ; + /*clear*/ /*_._IF___V67*/ meltfptr[66] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14668,8 +13390,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ - if (/*_.NAMBODFORMAL__V66*/ meltfptr[56]) /*then*/ + /*cond*/ if (/*_.NAMBODFORMAL__V66*/ meltfptr[56]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V70*/ meltfptr[66] = (/*nil*/NULL);; @@ -14696,28 +13417,23 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5878; - /*_.MELT_ASSERT_FAILURE_FUN__V71*/ - meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V70*/ - meltfptr[66] = /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[70];; + /*_._IFELSE___V70*/ meltfptr[66] = /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[70];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5878:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V71*/ - meltfptr[70] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[70] = 0 ; } ; } ; - /*_.IFCPP___V69*/ - meltfptr[67] = /*_._IFELSE___V70*/ meltfptr[66];; + /*_.IFCPP___V69*/ meltfptr[67] = /*_._IFELSE___V70*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5878:/ clear"); - /*clear*/ /*_._IFELSE___V70*/ - meltfptr[66] = 0 ; + /*clear*/ /*_._IFELSE___V70*/ meltfptr[66] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14739,8 +13455,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMBODFORMAL__V66*/ meltfptr[56]; /*^apply.arg*/ argtab[2].meltbp_cstring = ") return;"; - /*_.ADD2OUT__V72*/ - meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V72*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -14751,36 +13466,29 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:5873:/ clear"); - /*clear*/ /*_.CURBODFORMAL__V65*/ - meltfptr[63] = 0 ; + /*clear*/ /*_.CURBODFORMAL__V65*/ meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMBODFORMAL__V66*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.NAMBODFORMAL__V66*/ meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V69*/ - meltfptr[67] = 0 ; + /*clear*/ /*_.IFCPP___V69*/ meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V72*/ - meltfptr[70] = 0 ; + /*clear*/ /*_.ADD2OUT__V72*/ meltfptr[70] = 0 ; if (/*_#BODFORMIX__L19*/ meltfnum[13]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:5869:/ clear"); - /*clear*/ /*_.CURBODFORMBIND__V62*/ - meltfptr[60] = 0 ; + /*clear*/ /*_.CURBODFORMBIND__V62*/ meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_#BODFORMIX__L19*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#BODFORMIX__L19*/ meltfnum[13] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:5882:/ cond"); - /*cond*/ - if (/*_.AFTLOC__V39*/ meltfptr[38]) /*then*/ + /*cond*/ if (/*_.AFTLOC__V39*/ meltfptr[38]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14801,17 +13509,14 @@ meltlab_endgetargs: argtab[1].meltbp_long = 0; /*^apply.arg*/ argtab[2].meltbp_cstring = "citerator-syntax-after"; - /*_.OUTPUT_RAW_LOCATION__V74*/ - meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.AFTLOC__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_RAW_LOCATION__V74*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.AFTLOC__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V73*/ - meltfptr[66] = /*_.OUTPUT_RAW_LOCATION__V74*/ meltfptr[63];; + /*_._IF___V73*/ meltfptr[66] = /*_.OUTPUT_RAW_LOCATION__V74*/ meltfptr[63];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5882:/ clear"); - /*clear*/ /*_.OUTPUT_RAW_LOCATION__V74*/ - meltfptr[63] = 0 ; + /*clear*/ /*_.OUTPUT_RAW_LOCATION__V74*/ meltfptr[63] = 0 ; } ; } @@ -14835,8 +13540,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CITEXPAFTE__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.AFTLOC__V39*/ meltfptr[38]; - /*_.EXPAND_TUPLE_FOR_SYNTEST__V75*/ - meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_TUPLE_FOR_SYNTEST*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.EXPAND_TUPLE_FOR_SYNTEST__V75*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_TUPLE_FOR_SYNTEST*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -14855,8 +13559,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "} /*end citerator-syntax "; - /*_.ADD2OUT__V76*/ - meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V76*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -14876,8 +13579,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "*/"; - /*_.ADD2OUT__V77*/ - meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V77*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -14888,121 +13590,84 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:5833:/ clear"); - /*clear*/ /*_.DLOC__V20*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.DLOC__V20*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.CITDEF__V21*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.CITDEF__V21*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.CITREP__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.CITREP__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CITNAM__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.CITNAM__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CITSTAFORMALS__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.CITSTAFORMALS__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.CITSTATE__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.CITSTATE__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.CITBODFORMALS__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.CITBODFORMALS__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.CITEXPBEFO__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.CITEXPBEFO__V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.CITEXPAFTE__V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.CITEXPAFTE__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L9*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#plI__L9*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#stI__L10*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#stI__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.REPLMAP__V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.REPLMAP__V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.LET___V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.REPSTATNAM__V35*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.REPSTATNAM__V35*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.SCITERDEF_BEFORELOC__V36*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.SCITERDEF_BEFORELOC__V36*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.BEFLOC__V37*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.BEFLOC__V37*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.SCITERDEF_AFTERLOC__V38*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.SCITERDEF_AFTERLOC__V38*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.AFTLOC__V39*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.AFTLOC__V39*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.IFCPP___V40*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V43*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.IFCPP___V43*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V46*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.ADD2OUT__V46*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V47*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.ADD2OUT__V47*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V48*/ - meltfptr[47] = 0 ; + /*clear*/ /*_._IF___V48*/ meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V52*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V52*/ meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V53*/ - meltfptr[48] = 0 ; + /*clear*/ /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V53*/ meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V54*/ - meltfptr[53] = 0 ; + /*clear*/ /*_._IF___V54*/ meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPAND_TUPLE_FOR_SYNTEST__V56*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.EXPAND_TUPLE_FOR_SYNTEST__V56*/ meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V59*/ - meltfptr[57] = 0 ; + /*clear*/ /*_.ADD2OUT__V59*/ meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V73*/ - meltfptr[66] = 0 ; + /*clear*/ /*_._IF___V73*/ meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPAND_TUPLE_FOR_SYNTEST__V75*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.EXPAND_TUPLE_FOR_SYNTEST__V75*/ meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V76*/ - meltfptr[67] = 0 ; + /*clear*/ /*_.ADD2OUT__V76*/ meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V77*/ - meltfptr[70] = 0 ; + /*clear*/ /*_.ADD2OUT__V77*/ meltfptr[70] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5827:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; } ; @@ -15083,8 +13748,7 @@ meltrout_124_WARMELTmiOUTOBJ_SYNTESTGEN_CMATCHER(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_124_WARMELTmiOUTOBJ_SYNTESTGEN_CMATCHER fromline 1719 */ - /* classy proc frame meltrout_124_WARMELTmiOUTOBJ_SYNTESTGEN_CMATCHER */ - MeltFrame_meltrout_124_WARMELTmiOUTOBJ_SYNTESTGEN_CMATCHER + /* classy proc frame meltrout_124_WARMELTmiOUTOBJ_SYNTESTGEN_CMATCHER */ MeltFrame_meltrout_124_WARMELTmiOUTOBJ_SYNTESTGEN_CMATCHER meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_124_WARMELTmiOUTOBJ_SYNTESTGEN_CMATCHER fromline 1748*/ #if ENABLE_CHECKING @@ -15097,8 +13761,7 @@ meltrout_124_WARMELTmiOUTOBJ_SYNTESTGEN_CMATCHER(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("SYNTESTGEN_CMATCHER", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -15108,38 +13771,33 @@ meltrout_124_WARMELTmiOUTOBJ_SYNTESTGEN_CMATCHER(meltclosure_ptr_t meltclosp_, m /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:5895:/ getarg"); - /*_.RECV__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GENDEV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GENDEV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.SBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.SBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#IX__L1*/ - meltfnum[0] = meltxargtab_[3].meltbp_long; + /*_#IX__L1*/ meltfnum[0] = meltxargtab_[3].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -15169,8 +13827,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)) @@ -15179,8 +13836,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5896:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15217,20 +13873,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " gendev="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.GENDEV__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5896:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -15243,8 +13895,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5896:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -15253,11 +13904,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15287,12 +13936,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[2] = + /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:5897:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -15321,31 +13968,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5897; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5897:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5897:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15363,12 +14004,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ - meltfnum[1] = + /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_GENERATOR_DEVICE*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-outobj.melt:5898:/ cond"); - /*cond*/ - if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -15397,31 +14036,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5898; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GENDEV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5898:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5898:/ clear"); - /*clear*/ /*_#IS_A__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15439,12 +14072,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L6*/ - meltfnum[2] = + /*_#IS_STRBUF__L6*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-outobj.melt:5899:/ cond"); - /*cond*/ - if (/*_#IS_STRBUF__L6*/ meltfnum[2]) /*then*/ + /*cond*/ if (/*_#IS_STRBUF__L6*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -15473,31 +14104,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5899; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5899:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ - meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5899:/ clear"); - /*clear*/ /*_#IS_STRBUF__L6*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#IS_STRBUF__L6*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15515,12 +14140,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ - meltfnum[1] = + /*_#IS_A__L7*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-outobj.melt:5900:/ cond"); - /*cond*/ - if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[5] = (/*nil*/NULL);; @@ -15549,31 +14172,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5900; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ 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[5] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; + /*_._IFELSE___V18*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5900:/ 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[5];; + /*_.IFCPP___V17*/ meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5900:/ clear"); - /*clear*/ /*_#IS_A__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V18*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V18*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15585,8 +14202,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -15597,8 +14213,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.DLOC__V20*/ - meltfptr[18] = slot; + /*_.DLOC__V20*/ meltfptr[18] = slot; }; ; } @@ -15609,8 +14224,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5902:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_GENERATOR_DEVICE*/ meltfrout->tabval[3]))) ) /*then*/ @@ -15621,8 +14235,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SRCGEN_DEFIN"); - /*_.CMATDEF__V21*/ - meltfptr[5] = slot; + /*_.CMATDEF__V21*/ meltfptr[5] = slot; }; ; } @@ -15633,8 +14246,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5903:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_GENERATOR_DEVICE*/ meltfrout->tabval[3]))) ) /*then*/ @@ -15645,8 +14257,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GENDEV__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SRCGEN_REPR"); - /*_.CMATREP__V22*/ - meltfptr[21] = slot; + /*_.CMATREP__V22*/ meltfptr[21] = slot; }; ; } @@ -15657,8 +14268,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5904:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ @@ -15669,8 +14279,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.CMATNAM__V23*/ - meltfptr[22] = slot; + /*_.CMATNAM__V23*/ meltfptr[22] = slot; }; ; } @@ -15681,8 +14290,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5905:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[7]))) ) /*then*/ @@ -15693,8 +14301,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "AMATCH_IN"); - /*_.CMATINS__V24*/ - meltfptr[23] = slot; + /*_.CMATINS__V24*/ meltfptr[23] = slot; }; ; } @@ -15705,8 +14312,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5906:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[7]))) ) /*then*/ @@ -15717,8 +14323,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "AMATCH_MATCHBIND"); - /*_.CMATBIND__V25*/ - meltfptr[24] = slot; + /*_.CMATBIND__V25*/ meltfptr[24] = slot; }; ; } @@ -15729,8 +14334,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5907:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[7]))) ) /*then*/ @@ -15741,8 +14345,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "AMATCH_OUT"); - /*_.CMATOUT__V26*/ - meltfptr[25] = slot; + /*_.CMATOUT__V26*/ meltfptr[25] = slot; }; ; } @@ -15753,8 +14356,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5908:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[1]))) ) /*then*/ @@ -15765,8 +14367,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CMATCH_STATE"); - /*_.CMATSTATE__V27*/ - meltfptr[26] = slot; + /*_.CMATSTATE__V27*/ meltfptr[26] = slot; }; ; } @@ -15777,8 +14378,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5909:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[1]))) ) /*then*/ @@ -15789,8 +14389,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CMATCH_EXPTEST"); - /*_.CMATTEST__V28*/ - meltfptr[27] = slot; + /*_.CMATTEST__V28*/ meltfptr[27] = slot; }; ; } @@ -15801,8 +14400,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5910:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[1]))) ) /*then*/ @@ -15813,8 +14411,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 7, "CMATCH_EXPFILL"); - /*_.CMATFILL__V29*/ - meltfptr[28] = slot; + /*_.CMATFILL__V29*/ meltfptr[28] = slot; }; ; } @@ -15825,8 +14422,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5911:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[1]))) ) /*then*/ @@ -15837,8 +14433,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 8, "CMATCH_EXPOPER"); - /*_.CMATOPER__V30*/ - meltfptr[29] = slot; + /*_.CMATOPER__V30*/ meltfptr[29] = slot; }; ; } @@ -15849,8 +14444,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5912:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMATDEF__V21*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ meltfrout->tabval[8]))) ) /*then*/ @@ -15861,8 +14455,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMATDEF__V21*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 6, "SCMATDEF_TESTLOC"); - /*_.SCMATDEF_TESTLOC__V31*/ - meltfptr[30] = slot; + /*_.SCMATDEF_TESTLOC__V31*/ meltfptr[30] = slot; }; ; } @@ -15873,8 +14466,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5912:/ cond"); - /*cond*/ - if (/*_.SCMATDEF_TESTLOC__V31*/ meltfptr[30]) /*then*/ + /*cond*/ if (/*_.SCMATDEF_TESTLOC__V31*/ meltfptr[30]) /*then*/ { /*^cond.then*/ /*_.TESTLOC__V32*/ meltfptr[31] = /*_.SCMATDEF_TESTLOC__V31*/ meltfptr[30];; @@ -15883,13 +14475,11 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5912:/ cond.else"); - /*_.TESTLOC__V32*/ - meltfptr[31] = /*_.DLOC__V20*/ meltfptr[18];; + /*_.TESTLOC__V32*/ meltfptr[31] = /*_.DLOC__V20*/ meltfptr[18];; } ; MELT_LOCATION("warmelt-outobj.melt:5913:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMATDEF__V21*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ meltfrout->tabval[8]))) ) /*then*/ @@ -15900,8 +14490,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMATDEF__V21*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 7, "SCMATDEF_FILLLOC"); - /*_.SCMATDEF_FILLLOC__V33*/ - meltfptr[32] = slot; + /*_.SCMATDEF_FILLLOC__V33*/ meltfptr[32] = slot; }; ; } @@ -15912,8 +14501,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5913:/ cond"); - /*cond*/ - if (/*_.SCMATDEF_FILLLOC__V33*/ meltfptr[32]) /*then*/ + /*cond*/ if (/*_.SCMATDEF_FILLLOC__V33*/ meltfptr[32]) /*then*/ { /*^cond.then*/ /*_.FILLLOC__V34*/ meltfptr[33] = /*_.SCMATDEF_FILLLOC__V33*/ meltfptr[32];; @@ -15922,13 +14510,11 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5913:/ cond.else"); - /*_.FILLLOC__V34*/ - meltfptr[33] = /*_.DLOC__V20*/ meltfptr[18];; + /*_.FILLLOC__V34*/ meltfptr[33] = /*_.DLOC__V20*/ meltfptr[18];; } ; MELT_LOCATION("warmelt-outobj.melt:5914:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMATDEF__V21*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ meltfrout->tabval[8]))) ) /*then*/ @@ -15939,8 +14525,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMATDEF__V21*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 8, "SCMATDEF_OPERLOC"); - /*_.SCMATDEF_OPERLOC__V35*/ - meltfptr[34] = slot; + /*_.SCMATDEF_OPERLOC__V35*/ meltfptr[34] = slot; }; ; } @@ -15951,8 +14536,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5914:/ cond"); - /*cond*/ - if (/*_.SCMATDEF_OPERLOC__V35*/ meltfptr[34]) /*then*/ + /*cond*/ if (/*_.SCMATDEF_OPERLOC__V35*/ meltfptr[34]) /*then*/ { /*^cond.then*/ /*_.OPERLOC__V36*/ meltfptr[35] = /*_.SCMATDEF_OPERLOC__V35*/ meltfptr[34];; @@ -15961,39 +14545,31 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5914:/ cond.else"); - /*_.OPERLOC__V36*/ - meltfptr[35] = /*_.DLOC__V20*/ meltfptr[18];; + /*_.OPERLOC__V36*/ meltfptr[35] = /*_.DLOC__V20*/ meltfptr[18];; } ; /*^compute*/ - /*_#MULTIPLE_LENGTH__L8*/ - meltfnum[2] = + /*_#MULTIPLE_LENGTH__L8*/ meltfnum[2] = (melt_multiple_length((melt_ptr_t)(/*_.CMATINS__V24*/ meltfptr[23])));; /*^compute*/ - /*_#MULTIPLE_LENGTH__L9*/ - meltfnum[1] = + /*_#MULTIPLE_LENGTH__L9*/ meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.CMATOUT__V26*/ meltfptr[25])));; /*^compute*/ - /*_#plI__L10*/ - meltfnum[9] = + /*_#plI__L10*/ meltfnum[9] = ((/*_#MULTIPLE_LENGTH__L8*/ meltfnum[2]) + (/*_#MULTIPLE_LENGTH__L9*/ meltfnum[1]));; /*^compute*/ - /*_#stI__L11*/ - meltfnum[10] = + /*_#stI__L11*/ meltfnum[10] = ((2) * (/*_#plI__L10*/ meltfnum[9]));; /*^compute*/ - /*_#plI__L12*/ - meltfnum[11] = + /*_#plI__L12*/ meltfnum[11] = ((5) + (/*_#stI__L11*/ meltfnum[10]));; /*^compute*/ - /*_.REPLMAP__V37*/ - meltfptr[36] = + /*_.REPLMAP__V37*/ meltfptr[36] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[9])), (/*_#plI__L12*/ meltfnum[11])));; MELT_LOCATION("warmelt-outobj.melt:5918:/ quasiblock"); - /*_.NBUF__V39*/ - meltfptr[38] = + /*_.NBUF__V39*/ meltfptr[38] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[10])), (const char*)0);; MELT_CHECK_SIGNAL(); @@ -16009,13 +14585,11 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#IX__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "_"; - /*_.ADD2OUT__V40*/ - meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.NBUF__V39*/ meltfptr[38]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.NBUF__V39*/ meltfptr[38]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:5921:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMATSTATE__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ @@ -16026,8 +14600,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMATSTATE__V27*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V41*/ - meltfptr[40] = slot; + /*_.NAMED_NAME__V41*/ meltfptr[40] = slot; }; ; } @@ -16044,27 +14617,20 @@ meltlab_endgetargs: melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V41*/ meltfptr[40]))); } ; - /*_.STRBUF2STRING__V42*/ - meltfptr[41] = + /*_.STRBUF2STRING__V42*/ meltfptr[41] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[12])), melt_strbuf_str((melt_ptr_t)(/*_.NBUF__V39*/ meltfptr[38]))));; /*^compute*/ - /*_.LET___V38*/ - meltfptr[37] = /*_.STRBUF2STRING__V42*/ meltfptr[41];; + /*_.LET___V38*/ meltfptr[37] = /*_.STRBUF2STRING__V42*/ meltfptr[41];; MELT_LOCATION("warmelt-outobj.melt:5918:/ clear"); - /*clear*/ /*_.NBUF__V39*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.NBUF__V39*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.ADD2OUT__V40*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V41*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.NAMED_NAME__V41*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V42*/ - meltfptr[41] = 0 ; - /*_.REPSTATNAM__V43*/ - meltfptr[38] = /*_.LET___V38*/ meltfptr[37];; + /*clear*/ /*_.STRBUF2STRING__V42*/ meltfptr[41] = 0 ; + /*_.REPSTATNAM__V43*/ meltfptr[38] = /*_.LET___V38*/ meltfptr[37];; MELT_CHECK_SIGNAL(); ; @@ -16075,8 +14641,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "/*cmatcher-syntax "; - /*_.ADD2OUT__V44*/ - meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V44*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -16096,8 +14661,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "**/ {"; - /*_.ADD2OUT__V45*/ - meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V45*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -16125,8 +14689,7 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x3*/ - /*_.TUPLREC___V47*/ - meltfptr[46] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x3; + /*_.TUPLREC___V47*/ meltfptr[46] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x3; meltletrec_1_ptr->rtup_0__TUPLREC__x3.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x3.nbval = 1; @@ -16140,16 +14703,13 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V47*/ meltfptr[46]); ; - /*_.TUPLE___V46*/ - meltfptr[41] = /*_.TUPLREC___V47*/ meltfptr[46];; + /*_.TUPLE___V46*/ meltfptr[41] = /*_.TUPLREC___V47*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5929:/ clear"); - /*clear*/ /*_.TUPLREC___V47*/ - meltfptr[46] = 0 ; + /*clear*/ /*_.TUPLREC___V47*/ meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V47*/ - meltfptr[46] = 0 ; + /*clear*/ /*_.TUPLREC___V47*/ meltfptr[46] = 0 ; } /*end multiallocblock*/ ; @@ -16166,8 +14726,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.TUPLE___V46*/ meltfptr[41]; /*^apply.arg*/ argtab[2].meltbp_cstring = "meltcmatched_"; - /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V48*/ - meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!SUBSTITUTE_FORMALS_FOR_SYNTEST*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V48*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!SUBSTITUTE_FORMALS_FOR_SYNTEST*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -16184,8 +14743,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CMATINS__V24*/ meltfptr[23]; /*^apply.arg*/ argtab[2].meltbp_cstring = "meltcmatinput_"; - /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V49*/ - meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!SUBSTITUTE_FORMALS_FOR_SYNTEST*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!SUBSTITUTE_FORMALS_FOR_SYNTEST*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -16202,8 +14760,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CMATOUT__V26*/ meltfptr[25]; /*^apply.arg*/ argtab[2].meltbp_cstring = "meltcmatoutput_"; - /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V50*/ - meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!SUBSTITUTE_FORMALS_FOR_SYNTEST*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!SUBSTITUTE_FORMALS_FOR_SYNTEST*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -16216,8 +14773,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:5933:/ cond"); - /*cond*/ - if (/*_.TESTLOC__V32*/ meltfptr[31]) /*then*/ + /*cond*/ if (/*_.TESTLOC__V32*/ meltfptr[31]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16238,17 +14794,14 @@ meltlab_endgetargs: argtab[1].meltbp_long = 0; /*^apply.arg*/ argtab[2].meltbp_cstring = "cmatcher-syntax-test"; - /*_.OUTPUT_RAW_LOCATION__V52*/ - meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.TESTLOC__V32*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_RAW_LOCATION__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.TESTLOC__V32*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V51*/ - meltfptr[50] = /*_.OUTPUT_RAW_LOCATION__V52*/ meltfptr[51];; + /*_._IF___V51*/ meltfptr[50] = /*_.OUTPUT_RAW_LOCATION__V52*/ meltfptr[51];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5933:/ clear"); - /*clear*/ /*_.OUTPUT_RAW_LOCATION__V52*/ - meltfptr[51] = 0 ; + /*clear*/ /*_.OUTPUT_RAW_LOCATION__V52*/ meltfptr[51] = 0 ; } ; } @@ -16272,8 +14825,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CMATNAM__V23*/ meltfptr[22]; /*^apply.arg*/ argtab[2].meltbp_cstring = ":*/"; - /*_.ADD2OUT__V53*/ - meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V53*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -16290,8 +14842,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CMATTEST__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.TESTLOC__V32*/ meltfptr[31]; - /*_.EXPAND_TUPLE_FOR_SYNTEST__V54*/ - meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_TUPLE_FOR_SYNTEST*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.EXPAND_TUPLE_FOR_SYNTEST__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_TUPLE_FOR_SYNTEST*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -16304,8 +14855,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "/*cmatcher-endtest*/) {"; - /*_.ADD2OUT__V55*/ - meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -16318,8 +14868,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:5938:/ cond"); - /*cond*/ - if (/*_.FILLLOC__V34*/ meltfptr[33]) /*then*/ + /*cond*/ if (/*_.FILLLOC__V34*/ meltfptr[33]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16340,17 +14889,14 @@ meltlab_endgetargs: argtab[1].meltbp_long = 0; /*^apply.arg*/ argtab[2].meltbp_cstring = "cmatcher-syntax-fill"; - /*_.OUTPUT_RAW_LOCATION__V57*/ - meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.FILLLOC__V34*/ meltfptr[33]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_RAW_LOCATION__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.FILLLOC__V34*/ meltfptr[33]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V56*/ - meltfptr[55] = /*_.OUTPUT_RAW_LOCATION__V57*/ meltfptr[56];; + /*_._IF___V56*/ meltfptr[55] = /*_.OUTPUT_RAW_LOCATION__V57*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5938:/ clear"); - /*clear*/ /*_.OUTPUT_RAW_LOCATION__V57*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.OUTPUT_RAW_LOCATION__V57*/ meltfptr[56] = 0 ; } ; } @@ -16374,8 +14920,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CMATNAM__V23*/ meltfptr[22]; /*^apply.arg*/ argtab[2].meltbp_cstring = ":*/"; - /*_.ADD2OUT__V58*/ - meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V58*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -16398,8 +14943,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CMATFILL__V29*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.FILLLOC__V34*/ meltfptr[33]; - /*_.EXPAND_TUPLE_FOR_SYNTEST__V59*/ - meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_TUPLE_FOR_SYNTEST*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.EXPAND_TUPLE_FOR_SYNTEST__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_TUPLE_FOR_SYNTEST*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -16412,8 +14956,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ";"; - /*_.ADD2OUT__V60*/ - meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -16454,8 +14997,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ - meltfnum[13] = + /*_#MELT_NEED_DBG__L14*/ meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16464,8 +15006,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5947:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16498,20 +15039,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "syntestgen_cmatcher curmatoutbind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURMATOUTBIND__V61*/ meltfptr[60]; - /*_.MELT_DEBUG_FUN__V63*/ - meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V62*/ - meltfptr[61] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];; + /*_._IF___V62*/ meltfptr[61] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5947:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ - meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ - meltfptr[62] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = 0 ; } ; } @@ -16524,8 +15061,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5947:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -16534,11 +15070,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V62*/ - meltfptr[61] = 0 ; + /*clear*/ /*_._IF___V62*/ meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16562,8 +15096,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:5949:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURMATOUTBIND__V61*/ meltfptr[60]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[16]))) ) /*then*/ @@ -16574,8 +15107,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURMATOUTBIND__V61*/ meltfptr[60]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.CUROUTFORMAL__V64*/ - meltfptr[62] = slot; + /*_.CUROUTFORMAL__V64*/ meltfptr[62] = slot; }; ; } @@ -16586,8 +15118,7 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.NAMOUTFORMAL__V65*/ - meltfptr[61] = + /*_.NAMOUTFORMAL__V65*/ meltfptr[61] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.REPLMAP__V37*/ meltfptr[36]), (meltobject_ptr_t)(/*_.CUROUTFORMAL__V64*/ meltfptr[62]));; @@ -16610,8 +15141,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ - meltfnum[14] = + /*_#MELT_NEED_DBG__L16*/ meltfnum[14] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16620,8 +15150,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5952:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16658,20 +15187,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " namoutformal="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NAMOUTFORMAL__V65*/ meltfptr[61]; - /*_.MELT_DEBUG_FUN__V67*/ - meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V66*/ - meltfptr[65] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66];; + /*_._IF___V66*/ meltfptr[65] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5952:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V67*/ - meltfptr[66] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66] = 0 ; } ; } @@ -16684,8 +15209,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5952:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -16694,11 +15218,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ - meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V66*/ - meltfptr[65] = 0 ; + /*clear*/ /*_._IF___V66*/ meltfptr[65] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16729,8 +15251,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ - if (/*_.NAMOUTFORMAL__V65*/ meltfptr[61]) /*then*/ + /*cond*/ if (/*_.NAMOUTFORMAL__V65*/ meltfptr[61]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V69*/ meltfptr[65] = (/*nil*/NULL);; @@ -16757,28 +15278,23 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5954; - /*_.MELT_ASSERT_FAILURE_FUN__V70*/ - meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V70*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V69*/ - meltfptr[65] = /*_.MELT_ASSERT_FAILURE_FUN__V70*/ meltfptr[69];; + /*_._IFELSE___V69*/ meltfptr[65] = /*_.MELT_ASSERT_FAILURE_FUN__V70*/ meltfptr[69];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5954:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V70*/ - meltfptr[69] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V70*/ meltfptr[69] = 0 ; } ; } ; - /*_.IFCPP___V68*/ - meltfptr[66] = /*_._IFELSE___V69*/ meltfptr[65];; + /*_.IFCPP___V68*/ meltfptr[66] = /*_._IFELSE___V69*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5954:/ clear"); - /*clear*/ /*_._IFELSE___V69*/ - meltfptr[65] = 0 ; + /*clear*/ /*_._IFELSE___V69*/ meltfptr[65] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16800,8 +15316,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMOUTFORMAL__V65*/ meltfptr[61]; /*^apply.arg*/ argtab[2].meltbp_cstring = ") return;"; - /*_.ADD2OUT__V71*/ - meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__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[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -16812,28 +15327,22 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:5948:/ clear"); - /*clear*/ /*_.CUROUTFORMAL__V64*/ - meltfptr[62] = 0 ; + /*clear*/ /*_.CUROUTFORMAL__V64*/ meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMOUTFORMAL__V65*/ - meltfptr[61] = 0 ; + /*clear*/ /*_.NAMOUTFORMAL__V65*/ meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V68*/ - meltfptr[66] = 0 ; + /*clear*/ /*_.IFCPP___V68*/ meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V71*/ - meltfptr[69] = 0 ; + /*clear*/ /*_.ADD2OUT__V71*/ meltfptr[69] = 0 ; if (/*_#OUTIX__L13*/ meltfnum[12]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:5944:/ clear"); - /*clear*/ /*_.CURMATOUTBIND__V61*/ - meltfptr[60] = 0 ; + /*clear*/ /*_.CURMATOUTBIND__V61*/ meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_#OUTIX__L13*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#OUTIX__L13*/ meltfnum[12] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -16850,8 +15359,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CMATNAM__V23*/ meltfptr[22]; /*^apply.arg*/ argtab[2].meltbp_cstring = " */ else return;"; - /*_.ADD2OUT__V72*/ - meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V72*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -16864,8 +15372,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:5961:/ cond"); - /*cond*/ - if (/*_.CMATOPER__V30*/ meltfptr[29]) /*then*/ + /*cond*/ if (/*_.CMATOPER__V30*/ meltfptr[29]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16876,8 +15383,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:5963:/ cond"); - /*cond*/ - if (/*_.OPERLOC__V36*/ meltfptr[35]) /*then*/ + /*cond*/ if (/*_.OPERLOC__V36*/ meltfptr[35]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16898,17 +15404,14 @@ meltlab_endgetargs: argtab[1].meltbp_long = 0; /*^apply.arg*/ argtab[2].meltbp_cstring = "cmatcher-syntax-oper"; - /*_.OUTPUT_RAW_LOCATION__V74*/ - meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.OPERLOC__V36*/ meltfptr[35]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_RAW_LOCATION__V74*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.OPERLOC__V36*/ meltfptr[35]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V73*/ - meltfptr[62] = /*_.OUTPUT_RAW_LOCATION__V74*/ meltfptr[61];; + /*_._IF___V73*/ meltfptr[62] = /*_.OUTPUT_RAW_LOCATION__V74*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5963:/ clear"); - /*clear*/ /*_.OUTPUT_RAW_LOCATION__V74*/ - meltfptr[61] = 0 ; + /*clear*/ /*_.OUTPUT_RAW_LOCATION__V74*/ meltfptr[61] = 0 ; } ; } @@ -16919,8 +15422,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:5965:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMATBIND__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[16]))) ) /*then*/ @@ -16931,8 +15433,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMATBIND__V25*/ meltfptr[24]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V75*/ - meltfptr[66] = slot; + /*_.BINDER__V75*/ meltfptr[66] = slot; }; ; } @@ -16953,8 +15454,7 @@ meltlab_endgetargs: meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x4*/ - /*_.TUPLREC___V77*/ - meltfptr[61] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x4; + /*_.TUPLREC___V77*/ meltfptr[61] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x4; meltletrec_2_ptr->rtup_0__TUPLREC__x4.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_2_ptr->rtup_0__TUPLREC__x4.nbval = 3; @@ -16980,16 +15480,13 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V77*/ meltfptr[61]); ; - /*_.TUPLE___V76*/ - meltfptr[69] = /*_.TUPLREC___V77*/ meltfptr[61];; + /*_.TUPLE___V76*/ meltfptr[69] = /*_.TUPLREC___V77*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5965:/ clear"); - /*clear*/ /*_.TUPLREC___V77*/ - meltfptr[61] = 0 ; + /*clear*/ /*_.TUPLREC___V77*/ meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V77*/ - meltfptr[61] = 0 ; + /*clear*/ /*_.TUPLREC___V77*/ meltfptr[61] = 0 ; } /*end multiallocblock*/ ; @@ -17006,8 +15503,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.TUPLE___V76*/ meltfptr[69]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OPERLOC__V36*/ meltfptr[35]; - /*_.EXPAND_TUPLE_FOR_SYNTEST__V78*/ - meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_TUPLE_FOR_SYNTEST*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.EXPAND_TUPLE_FOR_SYNTEST__V78*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_TUPLE_FOR_SYNTEST*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -17024,8 +15520,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CMATOPER__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OPERLOC__V36*/ meltfptr[35]; - /*_.EXPAND_TUPLE_FOR_SYNTEST__V79*/ - meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_TUPLE_FOR_SYNTEST*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.EXPAND_TUPLE_FOR_SYNTEST__V79*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_TUPLE_FOR_SYNTEST*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -17038,8 +15533,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ";"; - /*_.ADD2OUT__V80*/ - meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V80*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -17054,23 +15548,17 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5961:/ clear"); - /*clear*/ /*_._IF___V73*/ - meltfptr[62] = 0 ; + /*clear*/ /*_._IF___V73*/ meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V75*/ - meltfptr[66] = 0 ; + /*clear*/ /*_.BINDER__V75*/ meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V76*/ - meltfptr[69] = 0 ; + /*clear*/ /*_.TUPLE___V76*/ meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPAND_TUPLE_FOR_SYNTEST__V78*/ - meltfptr[61] = 0 ; + /*clear*/ /*_.EXPAND_TUPLE_FOR_SYNTEST__V78*/ meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPAND_TUPLE_FOR_SYNTEST__V79*/ - meltfptr[78] = 0 ; + /*clear*/ /*_.EXPAND_TUPLE_FOR_SYNTEST__V79*/ meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V80*/ - meltfptr[79] = 0 ; + /*clear*/ /*_.ADD2OUT__V80*/ meltfptr[79] = 0 ; } ; } /*noelse*/ @@ -17085,8 +15573,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "} /*end cmatcher-syntax "; - /*_.ADD2OUT__V81*/ - meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V81*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -17106,8 +15593,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "**/"; - /*_.ADD2OUT__V82*/ - meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V82*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -17118,148 +15604,102 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:5901:/ clear"); - /*clear*/ /*_.DLOC__V20*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.DLOC__V20*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.CMATDEF__V21*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.CMATDEF__V21*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.CMATREP__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.CMATREP__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CMATNAM__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.CMATNAM__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CMATINS__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.CMATINS__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.CMATBIND__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.CMATBIND__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.CMATOUT__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.CMATOUT__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.CMATSTATE__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.CMATSTATE__V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.CMATTEST__V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.CMATTEST__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.CMATFILL__V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.CMATFILL__V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.CMATOPER__V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.CMATOPER__V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.SCMATDEF_TESTLOC__V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.SCMATDEF_TESTLOC__V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.TESTLOC__V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.TESTLOC__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.SCMATDEF_FILLLOC__V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.SCMATDEF_FILLLOC__V33*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.FILLLOC__V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.FILLLOC__V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.SCMATDEF_OPERLOC__V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.SCMATDEF_OPERLOC__V35*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.OPERLOC__V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.OPERLOC__V36*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ - meltfnum[2] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L9*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L9*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L10*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#plI__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#stI__L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#stI__L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L12*/ - meltfnum[11] = 0 ; + /*clear*/ /*_#plI__L12*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.REPLMAP__V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.REPLMAP__V37*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.LET___V38*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.REPSTATNAM__V43*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.REPSTATNAM__V43*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V44*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.ADD2OUT__V44*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V45*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.ADD2OUT__V45*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V46*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.TUPLE___V46*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V48*/ - meltfptr[46] = 0 ; + /*clear*/ /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V48*/ meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V49*/ - meltfptr[48] = 0 ; + /*clear*/ /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V49*/ meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V50*/ - meltfptr[49] = 0 ; + /*clear*/ /*_.SUBSTITUTE_FORMALS_FOR_SYNTEST__V50*/ meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V51*/ - meltfptr[50] = 0 ; + /*clear*/ /*_._IF___V51*/ meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V53*/ - meltfptr[51] = 0 ; + /*clear*/ /*_.ADD2OUT__V53*/ meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPAND_TUPLE_FOR_SYNTEST__V54*/ - meltfptr[53] = 0 ; + /*clear*/ /*_.EXPAND_TUPLE_FOR_SYNTEST__V54*/ meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V55*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.ADD2OUT__V55*/ meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V56*/ - meltfptr[55] = 0 ; + /*clear*/ /*_._IF___V56*/ meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V58*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.ADD2OUT__V58*/ meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPAND_TUPLE_FOR_SYNTEST__V59*/ - meltfptr[58] = 0 ; + /*clear*/ /*_.EXPAND_TUPLE_FOR_SYNTEST__V59*/ meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V60*/ - meltfptr[59] = 0 ; + /*clear*/ /*_.ADD2OUT__V60*/ meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V72*/ - meltfptr[65] = 0 ; + /*clear*/ /*_.ADD2OUT__V72*/ meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V81*/ - meltfptr[62] = 0 ; + /*clear*/ /*_.ADD2OUT__V81*/ meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V82*/ - meltfptr[66] = 0 ; + /*clear*/ /*_.ADD2OUT__V82*/ meltfptr[66] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5895:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; } ; @@ -17340,8 +15780,7 @@ meltrout_125_WARMELTmiOUTOBJ_EMIT_SYNTAX_TESTING_ROUTINE(meltclosure_ptr_t meltc /* end of frame for routine meltrout_125_WARMELTmiOUTOBJ_EMIT_SYNTAX_TESTING_ROUTINE fromline 1719 */ - /* classy proc frame meltrout_125_WARMELTmiOUTOBJ_EMIT_SYNTAX_TESTING_ROUTINE */ - MeltFrame_meltrout_125_WARMELTmiOUTOBJ_EMIT_SYNTAX_TESTING_ROUTINE + /* classy proc frame meltrout_125_WARMELTmiOUTOBJ_EMIT_SYNTAX_TESTING_ROUTINE */ MeltFrame_meltrout_125_WARMELTmiOUTOBJ_EMIT_SYNTAX_TESTING_ROUTINE meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_125_WARMELTmiOUTOBJ_EMIT_SYNTAX_TESTING_ROUTINE fromline 1748*/ #if ENABLE_CHECKING @@ -17354,8 +15793,7 @@ meltrout_125_WARMELTmiOUTOBJ_EMIT_SYNTAX_TESTING_ROUTINE(meltclosure_ptr_t meltc #define meltframe meltfram__ melt_trace_start("EMIT_SYNTAX_TESTING_ROUTINE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -17365,22 +15803,19 @@ meltrout_125_WARMELTmiOUTOBJ_EMIT_SYNTAX_TESTING_ROUTINE(meltclosure_ptr_t meltc /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:5980:/ getarg"); - /*_.GENDEVTUP__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.GENDEVTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODCTX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.SBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.SBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3])) != NULL); ; @@ -17412,8 +15847,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)) @@ -17422,8 +15856,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5981:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17460,20 +15893,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " sbuf="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), 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:5981:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } @@ -17486,8 +15915,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5981:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -17496,11 +15924,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17530,12 +15956,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L3*/ - meltfnum[1] = + /*_#IS_MULTIPLE__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.GENDEVTUP__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-outobj.melt:5983:/ cond"); - /*cond*/ - if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -17564,31 +15988,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5983; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GENDEVTUP__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ - meltfptr[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:5983:/ 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:5983:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17606,12 +16024,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-outobj.melt:5984:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[4] = (/*nil*/NULL);; @@ -17640,31 +16056,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5984; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V12*/ - meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V11*/ - meltfptr[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:5984:/ 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:5984:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V11*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V11*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17682,12 +16092,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L5*/ - meltfnum[1] = + /*_#IS_STRBUF__L5*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-outobj.melt:5985:/ cond"); - /*cond*/ - if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V14*/ meltfptr[4] = (/*nil*/NULL);; @@ -17716,31 +16124,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5985; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V15*/ - meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V14*/ - meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; + /*_._IFELSE___V14*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5985:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = 0 ; } ; } ; - /*_.IFCPP___V13*/ - meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[4];; + /*_.IFCPP___V13*/ meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5985:/ clear"); - /*clear*/ /*_#IS_STRBUF__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRBUF__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V14*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V14*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17751,12 +16153,10 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:5986:/ quasiblock"); - /*_#NBGENDEV__L6*/ - meltfnum[0] = + /*_#NBGENDEV__L6*/ meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.GENDEVTUP__V2*/ meltfptr[1])));; MELT_LOCATION("warmelt-outobj.melt:5988:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2]))) ) /*then*/ @@ -17767,8 +16167,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "MOCX_MODULENAME"); - /*_.MODNAM__V16*/ - meltfptr[14] = slot; + /*_.MODNAM__V16*/ meltfptr[14] = slot; }; ; } @@ -17781,8 +16180,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:5990:/ quasiblock"); - /*_.NABUF__V18*/ - meltfptr[17] = + /*_.NABUF__V18*/ meltfptr[17] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; MELT_CHECK_SIGNAL(); @@ -17794,8 +16192,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "melt_syntax_tester_"; - /*_.ADD2OUT__V19*/ - meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.NABUF__V18*/ meltfptr[17]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.NABUF__V18*/ meltfptr[17]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -17805,24 +16202,18 @@ meltlab_endgetargs: melt_string_str((melt_ptr_t)(/*_.MODNAM__V16*/ meltfptr[14]))); } ; - /*_.STRBUF2STRING__V20*/ - meltfptr[19] = + /*_.STRBUF2STRING__V20*/ meltfptr[19] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[5])), melt_strbuf_str((melt_ptr_t)(/*_.NABUF__V18*/ meltfptr[17]))));; /*^compute*/ - /*_.LET___V17*/ - meltfptr[4] = /*_.STRBUF2STRING__V20*/ meltfptr[19];; + /*_.LET___V17*/ meltfptr[4] = /*_.STRBUF2STRING__V20*/ meltfptr[19];; MELT_LOCATION("warmelt-outobj.melt:5990:/ clear"); - /*clear*/ /*_.NABUF__V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.NABUF__V18*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.ADD2OUT__V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V20*/ - meltfptr[19] = 0 ; - /*_.SYNTESTNAME__V21*/ - meltfptr[17] = /*_.LET___V17*/ meltfptr[4];; + /*clear*/ /*_.STRBUF2STRING__V20*/ meltfptr[19] = 0 ; + /*_.SYNTESTNAME__V21*/ meltfptr[17] = /*_.LET___V17*/ meltfptr[4];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-outobj.melt:5995:/ cppif.then"); @@ -17843,8 +16234,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -17853,8 +16243,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:5995:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17887,20 +16276,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "emit_syntax_testing_routine syntestname="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SYNTESTNAME__V21*/ meltfptr[17]; - /*_.MELT_DEBUG_FUN__V23*/ - meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V23*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V22*/ - meltfptr[18] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[19];; + /*_._IF___V22*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5995:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ meltfptr[19] = 0 ; } ; } @@ -17913,8 +16298,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:5995:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -17923,11 +16307,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V22*/ - meltfptr[18] = 0 ; + /*clear*/ /*_._IF___V22*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17957,12 +16339,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L9*/ - meltfnum[7] = + /*_#IS_STRING__L9*/ meltfnum[7] = (melt_magic_discr((melt_ptr_t)(/*_.SYNTESTNAME__V21*/ meltfptr[17])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-outobj.melt:5996:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L9*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V25*/ meltfptr[18] = (/*nil*/NULL);; @@ -17991,31 +16371,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 5996; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SYNTESTNAME__V21*/ meltfptr[17]; - /*_.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[18] = /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25];; + /*_._IFELSE___V25*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5996:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25] = 0 ; } ; } ; - /*_.IFCPP___V24*/ - meltfptr[19] = /*_._IFELSE___V25*/ meltfptr[18];; + /*_.IFCPP___V24*/ meltfptr[19] = /*_._IFELSE___V25*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5996:/ clear"); - /*clear*/ /*_#IS_STRING__L9*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#IS_STRING__L9*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V25*/ - meltfptr[18] = 0 ; + /*clear*/ /*_._IFELSE___V25*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18051,8 +16425,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "/****** emitted syntax checking for C generating devices *****/"; - /*_.ADD2OUT__V27*/ - meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V27*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -18071,8 +16444,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "#if MELT_HAVE_DEBUG"; - /*_.ADD2OUT__V28*/ - meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V28*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -18107,8 +16479,7 @@ meltlab_endgetargs: argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.SYNTESTNAME__V21*/ meltfptr[17]; /*^apply.arg*/ argtab[8].meltbp_cstring = " */\n"; - /*_.ADD2OUT__V29*/ - meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -18149,8 +16520,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ - meltfnum[7] = + /*_#MELT_NEED_DBG__L11*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18159,8 +16529,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6018:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L11*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18197,20 +16566,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n gix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#GIX__L10*/ meltfnum[1]; - /*_.MELT_DEBUG_FUN__V32*/ - meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V31*/ - meltfptr[30] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; + /*_._IF___V31*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6018:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ - meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 0 ; } ; } @@ -18223,8 +16588,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6018:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -18233,11 +16597,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V31*/ meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18267,12 +16629,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L13*/ - meltfnum[11] = + /*_#IS_A__L13*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.CURGENDEV__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_SOURCE_GENERATOR_DEVICE*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-outobj.melt:6019:/ cond"); - /*cond*/ - if (/*_#IS_A__L13*/ meltfnum[11]) /*then*/ + /*cond*/ if (/*_#IS_A__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V34*/ meltfptr[30] = (/*nil*/NULL);; @@ -18301,31 +16661,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6019; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURGENDEV__V30*/ meltfptr[29]; - /*_.MELT_ASSERT_FAILURE_FUN__V35*/ - meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V34*/ - meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; + /*_._IFELSE___V34*/ meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6019:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = 0 ; } ; } ; - /*_.IFCPP___V33*/ - meltfptr[31] = /*_._IFELSE___V34*/ meltfptr[30];; + /*_.IFCPP___V33*/ meltfptr[31] = /*_._IFELSE___V34*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6019:/ clear"); - /*clear*/ /*_#IS_A__L13*/ - meltfnum[11] = 0 ; + /*clear*/ /*_#IS_A__L13*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V34*/ - meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V34*/ meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18336,12 +16690,10 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6020:/ quasiblock"); - /*_#SUCGIX__L14*/ - meltfnum[7] = + /*_#SUCGIX__L14*/ meltfnum[7] = ((/*_#GIX__L10*/ meltfnum[1]) + (1));; MELT_LOCATION("warmelt-outobj.melt:6021:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURGENDEV__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_SOURCE_GENERATOR_DEVICE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -18352,8 +16704,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURGENDEV__V30*/ meltfptr[29]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SRCGEN_REPR"); - /*_.REPR__V36*/ - meltfptr[34] = slot; + /*_.REPR__V36*/ meltfptr[34] = slot; }; ; } @@ -18383,8 +16734,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#SUCGIX__L14*/ meltfnum[7]; /*^apply.arg*/ argtab[2].meltbp_cstring = " */"; - /*_.ADD2OUT__V37*/ - meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V37*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -18413,8 +16763,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L15*/ - meltfnum[11] = + /*_#MELT_NEED_DBG__L15*/ meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18423,8 +16772,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6026:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L15*/ meltfnum[11]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18457,20 +16805,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "emit_syntax_testing_routine before syntax_test_generator repr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.REPR__V36*/ meltfptr[34]; - /*_.MELT_DEBUG_FUN__V39*/ - meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V38*/ - meltfptr[37] = /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; + /*_._IF___V38*/ meltfptr[37] = /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6026:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ - meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V39*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0 ; } ; } @@ -18483,8 +16827,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6026:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -18493,11 +16836,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ - meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_._IF___V38*/ meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18533,8 +16874,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ argtab[3].meltbp_long = /*_#GIX__L10*/ meltfnum[1]; - /*_.SYNTAX_TEST_GENERATOR__V40*/ - meltfptr[38] = meltgc_send((melt_ptr_t)(/*_.REPR__V36*/ meltfptr[34]), (melt_ptr_t)((/*!SYNTAX_TEST_GENERATOR*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.SYNTAX_TEST_GENERATOR__V40*/ meltfptr[38] = meltgc_send((melt_ptr_t)(/*_.REPR__V36*/ meltfptr[34]), (melt_ptr_t)((/*!SYNTAX_TEST_GENERATOR*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -18557,8 +16897,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ - meltfnum[15] = + /*_#MELT_NEED_DBG__L17*/ meltfnum[15] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18567,8 +16906,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6028:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18607,20 +16945,16 @@ meltlab_endgetargs: argtab[6].meltbp_long = /*_#GIX__L10*/ meltfnum[1]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n"; - /*_.MELT_DEBUG_FUN__V42*/ - meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V41*/ - meltfptr[37] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41];; + /*_._IF___V41*/ meltfptr[37] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6028:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L18*/ - meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = 0 ; } ; } @@ -18633,8 +16967,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6028:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -18643,11 +16976,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ - meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V41*/ - meltfptr[37] = 0 ; + /*clear*/ /*_._IF___V41*/ meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18669,17 +17000,13 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:6020:/ clear"); - /*clear*/ /*_#SUCGIX__L14*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#SUCGIX__L14*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.REPR__V36*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.REPR__V36*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V37*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.ADD2OUT__V37*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.SYNTAX_TEST_GENERATOR__V40*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.SYNTAX_TEST_GENERATOR__V40*/ meltfptr[38] = 0 ; { MELT_LOCATION("warmelt-outobj.melt:6030:/ locexp"); @@ -18692,14 +17019,11 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6014:/ clear"); - /*clear*/ /*_.CURGENDEV__V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.CURGENDEV__V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_#GIX__L10*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#GIX__L10*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V33*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.IFCPP___V33*/ meltfptr[31] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -18722,8 +17046,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SYNTESTNAME__V21*/ meltfptr[17]; /*^apply.arg*/ argtab[2].meltbp_cstring = " */"; - /*_.ADD2OUT__V43*/ - meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V43*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -18742,8 +17065,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "#endif /*MELT_HAVE_DEBUG syntaxcheck*/"; - /*_.ADD2OUT__V44*/ - meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V44*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -18760,49 +17082,36 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:5986:/ clear"); - /*clear*/ /*_#NBGENDEV__L6*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#NBGENDEV__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MODNAM__V16*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.MODNAM__V16*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V17*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.SYNTESTNAME__V21*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.SYNTESTNAME__V21*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V24*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.IFCPP___V24*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V27*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.ADD2OUT__V27*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V28*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.ADD2OUT__V28*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.ADD2OUT__V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V43*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.ADD2OUT__V43*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V44*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.ADD2OUT__V44*/ meltfptr[37] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:5980:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V10*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; } ; @@ -18883,8 +17192,7 @@ meltrout_126_WARMELTmiOUTOBJ_GIVE_NORMALIZED_MACROEXPANDED_LIST(meltclosure_ptr_ /* end of frame for routine meltrout_126_WARMELTmiOUTOBJ_GIVE_NORMALIZED_MACROEXPANDED_LIST fromline 1719 */ - /* classy proc frame meltrout_126_WARMELTmiOUTOBJ_GIVE_NORMALIZED_MACROEXPANDED_LIST */ - MeltFrame_meltrout_126_WARMELTmiOUTOBJ_GIVE_NORMALIZED_MACROEXPANDED_LIST + /* classy proc frame meltrout_126_WARMELTmiOUTOBJ_GIVE_NORMALIZED_MACROEXPANDED_LIST */ MeltFrame_meltrout_126_WARMELTmiOUTOBJ_GIVE_NORMALIZED_MACROEXPANDED_LIST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_126_WARMELTmiOUTOBJ_GIVE_NORMALIZED_MACROEXPANDED_LIST fromline 1748*/ #if ENABLE_CHECKING @@ -18897,8 +17205,7 @@ meltrout_126_WARMELTmiOUTOBJ_GIVE_NORMALIZED_MACROEXPANDED_LIST(meltclosure_ptr_ #define meltframe meltfram__ melt_trace_start("GIVE_NORMALIZED_MACROEXPANDED_LIST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -18908,38 +17215,33 @@ meltrout_126_WARMELTmiOUTOBJ_GIVE_NORMALIZED_MACROEXPANDED_LIST(meltclosure_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:6050:/ getarg"); - /*_.XLIST__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.XLIST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODNAMSTR__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODNAMSTR__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODNAMSTR__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MODCTX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.NCX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.INIENV__V6*/ - meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; + /*_.INIENV__V6*/ meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.INIENV__V6*/ meltfptr[5])) != NULL); ; @@ -18971,8 +17273,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)) @@ -18981,8 +17282,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6051:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19037,20 +17337,16 @@ meltlab_endgetargs: argtab[14].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[15].meltbp_aptr = (melt_ptr_t*) &/*_.INIENV__V6*/ meltfptr[5]; - /*_.MELT_DEBUG_FUN__V8*/ - meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V7*/ - meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; + /*_._IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6051:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0 ; } ; } @@ -19063,8 +17359,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6051:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -19073,11 +17368,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V7*/ meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19118,12 +17411,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L3*/ - meltfnum[1] = + /*_#IS_LIST__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.XLIST__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:6057:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[6] = (/*nil*/NULL);; @@ -19152,31 +17443,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6057; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.XLIST__V2*/ meltfptr[1]; - /*_.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[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:6057:/ 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:6057:/ clear"); - /*clear*/ /*_#IS_LIST__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ - meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19194,12 +17479,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L4*/ - meltfnum[0] = + /*_#IS_STRING__L4*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MODNAMSTR__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-outobj.melt:6058:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L4*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[6] = (/*nil*/NULL);; @@ -19228,31 +17511,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6058; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V14*/ - meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V13*/ - meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; + /*_._IFELSE___V13*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6058:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = 0 ; } ; } ; - /*_.IFCPP___V12*/ - meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];; + /*_.IFCPP___V12*/ meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6058:/ clear"); - /*clear*/ /*_#IS_STRING__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_STRING__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V13*/ - meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19270,12 +17547,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ - meltfnum[1] = + /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-outobj.melt:6059:/ cond"); - /*cond*/ - if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[6] = (/*nil*/NULL);; @@ -19304,31 +17579,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6059; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V4*/ meltfptr[3]; - /*_.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[6] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; + /*_._IFELSE___V16*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6059:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; } ; } ; - /*_.IFCPP___V15*/ - meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[6];; + /*_.IFCPP___V15*/ meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6059:/ clear"); - /*clear*/ /*_#IS_A__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ - meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19346,12 +17615,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ - meltfnum[0] = + /*_#IS_A__L6*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-outobj.melt:6060:/ cond"); - /*cond*/ - if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[6] = (/*nil*/NULL);; @@ -19380,31 +17647,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6060; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ meltfptr[4]; - /*_.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[6] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; + /*_._IFELSE___V19*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6060:/ 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[6];; + /*_.IFCPP___V18*/ meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6060:/ clear"); - /*clear*/ /*_#IS_A__L6*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V19*/ - meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V19*/ meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19422,12 +17683,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ - meltfnum[1] = + /*_#IS_A__L7*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.INIENV__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-outobj.melt:6061:/ cond"); - /*cond*/ - if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V22*/ meltfptr[6] = (/*nil*/NULL);; @@ -19456,31 +17715,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6061; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.INIENV__V6*/ meltfptr[5]; - /*_.MELT_ASSERT_FAILURE_FUN__V23*/ - meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V22*/ - meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; + /*_._IFELSE___V22*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6061:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = 0 ; } ; } ; - /*_.IFCPP___V21*/ - meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[6];; + /*_.IFCPP___V21*/ meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6061:/ clear"); - /*clear*/ /*_#IS_A__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V22*/ - meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V22*/ meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19491,8 +17744,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6062:/ quasiblock"); - /*_#STARTCLOCK__L8*/ - meltfnum[0] = 0;; + /*_#STARTCLOCK__L8*/ meltfnum[0] = 0;; MELT_LOCATION("warmelt-outobj.melt:6064:/ blockmultialloc"); /*multiallocblock*/ { @@ -19504,41 +17756,33 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inilist rlist_0__LIST_*/ - /*_.LIST___V26*/ - meltfptr[25] = (melt_ptr_t) &meltletrec_1_ptr->rlist_0__LIST_; + /*_.LIST___V26*/ meltfptr[25] = (melt_ptr_t) &meltletrec_1_ptr->rlist_0__LIST_; meltletrec_1_ptr->rlist_0__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); - /*_.NORMLIST__V25*/ - meltfptr[6] = /*_.LIST___V26*/ meltfptr[25];; + /*_.NORMLIST__V25*/ meltfptr[6] = /*_.LIST___V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6064:/ clear"); - /*clear*/ /*_.LIST___V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.LIST___V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.LIST___V26*/ meltfptr[25] = 0 ; } /*end multiallocblock*/ ; - /*_.LIST_FIRST__V27*/ - meltfptr[25] = + /*_.LIST_FIRST__V27*/ meltfptr[25] = (melt_list_first((melt_ptr_t)(/*_.XLIST__V2*/ meltfptr[1])));; /*^compute*/ - /*_.FIRSTX__V28*/ - meltfptr[27] = + /*_.FIRSTX__V28*/ meltfptr[27] = (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V27*/ meltfptr[25])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L9*/ - meltfnum[1] = + /*_#IS_A__L9*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.FIRSTX__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_SOURCE*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-outobj.melt:6066:/ cond"); - /*cond*/ - if (/*_#IS_A__L9*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L9*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19557,8 +17801,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FIRSTX__V28*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOCA_LOCATION__V30*/ - meltfptr[29] = slot; + /*_.LOCA_LOCATION__V30*/ meltfptr[29] = slot; }; ; } @@ -19569,13 +17812,11 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.FIRSTLOC__V29*/ - meltfptr[28] = /*_.LOCA_LOCATION__V30*/ meltfptr[29];; + /*_.FIRSTLOC__V29*/ meltfptr[28] = /*_.LOCA_LOCATION__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6066:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.LOCA_LOCATION__V30*/ meltfptr[29] = 0 ; } ; } @@ -19586,8 +17827,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6067:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ @@ -19598,8 +17838,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 15, "MOCX_ERRORHANDLER"); - /*_.ERRORHDLR__V31*/ - meltfptr[29] = slot; + /*_.ERRORHDLR__V31*/ meltfptr[29] = slot; }; ; } @@ -19610,8 +17849,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6068:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ @@ -19622,8 +17860,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 4, "MOCX_INITIALENV"); - /*_.MODINIENV__V32*/ - meltfptr[31] = slot; + /*_.MODINIENV__V32*/ meltfptr[31] = slot; }; ; } @@ -19634,8 +17871,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6069:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4]))) ) /*then*/ @@ -19646,8 +17882,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NCTX_INITPROC"); - /*_.INIPROC__V33*/ - meltfptr[32] = slot; + /*_.INIPROC__V33*/ meltfptr[32] = slot; }; ; } @@ -19668,8 +17903,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ meltfrout->tabval[8])), (3), "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE"); - /*_.INST__V35*/ - meltfptr[34] = + /*_.INST__V35*/ meltfptr[34] = newobj; }; ; @@ -19687,8 +17921,7 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V35*/ meltfptr[34], "newly made instance"); ; - /*_.UCMEB1__V34*/ - meltfptr[33] = /*_.INST__V35*/ meltfptr[34];; + /*_.UCMEB1__V34*/ meltfptr[33] = /*_.INST__V35*/ meltfptr[34];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-outobj.melt:6076:/ cppif.then"); @@ -19709,8 +17942,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ - meltfnum[9] = + /*_#MELT_NEED_DBG__L10*/ meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19719,8 +17951,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6076:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19757,20 +17988,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. iniproc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.INIPROC__V33*/ meltfptr[32]; - /*_.MELT_DEBUG_FUN__V37*/ - meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V36*/ - meltfptr[35] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; + /*_._IF___V36*/ meltfptr[35] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6076:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0 ; } ; } @@ -19783,8 +18010,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6076:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -19793,11 +18019,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_._IF___V36*/ meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19840,12 +18064,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L12*/ - meltfnum[10] = + /*_#IS_A__L12*/ meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.FIRSTX__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_SOURCE_COMMENT*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-outobj.melt:6096:/ cond"); - /*cond*/ - if (/*_#IS_A__L12*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#IS_A__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19862,8 +18084,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FIRSTX__V28*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V39*/ - meltfptr[35] = slot; + /*_.SLOC__V39*/ meltfptr[35] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:6099:/ getslot"); @@ -19871,16 +18092,14 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FIRSTX__V28*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SCOMM_STR"); - /*_.SCOMM__V40*/ - meltfptr[39] = slot; + /*_.SCOMM__V40*/ meltfptr[39] = slot; }; ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6101:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ @@ -19909,19 +18128,16 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:6098:/ clear"); - /*clear*/ /*_.SLOC__V39*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.SLOC__V39*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.SCOMM__V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.SCOMM__V40*/ meltfptr[39] = 0 ; MELT_LOCATION("warmelt-outobj.melt:6096:/ quasiblock"); /*epilog*/ /*^clear*/ - /*clear*/ /*_.LIST_POPFIRST__V38*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.LIST_POPFIRST__V38*/ meltfptr[36] = 0 ; } ; } /*noelse*/ @@ -19946,8 +18162,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ - meltfnum[9] = + /*_#MELT_NEED_DBG__L13*/ meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19956,8 +18171,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6104:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L13*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19994,20 +18208,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " modinienv="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODINIENV__V32*/ meltfptr[31]; - /*_.MELT_DEBUG_FUN__V42*/ - meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V42*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V41*/ - meltfptr[35] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[39];; + /*_._IF___V41*/ meltfptr[35] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6104:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ meltfptr[39] = 0 ; } ; } @@ -20020,8 +18230,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6104:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -20030,11 +18239,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V41*/ - meltfptr[35] = 0 ; + /*clear*/ /*_._IF___V41*/ meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20058,8 +18265,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6105:/ cond"); - /*cond*/ - if (/*_.MODINIENV__V32*/ meltfptr[31]) /*then*/ + /*cond*/ if (/*_.MODINIENV__V32*/ meltfptr[31]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20097,8 +18303,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L15*/ - meltfnum[13] = + /*_#MELT_NEED_DBG__L15*/ meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20107,8 +18312,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6107:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L15*/ meltfnum[13]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20149,20 +18353,16 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. inienv="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.INIENV__V6*/ meltfptr[5]; - /*_.MELT_DEBUG_FUN__V44*/ - meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V44*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V43*/ - meltfptr[36] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[39];; + /*_._IF___V43*/ meltfptr[36] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6107:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ meltfptr[39] = 0 ; } ; } @@ -20175,8 +18375,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6107:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -20185,11 +18384,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V43*/ - meltfptr[36] = 0 ; + /*clear*/ /*_._IF___V43*/ meltfptr[36] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20219,12 +18416,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L17*/ - meltfnum[9] = + /*_#IS_LIST__L17*/ meltfnum[9] = (melt_magic_discr((melt_ptr_t)(/*_.XLIST__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:6109:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L17*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L17*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V46*/ meltfptr[39] = (/*nil*/NULL);; @@ -20253,31 +18448,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6109; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.XLIST__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V47*/ - meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V46*/ - meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[36];; + /*_._IFELSE___V46*/ meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6109:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V47*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[36] = 0 ; } ; } ; - /*_.IFCPP___V45*/ - meltfptr[35] = /*_._IFELSE___V46*/ meltfptr[39];; + /*_.IFCPP___V45*/ meltfptr[35] = /*_._IFELSE___V46*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6109:/ clear"); - /*clear*/ /*_#IS_LIST__L17*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#IS_LIST__L17*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V46*/ - meltfptr[39] = 0 ; + /*clear*/ /*_._IFELSE___V46*/ meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20315,8 +18504,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ - meltfnum[13] = + /*_#MELT_NEED_DBG__L18*/ meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20325,8 +18513,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6115:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L18*/ meltfnum[13]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20363,20 +18550,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. inienv="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.INIENV__V6*/ meltfptr[5]; - /*_.MELT_DEBUG_FUN__V51*/ - meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V50*/ - meltfptr[49] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; + /*_._IF___V50*/ meltfptr[49] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6115:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0 ; } ; } @@ -20389,8 +18572,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6115:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -20399,11 +18581,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V50*/ - meltfptr[49] = 0 ; + /*clear*/ /*_._IF___V50*/ meltfptr[49] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20429,12 +18609,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L20*/ - meltfnum[9] = + /*_#IS_A__L20*/ meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.SEXP__V49*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-outobj.melt:6117:/ cond"); - /*cond*/ - if (/*_#IS_A__L20*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#IS_A__L20*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20446,17 +18624,14 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXP__V49*/ meltfptr[39]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOCA_LOCATION__V54*/ - meltfptr[53] = slot; + /*_.LOCA_LOCATION__V54*/ meltfptr[53] = slot; }; ; - /*_.PSLOC__V53*/ - meltfptr[49] = /*_.LOCA_LOCATION__V54*/ meltfptr[53];; + /*_.PSLOC__V53*/ meltfptr[49] = /*_.LOCA_LOCATION__V54*/ meltfptr[53];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6117:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V54*/ - meltfptr[53] = 0 ; + /*clear*/ /*_.LOCA_LOCATION__V54*/ meltfptr[53] = 0 ; } ; } @@ -20485,8 +18660,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V53*/ meltfptr[49]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V57*/ meltfptr[56];/*^multimsend.send*/ - /*_.NEXP__V56*/ - meltfptr[55] = meltgc_send ((melt_ptr_t)(/*_.SEXP__V49*/ meltfptr[39]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[11]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); + /*_.NEXP__V56*/ meltfptr[55] = meltgc_send ((melt_ptr_t)(/*_.SEXP__V49*/ meltfptr[39]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[11]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -20512,8 +18686,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ - meltfnum[13] = + /*_#MELT_NEED_DBG__L21*/ meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20522,8 +18695,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6122:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L21*/ meltfnum[13]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20572,20 +18744,16 @@ meltlab_endgetargs: argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V53*/ meltfptr[49]; /*^apply.arg*/ argtab[12].meltbp_cstring = "\n"; - /*_.MELT_DEBUG_FUN__V59*/ - meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V58*/ - meltfptr[57] = /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58];; + /*_._IF___V58*/ meltfptr[57] = /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6122:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ - meltfnum[21] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V59*/ - meltfptr[58] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58] = 0 ; } ; } @@ -20598,8 +18766,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6122:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -20608,11 +18775,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V58*/ - meltfptr[57] = 0 ; + /*clear*/ /*_._IF___V58*/ meltfptr[57] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20642,13 +18807,11 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST_OR_NULL__L23*/ - meltfnum[21] = + /*_#IS_LIST_OR_NULL__L23*/ meltfnum[21] = ((/*_.NBIND__V57*/ meltfptr[56]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBIND__V57*/ meltfptr[56])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-outobj.melt:6124:/ cond"); - /*cond*/ - if (/*_#IS_LIST_OR_NULL__L23*/ meltfnum[21]) /*then*/ + /*cond*/ if (/*_#IS_LIST_OR_NULL__L23*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V61*/ meltfptr[57] = (/*nil*/NULL);; @@ -20677,31 +18840,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6124; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V57*/ meltfptr[56]; - /*_.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[57] = /*_.MELT_ASSERT_FAILURE_FUN__V62*/ meltfptr[61];; + /*_._IFELSE___V61*/ meltfptr[57] = /*_.MELT_ASSERT_FAILURE_FUN__V62*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6124:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V62*/ - meltfptr[61] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V62*/ meltfptr[61] = 0 ; } ; } ; - /*_.IFCPP___V60*/ - meltfptr[58] = /*_._IFELSE___V61*/ meltfptr[57];; + /*_.IFCPP___V60*/ meltfptr[58] = /*_._IFELSE___V61*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6124:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L23*/ - meltfnum[21] = 0 ; + /*clear*/ /*_#IS_LIST_OR_NULL__L23*/ meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V61*/ - meltfptr[57] = 0 ; + /*clear*/ /*_._IFELSE___V61*/ meltfptr[57] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20736,12 +18893,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L24*/ - meltfnum[13] = + /*_#IS_A__L24*/ meltfnum[13] = melt_is_instance_of((melt_ptr_t)(/*_.CURBIND__V64*/ meltfptr[57]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-outobj.melt:6129:/ cond"); - /*cond*/ - if (/*_#IS_A__L24*/ meltfnum[13]) /*then*/ + /*cond*/ if (/*_#IS_A__L24*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V66*/ meltfptr[65] = (/*nil*/NULL);; @@ -20770,31 +18925,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6129; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURBIND__V64*/ meltfptr[57]; - /*_.MELT_ASSERT_FAILURE_FUN__V67*/ - meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V66*/ - meltfptr[65] = /*_.MELT_ASSERT_FAILURE_FUN__V67*/ meltfptr[66];; + /*_._IFELSE___V66*/ meltfptr[65] = /*_.MELT_ASSERT_FAILURE_FUN__V67*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6129:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V67*/ - meltfptr[66] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V67*/ meltfptr[66] = 0 ; } ; } ; - /*_.IFCPP___V65*/ - meltfptr[64] = /*_._IFELSE___V66*/ meltfptr[65];; + /*_.IFCPP___V65*/ meltfptr[64] = /*_._IFELSE___V66*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6129:/ clear"); - /*clear*/ /*_#IS_A__L24*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#IS_A__L24*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V66*/ - meltfptr[65] = 0 ; + /*clear*/ /*_._IFELSE___V66*/ meltfptr[65] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20804,21 +18953,17 @@ meltlab_endgetargs: ; } /* end foreach_pair_component_in_list meltcit2__EACHLIST */ /*_.CURPAIR__V63*/ meltfptr[61] = NULL; - /*_.CURBIND__V64*/ - meltfptr[57] = NULL; + /*_.CURBIND__V64*/ meltfptr[57] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6126:/ clear"); - /*clear*/ /*_.CURPAIR__V63*/ - meltfptr[61] = 0 ; + /*clear*/ /*_.CURPAIR__V63*/ meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.CURBIND__V64*/ - meltfptr[57] = 0 ; + /*clear*/ /*_.CURBIND__V64*/ meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V65*/ - meltfptr[64] = 0 ; + /*clear*/ /*_.IFCPP___V65*/ meltfptr[64] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; /*epilog*/ @@ -20832,21 +18977,17 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6131:/ quasiblock"); - /*_.NEWNEXP__V69*/ - meltfptr[65] = /*_.NEXP__V56*/ meltfptr[55];; + /*_.NEWNEXP__V69*/ meltfptr[65] = /*_.NEXP__V56*/ meltfptr[55];; /*^compute*/ - /*_.NEWNBIND__V70*/ - meltfptr[69] = /*_.NBIND__V57*/ meltfptr[56];; + /*_.NEWNBIND__V70*/ meltfptr[69] = /*_.NBIND__V57*/ meltfptr[56];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_.LIST_FIRST_ELEMENT__V71*/ - meltfptr[70] = + /*_.LIST_FIRST_ELEMENT__V71*/ meltfptr[70] = (melt_pair_head (melt_list_first((melt_ptr_t)(/*_.NBIND__V57*/ meltfptr[56]))));; MELT_LOCATION("warmelt-outobj.melt:6135:/ cond"); - /*cond*/ - if (/*_.LIST_FIRST_ELEMENT__V71*/ meltfptr[70]) /*then*/ + /*cond*/ if (/*_.LIST_FIRST_ELEMENT__V71*/ meltfptr[70]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20873,8 +19014,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L25*/ - meltfnum[21] = + /*_#MELT_NEED_DBG__L25*/ meltfnum[21] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20883,8 +19023,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6136:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L25*/ meltfnum[21]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L25*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20921,20 +19060,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. nbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V57*/ meltfptr[56]; - /*_.MELT_DEBUG_FUN__V74*/ - meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V74*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V73*/ - meltfptr[72] = /*_.MELT_DEBUG_FUN__V74*/ meltfptr[73];; + /*_._IF___V73*/ meltfptr[72] = /*_.MELT_DEBUG_FUN__V74*/ meltfptr[73];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6136:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L26*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L26*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V74*/ - meltfptr[73] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V74*/ meltfptr[73] = 0 ; } ; } @@ -20947,8 +19082,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6136:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -20957,11 +19091,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L25*/ - meltfnum[21] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L25*/ meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V73*/ - meltfptr[72] = 0 ; + /*clear*/ /*_._IF___V73*/ meltfptr[72] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20991,12 +19123,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L27*/ - meltfnum[13] = + /*_#IS_NOT_A__L27*/ meltfnum[13] = !melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V56*/ meltfptr[55]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-outobj.melt:6137:/ cond"); - /*cond*/ - if (/*_#IS_NOT_A__L27*/ meltfnum[13]) /*then*/ + /*cond*/ if (/*_#IS_NOT_A__L27*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V76*/ meltfptr[72] = (/*nil*/NULL);; @@ -21025,31 +19155,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6137; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NEXP__V56*/ meltfptr[55]; - /*_.MELT_ASSERT_FAILURE_FUN__V77*/ - meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V76*/ - meltfptr[72] = /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[76];; + /*_._IFELSE___V76*/ meltfptr[72] = /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[76];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6137:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V77*/ - meltfptr[76] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[76] = 0 ; } ; } ; - /*_.IFCPP___V75*/ - meltfptr[73] = /*_._IFELSE___V76*/ meltfptr[72];; + /*_.IFCPP___V75*/ meltfptr[73] = /*_._IFELSE___V76*/ meltfptr[72];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6137:/ clear"); - /*clear*/ /*_#IS_NOT_A__L27*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#IS_NOT_A__L27*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V76*/ - meltfptr[72] = 0 ; + /*clear*/ /*_._IFELSE___V76*/ meltfptr[72] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21058,17 +19182,14 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-outobj.melt:6139:/ compute"); - /*_.NEWNBIND__V70*/ - meltfptr[69] = /*_.SETQ___V78*/ meltfptr[76] = (/*nil*/NULL);; + /*_.NEWNBIND__V70*/ meltfptr[69] = /*_.SETQ___V78*/ meltfptr[76] = (/*nil*/NULL);; MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L28*/ - meltfnum[21] = + /*_#IS_MULTIPLE__L28*/ meltfnum[21] = (melt_magic_discr((melt_ptr_t)(/*_.NEXP__V56*/ meltfptr[55])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-outobj.melt:6140:/ cond"); - /*cond*/ - if (/*_#IS_MULTIPLE__L28*/ meltfnum[21]) /*then*/ + /*cond*/ if (/*_#IS_MULTIPLE__L28*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21095,8 +19216,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L29*/ - meltfnum[13] = + /*_#MELT_NEED_DBG__L29*/ meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21105,8 +19225,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6141:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L29*/ meltfnum[13]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L29*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21139,20 +19258,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "give_normalized_macroexpanded_list multiple nexp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEXP__V56*/ meltfptr[55]; - /*_.MELT_DEBUG_FUN__V81*/ - meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V81*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V80*/ - meltfptr[79] = /*_.MELT_DEBUG_FUN__V81*/ meltfptr[80];; + /*_._IF___V80*/ meltfptr[79] = /*_.MELT_DEBUG_FUN__V81*/ meltfptr[80];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6141:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L30*/ - meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L30*/ meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V81*/ - meltfptr[80] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V81*/ meltfptr[80] = 0 ; } ; } @@ -21165,8 +19280,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6141:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -21175,11 +19289,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L29*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L29*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V80*/ - meltfptr[79] = 0 ; + /*clear*/ /*_._IF___V80*/ meltfptr[79] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21211,13 +19323,11 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V57*/ meltfptr[56]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V53*/ meltfptr[49]; - /*_.WRAP_NORMAL_LETSEQ__V82*/ - meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NEXP__V56*/ meltfptr[55]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.WRAP_NORMAL_LETSEQ__V82*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NEXP__V56*/ meltfptr[55]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.NEWNEXP__V69*/ - meltfptr[65] = /*_.SETQ___V83*/ meltfptr[79] = /*_.WRAP_NORMAL_LETSEQ__V82*/ meltfptr[80];; + /*_.NEWNEXP__V69*/ meltfptr[65] = /*_.SETQ___V83*/ meltfptr[79] = /*_.WRAP_NORMAL_LETSEQ__V82*/ meltfptr[80];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-outobj.melt:6143:/ cppif.then"); @@ -21238,8 +19348,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L31*/ - meltfnum[29] = + /*_#MELT_NEED_DBG__L31*/ meltfnum[29] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21248,8 +19357,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6143:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L31*/ meltfnum[29]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L31*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21282,20 +19390,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "give_normalized_macroexpanded_list wrapseq newnexp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWNEXP__V69*/ meltfptr[65]; - /*_.MELT_DEBUG_FUN__V85*/ - meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V85*/ meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V84*/ - meltfptr[83] = /*_.MELT_DEBUG_FUN__V85*/ meltfptr[84];; + /*_._IF___V84*/ meltfptr[83] = /*_.MELT_DEBUG_FUN__V85*/ meltfptr[84];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6143:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L32*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L32*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V85*/ - meltfptr[84] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V85*/ meltfptr[84] = 0 ; } ; } @@ -21308,8 +19412,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6143:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -21318,11 +19421,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L31*/ - meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L31*/ meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V84*/ - meltfptr[83] = 0 ; + /*clear*/ /*_._IF___V84*/ meltfptr[83] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21348,11 +19449,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V82*/ - meltfptr[80] = 0 ; + /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V82*/ meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V83*/ - meltfptr[79] = 0 ; + /*clear*/ /*_.SETQ___V83*/ meltfptr[79] = 0 ; } ; } @@ -21366,12 +19465,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L33*/ - meltfnum[13] = + /*_#IS_LIST__L33*/ meltfnum[13] = (melt_magic_discr((melt_ptr_t)(/*_.NEXP__V56*/ meltfptr[55])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:6144:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L33*/ meltfnum[13]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L33*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21389,8 +19486,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ - if ((/*nil*/NULL)) /*then*/ + /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V88*/ meltfptr[80] = (/*nil*/NULL);; @@ -21419,28 +19515,23 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6145; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NEXP__V56*/ meltfptr[55]; - /*_.MELT_ASSERT_FAILURE_FUN__V89*/ - meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V89*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V88*/ - meltfptr[80] = /*_.MELT_ASSERT_FAILURE_FUN__V89*/ meltfptr[79];; + /*_._IFELSE___V88*/ meltfptr[80] = /*_.MELT_ASSERT_FAILURE_FUN__V89*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6145:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V89*/ - meltfptr[79] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V89*/ meltfptr[79] = 0 ; } ; } ; - /*_.IFCPP___V87*/ - meltfptr[83] = /*_._IFELSE___V88*/ meltfptr[80];; + /*_.IFCPP___V87*/ meltfptr[83] = /*_._IFELSE___V88*/ meltfptr[80];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6145:/ clear"); - /*clear*/ /*_._IFELSE___V88*/ - meltfptr[80] = 0 ; + /*clear*/ /*_._IFELSE___V88*/ meltfptr[80] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21449,13 +19540,11 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_._IFELSE___V86*/ - meltfptr[84] = /*_.IFCPP___V87*/ meltfptr[83];; + /*_._IFELSE___V86*/ meltfptr[84] = /*_.IFCPP___V87*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6144:/ clear"); - /*clear*/ /*_.IFCPP___V87*/ - meltfptr[83] = 0 ; + /*clear*/ /*_.IFCPP___V87*/ meltfptr[83] = 0 ; } ; } @@ -21478,13 +19567,11 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V57*/ meltfptr[56]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V53*/ meltfptr[49]; - /*_.WRAP_NORMAL_LET1__V90*/ - meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NEXP__V56*/ meltfptr[55]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.WRAP_NORMAL_LET1__V90*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NEXP__V56*/ meltfptr[55]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.NEWNEXP__V69*/ - meltfptr[65] = /*_.SETQ___V91*/ meltfptr[80] = /*_.WRAP_NORMAL_LET1__V90*/ meltfptr[79];; + /*_.NEWNEXP__V69*/ meltfptr[65] = /*_.SETQ___V91*/ meltfptr[80] = /*_.WRAP_NORMAL_LET1__V90*/ meltfptr[79];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-outobj.melt:6148:/ cppif.then"); @@ -21505,8 +19592,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L34*/ - meltfnum[29] = + /*_#MELT_NEED_DBG__L34*/ meltfnum[29] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21515,8 +19601,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6148:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L34*/ meltfnum[29]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L34*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21549,20 +19634,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "give_normalized_macroexpanded_list wrap1 newnexp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWNEXP__V69*/ meltfptr[65]; - /*_.MELT_DEBUG_FUN__V93*/ - meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V93*/ meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V92*/ - meltfptr[83] = /*_.MELT_DEBUG_FUN__V93*/ meltfptr[92];; + /*_._IF___V92*/ meltfptr[83] = /*_.MELT_DEBUG_FUN__V93*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6148:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L35*/ - meltfnum[34] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L35*/ meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V93*/ - meltfptr[92] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V93*/ meltfptr[92] = 0 ; } ; } @@ -21575,8 +19656,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6148:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -21585,11 +19665,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L34*/ - meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L34*/ meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V92*/ - meltfptr[83] = 0 ; + /*clear*/ /*_._IF___V92*/ meltfptr[83] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21615,25 +19693,20 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6144:/ clear"); - /*clear*/ /*_.WRAP_NORMAL_LET1__V90*/ - meltfptr[79] = 0 ; + /*clear*/ /*_.WRAP_NORMAL_LET1__V90*/ meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V91*/ - meltfptr[80] = 0 ; + /*clear*/ /*_.SETQ___V91*/ meltfptr[80] = 0 ; } ; } ; - /*_._IFELSE___V79*/ - meltfptr[72] = /*_._IFELSE___V86*/ meltfptr[84];; + /*_._IFELSE___V79*/ meltfptr[72] = /*_._IFELSE___V86*/ meltfptr[84];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6140:/ clear"); - /*clear*/ /*_#IS_LIST__L33*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#IS_LIST__L33*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V86*/ - meltfptr[84] = 0 ; + /*clear*/ /*_._IFELSE___V86*/ meltfptr[84] = 0 ; } ; } @@ -21641,28 +19714,21 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6135:/ quasiblock"); - /*_.PROGN___V94*/ - meltfptr[92] = /*_._IFELSE___V79*/ meltfptr[72];; + /*_.PROGN___V94*/ meltfptr[92] = /*_._IFELSE___V79*/ meltfptr[72];; /*^compute*/ - /*_._IF___V72*/ - meltfptr[71] = /*_.PROGN___V94*/ meltfptr[92];; + /*_._IF___V72*/ meltfptr[71] = /*_.PROGN___V94*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6135:/ clear"); - /*clear*/ /*_.IFCPP___V75*/ - meltfptr[73] = 0 ; + /*clear*/ /*_.IFCPP___V75*/ meltfptr[73] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V78*/ - meltfptr[76] = 0 ; + /*clear*/ /*_.SETQ___V78*/ meltfptr[76] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_MULTIPLE__L28*/ - meltfnum[21] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L28*/ meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V79*/ - meltfptr[72] = 0 ; + /*clear*/ /*_._IFELSE___V79*/ meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V94*/ - meltfptr[92] = 0 ; + /*clear*/ /*_.PROGN___V94*/ meltfptr[92] = 0 ; } ; } @@ -21676,12 +19742,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_LIST__L36*/ - meltfnum[34] = + /*_#IS_LIST__L36*/ meltfnum[34] = (melt_magic_discr((melt_ptr_t)(/*_.NEWNEXP__V69*/ meltfptr[65])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:6151:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L36*/ meltfnum[34]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L36*/ meltfnum[34]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21698,17 +19762,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWNEXP__V69*/ meltfptr[65]; - /*_.LIST_APPEND2LIST__V96*/ - meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NORMLIST__V25*/ meltfptr[6]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V96*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NORMLIST__V25*/ meltfptr[6]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V95*/ - meltfptr[83] = /*_.LIST_APPEND2LIST__V96*/ meltfptr[79];; + /*_._IFELSE___V95*/ meltfptr[83] = /*_.LIST_APPEND2LIST__V96*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6151:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V96*/ - meltfptr[79] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V96*/ meltfptr[79] = 0 ; } ; } @@ -21722,12 +19783,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L37*/ - meltfnum[29] = + /*_#IS_MULTIPLE__L37*/ meltfnum[29] = (melt_magic_discr((melt_ptr_t)(/*_.NEWNEXP__V69*/ meltfptr[65])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-outobj.melt:6153:/ cond"); - /*cond*/ - if (/*_#IS_MULTIPLE__L37*/ meltfnum[29]) /*then*/ + /*cond*/ if (/*_#IS_MULTIPLE__L37*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21758,11 +19817,9 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6154:/ clear"); - /*clear*/ /*_.CURCOMP__V97*/ - meltfptr[80] = 0 ; + /*clear*/ /*_.CURCOMP__V97*/ meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_#CIX__L38*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#CIX__L38*/ meltfnum[13] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*epilog*/ @@ -21794,8 +19851,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6151:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L37*/ - meltfnum[29] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L37*/ meltfnum[29] = 0 ; } ; } @@ -21820,8 +19876,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L39*/ - meltfnum[21] = + /*_#MELT_NEED_DBG__L39*/ meltfnum[21] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21830,8 +19885,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6160:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L39*/ meltfnum[21]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L39*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21866,20 +19920,16 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.NORMLIST__V25*/ meltfptr[6]; - /*_.MELT_DEBUG_FUN__V99*/ - meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V99*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V98*/ - meltfptr[84] = /*_.MELT_DEBUG_FUN__V99*/ meltfptr[73];; + /*_._IF___V98*/ meltfptr[84] = /*_.MELT_DEBUG_FUN__V99*/ meltfptr[73];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6160:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L40*/ - meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L40*/ meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V99*/ - meltfptr[73] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V99*/ meltfptr[73] = 0 ; } ; } @@ -21892,8 +19942,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6160:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -21902,11 +19951,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L39*/ - meltfnum[21] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L39*/ meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V98*/ - meltfptr[84] = 0 ; + /*clear*/ /*_._IF___V98*/ meltfptr[84] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21936,16 +19983,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#LIST_LENGTH__L41*/ - meltfnum[29] = + /*_#LIST_LENGTH__L41*/ meltfnum[29] = (melt_list_length((melt_ptr_t)(/*_.NEWNBIND__V70*/ meltfptr[69])));; /*^compute*/ - /*_#eqeqI__L42*/ - meltfnum[21] = + /*_#eqeqI__L42*/ meltfnum[21] = ((/*_#LIST_LENGTH__L41*/ meltfnum[29]) == (0));; MELT_LOCATION("warmelt-outobj.melt:6162:/ cond"); - /*cond*/ - if (/*_#eqeqI__L42*/ meltfnum[21]) /*then*/ + /*cond*/ if (/*_#eqeqI__L42*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V101*/ meltfptr[72] = (/*nil*/NULL);; @@ -21974,34 +20018,27 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6162; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NEWNBIND__V70*/ meltfptr[69]; - /*_.MELT_ASSERT_FAILURE_FUN__V102*/ - meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V102*/ meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V101*/ - meltfptr[72] = /*_.MELT_ASSERT_FAILURE_FUN__V102*/ meltfptr[92];; + /*_._IFELSE___V101*/ meltfptr[72] = /*_.MELT_ASSERT_FAILURE_FUN__V102*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6162:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V102*/ - meltfptr[92] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V102*/ meltfptr[92] = 0 ; } ; } ; - /*_.IFCPP___V100*/ - meltfptr[76] = /*_._IFELSE___V101*/ meltfptr[72];; + /*_.IFCPP___V100*/ meltfptr[76] = /*_._IFELSE___V101*/ meltfptr[72];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6162:/ clear"); - /*clear*/ /*_#LIST_LENGTH__L41*/ - meltfnum[29] = 0 ; + /*clear*/ /*_#LIST_LENGTH__L41*/ meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeqI__L42*/ - meltfnum[21] = 0 ; + /*clear*/ /*_#eqeqI__L42*/ meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V101*/ - meltfptr[72] = 0 ; + /*clear*/ /*_._IFELSE___V101*/ meltfptr[72] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22010,75 +20047,55 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V68*/ - meltfptr[66] = /*_.IFCPP___V100*/ meltfptr[76];; + /*_.LET___V68*/ meltfptr[66] = /*_.IFCPP___V100*/ meltfptr[76];; MELT_LOCATION("warmelt-outobj.melt:6131:/ clear"); - /*clear*/ /*_.NEWNEXP__V69*/ - meltfptr[65] = 0 ; + /*clear*/ /*_.NEWNEXP__V69*/ meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWNBIND__V70*/ - meltfptr[69] = 0 ; + /*clear*/ /*_.NEWNBIND__V70*/ meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST_ELEMENT__V71*/ - meltfptr[70] = 0 ; + /*clear*/ /*_.LIST_FIRST_ELEMENT__V71*/ meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V72*/ - meltfptr[71] = 0 ; + /*clear*/ /*_._IF___V72*/ meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_LIST__L36*/ - meltfnum[34] = 0 ; + /*clear*/ /*_#IS_LIST__L36*/ meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V95*/ - meltfptr[83] = 0 ; + /*clear*/ /*_._IFELSE___V95*/ meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V100*/ - meltfptr[76] = 0 ; + /*clear*/ /*_.IFCPP___V100*/ meltfptr[76] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V55*/ - meltfptr[53] = /*_.LET___V68*/ meltfptr[66];; + /*_.MULTI___V55*/ meltfptr[53] = /*_.LET___V68*/ meltfptr[66];; MELT_LOCATION("warmelt-outobj.melt:6119:/ clear"); - /*clear*/ /*_.IFCPP___V60*/ - meltfptr[58] = 0 ; + /*clear*/ /*_.IFCPP___V60*/ meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V68*/ - meltfptr[66] = 0 ; + /*clear*/ /*_.LET___V68*/ meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V57*/ - meltfptr[56] = 0 ; - /*_.LET___V52*/ - meltfptr[50] = /*_.MULTI___V55*/ meltfptr[53];; + /*clear*/ /*_.NBIND__V57*/ meltfptr[56] = 0 ; + /*_.LET___V52*/ meltfptr[50] = /*_.MULTI___V55*/ meltfptr[53];; MELT_LOCATION("warmelt-outobj.melt:6116:/ clear"); - /*clear*/ /*_#IS_A__L20*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L20*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.PSLOC__V53*/ - meltfptr[49] = 0 ; + /*clear*/ /*_.PSLOC__V53*/ meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V55*/ - meltfptr[53] = 0 ; + /*clear*/ /*_.MULTI___V55*/ meltfptr[53] = 0 ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURPAIR__V48*/ meltfptr[36] = NULL; - /*_.SEXP__V49*/ - meltfptr[39] = NULL; + /*_.SEXP__V49*/ meltfptr[39] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6112:/ clear"); - /*clear*/ /*_.CURPAIR__V48*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.CURPAIR__V48*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.SEXP__V49*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.SEXP__V49*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V52*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.LET___V52*/ meltfptr[50] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -22101,8 +20118,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L43*/ - meltfnum[29] = + /*_#MELT_NEED_DBG__L43*/ meltfnum[29] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -22111,8 +20127,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6167:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L43*/ meltfnum[29]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L43*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22149,20 +20164,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n startclock="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#STARTCLOCK__L8*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V104*/ - meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V104*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V103*/ - meltfptr[79] = /*_.MELT_DEBUG_FUN__V104*/ meltfptr[73];; + /*_._IF___V103*/ meltfptr[79] = /*_.MELT_DEBUG_FUN__V104*/ meltfptr[73];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6167:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L44*/ - meltfnum[21] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L44*/ meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V104*/ - meltfptr[73] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V104*/ meltfptr[73] = 0 ; } ; } @@ -22175,8 +20186,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6167:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -22185,11 +20195,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L43*/ - meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L43*/ meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V103*/ - meltfptr[79] = 0 ; + /*clear*/ /*_._IF___V103*/ meltfptr[79] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22215,8 +20223,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6169:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.NORMLIST__V25*/ meltfptr[6];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.NORMLIST__V25*/ meltfptr[6];; MELT_LOCATION("warmelt-outobj.melt:6169:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_LONG) goto meltlabend_rout; @@ -22224,58 +20231,42 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V24*/ - meltfptr[22] = /*_.RETURN___V105*/ meltfptr[84];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V24*/ meltfptr[22] = /*_.RETURN___V105*/ meltfptr[84];; MELT_LOCATION("warmelt-outobj.melt:6062:/ clear"); - /*clear*/ /*_#STARTCLOCK__L8*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#STARTCLOCK__L8*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.NORMLIST__V25*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.NORMLIST__V25*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V27*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.LIST_FIRST__V27*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.FIRSTX__V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.FIRSTX__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L9*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L9*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.FIRSTLOC__V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.FIRSTLOC__V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.ERRORHDLR__V31*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.ERRORHDLR__V31*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MODINIENV__V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.MODINIENV__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.INIPROC__V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.INIPROC__V33*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.UCMEB1__V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.UCMEB1__V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L12*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#IS_A__L12*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V45*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.IFCPP___V45*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V105*/ - meltfptr[84] = 0 ; + /*clear*/ /*_.RETURN___V105*/ meltfptr[84] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6050:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V24*/ meltfptr[22];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V24*/ meltfptr[22];; { MELT_LOCATION("warmelt-outobj.melt:6050:/ locexp"); @@ -22290,28 +20281,21 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V12*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V18*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.IFCPP___V18*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V21*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.IFCPP___V21*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V24*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.LET___V24*/ meltfptr[22] = 0 ; } ; @@ -22392,8 +20376,7 @@ meltrout_127_WARMELTmiOUTOBJ_OUTPUT_HOOKS_WITH_MODVAR(meltclosure_ptr_t meltclos /* end of frame for routine meltrout_127_WARMELTmiOUTOBJ_OUTPUT_HOOKS_WITH_MODVAR fromline 1719 */ - /* classy proc frame meltrout_127_WARMELTmiOUTOBJ_OUTPUT_HOOKS_WITH_MODVAR */ - MeltFrame_meltrout_127_WARMELTmiOUTOBJ_OUTPUT_HOOKS_WITH_MODVAR + /* classy proc frame meltrout_127_WARMELTmiOUTOBJ_OUTPUT_HOOKS_WITH_MODVAR */ MeltFrame_meltrout_127_WARMELTmiOUTOBJ_OUTPUT_HOOKS_WITH_MODVAR meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_127_WARMELTmiOUTOBJ_OUTPUT_HOOKS_WITH_MODVAR fromline 1748*/ #if ENABLE_CHECKING @@ -22406,8 +20389,7 @@ meltrout_127_WARMELTmiOUTOBJ_OUTPUT_HOOKS_WITH_MODVAR(meltclosure_ptr_t meltclos #define meltframe meltfram__ melt_trace_start("OUTPUT_HOOKS_WITH_MODVAR", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -22417,30 +20399,26 @@ meltrout_127_WARMELTmiOUTOBJ_OUTPUT_HOOKS_WITH_MODVAR(meltclosure_ptr_t meltclos /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:6176:/ getarg"); - /*_.TUPHOOKS__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.TUPHOOKS__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODCTX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.DECLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.IMPLBUF__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.IMPLBUF__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4])) != NULL); ; @@ -22472,8 +20450,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)) @@ -22482,8 +20459,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6177:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22516,20 +20492,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "output_hooks_with_modvar tuphooks="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TUPHOOKS__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6177:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -22542,8 +20514,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6177:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -22552,11 +20523,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22579,8 +20548,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6178:/ quasiblock"); - /*_#NBHOOKS__L3*/ - meltfnum[1] = + /*_#NBHOOKS__L3*/ meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.TUPHOOKS__V2*/ meltfptr[1])));; MELT_CHECK_SIGNAL(); @@ -22596,8 +20564,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBHOOKS__L3*/ meltfnum[1]; /*^apply.arg*/ argtab[2].meltbp_cstring = " hooks in module variables declarations ***/\n"; - /*_.ADD2OUT__V9*/ - meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V9*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -22615,8 +20582,7 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[2].meltbp_cstring = " hooks in module variables implementations [by output_hooks_with_modvar\ ] ***/\n"; - /*_.ADD2OUT__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -22651,8 +20617,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ - meltfnum[4] = + /*_#MELT_NEED_DBG__L5*/ meltfnum[4] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -22661,8 +20626,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6186:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L5*/ meltfnum[4]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22699,20 +20663,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " hix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#HIX__L4*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!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__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!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___V12*/ - meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; + /*_._IF___V12*/ meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6186:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0 ; } ; } @@ -22725,8 +20685,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6186:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -22735,11 +20694,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ - meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_._IF___V12*/ meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22769,12 +20726,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ - meltfnum[5] = + /*_#IS_A__L7*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.CURHOOKROUT__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_HOOKROUTINEOBJ*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-outobj.melt:6187:/ cond"); - /*cond*/ - if (/*_#IS_A__L7*/ meltfnum[5]) /*then*/ + /*cond*/ if (/*_#IS_A__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[11] = (/*nil*/NULL);; @@ -22803,31 +20758,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6187; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURHOOKROUT__V11*/ meltfptr[10]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6187:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ - meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[11];; + /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6187:/ clear"); - /*clear*/ /*_#IS_A__L7*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#IS_A__L7*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[11] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22839,8 +20788,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURHOOKROUT__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ meltfrout->tabval[4]))) ) /*then*/ @@ -22851,8 +20799,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURHOOKROUT__V11*/ meltfptr[10]) /*=obj*/; melt_object_get_field(slot,obj, 2, "OBROUT_PROC"); - /*_.NHOOKPROC__V18*/ - meltfptr[11] = slot; + /*_.NHOOKPROC__V18*/ meltfptr[11] = slot; }; ; } @@ -22863,8 +20810,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6189:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NHOOKPROC__V18*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[5]))) ) /*then*/ @@ -22875,8 +20821,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NHOOKPROC__V18*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 9, "NRHOOK_DATAHOOK"); - /*_.NHOOKDATA__V19*/ - meltfptr[18] = slot; + /*_.NHOOKDATA__V19*/ meltfptr[18] = slot; }; ; } @@ -22887,8 +20832,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6190:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NHOOKDATA__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NREP_DATAHOOK*/ meltfrout->tabval[6]))) ) /*then*/ @@ -22899,8 +20843,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NHOOKDATA__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 9, "NDHOOK_MODVARBIND"); - /*_.MODVARBIND__V20*/ - meltfptr[19] = slot; + /*_.MODVARBIND__V20*/ meltfptr[19] = slot; }; ; } @@ -22911,8 +20854,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6191:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NHOOKPROC__V18*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[7]))) ) /*then*/ @@ -22923,8 +20865,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NHOOKPROC__V18*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NRCLOP_NAME"); - /*_.HKNAME__V21*/ - meltfptr[20] = slot; + /*_.HKNAME__V21*/ meltfptr[20] = slot; }; ; } @@ -22935,8 +20876,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6192:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NHOOKPROC__V18*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[7]))) ) /*then*/ @@ -22947,8 +20887,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NHOOKPROC__V18*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NRCLOP_ARGBINDTUPLE"); - /*_.HKINS__V22*/ - meltfptr[21] = slot; + /*_.HKINS__V22*/ meltfptr[21] = slot; }; ; } @@ -22959,8 +20898,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6193:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NHOOKPROC__V18*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[5]))) ) /*then*/ @@ -22971,8 +20909,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NHOOKPROC__V18*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NRHOOK_OUTB"); - /*_.HKOUTS__V23*/ - meltfptr[22] = slot; + /*_.HKOUTS__V23*/ meltfptr[22] = slot; }; ; } @@ -22983,8 +20920,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6194:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NHOOKPROC__V18*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[5]))) ) /*then*/ @@ -22995,8 +20931,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NHOOKPROC__V18*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 8, "NRHOOK_CTYPE"); - /*_.HKCTYPE__V24*/ - meltfptr[23] = slot; + /*_.HKCTYPE__V24*/ meltfptr[23] = slot; }; ; } @@ -23007,8 +20942,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6195:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.HKCTYPE__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8]))) ) /*then*/ @@ -23019,8 +20953,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.HKCTYPE__V24*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.HKCTYPENAME__V25*/ - meltfptr[24] = slot; + /*_.HKCTYPENAME__V25*/ meltfptr[24] = slot; }; ; } @@ -23031,8 +20964,7 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#NBPARAM__L8*/ - meltfnum[4] = 0;; + /*_#NBPARAM__L8*/ meltfnum[4] = 0;; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-outobj.melt:6198:/ cppif.then"); @@ -23053,8 +20985,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ - meltfnum[5] = + /*_#MELT_NEED_DBG__L9*/ meltfnum[5] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -23063,8 +20994,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6198:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L9*/ meltfnum[5]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23101,20 +21031,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n modvarbind="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODVARBIND__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V27*/ - meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), 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 ""), 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:6198:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0 ; } ; } @@ -23127,8 +21053,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6198:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -23137,11 +21062,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V26*/ meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23181,8 +21104,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ - meltfnum[9] = + /*_#MELT_NEED_DBG__L11*/ meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -23191,8 +21113,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6199:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L11*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23233,20 +21154,16 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n hkctype="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.HKCTYPE__V24*/ meltfptr[23]; - /*_.MELT_DEBUG_FUN__V29*/ - meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V29*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V28*/ - meltfptr[26] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[25];; + /*_._IF___V28*/ meltfptr[26] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6199:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ meltfptr[25] = 0 ; } ; } @@ -23259,8 +21176,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6199:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -23269,11 +21185,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V28*/ - meltfptr[26] = 0 ; + /*clear*/ /*_._IF___V28*/ meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23313,8 +21227,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ - meltfnum[5] = + /*_#MELT_NEED_DBG__L13*/ meltfnum[5] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -23323,8 +21236,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6200:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L13*/ meltfnum[5]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23361,20 +21273,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " hkouts="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.HKOUTS__V23*/ meltfptr[22]; - /*_.MELT_DEBUG_FUN__V31*/ - 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 ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V31*/ 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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V30*/ - meltfptr[25] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[26];; + /*_._IF___V30*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6200:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[26] = 0 ; } ; } @@ -23387,8 +21295,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6200:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -23397,11 +21304,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ - meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V30*/ meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23431,12 +21336,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L15*/ - meltfnum[9] = + /*_#IS_A__L15*/ meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.NHOOKPROC__V18*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-outobj.melt:6201:/ cond"); - /*cond*/ - if (/*_#IS_A__L15*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#IS_A__L15*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V33*/ meltfptr[25] = (/*nil*/NULL);; @@ -23465,31 +21368,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6201; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NHOOKPROC__V18*/ meltfptr[11]; - /*_.MELT_ASSERT_FAILURE_FUN__V34*/ - meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V33*/ - meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; + /*_._IFELSE___V33*/ meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6201:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = 0 ; } ; } ; - /*_.IFCPP___V32*/ - meltfptr[26] = /*_._IFELSE___V33*/ meltfptr[25];; + /*_.IFCPP___V32*/ meltfptr[26] = /*_._IFELSE___V33*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6201:/ clear"); - /*clear*/ /*_#IS_A__L15*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L15*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V33*/ - meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V33*/ meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23507,12 +21404,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L16*/ - meltfnum[5] = + /*_#IS_STRING__L16*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.HKNAME__V21*/ meltfptr[20])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-outobj.melt:6202:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L16*/ meltfnum[5]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L16*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V36*/ meltfptr[25] = (/*nil*/NULL);; @@ -23541,31 +21436,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6202; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20]; - /*_.MELT_ASSERT_FAILURE_FUN__V37*/ - meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V36*/ - meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36];; + /*_._IFELSE___V36*/ meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6202:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36] = 0 ; } ; } ; - /*_.IFCPP___V35*/ - meltfptr[33] = /*_._IFELSE___V36*/ meltfptr[25];; + /*_.IFCPP___V35*/ meltfptr[33] = /*_._IFELSE___V36*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6202:/ clear"); - /*clear*/ /*_#IS_STRING__L16*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#IS_STRING__L16*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V36*/ - meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V36*/ meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23583,12 +21472,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L17*/ - meltfnum[9] = + /*_#IS_A__L17*/ meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.HKCTYPE__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-outobj.melt:6203:/ cond"); - /*cond*/ - if (/*_#IS_A__L17*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#IS_A__L17*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V39*/ meltfptr[25] = (/*nil*/NULL);; @@ -23617,31 +21504,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6203; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKCTYPE__V24*/ meltfptr[23]; - /*_.MELT_ASSERT_FAILURE_FUN__V40*/ - meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V39*/ - meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V40*/ meltfptr[39];; + /*_._IFELSE___V39*/ meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6203:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V40*/ meltfptr[39] = 0 ; } ; } ; - /*_.IFCPP___V38*/ - meltfptr[36] = /*_._IFELSE___V39*/ meltfptr[25];; + /*_.IFCPP___V38*/ meltfptr[36] = /*_._IFELSE___V39*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6203:/ clear"); - /*clear*/ /*_#IS_A__L17*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L17*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V39*/ - meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V39*/ meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23669,8 +21550,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ - meltfnum[5] = + /*_#MELT_NEED_DBG__L18*/ meltfnum[5] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -23679,8 +21559,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6204:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L18*/ meltfnum[5]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23713,20 +21592,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "output_hooks_with_modvar nhookdata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NHOOKDATA__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V42*/ - meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V42*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V41*/ - meltfptr[39] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[25];; + /*_._IF___V41*/ meltfptr[39] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6204:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ meltfptr[25] = 0 ; } ; } @@ -23739,8 +21614,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6204:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -23749,11 +21623,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V41*/ - meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V41*/ meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23783,12 +21655,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L20*/ - meltfnum[9] = + /*_#IS_A__L20*/ meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.NHOOKDATA__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NREP_DATAHOOK*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-outobj.melt:6205:/ cond"); - /*cond*/ - if (/*_#IS_A__L20*/ meltfnum[9]) /*then*/ + /*cond*/ if (/*_#IS_A__L20*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V44*/ meltfptr[39] = (/*nil*/NULL);; @@ -23817,31 +21687,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6205; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NHOOKDATA__V19*/ meltfptr[18]; - /*_.MELT_ASSERT_FAILURE_FUN__V45*/ - meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V44*/ - meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44];; + /*_._IFELSE___V44*/ meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6205:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V45*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44] = 0 ; } ; } ; - /*_.IFCPP___V43*/ - meltfptr[25] = /*_._IFELSE___V44*/ meltfptr[39];; + /*_.IFCPP___V43*/ meltfptr[25] = /*_._IFELSE___V44*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6205:/ clear"); - /*clear*/ /*_#IS_A__L20*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L20*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V44*/ - meltfptr[39] = 0 ; + /*clear*/ /*_._IFELSE___V44*/ meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23865,8 +21729,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20]; /*^apply.arg*/ argtab[3].meltbp_cstring = " */\n"; - /*_.ADD2OUT__V46*/ - meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V46*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -23887,8 +21750,7 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20]; /*^apply.arg*/ argtab[4].meltbp_cstring = " ("; - /*_.ADD2OUT__V47*/ - meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V47*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -23907,8 +21769,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20]; /*^apply.arg*/ argtab[3].meltbp_cstring = " */\n"; - /*_.ADD2OUT__V48*/ - meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -23927,8 +21788,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20]; /*^apply.arg*/ argtab[3].meltbp_cstring = " ("; - /*_.ADD2OUT__V49*/ - meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -23951,8 +21811,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ - meltfnum[5] = + /*_#MELT_NEED_DBG__L21*/ meltfnum[5] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -23961,8 +21820,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6210:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L21*/ meltfnum[5]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23995,20 +21853,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "output_hooks_with_modvar hkins="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HKINS__V22*/ meltfptr[21]; - /*_.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:6210:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0 ; } ; } @@ -24021,8 +21875,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6210:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -24031,11 +21884,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V50*/ - meltfptr[49] = 0 ; + /*clear*/ /*_._IF___V50*/ meltfptr[49] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24087,8 +21938,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L24*/ - meltfnum[5] = + /*_#MELT_NEED_DBG__L24*/ meltfnum[5] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -24097,8 +21947,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6216:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L24*/ meltfnum[5]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L24*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24135,20 +21984,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " inix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#INIX__L23*/ meltfnum[9]; - /*_.MELT_DEBUG_FUN__V54*/ - meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V53*/ - meltfptr[49] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53];; + /*_._IF___V53*/ meltfptr[49] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6216:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L25*/ - meltfnum[24] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L25*/ meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ - meltfptr[53] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53] = 0 ; } ; } @@ -24161,8 +22006,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6216:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -24171,11 +22015,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L24*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L24*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V53*/ - meltfptr[49] = 0 ; + /*clear*/ /*_._IF___V53*/ meltfptr[49] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24198,12 +22040,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#gtI__L26*/ - meltfnum[24] = + /*_#gtI__L26*/ meltfnum[24] = ((/*_#NBPARAM__L8*/ meltfnum[4]) > (0));; MELT_LOCATION("warmelt-outobj.melt:6217:/ cond"); - /*cond*/ - if (/*_#gtI__L26*/ meltfnum[24]) /*then*/ + /*cond*/ if (/*_#gtI__L26*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24220,8 +22060,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ", "; - /*_.ADD2OUT__V56*/ - meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V56*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -24234,29 +22073,23 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ", "; - /*_.ADD2OUT__V57*/ - meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6217:/ quasiblock"); - /*_.PROGN___V58*/ - meltfptr[57] = /*_.ADD2OUT__V57*/ meltfptr[56];; + /*_.PROGN___V58*/ meltfptr[57] = /*_.ADD2OUT__V57*/ meltfptr[56];; /*^compute*/ - /*_._IF___V55*/ - meltfptr[53] = /*_.PROGN___V58*/ meltfptr[57];; + /*_._IF___V55*/ meltfptr[53] = /*_.PROGN___V58*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6217:/ clear"); - /*clear*/ /*_.ADD2OUT__V56*/ - meltfptr[49] = 0 ; + /*clear*/ /*_.ADD2OUT__V56*/ meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V57*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.ADD2OUT__V57*/ meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V58*/ - meltfptr[57] = 0 ; + /*clear*/ /*_.PROGN___V58*/ meltfptr[57] = 0 ; } ; } @@ -24267,12 +22100,10 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#plI__L27*/ - meltfnum[5] = + /*_#plI__L27*/ meltfnum[5] = ((/*_#NBPARAM__L8*/ meltfnum[4]) + (1));; MELT_LOCATION("warmelt-outobj.melt:6220:/ compute"); - /*_#NBPARAM__L8*/ - meltfnum[4] = /*_#SETQ___L28*/ meltfnum[27] = /*_#plI__L27*/ meltfnum[5];; + /*_#NBPARAM__L8*/ meltfnum[4] = /*_#SETQ___L28*/ meltfnum[27] = /*_#plI__L27*/ meltfnum[5];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-outobj.melt:6221:/ cppif.then"); @@ -24283,12 +22114,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L29*/ - meltfnum[28] = + /*_#IS_A__L29*/ meltfnum[28] = melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V52*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-outobj.melt:6221:/ cond"); - /*cond*/ - if (/*_#IS_A__L29*/ meltfnum[28]) /*then*/ + /*cond*/ if (/*_#IS_A__L29*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V60*/ meltfptr[56] = (/*nil*/NULL);; @@ -24317,31 +22146,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6221; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURINSB__V52*/ meltfptr[50]; - /*_.MELT_ASSERT_FAILURE_FUN__V61*/ - meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V61*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V60*/ - meltfptr[56] = /*_.MELT_ASSERT_FAILURE_FUN__V61*/ meltfptr[57];; + /*_._IFELSE___V60*/ meltfptr[56] = /*_.MELT_ASSERT_FAILURE_FUN__V61*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6221:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V61*/ - meltfptr[57] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V61*/ meltfptr[57] = 0 ; } ; } ; - /*_.IFCPP___V59*/ - meltfptr[49] = /*_._IFELSE___V60*/ meltfptr[56];; + /*_.IFCPP___V59*/ meltfptr[49] = /*_._IFELSE___V60*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6221:/ clear"); - /*clear*/ /*_#IS_A__L29*/ - meltfnum[28] = 0 ; + /*clear*/ /*_#IS_A__L29*/ meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V60*/ - meltfptr[56] = 0 ; + /*clear*/ /*_._IFELSE___V60*/ meltfptr[56] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24350,8 +22173,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-outobj.melt:6222:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V52*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[9]))) ) /*then*/ @@ -24362,8 +22184,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINSB__V52*/ meltfptr[50]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V62*/ - meltfptr[57] = slot; + /*_.FBIND_TYPE__V62*/ meltfptr[57] = slot; }; ; } @@ -24374,8 +22195,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6222:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V62*/ meltfptr[57]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8]))) ) /*then*/ @@ -24386,8 +22206,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V62*/ meltfptr[57]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V63*/ - meltfptr[56] = slot; + /*_.CTYPE_CNAME__V63*/ meltfptr[56] = slot; }; ; } @@ -24407,13 +22226,11 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPE_CNAME__V63*/ meltfptr[56]; - /*_.ADD2OUT__V64*/ - meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6223:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V52*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[10]))) ) /*then*/ @@ -24424,8 +22241,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINSB__V52*/ meltfptr[50]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V65*/ - meltfptr[64] = slot; + /*_.BINDER__V65*/ meltfptr[64] = slot; }; ; } @@ -24436,8 +22252,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6223:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V65*/ meltfptr[64]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11]))) ) /*then*/ @@ -24448,8 +22263,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V65*/ meltfptr[64]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V66*/ - meltfptr[65] = slot; + /*_.NAMED_NAME__V66*/ meltfptr[65] = slot; }; ; } @@ -24475,13 +22289,11 @@ meltlab_endgetargs: argtab[2].meltbp_cstring = "_p"; /*^apply.arg*/ argtab[3].meltbp_long = /*_#INIX__L23*/ meltfnum[9]; - /*_.ADD2OUT__V67*/ - meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6224:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V52*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[9]))) ) /*then*/ @@ -24492,8 +22304,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINSB__V52*/ meltfptr[50]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V68*/ - meltfptr[67] = slot; + /*_.FBIND_TYPE__V68*/ meltfptr[67] = slot; }; ; } @@ -24504,8 +22315,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6224:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V68*/ meltfptr[67]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8]))) ) /*then*/ @@ -24516,8 +22326,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V68*/ meltfptr[67]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V69*/ - meltfptr[68] = slot; + /*_.CTYPE_CNAME__V69*/ meltfptr[68] = slot; }; ; } @@ -24537,13 +22346,11 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPE_CNAME__V69*/ meltfptr[68]; - /*_.ADD2OUT__V70*/ - meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V70*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6225:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V52*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[10]))) ) /*then*/ @@ -24554,8 +22361,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINSB__V52*/ meltfptr[50]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V71*/ - meltfptr[70] = slot; + /*_.BINDER__V71*/ meltfptr[70] = slot; }; ; } @@ -24566,8 +22372,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6225:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V71*/ meltfptr[70]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11]))) ) /*then*/ @@ -24578,8 +22383,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V71*/ meltfptr[70]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V72*/ - meltfptr[71] = slot; + /*_.NAMED_NAME__V72*/ meltfptr[71] = slot; }; ; } @@ -24605,8 +22409,7 @@ meltlab_endgetargs: argtab[2].meltbp_cstring = "_p"; /*^apply.arg*/ argtab[3].meltbp_long = /*_#INIX__L23*/ meltfnum[9]; - /*_.ADD2OUT__V73*/ - meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V73*/ meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#INIX__L23*/ meltfnum[9]<0) break; @@ -24615,62 +22418,43 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6213:/ clear"); - /*clear*/ /*_.CURINSB__V52*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.CURINSB__V52*/ meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_#INIX__L23*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#INIX__L23*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L26*/ - meltfnum[24] = 0 ; + /*clear*/ /*_#gtI__L26*/ meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V55*/ - meltfptr[53] = 0 ; + /*clear*/ /*_._IF___V55*/ meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L27*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#plI__L27*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L28*/ - meltfnum[27] = 0 ; + /*clear*/ /*_#SETQ___L28*/ meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V59*/ - meltfptr[49] = 0 ; + /*clear*/ /*_.IFCPP___V59*/ meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V62*/ - meltfptr[57] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V62*/ meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V63*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V63*/ meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V64*/ - meltfptr[63] = 0 ; + /*clear*/ /*_.ADD2OUT__V64*/ meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V65*/ - meltfptr[64] = 0 ; + /*clear*/ /*_.BINDER__V65*/ meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V66*/ - meltfptr[65] = 0 ; + /*clear*/ /*_.NAMED_NAME__V66*/ meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V67*/ - meltfptr[66] = 0 ; + /*clear*/ /*_.ADD2OUT__V67*/ meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V68*/ - meltfptr[67] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V68*/ meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V69*/ - meltfptr[68] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V69*/ meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V70*/ - meltfptr[69] = 0 ; + /*clear*/ /*_.ADD2OUT__V70*/ meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V71*/ - meltfptr[70] = 0 ; + /*clear*/ /*_.BINDER__V71*/ meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V72*/ - meltfptr[71] = 0 ; + /*clear*/ /*_.NAMED_NAME__V72*/ meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V73*/ - meltfptr[72] = 0 ; + /*clear*/ /*_.ADD2OUT__V73*/ meltfptr[72] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -24705,8 +22489,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L31*/ - meltfnum[30] = + /*_#MELT_NEED_DBG__L31*/ meltfnum[30] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -24715,8 +22498,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6231:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L31*/ meltfnum[30]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L31*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24753,20 +22535,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " outix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#OUTIX__L30*/ meltfnum[28]; - /*_.MELT_DEBUG_FUN__V76*/ - meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V75*/ - meltfptr[74] = /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75];; + /*_._IF___V75*/ meltfptr[74] = /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6231:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L32*/ - meltfnum[31] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L32*/ meltfnum[31] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V76*/ - meltfptr[75] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75] = 0 ; } ; } @@ -24779,8 +22557,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6231:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -24789,11 +22566,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L31*/ - meltfnum[30] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L31*/ meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V75*/ - meltfptr[74] = 0 ; + /*clear*/ /*_._IF___V75*/ meltfptr[74] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24816,12 +22591,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#gtI__L33*/ - meltfnum[31] = + /*_#gtI__L33*/ meltfnum[31] = ((/*_#NBPARAM__L8*/ meltfnum[4]) > (0));; MELT_LOCATION("warmelt-outobj.melt:6232:/ cond"); - /*cond*/ - if (/*_#gtI__L33*/ meltfnum[31]) /*then*/ + /*cond*/ if (/*_#gtI__L33*/ meltfnum[31]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24838,8 +22611,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ", "; - /*_.ADD2OUT__V78*/ - meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V78*/ meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -24852,29 +22624,23 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ", "; - /*_.ADD2OUT__V79*/ - meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V79*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6232:/ quasiblock"); - /*_.PROGN___V80*/ - meltfptr[79] = /*_.ADD2OUT__V79*/ meltfptr[78];; + /*_.PROGN___V80*/ meltfptr[79] = /*_.ADD2OUT__V79*/ meltfptr[78];; /*^compute*/ - /*_._IF___V77*/ - meltfptr[75] = /*_.PROGN___V80*/ meltfptr[79];; + /*_._IF___V77*/ meltfptr[75] = /*_.PROGN___V80*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6232:/ clear"); - /*clear*/ /*_.ADD2OUT__V78*/ - meltfptr[74] = 0 ; + /*clear*/ /*_.ADD2OUT__V78*/ meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V79*/ - meltfptr[78] = 0 ; + /*clear*/ /*_.ADD2OUT__V79*/ meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V80*/ - meltfptr[79] = 0 ; + /*clear*/ /*_.PROGN___V80*/ meltfptr[79] = 0 ; } ; } @@ -24885,15 +22651,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#plI__L34*/ - meltfnum[30] = + /*_#plI__L34*/ meltfnum[30] = ((/*_#NBPARAM__L8*/ meltfnum[4]) + (1));; MELT_LOCATION("warmelt-outobj.melt:6235:/ compute"); - /*_#NBPARAM__L8*/ - meltfnum[4] = /*_#SETQ___L35*/ meltfnum[34] = /*_#plI__L34*/ meltfnum[30];; + /*_#NBPARAM__L8*/ meltfnum[4] = /*_#SETQ___L35*/ meltfnum[34] = /*_#plI__L34*/ meltfnum[30];; MELT_LOCATION("warmelt-outobj.melt:6237:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTB__V74*/ meltfptr[73]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[9]))) ) /*then*/ @@ -24904,8 +22667,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTB__V74*/ meltfptr[73]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V81*/ - meltfptr[74] = slot; + /*_.FBIND_TYPE__V81*/ meltfptr[74] = slot; }; ; } @@ -24916,8 +22678,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6237:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V81*/ meltfptr[74]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8]))) ) /*then*/ @@ -24928,8 +22689,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V81*/ meltfptr[74]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V82*/ - meltfptr[78] = slot; + /*_.CTYPE_CNAME__V82*/ meltfptr[78] = slot; }; ; } @@ -24940,8 +22700,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6238:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTB__V74*/ meltfptr[73]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[10]))) ) /*then*/ @@ -24952,8 +22711,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTB__V74*/ meltfptr[73]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V83*/ - meltfptr[79] = slot; + /*_.BINDER__V83*/ meltfptr[79] = slot; }; ; } @@ -24964,8 +22722,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6238:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V83*/ meltfptr[79]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11]))) ) /*then*/ @@ -24976,8 +22733,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V83*/ meltfptr[79]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V84*/ - meltfptr[83] = slot; + /*_.NAMED_NAME__V84*/ meltfptr[83] = slot; }; ; } @@ -25005,8 +22761,7 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "_o"; /*^apply.arg*/ argtab[4].meltbp_long = /*_#OUTIX__L30*/ meltfnum[28]; - /*_.ADD2OUT__V85*/ - meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V85*/ meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -25019,13 +22774,11 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ", "; - /*_.ADD2OUT__V86*/ - meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V86*/ meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6240:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTB__V74*/ meltfptr[73]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[9]))) ) /*then*/ @@ -25036,8 +22789,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTB__V74*/ meltfptr[73]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V87*/ - meltfptr[86] = slot; + /*_.FBIND_TYPE__V87*/ meltfptr[86] = slot; }; ; } @@ -25048,8 +22800,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6240:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V87*/ meltfptr[86]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8]))) ) /*then*/ @@ -25060,8 +22811,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V87*/ meltfptr[86]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V88*/ - meltfptr[87] = slot; + /*_.CTYPE_CNAME__V88*/ meltfptr[87] = slot; }; ; } @@ -25081,13 +22831,11 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPE_CNAME__V88*/ meltfptr[87]; - /*_.ADD2OUT__V89*/ - meltfptr[88] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V89*/ meltfptr[88] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6241:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTB__V74*/ meltfptr[73]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[10]))) ) /*then*/ @@ -25098,8 +22846,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTB__V74*/ meltfptr[73]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V90*/ - meltfptr[89] = slot; + /*_.BINDER__V90*/ meltfptr[89] = slot; }; ; } @@ -25110,8 +22857,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6241:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V90*/ meltfptr[89]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11]))) ) /*then*/ @@ -25122,8 +22868,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V90*/ meltfptr[89]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V91*/ - meltfptr[90] = slot; + /*_.NAMED_NAME__V91*/ meltfptr[90] = slot; }; ; } @@ -25149,8 +22894,7 @@ meltlab_endgetargs: argtab[2].meltbp_cstring = "_o"; /*^apply.arg*/ argtab[3].meltbp_long = /*_#OUTIX__L30*/ meltfnum[28]; - /*_.ADD2OUT__V92*/ - meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V92*/ meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#OUTIX__L30*/ meltfnum[28]<0) break; @@ -25159,59 +22903,41 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6228:/ clear"); - /*clear*/ /*_.CUROUTB__V74*/ - meltfptr[73] = 0 ; + /*clear*/ /*_.CUROUTB__V74*/ meltfptr[73] = 0 ; /*^clear*/ - /*clear*/ /*_#OUTIX__L30*/ - meltfnum[28] = 0 ; + /*clear*/ /*_#OUTIX__L30*/ meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L33*/ - meltfnum[31] = 0 ; + /*clear*/ /*_#gtI__L33*/ meltfnum[31] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V77*/ - meltfptr[75] = 0 ; + /*clear*/ /*_._IF___V77*/ meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L34*/ - meltfnum[30] = 0 ; + /*clear*/ /*_#plI__L34*/ meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L35*/ - meltfnum[34] = 0 ; + /*clear*/ /*_#SETQ___L35*/ meltfnum[34] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V81*/ - meltfptr[74] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V81*/ meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V82*/ - meltfptr[78] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V82*/ meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V83*/ - meltfptr[79] = 0 ; + /*clear*/ /*_.BINDER__V83*/ meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V84*/ - meltfptr[83] = 0 ; + /*clear*/ /*_.NAMED_NAME__V84*/ meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V85*/ - meltfptr[84] = 0 ; + /*clear*/ /*_.ADD2OUT__V85*/ meltfptr[84] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V86*/ - meltfptr[85] = 0 ; + /*clear*/ /*_.ADD2OUT__V86*/ meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V87*/ - meltfptr[86] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V87*/ meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V88*/ - meltfptr[87] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V88*/ meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V89*/ - meltfptr[88] = 0 ; + /*clear*/ /*_.ADD2OUT__V89*/ meltfptr[88] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V90*/ - meltfptr[89] = 0 ; + /*clear*/ /*_.BINDER__V90*/ meltfptr[89] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V91*/ - meltfptr[90] = 0 ; + /*clear*/ /*_.NAMED_NAME__V91*/ meltfptr[90] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V92*/ - meltfptr[91] = 0 ; + /*clear*/ /*_.ADD2OUT__V92*/ meltfptr[91] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -25224,8 +22950,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ");\n"; - /*_.ADD2OUT__V93*/ - meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V93*/ meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25240,8 +22965,7 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = ")\n"; /*^apply.arg*/ argtab[1].meltbp_cstring = "{\n"; - /*_.ADD2OUT__V94*/ - meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V94*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25262,8 +22986,7 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20]; /*^apply.arg*/ argtab[4].meltbp_cstring = "_t ("; - /*_.ADD2OUT__V95*/ - meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V95*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25276,8 +22999,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "melt_ptr_t"; - /*_.ADD2OUT__V96*/ - meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V96*/ meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -25293,8 +23015,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6251:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V97*/ meltfptr[96]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[9]))) ) /*then*/ @@ -25305,8 +23026,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINSB__V97*/ meltfptr[96]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V98*/ - meltfptr[97] = slot; + /*_.FBIND_TYPE__V98*/ meltfptr[97] = slot; }; ; } @@ -25317,8 +23037,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6251:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V98*/ meltfptr[97]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8]))) ) /*then*/ @@ -25329,8 +23048,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V98*/ meltfptr[97]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V99*/ - meltfptr[98] = slot; + /*_.CTYPE_CNAME__V99*/ meltfptr[98] = slot; }; ; } @@ -25352,8 +23070,7 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = ", "; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPE_CNAME__V99*/ meltfptr[98]; - /*_.ADD2OUT__V100*/ - meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V100*/ meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#INIX__L36*/ meltfnum[35]<0) break; @@ -25362,20 +23079,15 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6248:/ clear"); - /*clear*/ /*_.CURINSB__V97*/ - meltfptr[96] = 0 ; + /*clear*/ /*_.CURINSB__V97*/ meltfptr[96] = 0 ; /*^clear*/ - /*clear*/ /*_#INIX__L36*/ - meltfnum[35] = 0 ; + /*clear*/ /*_#INIX__L36*/ meltfnum[35] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V98*/ - meltfptr[97] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V98*/ meltfptr[97] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V99*/ - meltfptr[98] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V99*/ meltfptr[98] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V100*/ - meltfptr[99] = 0 ; + /*clear*/ /*_.ADD2OUT__V100*/ meltfptr[99] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -25391,8 +23103,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6256:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTB__V101*/ meltfptr[100]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[9]))) ) /*then*/ @@ -25403,8 +23114,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTB__V101*/ meltfptr[100]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V102*/ - meltfptr[101] = slot; + /*_.FBIND_TYPE__V102*/ meltfptr[101] = slot; }; ; } @@ -25415,8 +23125,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6256:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V102*/ meltfptr[101]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8]))) ) /*then*/ @@ -25427,8 +23136,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V102*/ meltfptr[101]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V103*/ - meltfptr[102] = slot; + /*_.CTYPE_CNAME__V103*/ meltfptr[102] = slot; }; ; } @@ -25452,8 +23160,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPE_CNAME__V103*/ meltfptr[102]; /*^apply.arg*/ argtab[2].meltbp_cstring = "* "; - /*_.ADD2OUT__V104*/ - meltfptr[103] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V104*/ meltfptr[103] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#OUTIX__L37*/ meltfnum[36]<0) break; @@ -25462,20 +23169,15 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6253:/ clear"); - /*clear*/ /*_.CUROUTB__V101*/ - meltfptr[100] = 0 ; + /*clear*/ /*_.CUROUTB__V101*/ meltfptr[100] = 0 ; /*^clear*/ - /*clear*/ /*_#OUTIX__L37*/ - meltfnum[36] = 0 ; + /*clear*/ /*_#OUTIX__L37*/ meltfnum[36] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V102*/ - meltfptr[101] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V102*/ meltfptr[101] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V103*/ - meltfptr[102] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V103*/ meltfptr[102] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V104*/ - meltfptr[103] = 0 ; + /*clear*/ /*_.ADD2OUT__V104*/ meltfptr[103] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -25488,8 +23190,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ");"; - /*_.ADD2OUT__V105*/ - meltfptr[104] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V105*/ meltfptr[104] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25508,8 +23209,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " melthook_ptr_t melthkp = (melthook_ptr_t) melt_module_var_fetch ("; - /*_.ADD2OUT__V106*/ - meltfptr[105] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V106*/ meltfptr[105] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25522,8 +23222,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MODVARBIND__V20*/ meltfptr[19]; - /*_.OUT_ENUMIX_MODVARBIND__V107*/ - meltfptr[106] = melt_apply ((meltclosure_ptr_t)((/*!OUT_ENUMIX_MODVARBIND*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUT_ENUMIX_MODVARBIND__V107*/ meltfptr[106] = melt_apply ((meltclosure_ptr_t)((/*!OUT_ENUMIX_MODVARBIND*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -25536,8 +23235,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ");\n"; - /*_.ADD2OUT__V108*/ - meltfptr[107] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V108*/ meltfptr[107] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25560,8 +23258,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20]; /*^apply.arg*/ argtab[2].meltbp_cstring = " exists\", "; - /*_.ADD2OUT__V109*/ - meltfptr[108] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V109*/ meltfptr[108] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25580,8 +23277,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " melthkp != NULL);"; - /*_.ADD2OUT__V110*/ - meltfptr[109] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V110*/ meltfptr[109] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25604,8 +23300,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20]; /*^apply.arg*/ argtab[2].meltbp_cstring = " \", "; - /*_.ADD2OUT__V111*/ - meltfptr[110] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V111*/ meltfptr[110] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25624,8 +23319,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " melt_magic_discr ((melt_ptr_t) melthkp) == MELTOBMAG_HOOK);"; - /*_.ADD2OUT__V112*/ - meltfptr[111] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V112*/ meltfptr[111] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25668,8 +23362,7 @@ meltlab_endgetargs: argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20]; /*^apply.arg*/ argtab[12].meltbp_cstring = ");\n"; - /*_.ADD2OUT__V113*/ - meltfptr[112] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (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__V113*/ meltfptr[112] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (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); } ; @@ -25692,8 +23385,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20]; /*^apply.arg*/ argtab[2].meltbp_cstring = ") ((melt_ptr_t)melthkp"; - /*_.ADD2OUT__V114*/ - meltfptr[113] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V114*/ meltfptr[113] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -25718,8 +23410,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ","; - /*_.ADD2OUT__V116*/ - meltfptr[115] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V116*/ meltfptr[115] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25729,8 +23420,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6289:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V115*/ meltfptr[114]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[10]))) ) /*then*/ @@ -25741,8 +23431,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINSB__V115*/ meltfptr[114]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V117*/ - meltfptr[116] = slot; + /*_.BINDER__V117*/ meltfptr[116] = slot; }; ; } @@ -25753,8 +23442,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6289:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V117*/ meltfptr[116]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11]))) ) /*then*/ @@ -25765,8 +23453,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V117*/ meltfptr[116]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V118*/ - meltfptr[117] = slot; + /*_.NAMED_NAME__V118*/ meltfptr[117] = slot; }; ; } @@ -25792,8 +23479,7 @@ meltlab_endgetargs: argtab[2].meltbp_cstring = "_p"; /*^apply.arg*/ argtab[3].meltbp_long = /*_#INIX__L38*/ meltfnum[37]; - /*_.ADD2OUT__V119*/ - meltfptr[118] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V119*/ meltfptr[118] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#INIX__L38*/ meltfnum[37]<0) break; @@ -25802,23 +23488,17 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6284:/ clear"); - /*clear*/ /*_.CURINSB__V115*/ - meltfptr[114] = 0 ; + /*clear*/ /*_.CURINSB__V115*/ meltfptr[114] = 0 ; /*^clear*/ - /*clear*/ /*_#INIX__L38*/ - meltfnum[37] = 0 ; + /*clear*/ /*_#INIX__L38*/ meltfnum[37] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V116*/ - meltfptr[115] = 0 ; + /*clear*/ /*_.ADD2OUT__V116*/ meltfptr[115] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V117*/ - meltfptr[116] = 0 ; + /*clear*/ /*_.BINDER__V117*/ meltfptr[116] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V118*/ - meltfptr[117] = 0 ; + /*clear*/ /*_.NAMED_NAME__V118*/ meltfptr[117] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V119*/ - meltfptr[118] = 0 ; + /*clear*/ /*_.ADD2OUT__V119*/ meltfptr[118] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -25843,8 +23523,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ","; - /*_.ADD2OUT__V121*/ - meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V121*/ meltfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25854,8 +23533,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6296:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTB__V120*/ meltfptr[119]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[10]))) ) /*then*/ @@ -25866,8 +23544,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTB__V120*/ meltfptr[119]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V122*/ - meltfptr[121] = slot; + /*_.BINDER__V122*/ meltfptr[121] = slot; }; ; } @@ -25878,8 +23555,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6296:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V122*/ meltfptr[121]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11]))) ) /*then*/ @@ -25890,8 +23566,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V122*/ meltfptr[121]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V123*/ - meltfptr[122] = slot; + /*_.NAMED_NAME__V123*/ meltfptr[122] = slot; }; ; } @@ -25917,8 +23592,7 @@ meltlab_endgetargs: argtab[2].meltbp_cstring = "_o"; /*^apply.arg*/ argtab[3].meltbp_long = /*_#OUTIX__L39*/ meltfnum[38]; - /*_.ADD2OUT__V124*/ - meltfptr[123] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V124*/ meltfptr[123] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#OUTIX__L39*/ meltfnum[38]<0) break; @@ -25927,23 +23601,17 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6291:/ clear"); - /*clear*/ /*_.CUROUTB__V120*/ - meltfptr[119] = 0 ; + /*clear*/ /*_.CUROUTB__V120*/ meltfptr[119] = 0 ; /*^clear*/ - /*clear*/ /*_#OUTIX__L39*/ - meltfnum[38] = 0 ; + /*clear*/ /*_#OUTIX__L39*/ meltfnum[38] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V121*/ - meltfptr[120] = 0 ; + /*clear*/ /*_.ADD2OUT__V121*/ meltfptr[120] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V122*/ - meltfptr[121] = 0 ; + /*clear*/ /*_.BINDER__V122*/ meltfptr[121] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V123*/ - meltfptr[122] = 0 ; + /*clear*/ /*_.NAMED_NAME__V123*/ meltfptr[122] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V124*/ - meltfptr[123] = 0 ; + /*clear*/ /*_.ADD2OUT__V124*/ meltfptr[123] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -25956,8 +23624,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ");"; - /*_.ADD2OUT__V125*/ - meltfptr[124] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V125*/ meltfptr[124] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25980,129 +23647,90 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20]; /*^apply.arg*/ argtab[2].meltbp_cstring = " **/\n\n"; - /*_.ADD2OUT__V126*/ - meltfptr[125] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V126*/ meltfptr[125] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V17*/ - meltfptr[15] = /*_.ADD2OUT__V126*/ meltfptr[125];; + /*_.LET___V17*/ meltfptr[15] = /*_.ADD2OUT__V126*/ meltfptr[125];; MELT_LOCATION("warmelt-outobj.melt:6188:/ clear"); - /*clear*/ /*_.NHOOKPROC__V18*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.NHOOKPROC__V18*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.NHOOKDATA__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.NHOOKDATA__V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MODVARBIND__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.MODVARBIND__V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.HKNAME__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.HKNAME__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.HKINS__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.HKINS__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.HKOUTS__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.HKOUTS__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.HKCTYPE__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.HKCTYPE__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.HKCTYPENAME__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.HKCTYPENAME__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_#NBPARAM__L8*/ - meltfnum[4] = 0 ; + /*clear*/ /*_#NBPARAM__L8*/ meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V32*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.IFCPP___V32*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V35*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.IFCPP___V35*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V38*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.IFCPP___V38*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V43*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.IFCPP___V43*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V46*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.ADD2OUT__V46*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V47*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.ADD2OUT__V47*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V48*/ - meltfptr[47] = 0 ; + /*clear*/ /*_.ADD2OUT__V48*/ meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V49*/ - meltfptr[48] = 0 ; + /*clear*/ /*_.ADD2OUT__V49*/ meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V93*/ - meltfptr[92] = 0 ; + /*clear*/ /*_.ADD2OUT__V93*/ meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V94*/ - meltfptr[93] = 0 ; + /*clear*/ /*_.ADD2OUT__V94*/ meltfptr[93] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V95*/ - meltfptr[94] = 0 ; + /*clear*/ /*_.ADD2OUT__V95*/ meltfptr[94] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V96*/ - meltfptr[95] = 0 ; + /*clear*/ /*_.ADD2OUT__V96*/ meltfptr[95] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V105*/ - meltfptr[104] = 0 ; + /*clear*/ /*_.ADD2OUT__V105*/ meltfptr[104] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V106*/ - meltfptr[105] = 0 ; + /*clear*/ /*_.ADD2OUT__V106*/ meltfptr[105] = 0 ; /*^clear*/ - /*clear*/ /*_.OUT_ENUMIX_MODVARBIND__V107*/ - meltfptr[106] = 0 ; + /*clear*/ /*_.OUT_ENUMIX_MODVARBIND__V107*/ meltfptr[106] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V108*/ - meltfptr[107] = 0 ; + /*clear*/ /*_.ADD2OUT__V108*/ meltfptr[107] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V109*/ - meltfptr[108] = 0 ; + /*clear*/ /*_.ADD2OUT__V109*/ meltfptr[108] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V110*/ - meltfptr[109] = 0 ; + /*clear*/ /*_.ADD2OUT__V110*/ meltfptr[109] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V111*/ - meltfptr[110] = 0 ; + /*clear*/ /*_.ADD2OUT__V111*/ meltfptr[110] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V112*/ - meltfptr[111] = 0 ; + /*clear*/ /*_.ADD2OUT__V112*/ meltfptr[111] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V113*/ - meltfptr[112] = 0 ; + /*clear*/ /*_.ADD2OUT__V113*/ meltfptr[112] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V114*/ - meltfptr[113] = 0 ; + /*clear*/ /*_.ADD2OUT__V114*/ meltfptr[113] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V125*/ - meltfptr[124] = 0 ; + /*clear*/ /*_.ADD2OUT__V125*/ meltfptr[124] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V126*/ - meltfptr[125] = 0 ; + /*clear*/ /*_.ADD2OUT__V126*/ meltfptr[125] = 0 ; if (/*_#HIX__L4*/ meltfnum[0]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6183:/ clear"); - /*clear*/ /*_.CURHOOKROUT__V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.CURHOOKROUT__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_#HIX__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#HIX__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -26119,8 +23747,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBHOOKS__L3*/ meltfnum[1]; /*^apply.arg*/ argtab[2].meltbp_cstring = " hooks in module variables declarations ***/\n"; - /*_.ADD2OUT__V127*/ - meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V127*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26137,36 +23764,28 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBHOOKS__L3*/ meltfnum[1]; /*^apply.arg*/ argtab[2].meltbp_cstring = " hooks in module variables implementations ***/\n"; - /*_.ADD2OUT__V128*/ - meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V128*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.IMPLBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V8*/ - meltfptr[6] = /*_.ADD2OUT__V128*/ meltfptr[18];; + /*_.LET___V8*/ meltfptr[6] = /*_.ADD2OUT__V128*/ meltfptr[18];; MELT_LOCATION("warmelt-outobj.melt:6178:/ clear"); - /*clear*/ /*_#NBHOOKS__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NBHOOKS__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.ADD2OUT__V9*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.ADD2OUT__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V127*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.ADD2OUT__V127*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V128*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.ADD2OUT__V128*/ meltfptr[18] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6176:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; { MELT_LOCATION("warmelt-outobj.melt:6176:/ locexp"); @@ -26181,13 +23800,11 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.LET___V8*/ meltfptr[6] = 0 ; } ; @@ -26268,8 +23885,7 @@ meltrout_128_WARMELTmiOUTOBJ_TRANSLATE_MACROEXPANDED_LIST(meltclosure_ptr_t melt /* end of frame for routine meltrout_128_WARMELTmiOUTOBJ_TRANSLATE_MACROEXPANDED_LIST fromline 1719 */ - /* classy proc frame meltrout_128_WARMELTmiOUTOBJ_TRANSLATE_MACROEXPANDED_LIST */ - MeltFrame_meltrout_128_WARMELTmiOUTOBJ_TRANSLATE_MACROEXPANDED_LIST + /* classy proc frame meltrout_128_WARMELTmiOUTOBJ_TRANSLATE_MACROEXPANDED_LIST */ MeltFrame_meltrout_128_WARMELTmiOUTOBJ_TRANSLATE_MACROEXPANDED_LIST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_128_WARMELTmiOUTOBJ_TRANSLATE_MACROEXPANDED_LIST fromline 1748*/ #if ENABLE_CHECKING @@ -26282,8 +23898,7 @@ meltrout_128_WARMELTmiOUTOBJ_TRANSLATE_MACROEXPANDED_LIST(meltclosure_ptr_t melt #define meltframe meltfram__ melt_trace_start("TRANSLATE_MACROEXPANDED_LIST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -26293,54 +23908,47 @@ meltrout_128_WARMELTmiOUTOBJ_TRANSLATE_MACROEXPANDED_LIST(meltclosure_ptr_t melt /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:6313:/ getarg"); - /*_.XLIST__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.XLIST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODNAMSTR__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODNAMSTR__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODNAMSTR__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MODCTX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.NCX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.INIENV__V6*/ - meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; + /*_.INIENV__V6*/ meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.INIENV__V6*/ meltfptr[5])) != NULL); /*getarg#5*/ /*^getarg*/ if (meltxargdescr_[4] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NORMALISTHANDLER__V7*/ - meltfptr[6] = (meltxargtab_[4].meltbp_aptr) ? (*(meltxargtab_[4].meltbp_aptr)) : NULL; + /*_.NORMALISTHANDLER__V7*/ meltfptr[6] = (meltxargtab_[4].meltbp_aptr) ? (*(meltxargtab_[4].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NORMALISTHANDLER__V7*/ meltfptr[6])) != NULL); /*getarg#6*/ /*^getarg*/ if (meltxargdescr_[5] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.INIPROCTRANSL__V8*/ - meltfptr[7] = (meltxargtab_[5].meltbp_aptr) ? (*(meltxargtab_[5].meltbp_aptr)) : NULL; + /*_.INIPROCTRANSL__V8*/ meltfptr[7] = (meltxargtab_[5].meltbp_aptr) ? (*(meltxargtab_[5].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.INIPROCTRANSL__V8*/ meltfptr[7])) != NULL); ; @@ -26372,8 +23980,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)) @@ -26382,8 +23989,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6331:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -26428,20 +24034,16 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n* iniproctransl="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.INIPROCTRANSL__V8*/ meltfptr[7]; - /*_.MELT_DEBUG_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V9*/ - meltfptr[8] = /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; + /*_._IF___V9*/ meltfptr[8] = /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6331:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0 ; } ; } @@ -26454,8 +24056,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6331:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -26464,11 +24065,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V9*/ - meltfptr[8] = 0 ; + /*clear*/ /*_._IF___V9*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26498,12 +24097,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L3*/ - meltfnum[1] = + /*_#IS_LIST__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.XLIST__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:6334:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[8] = (/*nil*/NULL);; @@ -26532,31 +24129,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6334; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.XLIST__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6334:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[8];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6334:/ clear"); - /*clear*/ /*_#IS_LIST__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[8] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26574,12 +24165,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L4*/ - meltfnum[0] = + /*_#IS_STRING__L4*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MODNAMSTR__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-outobj.melt:6335:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L4*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[8] = (/*nil*/NULL);; @@ -26608,31 +24197,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6335; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG 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[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6335:/ 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[8];; + /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6335:/ clear"); - /*clear*/ /*_#IS_STRING__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_STRING__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[8] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26650,12 +24233,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ - meltfnum[1] = + /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-outobj.melt:6336:/ cond"); - /*cond*/ - if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[8] = (/*nil*/NULL);; @@ -26684,31 +24265,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6336; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V4*/ meltfptr[3]; - /*_.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[8] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; + /*_._IFELSE___V18*/ meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6336:/ 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[8];; + /*_.IFCPP___V17*/ meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6336:/ clear"); - /*clear*/ /*_#IS_A__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V18*/ - meltfptr[8] = 0 ; + /*clear*/ /*_._IFELSE___V18*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26726,12 +24301,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ - meltfnum[0] = + /*_#IS_A__L6*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-outobj.melt:6337:/ cond"); - /*cond*/ - if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[8] = (/*nil*/NULL);; @@ -26760,31 +24333,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6337; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ meltfptr[4]; - /*_.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[8] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; + /*_._IFELSE___V21*/ meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6337:/ 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[8];; + /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6337:/ clear"); - /*clear*/ /*_#IS_A__L6*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ - meltfptr[8] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26802,12 +24369,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ - meltfnum[1] = + /*_#IS_A__L7*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.INIENV__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-outobj.melt:6338:/ cond"); - /*cond*/ - if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V24*/ meltfptr[8] = (/*nil*/NULL);; @@ -26836,31 +24401,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6338; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.INIENV__V6*/ meltfptr[5]; - /*_.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[8] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; + /*_._IFELSE___V24*/ meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6338:/ 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[8];; + /*_.IFCPP___V23*/ meltfptr[21] = /*_._IFELSE___V24*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6338:/ clear"); - /*clear*/ /*_#IS_A__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V24*/ - meltfptr[8] = 0 ; + /*clear*/ /*_._IFELSE___V24*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26878,17 +24437,14 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRING_DYNLOADED_SUFFIXED__L8*/ - meltfnum[0] = + /*_#STRING_DYNLOADED_SUFFIXED__L8*/ meltfnum[0] = /*string_dynloaded_suffixed:*/ (melt_string_is_ending ((melt_ptr_t)/*_.MODNAMSTR__V3*/ meltfptr[2], MELT_DYNLOADED_SUFFIX));; /*^compute*/ - /*_#NOT__L9*/ - meltfnum[1] = + /*_#NOT__L9*/ meltfnum[1] = (!(/*_#STRING_DYNLOADED_SUFFIXED__L8*/ meltfnum[0]));; MELT_LOCATION("warmelt-outobj.melt:6339:/ cond"); - /*cond*/ - if (/*_#NOT__L9*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NOT__L9*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V27*/ meltfptr[8] = (/*nil*/NULL);; @@ -26917,34 +24473,27 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6339; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V28*/ - meltfptr[27] = 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__V28*/ meltfptr[27] = 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___V27*/ - meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];; + /*_._IFELSE___V27*/ meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6339:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27] = 0 ; } ; } ; - /*_.IFCPP___V26*/ - meltfptr[24] = /*_._IFELSE___V27*/ meltfptr[8];; + /*_.IFCPP___V26*/ meltfptr[24] = /*_._IFELSE___V27*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6339:/ clear"); - /*clear*/ /*_#STRING_DYNLOADED_SUFFIXED__L8*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#STRING_DYNLOADED_SUFFIXED__L8*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L9*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NOT__L9*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V27*/ - meltfptr[8] = 0 ; + /*clear*/ /*_._IFELSE___V27*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26962,16 +24511,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRING_SUFFIXED__L10*/ - meltfnum[0] = + /*_#STRING_SUFFIXED__L10*/ meltfnum[0] = /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.MODNAMSTR__V3*/ meltfptr[2], ".melt"));; /*^compute*/ - /*_#NOT__L11*/ - meltfnum[1] = + /*_#NOT__L11*/ meltfnum[1] = (!(/*_#STRING_SUFFIXED__L10*/ meltfnum[0]));; MELT_LOCATION("warmelt-outobj.melt:6341:/ cond"); - /*cond*/ - if (/*_#NOT__L11*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NOT__L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V30*/ meltfptr[8] = (/*nil*/NULL);; @@ -27000,34 +24546,27 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6341; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V31*/ - meltfptr[30] = 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__V31*/ meltfptr[30] = 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___V30*/ - meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30];; + /*_._IFELSE___V30*/ meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6341:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30] = 0 ; } ; } ; - /*_.IFCPP___V29*/ - meltfptr[27] = /*_._IFELSE___V30*/ meltfptr[8];; + /*_.IFCPP___V29*/ meltfptr[27] = /*_._IFELSE___V30*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6341:/ clear"); - /*clear*/ /*_#STRING_SUFFIXED__L10*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#STRING_SUFFIXED__L10*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L11*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NOT__L11*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V30*/ - meltfptr[8] = 0 ; + /*clear*/ /*_._IFELSE___V30*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27045,16 +24584,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRING_SUFFIXED__L12*/ - meltfnum[0] = + /*_#STRING_SUFFIXED__L12*/ meltfnum[0] = /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.MODNAMSTR__V3*/ meltfptr[2], ".cc"));; /*^compute*/ - /*_#NOT__L13*/ - meltfnum[1] = + /*_#NOT__L13*/ meltfnum[1] = (!(/*_#STRING_SUFFIXED__L12*/ meltfnum[0]));; MELT_LOCATION("warmelt-outobj.melt:6343:/ cond"); - /*cond*/ - if (/*_#NOT__L13*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NOT__L13*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V33*/ meltfptr[8] = (/*nil*/NULL);; @@ -27083,34 +24619,27 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6343; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V34*/ - meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V33*/ - meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; + /*_._IFELSE___V33*/ meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6343:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = 0 ; } ; } ; - /*_.IFCPP___V32*/ - meltfptr[30] = /*_._IFELSE___V33*/ meltfptr[8];; + /*_.IFCPP___V32*/ meltfptr[30] = /*_._IFELSE___V33*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6343:/ clear"); - /*clear*/ /*_#STRING_SUFFIXED__L12*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#STRING_SUFFIXED__L12*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L13*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NOT__L13*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V33*/ - meltfptr[8] = 0 ; + /*clear*/ /*_._IFELSE___V33*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27128,16 +24657,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRING_SUFFIXED__L14*/ - meltfnum[0] = + /*_#STRING_SUFFIXED__L14*/ meltfnum[0] = /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.MODNAMSTR__V3*/ meltfptr[2], ".c"));; /*^compute*/ - /*_#NOT__L15*/ - meltfnum[1] = + /*_#NOT__L15*/ meltfnum[1] = (!(/*_#STRING_SUFFIXED__L14*/ meltfnum[0]));; MELT_LOCATION("warmelt-outobj.melt:6345:/ cond"); - /*cond*/ - if (/*_#NOT__L15*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NOT__L15*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V36*/ meltfptr[8] = (/*nil*/NULL);; @@ -27166,34 +24692,27 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6345; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V3*/ meltfptr[2]; - /*_.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[8] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36];; + /*_._IFELSE___V36*/ meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6345:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36] = 0 ; } ; } ; - /*_.IFCPP___V35*/ - meltfptr[33] = /*_._IFELSE___V36*/ meltfptr[8];; + /*_.IFCPP___V35*/ meltfptr[33] = /*_._IFELSE___V36*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6345:/ clear"); - /*clear*/ /*_#STRING_SUFFIXED__L14*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#STRING_SUFFIXED__L14*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L15*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NOT__L15*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V36*/ - meltfptr[8] = 0 ; + /*clear*/ /*_._IFELSE___V36*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27204,11 +24723,9 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6347:/ quasiblock"); - /*_#ENDCLOCK__L16*/ - meltfnum[0] = 0;; + /*_#ENDCLOCK__L16*/ meltfnum[0] = 0;; MELT_LOCATION("warmelt-outobj.melt:6349:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2]))) ) /*then*/ @@ -27219,8 +24736,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 15, "MOCX_ERRORHANDLER"); - /*_.ERRORHDLR__V39*/ - meltfptr[8] = slot; + /*_.ERRORHDLR__V39*/ meltfptr[8] = slot; }; ; } @@ -27231,8 +24747,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6350:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2]))) ) /*then*/ @@ -27243,8 +24758,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 13, "MOCX_GENDEVLIST"); - /*_.GENDEVLIST__V40*/ - meltfptr[39] = slot; + /*_.GENDEVLIST__V40*/ meltfptr[39] = slot; }; ; } @@ -27255,8 +24769,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6351:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2]))) ) /*then*/ @@ -27267,8 +24780,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 4, "MOCX_INITIALENV"); - /*_.MODINIENV__V41*/ - meltfptr[40] = slot; + /*_.MODINIENV__V41*/ meltfptr[40] = slot; }; ; } @@ -27279,8 +24791,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6352:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ @@ -27291,8 +24802,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NCTX_INITPROC"); - /*_.INIPROC__V42*/ - meltfptr[41] = slot; + /*_.INIPROC__V42*/ meltfptr[41] = slot; }; ; } @@ -27303,12 +24813,10 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.IMPLBUF__V43*/ - meltfptr[42] = + /*_.IMPLBUF__V43*/ meltfptr[42] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[5])), (const char*)0);; /*^compute*/ - /*_.DECLBUF__V44*/ - meltfptr[43] = + /*_.DECLBUF__V44*/ meltfptr[43] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[5])), (const char*)0);; #if MELT_HAVE_DEBUG @@ -27330,8 +24838,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L17*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -27340,8 +24847,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6356:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L17*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27386,20 +24892,16 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n ..xlist="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.XLIST__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V46*/ - meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V45*/ - meltfptr[44] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];; + /*_._IF___V45*/ meltfptr[44] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6356:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L18*/ - meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ - meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = 0 ; } ; } @@ -27412,8 +24914,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6356:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -27422,11 +24923,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V45*/ - meltfptr[44] = 0 ; + /*clear*/ /*_._IF___V45*/ meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27468,8 +24967,7 @@ meltlab_endgetargs: /*^multiapply.xres*/ restab[0].meltbp_longptr = & /*_#STARTCLOCK__L19*/ meltfnum[17]; /*^multiapply.appl*/ - /*_.NORMLIST__V48*/ - meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!GIVE_NORMALIZED_MACROEXPANDED_LIST*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.XLIST__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_LONG ""), restab); + /*_.NORMLIST__V48*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!GIVE_NORMALIZED_MACROEXPANDED_LIST*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.XLIST__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_LONG ""), restab); } ; /*^quasiblock*/ @@ -27495,8 +24993,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L20*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -27505,8 +25002,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6361:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L20*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27546,20 +25042,16 @@ meltlab_endgetargs: argtab[6].meltbp_long = /*_#STARTCLOCK__L19*/ meltfnum[17]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n"; - /*_.MELT_DEBUG_FUN__V50*/ - meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V49*/ - meltfptr[48] = /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49];; + /*_._IF___V49*/ meltfptr[48] = /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6361:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ - meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V50*/ - meltfptr[49] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = 0 ; } ; } @@ -27572,8 +25064,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6361:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -27582,11 +25073,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V49*/ - meltfptr[48] = 0 ; + /*clear*/ /*_._IF___V49*/ meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27616,12 +25105,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L22*/ - meltfnum[20] = + /*_#IS_LIST__L22*/ meltfnum[20] = (melt_magic_discr((melt_ptr_t)(/*_.NORMLIST__V48*/ meltfptr[44])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:6363:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L22*/ meltfnum[20]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L22*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V52*/ meltfptr[48] = (/*nil*/NULL);; @@ -27650,31 +25137,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6363; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NORMLIST__V48*/ meltfptr[44]; - /*_.MELT_ASSERT_FAILURE_FUN__V53*/ - meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V52*/ - meltfptr[48] = /*_.MELT_ASSERT_FAILURE_FUN__V53*/ meltfptr[52];; + /*_._IFELSE___V52*/ meltfptr[48] = /*_.MELT_ASSERT_FAILURE_FUN__V53*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6363:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V53*/ - meltfptr[52] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V53*/ meltfptr[52] = 0 ; } ; } ; - /*_.IFCPP___V51*/ - meltfptr[49] = /*_._IFELSE___V52*/ meltfptr[48];; + /*_.IFCPP___V51*/ meltfptr[49] = /*_._IFELSE___V52*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6363:/ clear"); - /*clear*/ /*_#IS_LIST__L22*/ - meltfnum[20] = 0 ; + /*clear*/ /*_#IS_LIST__L22*/ meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V52*/ - meltfptr[48] = 0 ; + /*clear*/ /*_._IFELSE___V52*/ meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27702,8 +25183,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L23*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L23*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -27712,8 +25192,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6364:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L23*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27754,20 +25233,16 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. normlist="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NORMLIST__V48*/ meltfptr[44]; - /*_.MELT_DEBUG_FUN__V55*/ - meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V55*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V54*/ - meltfptr[52] = /*_.MELT_DEBUG_FUN__V55*/ meltfptr[48];; + /*_._IF___V54*/ meltfptr[52] = /*_.MELT_DEBUG_FUN__V55*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6364:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L24*/ - meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V55*/ - meltfptr[48] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V55*/ meltfptr[48] = 0 ; } ; } @@ -27780,8 +25255,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6364:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -27790,11 +25264,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L23*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V54*/ - meltfptr[52] = 0 ; + /*clear*/ /*_._IF___V54*/ meltfptr[52] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27817,12 +25289,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L25*/ - meltfnum[20] = + /*_#IS_CLOSURE__L25*/ meltfnum[20] = (melt_magic_discr((melt_ptr_t)(/*_.NORMALISTHANDLER__V7*/ meltfptr[6])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-outobj.melt:6367:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L25*/ meltfnum[20]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L25*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27849,8 +25319,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L26*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L26*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -27859,8 +25328,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6368:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L26*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27876,8 +25344,7 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ - /*_#LIST_LENGTH__L28*/ - meltfnum[27] = + /*_#LIST_LENGTH__L28*/ meltfnum[27] = (melt_list_length((melt_ptr_t)(/*_.NORMLIST__V48*/ meltfptr[44])));; MELT_CHECK_SIGNAL(); @@ -27905,23 +25372,18 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. of length "; /*^apply.arg*/ argtab[8].meltbp_long = /*_#LIST_LENGTH__L28*/ meltfnum[27]; - /*_.MELT_DEBUG_FUN__V57*/ - meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V57*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V56*/ - meltfptr[48] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[52];; + /*_._IF___V56*/ meltfptr[48] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6368:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L27*/ - meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_#LIST_LENGTH__L28*/ - meltfnum[27] = 0 ; + /*clear*/ /*_#LIST_LENGTH__L28*/ meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ - meltfptr[52] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ meltfptr[52] = 0 ; } ; } @@ -27934,8 +25396,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6368:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -27944,11 +25405,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L26*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V56*/ - meltfptr[48] = 0 ; + /*clear*/ /*_._IF___V56*/ meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27982,8 +25441,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ meltfptr[4]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.INIENV__V6*/ meltfptr[5]; - /*_.NORMALISTHANDLER__V58*/ - meltfptr[52] = melt_apply ((meltclosure_ptr_t)(/*_.NORMALISTHANDLER__V7*/ meltfptr[6]), (melt_ptr_t)(/*_.NORMLIST__V48*/ meltfptr[44]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NORMALISTHANDLER__V58*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)(/*_.NORMALISTHANDLER__V7*/ meltfptr[6]), (melt_ptr_t)(/*_.NORMLIST__V48*/ meltfptr[44]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28006,8 +25464,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L29*/ - meltfnum[26] = + /*_#MELT_NEED_DBG__L29*/ meltfnum[26] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28016,8 +25473,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6372:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L29*/ meltfnum[26]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L29*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28033,8 +25489,7 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ - /*_#LIST_LENGTH__L31*/ - meltfnum[1] = + /*_#LIST_LENGTH__L31*/ meltfnum[1] = (melt_list_length((melt_ptr_t)(/*_.NORMLIST__V48*/ meltfptr[44])));; MELT_CHECK_SIGNAL(); @@ -28062,23 +25517,18 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. iniproc="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.INIPROC__V42*/ meltfptr[41]; - /*_.MELT_DEBUG_FUN__V60*/ - meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V59*/ - meltfptr[48] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59];; + /*_._IF___V59*/ meltfptr[48] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6372:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L30*/ - meltfnum[27] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L30*/ meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_#LIST_LENGTH__L31*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#LIST_LENGTH__L31*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ - meltfptr[59] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59] = 0 ; } ; } @@ -28091,8 +25541,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6372:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -28101,11 +25550,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L29*/ - meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L29*/ meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V59*/ - meltfptr[48] = 0 ; + /*clear*/ /*_._IF___V59*/ meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28131,8 +25578,7 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.NORMALISTHANDLER__V58*/ - meltfptr[52] = 0 ; + /*clear*/ /*_.NORMALISTHANDLER__V58*/ meltfptr[52] = 0 ; } ; } /*noelse*/ @@ -28157,8 +25603,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L32*/ - meltfnum[27] = + /*_#MELT_NEED_DBG__L32*/ meltfnum[27] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28167,8 +25612,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6378:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L32*/ meltfnum[27]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L32*/ meltfnum[27]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28205,20 +25649,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. before insertion of normlist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NORMLIST__V48*/ meltfptr[44]; - /*_.MELT_DEBUG_FUN__V62*/ - meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V62*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V61*/ - meltfptr[59] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[48];; + /*_._IF___V61*/ meltfptr[59] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6378:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L33*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L33*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ - meltfptr[48] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ meltfptr[48] = 0 ; } ; } @@ -28231,8 +25671,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6378:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -28241,11 +25680,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L32*/ - meltfnum[27] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L32*/ meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V61*/ - meltfptr[59] = 0 ; + /*clear*/ /*_._IF___V61*/ meltfptr[59] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28275,12 +25712,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L34*/ - meltfnum[26] = + /*_#IS_A__L34*/ meltfnum[26] = melt_is_instance_of((melt_ptr_t)(/*_.INIPROC__V42*/ meltfptr[41]), (melt_ptr_t)((/*!CLASS_NREP_INITPROC*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-outobj.melt:6379:/ cond"); - /*cond*/ - if (/*_#IS_A__L34*/ meltfnum[26]) /*then*/ + /*cond*/ if (/*_#IS_A__L34*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V64*/ meltfptr[48] = (/*nil*/NULL);; @@ -28309,31 +25744,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6379; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.INIPROC__V42*/ meltfptr[41]; - /*_.MELT_ASSERT_FAILURE_FUN__V65*/ - meltfptr[59] = 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__V65*/ meltfptr[59] = 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___V64*/ - meltfptr[48] = /*_.MELT_ASSERT_FAILURE_FUN__V65*/ meltfptr[59];; + /*_._IFELSE___V64*/ meltfptr[48] = /*_.MELT_ASSERT_FAILURE_FUN__V65*/ meltfptr[59];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6379:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V65*/ - meltfptr[59] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V65*/ meltfptr[59] = 0 ; } ; } ; - /*_.IFCPP___V63*/ - meltfptr[52] = /*_._IFELSE___V64*/ meltfptr[48];; + /*_.IFCPP___V63*/ meltfptr[52] = /*_._IFELSE___V64*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6379:/ clear"); - /*clear*/ /*_#IS_A__L34*/ - meltfnum[26] = 0 ; + /*clear*/ /*_#IS_A__L34*/ meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V64*/ - meltfptr[48] = 0 ; + /*clear*/ /*_._IFELSE___V64*/ meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28345,8 +25774,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.INIPROC__V42*/ meltfptr[41]), (melt_ptr_t)((/*!CLASS_NREP_INITPROC*/ meltfrout->tabval[7]))) ) /*then*/ @@ -28357,8 +25785,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.INIPROC__V42*/ meltfptr[41]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NINIT_TOPL"); - /*_.INITOPLIST__V66*/ - meltfptr[59] = slot; + /*_.INITOPLIST__V66*/ meltfptr[59] = slot; }; ; } @@ -28388,8 +25815,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L35*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L35*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28398,8 +25824,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6382:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L35*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L35*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28432,20 +25857,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list initoplist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.INITOPLIST__V66*/ meltfptr[59]; - /*_.MELT_DEBUG_FUN__V68*/ - meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V67*/ - meltfptr[48] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67];; + /*_._IF___V67*/ meltfptr[48] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6382:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L36*/ - meltfnum[27] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L36*/ meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ - meltfptr[67] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67] = 0 ; } ; } @@ -28458,8 +25879,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6382:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -28468,11 +25888,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L35*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L35*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V67*/ - meltfptr[48] = 0 ; + /*clear*/ /*_._IF___V67*/ meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28502,16 +25920,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#LIST_LENGTH__L37*/ - meltfnum[26] = + /*_#LIST_LENGTH__L37*/ meltfnum[26] = (melt_list_length((melt_ptr_t)(/*_.INITOPLIST__V66*/ meltfptr[59])));; /*^compute*/ - /*_#eqeqI__L38*/ - meltfnum[27] = + /*_#eqeqI__L38*/ meltfnum[27] = ((0) == (/*_#LIST_LENGTH__L37*/ meltfnum[26]));; MELT_LOCATION("warmelt-outobj.melt:6383:/ cond"); - /*cond*/ - if (/*_#eqeqI__L38*/ meltfnum[27]) /*then*/ + /*cond*/ if (/*_#eqeqI__L38*/ meltfnum[27]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V70*/ meltfptr[48] = (/*nil*/NULL);; @@ -28540,34 +25955,27 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6383; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.INITOPLIST__V66*/ meltfptr[59]; - /*_.MELT_ASSERT_FAILURE_FUN__V71*/ - meltfptr[70] = 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__V71*/ meltfptr[70] = 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___V70*/ - meltfptr[48] = /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[70];; + /*_._IFELSE___V70*/ meltfptr[48] = /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[70];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6383:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V71*/ - meltfptr[70] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[70] = 0 ; } ; } ; - /*_.IFCPP___V69*/ - meltfptr[67] = /*_._IFELSE___V70*/ meltfptr[48];; + /*_.IFCPP___V69*/ meltfptr[67] = /*_._IFELSE___V70*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6383:/ clear"); - /*clear*/ /*_#LIST_LENGTH__L37*/ - meltfnum[26] = 0 ; + /*clear*/ /*_#LIST_LENGTH__L37*/ meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeqI__L38*/ - meltfnum[27] = 0 ; + /*clear*/ /*_#eqeqI__L38*/ meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V70*/ - meltfptr[48] = 0 ; + /*clear*/ /*_._IFELSE___V70*/ meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28605,8 +26013,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L39*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L39*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28615,8 +26022,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6387:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L39*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L39*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28649,20 +26055,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list curnorm="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURNORM__V73*/ meltfptr[48]; - /*_.MELT_DEBUG_FUN__V75*/ - meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V74*/ - meltfptr[73] = /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74];; + /*_._IF___V74*/ meltfptr[73] = /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6387:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L40*/ - meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L40*/ meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V75*/ - meltfptr[74] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74] = 0 ; } ; } @@ -28675,8 +26077,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6387:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -28685,11 +26086,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L39*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L39*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V74*/ - meltfptr[73] = 0 ; + /*clear*/ /*_._IF___V74*/ meltfptr[73] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28712,12 +26111,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L41*/ - meltfnum[27] = + /*_#IS_NOT_A__L41*/ meltfnum[27] = !melt_is_instance_of((melt_ptr_t)(/*_.CURNORM__V73*/ meltfptr[48]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-outobj.melt:6388:/ cond"); - /*cond*/ - if (/*_#IS_NOT_A__L41*/ meltfnum[27]) /*then*/ + /*cond*/ if (/*_#IS_NOT_A__L41*/ meltfnum[27]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28737,21 +26134,17 @@ meltlab_endgetargs: ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURPAIR__V72*/ meltfptr[70] = NULL; - /*_.CURNORM__V73*/ - meltfptr[48] = NULL; + /*_.CURNORM__V73*/ meltfptr[48] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6384:/ clear"); - /*clear*/ /*_.CURPAIR__V72*/ - meltfptr[70] = 0 ; + /*clear*/ /*_.CURPAIR__V72*/ meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.CURNORM__V73*/ - meltfptr[48] = 0 ; + /*clear*/ /*_.CURNORM__V73*/ meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L41*/ - meltfnum[27] = 0 ; + /*clear*/ /*_#IS_NOT_A__L41*/ meltfnum[27] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -28774,8 +26167,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L42*/ - meltfnum[26] = + /*_#MELT_NEED_DBG__L42*/ meltfnum[26] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28784,8 +26176,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6390:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L42*/ meltfnum[26]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L42*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28822,20 +26213,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. in iniproc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.INIPROC__V42*/ meltfptr[41]; - /*_.MELT_DEBUG_FUN__V77*/ - meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V77*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V76*/ - meltfptr[74] = /*_.MELT_DEBUG_FUN__V77*/ meltfptr[73];; + /*_._IF___V76*/ meltfptr[74] = /*_.MELT_DEBUG_FUN__V77*/ meltfptr[73];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6390:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L43*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L43*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V77*/ - meltfptr[73] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V77*/ meltfptr[73] = 0 ; } ; } @@ -28848,8 +26235,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6390:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -28858,11 +26244,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L42*/ - meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L42*/ meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V76*/ - meltfptr[74] = 0 ; + /*clear*/ /*_._IF___V76*/ meltfptr[74] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28884,20 +26268,16 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:6380:/ clear"); - /*clear*/ /*_.INITOPLIST__V66*/ - meltfptr[59] = 0 ; + /*clear*/ /*_.INITOPLIST__V66*/ meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V69*/ - meltfptr[67] = 0 ; + /*clear*/ /*_.IFCPP___V69*/ meltfptr[67] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_#MELT_ERROR_COUNTER__L44*/ - meltfnum[1] = + /*_#MELT_ERROR_COUNTER__L44*/ meltfnum[1] = melt_error_counter;; MELT_LOCATION("warmelt-outobj.melt:6394:/ cond"); - /*cond*/ - if (/*_#MELT_ERROR_COUNTER__L44*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_ERROR_COUNTER__L44*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28907,12 +26287,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L45*/ - meltfnum[26] = + /*_#IS_CLOSURE__L45*/ meltfnum[26] = (melt_magic_discr((melt_ptr_t)(/*_.ERRORHDLR__V39*/ meltfptr[8])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-outobj.melt:6395:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L45*/ meltfnum[26]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L45*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28928,13 +26306,11 @@ meltlab_endgetargs: /*_.ERRORHDLR__V80*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)(/*_.ERRORHDLR__V39*/ meltfptr[8]), (melt_ptr_t)((/*!konst_9*/ meltfrout->tabval[9])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; - /*_._IF___V79*/ - meltfptr[74] = /*_.ERRORHDLR__V80*/ meltfptr[59];; + /*_._IF___V79*/ meltfptr[74] = /*_.ERRORHDLR__V80*/ meltfptr[59];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6395:/ clear"); - /*clear*/ /*_.ERRORHDLR__V80*/ - meltfptr[59] = 0 ; + /*clear*/ /*_.ERRORHDLR__V80*/ meltfptr[59] = 0 ; } ; } @@ -28956,8 +26332,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6402:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-outobj.melt:6402:/ locexp"); @@ -28972,30 +26347,23 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-outobj.melt:6394:/ quasiblock"); - /*_.PROGN___V82*/ - meltfptr[59] = /*_.RETURN___V81*/ meltfptr[67];; + /*_.PROGN___V82*/ meltfptr[59] = /*_.RETURN___V81*/ meltfptr[67];; /*^compute*/ - /*_._IF___V78*/ - meltfptr[73] = /*_.PROGN___V82*/ meltfptr[59];; + /*_._IF___V78*/ meltfptr[73] = /*_.PROGN___V82*/ meltfptr[59];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6394:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L45*/ - meltfnum[26] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L45*/ meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V79*/ - meltfptr[74] = 0 ; + /*clear*/ /*_._IF___V79*/ meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V81*/ - meltfptr[67] = 0 ; + /*clear*/ /*_.RETURN___V81*/ meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V82*/ - meltfptr[59] = 0 ; + /*clear*/ /*_.PROGN___V82*/ meltfptr[59] = 0 ; } ; } @@ -29009,8 +26377,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ @@ -29021,8 +26388,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NCTX_PROCLIST"); - /*_.PROLIST__V84*/ - meltfptr[67] = slot; + /*_.PROLIST__V84*/ meltfptr[67] = slot; }; ; } @@ -29033,28 +26399,22 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.OBJLIST__V85*/ - meltfptr[59] = + /*_.OBJLIST__V85*/ meltfptr[59] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[10]))));; /*^compute*/ - /*_#LIST_LENGTH__L46*/ - meltfnum[26] = + /*_#LIST_LENGTH__L46*/ meltfnum[26] = (melt_list_length((melt_ptr_t)(/*_.XLIST__V2*/ meltfptr[1])));; /*^compute*/ - /*_#stI__L47*/ - meltfnum[46] = + /*_#stI__L47*/ meltfnum[46] = ((20) * (/*_#LIST_LENGTH__L46*/ meltfnum[26]));; /*^compute*/ - /*_#plI__L48*/ - meltfnum[47] = + /*_#plI__L48*/ meltfnum[47] = ((10) + (/*_#stI__L47*/ meltfnum[46]));; /*^compute*/ - /*_.COMPICACHE__V86*/ - meltfptr[85] = + /*_.COMPICACHE__V86*/ meltfptr[85] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[11])), (/*_#plI__L48*/ meltfnum[47])));; /*^compute*/ - /*_#COUNT__L49*/ - meltfnum[48] = 0;; + /*_#COUNT__L49*/ meltfnum[48] = 0;; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-outobj.melt:6412:/ cppif.then"); @@ -29075,8 +26435,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L50*/ - meltfnum[49] = + /*_#MELT_NEED_DBG__L50*/ meltfnum[49] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29085,8 +26444,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6412:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L50*/ meltfnum[49]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L50*/ meltfnum[49]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29119,20 +26477,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list prolist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PROLIST__V84*/ meltfptr[67]; - /*_.MELT_DEBUG_FUN__V88*/ - meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V88*/ meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V87*/ - meltfptr[86] = /*_.MELT_DEBUG_FUN__V88*/ meltfptr[87];; + /*_._IF___V87*/ meltfptr[86] = /*_.MELT_DEBUG_FUN__V88*/ meltfptr[87];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6412:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L51*/ - meltfnum[50] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L51*/ meltfnum[50] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V88*/ - meltfptr[87] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V88*/ meltfptr[87] = 0 ; } ; } @@ -29145,8 +26499,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6412:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -29155,11 +26508,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L50*/ - meltfnum[49] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L50*/ meltfnum[49] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V87*/ - meltfptr[86] = 0 ; + /*clear*/ /*_._IF___V87*/ meltfptr[86] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29200,12 +26551,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L52*/ - meltfnum[50] = + /*_#IS_LIST__L52*/ meltfnum[50] = (melt_magic_discr((melt_ptr_t)(/*_.PROLIST__V84*/ meltfptr[67])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:6415:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L52*/ meltfnum[50]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L52*/ meltfnum[50]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V90*/ meltfptr[86] = (/*nil*/NULL);; @@ -29234,31 +26583,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6415; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PROLIST__V84*/ meltfptr[67]; - /*_.MELT_ASSERT_FAILURE_FUN__V91*/ - meltfptr[90] = 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__V91*/ meltfptr[90] = 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___V90*/ - meltfptr[86] = /*_.MELT_ASSERT_FAILURE_FUN__V91*/ meltfptr[90];; + /*_._IFELSE___V90*/ meltfptr[86] = /*_.MELT_ASSERT_FAILURE_FUN__V91*/ meltfptr[90];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6415:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V91*/ - meltfptr[90] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V91*/ meltfptr[90] = 0 ; } ; } ; - /*_.IFCPP___V89*/ - meltfptr[87] = /*_._IFELSE___V90*/ meltfptr[86];; + /*_.IFCPP___V89*/ meltfptr[87] = /*_._IFELSE___V90*/ meltfptr[86];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6415:/ clear"); - /*clear*/ /*_#IS_LIST__L52*/ - meltfnum[50] = 0 ; + /*clear*/ /*_#IS_LIST__L52*/ meltfnum[50] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V90*/ - meltfptr[86] = 0 ; + /*clear*/ /*_._IFELSE___V90*/ meltfptr[86] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29276,12 +26619,10 @@ meltlab_endgetargs: /*_.PRO__V93*/ meltfptr[86] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V92*/ meltfptr[90]); - /*_#plI__L53*/ - meltfnum[49] = + /*_#plI__L53*/ meltfnum[49] = ((/*_#COUNT__L49*/ meltfnum[48]) + (1));; MELT_LOCATION("warmelt-outobj.melt:6419:/ compute"); - /*_#COUNT__L49*/ - meltfnum[48] = /*_#SETQ___L54*/ meltfnum[50] = /*_#plI__L53*/ meltfnum[49];; + /*_#COUNT__L49*/ meltfnum[48] = /*_#SETQ___L54*/ meltfnum[50] = /*_#plI__L53*/ meltfnum[49];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-outobj.melt:6420:/ cppif.then"); @@ -29302,8 +26643,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L55*/ - meltfnum[54] = + /*_#MELT_NEED_DBG__L55*/ meltfnum[54] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29312,8 +26652,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6420:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L55*/ meltfnum[54]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L55*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29354,20 +26693,16 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. count="; /*^apply.arg*/ argtab[8].meltbp_long = /*_#COUNT__L49*/ meltfnum[48]; - /*_.MELT_DEBUG_FUN__V95*/ - meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V95*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V94*/ - meltfptr[93] = /*_.MELT_DEBUG_FUN__V95*/ meltfptr[94];; + /*_._IF___V94*/ meltfptr[93] = /*_.MELT_DEBUG_FUN__V95*/ meltfptr[94];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6420:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L56*/ - meltfnum[55] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L56*/ meltfnum[55] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V95*/ - meltfptr[94] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V95*/ meltfptr[94] = 0 ; } ; } @@ -29380,8 +26715,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6420:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -29390,11 +26724,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L55*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L55*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V94*/ - meltfptr[93] = 0 ; + /*clear*/ /*_._IF___V94*/ meltfptr[93] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29428,12 +26760,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L57*/ - meltfnum[55] = + /*_#IS_A__L57*/ meltfnum[55] = melt_is_instance_of((melt_ptr_t)(/*_.PRO__V93*/ meltfptr[86]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-outobj.melt:6426:/ cond"); - /*cond*/ - if (/*_#IS_A__L57*/ meltfnum[55]) /*then*/ + /*cond*/ if (/*_#IS_A__L57*/ meltfnum[55]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29457,8 +26787,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V86*/ meltfptr[85]; /*^apply.arg*/ argtab[2].meltbp_long = /*_#COUNT__L49*/ meltfnum[48]; - /*_.OBJHOOK__V98*/ - meltfptr[97] = melt_apply ((meltclosure_ptr_t)((/*!COMPILE2OBJ_HOOK*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.PRO__V93*/ meltfptr[86]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OBJHOOK__V98*/ meltfptr[97] = melt_apply ((meltclosure_ptr_t)((/*!COMPILE2OBJ_HOOK*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.PRO__V93*/ meltfptr[86]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -29487,8 +26816,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L58*/ - meltfnum[54] = + /*_#MELT_NEED_DBG__L58*/ meltfnum[54] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29497,8 +26825,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6430:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L58*/ meltfnum[54]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L58*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29543,20 +26870,16 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n.. compicache="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V86*/ meltfptr[85]; - /*_.MELT_DEBUG_FUN__V100*/ - meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V100*/ meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V99*/ - meltfptr[98] = /*_.MELT_DEBUG_FUN__V100*/ meltfptr[99];; + /*_._IF___V99*/ meltfptr[98] = /*_.MELT_DEBUG_FUN__V100*/ meltfptr[99];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6430:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L59*/ - meltfnum[58] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L59*/ meltfnum[58] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V100*/ - meltfptr[99] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V100*/ meltfptr[99] = 0 ; } ; } @@ -29569,8 +26892,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6430:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -29579,11 +26901,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L58*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L58*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V99*/ - meltfptr[98] = 0 ; + /*clear*/ /*_._IF___V99*/ meltfptr[98] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29613,12 +26933,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L60*/ - meltfnum[58] = + /*_#IS_OBJECT__L60*/ meltfnum[58] = (melt_magic_discr((melt_ptr_t)(/*_.OBJHOOK__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-outobj.melt:6433:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L60*/ meltfnum[58]) /*then*/ + /*cond*/ if (/*_#IS_OBJECT__L60*/ meltfnum[58]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V102*/ meltfptr[98] = (/*nil*/NULL);; @@ -29647,31 +26965,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6433; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBJHOOK__V98*/ meltfptr[97]; - /*_.MELT_ASSERT_FAILURE_FUN__V103*/ - meltfptr[102] = 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__V103*/ meltfptr[102] = 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___V102*/ - meltfptr[98] = /*_.MELT_ASSERT_FAILURE_FUN__V103*/ meltfptr[102];; + /*_._IFELSE___V102*/ meltfptr[98] = /*_.MELT_ASSERT_FAILURE_FUN__V103*/ meltfptr[102];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6433:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V103*/ - meltfptr[102] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V103*/ meltfptr[102] = 0 ; } ; } ; - /*_.IFCPP___V101*/ - meltfptr[99] = /*_._IFELSE___V102*/ meltfptr[98];; + /*_.IFCPP___V101*/ meltfptr[99] = /*_._IFELSE___V102*/ meltfptr[98];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6433:/ clear"); - /*clear*/ /*_#IS_OBJECT__L60*/ - meltfnum[58] = 0 ; + /*clear*/ /*_#IS_OBJECT__L60*/ meltfnum[58] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V102*/ - meltfptr[98] = 0 ; + /*clear*/ /*_._IFELSE___V102*/ meltfptr[98] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29680,22 +26992,17 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V97*/ - meltfptr[93] = /*_.IFCPP___V101*/ meltfptr[99];; + /*_.LET___V97*/ meltfptr[93] = /*_.IFCPP___V101*/ meltfptr[99];; MELT_LOCATION("warmelt-outobj.melt:6427:/ clear"); - /*clear*/ /*_.OBJHOOK__V98*/ - meltfptr[97] = 0 ; + /*clear*/ /*_.OBJHOOK__V98*/ meltfptr[97] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V101*/ - meltfptr[99] = 0 ; - /*_._IFELSE___V96*/ - meltfptr[94] = /*_.LET___V97*/ meltfptr[93];; + /*clear*/ /*_.IFCPP___V101*/ meltfptr[99] = 0 ; + /*_._IFELSE___V96*/ meltfptr[94] = /*_.LET___V97*/ meltfptr[93];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6426:/ clear"); - /*clear*/ /*_.LET___V97*/ - meltfptr[93] = 0 ; + /*clear*/ /*_.LET___V97*/ meltfptr[93] = 0 ; } ; } @@ -29709,12 +27016,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L61*/ - meltfnum[54] = + /*_#IS_A__L61*/ meltfnum[54] = melt_is_instance_of((melt_ptr_t)(/*_.PRO__V93*/ meltfptr[86]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-outobj.melt:6435:/ cond"); - /*cond*/ - if (/*_#IS_A__L61*/ meltfnum[54]) /*then*/ + /*cond*/ if (/*_#IS_A__L61*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29738,8 +27043,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V86*/ meltfptr[85]; /*^apply.arg*/ argtab[2].meltbp_long = /*_#COUNT__L49*/ meltfnum[48]; - /*_.OBJPRO__V106*/ - meltfptr[97] = melt_apply ((meltclosure_ptr_t)((/*!COMPILE2OBJ_PROCEDURE*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.PRO__V93*/ meltfptr[86]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OBJPRO__V106*/ meltfptr[97] = melt_apply ((meltclosure_ptr_t)((/*!COMPILE2OBJ_PROCEDURE*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.PRO__V93*/ meltfptr[86]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -29768,8 +27072,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L62*/ - meltfnum[58] = + /*_#MELT_NEED_DBG__L62*/ meltfnum[58] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29778,8 +27081,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6439:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L62*/ meltfnum[58]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L62*/ meltfnum[58]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29824,20 +27126,16 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n.. compicache="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V86*/ meltfptr[85]; - /*_.MELT_DEBUG_FUN__V108*/ - meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V108*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V107*/ - meltfptr[99] = /*_.MELT_DEBUG_FUN__V108*/ meltfptr[93];; + /*_._IF___V107*/ meltfptr[99] = /*_.MELT_DEBUG_FUN__V108*/ meltfptr[93];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6439:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L63*/ - meltfnum[62] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L63*/ meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V108*/ - meltfptr[93] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V108*/ meltfptr[93] = 0 ; } ; } @@ -29850,8 +27148,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6439:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -29860,11 +27157,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L62*/ - meltfnum[58] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L62*/ meltfnum[58] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V107*/ - meltfptr[99] = 0 ; + /*clear*/ /*_._IF___V107*/ meltfptr[99] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29894,12 +27189,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L64*/ - meltfnum[62] = + /*_#IS_OBJECT__L64*/ meltfnum[62] = (melt_magic_discr((melt_ptr_t)(/*_.OBJPRO__V106*/ meltfptr[97])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-outobj.melt:6442:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L64*/ meltfnum[62]) /*then*/ + /*cond*/ if (/*_#IS_OBJECT__L64*/ meltfnum[62]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V110*/ meltfptr[99] = (/*nil*/NULL);; @@ -29928,31 +27221,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6442; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBJPRO__V106*/ meltfptr[97]; - /*_.MELT_ASSERT_FAILURE_FUN__V111*/ - meltfptr[110] = 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__V111*/ meltfptr[110] = 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___V110*/ - meltfptr[99] = /*_.MELT_ASSERT_FAILURE_FUN__V111*/ meltfptr[110];; + /*_._IFELSE___V110*/ meltfptr[99] = /*_.MELT_ASSERT_FAILURE_FUN__V111*/ meltfptr[110];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6442:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V111*/ - meltfptr[110] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V111*/ meltfptr[110] = 0 ; } ; } ; - /*_.IFCPP___V109*/ - meltfptr[93] = /*_._IFELSE___V110*/ meltfptr[99];; + /*_.IFCPP___V109*/ meltfptr[93] = /*_._IFELSE___V110*/ meltfptr[99];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6442:/ clear"); - /*clear*/ /*_#IS_OBJECT__L64*/ - meltfnum[62] = 0 ; + /*clear*/ /*_#IS_OBJECT__L64*/ meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V110*/ - meltfptr[99] = 0 ; + /*clear*/ /*_._IFELSE___V110*/ meltfptr[99] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29961,22 +27248,17 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V105*/ - meltfptr[98] = /*_.IFCPP___V109*/ meltfptr[93];; + /*_.LET___V105*/ meltfptr[98] = /*_.IFCPP___V109*/ meltfptr[93];; MELT_LOCATION("warmelt-outobj.melt:6436:/ clear"); - /*clear*/ /*_.OBJPRO__V106*/ - meltfptr[97] = 0 ; + /*clear*/ /*_.OBJPRO__V106*/ meltfptr[97] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V109*/ - meltfptr[93] = 0 ; - /*_._IFELSE___V104*/ - meltfptr[102] = /*_.LET___V105*/ meltfptr[98];; + /*clear*/ /*_.IFCPP___V109*/ meltfptr[93] = 0 ; + /*_._IFELSE___V104*/ meltfptr[102] = /*_.LET___V105*/ meltfptr[98];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6435:/ clear"); - /*clear*/ /*_.LET___V105*/ - meltfptr[98] = 0 ; + /*clear*/ /*_.LET___V105*/ meltfptr[98] = 0 ; } ; } @@ -29998,8 +27280,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ - if ((/*nil*/NULL)) /*then*/ + /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V113*/ meltfptr[99] = (/*nil*/NULL);; @@ -30028,28 +27309,23 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6445; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PRO__V93*/ meltfptr[86]; - /*_.MELT_ASSERT_FAILURE_FUN__V114*/ - meltfptr[97] = 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__V114*/ meltfptr[97] = 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___V113*/ - meltfptr[99] = /*_.MELT_ASSERT_FAILURE_FUN__V114*/ meltfptr[97];; + /*_._IFELSE___V113*/ meltfptr[99] = /*_.MELT_ASSERT_FAILURE_FUN__V114*/ meltfptr[97];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6445:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V114*/ - meltfptr[97] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V114*/ meltfptr[97] = 0 ; } ; } ; - /*_.IFCPP___V112*/ - meltfptr[110] = /*_._IFELSE___V113*/ meltfptr[99];; + /*_.IFCPP___V112*/ meltfptr[110] = /*_._IFELSE___V113*/ meltfptr[99];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6445:/ clear"); - /*clear*/ /*_._IFELSE___V113*/ - meltfptr[99] = 0 ; + /*clear*/ /*_._IFELSE___V113*/ meltfptr[99] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30060,74 +27336,58 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6444:/ quasiblock"); - /*_.PROGN___V115*/ - meltfptr[93] = /*_.IFCPP___V112*/ meltfptr[110];; + /*_.PROGN___V115*/ meltfptr[93] = /*_.IFCPP___V112*/ meltfptr[110];; /*^compute*/ - /*_._IFELSE___V104*/ - meltfptr[102] = /*_.PROGN___V115*/ meltfptr[93];; + /*_._IFELSE___V104*/ meltfptr[102] = /*_.PROGN___V115*/ meltfptr[93];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6435:/ clear"); - /*clear*/ /*_.IFCPP___V112*/ - meltfptr[110] = 0 ; + /*clear*/ /*_.IFCPP___V112*/ meltfptr[110] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V115*/ - meltfptr[93] = 0 ; + /*clear*/ /*_.PROGN___V115*/ meltfptr[93] = 0 ; } ; } ; - /*_._IFELSE___V96*/ - meltfptr[94] = /*_._IFELSE___V104*/ meltfptr[102];; + /*_._IFELSE___V96*/ meltfptr[94] = /*_._IFELSE___V104*/ meltfptr[102];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6426:/ clear"); - /*clear*/ /*_#IS_A__L61*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#IS_A__L61*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V104*/ - meltfptr[102] = 0 ; + /*clear*/ /*_._IFELSE___V104*/ meltfptr[102] = 0 ; } ; } ; } /* end foreach_pair_component_in_list meltcit2__EACHLIST */ /*_.CURPAIR__V92*/ meltfptr[90] = NULL; - /*_.PRO__V93*/ - meltfptr[86] = NULL; + /*_.PRO__V93*/ meltfptr[86] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6416:/ clear"); - /*clear*/ /*_.CURPAIR__V92*/ - meltfptr[90] = 0 ; + /*clear*/ /*_.CURPAIR__V92*/ meltfptr[90] = 0 ; /*^clear*/ - /*clear*/ /*_.PRO__V93*/ - meltfptr[86] = 0 ; + /*clear*/ /*_.PRO__V93*/ meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L53*/ - meltfnum[49] = 0 ; + /*clear*/ /*_#plI__L53*/ meltfnum[49] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L54*/ - meltfnum[50] = 0 ; + /*clear*/ /*_#SETQ___L54*/ meltfnum[50] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L57*/ - meltfnum[55] = 0 ; + /*clear*/ /*_#IS_A__L57*/ meltfnum[55] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V96*/ - meltfptr[94] = 0 ; + /*clear*/ /*_._IFELSE___V96*/ meltfptr[94] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_CHECK_SIGNAL(); ; - /*_#MELT_ERROR_COUNTER__L65*/ - meltfnum[58] = + /*_#MELT_ERROR_COUNTER__L65*/ meltfnum[58] = melt_error_counter;; MELT_LOCATION("warmelt-outobj.melt:6448:/ cond"); - /*cond*/ - if (/*_#MELT_ERROR_COUNTER__L65*/ meltfnum[58]) /*then*/ + /*cond*/ if (/*_#MELT_ERROR_COUNTER__L65*/ meltfnum[58]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30137,12 +27397,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L66*/ - meltfnum[62] = + /*_#IS_CLOSURE__L66*/ meltfnum[62] = (melt_magic_discr((melt_ptr_t)(/*_.ERRORHDLR__V39*/ meltfptr[8])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-outobj.melt:6449:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L66*/ meltfnum[62]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L66*/ meltfnum[62]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30158,13 +27416,11 @@ meltlab_endgetargs: /*_.ERRORHDLR__V118*/ meltfptr[99] = melt_apply ((meltclosure_ptr_t)(/*_.ERRORHDLR__V39*/ meltfptr[8]), (melt_ptr_t)((/*!konst_15*/ meltfrout->tabval[15])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; - /*_._IF___V117*/ - meltfptr[97] = /*_.ERRORHDLR__V118*/ meltfptr[99];; + /*_._IF___V117*/ meltfptr[97] = /*_.ERRORHDLR__V118*/ meltfptr[99];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6449:/ clear"); - /*clear*/ /*_.ERRORHDLR__V118*/ - meltfptr[99] = 0 ; + /*clear*/ /*_.ERRORHDLR__V118*/ meltfptr[99] = 0 ; } ; } @@ -30186,8 +27442,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6456:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-outobj.melt:6456:/ locexp"); @@ -30202,30 +27457,23 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-outobj.melt:6448:/ quasiblock"); - /*_.PROGN___V120*/ - meltfptr[93] = /*_.RETURN___V119*/ meltfptr[110];; + /*_.PROGN___V120*/ meltfptr[93] = /*_.RETURN___V119*/ meltfptr[110];; /*^compute*/ - /*_._IF___V116*/ - meltfptr[98] = /*_.PROGN___V120*/ meltfptr[93];; + /*_._IF___V116*/ meltfptr[98] = /*_.PROGN___V120*/ meltfptr[93];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6448:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L66*/ - meltfnum[62] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L66*/ meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V117*/ - meltfptr[97] = 0 ; + /*clear*/ /*_._IF___V117*/ meltfptr[97] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V119*/ - meltfptr[110] = 0 ; + /*clear*/ /*_.RETURN___V119*/ meltfptr[110] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V120*/ - meltfptr[93] = 0 ; + /*clear*/ /*_.PROGN___V120*/ meltfptr[93] = 0 ; } ; } @@ -30245,12 +27493,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L67*/ - meltfnum[54] = + /*_#IS_LIST__L67*/ meltfnum[54] = (melt_magic_discr((melt_ptr_t)(/*_.OBJLIST__V85*/ meltfptr[59])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:6459:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L67*/ meltfnum[54]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L67*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V122*/ meltfptr[99] = (/*nil*/NULL);; @@ -30279,31 +27525,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6459; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBJLIST__V85*/ meltfptr[59]; - /*_.MELT_ASSERT_FAILURE_FUN__V123*/ - meltfptr[97] = 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__V123*/ meltfptr[97] = 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___V122*/ - meltfptr[99] = /*_.MELT_ASSERT_FAILURE_FUN__V123*/ meltfptr[97];; + /*_._IFELSE___V122*/ meltfptr[99] = /*_.MELT_ASSERT_FAILURE_FUN__V123*/ meltfptr[97];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6459:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V123*/ - meltfptr[97] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V123*/ meltfptr[97] = 0 ; } ; } ; - /*_.IFCPP___V121*/ - meltfptr[102] = /*_._IFELSE___V122*/ meltfptr[99];; + /*_.IFCPP___V121*/ meltfptr[102] = /*_._IFELSE___V122*/ meltfptr[99];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6459:/ clear"); - /*clear*/ /*_#IS_LIST__L67*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#IS_LIST__L67*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V122*/ - meltfptr[99] = 0 ; + /*clear*/ /*_._IFELSE___V122*/ meltfptr[99] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30331,8 +27571,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L68*/ - meltfnum[62] = + /*_#MELT_NEED_DBG__L68*/ meltfnum[62] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30341,8 +27580,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6460:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L68*/ meltfnum[62]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L68*/ meltfnum[62]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30375,20 +27613,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list checking elements of objlist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBJLIST__V85*/ meltfptr[59]; - /*_.MELT_DEBUG_FUN__V125*/ - meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V125*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V124*/ - meltfptr[110] = /*_.MELT_DEBUG_FUN__V125*/ meltfptr[93];; + /*_._IF___V124*/ meltfptr[110] = /*_.MELT_DEBUG_FUN__V125*/ meltfptr[93];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6460:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L69*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L69*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V125*/ - meltfptr[93] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V125*/ meltfptr[93] = 0 ; } ; } @@ -30401,8 +27635,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6460:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -30411,11 +27644,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L68*/ - meltfnum[62] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L68*/ meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V124*/ - meltfptr[110] = 0 ; + /*clear*/ /*_._IF___V124*/ meltfptr[110] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30455,12 +27686,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L70*/ - meltfnum[54] = + /*_#IS_OBJECT__L70*/ meltfnum[54] = (melt_magic_discr((melt_ptr_t)(/*_.OBEL__V127*/ meltfptr[99])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-outobj.melt:6464:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L70*/ meltfnum[54]) /*then*/ + /*cond*/ if (/*_#IS_OBJECT__L70*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V129*/ meltfptr[110] = (/*nil*/NULL);; @@ -30489,31 +27718,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6464; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBEL__V127*/ meltfptr[99]; - /*_.MELT_ASSERT_FAILURE_FUN__V130*/ - meltfptr[129] = 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__V130*/ meltfptr[129] = 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___V129*/ - meltfptr[110] = /*_.MELT_ASSERT_FAILURE_FUN__V130*/ meltfptr[129];; + /*_._IFELSE___V129*/ meltfptr[110] = /*_.MELT_ASSERT_FAILURE_FUN__V130*/ meltfptr[129];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6464:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V130*/ - meltfptr[129] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V130*/ meltfptr[129] = 0 ; } ; } ; - /*_.IFCPP___V128*/ - meltfptr[93] = /*_._IFELSE___V129*/ meltfptr[110];; + /*_.IFCPP___V128*/ meltfptr[93] = /*_._IFELSE___V129*/ meltfptr[110];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6464:/ clear"); - /*clear*/ /*_#IS_OBJECT__L70*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#IS_OBJECT__L70*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V129*/ - meltfptr[110] = 0 ; + /*clear*/ /*_._IFELSE___V129*/ meltfptr[110] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30523,21 +27746,17 @@ meltlab_endgetargs: ; } /* end foreach_pair_component_in_list meltcit3__EACHLIST */ /*_.PAIREL__V126*/ meltfptr[97] = NULL; - /*_.OBEL__V127*/ - meltfptr[99] = NULL; + /*_.OBEL__V127*/ meltfptr[99] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6461:/ clear"); - /*clear*/ /*_.PAIREL__V126*/ - meltfptr[97] = 0 ; + /*clear*/ /*_.PAIREL__V126*/ meltfptr[97] = 0 ; /*^clear*/ - /*clear*/ /*_.OBEL__V127*/ - meltfptr[99] = 0 ; + /*clear*/ /*_.OBEL__V127*/ meltfptr[99] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V128*/ - meltfptr[93] = 0 ; + /*clear*/ /*_.IFCPP___V128*/ meltfptr[93] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_LOCATION("warmelt-outobj.melt:6467:/ quasiblock"); @@ -30548,8 +27767,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NCTX_INITPROC"); - /*_.INIPRO__V132*/ - meltfptr[110] = slot; + /*_.INIPRO__V132*/ meltfptr[110] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:6468:/ getslot"); @@ -30557,8 +27775,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NCTX_DATALIST"); - /*_.INIDATA__V133*/ - meltfptr[132] = slot; + /*_.INIDATA__V133*/ meltfptr[132] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:6469:/ getslot"); @@ -30566,8 +27783,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NCTX_VALUELIST"); - /*_.IMPORTVALUES__V134*/ - meltfptr[133] = slot; + /*_.IMPORTVALUES__V134*/ meltfptr[133] = slot; }; ; MELT_LOCATION("warmelt-outobj.melt:6470:/ getslot"); @@ -30575,8 +27791,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 15, "NCTX_PROCURMODENVLIST"); - /*_.PROCURMODENVLIST__V135*/ - meltfptr[134] = slot; + /*_.PROCURMODENVLIST__V135*/ meltfptr[134] = slot; }; ; @@ -30599,8 +27814,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L71*/ - meltfnum[62] = + /*_#MELT_NEED_DBG__L71*/ meltfnum[62] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30609,8 +27823,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6472:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L71*/ meltfnum[62]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L71*/ meltfnum[62]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30626,8 +27839,7 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ - /*_.DISCRIM__V137*/ - meltfptr[136] = + /*_.DISCRIM__V137*/ meltfptr[136] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.INIPRO__V132*/ meltfptr[110]))));; MELT_CHECK_SIGNAL(); @@ -30663,23 +27875,18 @@ meltlab_endgetargs: argtab[11].meltbp_cstring = "\n.. normlist="; /*^apply.arg*/ argtab[12].meltbp_aptr = (melt_ptr_t*) &/*_.NORMLIST__V48*/ meltfptr[44]; - /*_.MELT_DEBUG_FUN__V138*/ - meltfptr[137] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V136*/ - meltfptr[135] = /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137];; + /*_._IF___V136*/ meltfptr[135] = /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6472:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L72*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L72*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_.DISCRIM__V137*/ - meltfptr[136] = 0 ; + /*clear*/ /*_.DISCRIM__V137*/ meltfptr[136] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V138*/ - meltfptr[137] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137] = 0 ; } ; } @@ -30692,8 +27899,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6472:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -30702,11 +27908,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L71*/ - meltfnum[62] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L71*/ meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V136*/ - meltfptr[135] = 0 ; + /*clear*/ /*_._IF___V136*/ meltfptr[135] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30737,8 +27941,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.INIPRO__V132*/ meltfptr[110]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ meltfrout->tabval[8]))) ) /*then*/ @@ -30749,8 +27952,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.INIPRO__V132*/ meltfptr[110]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NPROC_BODY"); - /*_.NPROC_BODY__V140*/ - meltfptr[137] = slot; + /*_.NPROC_BODY__V140*/ meltfptr[137] = slot; }; ; } @@ -30761,12 +27963,10 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#NULL__L73*/ - meltfnum[54] = + /*_#NULL__L73*/ meltfnum[54] = ((/*_.NPROC_BODY__V140*/ meltfptr[137]) == NULL);; MELT_LOCATION("warmelt-outobj.melt:6477:/ cond"); - /*cond*/ - if (/*_#NULL__L73*/ meltfnum[54]) /*then*/ + /*cond*/ if (/*_#NULL__L73*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V141*/ meltfptr[135] = (/*nil*/NULL);; @@ -30795,34 +27995,27 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6477; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.INIPRO__V132*/ meltfptr[110]; - /*_.MELT_ASSERT_FAILURE_FUN__V142*/ - meltfptr[141] = 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__V142*/ meltfptr[141] = 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___V141*/ - meltfptr[135] = /*_.MELT_ASSERT_FAILURE_FUN__V142*/ meltfptr[141];; + /*_._IFELSE___V141*/ meltfptr[135] = /*_.MELT_ASSERT_FAILURE_FUN__V142*/ meltfptr[141];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6477:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V142*/ - meltfptr[141] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V142*/ meltfptr[141] = 0 ; } ; } ; - /*_.IFCPP___V139*/ - meltfptr[136] = /*_._IFELSE___V141*/ meltfptr[135];; + /*_.IFCPP___V139*/ meltfptr[136] = /*_._IFELSE___V141*/ meltfptr[135];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6477:/ clear"); - /*clear*/ /*_.NPROC_BODY__V140*/ - meltfptr[137] = 0 ; + /*clear*/ /*_.NPROC_BODY__V140*/ meltfptr[137] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L73*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#NULL__L73*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V141*/ - meltfptr[135] = 0 ; + /*clear*/ /*_._IFELSE___V141*/ meltfptr[135] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30837,8 +28030,7 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V144*/ - meltfptr[137] = + /*newclosure*/ /*_.LAMBDA___V144*/ meltfptr[137] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_20*/ meltfrout->tabval[20])), (2)); ; /*^putclosedv*/ @@ -30853,8 +28045,7 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V144*/ meltfptr[137]))); ((meltclosure_ptr_t)/*_.LAMBDA___V144*/ meltfptr[137])->tabval[1] = (melt_ptr_t)(/*_.NCX__V5*/ meltfptr[4]); ; - /*_.LAMBDA___V143*/ - meltfptr[141] = /*_.LAMBDA___V144*/ meltfptr[137];; + /*_.LAMBDA___V143*/ meltfptr[141] = /*_.LAMBDA___V144*/ meltfptr[137];; MELT_CHECK_SIGNAL(); ; @@ -30867,8 +28058,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[17]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V143*/ meltfptr[141]; - /*_.IMPORTUP__V145*/ - meltfptr[135] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.IMPORTVALUES__V134*/ meltfptr[133]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.IMPORTUP__V145*/ meltfptr[135] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.IMPORTVALUES__V134*/ meltfptr[133]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -30891,8 +28081,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L74*/ - meltfnum[62] = + /*_#MELT_NEED_DBG__L74*/ meltfnum[62] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30901,8 +28090,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6488:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L74*/ meltfnum[62]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L74*/ meltfnum[62]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30935,20 +28123,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list importup="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.IMPORTUP__V145*/ meltfptr[135]; - /*_.MELT_DEBUG_FUN__V147*/ - meltfptr[146] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V147*/ meltfptr[146] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V146*/ - meltfptr[145] = /*_.MELT_DEBUG_FUN__V147*/ meltfptr[146];; + /*_._IF___V146*/ meltfptr[145] = /*_.MELT_DEBUG_FUN__V147*/ meltfptr[146];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6488:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L75*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L75*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V147*/ - meltfptr[146] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V147*/ meltfptr[146] = 0 ; } ; } @@ -30961,8 +28145,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6488:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -30971,11 +28154,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L74*/ - meltfnum[62] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L74*/ meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V146*/ - meltfptr[145] = 0 ; + /*clear*/ /*_._IF___V146*/ meltfptr[145] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30999,8 +28180,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6489:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.INIPRO__V132*/ meltfptr[110]), (melt_ptr_t)((/*!CLASS_NREP_INITPROC*/ meltfrout->tabval[7]))) ) /*then*/ @@ -31057,8 +28237,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L76*/ - meltfnum[54] = + /*_#MELT_NEED_DBG__L76*/ meltfnum[54] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31067,8 +28246,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6491:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L76*/ meltfnum[54]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L76*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31101,20 +28279,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list unpdated inipro="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.INIPRO__V132*/ meltfptr[110]; - /*_.MELT_DEBUG_FUN__V149*/ - meltfptr[145] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V149*/ meltfptr[145] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V148*/ - meltfptr[146] = /*_.MELT_DEBUG_FUN__V149*/ meltfptr[145];; + /*_._IF___V148*/ meltfptr[146] = /*_.MELT_DEBUG_FUN__V149*/ meltfptr[145];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6491:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L77*/ - meltfnum[62] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L77*/ meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V149*/ - meltfptr[145] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V149*/ meltfptr[145] = 0 ; } ; } @@ -31127,8 +28301,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6491:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -31137,11 +28310,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L76*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L76*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V148*/ - meltfptr[146] = 0 ; + /*clear*/ /*_._IF___V148*/ meltfptr[146] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31163,11 +28334,9 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:6478:/ clear"); - /*clear*/ /*_.LAMBDA___V143*/ - meltfptr[141] = 0 ; + /*clear*/ /*_.LAMBDA___V143*/ meltfptr[141] = 0 ; /*^clear*/ - /*clear*/ /*_.IMPORTUP__V145*/ - meltfptr[135] = 0 ; + /*clear*/ /*_.IMPORTUP__V145*/ meltfptr[135] = 0 ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-outobj.melt:6493:/ cppif.then"); @@ -31178,12 +28347,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L78*/ - meltfnum[62] = + /*_#IS_A__L78*/ meltfnum[62] = melt_is_instance_of((melt_ptr_t)(/*_.INIPRO__V132*/ meltfptr[110]), (melt_ptr_t)((/*!CLASS_NREP_INITPROC*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-outobj.melt:6493:/ cond"); - /*cond*/ - if (/*_#IS_A__L78*/ meltfnum[62]) /*then*/ + /*cond*/ if (/*_#IS_A__L78*/ meltfnum[62]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V151*/ meltfptr[146] = (/*nil*/NULL);; @@ -31212,31 +28379,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6493; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.INIPRO__V132*/ meltfptr[110]; - /*_.MELT_ASSERT_FAILURE_FUN__V152*/ - meltfptr[141] = 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__V152*/ meltfptr[141] = 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___V151*/ - meltfptr[146] = /*_.MELT_ASSERT_FAILURE_FUN__V152*/ meltfptr[141];; + /*_._IFELSE___V151*/ meltfptr[146] = /*_.MELT_ASSERT_FAILURE_FUN__V152*/ meltfptr[141];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6493:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V152*/ - meltfptr[141] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V152*/ meltfptr[141] = 0 ; } ; } ; - /*_.IFCPP___V150*/ - meltfptr[145] = /*_._IFELSE___V151*/ meltfptr[146];; + /*_.IFCPP___V150*/ meltfptr[145] = /*_._IFELSE___V151*/ meltfptr[146];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6493:/ clear"); - /*clear*/ /*_#IS_A__L78*/ - meltfnum[62] = 0 ; + /*clear*/ /*_#IS_A__L78*/ meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V151*/ - meltfptr[146] = 0 ; + /*clear*/ /*_._IFELSE___V151*/ meltfptr[146] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31254,12 +28415,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L79*/ - meltfnum[54] = + /*_#IS_CLOSURE__L79*/ meltfnum[54] = (melt_magic_discr((melt_ptr_t)(/*_.INIPROCTRANSL__V8*/ meltfptr[7])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-outobj.melt:6494:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L79*/ meltfnum[54]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L79*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V154*/ meltfptr[141] = (/*nil*/NULL);; @@ -31288,31 +28447,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6494; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.INIPROCTRANSL__V8*/ meltfptr[7]; - /*_.MELT_ASSERT_FAILURE_FUN__V155*/ - meltfptr[146] = 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__V155*/ meltfptr[146] = 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___V154*/ - meltfptr[141] = /*_.MELT_ASSERT_FAILURE_FUN__V155*/ meltfptr[146];; + /*_._IFELSE___V154*/ meltfptr[141] = /*_.MELT_ASSERT_FAILURE_FUN__V155*/ meltfptr[146];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6494:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V155*/ - meltfptr[146] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V155*/ meltfptr[146] = 0 ; } ; } ; - /*_.IFCPP___V153*/ - meltfptr[135] = /*_._IFELSE___V154*/ meltfptr[141];; + /*_.IFCPP___V153*/ meltfptr[135] = /*_._IFELSE___V154*/ meltfptr[141];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6494:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L79*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L79*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V154*/ - meltfptr[141] = 0 ; + /*clear*/ /*_._IFELSE___V154*/ meltfptr[141] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31340,8 +28493,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L80*/ - meltfnum[62] = + /*_#MELT_NEED_DBG__L80*/ meltfnum[62] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31350,8 +28502,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6495:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L80*/ meltfnum[62]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L80*/ meltfnum[62]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31392,20 +28543,16 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. objlist="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OBJLIST__V85*/ meltfptr[59]; - /*_.MELT_DEBUG_FUN__V157*/ - meltfptr[141] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V157*/ meltfptr[141] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V156*/ - meltfptr[146] = /*_.MELT_DEBUG_FUN__V157*/ meltfptr[141];; + /*_._IF___V156*/ meltfptr[146] = /*_.MELT_DEBUG_FUN__V157*/ meltfptr[141];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6495:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L81*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L81*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V157*/ - meltfptr[141] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V157*/ meltfptr[141] = 0 ; } ; } @@ -31418,8 +28565,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6495:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -31428,11 +28574,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L80*/ - meltfnum[62] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L80*/ meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V156*/ - meltfptr[146] = 0 ; + /*clear*/ /*_._IF___V156*/ meltfptr[146] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31472,12 +28616,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L82*/ - meltfnum[54] = + /*_#IS_OBJECT__L82*/ meltfnum[54] = (melt_magic_discr((melt_ptr_t)(/*_.OBEL__V159*/ meltfptr[146])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-outobj.melt:6501:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L82*/ meltfnum[54]) /*then*/ + /*cond*/ if (/*_#IS_OBJECT__L82*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V161*/ meltfptr[160] = (/*nil*/NULL);; @@ -31506,31 +28648,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6501; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBEL__V159*/ meltfptr[146]; - /*_.MELT_ASSERT_FAILURE_FUN__V162*/ - meltfptr[161] = 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__V162*/ meltfptr[161] = 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___V161*/ - meltfptr[160] = /*_.MELT_ASSERT_FAILURE_FUN__V162*/ meltfptr[161];; + /*_._IFELSE___V161*/ meltfptr[160] = /*_.MELT_ASSERT_FAILURE_FUN__V162*/ meltfptr[161];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6501:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V162*/ - meltfptr[161] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V162*/ meltfptr[161] = 0 ; } ; } ; - /*_.IFCPP___V160*/ - meltfptr[159] = /*_._IFELSE___V161*/ meltfptr[160];; + /*_.IFCPP___V160*/ meltfptr[159] = /*_._IFELSE___V161*/ meltfptr[160];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6501:/ clear"); - /*clear*/ /*_#IS_OBJECT__L82*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#IS_OBJECT__L82*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V161*/ - meltfptr[160] = 0 ; + /*clear*/ /*_._IFELSE___V161*/ meltfptr[160] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31540,21 +28676,17 @@ meltlab_endgetargs: ; } /* end foreach_pair_component_in_list meltcit4__EACHLIST */ /*_.PAIREL__V158*/ meltfptr[141] = NULL; - /*_.OBEL__V159*/ - meltfptr[146] = NULL; + /*_.OBEL__V159*/ meltfptr[146] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6498:/ clear"); - /*clear*/ /*_.PAIREL__V158*/ - meltfptr[141] = 0 ; + /*clear*/ /*_.PAIREL__V158*/ meltfptr[141] = 0 ; /*^clear*/ - /*clear*/ /*_.OBEL__V159*/ - meltfptr[146] = 0 ; + /*clear*/ /*_.OBEL__V159*/ meltfptr[146] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V160*/ - meltfptr[159] = 0 ; + /*clear*/ /*_.IFCPP___V160*/ meltfptr[159] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_LOCATION("warmelt-outobj.melt:6503:/ quasiblock"); @@ -31576,8 +28708,7 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V86*/ meltfptr[85]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PROCURMODENVLIST__V135*/ meltfptr[134]; - /*_.INIOBJ__V164*/ - meltfptr[160] = melt_apply ((meltclosure_ptr_t)(/*_.INIPROCTRANSL__V8*/ meltfptr[7]), (melt_ptr_t)(/*_.INIPRO__V132*/ meltfptr[110]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INIOBJ__V164*/ meltfptr[160] = melt_apply ((meltclosure_ptr_t)(/*_.INIPROCTRANSL__V8*/ meltfptr[7]), (melt_ptr_t)(/*_.INIPRO__V132*/ meltfptr[110]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -31600,8 +28731,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L83*/ - meltfnum[62] = + /*_#MELT_NEED_DBG__L83*/ meltfnum[62] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31610,8 +28740,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6506:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L83*/ meltfnum[62]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L83*/ meltfnum[62]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31648,20 +28777,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n objlist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OBJLIST__V85*/ meltfptr[59]; - /*_.MELT_DEBUG_FUN__V166*/ - meltfptr[165] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V166*/ meltfptr[165] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V165*/ - meltfptr[164] = /*_.MELT_DEBUG_FUN__V166*/ meltfptr[165];; + /*_._IF___V165*/ meltfptr[164] = /*_.MELT_DEBUG_FUN__V166*/ meltfptr[165];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6506:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L84*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L84*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V166*/ - meltfptr[165] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V166*/ meltfptr[165] = 0 ; } ; } @@ -31674,8 +28799,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6506:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -31684,11 +28808,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L83*/ - meltfnum[62] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L83*/ meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V165*/ - meltfptr[164] = 0 ; + /*clear*/ /*_._IF___V165*/ meltfptr[164] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31712,8 +28834,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6511:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2]))) ) /*then*/ @@ -31724,8 +28845,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 12, "MOCX_STARTCOMMENT"); - /*_.MSTARTCOM__V168*/ - meltfptr[164] = slot; + /*_.MSTARTCOM__V168*/ meltfptr[164] = slot; }; ; } @@ -31736,8 +28856,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6512:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2]))) ) /*then*/ @@ -31748,8 +28867,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 10, "MOCX_CHEADERLIST"); - /*_.MOCX_CHEADERLIST__V169*/ - meltfptr[168] = slot; + /*_.MOCX_CHEADERLIST__V169*/ meltfptr[168] = slot; }; ; } @@ -31769,13 +28887,11 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[17]); - /*_.MHEADERTUP__V170*/ - meltfptr[169] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MOCX_CHEADERLIST__V169*/ meltfptr[168]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MHEADERTUP__V170*/ meltfptr[169] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MOCX_CHEADERLIST__V169*/ meltfptr[168]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6513:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2]))) ) /*then*/ @@ -31786,8 +28902,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 11, "MOCX_CIMPLEMENTLIST"); - /*_.MOCX_CIMPLEMENTLIST__V171*/ - meltfptr[170] = slot; + /*_.MOCX_CIMPLEMENTLIST__V171*/ meltfptr[170] = slot; }; ; } @@ -31807,13 +28922,11 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[17]); - /*_.MIMPLEMTUP__V172*/ - meltfptr[171] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MOCX_CIMPLEMENTLIST__V171*/ meltfptr[170]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MIMPLEMTUP__V172*/ meltfptr[171] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MOCX_CIMPLEMENTLIST__V171*/ meltfptr[170]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6514:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2]))) ) /*then*/ @@ -31824,8 +28937,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 17, "MOCX_VARLIST"); - /*_.MODVARLIST__V173*/ - meltfptr[172] = slot; + /*_.MODVARLIST__V173*/ meltfptr[172] = slot; }; ; } @@ -31836,16 +28948,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#NBHEADERS__L85*/ - meltfnum[54] = + /*_#NBHEADERS__L85*/ meltfnum[54] = (melt_multiple_length((melt_ptr_t)(/*_.MHEADERTUP__V170*/ meltfptr[169])));; /*^compute*/ - /*_#NBIMPLEMS__L86*/ - meltfnum[62] = + /*_#NBIMPLEMS__L86*/ meltfnum[62] = (melt_multiple_length((melt_ptr_t)(/*_.MIMPLEMTUP__V172*/ meltfptr[171])));; MELT_LOCATION("warmelt-outobj.melt:6517:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2]))) ) /*then*/ @@ -31856,8 +28965,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 18, "MOCX_HOOKDICT"); - /*_.MODHOOKDICT__V174*/ - meltfptr[173] = slot; + /*_.MODHOOKDICT__V174*/ meltfptr[173] = slot; }; ; } @@ -31868,12 +28976,10 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#NBMODHOOKS__L87*/ - meltfnum[86] = + /*_#NBMODHOOKS__L87*/ meltfnum[86] = (melt_count_mapstrings((struct meltmapstrings_st*)(/*_.MODHOOKDICT__V174*/ meltfptr[173])));; /*^compute*/ - /*_.HOOKSWITHMODVARLIST__V175*/ - meltfptr[174] = + /*_.HOOKSWITHMODVARLIST__V175*/ meltfptr[174] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[10]))));; #if MELT_HAVE_DEBUG @@ -31895,8 +29001,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L88*/ - meltfnum[87] = + /*_#MELT_NEED_DBG__L88*/ meltfnum[87] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31905,8 +29010,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6521:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L88*/ meltfnum[87]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L88*/ meltfnum[87]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31947,20 +29051,16 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n .. mimplemtup="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.MIMPLEMTUP__V172*/ meltfptr[171]; - /*_.MELT_DEBUG_FUN__V177*/ - meltfptr[176] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V177*/ meltfptr[176] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V176*/ - meltfptr[175] = /*_.MELT_DEBUG_FUN__V177*/ meltfptr[176];; + /*_._IF___V176*/ meltfptr[175] = /*_.MELT_DEBUG_FUN__V177*/ meltfptr[176];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6521:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L89*/ - meltfnum[88] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L89*/ meltfnum[88] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V177*/ - meltfptr[176] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V177*/ meltfptr[176] = 0 ; } ; } @@ -31973,8 +29073,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6521:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -31983,11 +29082,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L88*/ - meltfnum[87] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L88*/ meltfnum[87] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V176*/ - meltfptr[175] = 0 ; + /*clear*/ /*_._IF___V176*/ meltfptr[175] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32017,12 +29114,10 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "/**** MELT GENERATED DECLARATIONS for "; - /*_.ADD2OUT__V178*/ - meltfptr[176] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V178*/ meltfptr[176] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.MAKE_STRING_NAKEDBASENAME__V179*/ - meltfptr[175] = + /*_.MAKE_STRING_NAKEDBASENAME__V179*/ meltfptr[175] = (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[22])), melt_string_str((melt_ptr_t)(/*_.MODNAMSTR__V3*/ meltfptr[2]))));; @@ -32042,8 +29137,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " ** DO NOT EDIT ; see gcc-melt.org ****/"; - /*_.ADD2OUT__V180*/ - meltfptr[179] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V180*/ meltfptr[179] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32062,12 +29156,10 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "/**** MELT GENERATED IMPLEMENTATIONS for "; - /*_.ADD2OUT__V181*/ - meltfptr[180] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V181*/ meltfptr[180] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.MAKE_STRING_NAKEDBASENAME__V182*/ - meltfptr[181] = + /*_.MAKE_STRING_NAKEDBASENAME__V182*/ meltfptr[181] = (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[22])), melt_string_str((melt_ptr_t)(/*_.MODNAMSTR__V3*/ meltfptr[2]))));; @@ -32087,8 +29179,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " ** DO NOT EDIT ; see gcc-melt.org ****/"; - /*_.ADD2OUT__V183*/ - meltfptr[182] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V183*/ meltfptr[182] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32106,12 +29197,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L90*/ - meltfnum[88] = + /*_#IS_STRING__L90*/ meltfnum[88] = (melt_magic_discr((melt_ptr_t)(/*_.MSTARTCOM__V168*/ meltfptr[164])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-outobj.melt:6534:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L90*/ meltfnum[88]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L90*/ meltfnum[88]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32128,8 +29217,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "/****++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n"; - /*_.ADD2OUT__V184*/ - meltfptr[183] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V184*/ meltfptr[183] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32156,8 +29244,7 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[0].meltbp_cstring = "----------------------------------------------------------------**\ **/\n\n"; - /*_.ADD2OUT__V185*/ - meltfptr[184] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V185*/ meltfptr[184] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32172,11 +29259,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.ADD2OUT__V184*/ - meltfptr[183] = 0 ; + /*clear*/ /*_.ADD2OUT__V184*/ meltfptr[183] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V185*/ - meltfptr[184] = 0 ; + /*clear*/ /*_.ADD2OUT__V185*/ meltfptr[184] = 0 ; } ; } /*noelse*/ @@ -32185,8 +29270,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6541:/ cond"); - /*cond*/ - if (/*_.MODINIENV__V41*/ meltfptr[40]) /*then*/ + /*cond*/ if (/*_.MODINIENV__V41*/ meltfptr[40]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32207,8 +29291,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[2].meltbp_cstring = "**/"; - /*_.ADD2OUT__V187*/ - meltfptr[184] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V187*/ meltfptr[184] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32227,29 +29310,23 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "#define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usualmodule*/\n"; - /*_.ADD2OUT__V188*/ - meltfptr[187] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V188*/ meltfptr[187] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6542:/ quasiblock"); - /*_.PROGN___V189*/ - meltfptr[188] = /*_.ADD2OUT__V188*/ meltfptr[187];; + /*_.PROGN___V189*/ meltfptr[188] = /*_.ADD2OUT__V188*/ meltfptr[187];; /*^compute*/ - /*_._IFELSE___V186*/ - meltfptr[183] = /*_.PROGN___V189*/ meltfptr[188];; + /*_._IFELSE___V186*/ meltfptr[183] = /*_.PROGN___V189*/ meltfptr[188];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6541:/ clear"); - /*clear*/ /*_.ADD2OUT__V187*/ - meltfptr[184] = 0 ; + /*clear*/ /*_.ADD2OUT__V187*/ meltfptr[184] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V188*/ - meltfptr[187] = 0 ; + /*clear*/ /*_.ADD2OUT__V188*/ meltfptr[187] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V189*/ - meltfptr[188] = 0 ; + /*clear*/ /*_.PROGN___V189*/ meltfptr[188] = 0 ; } ; } @@ -32274,8 +29351,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[2].meltbp_cstring = "**/"; - /*_.ADD2OUT__V190*/ - meltfptr[184] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V190*/ meltfptr[184] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32294,8 +29370,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "#define MELT_HAS_INITIAL_ENVIRONMENT 0 /*firstmodule*/\n"; - /*_.ADD2OUT__V191*/ - meltfptr[187] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V191*/ meltfptr[187] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32316,11 +29391,9 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6541:/ clear"); - /*clear*/ /*_.ADD2OUT__V190*/ - meltfptr[184] = 0 ; + /*clear*/ /*_.ADD2OUT__V190*/ meltfptr[184] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V191*/ - meltfptr[187] = 0 ; + /*clear*/ /*_.ADD2OUT__V191*/ meltfptr[187] = 0 ; } ; } @@ -32368,8 +29441,7 @@ meltlab_endgetargs: argtab[2].meltbp_cstring = "; // forward declaration fromline "; /*^apply.arg*/ argtab[3].meltbp_long = 6566; - /*_.ADD2OUT__V193*/ - meltfptr[184] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V193*/ meltfptr[184] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -32401,8 +29473,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.INITIAL_CLASSY_FRAME_NAME__V194*/ meltfptr[187]; /*^apply.arg*/ argtab[2].meltbp_cstring = " Melt_InitialFrame;"; - /*_.ADD2OUT__V195*/ - meltfptr[194] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V195*/ meltfptr[194] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32424,22 +29495,18 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[17]); - /*_.MODVARTUP__V197*/ - meltfptr[196] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MODVARLIST__V173*/ meltfptr[172]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MODVARTUP__V197*/ meltfptr[196] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.MODVARLIST__V173*/ meltfptr[172]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#NBMODVARS__L91*/ - meltfnum[87] = + /*_#NBMODVARS__L91*/ meltfnum[87] = (melt_multiple_length((melt_ptr_t)(/*_.MODVARTUP__V197*/ meltfptr[196])));; MELT_LOCATION("warmelt-outobj.melt:6575:/ quasiblock"); - /*_.SBUF__V199*/ - meltfptr[198] = + /*_.SBUF__V199*/ meltfptr[198] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[5])), (const char*)0);; MELT_LOCATION("warmelt-outobj.melt:6576:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2]))) ) /*then*/ @@ -32450,8 +29517,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 1, "MOCX_MODULENAME"); - /*_.MOCX_MODULENAME__V200*/ - meltfptr[199] = slot; + /*_.MOCX_MODULENAME__V200*/ meltfptr[199] = slot; }; ; } @@ -32468,30 +29534,23 @@ meltlab_endgetargs: melt_string_str((melt_ptr_t)(/*_.MOCX_MODULENAME__V200*/ meltfptr[199]))); } ; - /*_.STRBUF2STRING__V201*/ - meltfptr[200] = + /*_.STRBUF2STRING__V201*/ meltfptr[200] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[24])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V199*/ meltfptr[198]))));; /*^compute*/ - /*_.LET___V198*/ - meltfptr[197] = /*_.STRBUF2STRING__V201*/ meltfptr[200];; + /*_.LET___V198*/ meltfptr[197] = /*_.STRBUF2STRING__V201*/ meltfptr[200];; MELT_LOCATION("warmelt-outobj.melt:6575:/ clear"); - /*clear*/ /*_.SBUF__V199*/ - meltfptr[198] = 0 ; + /*clear*/ /*_.SBUF__V199*/ meltfptr[198] = 0 ; /*^clear*/ - /*clear*/ /*_.MOCX_MODULENAME__V200*/ - meltfptr[199] = 0 ; + /*clear*/ /*_.MOCX_MODULENAME__V200*/ meltfptr[199] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V201*/ - meltfptr[200] = 0 ; - /*_.MODNAMCIDENT__V202*/ - meltfptr[198] = /*_.LET___V198*/ meltfptr[197];; + /*clear*/ /*_.STRBUF2STRING__V201*/ meltfptr[200] = 0 ; + /*_.MODNAMCIDENT__V202*/ meltfptr[198] = /*_.LET___V198*/ meltfptr[197];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6579:/ cond"); - /*cond*/ - if (/*_#NBMODVARS__L91*/ meltfnum[87]) /*then*/ + /*cond*/ if (/*_#NBMODVARS__L91*/ meltfnum[87]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32518,8 +29577,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L92*/ - meltfnum[91] = + /*_#MELT_NEED_DBG__L92*/ meltfnum[91] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -32528,8 +29586,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6581:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L92*/ meltfnum[91]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L92*/ meltfnum[91]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32562,20 +29619,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list modvartup="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MODVARTUP__V197*/ meltfptr[196]; - /*_.MELT_DEBUG_FUN__V205*/ - meltfptr[204] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V205*/ meltfptr[204] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V204*/ - meltfptr[200] = /*_.MELT_DEBUG_FUN__V205*/ meltfptr[204];; + /*_._IF___V204*/ meltfptr[200] = /*_.MELT_DEBUG_FUN__V205*/ meltfptr[204];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6581:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L93*/ - meltfnum[92] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L93*/ meltfnum[92] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V205*/ - meltfptr[204] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V205*/ meltfptr[204] = 0 ; } ; } @@ -32588,8 +29641,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6581:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -32598,11 +29650,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L92*/ - meltfnum[91] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L92*/ meltfnum[91] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V204*/ - meltfptr[200] = 0 ; + /*clear*/ /*_._IF___V204*/ meltfptr[200] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32636,8 +29686,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBMODVARS__L91*/ meltfnum[87]; /*^apply.arg*/ argtab[2].meltbp_cstring = " MELT module variables declarations ****/\n"; - /*_.ADD2OUT__V206*/ - meltfptr[204] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V206*/ meltfptr[204] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32654,8 +29703,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBMODVARS__L91*/ meltfnum[87]; /*^apply.arg*/ argtab[2].meltbp_cstring = " MELT module variables implementations ****/\n"; - /*_.ADD2OUT__V207*/ - meltfptr[200] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V207*/ meltfptr[200] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32668,8 +29716,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "MELT_EXTERN void melt_forwarding_module_data (void);\n"; - /*_.ADD2OUT__V208*/ - meltfptr[207] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V208*/ meltfptr[207] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32682,35 +29729,28 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "MELT_EXTERN void melt_marking_module_data (void);\n"; - /*_.ADD2OUT__V209*/ - meltfptr[208] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V209*/ meltfptr[208] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6587:/ quasiblock"); - /*_#plI__L94*/ - meltfnum[92] = + /*_#plI__L94*/ meltfnum[92] = ((/*_#NBMODVARS__L91*/ meltfnum[87]) + (1));; /*^compute*/ - /*_#diIRAW__L95*/ - meltfnum[91] = + /*_#diIRAW__L95*/ meltfnum[91] = ((/*_#plI__L94*/ meltfnum[92]) / (16));; /*^compute*/ - /*_#plI__L96*/ - meltfnum[95] = + /*_#plI__L96*/ meltfnum[95] = ((/*_#diIRAW__L95*/ meltfnum[91]) + (1));; /*^compute*/ - /*_#NBVARSLOTS__L97*/ - meltfnum[96] = + /*_#NBVARSLOTS__L97*/ meltfnum[96] = ((16) * (/*_#plI__L96*/ meltfnum[95]));; /*^compute*/ - /*_#diIRAW__L98*/ - meltfnum[97] = + /*_#diIRAW__L98*/ meltfnum[97] = ((/*_#NBMODVARS__L91*/ meltfnum[87]) / (16));; /*^compute*/ - /*_#NBFLAGS__L99*/ - meltfnum[98] = + /*_#NBFLAGS__L99*/ meltfnum[98] = ((/*_#diIRAW__L98*/ meltfnum[97]) + (1));; MELT_CHECK_SIGNAL(); @@ -32732,8 +29772,7 @@ meltlab_endgetargs: argtab[4].meltbp_long = /*_#NBVARSLOTS__L97*/ meltfnum[96]; /*^apply.arg*/ argtab[5].meltbp_cstring = "];\n"; - /*_.ADD2OUT__V211*/ - meltfptr[210] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V211*/ meltfptr[210] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32754,8 +29793,7 @@ meltlab_endgetargs: argtab[3].meltbp_long = /*_#NBFLAGS__L99*/ meltfnum[98]; /*^apply.arg*/ argtab[4].meltbp_cstring = "];\n\n"; - /*_.ADD2OUT__V212*/ - meltfptr[211] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V212*/ meltfptr[211] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32776,8 +29814,7 @@ meltlab_endgetargs: argtab[3].meltbp_long = /*_#NBVARSLOTS__L97*/ meltfnum[96]; /*^apply.arg*/ argtab[4].meltbp_cstring = "];\n"; - /*_.ADD2OUT__V213*/ - meltfptr[212] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V213*/ meltfptr[212] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32798,43 +29835,31 @@ meltlab_endgetargs: argtab[3].meltbp_long = /*_#NBFLAGS__L99*/ meltfnum[98]; /*^apply.arg*/ argtab[4].meltbp_cstring = "];\n"; - /*_.ADD2OUT__V214*/ - meltfptr[213] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V214*/ meltfptr[213] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V210*/ - meltfptr[209] = /*_.ADD2OUT__V214*/ meltfptr[213];; + /*_.LET___V210*/ meltfptr[209] = /*_.ADD2OUT__V214*/ meltfptr[213];; MELT_LOCATION("warmelt-outobj.melt:6587:/ clear"); - /*clear*/ /*_#plI__L94*/ - meltfnum[92] = 0 ; + /*clear*/ /*_#plI__L94*/ meltfnum[92] = 0 ; /*^clear*/ - /*clear*/ /*_#diIRAW__L95*/ - meltfnum[91] = 0 ; + /*clear*/ /*_#diIRAW__L95*/ meltfnum[91] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L96*/ - meltfnum[95] = 0 ; + /*clear*/ /*_#plI__L96*/ meltfnum[95] = 0 ; /*^clear*/ - /*clear*/ /*_#NBVARSLOTS__L97*/ - meltfnum[96] = 0 ; + /*clear*/ /*_#NBVARSLOTS__L97*/ meltfnum[96] = 0 ; /*^clear*/ - /*clear*/ /*_#diIRAW__L98*/ - meltfnum[97] = 0 ; + /*clear*/ /*_#diIRAW__L98*/ meltfnum[97] = 0 ; /*^clear*/ - /*clear*/ /*_#NBFLAGS__L99*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#NBFLAGS__L99*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V211*/ - meltfptr[210] = 0 ; + /*clear*/ /*_.ADD2OUT__V211*/ meltfptr[210] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V212*/ - meltfptr[211] = 0 ; + /*clear*/ /*_.ADD2OUT__V212*/ meltfptr[211] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V213*/ - meltfptr[212] = 0 ; + /*clear*/ /*_.ADD2OUT__V213*/ meltfptr[212] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V214*/ - meltfptr[213] = 0 ; + /*clear*/ /*_.ADD2OUT__V214*/ meltfptr[213] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -32857,8 +29882,7 @@ meltlab_endgetargs: argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMCIDENT__V202*/ meltfptr[198]; /*^apply.arg*/ argtab[6].meltbp_cstring = "_module_var_ptr_tab[ix]:NULL;}\n\n"; - /*_.ADD2OUT__V215*/ - meltfptr[210] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V215*/ meltfptr[210] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32894,8 +29918,7 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[11].meltbp_cstring = "_module_var_flags[ix/16] = true;\n }\ \n}\n\n"; - /*_.ADD2OUT__V216*/ - meltfptr[211] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V216*/ meltfptr[211] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32908,8 +29931,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "\n/**** forwarding MELT module variables ****/\n"; - /*_.ADD2OUT__V217*/ - meltfptr[212] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V217*/ meltfptr[212] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32922,8 +29944,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "void melt_forwarding_module_data (void) {\n"; - /*_.ADD2OUT__V218*/ - meltfptr[213] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V218*/ meltfptr[213] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32936,8 +29957,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " int i, j;\n"; - /*_.ADD2OUT__V219*/ - meltfptr[218] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V219*/ meltfptr[218] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32954,16 +29974,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMCIDENT__V202*/ meltfptr[198]; /*^apply.arg*/ argtab[2].meltbp_cstring = "_module_var_ptr_tab[0] = NULL; /* unused modvar elem */\n"; - /*_.ADD2OUT__V220*/ - meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V220*/ meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_#plI__L100*/ - meltfnum[92] = + /*_#plI__L100*/ meltfnum[92] = ((/*_#NBMODVARS__L91*/ meltfnum[87]) + (1));; /*^compute*/ - /*_#diIRAW__L101*/ - meltfnum[91] = + /*_#diIRAW__L101*/ meltfnum[91] = ((/*_#plI__L100*/ meltfnum[92]) / (16));; MELT_CHECK_SIGNAL(); @@ -32979,8 +29996,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#diIRAW__L101*/ meltfnum[91]; /*^apply.arg*/ argtab[2].meltbp_cstring = "; i++) {\n"; - /*_.ADD2OUT__V221*/ - meltfptr[220] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V221*/ meltfptr[220] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -32997,8 +30013,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMCIDENT__V202*/ meltfptr[198]; /*^apply.arg*/ argtab[2].meltbp_cstring = "_module_var_flags[i]) {\n"; - /*_.ADD2OUT__V222*/ - meltfptr[221] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V222*/ meltfptr[221] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -33015,8 +30030,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMCIDENT__V202*/ meltfptr[198]; /*^apply.arg*/ argtab[2].meltbp_cstring = "_module_var_flags[i] = false;\n"; - /*_.ADD2OUT__V223*/ - meltfptr[222] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V223*/ meltfptr[222] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -33029,8 +30043,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " for (j=0; j<16; j++)\n"; - /*_.ADD2OUT__V224*/ - meltfptr[223] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V224*/ meltfptr[223] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -33047,8 +30060,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMCIDENT__V202*/ meltfptr[198]; /*^apply.arg*/ argtab[2].meltbp_cstring = "_module_var_ptr_tab[i*16+j]);\n"; - /*_.ADD2OUT__V225*/ - meltfptr[224] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V225*/ meltfptr[224] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -33061,8 +30073,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " };\n"; - /*_.ADD2OUT__V226*/ - meltfptr[225] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V226*/ meltfptr[225] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -33075,8 +30086,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " }\n"; - /*_.ADD2OUT__V227*/ - meltfptr[226] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V227*/ meltfptr[226] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -33089,8 +30099,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "} /* end melt_fowarding_module_data */\n\n"; - /*_.ADD2OUT__V228*/ - meltfptr[227] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V228*/ meltfptr[227] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -33103,8 +30112,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "\n/**** marking MELT module variables ****/\n"; - /*_.ADD2OUT__V229*/ - meltfptr[228] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V229*/ meltfptr[228] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -33117,8 +30125,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "void melt_marking_module_data (void) {\n"; - /*_.ADD2OUT__V230*/ - meltfptr[229] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V230*/ meltfptr[229] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -33131,8 +30138,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " int i;\n"; - /*_.ADD2OUT__V231*/ - meltfptr[230] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V231*/ meltfptr[230] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -33149,8 +30155,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMCIDENT__V202*/ meltfptr[198]; /*^apply.arg*/ argtab[2].meltbp_cstring = "_module_var_ptr_tab[0] = NULL; /* unused modvar elem */\n"; - /*_.ADD2OUT__V232*/ - meltfptr[231] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V232*/ meltfptr[231] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -33167,13 +30172,11 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBMODVARS__L91*/ meltfnum[87]; /*^apply.arg*/ argtab[2].meltbp_cstring = "; i++)\n"; - /*_.ADD2OUT__V233*/ - meltfptr[232] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V233*/ meltfptr[232] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6631:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!CTYPE_VALUE*/ meltfrout->tabval[25])), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[26]))) ) /*then*/ @@ -33184,8 +30187,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!CTYPE_VALUE*/ meltfrout->tabval[25])) /*=obj*/; melt_object_get_field(slot,obj, 9, "CTYPE_MARKER"); - /*_.CTYPE_MARKER__V234*/ - meltfptr[233] = slot; + /*_.CTYPE_MARKER__V234*/ meltfptr[233] = slot; }; ; } @@ -33213,8 +30215,7 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMCIDENT__V202*/ meltfptr[198]; /*^apply.arg*/ argtab[4].meltbp_cstring = "_module_var_ptr_tab[i]);\n"; - /*_.ADD2OUT__V235*/ - meltfptr[234] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V235*/ meltfptr[234] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -33227,8 +30228,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "} /* end melt_marking_module_data */\n\n"; - /*_.ADD2OUT__V236*/ - meltfptr[235] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V236*/ meltfptr[235] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -33245,8 +30245,7 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "enum {\n"; /*^apply.arg*/ argtab[2].meltbp_cstring = " meltmodatix_none,\n"; - /*_.ADD2OUT__V237*/ - meltfptr[236] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V237*/ meltfptr[236] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -33281,8 +30280,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L103*/ - meltfnum[96] = + /*_#MELT_NEED_DBG__L103*/ meltfnum[96] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -33291,8 +30289,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6641:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L103*/ meltfnum[96]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L103*/ meltfnum[96]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33329,20 +30326,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " mvix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#MVIX__L102*/ meltfnum[95]; - /*_.MELT_DEBUG_FUN__V240*/ - meltfptr[239] = melt_apply ((meltclosure_ptr_t)((/*!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__V240*/ meltfptr[239] = melt_apply ((meltclosure_ptr_t)((/*!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___V239*/ - meltfptr[238] = /*_.MELT_DEBUG_FUN__V240*/ meltfptr[239];; + /*_._IF___V239*/ meltfptr[238] = /*_.MELT_DEBUG_FUN__V240*/ meltfptr[239];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6641:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L104*/ - meltfnum[97] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L104*/ meltfnum[97] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V240*/ - meltfptr[239] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V240*/ meltfptr[239] = 0 ; } ; } @@ -33355,8 +30348,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6641:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -33365,11 +30357,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L103*/ - meltfnum[96] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L103*/ meltfnum[96] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V239*/ - meltfptr[238] = 0 ; + /*clear*/ /*_._IF___V239*/ meltfptr[238] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33399,12 +30389,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L105*/ - meltfnum[98] = + /*_#IS_A__L105*/ meltfnum[98] = melt_is_instance_of((melt_ptr_t)(/*_.CURMODVARBIND__V238*/ meltfptr[237]), (melt_ptr_t)((/*!CLASS_NORMAL_MODULE_VARIABLE_BINDING*/ meltfrout->tabval[27])));; MELT_LOCATION("warmelt-outobj.melt:6642:/ cond"); - /*cond*/ - if (/*_#IS_A__L105*/ meltfnum[98]) /*then*/ + /*cond*/ if (/*_#IS_A__L105*/ meltfnum[98]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V242*/ meltfptr[238] = (/*nil*/NULL);; @@ -33433,31 +30421,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6642; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURMODVARBIND__V238*/ meltfptr[237]; - /*_.MELT_ASSERT_FAILURE_FUN__V243*/ - meltfptr[242] = 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__V243*/ meltfptr[242] = 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___V242*/ - meltfptr[238] = /*_.MELT_ASSERT_FAILURE_FUN__V243*/ meltfptr[242];; + /*_._IFELSE___V242*/ meltfptr[238] = /*_.MELT_ASSERT_FAILURE_FUN__V243*/ meltfptr[242];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6642:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V243*/ - meltfptr[242] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V243*/ meltfptr[242] = 0 ; } ; } ; - /*_.IFCPP___V241*/ - meltfptr[239] = /*_._IFELSE___V242*/ meltfptr[238];; + /*_.IFCPP___V241*/ meltfptr[239] = /*_._IFELSE___V242*/ meltfptr[238];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6642:/ clear"); - /*clear*/ /*_#IS_A__L105*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#IS_A__L105*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V242*/ - meltfptr[238] = 0 ; + /*clear*/ /*_._IFELSE___V242*/ meltfptr[238] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33475,8 +30457,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " "; - /*_.ADD2OUT__V244*/ - meltfptr[242] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V244*/ meltfptr[242] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -33489,12 +30470,10 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURMODVARBIND__V238*/ meltfptr[237]; - /*_.OUT_ENUMIX_MODVARBIND__V245*/ - meltfptr[238] = melt_apply ((meltclosure_ptr_t)((/*!OUT_ENUMIX_MODVARBIND*/ meltfrout->tabval[28])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUT_ENUMIX_MODVARBIND__V245*/ meltfptr[238] = melt_apply ((meltclosure_ptr_t)((/*!OUT_ENUMIX_MODVARBIND*/ meltfrout->tabval[28])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#plI__L106*/ - meltfnum[97] = + /*_#plI__L106*/ meltfnum[97] = ((/*_#MVIX__L102*/ meltfnum[95]) + (1));; MELT_CHECK_SIGNAL(); @@ -33510,8 +30489,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#plI__L106*/ meltfnum[97]; /*^apply.arg*/ argtab[2].meltbp_cstring = ",\n"; - /*_.ADD2OUT__V246*/ - meltfptr[245] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V246*/ meltfptr[245] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#MVIX__L102*/ meltfnum[95]<0) break; @@ -33520,26 +30498,19 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6638:/ clear"); - /*clear*/ /*_.CURMODVARBIND__V238*/ - meltfptr[237] = 0 ; + /*clear*/ /*_.CURMODVARBIND__V238*/ meltfptr[237] = 0 ; /*^clear*/ - /*clear*/ /*_#MVIX__L102*/ - meltfnum[95] = 0 ; + /*clear*/ /*_#MVIX__L102*/ meltfnum[95] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V241*/ - meltfptr[239] = 0 ; + /*clear*/ /*_.IFCPP___V241*/ meltfptr[239] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V244*/ - meltfptr[242] = 0 ; + /*clear*/ /*_.ADD2OUT__V244*/ meltfptr[242] = 0 ; /*^clear*/ - /*clear*/ /*_.OUT_ENUMIX_MODVARBIND__V245*/ - meltfptr[238] = 0 ; + /*clear*/ /*_.OUT_ENUMIX_MODVARBIND__V245*/ meltfptr[238] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L106*/ - meltfnum[97] = 0 ; + /*clear*/ /*_#plI__L106*/ meltfnum[97] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V246*/ - meltfptr[245] = 0 ; + /*clear*/ /*_.ADD2OUT__V246*/ meltfptr[245] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -33552,8 +30523,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " meltmodatix_last\n"; - /*_.ADD2OUT__V247*/ - meltfptr[246] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V247*/ meltfptr[246] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -33566,119 +30536,83 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "}; /* end MELT module variables indexes */\n"; - /*_.ADD2OUT__V248*/ - meltfptr[247] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V248*/ meltfptr[247] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6580:/ quasiblock"); - /*_.PROGN___V249*/ - meltfptr[248] = /*_.ADD2OUT__V248*/ meltfptr[247];; + /*_.PROGN___V249*/ meltfptr[248] = /*_.ADD2OUT__V248*/ meltfptr[247];; /*^compute*/ - /*_._IFELSE___V203*/ - meltfptr[199] = /*_.PROGN___V249*/ meltfptr[248];; + /*_._IFELSE___V203*/ meltfptr[199] = /*_.PROGN___V249*/ meltfptr[248];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6579:/ clear"); - /*clear*/ /*_.ADD2OUT__V206*/ - meltfptr[204] = 0 ; + /*clear*/ /*_.ADD2OUT__V206*/ meltfptr[204] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V207*/ - meltfptr[200] = 0 ; + /*clear*/ /*_.ADD2OUT__V207*/ meltfptr[200] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V208*/ - meltfptr[207] = 0 ; + /*clear*/ /*_.ADD2OUT__V208*/ meltfptr[207] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V209*/ - meltfptr[208] = 0 ; + /*clear*/ /*_.ADD2OUT__V209*/ meltfptr[208] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V210*/ - meltfptr[209] = 0 ; + /*clear*/ /*_.LET___V210*/ meltfptr[209] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V215*/ - meltfptr[210] = 0 ; + /*clear*/ /*_.ADD2OUT__V215*/ meltfptr[210] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V216*/ - meltfptr[211] = 0 ; + /*clear*/ /*_.ADD2OUT__V216*/ meltfptr[211] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V217*/ - meltfptr[212] = 0 ; + /*clear*/ /*_.ADD2OUT__V217*/ meltfptr[212] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V218*/ - meltfptr[213] = 0 ; + /*clear*/ /*_.ADD2OUT__V218*/ meltfptr[213] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V219*/ - meltfptr[218] = 0 ; + /*clear*/ /*_.ADD2OUT__V219*/ meltfptr[218] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V220*/ - meltfptr[219] = 0 ; + /*clear*/ /*_.ADD2OUT__V220*/ meltfptr[219] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L100*/ - meltfnum[92] = 0 ; + /*clear*/ /*_#plI__L100*/ meltfnum[92] = 0 ; /*^clear*/ - /*clear*/ /*_#diIRAW__L101*/ - meltfnum[91] = 0 ; + /*clear*/ /*_#diIRAW__L101*/ meltfnum[91] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V221*/ - meltfptr[220] = 0 ; + /*clear*/ /*_.ADD2OUT__V221*/ meltfptr[220] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V222*/ - meltfptr[221] = 0 ; + /*clear*/ /*_.ADD2OUT__V222*/ meltfptr[221] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V223*/ - meltfptr[222] = 0 ; + /*clear*/ /*_.ADD2OUT__V223*/ meltfptr[222] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V224*/ - meltfptr[223] = 0 ; + /*clear*/ /*_.ADD2OUT__V224*/ meltfptr[223] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V225*/ - meltfptr[224] = 0 ; + /*clear*/ /*_.ADD2OUT__V225*/ meltfptr[224] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V226*/ - meltfptr[225] = 0 ; + /*clear*/ /*_.ADD2OUT__V226*/ meltfptr[225] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V227*/ - meltfptr[226] = 0 ; + /*clear*/ /*_.ADD2OUT__V227*/ meltfptr[226] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V228*/ - meltfptr[227] = 0 ; + /*clear*/ /*_.ADD2OUT__V228*/ meltfptr[227] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V229*/ - meltfptr[228] = 0 ; + /*clear*/ /*_.ADD2OUT__V229*/ meltfptr[228] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V230*/ - meltfptr[229] = 0 ; + /*clear*/ /*_.ADD2OUT__V230*/ meltfptr[229] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V231*/ - meltfptr[230] = 0 ; + /*clear*/ /*_.ADD2OUT__V231*/ meltfptr[230] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V232*/ - meltfptr[231] = 0 ; + /*clear*/ /*_.ADD2OUT__V232*/ meltfptr[231] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V233*/ - meltfptr[232] = 0 ; + /*clear*/ /*_.ADD2OUT__V233*/ meltfptr[232] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_MARKER__V234*/ - meltfptr[233] = 0 ; + /*clear*/ /*_.CTYPE_MARKER__V234*/ meltfptr[233] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V235*/ - meltfptr[234] = 0 ; + /*clear*/ /*_.ADD2OUT__V235*/ meltfptr[234] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V236*/ - meltfptr[235] = 0 ; + /*clear*/ /*_.ADD2OUT__V236*/ meltfptr[235] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V237*/ - meltfptr[236] = 0 ; + /*clear*/ /*_.ADD2OUT__V237*/ meltfptr[236] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V247*/ - meltfptr[246] = 0 ; + /*clear*/ /*_.ADD2OUT__V247*/ meltfptr[246] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V248*/ - meltfptr[247] = 0 ; + /*clear*/ /*_.ADD2OUT__V248*/ meltfptr[247] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V249*/ - meltfptr[248] = 0 ; + /*clear*/ /*_.PROGN___V249*/ meltfptr[248] = 0 ; } ; } @@ -33699,54 +30633,42 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "/**** no MELT module variables ****/\n"; - /*_.ADD2OUT__V250*/ - meltfptr[204] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V250*/ meltfptr[204] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6650:/ quasiblock"); - /*_.PROGN___V251*/ - meltfptr[200] = /*_.ADD2OUT__V250*/ meltfptr[204];; + /*_.PROGN___V251*/ meltfptr[200] = /*_.ADD2OUT__V250*/ meltfptr[204];; /*^compute*/ - /*_._IFELSE___V203*/ - meltfptr[199] = /*_.PROGN___V251*/ meltfptr[200];; + /*_._IFELSE___V203*/ meltfptr[199] = /*_.PROGN___V251*/ meltfptr[200];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6579:/ clear"); - /*clear*/ /*_.ADD2OUT__V250*/ - meltfptr[204] = 0 ; + /*clear*/ /*_.ADD2OUT__V250*/ meltfptr[204] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V251*/ - meltfptr[200] = 0 ; + /*clear*/ /*_.PROGN___V251*/ meltfptr[200] = 0 ; } ; } ; - /*_.LET___V196*/ - meltfptr[195] = /*_._IFELSE___V203*/ meltfptr[199];; + /*_.LET___V196*/ meltfptr[195] = /*_._IFELSE___V203*/ meltfptr[199];; MELT_LOCATION("warmelt-outobj.melt:6573:/ clear"); - /*clear*/ /*_.MODVARTUP__V197*/ - meltfptr[196] = 0 ; + /*clear*/ /*_.MODVARTUP__V197*/ meltfptr[196] = 0 ; /*^clear*/ - /*clear*/ /*_#NBMODVARS__L91*/ - meltfnum[87] = 0 ; + /*clear*/ /*_#NBMODVARS__L91*/ meltfnum[87] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V198*/ - meltfptr[197] = 0 ; + /*clear*/ /*_.LET___V198*/ meltfptr[197] = 0 ; /*^clear*/ - /*clear*/ /*_.MODNAMCIDENT__V202*/ - meltfptr[198] = 0 ; + /*clear*/ /*_.MODNAMCIDENT__V202*/ meltfptr[198] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V203*/ - meltfptr[199] = 0 ; + /*clear*/ /*_._IFELSE___V203*/ meltfptr[199] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6657:/ cond"); - /*cond*/ - if (/*_#NBMODHOOKS__L87*/ meltfnum[86]) /*then*/ + /*cond*/ if (/*_#NBMODHOOKS__L87*/ meltfnum[86]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33785,8 +30707,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L107*/ - meltfnum[96] = + /*_#MELT_NEED_DBG__L107*/ meltfnum[96] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -33795,8 +30716,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6660:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L107*/ meltfnum[96]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L107*/ meltfnum[96]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33833,20 +30753,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n modhookdict="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODHOOKDICT__V174*/ meltfptr[173]; - /*_.MELT_DEBUG_FUN__V256*/ - meltfptr[211] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (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__V256*/ meltfptr[211] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (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___V255*/ - meltfptr[210] = /*_.MELT_DEBUG_FUN__V256*/ meltfptr[211];; + /*_._IF___V255*/ meltfptr[210] = /*_.MELT_DEBUG_FUN__V256*/ meltfptr[211];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6660:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L108*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L108*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V256*/ - meltfptr[211] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V256*/ meltfptr[211] = 0 ; } ; } @@ -33859,8 +30775,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6660:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -33869,11 +30784,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L107*/ - meltfnum[96] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L107*/ meltfnum[96] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V255*/ - meltfptr[210] = 0 ; + /*clear*/ /*_._IF___V255*/ meltfptr[210] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -33907,8 +30820,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBMODHOOKS__L87*/ meltfnum[86]; /*^apply.arg*/ argtab[2].meltbp_cstring = " MELT called hook declarations ***/\n"; - /*_.ADD2OUT__V257*/ - meltfptr[212] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V257*/ meltfptr[212] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -33943,8 +30855,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L110*/ - meltfnum[91] = + /*_#MELT_NEED_DBG__L110*/ meltfnum[91] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -33953,8 +30864,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6665:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L110*/ meltfnum[91]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L110*/ meltfnum[91]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -33991,20 +30901,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n .. hkix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#HKIX__L109*/ meltfnum[92]; - /*_.MELT_DEBUG_FUN__V260*/ - meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V260*/ meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V259*/ - meltfptr[218] = /*_.MELT_DEBUG_FUN__V260*/ meltfptr[219];; + /*_._IF___V259*/ meltfptr[218] = /*_.MELT_DEBUG_FUN__V260*/ meltfptr[219];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6665:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L111*/ - meltfnum[87] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L111*/ meltfnum[87] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V260*/ - meltfptr[219] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V260*/ meltfptr[219] = 0 ; } ; } @@ -34017,8 +30923,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6665:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -34027,11 +30932,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L110*/ - meltfnum[91] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L110*/ meltfnum[91] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V259*/ - meltfptr[218] = 0 ; + /*clear*/ /*_._IF___V259*/ meltfptr[218] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34061,12 +30964,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L112*/ - meltfnum[98] = + /*_#IS_A__L112*/ meltfnum[98] = melt_is_instance_of((melt_ptr_t)(/*_.CURHKDESC__V258*/ meltfptr[213]), (melt_ptr_t)((/*!CLASS_HOOK_DESCRIPTOR*/ meltfrout->tabval[30])));; MELT_LOCATION("warmelt-outobj.melt:6666:/ cond"); - /*cond*/ - if (/*_#IS_A__L112*/ meltfnum[98]) /*then*/ + /*cond*/ if (/*_#IS_A__L112*/ meltfnum[98]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V262*/ meltfptr[221] = (/*nil*/NULL);; @@ -34095,31 +30996,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6666; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURHKDESC__V258*/ meltfptr[213]; - /*_.MELT_ASSERT_FAILURE_FUN__V263*/ - meltfptr[222] = 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__V263*/ meltfptr[222] = 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___V262*/ - meltfptr[221] = /*_.MELT_ASSERT_FAILURE_FUN__V263*/ meltfptr[222];; + /*_._IFELSE___V262*/ meltfptr[221] = /*_.MELT_ASSERT_FAILURE_FUN__V263*/ meltfptr[222];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6666:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V263*/ - meltfptr[222] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V263*/ meltfptr[222] = 0 ; } ; } ; - /*_.IFCPP___V261*/ - meltfptr[220] = /*_._IFELSE___V262*/ meltfptr[221];; + /*_.IFCPP___V261*/ meltfptr[220] = /*_._IFELSE___V262*/ meltfptr[221];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6666:/ clear"); - /*clear*/ /*_#IS_A__L112*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#IS_A__L112*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V262*/ - meltfptr[221] = 0 ; + /*clear*/ /*_._IFELSE___V262*/ meltfptr[221] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34131,8 +31026,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURHKDESC__V258*/ meltfptr[213]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[31]))) ) /*then*/ @@ -34143,8 +31037,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURHKDESC__V258*/ meltfptr[213]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.HKNAME__V265*/ - meltfptr[224] = slot; + /*_.HKNAME__V265*/ meltfptr[224] = slot; }; ; } @@ -34155,8 +31048,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6668:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURHKDESC__V258*/ meltfptr[213]), (melt_ptr_t)((/*!CLASS_HOOK_DESCRIPTOR*/ meltfrout->tabval[30]))) ) /*then*/ @@ -34167,8 +31059,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURHKDESC__V258*/ meltfptr[213]) /*=obj*/; melt_object_get_field(slot,obj, 2, "HOOKDESC_IN_FORMALS"); - /*_.HKINS__V266*/ - meltfptr[225] = slot; + /*_.HKINS__V266*/ meltfptr[225] = slot; }; ; } @@ -34179,8 +31070,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6669:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURHKDESC__V258*/ meltfptr[213]), (melt_ptr_t)((/*!CLASS_HOOK_DESCRIPTOR*/ meltfrout->tabval[30]))) ) /*then*/ @@ -34191,8 +31081,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURHKDESC__V258*/ meltfptr[213]) /*=obj*/; melt_object_get_field(slot,obj, 3, "HOOKDESC_OUT_FORMALS"); - /*_.HKOUTS__V267*/ - meltfptr[226] = slot; + /*_.HKOUTS__V267*/ meltfptr[226] = slot; }; ; } @@ -34203,8 +31092,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6670:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURHKDESC__V258*/ meltfptr[213]), (melt_ptr_t)((/*!CLASS_HOOK_DESCRIPTOR*/ meltfrout->tabval[30]))) ) /*then*/ @@ -34215,8 +31103,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURHKDESC__V258*/ meltfptr[213]) /*=obj*/; melt_object_get_field(slot,obj, 4, "HOOKDESC_CTYPE"); - /*_.HKCTYPE__V268*/ - meltfptr[227] = slot; + /*_.HKCTYPE__V268*/ meltfptr[227] = slot; }; ; } @@ -34227,8 +31114,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6671:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.HKCTYPE__V268*/ meltfptr[227]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[26]))) ) /*then*/ @@ -34239,8 +31125,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.HKCTYPE__V268*/ meltfptr[227]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.HKCTYPENAME__V269*/ - meltfptr[228] = slot; + /*_.HKCTYPENAME__V269*/ meltfptr[228] = slot; }; ; } @@ -34268,8 +31153,7 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V265*/ meltfptr[224]; /*^apply.arg*/ argtab[4].meltbp_cstring = " **/\n"; - /*_.ADD2OUT__V270*/ - meltfptr[229] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V270*/ meltfptr[229] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -34290,8 +31174,7 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V265*/ meltfptr[224]; /*^apply.arg*/ argtab[4].meltbp_cstring = " (melt_ptr_t melthookdatap"; - /*_.ADD2OUT__V271*/ - meltfptr[230] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V271*/ meltfptr[230] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -34307,8 +31190,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6678:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V272*/ meltfptr[231]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[32]))) ) /*then*/ @@ -34319,8 +31201,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINSB__V272*/ meltfptr[231]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V273*/ - meltfptr[232] = slot; + /*_.FBIND_TYPE__V273*/ meltfptr[232] = slot; }; ; } @@ -34331,8 +31212,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6678:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V273*/ meltfptr[232]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[26]))) ) /*then*/ @@ -34343,8 +31223,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V273*/ meltfptr[232]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V274*/ - meltfptr[233] = slot; + /*_.CTYPE_CNAME__V274*/ meltfptr[233] = slot; }; ; } @@ -34355,8 +31234,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6679:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V272*/ meltfptr[231]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[34]))) ) /*then*/ @@ -34367,8 +31245,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINSB__V272*/ meltfptr[231]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V275*/ - meltfptr[234] = slot; + /*_.BINDER__V275*/ meltfptr[234] = slot; }; ; } @@ -34407,8 +31284,7 @@ meltlab_endgetargs: argtab[4].meltbp_cstring = "_"; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBOL_CNAME__V276*/ meltfptr[235]; - /*_.ADD2OUT__V277*/ - meltfptr[236] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V277*/ meltfptr[236] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#INIX__L113*/ meltfnum[96]<0) break; @@ -34417,26 +31293,19 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6675:/ clear"); - /*clear*/ /*_.CURINSB__V272*/ - meltfptr[231] = 0 ; + /*clear*/ /*_.CURINSB__V272*/ meltfptr[231] = 0 ; /*^clear*/ - /*clear*/ /*_#INIX__L113*/ - meltfnum[96] = 0 ; + /*clear*/ /*_#INIX__L113*/ meltfnum[96] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V273*/ - meltfptr[232] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V273*/ meltfptr[232] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V274*/ - meltfptr[233] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V274*/ meltfptr[233] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V275*/ - meltfptr[234] = 0 ; + /*clear*/ /*_.BINDER__V275*/ meltfptr[234] = 0 ; /*^clear*/ - /*clear*/ /*_.SYMBOL_CNAME__V276*/ - meltfptr[235] = 0 ; + /*clear*/ /*_.SYMBOL_CNAME__V276*/ meltfptr[235] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V277*/ - meltfptr[236] = 0 ; + /*clear*/ /*_.ADD2OUT__V277*/ meltfptr[236] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -34452,8 +31321,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6684:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTSB__V278*/ meltfptr[246]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[32]))) ) /*then*/ @@ -34464,8 +31332,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTSB__V278*/ meltfptr[246]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V279*/ - meltfptr[247] = slot; + /*_.FBIND_TYPE__V279*/ meltfptr[247] = slot; }; ; } @@ -34476,8 +31343,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6684:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V279*/ meltfptr[247]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[26]))) ) /*then*/ @@ -34488,8 +31354,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V279*/ meltfptr[247]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V280*/ - meltfptr[248] = slot; + /*_.CTYPE_CNAME__V280*/ meltfptr[248] = slot; }; ; } @@ -34500,8 +31365,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6685:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTSB__V278*/ meltfptr[246]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[34]))) ) /*then*/ @@ -34512,8 +31376,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTSB__V278*/ meltfptr[246]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V281*/ - meltfptr[204] = slot; + /*_.BINDER__V281*/ meltfptr[204] = slot; }; ; } @@ -34552,8 +31415,7 @@ meltlab_endgetargs: argtab[4].meltbp_cstring = "_"; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBOL_CNAME__V282*/ meltfptr[200]; - /*_.ADD2OUT__V283*/ - meltfptr[196] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V283*/ meltfptr[196] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#OUTIX__L114*/ meltfnum[87]<0) break; @@ -34562,26 +31424,19 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6681:/ clear"); - /*clear*/ /*_.CUROUTSB__V278*/ - meltfptr[246] = 0 ; + /*clear*/ /*_.CUROUTSB__V278*/ meltfptr[246] = 0 ; /*^clear*/ - /*clear*/ /*_#OUTIX__L114*/ - meltfnum[87] = 0 ; + /*clear*/ /*_#OUTIX__L114*/ meltfnum[87] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V279*/ - meltfptr[247] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V279*/ meltfptr[247] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V280*/ - meltfptr[248] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V280*/ meltfptr[248] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V281*/ - meltfptr[204] = 0 ; + /*clear*/ /*_.BINDER__V281*/ meltfptr[204] = 0 ; /*^clear*/ - /*clear*/ /*_.SYMBOL_CNAME__V282*/ - meltfptr[200] = 0 ; + /*clear*/ /*_.SYMBOL_CNAME__V282*/ meltfptr[200] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V283*/ - meltfptr[196] = 0 ; + /*clear*/ /*_.ADD2OUT__V283*/ meltfptr[196] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -34594,54 +31449,40 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ");\n"; - /*_.ADD2OUT__V284*/ - meltfptr[197] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V284*/ meltfptr[197] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V264*/ - meltfptr[223] = /*_.ADD2OUT__V284*/ meltfptr[197];; + /*_.LET___V264*/ meltfptr[223] = /*_.ADD2OUT__V284*/ meltfptr[197];; MELT_LOCATION("warmelt-outobj.melt:6667:/ clear"); - /*clear*/ /*_.HKNAME__V265*/ - meltfptr[224] = 0 ; + /*clear*/ /*_.HKNAME__V265*/ meltfptr[224] = 0 ; /*^clear*/ - /*clear*/ /*_.HKINS__V266*/ - meltfptr[225] = 0 ; + /*clear*/ /*_.HKINS__V266*/ meltfptr[225] = 0 ; /*^clear*/ - /*clear*/ /*_.HKOUTS__V267*/ - meltfptr[226] = 0 ; + /*clear*/ /*_.HKOUTS__V267*/ meltfptr[226] = 0 ; /*^clear*/ - /*clear*/ /*_.HKCTYPE__V268*/ - meltfptr[227] = 0 ; + /*clear*/ /*_.HKCTYPE__V268*/ meltfptr[227] = 0 ; /*^clear*/ - /*clear*/ /*_.HKCTYPENAME__V269*/ - meltfptr[228] = 0 ; + /*clear*/ /*_.HKCTYPENAME__V269*/ meltfptr[228] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V270*/ - meltfptr[229] = 0 ; + /*clear*/ /*_.ADD2OUT__V270*/ meltfptr[229] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V271*/ - meltfptr[230] = 0 ; + /*clear*/ /*_.ADD2OUT__V271*/ meltfptr[230] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V284*/ - meltfptr[197] = 0 ; + /*clear*/ /*_.ADD2OUT__V284*/ meltfptr[197] = 0 ; if (/*_#HKIX__L109*/ meltfnum[92]<0) break; } /* end foreach_in_multiple meltcit6__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6662:/ clear"); - /*clear*/ /*_.CURHKDESC__V258*/ - meltfptr[213] = 0 ; + /*clear*/ /*_.CURHKDESC__V258*/ meltfptr[213] = 0 ; /*^clear*/ - /*clear*/ /*_#HKIX__L109*/ - meltfnum[92] = 0 ; + /*clear*/ /*_#HKIX__L109*/ meltfnum[92] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V261*/ - meltfptr[220] = 0 ; + /*clear*/ /*_.IFCPP___V261*/ meltfptr[220] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V264*/ - meltfptr[223] = 0 ; + /*clear*/ /*_.LET___V264*/ meltfptr[223] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -34658,29 +31499,22 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBMODHOOKS__L87*/ meltfnum[86]; /*^apply.arg*/ argtab[2].meltbp_cstring = " MELT called hook declarations ***/\n\n"; - /*_.ADD2OUT__V285*/ - meltfptr[198] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V285*/ meltfptr[198] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V253*/ - meltfptr[208] = /*_.ADD2OUT__V285*/ meltfptr[198];; + /*_.LET___V253*/ meltfptr[208] = /*_.ADD2OUT__V285*/ meltfptr[198];; MELT_LOCATION("warmelt-outobj.melt:6658:/ clear"); - /*clear*/ /*_.SORTUPHOOK__V254*/ - meltfptr[209] = 0 ; + /*clear*/ /*_.SORTUPHOOK__V254*/ meltfptr[209] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V257*/ - meltfptr[212] = 0 ; + /*clear*/ /*_.ADD2OUT__V257*/ meltfptr[212] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V285*/ - meltfptr[198] = 0 ; - /*_._IFELSE___V252*/ - meltfptr[207] = /*_.LET___V253*/ meltfptr[208];; + /*clear*/ /*_.ADD2OUT__V285*/ meltfptr[198] = 0 ; + /*_._IFELSE___V252*/ meltfptr[207] = /*_.LET___V253*/ meltfptr[208];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6657:/ clear"); - /*clear*/ /*_.LET___V253*/ - meltfptr[208] = 0 ; + /*clear*/ /*_.LET___V253*/ meltfptr[208] = 0 ; } ; } @@ -34701,26 +31535,21 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "/**** no MELT called hook declarations ***/\n"; - /*_.ADD2OUT__V286*/ - meltfptr[199] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V286*/ meltfptr[199] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6692:/ quasiblock"); - /*_.PROGN___V287*/ - meltfptr[211] = /*_.ADD2OUT__V286*/ meltfptr[199];; + /*_.PROGN___V287*/ meltfptr[211] = /*_.ADD2OUT__V286*/ meltfptr[199];; /*^compute*/ - /*_._IFELSE___V252*/ - meltfptr[207] = /*_.PROGN___V287*/ meltfptr[211];; + /*_._IFELSE___V252*/ meltfptr[207] = /*_.PROGN___V287*/ meltfptr[211];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6657:/ clear"); - /*clear*/ /*_.ADD2OUT__V286*/ - meltfptr[199] = 0 ; + /*clear*/ /*_.ADD2OUT__V286*/ meltfptr[199] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V287*/ - meltfptr[211] = 0 ; + /*clear*/ /*_.PROGN___V287*/ meltfptr[211] = 0 ; } ; } @@ -34729,8 +31558,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6698:/ cond"); - /*cond*/ - if (/*_#NBHEADERS__L85*/ meltfnum[54]) /*then*/ + /*cond*/ if (/*_#NBHEADERS__L85*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34751,8 +31579,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBHEADERS__L85*/ meltfnum[54]; /*^apply.arg*/ argtab[2].meltbp_cstring = " extra MELT c-headers ***/\n"; - /*_.ADD2OUT__V289*/ - meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V289*/ meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -34787,8 +31614,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L116*/ - meltfnum[98] = + /*_#MELT_NEED_DBG__L116*/ meltfnum[98] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -34797,8 +31623,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6704:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L116*/ meltfnum[98]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L116*/ meltfnum[98]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -34835,20 +31660,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " hdix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#HDIX__L115*/ meltfnum[91]; - /*_.MELT_DEBUG_FUN__V292*/ - meltfptr[221] = melt_apply ((meltclosure_ptr_t)((/*!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__V292*/ meltfptr[221] = melt_apply ((meltclosure_ptr_t)((/*!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___V291*/ - meltfptr[222] = /*_.MELT_DEBUG_FUN__V292*/ meltfptr[221];; + /*_._IF___V291*/ meltfptr[222] = /*_.MELT_DEBUG_FUN__V292*/ meltfptr[221];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6704:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L117*/ - meltfnum[116] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L117*/ meltfnum[116] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V292*/ - meltfptr[221] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V292*/ meltfptr[221] = 0 ; } ; } @@ -34861,8 +31682,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6704:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -34871,11 +31691,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L116*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L116*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V291*/ - meltfptr[222] = 0 ; + /*clear*/ /*_._IF___V291*/ meltfptr[222] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34905,12 +31723,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L118*/ - meltfnum[116] = + /*_#IS_A__L118*/ meltfnum[116] = melt_is_instance_of((melt_ptr_t)(/*_.CURHEADER__V290*/ meltfptr[218]), (melt_ptr_t)((/*!CLASS_SOURCE_CHEADER*/ meltfrout->tabval[35])));; MELT_LOCATION("warmelt-outobj.melt:6705:/ cond"); - /*cond*/ - if (/*_#IS_A__L118*/ meltfnum[116]) /*then*/ + /*cond*/ if (/*_#IS_A__L118*/ meltfnum[116]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V294*/ meltfptr[225] = (/*nil*/NULL);; @@ -34939,31 +31755,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6705; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURHEADER__V290*/ meltfptr[218]; - /*_.MELT_ASSERT_FAILURE_FUN__V295*/ - meltfptr[226] = 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__V295*/ meltfptr[226] = 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___V294*/ - meltfptr[225] = /*_.MELT_ASSERT_FAILURE_FUN__V295*/ meltfptr[226];; + /*_._IFELSE___V294*/ meltfptr[225] = /*_.MELT_ASSERT_FAILURE_FUN__V295*/ meltfptr[226];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6705:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V295*/ - meltfptr[226] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V295*/ meltfptr[226] = 0 ; } ; } ; - /*_.IFCPP___V293*/ - meltfptr[224] = /*_._IFELSE___V294*/ meltfptr[225];; + /*_.IFCPP___V293*/ meltfptr[224] = /*_._IFELSE___V294*/ meltfptr[225];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6705:/ clear"); - /*clear*/ /*_#IS_A__L118*/ - meltfnum[116] = 0 ; + /*clear*/ /*_#IS_A__L118*/ meltfnum[116] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V294*/ - meltfptr[225] = 0 ; + /*clear*/ /*_._IFELSE___V294*/ meltfptr[225] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -34975,8 +31785,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6707:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURHEADER__V290*/ meltfptr[218]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[36]))) ) /*then*/ @@ -34987,8 +31796,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURHEADER__V290*/ meltfptr[218]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.HLOC__V296*/ - meltfptr[227] = slot; + /*_.HLOC__V296*/ meltfptr[227] = slot; }; ; } @@ -34999,8 +31807,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6708:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURHEADER__V290*/ meltfptr[218]), (melt_ptr_t)((/*!CLASS_SOURCE_CODE_STRING*/ meltfrout->tabval[37]))) ) /*then*/ @@ -35011,8 +31818,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURHEADER__V290*/ meltfptr[218]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SC_CODESTRING"); - /*_.HSTR__V297*/ - meltfptr[228] = slot; + /*_.HSTR__V297*/ meltfptr[228] = slot; }; ; } @@ -35034,8 +31840,7 @@ meltlab_endgetargs: meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (0), 0); } ; - /*_#plI__L119*/ - meltfnum[98] = + /*_#plI__L119*/ meltfnum[98] = ((/*_#HDIX__L115*/ meltfnum[91]) + (1));; MELT_CHECK_SIGNAL(); @@ -35051,8 +31856,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#plI__L119*/ meltfnum[98]; /*^apply.arg*/ argtab[2].meltbp_cstring = " : **/\n"; - /*_.ADD2OUT__V298*/ - meltfptr[229] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V298*/ meltfptr[229] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -35069,16 +31873,14 @@ meltlab_endgetargs: argtab[1].meltbp_long = 0; /*^apply.arg*/ argtab[2].meltbp_cstring = "xtracheader"; - /*_.OUTPUT_RAW_LOCATION__V299*/ - meltfptr[230] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[38])), (melt_ptr_t)(/*_.HLOC__V296*/ meltfptr[227]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_RAW_LOCATION__V299*/ meltfptr[230] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[38])), (melt_ptr_t)(/*_.HLOC__V296*/ meltfptr[227]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:6714:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), - melt_string_str((melt_ptr_t)(/*_.HSTR__V297*/ meltfptr[228]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), + melt_string_str((melt_ptr_t)(/*_.HSTR__V297*/ meltfptr[228]))); } ; @@ -35089,20 +31891,15 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:6706:/ clear"); - /*clear*/ /*_.HLOC__V296*/ - meltfptr[227] = 0 ; + /*clear*/ /*_.HLOC__V296*/ meltfptr[227] = 0 ; /*^clear*/ - /*clear*/ /*_.HSTR__V297*/ - meltfptr[228] = 0 ; + /*clear*/ /*_.HSTR__V297*/ meltfptr[228] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L119*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#plI__L119*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V298*/ - meltfptr[229] = 0 ; + /*clear*/ /*_.ADD2OUT__V298*/ meltfptr[229] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_RAW_LOCATION__V299*/ - meltfptr[230] = 0 ; + /*clear*/ /*_.OUTPUT_RAW_LOCATION__V299*/ meltfptr[230] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -35117,8 +31914,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBHEADERS__L85*/ meltfnum[54]; /*^apply.arg*/ argtab[2].meltbp_cstring = " extra MELT c-headers ***/\n"; - /*_.ADD2OUT__V300*/ - meltfptr[197] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V300*/ meltfptr[197] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#HDIX__L115*/ meltfnum[91]<0) break; @@ -35127,17 +31923,13 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6701:/ clear"); - /*clear*/ /*_.CURHEADER__V290*/ - meltfptr[218] = 0 ; + /*clear*/ /*_.CURHEADER__V290*/ meltfptr[218] = 0 ; /*^clear*/ - /*clear*/ /*_#HDIX__L115*/ - meltfnum[91] = 0 ; + /*clear*/ /*_#HDIX__L115*/ meltfnum[91] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V293*/ - meltfptr[224] = 0 ; + /*clear*/ /*_.IFCPP___V293*/ meltfptr[224] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V300*/ - meltfptr[197] = 0 ; + /*clear*/ /*_.ADD2OUT__V300*/ meltfptr[197] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-outobj.melt:6699:/ quasiblock"); @@ -35146,8 +31938,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6698:/ clear"); - /*clear*/ /*_.ADD2OUT__V289*/ - meltfptr[219] = 0 ; + /*clear*/ /*_.ADD2OUT__V289*/ meltfptr[219] = 0 ; } ; } @@ -35168,17 +31959,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "/*** no extra MELT c-headers ***/\n"; - /*_.ADD2OUT__V301*/ - meltfptr[209] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V301*/ meltfptr[209] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V288*/ - meltfptr[210] = /*_.ADD2OUT__V301*/ meltfptr[209];; + /*_._IFELSE___V288*/ meltfptr[210] = /*_.ADD2OUT__V301*/ meltfptr[209];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6698:/ clear"); - /*clear*/ /*_.ADD2OUT__V301*/ - meltfptr[209] = 0 ; + /*clear*/ /*_.ADD2OUT__V301*/ meltfptr[209] = 0 ; } ; } @@ -35187,8 +31975,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6722:/ cond"); - /*cond*/ - if (/*_#NBIMPLEMS__L86*/ meltfnum[62]) /*then*/ + /*cond*/ if (/*_#NBIMPLEMS__L86*/ meltfnum[62]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35209,8 +31996,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBIMPLEMS__L86*/ meltfnum[62]; /*^apply.arg*/ argtab[2].meltbp_cstring = " extra MELT implementations ***/\n"; - /*_.ADD2OUT__V303*/ - meltfptr[198] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V303*/ meltfptr[198] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -35235,12 +32021,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L121*/ - meltfnum[98] = + /*_#IS_A__L121*/ meltfnum[98] = melt_is_instance_of((melt_ptr_t)(/*_.CURIMPLEM__V304*/ meltfptr[208]), (melt_ptr_t)((/*!CLASS_SOURCE_CIMPLEMENT*/ meltfrout->tabval[39])));; MELT_LOCATION("warmelt-outobj.melt:6728:/ cond"); - /*cond*/ - if (/*_#IS_A__L121*/ meltfnum[98]) /*then*/ + /*cond*/ if (/*_#IS_A__L121*/ meltfnum[98]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V306*/ meltfptr[211] = (/*nil*/NULL);; @@ -35269,31 +32053,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6728; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURIMPLEM__V304*/ meltfptr[208]; - /*_.MELT_ASSERT_FAILURE_FUN__V307*/ - meltfptr[221] = 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__V307*/ meltfptr[221] = 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___V306*/ - meltfptr[211] = /*_.MELT_ASSERT_FAILURE_FUN__V307*/ meltfptr[221];; + /*_._IFELSE___V306*/ meltfptr[211] = /*_.MELT_ASSERT_FAILURE_FUN__V307*/ meltfptr[221];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6728:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V307*/ - meltfptr[221] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V307*/ meltfptr[221] = 0 ; } ; } ; - /*_.IFCPP___V305*/ - meltfptr[199] = /*_._IFELSE___V306*/ meltfptr[211];; + /*_.IFCPP___V305*/ meltfptr[199] = /*_._IFELSE___V306*/ meltfptr[211];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6728:/ clear"); - /*clear*/ /*_#IS_A__L121*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#IS_A__L121*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V306*/ - meltfptr[211] = 0 ; + /*clear*/ /*_._IFELSE___V306*/ meltfptr[211] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35305,8 +32083,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6730:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURIMPLEM__V304*/ meltfptr[208]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[36]))) ) /*then*/ @@ -35317,8 +32094,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURIMPLEM__V304*/ meltfptr[208]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.ILOC__V308*/ - meltfptr[222] = slot; + /*_.ILOC__V308*/ meltfptr[222] = slot; }; ; } @@ -35329,8 +32105,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6731:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURIMPLEM__V304*/ meltfptr[208]), (melt_ptr_t)((/*!CLASS_SOURCE_CODE_STRING*/ meltfrout->tabval[37]))) ) /*then*/ @@ -35341,8 +32116,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURIMPLEM__V304*/ meltfptr[208]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SC_CODESTRING"); - /*_.ISTR__V309*/ - meltfptr[226] = slot; + /*_.ISTR__V309*/ meltfptr[226] = slot; }; ; } @@ -35364,8 +32138,7 @@ meltlab_endgetargs: meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (0), 0); } ; - /*_#plI__L122*/ - meltfnum[98] = + /*_#plI__L122*/ meltfnum[98] = ((/*_#IMIX__L120*/ meltfnum[116]) + (1));; MELT_CHECK_SIGNAL(); @@ -35381,8 +32154,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#plI__L122*/ meltfnum[98]; /*^apply.arg*/ argtab[2].meltbp_cstring = " : **/\n"; - /*_.ADD2OUT__V310*/ - meltfptr[225] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V310*/ meltfptr[225] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -35399,16 +32171,14 @@ meltlab_endgetargs: argtab[1].meltbp_long = 0; /*^apply.arg*/ argtab[2].meltbp_cstring = "xtracimplem"; - /*_.OUTPUT_RAW_LOCATION__V311*/ - meltfptr[227] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[38])), (melt_ptr_t)(/*_.ILOC__V308*/ meltfptr[222]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_RAW_LOCATION__V311*/ meltfptr[227] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[38])), (melt_ptr_t)(/*_.ILOC__V308*/ meltfptr[222]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:6737:/ locexp"); - /*add2sbuf_string*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), - melt_string_str((melt_ptr_t)(/*_.ISTR__V309*/ meltfptr[226]))); + /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), + melt_string_str((melt_ptr_t)(/*_.ISTR__V309*/ meltfptr[226]))); } ; @@ -35419,34 +32189,26 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:6729:/ clear"); - /*clear*/ /*_.ILOC__V308*/ - meltfptr[222] = 0 ; + /*clear*/ /*_.ILOC__V308*/ meltfptr[222] = 0 ; /*^clear*/ - /*clear*/ /*_.ISTR__V309*/ - meltfptr[226] = 0 ; + /*clear*/ /*_.ISTR__V309*/ meltfptr[226] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L122*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#plI__L122*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V310*/ - meltfptr[225] = 0 ; + /*clear*/ /*_.ADD2OUT__V310*/ meltfptr[225] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_RAW_LOCATION__V311*/ - meltfptr[227] = 0 ; + /*clear*/ /*_.OUTPUT_RAW_LOCATION__V311*/ meltfptr[227] = 0 ; if (/*_#IMIX__L120*/ meltfnum[116]<0) break; } /* end foreach_in_multiple meltcit10__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6725:/ clear"); - /*clear*/ /*_.CURIMPLEM__V304*/ - meltfptr[208] = 0 ; + /*clear*/ /*_.CURIMPLEM__V304*/ meltfptr[208] = 0 ; /*^clear*/ - /*clear*/ /*_#IMIX__L120*/ - meltfnum[116] = 0 ; + /*clear*/ /*_#IMIX__L120*/ meltfnum[116] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V305*/ - meltfptr[199] = 0 ; + /*clear*/ /*_.IFCPP___V305*/ meltfptr[199] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -35463,29 +32225,23 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBIMPLEMS__L86*/ meltfnum[62]; /*^apply.arg*/ argtab[2].meltbp_cstring = " extra MELT c-implementations ***/\n"; - /*_.ADD2OUT__V312*/ - meltfptr[228] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V312*/ meltfptr[228] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6723:/ quasiblock"); - /*_.PROGN___V313*/ - meltfptr[229] = /*_.ADD2OUT__V312*/ meltfptr[228];; + /*_.PROGN___V313*/ meltfptr[229] = /*_.ADD2OUT__V312*/ meltfptr[228];; /*^compute*/ - /*_._IFELSE___V302*/ - meltfptr[212] = /*_.PROGN___V313*/ meltfptr[229];; + /*_._IFELSE___V302*/ meltfptr[212] = /*_.PROGN___V313*/ meltfptr[229];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6722:/ clear"); - /*clear*/ /*_.ADD2OUT__V303*/ - meltfptr[198] = 0 ; + /*clear*/ /*_.ADD2OUT__V303*/ meltfptr[198] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V312*/ - meltfptr[228] = 0 ; + /*clear*/ /*_.ADD2OUT__V312*/ meltfptr[228] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V313*/ - meltfptr[229] = 0 ; + /*clear*/ /*_.PROGN___V313*/ meltfptr[229] = 0 ; } ; } @@ -35506,17 +32262,14 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "/*** no extra MELT implementations ***/\n"; - /*_.ADD2OUT__V314*/ - meltfptr[230] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V314*/ meltfptr[230] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V302*/ - meltfptr[212] = /*_.ADD2OUT__V314*/ meltfptr[230];; + /*_._IFELSE___V302*/ meltfptr[212] = /*_.ADD2OUT__V314*/ meltfptr[230];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6722:/ clear"); - /*clear*/ /*_.ADD2OUT__V314*/ - meltfptr[230] = 0 ; + /*clear*/ /*_.ADD2OUT__V314*/ meltfptr[230] = 0 ; } ; } @@ -35541,8 +32294,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L123*/ - meltfnum[98] = + /*_#MELT_NEED_DBG__L123*/ meltfnum[98] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -35551,8 +32303,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6745:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L123*/ meltfnum[98]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L123*/ meltfnum[98]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35585,20 +32336,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list objlist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBJLIST__V85*/ meltfptr[59]; - /*_.MELT_DEBUG_FUN__V316*/ - meltfptr[209] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V316*/ meltfptr[209] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V315*/ - meltfptr[219] = /*_.MELT_DEBUG_FUN__V316*/ meltfptr[209];; + /*_._IF___V315*/ meltfptr[219] = /*_.MELT_DEBUG_FUN__V316*/ meltfptr[209];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6745:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L124*/ - meltfnum[123] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L124*/ meltfnum[123] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V316*/ - meltfptr[209] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V316*/ meltfptr[209] = 0 ; } ; } @@ -35611,8 +32358,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6745:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -35621,11 +32367,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L123*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L123*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V315*/ - meltfptr[219] = 0 ; + /*clear*/ /*_._IF___V315*/ meltfptr[219] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35675,8 +32419,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L125*/ - meltfnum[123] = + /*_#MELT_NEED_DBG__L125*/ meltfnum[123] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -35685,8 +32428,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6749:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L125*/ meltfnum[123]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L125*/ meltfnum[123]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35719,20 +32461,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list obel="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBEL__V318*/ meltfptr[211]; - /*_.MELT_DEBUG_FUN__V320*/ - meltfptr[226] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V320*/ meltfptr[226] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V319*/ - meltfptr[222] = /*_.MELT_DEBUG_FUN__V320*/ meltfptr[226];; + /*_._IF___V319*/ meltfptr[222] = /*_.MELT_DEBUG_FUN__V320*/ meltfptr[226];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6749:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L126*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L126*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V320*/ - meltfptr[226] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V320*/ meltfptr[226] = 0 ; } ; } @@ -35745,8 +32483,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6749:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -35755,11 +32492,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L125*/ - meltfnum[123] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L125*/ meltfnum[123] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V319*/ - meltfptr[222] = 0 ; + /*clear*/ /*_._IF___V319*/ meltfptr[222] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35789,12 +32524,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L127*/ - meltfnum[98] = + /*_#IS_OBJECT__L127*/ meltfnum[98] = (melt_magic_discr((melt_ptr_t)(/*_.OBEL__V318*/ meltfptr[211])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-outobj.melt:6750:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L127*/ meltfnum[98]) /*then*/ + /*cond*/ if (/*_#IS_OBJECT__L127*/ meltfnum[98]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V322*/ meltfptr[227] = (/*nil*/NULL);; @@ -35823,31 +32556,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6750; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBEL__V318*/ meltfptr[211]; - /*_.MELT_ASSERT_FAILURE_FUN__V323*/ - meltfptr[198] = 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__V323*/ meltfptr[198] = 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___V322*/ - meltfptr[227] = /*_.MELT_ASSERT_FAILURE_FUN__V323*/ meltfptr[198];; + /*_._IFELSE___V322*/ meltfptr[227] = /*_.MELT_ASSERT_FAILURE_FUN__V323*/ meltfptr[198];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6750:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V323*/ - meltfptr[198] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V323*/ meltfptr[198] = 0 ; } ; } ; - /*_.IFCPP___V321*/ - meltfptr[225] = /*_._IFELSE___V322*/ meltfptr[227];; + /*_.IFCPP___V321*/ meltfptr[225] = /*_._IFELSE___V322*/ meltfptr[227];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6750:/ clear"); - /*clear*/ /*_#IS_OBJECT__L127*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#IS_OBJECT__L127*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V322*/ - meltfptr[227] = 0 ; + /*clear*/ /*_._IFELSE___V322*/ meltfptr[227] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35859,12 +32586,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L128*/ - meltfnum[123] = + /*_#IS_A__L128*/ meltfnum[123] = melt_is_instance_of((melt_ptr_t)(/*_.OBEL__V318*/ meltfptr[211]), (melt_ptr_t)((/*!CLASS_HOOKROUTINEOBJ*/ meltfrout->tabval[40])));; MELT_LOCATION("warmelt-outobj.melt:6752:/ cond"); - /*cond*/ - if (/*_#IS_A__L128*/ meltfnum[123]) /*then*/ + /*cond*/ if (/*_#IS_A__L128*/ meltfnum[123]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35891,8 +32616,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L129*/ - meltfnum[98] = + /*_#MELT_NEED_DBG__L129*/ meltfnum[98] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -35901,8 +32625,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6753:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L129*/ meltfnum[98]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L129*/ meltfnum[98]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -35935,20 +32658,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list obel is hookroutineobj "; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBEL__V318*/ meltfptr[211]; - /*_.MELT_DEBUG_FUN__V325*/ - meltfptr[229] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V325*/ meltfptr[229] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V324*/ - meltfptr[228] = /*_.MELT_DEBUG_FUN__V325*/ meltfptr[229];; + /*_._IF___V324*/ meltfptr[228] = /*_.MELT_DEBUG_FUN__V325*/ meltfptr[229];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6753:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L130*/ - meltfnum[129] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L130*/ meltfnum[129] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V325*/ - meltfptr[229] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V325*/ meltfptr[229] = 0 ; } ; } @@ -35961,8 +32680,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6753:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -35971,11 +32689,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L129*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L129*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V324*/ - meltfptr[228] = 0 ; + /*clear*/ /*_._IF___V324*/ meltfptr[228] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -35999,8 +32715,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OBEL__V318*/ meltfptr[211]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ meltfrout->tabval[41]))) ) /*then*/ @@ -36011,8 +32726,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBEL__V318*/ meltfptr[211]) /*=obj*/; melt_object_get_field(slot,obj, 2, "OBROUT_PROC"); - /*_.HKPROC__V326*/ - meltfptr[230] = slot; + /*_.HKPROC__V326*/ meltfptr[230] = slot; }; ; } @@ -36023,8 +32737,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6755:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.HKPROC__V326*/ meltfptr[230]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[12]))) ) /*then*/ @@ -36035,8 +32748,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.HKPROC__V326*/ meltfptr[230]) /*=obj*/; melt_object_get_field(slot,obj, 9, "NRHOOK_DATAHOOK"); - /*_.HKDATA__V327*/ - meltfptr[209] = slot; + /*_.HKDATA__V327*/ meltfptr[209] = slot; }; ; } @@ -36066,8 +32778,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L131*/ - meltfnum[129] = + /*_#MELT_NEED_DBG__L131*/ meltfnum[129] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -36076,8 +32787,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6757:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L131*/ meltfnum[129]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L131*/ meltfnum[129]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36114,20 +32824,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. hkdata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.HKDATA__V327*/ meltfptr[209]; - /*_.MELT_DEBUG_FUN__V329*/ - meltfptr[226] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (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__V329*/ meltfptr[226] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (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___V328*/ - meltfptr[219] = /*_.MELT_DEBUG_FUN__V329*/ meltfptr[226];; + /*_._IF___V328*/ meltfptr[219] = /*_.MELT_DEBUG_FUN__V329*/ meltfptr[226];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6757:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L132*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L132*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V329*/ - meltfptr[226] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V329*/ meltfptr[226] = 0 ; } ; } @@ -36140,8 +32846,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6757:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -36150,11 +32855,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L131*/ - meltfnum[129] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L131*/ meltfnum[129] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V328*/ - meltfptr[219] = 0 ; + /*clear*/ /*_._IF___V328*/ meltfptr[219] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -36178,8 +32881,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6758:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.HKDATA__V327*/ meltfptr[209]), (melt_ptr_t)((/*!CLASS_NREP_DATAHOOK*/ meltfrout->tabval[42]))) ) /*then*/ @@ -36190,8 +32892,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.HKDATA__V327*/ meltfptr[209]) /*=obj*/; melt_object_get_field(slot,obj, 9, "NDHOOK_MODVARBIND"); - /*_.NDHOOK_MODVARBIND__V330*/ - meltfptr[222] = slot; + /*_.NDHOOK_MODVARBIND__V330*/ meltfptr[222] = slot; }; ; } @@ -36202,8 +32903,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6758:/ cond"); - /*cond*/ - if (/*_.NDHOOK_MODVARBIND__V330*/ meltfptr[222]) /*then*/ + /*cond*/ if (/*_.NDHOOK_MODVARBIND__V330*/ meltfptr[222]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36236,8 +32936,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L133*/ - meltfnum[98] = + /*_#MELT_NEED_DBG__L133*/ meltfnum[98] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -36246,8 +32945,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6760:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L133*/ meltfnum[98]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L133*/ meltfnum[98]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36280,20 +32978,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list hookwithmodvar obel="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBEL__V318*/ meltfptr[211]; - /*_.MELT_DEBUG_FUN__V332*/ - meltfptr[227] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V332*/ meltfptr[227] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V331*/ - meltfptr[198] = /*_.MELT_DEBUG_FUN__V332*/ meltfptr[227];; + /*_._IF___V331*/ meltfptr[198] = /*_.MELT_DEBUG_FUN__V332*/ meltfptr[227];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6760:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L134*/ - meltfnum[129] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L134*/ meltfnum[129] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V332*/ - meltfptr[227] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V332*/ meltfptr[227] = 0 ; } ; } @@ -36306,8 +33000,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6760:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -36316,11 +33009,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L133*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L133*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V331*/ - meltfptr[198] = 0 ; + /*clear*/ /*_._IF___V331*/ meltfptr[198] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -36350,14 +33041,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:6754:/ clear"); - /*clear*/ /*_.HKPROC__V326*/ - meltfptr[230] = 0 ; + /*clear*/ /*_.HKPROC__V326*/ meltfptr[230] = 0 ; /*^clear*/ - /*clear*/ /*_.HKDATA__V327*/ - meltfptr[209] = 0 ; + /*clear*/ /*_.HKDATA__V327*/ meltfptr[209] = 0 ; /*^clear*/ - /*clear*/ /*_.NDHOOK_MODVARBIND__V330*/ - meltfptr[222] = 0 ; + /*clear*/ /*_.NDHOOK_MODVARBIND__V330*/ meltfptr[222] = 0 ; MELT_LOCATION("warmelt-outobj.melt:6752:/ quasiblock"); @@ -36372,12 +33060,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L135*/ - meltfnum[129] = + /*_#IS_A__L135*/ meltfnum[129] = melt_is_instance_of((melt_ptr_t)(/*_.OBEL__V318*/ meltfptr[211]), (melt_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ meltfrout->tabval[43])));; MELT_LOCATION("warmelt-outobj.melt:6765:/ cond"); - /*cond*/ - if (/*_#IS_A__L135*/ meltfnum[129]) /*then*/ + /*cond*/ if (/*_#IS_A__L135*/ meltfnum[129]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36385,8 +33071,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6766:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OBEL__V318*/ meltfptr[211]), (melt_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ meltfrout->tabval[43]))) ) /*then*/ @@ -36397,8 +33082,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OBEL__V318*/ meltfptr[211]) /*=obj*/; melt_object_get_field(slot,obj, 14, "OPROUT_FILENUM"); - /*_.OPROUT_FILENUM__V334*/ - meltfptr[228] = slot; + /*_.OPROUT_FILENUM__V334*/ meltfptr[228] = slot; }; ; } @@ -36409,20 +33093,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L137*/ - meltfnum[136] = + /*_#GET_INT__L137*/ meltfnum[136] = (melt_get_int((melt_ptr_t)(/*_.OPROUT_FILENUM__V334*/ meltfptr[228])));; /*^compute*/ - /*_#FILNUM__L136*/ - meltfnum[98] = /*_#GET_INT__L137*/ meltfnum[136];; + /*_#FILNUM__L136*/ meltfnum[98] = /*_#GET_INT__L137*/ meltfnum[136];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6765:/ clear"); - /*clear*/ /*_.OPROUT_FILENUM__V334*/ - meltfptr[228] = 0 ; + /*clear*/ /*_.OPROUT_FILENUM__V334*/ meltfptr[228] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L137*/ - meltfnum[136] = 0 ; + /*clear*/ /*_#GET_INT__L137*/ meltfnum[136] = 0 ; } ; } @@ -36436,8 +33116,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6768:/ cond"); - /*cond*/ - if (/*_#FILNUM__L136*/ meltfnum[98]) /*then*/ + /*cond*/ if (/*_#FILNUM__L136*/ meltfnum[98]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36458,17 +33137,14 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V44*/ meltfptr[43]; /*^apply.arg*/ argtab[2].meltbp_long = /*_#FILNUM__L136*/ meltfnum[98]; - /*_.NTH_SECUNDARY_FILE__V336*/ - meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!NTH_SECUNDARY_FILE*/ meltfrout->tabval[44])), (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.NTH_SECUNDARY_FILE__V336*/ meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!NTH_SECUNDARY_FILE*/ meltfrout->tabval[44])), (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.SECFIL__V335*/ - meltfptr[226] = /*_.NTH_SECUNDARY_FILE__V336*/ meltfptr[219];; + /*_.SECFIL__V335*/ meltfptr[226] = /*_.NTH_SECUNDARY_FILE__V336*/ meltfptr[219];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6768:/ clear"); - /*clear*/ /*_.NTH_SECUNDARY_FILE__V336*/ - meltfptr[219] = 0 ; + /*clear*/ /*_.NTH_SECUNDARY_FILE__V336*/ meltfptr[219] = 0 ; } ; } @@ -36482,8 +33158,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6770:/ cond"); - /*cond*/ - if (/*_.SECFIL__V335*/ meltfptr[226]) /*then*/ + /*cond*/ if (/*_.SECFIL__V335*/ meltfptr[226]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36502,8 +33177,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SECFIL__V335*/ meltfptr[226]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SECFIL_IMPLBUF"); - /*_.SECFIL_IMPLBUF__V338*/ - meltfptr[198] = slot; + /*_.SECFIL_IMPLBUF__V338*/ meltfptr[198] = slot; }; ; } @@ -36514,13 +33188,11 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.OUTIMPLBUF__V337*/ - meltfptr[227] = /*_.SECFIL_IMPLBUF__V338*/ meltfptr[198];; + /*_.OUTIMPLBUF__V337*/ meltfptr[227] = /*_.SECFIL_IMPLBUF__V338*/ meltfptr[198];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6770:/ clear"); - /*clear*/ /*_.SECFIL_IMPLBUF__V338*/ - meltfptr[198] = 0 ; + /*clear*/ /*_.SECFIL_IMPLBUF__V338*/ meltfptr[198] = 0 ; } ; } @@ -36544,51 +33216,38 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OUTIMPLBUF__V337*/ meltfptr[227]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = 0; - /*_.OUTPUT_C_CODE__V339*/ - meltfptr[230] = meltgc_send((melt_ptr_t)(/*_.OBEL__V318*/ meltfptr[211]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[46])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V339*/ meltfptr[230] = meltgc_send((melt_ptr_t)(/*_.OBEL__V318*/ meltfptr[211]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[46])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V333*/ - meltfptr[229] = /*_.OUTPUT_C_CODE__V339*/ meltfptr[230];; + /*_.LET___V333*/ meltfptr[229] = /*_.OUTPUT_C_CODE__V339*/ meltfptr[230];; MELT_LOCATION("warmelt-outobj.melt:6764:/ clear"); - /*clear*/ /*_#IS_A__L135*/ - meltfnum[129] = 0 ; + /*clear*/ /*_#IS_A__L135*/ meltfnum[129] = 0 ; /*^clear*/ - /*clear*/ /*_#FILNUM__L136*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#FILNUM__L136*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_.SECFIL__V335*/ - meltfptr[226] = 0 ; + /*clear*/ /*_.SECFIL__V335*/ meltfptr[226] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTIMPLBUF__V337*/ - meltfptr[227] = 0 ; + /*clear*/ /*_.OUTIMPLBUF__V337*/ meltfptr[227] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V339*/ - meltfptr[230] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V339*/ meltfptr[230] = 0 ; } /* end foreach_pair_component_in_list meltcit11__EACHLIST */ /*_.PAIREL__V317*/ meltfptr[221] = NULL; - /*_.OBEL__V318*/ - meltfptr[211] = NULL; + /*_.OBEL__V318*/ meltfptr[211] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6746:/ clear"); - /*clear*/ /*_.PAIREL__V317*/ - meltfptr[221] = 0 ; + /*clear*/ /*_.PAIREL__V317*/ meltfptr[221] = 0 ; /*^clear*/ - /*clear*/ /*_.OBEL__V318*/ - meltfptr[211] = 0 ; + /*clear*/ /*_.OBEL__V318*/ meltfptr[211] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V321*/ - meltfptr[225] = 0 ; + /*clear*/ /*_.IFCPP___V321*/ meltfptr[225] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L128*/ - meltfnum[123] = 0 ; + /*clear*/ /*_#IS_A__L128*/ meltfnum[123] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V333*/ - meltfptr[229] = 0 ; + /*clear*/ /*_.LET___V333*/ meltfptr[229] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -36611,8 +33270,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L138*/ - meltfnum[136] = + /*_#MELT_NEED_DBG__L138*/ meltfnum[136] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -36621,8 +33279,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6774:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L138*/ meltfnum[136]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L138*/ meltfnum[136]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36659,20 +33316,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " iniobj="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.INIOBJ__V164*/ meltfptr[160]; - /*_.MELT_DEBUG_FUN__V341*/ - meltfptr[222] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (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__V341*/ meltfptr[222] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (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___V340*/ - meltfptr[209] = /*_.MELT_DEBUG_FUN__V341*/ meltfptr[222];; + /*_._IF___V340*/ meltfptr[209] = /*_.MELT_DEBUG_FUN__V341*/ meltfptr[222];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6774:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L139*/ - meltfnum[129] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L139*/ meltfnum[129] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V341*/ - meltfptr[222] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V341*/ meltfptr[222] = 0 ; } ; } @@ -36685,8 +33338,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6774:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -36695,11 +33347,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L138*/ - meltfnum[136] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L138*/ meltfnum[136] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V340*/ - meltfptr[209] = 0 ; + /*clear*/ /*_._IF___V340*/ meltfptr[209] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -36744,12 +33394,10 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[17]); - /*_.GENDEVTUP__V343*/ - meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.GENDEVLIST__V40*/ meltfptr[39]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GENDEVTUP__V343*/ meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.GENDEVLIST__V40*/ meltfptr[39]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#NBGENDEV__L140*/ - meltfnum[98] = + /*_#NBGENDEV__L140*/ meltfnum[98] = (melt_multiple_length((melt_ptr_t)(/*_.GENDEVTUP__V343*/ meltfptr[219])));; #if MELT_HAVE_DEBUG @@ -36771,8 +33419,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L141*/ - meltfnum[129] = + /*_#MELT_NEED_DBG__L141*/ meltfnum[129] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -36781,8 +33428,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6781:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L141*/ meltfnum[129]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L141*/ meltfnum[129]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36819,20 +33465,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " gendevlist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.GENDEVLIST__V40*/ meltfptr[39]; - /*_.MELT_DEBUG_FUN__V345*/ - meltfptr[226] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (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__V345*/ meltfptr[226] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (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___V344*/ - meltfptr[198] = /*_.MELT_DEBUG_FUN__V345*/ meltfptr[226];; + /*_._IF___V344*/ meltfptr[198] = /*_.MELT_DEBUG_FUN__V345*/ meltfptr[226];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6781:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L142*/ - meltfnum[136] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L142*/ meltfnum[136] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V345*/ - meltfptr[226] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V345*/ meltfptr[226] = 0 ; } ; } @@ -36845,8 +33487,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6781:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -36855,11 +33496,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L141*/ - meltfnum[129] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L141*/ meltfnum[129] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V344*/ - meltfptr[198] = 0 ; + /*clear*/ /*_._IF___V344*/ meltfptr[198] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -36883,8 +33522,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6783:/ cond"); - /*cond*/ - if (/*_#NBGENDEV__L140*/ meltfnum[98]) /*then*/ + /*cond*/ if (/*_#NBGENDEV__L140*/ meltfnum[98]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -36903,17 +33541,14 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V43*/ meltfptr[42]; - /*_.EMIT_SYNTAX_TESTING_ROUTINE__V347*/ - meltfptr[230] = melt_apply ((meltclosure_ptr_t)((/*!EMIT_SYNTAX_TESTING_ROUTINE*/ meltfrout->tabval[47])), (melt_ptr_t)(/*_.GENDEVTUP__V343*/ meltfptr[219]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.EMIT_SYNTAX_TESTING_ROUTINE__V347*/ meltfptr[230] = melt_apply ((meltclosure_ptr_t)((/*!EMIT_SYNTAX_TESTING_ROUTINE*/ meltfrout->tabval[47])), (melt_ptr_t)(/*_.GENDEVTUP__V343*/ meltfptr[219]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V346*/ - meltfptr[227] = /*_.EMIT_SYNTAX_TESTING_ROUTINE__V347*/ meltfptr[230];; + /*_._IFELSE___V346*/ meltfptr[227] = /*_.EMIT_SYNTAX_TESTING_ROUTINE__V347*/ meltfptr[230];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6783:/ clear"); - /*clear*/ /*_.EMIT_SYNTAX_TESTING_ROUTINE__V347*/ - meltfptr[230] = 0 ; + /*clear*/ /*_.EMIT_SYNTAX_TESTING_ROUTINE__V347*/ meltfptr[230] = 0 ; } ; } @@ -36929,30 +33564,24 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6785:/ locexp"); - /*add2sbuf_strconst*/ - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), ( "/*no syntax testing generated*/")); + /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]), ( "/*no syntax testing generated*/")); } ; - /*clear*/ /*_._IFELSE___V346*/ - meltfptr[227] = 0 ; + /*clear*/ /*_._IFELSE___V346*/ meltfptr[227] = 0 ; /*epilog*/ } ; } ; /*^compute*/ - /*_.LET___V342*/ - meltfptr[228] = /*_._IFELSE___V346*/ meltfptr[227];; + /*_.LET___V342*/ meltfptr[228] = /*_._IFELSE___V346*/ meltfptr[227];; MELT_LOCATION("warmelt-outobj.melt:6778:/ clear"); - /*clear*/ /*_.GENDEVTUP__V343*/ - meltfptr[219] = 0 ; + /*clear*/ /*_.GENDEVTUP__V343*/ meltfptr[219] = 0 ; /*^clear*/ - /*clear*/ /*_#NBGENDEV__L140*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#NBGENDEV__L140*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V346*/ - meltfptr[227] = 0 ; + /*clear*/ /*_._IFELSE___V346*/ meltfptr[227] = 0 ; { MELT_LOCATION("warmelt-outobj.melt:6788:/ locexp"); @@ -36973,8 +33602,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V43*/ meltfptr[42]; /*^ojbmsend.arg*/ argtab[2].meltbp_long = 0; - /*_.OUTPUT_C_CODE__V348*/ - meltfptr[222] = meltgc_send((melt_ptr_t)(/*_.INIOBJ__V164*/ meltfptr[160]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[46])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_C_CODE__V348*/ meltfptr[222] = meltgc_send((melt_ptr_t)(/*_.INIOBJ__V164*/ meltfptr[160]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[46])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -36989,8 +33617,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V44*/ meltfptr[43]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V43*/ meltfptr[42]; - /*_.OUTPUT_EXPORTED_OFFSETS__V349*/ - meltfptr[209] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_EXPORTED_OFFSETS*/ meltfrout->tabval[48])), (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_EXPORTED_OFFSETS__V349*/ meltfptr[209] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_EXPORTED_OFFSETS*/ meltfrout->tabval[48])), (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -37013,8 +33640,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L143*/ - meltfnum[136] = + /*_#MELT_NEED_DBG__L143*/ meltfnum[136] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -37023,8 +33649,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6792:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L143*/ meltfnum[136]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L143*/ meltfnum[136]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37057,20 +33682,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list hookswithmodvarlist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HOOKSWITHMODVARLIST__V175*/ meltfptr[174]; - /*_.MELT_DEBUG_FUN__V351*/ - meltfptr[198] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V351*/ meltfptr[198] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V350*/ - meltfptr[226] = /*_.MELT_DEBUG_FUN__V351*/ meltfptr[198];; + /*_._IF___V350*/ meltfptr[226] = /*_.MELT_DEBUG_FUN__V351*/ meltfptr[198];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6792:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L144*/ - meltfnum[129] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L144*/ meltfnum[129] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V351*/ - meltfptr[198] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V351*/ meltfptr[198] = 0 ; } ; } @@ -37083,8 +33704,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6792:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -37093,11 +33713,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L143*/ - meltfnum[136] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L143*/ meltfnum[136] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V350*/ - meltfptr[226] = 0 ; + /*clear*/ /*_._IF___V350*/ meltfptr[226] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37130,8 +33748,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[17]); - /*_.TUPHOOKSWITHMODVAR__V353*/ - meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.HOOKSWITHMODVARLIST__V175*/ meltfptr[174]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.TUPHOOKSWITHMODVAR__V353*/ meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.HOOKSWITHMODVARLIST__V175*/ meltfptr[174]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -37154,8 +33771,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L145*/ - meltfnum[98] = + /*_#MELT_NEED_DBG__L145*/ meltfnum[98] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -37164,8 +33780,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6795:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L145*/ meltfnum[98]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L145*/ meltfnum[98]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37198,20 +33813,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list tuphookswithmodvar="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TUPHOOKSWITHMODVAR__V353*/ meltfptr[219]; - /*_.MELT_DEBUG_FUN__V355*/ - meltfptr[198] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V355*/ meltfptr[198] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V354*/ - meltfptr[227] = /*_.MELT_DEBUG_FUN__V355*/ meltfptr[198];; + /*_._IF___V354*/ meltfptr[227] = /*_.MELT_DEBUG_FUN__V355*/ meltfptr[198];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6795:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L146*/ - meltfnum[129] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L146*/ meltfnum[129] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V355*/ - meltfptr[198] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V355*/ meltfptr[198] = 0 ; } ; } @@ -37224,8 +33835,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6795:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -37234,11 +33844,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L145*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L145*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V354*/ - meltfptr[227] = 0 ; + /*clear*/ /*_._IF___V354*/ meltfptr[227] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37261,12 +33869,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MULTIPLE_LENGTH__L147*/ - meltfnum[136] = + /*_#MULTIPLE_LENGTH__L147*/ meltfnum[136] = (melt_multiple_length((melt_ptr_t)(/*_.TUPHOOKSWITHMODVAR__V353*/ meltfptr[219])));; MELT_LOCATION("warmelt-outobj.melt:6796:/ cond"); - /*cond*/ - if (/*_#MULTIPLE_LENGTH__L147*/ meltfnum[136]) /*then*/ + /*cond*/ if (/*_#MULTIPLE_LENGTH__L147*/ meltfnum[136]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37287,17 +33893,14 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V44*/ meltfptr[43]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V43*/ meltfptr[42]; - /*_.OUTPUT_HOOKS_WITH_MODVAR__V357*/ - meltfptr[198] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_HOOKS_WITH_MODVAR*/ meltfrout->tabval[49])), (melt_ptr_t)(/*_.TUPHOOKSWITHMODVAR__V353*/ meltfptr[219]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_HOOKS_WITH_MODVAR__V357*/ meltfptr[198] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_HOOKS_WITH_MODVAR*/ meltfrout->tabval[49])), (melt_ptr_t)(/*_.TUPHOOKSWITHMODVAR__V353*/ meltfptr[219]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V356*/ - meltfptr[226] = /*_.OUTPUT_HOOKS_WITH_MODVAR__V357*/ meltfptr[198];; + /*_._IF___V356*/ meltfptr[226] = /*_.OUTPUT_HOOKS_WITH_MODVAR__V357*/ meltfptr[198];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6796:/ clear"); - /*clear*/ /*_.OUTPUT_HOOKS_WITH_MODVAR__V357*/ - meltfptr[198] = 0 ; + /*clear*/ /*_.OUTPUT_HOOKS_WITH_MODVAR__V357*/ meltfptr[198] = 0 ; } ; } @@ -37308,123 +33911,85 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V352*/ - meltfptr[230] = /*_._IF___V356*/ meltfptr[226];; + /*_.LET___V352*/ meltfptr[230] = /*_._IF___V356*/ meltfptr[226];; MELT_LOCATION("warmelt-outobj.melt:6793:/ clear"); - /*clear*/ /*_.TUPHOOKSWITHMODVAR__V353*/ - meltfptr[219] = 0 ; + /*clear*/ /*_.TUPHOOKSWITHMODVAR__V353*/ meltfptr[219] = 0 ; /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L147*/ - meltfnum[136] = 0 ; + /*clear*/ /*_#MULTIPLE_LENGTH__L147*/ meltfnum[136] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V356*/ - meltfptr[226] = 0 ; - /*_.LET___V167*/ - meltfptr[165] = /*_.LET___V352*/ meltfptr[230];; + /*clear*/ /*_._IF___V356*/ meltfptr[226] = 0 ; + /*_.LET___V167*/ meltfptr[165] = /*_.LET___V352*/ meltfptr[230];; MELT_LOCATION("warmelt-outobj.melt:6510:/ clear"); - /*clear*/ /*_.MSTARTCOM__V168*/ - meltfptr[164] = 0 ; + /*clear*/ /*_.MSTARTCOM__V168*/ meltfptr[164] = 0 ; /*^clear*/ - /*clear*/ /*_.MOCX_CHEADERLIST__V169*/ - meltfptr[168] = 0 ; + /*clear*/ /*_.MOCX_CHEADERLIST__V169*/ meltfptr[168] = 0 ; /*^clear*/ - /*clear*/ /*_.MHEADERTUP__V170*/ - meltfptr[169] = 0 ; + /*clear*/ /*_.MHEADERTUP__V170*/ meltfptr[169] = 0 ; /*^clear*/ - /*clear*/ /*_.MOCX_CIMPLEMENTLIST__V171*/ - meltfptr[170] = 0 ; + /*clear*/ /*_.MOCX_CIMPLEMENTLIST__V171*/ meltfptr[170] = 0 ; /*^clear*/ - /*clear*/ /*_.MIMPLEMTUP__V172*/ - meltfptr[171] = 0 ; + /*clear*/ /*_.MIMPLEMTUP__V172*/ meltfptr[171] = 0 ; /*^clear*/ - /*clear*/ /*_.MODVARLIST__V173*/ - meltfptr[172] = 0 ; + /*clear*/ /*_.MODVARLIST__V173*/ meltfptr[172] = 0 ; /*^clear*/ - /*clear*/ /*_#NBHEADERS__L85*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#NBHEADERS__L85*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_#NBIMPLEMS__L86*/ - meltfnum[62] = 0 ; + /*clear*/ /*_#NBIMPLEMS__L86*/ meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_.MODHOOKDICT__V174*/ - meltfptr[173] = 0 ; + /*clear*/ /*_.MODHOOKDICT__V174*/ meltfptr[173] = 0 ; /*^clear*/ - /*clear*/ /*_#NBMODHOOKS__L87*/ - meltfnum[86] = 0 ; + /*clear*/ /*_#NBMODHOOKS__L87*/ meltfnum[86] = 0 ; /*^clear*/ - /*clear*/ /*_.HOOKSWITHMODVARLIST__V175*/ - meltfptr[174] = 0 ; + /*clear*/ /*_.HOOKSWITHMODVARLIST__V175*/ meltfptr[174] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V178*/ - meltfptr[176] = 0 ; + /*clear*/ /*_.ADD2OUT__V178*/ meltfptr[176] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V179*/ - meltfptr[175] = 0 ; + /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V179*/ meltfptr[175] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V180*/ - meltfptr[179] = 0 ; + /*clear*/ /*_.ADD2OUT__V180*/ meltfptr[179] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V181*/ - meltfptr[180] = 0 ; + /*clear*/ /*_.ADD2OUT__V181*/ meltfptr[180] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V182*/ - meltfptr[181] = 0 ; + /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V182*/ meltfptr[181] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V183*/ - meltfptr[182] = 0 ; + /*clear*/ /*_.ADD2OUT__V183*/ meltfptr[182] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L90*/ - meltfnum[88] = 0 ; + /*clear*/ /*_#IS_STRING__L90*/ meltfnum[88] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V186*/ - meltfptr[183] = 0 ; + /*clear*/ /*_._IFELSE___V186*/ meltfptr[183] = 0 ; /*^clear*/ - /*clear*/ /*_.INITIAL_CLASSY_FRAME_NAME__V192*/ - meltfptr[188] = 0 ; + /*clear*/ /*_.INITIAL_CLASSY_FRAME_NAME__V192*/ meltfptr[188] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V193*/ - meltfptr[184] = 0 ; + /*clear*/ /*_.ADD2OUT__V193*/ meltfptr[184] = 0 ; /*^clear*/ - /*clear*/ /*_.INITIAL_CLASSY_FRAME_NAME__V194*/ - meltfptr[187] = 0 ; + /*clear*/ /*_.INITIAL_CLASSY_FRAME_NAME__V194*/ meltfptr[187] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V195*/ - meltfptr[194] = 0 ; + /*clear*/ /*_.ADD2OUT__V195*/ meltfptr[194] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V196*/ - meltfptr[195] = 0 ; + /*clear*/ /*_.LET___V196*/ meltfptr[195] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V252*/ - meltfptr[207] = 0 ; + /*clear*/ /*_._IFELSE___V252*/ meltfptr[207] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V288*/ - meltfptr[210] = 0 ; + /*clear*/ /*_._IFELSE___V288*/ meltfptr[210] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V302*/ - meltfptr[212] = 0 ; + /*clear*/ /*_._IFELSE___V302*/ meltfptr[212] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V342*/ - meltfptr[228] = 0 ; + /*clear*/ /*_.LET___V342*/ meltfptr[228] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_C_CODE__V348*/ - meltfptr[222] = 0 ; + /*clear*/ /*_.OUTPUT_C_CODE__V348*/ meltfptr[222] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_EXPORTED_OFFSETS__V349*/ - meltfptr[209] = 0 ; + /*clear*/ /*_.OUTPUT_EXPORTED_OFFSETS__V349*/ meltfptr[209] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V352*/ - meltfptr[230] = 0 ; + /*clear*/ /*_.LET___V352*/ meltfptr[230] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L148*/ - meltfnum[129] = + /*_#STRBUF_USEDLENGTH__L148*/ meltfnum[129] = melt_strbuf_usedlength((melt_ptr_t)(/*_.DECLBUF__V44*/ meltfptr[43]));; MELT_LOCATION("warmelt-outobj.melt:6800:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[50])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[51]))) ) /*then*/ @@ -37435,8 +34000,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[50])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V358*/ - meltfptr[227] = slot; + /*_.REFERENCED_VALUE__V358*/ meltfptr[227] = slot; }; ; } @@ -37447,20 +34011,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L149*/ - meltfnum[98] = + /*_#GET_INT__L149*/ meltfnum[98] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V358*/ meltfptr[227])));; /*^compute*/ - /*_#diIRAW__L150*/ - meltfnum[136] = + /*_#diIRAW__L150*/ meltfnum[136] = ((/*_#GET_INT__L149*/ meltfnum[98]) / (2));; /*^compute*/ - /*_#gtI__L151*/ - meltfnum[54] = + /*_#gtI__L151*/ meltfnum[54] = ((/*_#STRBUF_USEDLENGTH__L148*/ meltfnum[129]) > (/*_#diIRAW__L150*/ meltfnum[136]));; MELT_LOCATION("warmelt-outobj.melt:6800:/ cond"); - /*cond*/ - if (/*_#gtI__L151*/ meltfnum[54]) /*then*/ + /*cond*/ if (/*_#gtI__L151*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37482,12 +34042,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L152*/ - meltfnum[62] = + /*_#STRBUF_USEDLENGTH__L152*/ meltfnum[62] = melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V43*/ meltfptr[42]));; MELT_LOCATION("warmelt-outobj.melt:6802:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[50])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[51]))) ) /*then*/ @@ -37498,8 +34056,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[50])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V359*/ - meltfptr[198] = slot; + /*_.REFERENCED_VALUE__V359*/ meltfptr[198] = slot; }; ; } @@ -37510,20 +34067,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L153*/ - meltfnum[86] = + /*_#GET_INT__L153*/ meltfnum[86] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V359*/ meltfptr[198])));; /*^compute*/ - /*_#diIRAW__L154*/ - meltfnum[88] = + /*_#diIRAW__L154*/ meltfnum[88] = ((/*_#GET_INT__L153*/ meltfnum[86]) / (2));; /*^compute*/ - /*_#gtI__L155*/ - meltfnum[154] = + /*_#gtI__L155*/ meltfnum[154] = ((/*_#STRBUF_USEDLENGTH__L152*/ meltfnum[62]) > (/*_#diIRAW__L154*/ meltfnum[88]));; MELT_LOCATION("warmelt-outobj.melt:6802:/ cond"); - /*cond*/ - if (/*_#gtI__L155*/ meltfnum[154]) /*then*/ + /*cond*/ if (/*_#gtI__L155*/ meltfnum[154]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37557,8 +34110,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[2]))) ) /*then*/ @@ -37569,8 +34121,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 7, "MOCX_FILETUPLE"); - /*_.SECFILES__V361*/ - meltfptr[226] = slot; + /*_.SECFILES__V361*/ meltfptr[226] = slot; }; ; } @@ -37581,15 +34132,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#NBSECFILES__L156*/ - meltfnum[155] = 0;; + /*_#NBSECFILES__L156*/ meltfnum[155] = 0;; /*^compute*/ - /*_#LGSECFILES__L157*/ - meltfnum[156] = + /*_#LGSECFILES__L157*/ meltfnum[156] = (melt_multiple_length((melt_ptr_t)(/*_.SECFILES__V361*/ meltfptr[226])));; /*^compute*/ - /*_#HISECFILERK__L158*/ - meltfnum[157] = 0;; + /*_#HISECFILERK__L158*/ meltfnum[157] = 0;; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-outobj.melt:6818:/ cppif.then"); @@ -37610,8 +34158,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L159*/ - meltfnum[158] = + /*_#MELT_NEED_DBG__L159*/ meltfnum[158] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -37620,8 +34167,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6818:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L159*/ meltfnum[158]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L159*/ meltfnum[158]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37654,20 +34200,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list secfiles="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SECFILES__V361*/ meltfptr[226]; - /*_.MELT_DEBUG_FUN__V363*/ - meltfptr[168] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V363*/ meltfptr[168] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V362*/ - meltfptr[164] = /*_.MELT_DEBUG_FUN__V363*/ meltfptr[168];; + /*_._IF___V362*/ meltfptr[164] = /*_.MELT_DEBUG_FUN__V363*/ meltfptr[168];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6818:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L160*/ - meltfnum[159] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L160*/ meltfnum[159] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V363*/ - meltfptr[168] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V363*/ meltfptr[168] = 0 ; } ; } @@ -37680,8 +34222,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6818:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -37690,11 +34231,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L159*/ - meltfnum[158] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L159*/ meltfnum[158] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V362*/ - meltfptr[164] = 0 ; + /*clear*/ /*_._IF___V362*/ meltfptr[164] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37730,8 +34269,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6822:/ cond"); - /*cond*/ - if (/*_.CURFIL__V364*/ meltfptr[169]) /*then*/ + /*cond*/ if (/*_.CURFIL__V364*/ meltfptr[169]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -37748,12 +34286,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L162*/ - meltfnum[158] = + /*_#IS_A__L162*/ meltfnum[158] = melt_is_instance_of((melt_ptr_t)(/*_.CURFIL__V364*/ meltfptr[169]), (melt_ptr_t)((/*!CLASS_SECONDARY_CC_FILE*/ meltfrout->tabval[45])));; MELT_LOCATION("warmelt-outobj.melt:6824:/ cond"); - /*cond*/ - if (/*_#IS_A__L162*/ meltfnum[158]) /*then*/ + /*cond*/ if (/*_#IS_A__L162*/ meltfnum[158]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V366*/ meltfptr[171] = (/*nil*/NULL);; @@ -37782,31 +34318,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6824; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURFIL__V364*/ meltfptr[169]; - /*_.MELT_ASSERT_FAILURE_FUN__V367*/ - meltfptr[172] = 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__V367*/ meltfptr[172] = 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___V366*/ - meltfptr[171] = /*_.MELT_ASSERT_FAILURE_FUN__V367*/ meltfptr[172];; + /*_._IFELSE___V366*/ meltfptr[171] = /*_.MELT_ASSERT_FAILURE_FUN__V367*/ meltfptr[172];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6824:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V367*/ - meltfptr[172] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V367*/ meltfptr[172] = 0 ; } ; } ; - /*_.IFCPP___V365*/ - meltfptr[170] = /*_._IFELSE___V366*/ meltfptr[171];; + /*_.IFCPP___V365*/ meltfptr[170] = /*_._IFELSE___V366*/ meltfptr[171];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6824:/ clear"); - /*clear*/ /*_#IS_A__L162*/ - meltfnum[158] = 0 ; + /*clear*/ /*_#IS_A__L162*/ meltfnum[158] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V366*/ - meltfptr[171] = 0 ; + /*clear*/ /*_._IFELSE___V366*/ meltfptr[171] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37824,16 +34354,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#GET_INT__L163*/ - meltfnum[158] = + /*_#GET_INT__L163*/ meltfnum[158] = (melt_get_int((melt_ptr_t)(/*_.CURFIL__V364*/ meltfptr[169])));; /*^compute*/ - /*_#eqeqI__L164*/ - meltfnum[163] = + /*_#eqeqI__L164*/ meltfnum[163] = ((/*_#GET_INT__L163*/ meltfnum[158]) == (/*_#FILIX__L161*/ meltfnum[159]));; MELT_LOCATION("warmelt-outobj.melt:6826:/ cond"); - /*cond*/ - if (/*_#eqeqI__L164*/ meltfnum[163]) /*then*/ + /*cond*/ if (/*_#eqeqI__L164*/ meltfnum[163]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V369*/ meltfptr[174] = (/*nil*/NULL);; @@ -37864,34 +34391,27 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURFIL__V364*/ meltfptr[169]; /*^apply.arg*/ argtab[4].meltbp_long = /*_#FILIX__L161*/ meltfnum[159]; - /*_.MELT_ASSERT_FAILURE_FUN__V370*/ - meltfptr[176] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V370*/ meltfptr[176] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V369*/ - meltfptr[174] = /*_.MELT_ASSERT_FAILURE_FUN__V370*/ meltfptr[176];; + /*_._IFELSE___V369*/ meltfptr[174] = /*_.MELT_ASSERT_FAILURE_FUN__V370*/ meltfptr[176];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6826:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V370*/ - meltfptr[176] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V370*/ meltfptr[176] = 0 ; } ; } ; - /*_.IFCPP___V368*/ - meltfptr[173] = /*_._IFELSE___V369*/ meltfptr[174];; + /*_.IFCPP___V368*/ meltfptr[173] = /*_._IFELSE___V369*/ meltfptr[174];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6826:/ clear"); - /*clear*/ /*_#GET_INT__L163*/ - meltfnum[158] = 0 ; + /*clear*/ /*_#GET_INT__L163*/ meltfnum[158] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeqI__L164*/ - meltfnum[163] = 0 ; + /*clear*/ /*_#eqeqI__L164*/ meltfnum[163] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V369*/ - meltfptr[174] = 0 ; + /*clear*/ /*_._IFELSE___V369*/ meltfptr[174] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -37900,13 +34420,11 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-outobj.melt:6828:/ compute"); - /*_#HISECFILERK__L158*/ - meltfnum[157] = /*_#SETQ___L165*/ meltfnum[158] = /*_#FILIX__L161*/ meltfnum[159];; + /*_#HISECFILERK__L158*/ meltfnum[157] = /*_#SETQ___L165*/ meltfnum[158] = /*_#FILIX__L161*/ meltfnum[159];; { MELT_LOCATION("warmelt-outobj.melt:6829:/ locexp"); - /*increment*/ /*_#NBSECFILES__L156*/ - meltfnum[155] += 1; + /*increment*/ /*_#NBSECFILES__L156*/ meltfnum[155] += 1; ; } ; @@ -37914,8 +34432,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFIL__V364*/ meltfptr[169]), (melt_ptr_t)((/*!CLASS_SECONDARY_CC_FILE*/ meltfrout->tabval[45]))) ) /*then*/ @@ -37926,8 +34443,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFIL__V364*/ meltfptr[169]) /*=obj*/; melt_object_get_field(slot,obj, 1, "SECFIL_PATH"); - /*_.SECFILPATH__V371*/ - meltfptr[175] = slot; + /*_.SECFILPATH__V371*/ meltfptr[175] = slot; }; ; } @@ -37938,8 +34454,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6832:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFIL__V364*/ meltfptr[169]), (melt_ptr_t)((/*!CLASS_SECONDARY_CC_FILE*/ meltfrout->tabval[45]))) ) /*then*/ @@ -37950,8 +34465,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFIL__V364*/ meltfptr[169]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SECFIL_DECLBUF"); - /*_.SECDECLBUF__V372*/ - meltfptr[179] = slot; + /*_.SECDECLBUF__V372*/ meltfptr[179] = slot; }; ; } @@ -37962,8 +34476,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-outobj.melt:6833:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFIL__V364*/ meltfptr[169]), (melt_ptr_t)((/*!CLASS_SECONDARY_CC_FILE*/ meltfrout->tabval[45]))) ) /*then*/ @@ -37974,8 +34487,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFIL__V364*/ meltfptr[169]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SECFIL_IMPLBUF"); - /*_.SECIMPLBUF__V373*/ - meltfptr[180] = slot; + /*_.SECIMPLBUF__V373*/ meltfptr[180] = slot; }; ; } @@ -37989,12 +34501,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#STRBUF_USEDLENGTH__L166*/ - meltfnum[163] = + /*_#STRBUF_USEDLENGTH__L166*/ meltfnum[163] = melt_strbuf_usedlength((melt_ptr_t)(/*_.SECDECLBUF__V372*/ meltfptr[179]));; MELT_LOCATION("warmelt-outobj.melt:6836:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[50])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[51]))) ) /*then*/ @@ -38005,8 +34515,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[50])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V374*/ - meltfptr[181] = slot; + /*_.REFERENCED_VALUE__V374*/ meltfptr[181] = slot; }; ; } @@ -38017,20 +34526,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L167*/ - meltfnum[166] = + /*_#GET_INT__L167*/ meltfnum[166] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V374*/ meltfptr[181])));; /*^compute*/ - /*_#diIRAW__L168*/ - meltfnum[167] = + /*_#diIRAW__L168*/ meltfnum[167] = ((/*_#GET_INT__L167*/ meltfnum[166]) / (2));; /*^compute*/ - /*_#gtI__L169*/ - meltfnum[168] = + /*_#gtI__L169*/ meltfnum[168] = ((/*_#STRBUF_USEDLENGTH__L166*/ meltfnum[163]) > (/*_#diIRAW__L168*/ meltfnum[167]));; MELT_LOCATION("warmelt-outobj.melt:6836:/ cond"); - /*cond*/ - if (/*_#gtI__L169*/ meltfnum[168]) /*then*/ + /*cond*/ if (/*_#gtI__L169*/ meltfnum[168]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38052,12 +34557,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRBUF_USEDLENGTH__L170*/ - meltfnum[169] = + /*_#STRBUF_USEDLENGTH__L170*/ meltfnum[169] = melt_strbuf_usedlength((melt_ptr_t)(/*_.SECIMPLBUF__V373*/ meltfptr[180]));; MELT_LOCATION("warmelt-outobj.melt:6838:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[50])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[51]))) ) /*then*/ @@ -38068,8 +34571,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[50])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V375*/ - meltfptr[182] = slot; + /*_.REFERENCED_VALUE__V375*/ meltfptr[182] = slot; }; ; } @@ -38080,20 +34582,16 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#GET_INT__L171*/ - meltfnum[170] = + /*_#GET_INT__L171*/ meltfnum[170] = (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V375*/ meltfptr[182])));; /*^compute*/ - /*_#diIRAW__L172*/ - meltfnum[171] = + /*_#diIRAW__L172*/ meltfnum[171] = ((/*_#GET_INT__L171*/ meltfnum[170]) / (2));; /*^compute*/ - /*_#gtI__L173*/ - meltfnum[172] = + /*_#gtI__L173*/ meltfnum[172] = ((/*_#STRBUF_USEDLENGTH__L170*/ meltfnum[169]) > (/*_#diIRAW__L172*/ meltfnum[171]));; MELT_LOCATION("warmelt-outobj.melt:6838:/ cond"); - /*cond*/ - if (/*_#gtI__L173*/ meltfnum[172]) /*then*/ + /*cond*/ if (/*_#gtI__L173*/ meltfnum[172]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38126,58 +34624,42 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:6831:/ clear"); - /*clear*/ /*_.SECFILPATH__V371*/ - meltfptr[175] = 0 ; + /*clear*/ /*_.SECFILPATH__V371*/ meltfptr[175] = 0 ; /*^clear*/ - /*clear*/ /*_.SECDECLBUF__V372*/ - meltfptr[179] = 0 ; + /*clear*/ /*_.SECDECLBUF__V372*/ meltfptr[179] = 0 ; /*^clear*/ - /*clear*/ /*_.SECIMPLBUF__V373*/ - meltfptr[180] = 0 ; + /*clear*/ /*_.SECIMPLBUF__V373*/ meltfptr[180] = 0 ; /*^clear*/ - /*clear*/ /*_#STRBUF_USEDLENGTH__L166*/ - meltfnum[163] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L166*/ meltfnum[163] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V374*/ - meltfptr[181] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V374*/ meltfptr[181] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L167*/ - meltfnum[166] = 0 ; + /*clear*/ /*_#GET_INT__L167*/ meltfnum[166] = 0 ; /*^clear*/ - /*clear*/ /*_#diIRAW__L168*/ - meltfnum[167] = 0 ; + /*clear*/ /*_#diIRAW__L168*/ meltfnum[167] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L169*/ - meltfnum[168] = 0 ; + /*clear*/ /*_#gtI__L169*/ meltfnum[168] = 0 ; /*^clear*/ - /*clear*/ /*_#STRBUF_USEDLENGTH__L170*/ - meltfnum[169] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L170*/ meltfnum[169] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V375*/ - meltfptr[182] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V375*/ meltfptr[182] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L171*/ - meltfnum[170] = 0 ; + /*clear*/ /*_#GET_INT__L171*/ meltfnum[170] = 0 ; /*^clear*/ - /*clear*/ /*_#diIRAW__L172*/ - meltfnum[171] = 0 ; + /*clear*/ /*_#diIRAW__L172*/ meltfnum[171] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L173*/ - meltfnum[172] = 0 ; + /*clear*/ /*_#gtI__L173*/ meltfnum[172] = 0 ; MELT_LOCATION("warmelt-outobj.melt:6823:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6822:/ clear"); - /*clear*/ /*_.IFCPP___V365*/ - meltfptr[170] = 0 ; + /*clear*/ /*_.IFCPP___V365*/ meltfptr[170] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V368*/ - meltfptr[173] = 0 ; + /*clear*/ /*_.IFCPP___V368*/ meltfptr[173] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L165*/ - meltfnum[158] = 0 ; + /*clear*/ /*_#SETQ___L165*/ meltfnum[158] = 0 ; } ; } /*noelse*/ @@ -38188,11 +34670,9 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6819:/ clear"); - /*clear*/ /*_.CURFIL__V364*/ - meltfptr[169] = 0 ; + /*clear*/ /*_.CURFIL__V364*/ meltfptr[169] = 0 ; /*^clear*/ - /*clear*/ /*_#FILIX__L161*/ - meltfnum[159] = 0 ; + /*clear*/ /*_#FILIX__L161*/ meltfnum[159] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -38215,8 +34695,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L174*/ - meltfnum[163] = + /*_#MELT_NEED_DBG__L174*/ meltfnum[163] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -38225,8 +34704,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6855:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L174*/ meltfnum[163]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L174*/ meltfnum[163]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38259,20 +34737,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list before output descrfil modctx="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V377*/ - meltfptr[188] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V377*/ meltfptr[188] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V376*/ - meltfptr[183] = /*_.MELT_DEBUG_FUN__V377*/ meltfptr[188];; + /*_._IF___V376*/ meltfptr[183] = /*_.MELT_DEBUG_FUN__V377*/ meltfptr[188];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6855:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L175*/ - meltfnum[166] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L175*/ meltfnum[166] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V377*/ - meltfptr[188] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V377*/ meltfptr[188] = 0 ; } ; } @@ -38285,8 +34759,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6855:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -38295,11 +34768,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L174*/ - meltfnum[163] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L174*/ meltfnum[163] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V376*/ - meltfptr[183] = 0 ; + /*clear*/ /*_._IF___V376*/ meltfptr[183] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38331,16 +34802,13 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SECFILES__V361*/ meltfptr[226]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V4*/ meltfptr[3]; - /*_.OUTPUT_MELT_DESCRIPTOR__V378*/ - meltfptr[184] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_MELT_DESCRIPTOR*/ meltfrout->tabval[52])), (melt_ptr_t)(/*_.MODNAMSTR__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OUTPUT_MELT_DESCRIPTOR__V378*/ meltfptr[184] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_MELT_DESCRIPTOR*/ meltfrout->tabval[52])), (melt_ptr_t)(/*_.MODNAMSTR__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#plI__L176*/ - meltfnum[167] = + /*_#plI__L176*/ meltfnum[167] = ((/*_#HISECFILERK__L158*/ meltfnum[157]) + (1));; /*^compute*/ - /*_#plI__L177*/ - meltfnum[168] = + /*_#plI__L177*/ meltfnum[168] = ((/*_#HISECFILERK__L158*/ meltfnum[157]) + (25));; /*citerblock FOREACH_LONG_UPTO*/ { @@ -38359,12 +34827,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#gtI__L179*/ - meltfnum[170] = + /*_#gtI__L179*/ meltfnum[170] = ((/*_#DELFILIX__L178*/ meltfnum[169]) > (0));; MELT_LOCATION("warmelt-outobj.melt:6861:/ cond"); - /*cond*/ - if (/*_#gtI__L179*/ meltfnum[170]) /*then*/ + /*cond*/ if (/*_#gtI__L179*/ meltfnum[170]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38374,15 +34840,13 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6862:/ quasiblock"); - /*_.DELFILNAM__V379*/ - meltfptr[187] = + /*_.DELFILNAM__V379*/ meltfptr[187] = meltgc_new_string_generated_cc_filename /* generated_cc_filename */ ((meltobject_ptr_t) ((/*!DISCR_STRING*/ meltfrout->tabval[22])), melt_string_str((melt_ptr_t) (/*_.MODNAMSTR__V3*/ meltfptr[2])), melt_string_str((melt_ptr_t) ((/*nil*/NULL))), (/*_#DELFILIX__L178*/ meltfnum[169]));; /*^compute*/ - /*_.BAKSBUF__V380*/ - meltfptr[194] = + /*_.BAKSBUF__V380*/ meltfptr[194] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[5])), (const char*)0);; MELT_CHECK_SIGNAL(); @@ -38396,15 +34860,13 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DELFILNAM__V379*/ meltfptr[187]; /*^apply.arg*/ argtab[1].meltbp_cstring = "~"; - /*_.ADD2OUT__V381*/ - meltfptr[195] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.BAKSBUF__V380*/ meltfptr[194]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V381*/ meltfptr[195] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.BAKSBUF__V380*/ meltfptr[194]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6866:/ quasiblock"); - /*_.BAKFILNAM__V382*/ - meltfptr[207] = + /*_.BAKFILNAM__V382*/ meltfptr[207] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[22])), melt_strbuf_str((melt_ptr_t)(/*_.BAKSBUF__V380*/ meltfptr[194]))));; { @@ -38429,18 +34891,14 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:6866:/ clear"); - /*clear*/ /*_.BAKFILNAM__V382*/ - meltfptr[207] = 0 ; + /*clear*/ /*_.BAKFILNAM__V382*/ meltfptr[207] = 0 ; MELT_LOCATION("warmelt-outobj.melt:6862:/ clear"); - /*clear*/ /*_.DELFILNAM__V379*/ - meltfptr[187] = 0 ; + /*clear*/ /*_.DELFILNAM__V379*/ meltfptr[187] = 0 ; /*^clear*/ - /*clear*/ /*_.BAKSBUF__V380*/ - meltfptr[194] = 0 ; + /*clear*/ /*_.BAKSBUF__V380*/ meltfptr[194] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V381*/ - meltfptr[195] = 0 ; + /*clear*/ /*_.ADD2OUT__V381*/ meltfptr[195] = 0 ; /*epilog*/ } ; @@ -38451,11 +34909,9 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-outobj.melt:6858:/ clear"); - /*clear*/ /*_#DELFILIX__L178*/ - meltfnum[169] = 0 ; + /*clear*/ /*_#DELFILIX__L178*/ meltfnum[169] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L179*/ - meltfnum[170] = 0 ; + /*clear*/ /*_#gtI__L179*/ meltfnum[170] = 0 ; } /*endciterblock FOREACH_LONG_UPTO*/ ; @@ -38478,8 +34934,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L180*/ - meltfnum[171] = + /*_#MELT_NEED_DBG__L180*/ meltfnum[171] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -38488,8 +34943,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6886:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L180*/ meltfnum[171]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L180*/ meltfnum[171]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38522,20 +34976,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list before endmodnamchk modctx="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V384*/ - meltfptr[212] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V384*/ meltfptr[212] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V383*/ - meltfptr[210] = /*_.MELT_DEBUG_FUN__V384*/ meltfptr[212];; + /*_._IF___V383*/ meltfptr[210] = /*_.MELT_DEBUG_FUN__V384*/ meltfptr[212];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6886:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L181*/ - meltfnum[172] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L181*/ meltfnum[172] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V384*/ - meltfptr[212] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V384*/ meltfptr[212] = 0 ; } ; } @@ -38548,8 +34998,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6886:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -38558,11 +35007,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L180*/ - meltfnum[171] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L180*/ meltfnum[171] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V383*/ - meltfptr[210] = 0 ; + /*clear*/ /*_._IF___V383*/ meltfptr[210] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38626,8 +35073,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L182*/ - meltfnum[158] = + /*_#MELT_NEED_DBG__L182*/ meltfnum[158] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -38636,8 +35082,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6908:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L182*/ meltfnum[158]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L182*/ meltfnum[158]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38670,20 +35115,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list ending modctx="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V386*/ - meltfptr[222] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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__V386*/ meltfptr[222] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_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___V385*/ - meltfptr[228] = /*_.MELT_DEBUG_FUN__V386*/ meltfptr[222];; + /*_._IF___V385*/ meltfptr[228] = /*_.MELT_DEBUG_FUN__V386*/ meltfptr[222];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6908:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L183*/ - meltfnum[166] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L183*/ meltfnum[166] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V386*/ - meltfptr[222] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V386*/ meltfptr[222] = 0 ; } ; } @@ -38696,8 +35137,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6908:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -38706,11 +35146,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L182*/ - meltfnum[158] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L182*/ meltfnum[158] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V385*/ - meltfptr[228] = 0 ; + /*clear*/ /*_._IF___V385*/ meltfptr[228] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -38744,12 +35182,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_ERROR_COUNTER__L184*/ - meltfnum[163] = + /*_#MELT_ERROR_COUNTER__L184*/ meltfnum[163] = melt_error_counter;; MELT_LOCATION("warmelt-outobj.melt:6910:/ cond"); - /*cond*/ - if (/*_#MELT_ERROR_COUNTER__L184*/ meltfnum[163]) /*then*/ + /*cond*/ if (/*_#MELT_ERROR_COUNTER__L184*/ meltfnum[163]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38759,12 +35195,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L185*/ - meltfnum[172] = + /*_#IS_CLOSURE__L185*/ meltfnum[172] = (melt_magic_discr((melt_ptr_t)(/*_.ERRORHDLR__V39*/ meltfptr[8])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-outobj.melt:6911:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L185*/ meltfnum[172]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L185*/ meltfnum[172]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -38780,13 +35214,11 @@ meltlab_endgetargs: /*_.ERRORHDLR__V389*/ meltfptr[168] = melt_apply ((meltclosure_ptr_t)(/*_.ERRORHDLR__V39*/ meltfptr[8]), (melt_ptr_t)((/*!konst_53*/ meltfrout->tabval[53])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; - /*_._IF___V388*/ - meltfptr[230] = /*_.ERRORHDLR__V389*/ meltfptr[168];; + /*_._IF___V388*/ meltfptr[230] = /*_.ERRORHDLR__V389*/ meltfptr[168];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6911:/ clear"); - /*clear*/ /*_.ERRORHDLR__V389*/ - meltfptr[168] = 0 ; + /*clear*/ /*_.ERRORHDLR__V389*/ meltfptr[168] = 0 ; } ; } @@ -38808,8 +35240,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6918:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-outobj.melt:6918:/ locexp"); @@ -38824,30 +35255,23 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-outobj.melt:6910:/ quasiblock"); - /*_.PROGN___V391*/ - meltfptr[172] = /*_.RETURN___V390*/ meltfptr[164];; + /*_.PROGN___V391*/ meltfptr[172] = /*_.RETURN___V390*/ meltfptr[164];; /*^compute*/ - /*_._IF___V387*/ - meltfptr[209] = /*_.PROGN___V391*/ meltfptr[172];; + /*_._IF___V387*/ meltfptr[209] = /*_.PROGN___V391*/ meltfptr[172];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6910:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L185*/ - meltfnum[172] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L185*/ meltfnum[172] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V388*/ - meltfptr[230] = 0 ; + /*clear*/ /*_._IF___V388*/ meltfptr[230] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V390*/ - meltfptr[164] = 0 ; + /*clear*/ /*_.RETURN___V390*/ meltfptr[164] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V391*/ - meltfptr[172] = 0 ; + /*clear*/ /*_.PROGN___V391*/ meltfptr[172] = 0 ; } ; } @@ -38858,207 +35282,143 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V360*/ - meltfptr[219] = /*_._IF___V387*/ meltfptr[209];; + /*_.LET___V360*/ meltfptr[219] = /*_._IF___V387*/ meltfptr[209];; MELT_LOCATION("warmelt-outobj.melt:6813:/ clear"); - /*clear*/ /*_.SECFILES__V361*/ - meltfptr[226] = 0 ; + /*clear*/ /*_.SECFILES__V361*/ meltfptr[226] = 0 ; /*^clear*/ - /*clear*/ /*_#NBSECFILES__L156*/ - meltfnum[155] = 0 ; + /*clear*/ /*_#NBSECFILES__L156*/ meltfnum[155] = 0 ; /*^clear*/ - /*clear*/ /*_#LGSECFILES__L157*/ - meltfnum[156] = 0 ; + /*clear*/ /*_#LGSECFILES__L157*/ meltfnum[156] = 0 ; /*^clear*/ - /*clear*/ /*_#HISECFILERK__L158*/ - meltfnum[157] = 0 ; + /*clear*/ /*_#HISECFILERK__L158*/ meltfnum[157] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTPUT_MELT_DESCRIPTOR__V378*/ - meltfptr[184] = 0 ; + /*clear*/ /*_.OUTPUT_MELT_DESCRIPTOR__V378*/ meltfptr[184] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L176*/ - meltfnum[167] = 0 ; + /*clear*/ /*_#plI__L176*/ meltfnum[167] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L177*/ - meltfnum[168] = 0 ; + /*clear*/ /*_#plI__L177*/ meltfnum[168] = 0 ; /*^clear*/ - /*clear*/ /*_#MELT_ERROR_COUNTER__L184*/ - meltfnum[163] = 0 ; + /*clear*/ /*_#MELT_ERROR_COUNTER__L184*/ meltfnum[163] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V387*/ - meltfptr[209] = 0 ; - /*_.LET___V163*/ - meltfptr[161] = /*_.LET___V360*/ meltfptr[219];; + /*clear*/ /*_._IF___V387*/ meltfptr[209] = 0 ; + /*_.LET___V163*/ meltfptr[161] = /*_.LET___V360*/ meltfptr[219];; MELT_LOCATION("warmelt-outobj.melt:6503:/ clear"); - /*clear*/ /*_.INIOBJ__V164*/ - meltfptr[160] = 0 ; + /*clear*/ /*_.INIOBJ__V164*/ meltfptr[160] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V167*/ - meltfptr[165] = 0 ; + /*clear*/ /*_.LET___V167*/ meltfptr[165] = 0 ; /*^clear*/ - /*clear*/ /*_#STRBUF_USEDLENGTH__L148*/ - meltfnum[129] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L148*/ meltfnum[129] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V358*/ - meltfptr[227] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V358*/ meltfptr[227] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L149*/ - meltfnum[98] = 0 ; + /*clear*/ /*_#GET_INT__L149*/ meltfnum[98] = 0 ; /*^clear*/ - /*clear*/ /*_#diIRAW__L150*/ - meltfnum[136] = 0 ; + /*clear*/ /*_#diIRAW__L150*/ meltfnum[136] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L151*/ - meltfnum[54] = 0 ; + /*clear*/ /*_#gtI__L151*/ meltfnum[54] = 0 ; /*^clear*/ - /*clear*/ /*_#STRBUF_USEDLENGTH__L152*/ - meltfnum[62] = 0 ; + /*clear*/ /*_#STRBUF_USEDLENGTH__L152*/ meltfnum[62] = 0 ; /*^clear*/ - /*clear*/ /*_.REFERENCED_VALUE__V359*/ - meltfptr[198] = 0 ; + /*clear*/ /*_.REFERENCED_VALUE__V359*/ meltfptr[198] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L153*/ - meltfnum[86] = 0 ; + /*clear*/ /*_#GET_INT__L153*/ meltfnum[86] = 0 ; /*^clear*/ - /*clear*/ /*_#diIRAW__L154*/ - meltfnum[88] = 0 ; + /*clear*/ /*_#diIRAW__L154*/ meltfnum[88] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L155*/ - meltfnum[154] = 0 ; + /*clear*/ /*_#gtI__L155*/ meltfnum[154] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V360*/ - meltfptr[219] = 0 ; - /*_.LET___V131*/ - meltfptr[129] = /*_.LET___V163*/ meltfptr[161];; + /*clear*/ /*_.LET___V360*/ meltfptr[219] = 0 ; + /*_.LET___V131*/ meltfptr[129] = /*_.LET___V163*/ meltfptr[161];; MELT_LOCATION("warmelt-outobj.melt:6467:/ clear"); - /*clear*/ /*_.INIPRO__V132*/ - meltfptr[110] = 0 ; + /*clear*/ /*_.INIPRO__V132*/ meltfptr[110] = 0 ; /*^clear*/ - /*clear*/ /*_.INIDATA__V133*/ - meltfptr[132] = 0 ; + /*clear*/ /*_.INIDATA__V133*/ meltfptr[132] = 0 ; /*^clear*/ - /*clear*/ /*_.IMPORTVALUES__V134*/ - meltfptr[133] = 0 ; + /*clear*/ /*_.IMPORTVALUES__V134*/ meltfptr[133] = 0 ; /*^clear*/ - /*clear*/ /*_.PROCURMODENVLIST__V135*/ - meltfptr[134] = 0 ; + /*clear*/ /*_.PROCURMODENVLIST__V135*/ meltfptr[134] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V139*/ - meltfptr[136] = 0 ; + /*clear*/ /*_.IFCPP___V139*/ meltfptr[136] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V150*/ - meltfptr[145] = 0 ; + /*clear*/ /*_.IFCPP___V150*/ meltfptr[145] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V153*/ - meltfptr[135] = 0 ; + /*clear*/ /*_.IFCPP___V153*/ meltfptr[135] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V163*/ - meltfptr[161] = 0 ; - /*_.LET___V83*/ - meltfptr[74] = /*_.LET___V131*/ meltfptr[129];; + /*clear*/ /*_.LET___V163*/ meltfptr[161] = 0 ; + /*_.LET___V83*/ meltfptr[74] = /*_.LET___V131*/ meltfptr[129];; MELT_LOCATION("warmelt-outobj.melt:6405:/ clear"); - /*clear*/ /*_.PROLIST__V84*/ - meltfptr[67] = 0 ; + /*clear*/ /*_.PROLIST__V84*/ meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.OBJLIST__V85*/ - meltfptr[59] = 0 ; + /*clear*/ /*_.OBJLIST__V85*/ meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_#LIST_LENGTH__L46*/ - meltfnum[26] = 0 ; + /*clear*/ /*_#LIST_LENGTH__L46*/ meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_#stI__L47*/ - meltfnum[46] = 0 ; + /*clear*/ /*_#stI__L47*/ meltfnum[46] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L48*/ - meltfnum[47] = 0 ; + /*clear*/ /*_#plI__L48*/ meltfnum[47] = 0 ; /*^clear*/ - /*clear*/ /*_.COMPICACHE__V86*/ - meltfptr[85] = 0 ; + /*clear*/ /*_.COMPICACHE__V86*/ meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_#COUNT__L49*/ - meltfnum[48] = 0 ; + /*clear*/ /*_#COUNT__L49*/ meltfnum[48] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V89*/ - meltfptr[87] = 0 ; + /*clear*/ /*_.IFCPP___V89*/ meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_#MELT_ERROR_COUNTER__L65*/ - meltfnum[58] = 0 ; + /*clear*/ /*_#MELT_ERROR_COUNTER__L65*/ meltfnum[58] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V116*/ - meltfptr[98] = 0 ; + /*clear*/ /*_._IF___V116*/ meltfptr[98] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V121*/ - meltfptr[102] = 0 ; + /*clear*/ /*_.IFCPP___V121*/ meltfptr[102] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V131*/ - meltfptr[129] = 0 ; + /*clear*/ /*_.LET___V131*/ meltfptr[129] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_.MULTI___V47*/ - meltfptr[45] = /*_.LET___V83*/ meltfptr[74];; + /*_.MULTI___V47*/ meltfptr[45] = /*_.LET___V83*/ meltfptr[74];; MELT_LOCATION("warmelt-outobj.melt:6358:/ clear"); - /*clear*/ /*_.IFCPP___V51*/ - meltfptr[49] = 0 ; + /*clear*/ /*_.IFCPP___V51*/ meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_CLOSURE__L25*/ - meltfnum[20] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L25*/ meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V63*/ - meltfptr[52] = 0 ; + /*clear*/ /*_.IFCPP___V63*/ meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_#MELT_ERROR_COUNTER__L44*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_ERROR_COUNTER__L44*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V78*/ - meltfptr[73] = 0 ; + /*clear*/ /*_._IF___V78*/ meltfptr[73] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V83*/ - meltfptr[74] = 0 ; + /*clear*/ /*_.LET___V83*/ meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_#STARTCLOCK__L19*/ - meltfnum[17] = 0 ; - /*_.LET___V38*/ - meltfptr[36] = /*_.MULTI___V47*/ meltfptr[45];; + /*clear*/ /*_#STARTCLOCK__L19*/ meltfnum[17] = 0 ; + /*_.LET___V38*/ meltfptr[36] = /*_.MULTI___V47*/ meltfptr[45];; MELT_LOCATION("warmelt-outobj.melt:6347:/ clear"); - /*clear*/ /*_#ENDCLOCK__L16*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#ENDCLOCK__L16*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.ERRORHDLR__V39*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.ERRORHDLR__V39*/ meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.GENDEVLIST__V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.GENDEVLIST__V40*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.MODINIENV__V41*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.MODINIENV__V41*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.INIPROC__V42*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.INIPROC__V42*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.IMPLBUF__V43*/ - meltfptr[42] = 0 ; + /*clear*/ /*_.IMPLBUF__V43*/ meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.DECLBUF__V44*/ - meltfptr[43] = 0 ; + /*clear*/ /*_.DECLBUF__V44*/ meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTI___V47*/ - meltfptr[45] = 0 ; + /*clear*/ /*_.MULTI___V47*/ meltfptr[45] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6313:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V38*/ meltfptr[36];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V38*/ meltfptr[36];; { MELT_LOCATION("warmelt-outobj.melt:6313:/ locexp"); @@ -39073,40 +35433,29 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V20*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V23*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.IFCPP___V23*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V26*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.IFCPP___V26*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V29*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.IFCPP___V29*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V32*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.IFCPP___V32*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V35*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.IFCPP___V35*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V38*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.LET___V38*/ meltfptr[36] = 0 ; } ; @@ -39187,8 +35536,7 @@ meltrout_129_WARMELTmiOUTOBJ_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_129_WARMELTmiOUTOBJ_LAMBDA_cl6 fromline 1719 */ - /* classy proc frame meltrout_129_WARMELTmiOUTOBJ_LAMBDA_cl6 */ - MeltFrame_meltrout_129_WARMELTmiOUTOBJ_LAMBDA_cl6 + /* classy proc frame meltrout_129_WARMELTmiOUTOBJ_LAMBDA_cl6 */ MeltFrame_meltrout_129_WARMELTmiOUTOBJ_LAMBDA_cl6 meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_129_WARMELTmiOUTOBJ_LAMBDA_cl6 fromline 1748*/ #if ENABLE_CHECKING @@ -39201,8 +35549,7 @@ meltrout_129_WARMELTmiOUTOBJ_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl6", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -39212,8 +35559,7 @@ meltrout_129_WARMELTmiOUTOBJ_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:6480:/ getarg"); - /*_.CURIMP__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CURIMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -39243,8 +35589,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)) @@ -39253,8 +35598,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6481:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -39287,20 +35631,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list/lambda curimp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURIMP__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V4*/ - meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V3*/ - meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; + /*_._IF___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6481:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 0 ; } ; } @@ -39313,8 +35653,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6481:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -39323,11 +35662,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_._IF___V3*/ meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39364,8 +35701,7 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~NCX*/ meltfclos->tabval[1]); /*^apply.arg*/ argtab[2].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; - /*_.RESIMP__V6*/ - meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_IMPORT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.CURIMP__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.RESIMP__V6*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_IMPORT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.CURIMP__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -39388,8 +35724,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -39398,8 +35733,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6484:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -39432,20 +35766,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_macroexpanded_list/lambda resimp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RESIMP__V6*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V8*/ - meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V7*/ - meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; + /*_._IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6484:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0 ; } ; } @@ -39458,8 +35788,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6484:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -39468,11 +35797,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V7*/ meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39492,20 +35819,17 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V5*/ - meltfptr[3] = /*_.RESIMP__V6*/ meltfptr[2];; + /*_.LET___V5*/ meltfptr[3] = /*_.RESIMP__V6*/ meltfptr[2];; MELT_LOCATION("warmelt-outobj.melt:6482:/ clear"); - /*clear*/ /*_.RESIMP__V6*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.RESIMP__V6*/ meltfptr[2] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:6480:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; { MELT_LOCATION("warmelt-outobj.melt:6480:/ locexp"); @@ -39520,13 +35844,11 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V5*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.LET___V5*/ meltfptr[3] = 0 ; } ; @@ -39607,8 +35929,7 @@ meltrout_130_WARMELTmiOUTOBJ_FATAL_COMPILE_ERROR(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_130_WARMELTmiOUTOBJ_FATAL_COMPILE_ERROR fromline 1719 */ - /* classy proc frame meltrout_130_WARMELTmiOUTOBJ_FATAL_COMPILE_ERROR */ - MeltFrame_meltrout_130_WARMELTmiOUTOBJ_FATAL_COMPILE_ERROR + /* classy proc frame meltrout_130_WARMELTmiOUTOBJ_FATAL_COMPILE_ERROR */ MeltFrame_meltrout_130_WARMELTmiOUTOBJ_FATAL_COMPILE_ERROR meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_130_WARMELTmiOUTOBJ_FATAL_COMPILE_ERROR fromline 1748*/ #if ENABLE_CHECKING @@ -39621,8 +35942,7 @@ meltrout_130_WARMELTmiOUTOBJ_FATAL_COMPILE_ERROR(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("FATAL_COMPILE_ERROR", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -39632,14 +35952,12 @@ meltrout_130_WARMELTmiOUTOBJ_FATAL_COMPILE_ERROR(meltclosure_ptr_t meltclosp_, m /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:6925:/ getarg"); - /*_.MODNAMSTR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.MODNAMSTR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.V__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.V__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.V__V3*/ meltfptr[2])) != NULL); ; @@ -39654,12 +35972,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L1*/ - meltfnum[0] = + /*_#IS_STRING__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.V__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-outobj.melt:6926:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -39707,8 +36023,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6925:/ clear"); - /*clear*/ /*_#IS_STRING__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_STRING__L1*/ meltfnum[0] = 0 ; } ; @@ -39789,8 +36104,7 @@ meltrout_131_WARMELTmiOUTOBJ_COMPILE_LIST_SEXPR(meltclosure_ptr_t meltclosp_, me /* end of frame for routine meltrout_131_WARMELTmiOUTOBJ_COMPILE_LIST_SEXPR fromline 1719 */ - /* classy proc frame meltrout_131_WARMELTmiOUTOBJ_COMPILE_LIST_SEXPR */ - MeltFrame_meltrout_131_WARMELTmiOUTOBJ_COMPILE_LIST_SEXPR + /* classy proc frame meltrout_131_WARMELTmiOUTOBJ_COMPILE_LIST_SEXPR */ MeltFrame_meltrout_131_WARMELTmiOUTOBJ_COMPILE_LIST_SEXPR meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_131_WARMELTmiOUTOBJ_COMPILE_LIST_SEXPR fromline 1748*/ #if ENABLE_CHECKING @@ -39803,8 +36117,7 @@ meltrout_131_WARMELTmiOUTOBJ_COMPILE_LIST_SEXPR(meltclosure_ptr_t meltclosp_, me #define meltframe meltfram__ melt_trace_start("COMPILE_LIST_SEXPR", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -39814,22 +36127,19 @@ meltrout_131_WARMELTmiOUTOBJ_COMPILE_LIST_SEXPR(meltclosure_ptr_t meltclosp_, me /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:6946:/ getarg"); - /*_.LSEXP__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.LSEXP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.INIENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.INIENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.INIENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODNAMSTR__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MODNAMSTR__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODNAMSTR__V4*/ meltfptr[3])) != NULL); ; @@ -39861,8 +36171,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)) @@ -39871,8 +36180,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6947:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -39915,20 +36223,16 @@ meltlab_endgetargs: argtab[8].meltbp_cstring = "\n@ compile_list_sexpr modnamstr="; /*^apply.arg*/ argtab[9].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V5*/ - meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; + /*_._IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6947:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } @@ -39941,8 +36245,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6947:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -39951,11 +36254,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -39996,12 +36297,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L3*/ - meltfnum[1] = + /*_#IS_LIST__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.LSEXP__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:6951:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -40030,31 +36329,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6951; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LSEXP__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:6951:/ 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:6951:/ clear"); - /*clear*/ /*_#IS_LIST__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40072,12 +36365,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L4*/ - meltfnum[0] = + /*_#IS_STRING__L4*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MODNAMSTR__V4*/ meltfptr[3])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-outobj.melt:6952:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L4*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[4] = (/*nil*/NULL);; @@ -40106,31 +36397,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6952; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__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:6952:/ 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:6952:/ clear"); - /*clear*/ /*_#IS_STRING__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_STRING__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V11*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V11*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40148,12 +36433,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ - meltfnum[1] = + /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.INIENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-outobj.melt:6953:/ cond"); - /*cond*/ - if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V14*/ meltfptr[4] = (/*nil*/NULL);; @@ -40182,31 +36465,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6953; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.INIENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V15*/ - meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V14*/ - meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; + /*_._IFELSE___V14*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6953:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = 0 ; } ; } ; - /*_.IFCPP___V13*/ - meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[4];; + /*_.IFCPP___V13*/ meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6953:/ clear"); - /*clear*/ /*_#IS_A__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V14*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V14*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40224,17 +36501,14 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRING_DYNLOADED_SUFFIXED__L6*/ - meltfnum[0] = + /*_#STRING_DYNLOADED_SUFFIXED__L6*/ meltfnum[0] = /*string_dynloaded_suffixed:*/ (melt_string_is_ending ((melt_ptr_t)/*_.MODNAMSTR__V4*/ meltfptr[3], MELT_DYNLOADED_SUFFIX));; /*^compute*/ - /*_#NOT__L7*/ - meltfnum[1] = + /*_#NOT__L7*/ meltfnum[1] = (!(/*_#STRING_DYNLOADED_SUFFIXED__L6*/ meltfnum[0]));; MELT_LOCATION("warmelt-outobj.melt:6954:/ cond"); - /*cond*/ - if (/*_#NOT__L7*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NOT__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[4] = (/*nil*/NULL);; @@ -40263,34 +36537,27 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6954; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V17*/ - meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; + /*_._IFELSE___V17*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6954:/ 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[4];; + /*_.IFCPP___V16*/ meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6954:/ clear"); - /*clear*/ /*_#STRING_DYNLOADED_SUFFIXED__L6*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#STRING_DYNLOADED_SUFFIXED__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NOT__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40308,16 +36575,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRING_SUFFIXED__L8*/ - meltfnum[0] = + /*_#STRING_SUFFIXED__L8*/ meltfnum[0] = /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.MODNAMSTR__V4*/ meltfptr[3], ".melt"));; /*^compute*/ - /*_#NOT__L9*/ - meltfnum[1] = + /*_#NOT__L9*/ meltfnum[1] = (!(/*_#STRING_SUFFIXED__L8*/ meltfnum[0]));; MELT_LOCATION("warmelt-outobj.melt:6956:/ cond"); - /*cond*/ - if (/*_#NOT__L9*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NOT__L9*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V20*/ meltfptr[4] = (/*nil*/NULL);; @@ -40346,34 +36610,27 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6956; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V21*/ - meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG 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[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V20*/ - meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];; + /*_._IFELSE___V20*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6956:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20] = 0 ; } ; } ; - /*_.IFCPP___V19*/ - meltfptr[17] = /*_._IFELSE___V20*/ meltfptr[4];; + /*_.IFCPP___V19*/ meltfptr[17] = /*_._IFELSE___V20*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6956:/ clear"); - /*clear*/ /*_#STRING_SUFFIXED__L8*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#STRING_SUFFIXED__L8*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L9*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NOT__L9*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V20*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V20*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40391,16 +36648,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRING_SUFFIXED__L10*/ - meltfnum[0] = + /*_#STRING_SUFFIXED__L10*/ meltfnum[0] = /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.MODNAMSTR__V4*/ meltfptr[3], ".c"));; /*^compute*/ - /*_#NOT__L11*/ - meltfnum[1] = + /*_#NOT__L11*/ meltfnum[1] = (!(/*_#STRING_SUFFIXED__L10*/ meltfnum[0]));; MELT_LOCATION("warmelt-outobj.melt:6958:/ cond"); - /*cond*/ - if (/*_#NOT__L11*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NOT__L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V23*/ meltfptr[4] = (/*nil*/NULL);; @@ -40429,34 +36683,27 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6958; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V24*/ - meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V23*/ - meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; + /*_._IFELSE___V23*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6958:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = 0 ; } ; } ; - /*_.IFCPP___V22*/ - meltfptr[20] = /*_._IFELSE___V23*/ meltfptr[4];; + /*_.IFCPP___V22*/ meltfptr[20] = /*_._IFELSE___V23*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6958:/ clear"); - /*clear*/ /*_#STRING_SUFFIXED__L10*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#STRING_SUFFIXED__L10*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L11*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NOT__L11*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40474,16 +36721,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRING_SUFFIXED__L12*/ - meltfnum[0] = + /*_#STRING_SUFFIXED__L12*/ meltfnum[0] = /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.MODNAMSTR__V4*/ meltfptr[3], ".cc"));; /*^compute*/ - /*_#NOT__L13*/ - meltfnum[1] = + /*_#NOT__L13*/ meltfnum[1] = (!(/*_#STRING_SUFFIXED__L12*/ meltfnum[0]));; MELT_LOCATION("warmelt-outobj.melt:6960:/ cond"); - /*cond*/ - if (/*_#NOT__L13*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NOT__L13*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V26*/ meltfptr[4] = (/*nil*/NULL);; @@ -40512,34 +36756,27 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6960; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V27*/ - meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V26*/ - meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];; + /*_._IFELSE___V26*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6960:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26] = 0 ; } ; } ; - /*_.IFCPP___V25*/ - meltfptr[23] = /*_._IFELSE___V26*/ meltfptr[4];; + /*_.IFCPP___V25*/ meltfptr[23] = /*_._IFELSE___V26*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6960:/ clear"); - /*clear*/ /*_#STRING_SUFFIXED__L12*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#STRING_SUFFIXED__L12*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L13*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NOT__L13*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V26*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V26*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -40550,8 +36787,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:6962:/ quasiblock"); - /*_.MODNAKEDNAME__V28*/ - meltfptr[26] = + /*_.MODNAKEDNAME__V28*/ meltfptr[26] = (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[4])), melt_string_str((melt_ptr_t)(/*_.MODNAMSTR__V4*/ meltfptr[3]))));; MELT_LOCATION("warmelt-outobj.melt:6964:/ blockmultialloc"); @@ -40565,8 +36801,7 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x5*/ - /*_.TUPLREC___V30*/ - meltfptr[29] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x5; + /*_.TUPLREC___V30*/ meltfptr[29] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x5; meltletrec_1_ptr->rtup_0__TUPLREC__x5.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x5.nbval = 2; @@ -40586,16 +36821,13 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V30*/ meltfptr[29]); ; - /*_.TUPLE___V29*/ - meltfptr[4] = /*_.TUPLREC___V30*/ meltfptr[29];; + /*_.TUPLE___V29*/ meltfptr[4] = /*_.TUPLREC___V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6964:/ clear"); - /*clear*/ /*_.TUPLREC___V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.TUPLREC___V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.TUPLREC___V30*/ meltfptr[29] = 0 ; } /*end multiallocblock*/ ; @@ -40608,8 +36840,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.TUPLE___V29*/ meltfptr[4]; - /*_.MACROENV__V31*/ - meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.INIENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MACROENV__V31*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.INIENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:6965:/ blockmultialloc"); @@ -40623,8 +36854,7 @@ meltlab_endgetargs: meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x6*/ - /*_.TUPLREC___V33*/ - meltfptr[32] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x6; + /*_.TUPLREC___V33*/ meltfptr[32] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x6; meltletrec_2_ptr->rtup_0__TUPLREC__x6.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_2_ptr->rtup_0__TUPLREC__x6.nbval = 2; @@ -40644,16 +36874,13 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V33*/ meltfptr[32]); ; - /*_.TUPLE___V32*/ - meltfptr[31] = /*_.TUPLREC___V33*/ meltfptr[32];; + /*_.TUPLE___V32*/ meltfptr[31] = /*_.TUPLREC___V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6965:/ clear"); - /*clear*/ /*_.TUPLREC___V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.TUPLREC___V33*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.TUPLREC___V33*/ meltfptr[32] = 0 ; } /*end multiallocblock*/ ; @@ -40666,46 +36893,37 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.TUPLE___V32*/ meltfptr[31]; - /*_.BASENV__V34*/ - meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.INIENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.BASENV__V34*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.INIENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_MAPSTRING__V35*/ - meltfptr[34] = + /*_.MAKE_MAPSTRING__V35*/ meltfptr[34] = (meltgc_new_mapstrings( (meltobject_ptr_t) ((/*!DISCR_MAP_STRINGS*/ meltfrout->tabval[9])), (390)));; /*^compute*/ - /*_.MAKE_MAPSTRING__V36*/ - meltfptr[35] = + /*_.MAKE_MAPSTRING__V36*/ meltfptr[35] = (meltgc_new_mapstrings( (meltobject_ptr_t) ((/*!DISCR_MAP_STRINGS*/ meltfrout->tabval[9])), (140)));; /*^compute*/ - /*_.MAKE_INTEGERBOX__V37*/ - meltfptr[36] = + /*_.MAKE_INTEGERBOX__V37*/ meltfptr[36] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[10])), (0)));; /*^compute*/ - /*_.MAKE_LIST__V38*/ - meltfptr[37] = + /*_.MAKE_LIST__V38*/ meltfptr[37] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[11]))));; /*^compute*/ - /*_.MAKE_LIST__V39*/ - meltfptr[38] = + /*_.MAKE_LIST__V39*/ meltfptr[38] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[11]))));; /*^compute*/ - /*_.MAKE_LIST__V40*/ - meltfptr[39] = + /*_.MAKE_LIST__V40*/ meltfptr[39] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[11]))));; /*^compute*/ - /*_.MAKE_LIST__V41*/ - meltfptr[40] = + /*_.MAKE_LIST__V41*/ meltfptr[40] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[11]))));; MELT_LOCATION("warmelt-outobj.melt:6980:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V43*/ - meltfptr[42] = + /*newclosure*/ /*_.LAMBDA___V43*/ meltfptr[42] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ meltfrout->tabval[13])), (1)); ; /*^putclosedv*/ @@ -40714,23 +36932,18 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V43*/ meltfptr[42]))); ((meltclosure_ptr_t)/*_.LAMBDA___V43*/ meltfptr[42])->tabval[0] = (melt_ptr_t)(/*_.MODNAMSTR__V4*/ meltfptr[3]); ; - /*_.LAMBDA___V42*/ - meltfptr[41] = /*_.LAMBDA___V43*/ meltfptr[42];; + /*_.LAMBDA___V42*/ meltfptr[41] = /*_.LAMBDA___V43*/ meltfptr[42];; /*^compute*/ - /*_.MAKE_INTEGERBOX__V44*/ - meltfptr[43] = + /*_.MAKE_INTEGERBOX__V44*/ meltfptr[43] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[10])), (0)));; /*^compute*/ - /*_.MAKE_LIST__V45*/ - meltfptr[44] = + /*_.MAKE_LIST__V45*/ meltfptr[44] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[11]))));; /*^compute*/ - /*_.MAKE_MAPSTRING__V46*/ - meltfptr[45] = + /*_.MAKE_MAPSTRING__V46*/ meltfptr[45] = (meltgc_new_mapstrings( (meltobject_ptr_t) ((/*!DISCR_MAP_STRINGS*/ meltfrout->tabval[9])), (31)));; /*^compute*/ - /*_.MAKE_LIST__V47*/ - meltfptr[46] = + /*_.MAKE_LIST__V47*/ meltfptr[46] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[11]))));; MELT_LOCATION("warmelt-outobj.melt:6966:/ quasiblock"); @@ -40740,8 +36953,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ meltfrout->tabval[8])), (21), "CLASS_MODULE_CONTEXT"); - /*_.INST__V49*/ - meltfptr[48] = + /*_.INST__V49*/ meltfptr[48] = newobj; }; ; @@ -40834,8 +37046,7 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V49*/ meltfptr[48], "newly made instance"); ; - /*_.MODCTX__V48*/ - meltfptr[47] = /*_.INST__V49*/ meltfptr[48];; + /*_.MODCTX__V48*/ meltfptr[47] = /*_.INST__V49*/ meltfptr[48];; MELT_CHECK_SIGNAL(); ; @@ -40865,8 +37076,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L14*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -40875,8 +37085,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6989:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L14*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -40892,8 +37101,7 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ - /*_.DISCRIM__V52*/ - meltfptr[51] = + /*_.DISCRIM__V52*/ meltfptr[51] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.MODCTX__V48*/ meltfptr[47]))));; MELT_CHECK_SIGNAL(); @@ -40917,23 +37125,18 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n of class "; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DISCRIM__V52*/ meltfptr[51]; - /*_.MELT_DEBUG_FUN__V53*/ - meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V51*/ - meltfptr[50] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52];; + /*_._IF___V51*/ meltfptr[50] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6989:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.DISCRIM__V52*/ - meltfptr[51] = 0 ; + /*clear*/ /*_.DISCRIM__V52*/ meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V53*/ - meltfptr[52] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52] = 0 ; } ; } @@ -40946,8 +37149,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6989:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -40956,11 +37158,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V51*/ - meltfptr[50] = 0 ; + /*clear*/ /*_._IF___V51*/ meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41000,8 +37200,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L16*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -41010,8 +37209,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6991:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L16*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41052,20 +37250,16 @@ meltlab_endgetargs: argtab[7].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.BASENV__V34*/ meltfptr[32]; - /*_.MELT_DEBUG_FUN__V55*/ - meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V55*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V54*/ - meltfptr[51] = /*_.MELT_DEBUG_FUN__V55*/ meltfptr[52];; + /*_._IF___V54*/ meltfptr[51] = /*_.MELT_DEBUG_FUN__V55*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6991:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V55*/ - meltfptr[52] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V55*/ meltfptr[52] = 0 ; } ; } @@ -41078,8 +37272,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6991:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -41088,11 +37281,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V54*/ - meltfptr[51] = 0 ; + /*clear*/ /*_._IF___V54*/ meltfptr[51] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41132,8 +37323,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L18*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -41142,8 +37332,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6992:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L18*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41182,20 +37371,16 @@ meltlab_endgetargs: argtab[6].meltbp_cstring = "\n.. inienv="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.INIENV__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V57*/ - meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V57*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V56*/ - meltfptr[50] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[52];; + /*_._IF___V56*/ meltfptr[50] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6992:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ - meltfptr[52] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ meltfptr[52] = 0 ; } ; } @@ -41208,8 +37393,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6992:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -41218,11 +37402,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V56*/ - meltfptr[50] = 0 ; + /*clear*/ /*_._IF___V56*/ meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41252,12 +37434,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L20*/ - meltfnum[1] = + /*_#IS_A__L20*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V50*/ meltfptr[49]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[15])));; MELT_LOCATION("warmelt-outobj.melt:6993:/ cond"); - /*cond*/ - if (/*_#IS_A__L20*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L20*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V59*/ meltfptr[52] = (/*nil*/NULL);; @@ -41286,31 +37466,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 6993; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V50*/ meltfptr[49]; - /*_.MELT_ASSERT_FAILURE_FUN__V60*/ - meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V60*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V59*/ - meltfptr[52] = /*_.MELT_ASSERT_FAILURE_FUN__V60*/ meltfptr[50];; + /*_._IFELSE___V59*/ meltfptr[52] = /*_.MELT_ASSERT_FAILURE_FUN__V60*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6993:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V60*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V60*/ meltfptr[50] = 0 ; } ; } ; - /*_.IFCPP___V58*/ - meltfptr[51] = /*_._IFELSE___V59*/ meltfptr[52];; + /*_.IFCPP___V58*/ meltfptr[51] = /*_._IFELSE___V59*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6993:/ clear"); - /*clear*/ /*_#IS_A__L20*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L20*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V59*/ - meltfptr[52] = 0 ; + /*clear*/ /*_._IFELSE___V59*/ meltfptr[52] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41335,12 +37509,10 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!MACROEXPAND_1*/ meltfrout->tabval[17]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V48*/ meltfptr[47]; - /*_.XLIST__V61*/ - meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_TOPLEVEL_LIST*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.LSEXP__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.XLIST__V61*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_TOPLEVEL_LIST*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.LSEXP__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#LENXLIST__L21*/ - meltfnum[0] = + /*_#LENXLIST__L21*/ meltfnum[0] = (melt_list_length((melt_ptr_t)(/*_.XLIST__V61*/ meltfptr[50])));; #if MELT_HAVE_DEBUG @@ -41362,8 +37534,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L22*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L22*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -41372,8 +37543,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:6999:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L22*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L22*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41416,20 +37586,16 @@ meltlab_endgetargs: argtab[8].meltbp_cstring = "\n.. basenv="; /*^apply.arg*/ argtab[9].meltbp_aptr = (melt_ptr_t*) &/*_.BASENV__V34*/ meltfptr[32]; - /*_.MELT_DEBUG_FUN__V63*/ - meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V62*/ - meltfptr[52] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];; + /*_._IF___V62*/ meltfptr[52] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6999:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L23*/ - meltfnum[22] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L23*/ meltfnum[22] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ - meltfptr[62] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = 0 ; } ; } @@ -41442,8 +37608,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:6999:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -41452,11 +37617,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L22*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L22*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V62*/ - meltfptr[52] = 0 ; + /*clear*/ /*_._IF___V62*/ meltfptr[52] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41496,8 +37659,7 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &(/*!COMPILE2OBJ_INITPROC*/ meltfrout->tabval[20]); - /*_.TRANSLATE_MACROEXPANDED_LIST__V64*/ - meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_MACROEXPANDED_LIST*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.XLIST__V61*/ meltfptr[50]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.TRANSLATE_MACROEXPANDED_LIST__V64*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_MACROEXPANDED_LIST*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.XLIST__V61*/ meltfptr[50]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -41520,8 +37682,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L24*/ - meltfnum[22] = + /*_#MELT_NEED_DBG__L24*/ meltfnum[22] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -41530,8 +37691,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:7004:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L24*/ meltfnum[22]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L24*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -41566,20 +37726,16 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[18]); /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V48*/ meltfptr[47]; - /*_.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 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 MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V65*/ - meltfptr[52] = /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65];; + /*_._IF___V65*/ meltfptr[52] = /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7004:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L25*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L25*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V66*/ - meltfptr[65] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65] = 0 ; } ; } @@ -41592,8 +37748,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:7004:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -41602,11 +37757,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L24*/ - meltfnum[22] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L24*/ meltfnum[22] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V65*/ - meltfptr[52] = 0 ; + /*clear*/ /*_._IF___V65*/ meltfptr[52] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -41628,101 +37781,71 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-outobj.melt:6995:/ clear"); - /*clear*/ /*_.XLIST__V61*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.XLIST__V61*/ meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_#LENXLIST__L21*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#LENXLIST__L21*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.TRANSLATE_MACROEXPANDED_LIST__V64*/ - meltfptr[62] = 0 ; + /*clear*/ /*_.TRANSLATE_MACROEXPANDED_LIST__V64*/ meltfptr[62] = 0 ; MELT_LOCATION("warmelt-outobj.melt:6962:/ clear"); - /*clear*/ /*_.MODNAKEDNAME__V28*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.MODNAKEDNAME__V28*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V29*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.TUPLE___V29*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MACROENV__V31*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.MACROENV__V31*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.TUPLE___V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.BASENV__V34*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.BASENV__V34*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_MAPSTRING__V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.MAKE_MAPSTRING__V35*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_MAPSTRING__V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.MAKE_MAPSTRING__V36*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V37*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.MAKE_LIST__V38*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V39*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.MAKE_LIST__V39*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.MAKE_LIST__V40*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V41*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.MAKE_LIST__V41*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V42*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.LAMBDA___V42*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V44*/ - meltfptr[43] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V44*/ meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V45*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.MAKE_LIST__V45*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_MAPSTRING__V46*/ - meltfptr[45] = 0 ; + /*clear*/ /*_.MAKE_MAPSTRING__V46*/ meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V47*/ - meltfptr[46] = 0 ; + /*clear*/ /*_.MAKE_LIST__V47*/ meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.MODCTX__V48*/ - meltfptr[47] = 0 ; + /*clear*/ /*_.MODCTX__V48*/ meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.NCX__V50*/ - meltfptr[49] = 0 ; + /*clear*/ /*_.NCX__V50*/ meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V58*/ - meltfptr[51] = 0 ; + /*clear*/ /*_.IFCPP___V58*/ meltfptr[51] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:6946:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V10*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V19*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.IFCPP___V19*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V22*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.IFCPP___V22*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V25*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.IFCPP___V25*/ meltfptr[23] = 0 ; } ; @@ -41803,8 +37926,7 @@ meltrout_132_WARMELTmiOUTOBJ_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_132_WARMELTmiOUTOBJ_LAMBDA_cl7 fromline 1719 */ - /* classy proc frame meltrout_132_WARMELTmiOUTOBJ_LAMBDA_cl7 */ - MeltFrame_meltrout_132_WARMELTmiOUTOBJ_LAMBDA_cl7 + /* classy proc frame meltrout_132_WARMELTmiOUTOBJ_LAMBDA_cl7 */ MeltFrame_meltrout_132_WARMELTmiOUTOBJ_LAMBDA_cl7 meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_132_WARMELTmiOUTOBJ_LAMBDA_cl7 fromline 1748*/ #if ENABLE_CHECKING @@ -41817,8 +37939,7 @@ meltrout_132_WARMELTmiOUTOBJ_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl7", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -41828,8 +37949,7 @@ meltrout_132_WARMELTmiOUTOBJ_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:6980:/ getarg"); - /*_.V__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.V__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -41849,15 +37969,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.V__V2*/ meltfptr[1]; - /*_.FATAL_COMPILE_ERROR__V3*/ - meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!FATAL_COMPILE_ERROR*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~MODNAMSTR*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FATAL_COMPILE_ERROR__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!FATAL_COMPILE_ERROR*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~MODNAMSTR*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^quasiblock*/ - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.FATAL_COMPILE_ERROR__V3*/ meltfptr[2];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.FATAL_COMPILE_ERROR__V3*/ meltfptr[2];; { MELT_LOCATION("warmelt-outobj.melt:6980:/ locexp"); @@ -41872,13 +37990,11 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.FATAL_COMPILE_ERROR__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.FATAL_COMPILE_ERROR__V3*/ meltfptr[2] = 0 ; } ; @@ -41959,8 +38075,7 @@ meltrout_133_WARMELTmiOUTOBJ_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR(meltclosure_ptr_ /* end of frame for routine meltrout_133_WARMELTmiOUTOBJ_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR fromline 1719 */ - /* classy proc frame meltrout_133_WARMELTmiOUTOBJ_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR */ - MeltFrame_meltrout_133_WARMELTmiOUTOBJ_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR + /* classy proc frame meltrout_133_WARMELTmiOUTOBJ_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR */ MeltFrame_meltrout_133_WARMELTmiOUTOBJ_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_133_WARMELTmiOUTOBJ_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR fromline 1748*/ #if ENABLE_CHECKING @@ -41973,8 +38088,7 @@ meltrout_133_WARMELTmiOUTOBJ_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR(meltclosure_ptr_ #define meltframe meltfram__ melt_trace_start("COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -41984,14 +38098,12 @@ meltrout_133_WARMELTmiOUTOBJ_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR(meltclosure_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:7018:/ getarg"); - /*_.LSEXP__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.LSEXP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODNAMSTR__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODNAMSTR__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODNAMSTR__V3*/ meltfptr[2])) != NULL); ; @@ -42023,8 +38135,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)) @@ -42033,8 +38144,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:7019:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42073,20 +38183,16 @@ meltlab_endgetargs: argtab[6].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.LSEXP__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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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:7019:/ 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 ; } ; } @@ -42099,8 +38205,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:7019:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -42109,11 +38214,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*/ @@ -42154,12 +38257,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L3*/ - meltfnum[1] = + /*_#IS_LIST__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.LSEXP__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-outobj.melt:7021:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -42188,31 +38289,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7021; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LSEXP__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:7021:/ 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:7021:/ clear"); - /*clear*/ /*_#IS_LIST__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42230,12 +38325,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L4*/ - meltfnum[0] = + /*_#IS_STRING__L4*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MODNAMSTR__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-outobj.melt:7022:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L4*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -42264,31 +38357,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7022; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__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:7022:/ 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:7022:/ clear"); - /*clear*/ /*_#IS_STRING__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_STRING__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42306,17 +38393,14 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRING_DYNLOADED_SUFFIXED__L5*/ - meltfnum[1] = + /*_#STRING_DYNLOADED_SUFFIXED__L5*/ meltfnum[1] = /*string_dynloaded_suffixed:*/ (melt_string_is_ending ((melt_ptr_t)/*_.MODNAMSTR__V3*/ meltfptr[2], MELT_DYNLOADED_SUFFIX));; /*^compute*/ - /*_#NOT__L6*/ - meltfnum[0] = + /*_#NOT__L6*/ meltfnum[0] = (!(/*_#STRING_DYNLOADED_SUFFIXED__L5*/ meltfnum[1]));; MELT_LOCATION("warmelt-outobj.melt:7023:/ cond"); - /*cond*/ - if (/*_#NOT__L6*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#NOT__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[3] = (/*nil*/NULL);; @@ -42346,34 +38430,27 @@ UFFIX."; argtab[2].meltbp_long = 7023; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V14*/ - meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_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___V13*/ - meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; + /*_._IFELSE___V13*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7023:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = 0 ; } ; } ; - /*_.IFCPP___V12*/ - meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[3];; + /*_.IFCPP___V12*/ meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7023:/ clear"); - /*clear*/ /*_#STRING_DYNLOADED_SUFFIXED__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#STRING_DYNLOADED_SUFFIXED__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L6*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#NOT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V13*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42391,16 +38468,13 @@ UFFIX."; MELT_CHECK_SIGNAL(); ; - /*_#STRING_SUFFIXED__L7*/ - meltfnum[1] = + /*_#STRING_SUFFIXED__L7*/ meltfnum[1] = /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.MODNAMSTR__V3*/ meltfptr[2], ".melt"));; /*^compute*/ - /*_#NOT__L8*/ - meltfnum[0] = + /*_#NOT__L8*/ meltfnum[0] = (!(/*_#STRING_SUFFIXED__L7*/ meltfnum[1]));; MELT_LOCATION("warmelt-outobj.melt:7025:/ cond"); - /*cond*/ - if (/*_#NOT__L8*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#NOT__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[3] = (/*nil*/NULL);; @@ -42429,34 +38503,27 @@ UFFIX."; argtab[2].meltbp_long = 7025; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V3*/ meltfptr[2]; - /*_.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[3] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; + /*_._IFELSE___V16*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7025:/ 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[3];; + /*_.IFCPP___V15*/ meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7025:/ clear"); - /*clear*/ /*_#STRING_SUFFIXED__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#STRING_SUFFIXED__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L8*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#NOT__L8*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42474,16 +38541,13 @@ UFFIX."; MELT_CHECK_SIGNAL(); ; - /*_#STRING_SUFFIXED__L9*/ - meltfnum[1] = + /*_#STRING_SUFFIXED__L9*/ meltfnum[1] = /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.MODNAMSTR__V3*/ meltfptr[2], ".c"));; /*^compute*/ - /*_#NOT__L10*/ - meltfnum[0] = + /*_#NOT__L10*/ meltfnum[0] = (!(/*_#STRING_SUFFIXED__L9*/ meltfnum[1]));; MELT_LOCATION("warmelt-outobj.melt:7027:/ cond"); - /*cond*/ - if (/*_#NOT__L10*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#NOT__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[3] = (/*nil*/NULL);; @@ -42512,34 +38576,27 @@ UFFIX."; argtab[2].meltbp_long = 7027; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V3*/ meltfptr[2]; - /*_.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[3] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; + /*_._IFELSE___V19*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7027:/ 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[3];; + /*_.IFCPP___V18*/ meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7027:/ clear"); - /*clear*/ /*_#STRING_SUFFIXED__L9*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#STRING_SUFFIXED__L9*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L10*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#NOT__L10*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V19*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V19*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42557,16 +38614,13 @@ UFFIX."; MELT_CHECK_SIGNAL(); ; - /*_#STRING_SUFFIXED__L11*/ - meltfnum[1] = + /*_#STRING_SUFFIXED__L11*/ meltfnum[1] = /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.MODNAMSTR__V3*/ meltfptr[2], ".cc"));; /*^compute*/ - /*_#NOT__L12*/ - meltfnum[0] = + /*_#NOT__L12*/ meltfnum[0] = (!(/*_#STRING_SUFFIXED__L11*/ meltfnum[1]));; MELT_LOCATION("warmelt-outobj.melt:7029:/ cond"); - /*cond*/ - if (/*_#NOT__L12*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#NOT__L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V22*/ meltfptr[3] = (/*nil*/NULL);; @@ -42595,34 +38649,27 @@ UFFIX."; argtab[2].meltbp_long = 7029; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V23*/ - meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V22*/ - meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; + /*_._IFELSE___V22*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7029:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = 0 ; } ; } ; - /*_.IFCPP___V21*/ - meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[3];; + /*_.IFCPP___V21*/ meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7029:/ clear"); - /*clear*/ /*_#STRING_SUFFIXED__L11*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#STRING_SUFFIXED__L11*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L12*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#NOT__L12*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V22*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V22*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -42645,8 +38692,7 @@ UFFIX."; MELT_LOCATION("warmelt-outobj.melt:7039:/ quasiblock"); - /*_.MODNAKEDNAME__V25*/ - meltfptr[3] = + /*_.MODNAKEDNAME__V25*/ meltfptr[3] = (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.MODNAMSTR__V3*/ meltfptr[2]))));; MELT_LOCATION("warmelt-outobj.melt:7041:/ blockmultialloc"); @@ -42660,8 +38706,7 @@ UFFIX."; meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x7*/ - /*_.TUPLREC___V27*/ - meltfptr[26] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x7; + /*_.TUPLREC___V27*/ meltfptr[26] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x7; meltletrec_1_ptr->rtup_0__TUPLREC__x7.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x7.nbval = 2; @@ -42681,16 +38726,13 @@ UFFIX."; /*^touch*/ meltgc_touch(/*_.TUPLREC___V27*/ meltfptr[26]); ; - /*_.TUPLE___V26*/ - meltfptr[25] = /*_.TUPLREC___V27*/ meltfptr[26];; + /*_.TUPLE___V26*/ meltfptr[25] = /*_.TUPLREC___V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7041:/ clear"); - /*clear*/ /*_.TUPLREC___V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.TUPLREC___V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.TUPLREC___V27*/ meltfptr[26] = 0 ; } /*end multiallocblock*/ ; @@ -42703,46 +38745,37 @@ UFFIX."; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.TUPLE___V26*/ meltfptr[25]; - /*_.MACROENV__V28*/ - meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[4])), (melt_ptr_t)((/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MACROENV__V28*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[4])), (melt_ptr_t)((/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_MAPSTRING__V29*/ - meltfptr[28] = + /*_.MAKE_MAPSTRING__V29*/ meltfptr[28] = (meltgc_new_mapstrings( (meltobject_ptr_t) ((/*!DISCR_MAP_STRINGS*/ meltfrout->tabval[8])), (490)));; /*^compute*/ - /*_.MAKE_MAPSTRING__V30*/ - meltfptr[29] = + /*_.MAKE_MAPSTRING__V30*/ meltfptr[29] = (meltgc_new_mapstrings( (meltobject_ptr_t) ((/*!DISCR_MAP_STRINGS*/ meltfrout->tabval[8])), (240)));; /*^compute*/ - /*_.MAKE_INTEGERBOX__V31*/ - meltfptr[30] = + /*_.MAKE_INTEGERBOX__V31*/ meltfptr[30] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[9])), (0)));; /*^compute*/ - /*_.MAKE_LIST__V32*/ - meltfptr[31] = + /*_.MAKE_LIST__V32*/ meltfptr[31] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[10]))));; /*^compute*/ - /*_.MAKE_LIST__V33*/ - meltfptr[32] = + /*_.MAKE_LIST__V33*/ meltfptr[32] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[10]))));; /*^compute*/ - /*_.MAKE_LIST__V34*/ - meltfptr[33] = + /*_.MAKE_LIST__V34*/ meltfptr[33] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[10]))));; /*^compute*/ - /*_.MAKE_LIST__V35*/ - meltfptr[34] = + /*_.MAKE_LIST__V35*/ meltfptr[34] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[10]))));; MELT_LOCATION("warmelt-outobj.melt:7056:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V37*/ - meltfptr[36] = + /*newclosure*/ /*_.LAMBDA___V37*/ meltfptr[36] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ meltfrout->tabval[12])), (1)); ; /*^putclosedv*/ @@ -42751,19 +38784,15 @@ UFFIX."; melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ meltfptr[36]))); ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ meltfptr[36])->tabval[0] = (melt_ptr_t)(/*_.MODNAMSTR__V3*/ meltfptr[2]); ; - /*_.LAMBDA___V36*/ - meltfptr[35] = /*_.LAMBDA___V37*/ meltfptr[36];; + /*_.LAMBDA___V36*/ meltfptr[35] = /*_.LAMBDA___V37*/ meltfptr[36];; /*^compute*/ - /*_.MAKE_INTEGERBOX__V38*/ - meltfptr[37] = + /*_.MAKE_INTEGERBOX__V38*/ meltfptr[37] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[9])), (0)));; /*^compute*/ - /*_.MAKE_LIST__V39*/ - meltfptr[38] = + /*_.MAKE_LIST__V39*/ meltfptr[38] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[10]))));; /*^compute*/ - /*_.MAKE_MAPSTRING__V40*/ - meltfptr[39] = + /*_.MAKE_MAPSTRING__V40*/ meltfptr[39] = (meltgc_new_mapstrings( (meltobject_ptr_t) ((/*!DISCR_MAP_STRINGS*/ meltfrout->tabval[8])), (31)));; MELT_LOCATION("warmelt-outobj.melt:7042:/ quasiblock"); @@ -42773,8 +38802,7 @@ UFFIX."; { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_FIRST_MODULE_CONTEXT*/ meltfrout->tabval[7])), (21), "CLASS_FIRST_MODULE_CONTEXT"); - /*_.INST__V42*/ - meltfptr[41] = + /*_.INST__V42*/ meltfptr[41] = newobj; }; ; @@ -42867,8 +38895,7 @@ UFFIX."; melt_dbgtrace_written_object (/*_.INST__V42*/ meltfptr[41], "newly made instance"); ; - /*_.MODCTX__V41*/ - meltfptr[40] = /*_.INST__V42*/ meltfptr[41];; + /*_.MODCTX__V41*/ meltfptr[40] = /*_.INST__V42*/ meltfptr[41];; MELT_CHECK_SIGNAL(); ; @@ -42898,8 +38925,7 @@ UFFIX."; MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L13*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -42908,8 +38934,7 @@ UFFIX."; #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:7065:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L13*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -42950,20 +38975,16 @@ UFFIX."; argtab[7].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V43*/ meltfptr[42]; - /*_.MELT_DEBUG_FUN__V45*/ - meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V44*/ - meltfptr[43] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; + /*_._IF___V44*/ meltfptr[43] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7065:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = 0 ; } ; } @@ -42976,8 +38997,7 @@ UFFIX."; { MELT_LOCATION("warmelt-outobj.melt:7065:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -42986,11 +39006,9 @@ UFFIX."; /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V44*/ - meltfptr[43] = 0 ; + /*clear*/ /*_._IF___V44*/ meltfptr[43] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -43020,12 +39038,10 @@ UFFIX."; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L15*/ - meltfnum[0] = + /*_#IS_A__L15*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)((/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[5])), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[14])));; MELT_LOCATION("warmelt-outobj.melt:7066:/ cond"); - /*cond*/ - if (/*_#IS_A__L15*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_A__L15*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V47*/ meltfptr[43] = (/*nil*/NULL);; @@ -43054,31 +39070,25 @@ UFFIX."; argtab[2].meltbp_long = 7066; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[5]); - /*_.MELT_ASSERT_FAILURE_FUN__V48*/ - meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V47*/ - meltfptr[43] = /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[47];; + /*_._IFELSE___V47*/ meltfptr[43] = /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7066:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V48*/ - meltfptr[47] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[47] = 0 ; } ; } ; - /*_.IFCPP___V46*/ - meltfptr[44] = /*_._IFELSE___V47*/ meltfptr[43];; + /*_.IFCPP___V46*/ meltfptr[44] = /*_._IFELSE___V47*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7066:/ clear"); - /*clear*/ /*_#IS_A__L15*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L15*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V47*/ - meltfptr[43] = 0 ; + /*clear*/ /*_._IFELSE___V47*/ meltfptr[43] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -43096,12 +39106,10 @@ UFFIX."; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L16*/ - meltfnum[1] = + /*_#IS_A__L16*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V43*/ meltfptr[42]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[15])));; MELT_LOCATION("warmelt-outobj.melt:7068:/ cond"); - /*cond*/ - if (/*_#IS_A__L16*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L16*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V50*/ meltfptr[43] = (/*nil*/NULL);; @@ -43130,31 +39138,25 @@ UFFIX."; argtab[2].meltbp_long = 7068; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V43*/ meltfptr[42]; - /*_.MELT_ASSERT_FAILURE_FUN__V51*/ - meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V50*/ - meltfptr[43] = /*_.MELT_ASSERT_FAILURE_FUN__V51*/ meltfptr[50];; + /*_._IFELSE___V50*/ meltfptr[43] = /*_.MELT_ASSERT_FAILURE_FUN__V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7068:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V51*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V51*/ meltfptr[50] = 0 ; } ; } ; - /*_.IFCPP___V49*/ - meltfptr[47] = /*_._IFELSE___V50*/ meltfptr[43];; + /*_.IFCPP___V49*/ meltfptr[47] = /*_._IFELSE___V50*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7068:/ clear"); - /*clear*/ /*_#IS_A__L16*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L16*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V50*/ - meltfptr[43] = 0 ; + /*clear*/ /*_._IFELSE___V50*/ meltfptr[43] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -43179,12 +39181,10 @@ UFFIX."; argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!MACROEXPAND_1*/ meltfrout->tabval[17]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V41*/ meltfptr[40]; - /*_.XLIST__V53*/ - meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_TOPLEVEL_LIST*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.LSEXP__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.XLIST__V53*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_TOPLEVEL_LIST*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.LSEXP__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_#LENXLIST__L17*/ - meltfnum[0] = + /*_#LENXLIST__L17*/ meltfnum[0] = (melt_list_length((melt_ptr_t)(/*_.XLIST__V53*/ meltfptr[43])));; #if MELT_HAVE_DEBUG @@ -43206,8 +39206,7 @@ UFFIX."; MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L18*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -43216,8 +39215,7 @@ UFFIX."; #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:7072:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L18*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43253,20 +39251,16 @@ UFFIX."; argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V41*/ meltfptr[40]; - /*_.MELT_DEBUG_FUN__V55*/ - meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V54*/ - meltfptr[53] = /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54];; + /*_._IF___V54*/ meltfptr[53] = /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7072:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ - meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V55*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = 0 ; } ; } @@ -43279,8 +39273,7 @@ UFFIX."; { MELT_LOCATION("warmelt-outobj.melt:7072:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -43289,11 +39282,9 @@ UFFIX."; /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V54*/ - meltfptr[53] = 0 ; + /*clear*/ /*_._IF___V54*/ meltfptr[53] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -43327,8 +39318,7 @@ UFFIX."; argtab[1].meltbp_long = /*_#LENXLIST__L17*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V3*/ meltfptr[2]; - /*_.INFORM_AT__V56*/ - meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!INFORM_AT*/ meltfrout->tabval[18])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INFORM_AT__V56*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!INFORM_AT*/ meltfrout->tabval[18])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -43351,93 +39341,66 @@ UFFIX."; argtab[4].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &(/*!COMPILE2OBJ_INITPROC*/ meltfrout->tabval[20]); - /*_.TRANSLATE_MACROEXPANDED_LIST__V57*/ - meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_MACROEXPANDED_LIST*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.XLIST__V53*/ meltfptr[43]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.TRANSLATE_MACROEXPANDED_LIST__V57*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_MACROEXPANDED_LIST*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.XLIST__V53*/ meltfptr[43]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V52*/ - meltfptr[50] = /*_.TRANSLATE_MACROEXPANDED_LIST__V57*/ meltfptr[53];; + /*_.LET___V52*/ meltfptr[50] = /*_.TRANSLATE_MACROEXPANDED_LIST__V57*/ meltfptr[53];; MELT_LOCATION("warmelt-outobj.melt:7069:/ clear"); - /*clear*/ /*_.XLIST__V53*/ - meltfptr[43] = 0 ; + /*clear*/ /*_.XLIST__V53*/ meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_#LENXLIST__L17*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#LENXLIST__L17*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.INFORM_AT__V56*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.INFORM_AT__V56*/ meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.TRANSLATE_MACROEXPANDED_LIST__V57*/ - meltfptr[53] = 0 ; - /*_.LET___V24*/ - meltfptr[22] = /*_.LET___V52*/ meltfptr[50];; + /*clear*/ /*_.TRANSLATE_MACROEXPANDED_LIST__V57*/ meltfptr[53] = 0 ; + /*_.LET___V24*/ meltfptr[22] = /*_.LET___V52*/ meltfptr[50];; MELT_LOCATION("warmelt-outobj.melt:7039:/ clear"); - /*clear*/ /*_.MODNAKEDNAME__V25*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.MODNAKEDNAME__V25*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.TUPLE___V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.MACROENV__V28*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.MACROENV__V28*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_MAPSTRING__V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.MAKE_MAPSTRING__V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_MAPSTRING__V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.MAKE_MAPSTRING__V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.MAKE_LIST__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.MAKE_LIST__V33*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.MAKE_LIST__V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.MAKE_LIST__V35*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.LAMBDA___V36*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V38*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V39*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.MAKE_LIST__V39*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_MAPSTRING__V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.MAKE_MAPSTRING__V40*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.MODCTX__V41*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.MODCTX__V41*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.NCX__V43*/ - meltfptr[42] = 0 ; + /*clear*/ /*_.NCX__V43*/ meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V46*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.IFCPP___V46*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V49*/ - meltfptr[47] = 0 ; + /*clear*/ /*_.IFCPP___V49*/ meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V52*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.LET___V52*/ meltfptr[50] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:7018:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V24*/ meltfptr[22];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V24*/ meltfptr[22];; { MELT_LOCATION("warmelt-outobj.melt:7018:/ locexp"); @@ -43452,31 +39415,23 @@ UFFIX."; ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V12*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V18*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.IFCPP___V18*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V21*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.IFCPP___V21*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V24*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.LET___V24*/ meltfptr[22] = 0 ; } ; @@ -43557,8 +39512,7 @@ meltrout_134_WARMELTmiOUTOBJ_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_134_WARMELTmiOUTOBJ_LAMBDA_cl8 fromline 1719 */ - /* classy proc frame meltrout_134_WARMELTmiOUTOBJ_LAMBDA_cl8 */ - MeltFrame_meltrout_134_WARMELTmiOUTOBJ_LAMBDA_cl8 + /* classy proc frame meltrout_134_WARMELTmiOUTOBJ_LAMBDA_cl8 */ MeltFrame_meltrout_134_WARMELTmiOUTOBJ_LAMBDA_cl8 meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_134_WARMELTmiOUTOBJ_LAMBDA_cl8 fromline 1748*/ #if ENABLE_CHECKING @@ -43571,8 +39525,7 @@ meltrout_134_WARMELTmiOUTOBJ_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl8", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -43582,8 +39535,7 @@ meltrout_134_WARMELTmiOUTOBJ_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:7056:/ getarg"); - /*_.V__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.V__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -43603,15 +39555,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.V__V2*/ meltfptr[1]; - /*_.FATAL_COMPILE_ERROR__V3*/ - meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!FATAL_COMPILE_ERROR*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~MODNAMSTR*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FATAL_COMPILE_ERROR__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!FATAL_COMPILE_ERROR*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~MODNAMSTR*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^quasiblock*/ - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.FATAL_COMPILE_ERROR__V3*/ meltfptr[2];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.FATAL_COMPILE_ERROR__V3*/ meltfptr[2];; { MELT_LOCATION("warmelt-outobj.melt:7056:/ locexp"); @@ -43626,13 +39576,11 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.FATAL_COMPILE_ERROR__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.FATAL_COMPILE_ERROR__V3*/ meltfptr[2] = 0 ; } ; @@ -43713,8 +39661,7 @@ meltrout_135_WARMELTmiOUTOBJ_AUTOBOX_NORMAL_RETURN(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_135_WARMELTmiOUTOBJ_AUTOBOX_NORMAL_RETURN fromline 1719 */ - /* classy proc frame meltrout_135_WARMELTmiOUTOBJ_AUTOBOX_NORMAL_RETURN */ - MeltFrame_meltrout_135_WARMELTmiOUTOBJ_AUTOBOX_NORMAL_RETURN + /* classy proc frame meltrout_135_WARMELTmiOUTOBJ_AUTOBOX_NORMAL_RETURN */ MeltFrame_meltrout_135_WARMELTmiOUTOBJ_AUTOBOX_NORMAL_RETURN meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_135_WARMELTmiOUTOBJ_AUTOBOX_NORMAL_RETURN fromline 1748*/ #if ENABLE_CHECKING @@ -43727,8 +39674,7 @@ meltrout_135_WARMELTmiOUTOBJ_AUTOBOX_NORMAL_RETURN(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("AUTOBOX_NORMAL_RETURN", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -43738,22 +39684,19 @@ meltrout_135_WARMELTmiOUTOBJ_AUTOBOX_NORMAL_RETURN(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:7092:/ getarg"); - /*_.NEXP__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NEXP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.CTYP__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.CTYP__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.CTYP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.NCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); ; @@ -43785,8 +39728,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)) @@ -43795,8 +39737,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:7093:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -43839,20 +39780,16 @@ meltlab_endgetargs: argtab[8].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[9].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR 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:7093:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } @@ -43865,8 +39802,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:7093:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -43875,11 +39811,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -43920,12 +39854,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-outobj.melt:7095:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -43954,31 +39886,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 7095; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYP__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ - meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___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:7095:/ 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:7095:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ - meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44009,8 +39935,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[6])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V13*/ - meltfptr[12] = + /*_.INST__V13*/ meltfptr[12] = newobj; }; ; @@ -44038,8 +39963,7 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V13*/ meltfptr[12], "newly made instance"); ; - /*_.CBIND__V12*/ - meltfptr[11] = /*_.INST__V13*/ meltfptr[12];; + /*_.CBIND__V12*/ meltfptr[11] = /*_.INST__V13*/ meltfptr[12];; MELT_CHECK_SIGNAL(); ; @@ -44051,8 +39975,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[8])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V15*/ - meltfptr[14] = + /*_.INST__V15*/ meltfptr[14] = newobj; }; ; @@ -44080,8 +40003,7 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V15*/ meltfptr[14], "newly made instance"); ; - /*_.CLOCC__V14*/ - meltfptr[13] = /*_.INST__V15*/ meltfptr[14];; + /*_.CLOCC__V14*/ meltfptr[13] = /*_.INST__V15*/ meltfptr[14];; MELT_LOCATION("warmelt-outobj.melt:7108:/ blockmultialloc"); /*multiallocblock*/ { @@ -44094,13 +40016,11 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0__CBIND_x1*/ - /*_.CBIND__V17*/ - meltfptr[16] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CBIND_x1; + /*_.CBIND__V17*/ meltfptr[16] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CBIND_x1; meltletrec_1_ptr->rpair_0__CBIND_x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ - /*_.LIST___V18*/ - meltfptr[17] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; + /*_.LIST___V18*/ meltfptr[17] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; meltletrec_1_ptr->rlist_1__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); @@ -44122,22 +40042,17 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V18*/ meltfptr[17]); ; - /*_.NBINDS__V16*/ - meltfptr[15] = /*_.LIST___V18*/ meltfptr[17];; + /*_.NBINDS__V16*/ meltfptr[15] = /*_.LIST___V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7108:/ clear"); - /*clear*/ /*_.CBIND__V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.CBIND__V17*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.LIST___V18*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.CBIND__V17*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.LIST___V18*/ meltfptr[17] = 0 ; } /*end multiallocblock*/ ; @@ -44160,8 +40075,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L4*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -44170,8 +40084,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:7110:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44212,20 +40125,16 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. nbinds="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDS__V16*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V20*/ - meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V20*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V19*/ - meltfptr[16] = /*_.MELT_DEBUG_FUN__V20*/ meltfptr[17];; + /*_._IF___V19*/ meltfptr[16] = /*_.MELT_DEBUG_FUN__V20*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7110:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V20*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V20*/ meltfptr[17] = 0 ; } ; } @@ -44238,8 +40147,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:7110:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -44248,11 +40156,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V19*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IF___V19*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44275,12 +40181,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L6*/ - meltfnum[1] = + /*_#eqeq__L6*/ meltfnum[1] = ((/*_.CTYP__V3*/ meltfptr[2]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-outobj.melt:7113:/ cond"); - /*cond*/ - if (/*_#eqeq__L6*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#eqeq__L6*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44290,12 +40194,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L7*/ - meltfnum[0] = + /*_#IS_NOT_A__L7*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_RETURN*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-outobj.melt:7114:/ cond"); - /*cond*/ - if (/*_#IS_NOT_A__L7*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_NOT_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44316,8 +40218,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ meltfrout->tabval[9])), (3), "CLASS_NREP_RETURN"); - /*_.INST__V25*/ - meltfptr[24] = + /*_.INST__V25*/ meltfptr[24] = newobj; }; ; @@ -44330,14 +40231,12 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V25*/ meltfptr[24], "newly made instance"); ; - /*_.NRET__V24*/ - meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; + /*_.NRET__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:7119:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ meltfrout->tabval[10]))) ) /*then*/ @@ -44384,8 +40283,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)) @@ -44394,8 +40292,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:7120:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44436,20 +40333,16 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n cbind="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.CBIND__V12*/ meltfptr[11]; - /*_.MELT_DEBUG_FUN__V27*/ - meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V26*/ - meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; + /*_._IF___V26*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7120:/ 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 ; } ; } @@ -44462,8 +40355,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-outobj.melt:7120:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -44472,11 +40364,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*/ @@ -44502,8 +40392,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:7121:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.NRET__V24*/ meltfptr[23];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.NRET__V24*/ meltfptr[23];; MELT_LOCATION("warmelt-outobj.melt:7121:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -44511,24 +40400,18 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V23*/ - meltfptr[22] = /*_.RETURN___V28*/ meltfptr[26];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V23*/ meltfptr[22] = /*_.RETURN___V28*/ meltfptr[26];; MELT_LOCATION("warmelt-outobj.melt:7115:/ clear"); - /*clear*/ /*_.NRET__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.NRET__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V28*/ - meltfptr[26] = 0 ; - /*_._IFELSE___V22*/ - meltfptr[16] = /*_.LET___V23*/ meltfptr[22];; + /*clear*/ /*_.RETURN___V28*/ meltfptr[26] = 0 ; + /*_._IFELSE___V22*/ meltfptr[16] = /*_.LET___V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7114:/ clear"); - /*clear*/ /*_.LET___V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.LET___V23*/ meltfptr[22] = 0 ; } ; } @@ -44545,8 +40428,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-outobj.melt:7122:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.NEXP__V2*/ meltfptr[1];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.NEXP__V2*/ meltfptr[1];; MELT_LOCATION("warmelt-outobj.melt:7122:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -44554,29 +40436,23 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_._IFELSE___V22*/ - meltfptr[16] = /*_.RETURN___V29*/ meltfptr[25];; + /*finalret*/ goto meltlabend_rout ; + /*_._IFELSE___V22*/ meltfptr[16] = /*_.RETURN___V29*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7114:/ clear"); - /*clear*/ /*_.RETURN___V29*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.RETURN___V29*/ meltfptr[25] = 0 ; } ; } ; - /*_._IFELSE___V21*/ - meltfptr[17] = /*_._IFELSE___V22*/ meltfptr[16];; + /*_._IFELSE___V21*/ meltfptr[17] = /*_._IFELSE___V22*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7113:/ clear"); - /*clear*/ /*_#IS_NOT_A__L7*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_NOT_A__L7*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V22*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V22*/ meltfptr[16] = 0 ; } ; } @@ -44590,12 +40466,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L10*/ - meltfnum[8] = + /*_#eqeq__L10*/ meltfnum[8] = ((/*_.CTYP__V3*/ meltfptr[2]) == ((/*!CTYPE_LONG*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-outobj.melt:7124:/ cond"); - /*cond*/ - if (/*_#eqeq__L10*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#eqeq__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44625,8 +40499,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[6])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V34*/ - meltfptr[16] = + /*_.INST__V34*/ meltfptr[16] = newobj; }; ; @@ -44654,8 +40527,7 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V34*/ meltfptr[16], "newly made instance"); ; - /*_.LGBIND__V33*/ - meltfptr[25] = /*_.INST__V34*/ meltfptr[16];; + /*_.LGBIND__V33*/ meltfptr[25] = /*_.INST__V34*/ meltfptr[16];; MELT_CHECK_SIGNAL(); ; @@ -44667,8 +40539,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[8])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V36*/ - meltfptr[35] = + /*_.INST__V36*/ meltfptr[35] = newobj; }; ; @@ -44696,19 +40567,16 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V36*/ meltfptr[35], "newly made instance"); ; - /*_.LGLOCC__V35*/ - meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; + /*_.LGLOCC__V35*/ meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_.MAKE_STRINGCONST__V37*/ - meltfptr[36] = + /*_.MAKE_STRINGCONST__V37*/ meltfptr[36] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[14])), ( "/*autobox long*/ meltgc_new_int((meltobject_ptr_t)MELT_PREDEF(DISCR_CONSTANT_\ INTEGER), ")));; /*^compute*/ - /*_.MAKE_STRINGCONST__V38*/ - meltfptr[37] = + /*_.MAKE_STRINGCONST__V38*/ meltfptr[37] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[14])), ( ")")));; MELT_LOCATION("warmelt-outobj.melt:7142:/ blockmultialloc"); /*multiallocblock*/ @@ -44721,8 +40589,7 @@ INTEGER), ")));; meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x8*/ - /*_.TUPLREC___V40*/ - meltfptr[39] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x8; + /*_.TUPLREC___V40*/ meltfptr[39] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x8; meltletrec_2_ptr->rtup_0__TUPLREC__x8.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_2_ptr->rtup_0__TUPLREC__x8.nbval = 3; @@ -44748,16 +40615,13 @@ INTEGER), ")));; /*^touch*/ meltgc_touch(/*_.TUPLREC___V40*/ meltfptr[39]); ; - /*_.TUPLE___V39*/ - meltfptr[38] = /*_.TUPLREC___V40*/ meltfptr[39];; + /*_.TUPLE___V39*/ meltfptr[38] = /*_.TUPLREC___V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7142:/ clear"); - /*clear*/ /*_.TUPLREC___V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.TUPLREC___V40*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.TUPLREC___V40*/ meltfptr[39] = 0 ; } /*end multiallocblock*/ ; MELT_LOCATION("warmelt-outobj.melt:7138:/ quasiblock"); @@ -44768,8 +40632,7 @@ INTEGER), ")));; { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[13])), (4), "CLASS_NREP_CHUNK"); - /*_.INST__V42*/ - meltfptr[41] = + /*_.INST__V42*/ meltfptr[41] = newobj; }; ; @@ -44797,8 +40660,7 @@ INTEGER), ")));; melt_dbgtrace_written_object (/*_.INST__V42*/ meltfptr[41], "newly made instance"); ; - /*_.NCHK__V41*/ - meltfptr[39] = /*_.INST__V42*/ meltfptr[41];; + /*_.NCHK__V41*/ meltfptr[39] = /*_.INST__V42*/ meltfptr[41];; MELT_CHECK_SIGNAL(); ; @@ -44810,8 +40672,7 @@ INTEGER), ")));; { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ meltfrout->tabval[9])), (3), "CLASS_NREP_RETURN"); - /*_.INST__V44*/ - meltfptr[43] = + /*_.INST__V44*/ meltfptr[43] = newobj; }; ; @@ -44824,14 +40685,12 @@ INTEGER), ")));; melt_dbgtrace_written_object (/*_.INST__V44*/ meltfptr[43], "newly made instance"); ; - /*_.NRET__V43*/ - meltfptr[42] = /*_.INST__V44*/ meltfptr[43];; + /*_.NRET__V43*/ meltfptr[42] = /*_.INST__V44*/ meltfptr[43];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:7156:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ meltfrout->tabval[10]))) ) /*then*/ @@ -44884,8 +40743,7 @@ INTEGER), ")));; MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ - meltfnum[7] = + /*_#MELT_NEED_DBG__L11*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -44894,8 +40752,7 @@ INTEGER), ")));; #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:7158:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L11*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -44932,20 +40789,16 @@ INTEGER), ")));; argtab[5].meltbp_cstring = "\n.. nbinds="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDS__V16*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V46*/ - meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V45*/ - meltfptr[44] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];; + /*_._IF___V45*/ meltfptr[44] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7158:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ - meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = 0 ; } ; } @@ -44958,8 +40811,7 @@ INTEGER), ")));; { MELT_LOCATION("warmelt-outobj.melt:7158:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -44968,11 +40820,9 @@ INTEGER), ")));; /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V45*/ - meltfptr[44] = 0 ; + /*clear*/ /*_._IF___V45*/ meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -44998,8 +40848,7 @@ INTEGER), ")));; MELT_LOCATION("warmelt-outobj.melt:7159:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.NRET__V43*/ meltfptr[42];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.NRET__V43*/ meltfptr[42];; MELT_LOCATION("warmelt-outobj.melt:7159:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -45007,45 +40856,32 @@ INTEGER), ")));; ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V31*/ - meltfptr[26] = /*_.RETURN___V47*/ meltfptr[45];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V31*/ meltfptr[26] = /*_.RETURN___V47*/ meltfptr[45];; MELT_LOCATION("warmelt-outobj.melt:7125:/ clear"); - /*clear*/ /*_.LGSYM__V32*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.LGSYM__V32*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.LGBIND__V33*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.LGBIND__V33*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.LGLOCC__V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.LGLOCC__V35*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRINGCONST__V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.MAKE_STRINGCONST__V37*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRINGCONST__V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.MAKE_STRINGCONST__V38*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V39*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.TUPLE___V39*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHK__V41*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.NCHK__V41*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.NRET__V43*/ - meltfptr[42] = 0 ; + /*clear*/ /*_.NRET__V43*/ meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V47*/ - meltfptr[45] = 0 ; - /*_._IFELSE___V30*/ - meltfptr[23] = /*_.LET___V31*/ meltfptr[26];; + /*clear*/ /*_.RETURN___V47*/ meltfptr[45] = 0 ; + /*_._IFELSE___V30*/ meltfptr[23] = /*_.LET___V31*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7124:/ clear"); - /*clear*/ /*_.LET___V31*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.LET___V31*/ meltfptr[26] = 0 ; } ; } @@ -45059,12 +40895,10 @@ INTEGER), ")));; MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L13*/ - meltfnum[0] = + /*_#eqeq__L13*/ meltfnum[0] = ((/*_.CTYP__V3*/ meltfptr[2]) == ((/*!CTYPE_VOID*/ meltfrout->tabval[16])));; MELT_LOCATION("warmelt-outobj.melt:7162:/ cond"); - /*cond*/ - if (/*_#eqeq__L13*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#eqeq__L13*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45085,8 +40919,7 @@ INTEGER), ")));; { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ meltfrout->tabval[17])), (1), "CLASS_NREP_NIL"); - /*_.INST__V51*/ - meltfptr[34] = + /*_.INST__V51*/ meltfptr[34] = newobj; }; ; @@ -45094,8 +40927,7 @@ INTEGER), ")));; melt_dbgtrace_written_object (/*_.INST__V51*/ meltfptr[34], "newly made instance"); ; - /*_.NILR__V50*/ - meltfptr[25] = /*_.INST__V51*/ meltfptr[34];; + /*_.NILR__V50*/ meltfptr[25] = /*_.INST__V51*/ meltfptr[34];; MELT_CHECK_SIGNAL(); ; @@ -45107,8 +40939,7 @@ INTEGER), ")));; { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ meltfrout->tabval[9])), (3), "CLASS_NREP_RETURN"); - /*_.INST__V53*/ - meltfptr[37] = + /*_.INST__V53*/ meltfptr[37] = newobj; }; ; @@ -45121,14 +40952,12 @@ INTEGER), ")));; melt_dbgtrace_written_object (/*_.INST__V53*/ meltfptr[37], "newly made instance"); ; - /*_.NRET__V52*/ - meltfptr[36] = /*_.INST__V53*/ meltfptr[37];; + /*_.NRET__V52*/ meltfptr[36] = /*_.INST__V53*/ meltfptr[37];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:7168:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ meltfrout->tabval[10]))) ) /*then*/ @@ -45175,8 +41004,7 @@ INTEGER), ")));; MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ - meltfnum[7] = + /*_#MELT_NEED_DBG__L14*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -45185,8 +41013,7 @@ INTEGER), ")));; #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:7169:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L14*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45223,20 +41050,16 @@ INTEGER), ")));; argtab[5].meltbp_cstring = " nbinds="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDS__V16*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V55*/ - meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V55*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V54*/ - meltfptr[38] = /*_.MELT_DEBUG_FUN__V55*/ meltfptr[39];; + /*_._IF___V54*/ meltfptr[38] = /*_.MELT_DEBUG_FUN__V55*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7169:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ - meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V55*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V55*/ meltfptr[39] = 0 ; } ; } @@ -45249,8 +41072,7 @@ INTEGER), ")));; { MELT_LOCATION("warmelt-outobj.melt:7169:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -45259,11 +41081,9 @@ INTEGER), ")));; /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V54*/ - meltfptr[38] = 0 ; + /*clear*/ /*_._IF___V54*/ meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -45289,8 +41109,7 @@ INTEGER), ")));; MELT_LOCATION("warmelt-outobj.melt:7170:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.NRET__V52*/ meltfptr[36];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.NRET__V52*/ meltfptr[36];; MELT_LOCATION("warmelt-outobj.melt:7170:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -45298,27 +41117,20 @@ INTEGER), ")));; ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V49*/ - meltfptr[22] = /*_.RETURN___V56*/ meltfptr[42];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V49*/ meltfptr[22] = /*_.RETURN___V56*/ meltfptr[42];; MELT_LOCATION("warmelt-outobj.melt:7163:/ clear"); - /*clear*/ /*_.NILR__V50*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.NILR__V50*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.NRET__V52*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.NRET__V52*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V56*/ - meltfptr[42] = 0 ; - /*_._IFELSE___V48*/ - meltfptr[44] = /*_.LET___V49*/ meltfptr[22];; + /*clear*/ /*_.RETURN___V56*/ meltfptr[42] = 0 ; + /*_._IFELSE___V48*/ meltfptr[44] = /*_.LET___V49*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7162:/ clear"); - /*clear*/ /*_.LET___V49*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.LET___V49*/ meltfptr[22] = 0 ; } ; } @@ -45332,12 +41144,10 @@ INTEGER), ")));; MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L16*/ - meltfnum[14] = + /*_#eqeq__L16*/ meltfnum[14] = ((/*_.CTYP__V3*/ meltfptr[2]) == ((/*!CTYPE_CSTRING*/ meltfrout->tabval[18])));; MELT_LOCATION("warmelt-outobj.melt:7173:/ cond"); - /*cond*/ - if (/*_#eqeq__L16*/ meltfnum[14]) /*then*/ + /*cond*/ if (/*_#eqeq__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45367,8 +41177,7 @@ INTEGER), ")));; { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[6])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V61*/ - meltfptr[25] = + /*_.INST__V61*/ meltfptr[25] = newobj; }; ; @@ -45396,8 +41205,7 @@ INTEGER), ")));; melt_dbgtrace_written_object (/*_.INST__V61*/ meltfptr[25], "newly made instance"); ; - /*_.STBIND__V60*/ - meltfptr[38] = /*_.INST__V61*/ meltfptr[25];; + /*_.STBIND__V60*/ meltfptr[38] = /*_.INST__V61*/ meltfptr[25];; MELT_CHECK_SIGNAL(); ; @@ -45409,8 +41217,7 @@ INTEGER), ")));; { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[8])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V63*/ - meltfptr[42] = + /*_.INST__V63*/ meltfptr[42] = newobj; }; ; @@ -45438,19 +41245,16 @@ INTEGER), ")));; melt_dbgtrace_written_object (/*_.INST__V63*/ meltfptr[42], "newly made instance"); ; - /*_.STLOCC__V62*/ - meltfptr[36] = /*_.INST__V63*/ meltfptr[42];; + /*_.STLOCC__V62*/ meltfptr[36] = /*_.INST__V63*/ meltfptr[42];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_.MAKE_STRINGCONST__V64*/ - meltfptr[22] = + /*_.MAKE_STRINGCONST__V64*/ meltfptr[22] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[14])), ( "/*autobox cstring*/ meltgc_new_stringdup((meltobject_ptr_t)MELT_PREDEF\ (DISCR_STRING), ")));; /*^compute*/ - /*_.MAKE_STRINGCONST__V65*/ - meltfptr[64] = + /*_.MAKE_STRINGCONST__V65*/ meltfptr[64] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[14])), ( ")")));; MELT_LOCATION("warmelt-outobj.melt:7191:/ blockmultialloc"); /*multiallocblock*/ @@ -45463,8 +41267,7 @@ INTEGER), ")));; meltletrec_3_ptr = (struct meltletrec_3_st *) meltgc_allocate (sizeof (struct meltletrec_3_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x9*/ - /*_.TUPLREC___V67*/ - meltfptr[66] = (melt_ptr_t) &meltletrec_3_ptr->rtup_0__TUPLREC__x9; + /*_.TUPLREC___V67*/ meltfptr[66] = (melt_ptr_t) &meltletrec_3_ptr->rtup_0__TUPLREC__x9; meltletrec_3_ptr->rtup_0__TUPLREC__x9.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_3_ptr->rtup_0__TUPLREC__x9.nbval = 3; @@ -45490,16 +41293,13 @@ INTEGER), ")));; /*^touch*/ meltgc_touch(/*_.TUPLREC___V67*/ meltfptr[66]); ; - /*_.TUPLE___V66*/ - meltfptr[65] = /*_.TUPLREC___V67*/ meltfptr[66];; + /*_.TUPLE___V66*/ meltfptr[65] = /*_.TUPLREC___V67*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7191:/ clear"); - /*clear*/ /*_.TUPLREC___V67*/ - meltfptr[66] = 0 ; + /*clear*/ /*_.TUPLREC___V67*/ meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V67*/ - meltfptr[66] = 0 ; + /*clear*/ /*_.TUPLREC___V67*/ meltfptr[66] = 0 ; } /*end multiallocblock*/ ; MELT_LOCATION("warmelt-outobj.melt:7187:/ quasiblock"); @@ -45510,8 +41310,7 @@ INTEGER), ")));; { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[13])), (4), "CLASS_NREP_CHUNK"); - /*_.INST__V69*/ - meltfptr[68] = + /*_.INST__V69*/ meltfptr[68] = newobj; }; ; @@ -45539,8 +41338,7 @@ INTEGER), ")));; melt_dbgtrace_written_object (/*_.INST__V69*/ meltfptr[68], "newly made instance"); ; - /*_.NCHK__V68*/ - meltfptr[66] = /*_.INST__V69*/ meltfptr[68];; + /*_.NCHK__V68*/ meltfptr[66] = /*_.INST__V69*/ meltfptr[68];; MELT_CHECK_SIGNAL(); ; @@ -45552,8 +41350,7 @@ INTEGER), ")));; { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ meltfrout->tabval[9])), (3), "CLASS_NREP_RETURN"); - /*_.INST__V71*/ - meltfptr[70] = + /*_.INST__V71*/ meltfptr[70] = newobj; }; ; @@ -45566,14 +41363,12 @@ INTEGER), ")));; melt_dbgtrace_written_object (/*_.INST__V71*/ meltfptr[70], "newly made instance"); ; - /*_.NRET__V70*/ - meltfptr[69] = /*_.INST__V71*/ meltfptr[70];; + /*_.NRET__V70*/ meltfptr[69] = /*_.INST__V71*/ meltfptr[70];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:7205:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ meltfrout->tabval[10]))) ) /*then*/ @@ -45626,8 +41421,7 @@ INTEGER), ")));; MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ - meltfnum[7] = + /*_#MELT_NEED_DBG__L17*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -45636,8 +41430,7 @@ INTEGER), ")));; #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:7207:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L17*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45674,20 +41467,16 @@ INTEGER), ")));; argtab[5].meltbp_cstring = " nbinds="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDS__V16*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V73*/ - meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V72*/ - meltfptr[71] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72];; + /*_._IF___V72*/ meltfptr[71] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7207:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L18*/ - meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ - meltfptr[72] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72] = 0 ; } ; } @@ -45700,8 +41489,7 @@ INTEGER), ")));; { MELT_LOCATION("warmelt-outobj.melt:7207:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -45710,11 +41498,9 @@ INTEGER), ")));; /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V72*/ - meltfptr[71] = 0 ; + /*clear*/ /*_._IF___V72*/ meltfptr[71] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -45740,8 +41526,7 @@ INTEGER), ")));; MELT_LOCATION("warmelt-outobj.melt:7208:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.NRET__V70*/ meltfptr[69];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.NRET__V70*/ meltfptr[69];; MELT_LOCATION("warmelt-outobj.melt:7208:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -45749,45 +41534,32 @@ INTEGER), ")));; ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V58*/ - meltfptr[26] = /*_.RETURN___V74*/ meltfptr[72];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V58*/ meltfptr[26] = /*_.RETURN___V74*/ meltfptr[72];; MELT_LOCATION("warmelt-outobj.melt:7174:/ clear"); - /*clear*/ /*_.STSYM__V59*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.STSYM__V59*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.STBIND__V60*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.STBIND__V60*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.STLOCC__V62*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.STLOCC__V62*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRINGCONST__V64*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.MAKE_STRINGCONST__V64*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRINGCONST__V65*/ - meltfptr[64] = 0 ; + /*clear*/ /*_.MAKE_STRINGCONST__V65*/ meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V66*/ - meltfptr[65] = 0 ; + /*clear*/ /*_.TUPLE___V66*/ meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHK__V68*/ - meltfptr[66] = 0 ; + /*clear*/ /*_.NCHK__V68*/ meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.NRET__V70*/ - meltfptr[69] = 0 ; + /*clear*/ /*_.NRET__V70*/ meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V74*/ - meltfptr[72] = 0 ; - /*_._IFELSE___V57*/ - meltfptr[45] = /*_.LET___V58*/ meltfptr[26];; + /*clear*/ /*_.RETURN___V74*/ meltfptr[72] = 0 ; + /*_._IFELSE___V57*/ meltfptr[45] = /*_.LET___V58*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7173:/ clear"); - /*clear*/ /*_.LET___V58*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.LET___V58*/ meltfptr[26] = 0 ; } ; } @@ -45801,12 +41573,10 @@ INTEGER), ")));; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L19*/ - meltfnum[17] = + /*_#IS_A__L19*/ meltfnum[17] = melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[21])));; MELT_LOCATION("warmelt-outobj.melt:7211:/ cond"); - /*cond*/ - if (/*_#IS_A__L19*/ meltfnum[17]) /*then*/ + /*cond*/ if (/*_#IS_A__L19*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -45817,8 +41587,7 @@ INTEGER), ")));; /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[2]))) ) /*then*/ @@ -45829,8 +41598,7 @@ INTEGER), ")));; melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYP__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 11, "CTYPE_AUTOBOXDISCR"); - /*_.DIS__V77*/ - meltfptr[38] = slot; + /*_.DIS__V77*/ meltfptr[38] = slot; }; ; } @@ -45841,8 +41609,7 @@ INTEGER), ")));; } ; MELT_LOCATION("warmelt-outobj.melt:7213:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[21]))) ) /*then*/ @@ -45853,8 +41620,7 @@ INTEGER), ")));; melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYP__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 21, "CTYPG_BOXFUN"); - /*_.BOXF__V78*/ - meltfptr[36] = slot; + /*_.BOXF__V78*/ meltfptr[36] = slot; }; ; } @@ -45865,8 +41631,7 @@ INTEGER), ")));; } ; MELT_LOCATION("warmelt-outobj.melt:7214:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[22]))) ) /*then*/ @@ -45877,8 +41642,7 @@ INTEGER), ")));; melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYP__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.CTYNAM__V79*/ - meltfptr[22] = slot; + /*_.CTYNAM__V79*/ meltfptr[22] = slot; }; ; } @@ -45900,8 +41664,7 @@ INTEGER), ")));; argtab[0].meltbp_cstring = "AUTOBOXING_"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CTYNAM__V79*/ meltfptr[22]; - /*_.STRING4OUT__V80*/ - meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[23])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[24])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.STRING4OUT__V80*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[23])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[24])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -45924,8 +41687,7 @@ INTEGER), ")));; { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[6])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V83*/ - meltfptr[69] = + /*_.INST__V83*/ meltfptr[69] = newobj; }; ; @@ -45953,8 +41715,7 @@ INTEGER), ")));; melt_dbgtrace_written_object (/*_.INST__V83*/ meltfptr[69], "newly made instance"); ; - /*_.GTBIND__V82*/ - meltfptr[66] = /*_.INST__V83*/ meltfptr[69];; + /*_.GTBIND__V82*/ meltfptr[66] = /*_.INST__V83*/ meltfptr[69];; MELT_CHECK_SIGNAL(); ; @@ -45966,8 +41727,7 @@ INTEGER), ")));; { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[8])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V85*/ - meltfptr[26] = + /*_.INST__V85*/ meltfptr[26] = newobj; }; ; @@ -45995,45 +41755,36 @@ INTEGER), ")));; melt_dbgtrace_written_object (/*_.INST__V85*/ meltfptr[26], "newly made instance"); ; - /*_.GTLOCC__V84*/ - meltfptr[72] = /*_.INST__V85*/ meltfptr[26];; + /*_.GTLOCC__V84*/ meltfptr[72] = /*_.INST__V85*/ meltfptr[26];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_.MAKE_STRINGCONST__V86*/ - meltfptr[85] = + /*_.MAKE_STRINGCONST__V86*/ meltfptr[85] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[14])), ( "/*autobox-gty ")));; /*^compute*/ - /*_.MAKE_STRING__V87*/ - meltfptr[86] = + /*_.MAKE_STRING__V87*/ meltfptr[86] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[14])), melt_string_str((melt_ptr_t)(/*_.CTYNAM__V79*/ meltfptr[22]))));; /*^compute*/ - /*_.MAKE_STRINGCONST__V88*/ - meltfptr[87] = + /*_.MAKE_STRINGCONST__V88*/ meltfptr[87] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[14])), ( "*/ ")));; /*^compute*/ - /*_.MAKE_STRING__V89*/ - meltfptr[88] = + /*_.MAKE_STRING__V89*/ meltfptr[88] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[14])), melt_string_str((melt_ptr_t)(/*_.BOXF__V78*/ meltfptr[36]))));; /*^compute*/ - /*_.MAKE_STRINGCONST__V90*/ - meltfptr[89] = + /*_.MAKE_STRINGCONST__V90*/ meltfptr[89] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[14])), ( " ((meltobject_ptr_t)MELT_PREDEF (")));; /*^compute*/ - /*_.MAKE_STRING__V91*/ - meltfptr[90] = + /*_.MAKE_STRING__V91*/ meltfptr[90] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[14])), melt_string_str((melt_ptr_t)(/*_.DIS__V77*/ meltfptr[38]))));; /*^compute*/ - /*_.MAKE_STRINGCONST__V92*/ - meltfptr[91] = + /*_.MAKE_STRINGCONST__V92*/ meltfptr[91] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[14])), ( "), ")));; /*^compute*/ - /*_.MAKE_STRINGCONST__V93*/ - meltfptr[92] = + /*_.MAKE_STRINGCONST__V93*/ meltfptr[92] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[14])), ( ")")));; MELT_LOCATION("warmelt-outobj.melt:7231:/ blockmultialloc"); /*multiallocblock*/ @@ -46046,8 +41797,7 @@ INTEGER), ")));; meltletrec_4_ptr = (struct meltletrec_4_st *) meltgc_allocate (sizeof (struct meltletrec_4_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x10*/ - /*_.TUPLREC___V95*/ - meltfptr[94] = (melt_ptr_t) &meltletrec_4_ptr->rtup_0__TUPLREC__x10; + /*_.TUPLREC___V95*/ meltfptr[94] = (melt_ptr_t) &meltletrec_4_ptr->rtup_0__TUPLREC__x10; meltletrec_4_ptr->rtup_0__TUPLREC__x10.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_4_ptr->rtup_0__TUPLREC__x10.nbval = 9; @@ -46109,16 +41859,13 @@ INTEGER), ")));; /*^touch*/ meltgc_touch(/*_.TUPLREC___V95*/ meltfptr[94]); ; - /*_.TUPLE___V94*/ - meltfptr[93] = /*_.TUPLREC___V95*/ meltfptr[94];; + /*_.TUPLE___V94*/ meltfptr[93] = /*_.TUPLREC___V95*/ meltfptr[94];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7231:/ clear"); - /*clear*/ /*_.TUPLREC___V95*/ - meltfptr[94] = 0 ; + /*clear*/ /*_.TUPLREC___V95*/ meltfptr[94] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V95*/ - meltfptr[94] = 0 ; + /*clear*/ /*_.TUPLREC___V95*/ meltfptr[94] = 0 ; } /*end multiallocblock*/ ; MELT_LOCATION("warmelt-outobj.melt:7227:/ quasiblock"); @@ -46129,8 +41876,7 @@ INTEGER), ")));; { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[13])), (4), "CLASS_NREP_CHUNK"); - /*_.INST__V97*/ - meltfptr[96] = + /*_.INST__V97*/ meltfptr[96] = newobj; }; ; @@ -46158,8 +41904,7 @@ INTEGER), ")));; melt_dbgtrace_written_object (/*_.INST__V97*/ meltfptr[96], "newly made instance"); ; - /*_.NCHK__V96*/ - meltfptr[94] = /*_.INST__V97*/ meltfptr[96];; + /*_.NCHK__V96*/ meltfptr[94] = /*_.INST__V97*/ meltfptr[96];; MELT_CHECK_SIGNAL(); ; @@ -46171,8 +41916,7 @@ INTEGER), ")));; { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ meltfrout->tabval[9])), (3), "CLASS_NREP_RETURN"); - /*_.INST__V99*/ - meltfptr[98] = + /*_.INST__V99*/ meltfptr[98] = newobj; }; ; @@ -46185,14 +41929,12 @@ INTEGER), ")));; melt_dbgtrace_written_object (/*_.INST__V99*/ meltfptr[98], "newly made instance"); ; - /*_.NRET__V98*/ - meltfptr[97] = /*_.INST__V99*/ meltfptr[98];; + /*_.NRET__V98*/ meltfptr[97] = /*_.INST__V99*/ meltfptr[98];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:7257:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ meltfrout->tabval[10]))) ) /*then*/ @@ -46245,8 +41987,7 @@ INTEGER), ")));; MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ - meltfnum[7] = + /*_#MELT_NEED_DBG__L20*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -46255,8 +41996,7 @@ INTEGER), ")));; #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:7259:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L20*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -46293,20 +42033,16 @@ INTEGER), ")));; argtab[5].meltbp_cstring = " nbinds="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDS__V16*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V101*/ - meltfptr[100] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (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__V101*/ meltfptr[100] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (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___V100*/ - meltfptr[99] = /*_.MELT_DEBUG_FUN__V101*/ meltfptr[100];; + /*_._IF___V100*/ meltfptr[99] = /*_.MELT_DEBUG_FUN__V101*/ meltfptr[100];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7259:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ - meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V101*/ - meltfptr[100] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V101*/ meltfptr[100] = 0 ; } ; } @@ -46319,8 +42055,7 @@ INTEGER), ")));; { MELT_LOCATION("warmelt-outobj.melt:7259:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -46329,11 +42064,9 @@ INTEGER), ")));; /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V100*/ - meltfptr[99] = 0 ; + /*clear*/ /*_._IF___V100*/ meltfptr[99] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -46359,8 +42092,7 @@ INTEGER), ")));; MELT_LOCATION("warmelt-outobj.melt:7260:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.NRET__V98*/ meltfptr[97];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.NRET__V98*/ meltfptr[97];; MELT_LOCATION("warmelt-outobj.melt:7260:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; @@ -46368,75 +42100,52 @@ INTEGER), ")));; ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V76*/ - meltfptr[39] = /*_.RETURN___V102*/ meltfptr[100];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V76*/ meltfptr[39] = /*_.RETURN___V102*/ meltfptr[100];; MELT_LOCATION("warmelt-outobj.melt:7212:/ clear"); - /*clear*/ /*_.DIS__V77*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.DIS__V77*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.BOXF__V78*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.BOXF__V78*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYNAM__V79*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.CTYNAM__V79*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.STRING4OUT__V80*/ - meltfptr[64] = 0 ; + /*clear*/ /*_.STRING4OUT__V80*/ meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.GTSYM__V81*/ - meltfptr[65] = 0 ; + /*clear*/ /*_.GTSYM__V81*/ meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.GTBIND__V82*/ - meltfptr[66] = 0 ; + /*clear*/ /*_.GTBIND__V82*/ meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.GTLOCC__V84*/ - meltfptr[72] = 0 ; + /*clear*/ /*_.GTLOCC__V84*/ meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRINGCONST__V86*/ - meltfptr[85] = 0 ; + /*clear*/ /*_.MAKE_STRINGCONST__V86*/ meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRING__V87*/ - meltfptr[86] = 0 ; + /*clear*/ /*_.MAKE_STRING__V87*/ meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRINGCONST__V88*/ - meltfptr[87] = 0 ; + /*clear*/ /*_.MAKE_STRINGCONST__V88*/ meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRING__V89*/ - meltfptr[88] = 0 ; + /*clear*/ /*_.MAKE_STRING__V89*/ meltfptr[88] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRINGCONST__V90*/ - meltfptr[89] = 0 ; + /*clear*/ /*_.MAKE_STRINGCONST__V90*/ meltfptr[89] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRING__V91*/ - meltfptr[90] = 0 ; + /*clear*/ /*_.MAKE_STRING__V91*/ meltfptr[90] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRINGCONST__V92*/ - meltfptr[91] = 0 ; + /*clear*/ /*_.MAKE_STRINGCONST__V92*/ meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRINGCONST__V93*/ - meltfptr[92] = 0 ; + /*clear*/ /*_.MAKE_STRINGCONST__V93*/ meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V94*/ - meltfptr[93] = 0 ; + /*clear*/ /*_.TUPLE___V94*/ meltfptr[93] = 0 ; /*^clear*/ - /*clear*/ /*_.NCHK__V96*/ - meltfptr[94] = 0 ; + /*clear*/ /*_.NCHK__V96*/ meltfptr[94] = 0 ; /*^clear*/ - /*clear*/ /*_.NRET__V98*/ - meltfptr[97] = 0 ; + /*clear*/ /*_.NRET__V98*/ meltfptr[97] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V102*/ - meltfptr[100] = 0 ; - /*_._IFELSE___V75*/ - meltfptr[71] = /*_.LET___V76*/ meltfptr[39];; + /*clear*/ /*_.RETURN___V102*/ meltfptr[100] = 0 ; + /*_._IFELSE___V75*/ meltfptr[71] = /*_.LET___V76*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7211:/ clear"); - /*clear*/ /*_.LET___V76*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.LET___V76*/ meltfptr[39] = 0 ; } ; } @@ -46467,8 +42176,7 @@ INTEGER), ")));; MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L22*/ - meltfnum[20] = + /*_#MELT_NEED_DBG__L22*/ meltfnum[20] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -46477,8 +42185,7 @@ INTEGER), ")));; #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-outobj.melt:7264:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L22*/ meltfnum[20]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L22*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -46494,8 +42201,7 @@ INTEGER), ")));; #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ - /*_.DISCRIM__V104*/ - meltfptr[38] = + /*_.DISCRIM__V104*/ meltfptr[38] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.CTYP__V3*/ meltfptr[2]))));; MELT_CHECK_SIGNAL(); @@ -46519,23 +42225,18 @@ INTEGER), ")));; argtab[5].meltbp_cstring = "\n of discrim "; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DISCRIM__V104*/ meltfptr[38]; - /*_.MELT_DEBUG_FUN__V105*/ - meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V105*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V103*/ - meltfptr[99] = /*_.MELT_DEBUG_FUN__V105*/ meltfptr[36];; + /*_._IF___V103*/ meltfptr[99] = /*_.MELT_DEBUG_FUN__V105*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7264:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L23*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L23*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.DISCRIM__V104*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.DISCRIM__V104*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V105*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V105*/ meltfptr[36] = 0 ; } ; } @@ -46548,8 +42249,7 @@ INTEGER), ")));; { MELT_LOCATION("warmelt-outobj.melt:7264:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -46558,11 +42258,9 @@ INTEGER), ")));; /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L22*/ - meltfnum[20] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L22*/ meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V103*/ - meltfptr[99] = 0 ; + /*clear*/ /*_._IF___V103*/ meltfptr[99] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -46593,8 +42291,7 @@ INTEGER), ")));; MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ - if ((/*nil*/NULL)) /*then*/ + /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V107*/ meltfptr[64] = (/*nil*/NULL);; @@ -46623,28 +42320,23 @@ INTEGER), ")));; argtab[2].meltbp_long = 7265; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYP__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V108*/ - meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V108*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V107*/ - meltfptr[64] = /*_.MELT_ASSERT_FAILURE_FUN__V108*/ meltfptr[65];; + /*_._IFELSE___V107*/ meltfptr[64] = /*_.MELT_ASSERT_FAILURE_FUN__V108*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7265:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V108*/ - meltfptr[65] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V108*/ meltfptr[65] = 0 ; } ; } ; - /*_.IFCPP___V106*/ - meltfptr[22] = /*_._IFELSE___V107*/ meltfptr[64];; + /*_.IFCPP___V106*/ meltfptr[22] = /*_._IFELSE___V107*/ meltfptr[64];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7265:/ clear"); - /*clear*/ /*_._IFELSE___V107*/ - meltfptr[64] = 0 ; + /*clear*/ /*_._IFELSE___V107*/ meltfptr[64] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -46655,108 +42347,84 @@ INTEGER), ")));; MELT_LOCATION("warmelt-outobj.melt:7263:/ quasiblock"); - /*_.PROGN___V109*/ - meltfptr[66] = /*_.IFCPP___V106*/ meltfptr[22];; + /*_.PROGN___V109*/ meltfptr[66] = /*_.IFCPP___V106*/ meltfptr[22];; /*^compute*/ - /*_._IFELSE___V75*/ - meltfptr[71] = /*_.PROGN___V109*/ meltfptr[66];; + /*_._IFELSE___V75*/ meltfptr[71] = /*_.PROGN___V109*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7211:/ clear"); - /*clear*/ /*_.IFCPP___V106*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.IFCPP___V106*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V109*/ - meltfptr[66] = 0 ; + /*clear*/ /*_.PROGN___V109*/ meltfptr[66] = 0 ; } ; } ; - /*_._IFELSE___V57*/ - meltfptr[45] = /*_._IFELSE___V75*/ meltfptr[71];; + /*_._IFELSE___V57*/ meltfptr[45] = /*_._IFELSE___V75*/ meltfptr[71];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7173:/ clear"); - /*clear*/ /*_#IS_A__L19*/ - meltfnum[17] = 0 ; + /*clear*/ /*_#IS_A__L19*/ meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V75*/ - meltfptr[71] = 0 ; + /*clear*/ /*_._IFELSE___V75*/ meltfptr[71] = 0 ; } ; } ; - /*_._IFELSE___V48*/ - meltfptr[44] = /*_._IFELSE___V57*/ meltfptr[45];; + /*_._IFELSE___V48*/ meltfptr[44] = /*_._IFELSE___V57*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7162:/ clear"); - /*clear*/ /*_#eqeq__L16*/ - meltfnum[14] = 0 ; + /*clear*/ /*_#eqeq__L16*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V57*/ - meltfptr[45] = 0 ; + /*clear*/ /*_._IFELSE___V57*/ meltfptr[45] = 0 ; } ; } ; - /*_._IFELSE___V30*/ - meltfptr[23] = /*_._IFELSE___V48*/ meltfptr[44];; + /*_._IFELSE___V30*/ meltfptr[23] = /*_._IFELSE___V48*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7124:/ clear"); - /*clear*/ /*_#eqeq__L13*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#eqeq__L13*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V48*/ - meltfptr[44] = 0 ; + /*clear*/ /*_._IFELSE___V48*/ meltfptr[44] = 0 ; } ; } ; - /*_._IFELSE___V21*/ - meltfptr[17] = /*_._IFELSE___V30*/ meltfptr[23];; + /*_._IFELSE___V21*/ meltfptr[17] = /*_._IFELSE___V30*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:7113:/ clear"); - /*clear*/ /*_#eqeq__L10*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#eqeq__L10*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V30*/ - meltfptr[23] = 0 ; + /*clear*/ /*_._IFELSE___V30*/ meltfptr[23] = 0 ; } ; } ; - /*_.LET___V10*/ - meltfptr[8] = /*_._IFELSE___V21*/ meltfptr[17];; + /*_.LET___V10*/ meltfptr[8] = /*_._IFELSE___V21*/ meltfptr[17];; MELT_LOCATION("warmelt-outobj.melt:7096:/ clear"); - /*clear*/ /*_.CSYM__V11*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.CSYM__V11*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.CBIND__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.CLOCC__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.CLOCC__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDS__V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.NBINDS__V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L6*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#eqeq__L6*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ - meltfptr[17] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ meltfptr[17] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:7092:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-outobj.melt:7092:/ locexp"); @@ -46771,16 +42439,13 @@ INTEGER), ")));; ; /*^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 ; } ; |