diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-outobj+02.c')
| -rw-r--r-- | gcc/melt/generated/warmelt-outobj+02.c | 3711 |
1 files changed, 2030 insertions, 1681 deletions
diff --git a/gcc/melt/generated/warmelt-outobj+02.c b/gcc/melt/generated/warmelt-outobj+02.c index 7a3d7f91d26..57f93070251 100644 --- a/gcc/melt/generated/warmelt-outobj+02.c +++ b/gcc/melt/generated/warmelt-outobj+02.c @@ -2552,7 +2552,19 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V12*/ meltfptr[6];; - MELT_LOCATION ("warmelt-outobj.melt:1032:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:1032:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -3351,7 +3363,19 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IF___V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-outobj.melt:1045:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:1045:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -3419,8 +3443,8 @@ meltrout_32_warmelt_outobj_LINE_AND_FILE_OF_LOCATION (meltclosure_ptr_t struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 10 - melt_ptr_t mcfr_varptr[10]; +#define MELTFRAM_NBVARPTR 12 + melt_ptr_t mcfr_varptr[12]; #define MELTFRAM_NBVARNUM 4 long mcfr_varnum[4]; /*others*/ @@ -3435,13 +3459,13 @@ meltrout_32_warmelt_outobj_LINE_AND_FILE_OF_LOCATION (meltclosure_ptr_t (struct frame_meltrout_32_warmelt_outobj_LINE_AND_FILE_OF_LOCATION_st *) meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); - for (ix = 0; ix < 10; ix++) + for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); - meltfram__.mcfr_nbvar = 10; + meltfram__.mcfr_nbvar = 12; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; @@ -3600,11 +3624,48 @@ lab_endgetargs:; else { /*^cond.else */ - /*_.IFELSE___V7*/ meltfptr[3] = NULL;; + /*^block */ + /*anyblock */ + { + + MELT_LOCATION ("warmelt-outobj.melt:1103:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^quasiblock */ + + + /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; + MELT_LOCATION ("warmelt-outobj.melt:1103:/ putxtraresult"); + if (!meltxrestab_ || !meltxresdescr_) + goto labend_rout; + if (meltxresdescr_[0] != MELTBPAR_PTR) + goto labend_rout; + if (meltxrestab_[0].meltbp_aptr) + *(meltxrestab_[0].meltbp_aptr) = + (melt_ptr_t) (( /*nil */ NULL)); + ; + /*^finalreturn */ + ; + /*finalret */ goto labend_rout; + MELT_LOCATION ("warmelt-outobj.melt:1102:/ quasiblock"); + + + /*_.PROGN___V12*/ meltfptr[5] = + /*_.RETURN___V11*/ meltfptr[4];; + /*^compute */ + + /*_.IFELSE___V7*/ meltfptr[3] = + /*_.PROGN___V12*/ meltfptr[5];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:1099:/ clear"); + /*clear *//*_.RETURN___V11*/ meltfptr[4] = 0; + /*^clear */ + /*clear *//*_.PROGN___V12*/ meltfptr[5] = 0; + } + ; } ; - /*^compute */ - /*_.IFELSE___V3*/ meltfptr[2] = /*_.IFELSE___V7*/ meltfptr[3];; /*epilog */ @@ -3620,7 +3681,19 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V3*/ meltfptr[2];; - MELT_LOCATION ("warmelt-outobj.melt:1093:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:1093:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -3715,7 +3788,7 @@ meltrout_33_warmelt_outobj_OUTPUT_LOCATION (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1106:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1108:/ getarg"); /*_.LOC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -3747,7 +3820,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:1107:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1109:/ quasiblock"); /*^getslot */ @@ -3758,7 +3831,7 @@ lab_endgetargs:; meltfptr[4] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1108:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1110:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (( /*!PREVIMPLBUF_CONTAINER */ meltfrout->tabval[1])), 0, "REFERENCED_VALUE"); @@ -3766,12 +3839,12 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1110:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1112:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L2*/ meltfnum[1] = (( /*_.PREVBUF__V6*/ meltfptr[5]) == ( /*_.IMPLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1110:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1112:/ cond"); /*cond */ if ( /*_#__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -3779,13 +3852,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1111:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1113:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L3*/ meltfnum[2] = (( /*_.PREVLOC__V5*/ meltfptr[4]) == ( /*_.LOC__V2*/ meltfptr[1]));; - MELT_LOCATION ("warmelt-outobj.melt:1111:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1113:/ cond"); /*cond */ if ( /*_#__L3*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -3793,13 +3866,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1111:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1113:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1112:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1114:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#GET_INT__L5*/ meltfnum[4] = @@ -3814,7 +3887,7 @@ lab_endgetargs:; /*_#I__L7*/ meltfnum[6] = (( /*_#GET_INT__L5*/ meltfnum[4]) == ( /*_#GET_INT__L6*/ meltfnum[5]));; - MELT_LOCATION ("warmelt-outobj.melt:1112:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1114:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -3840,7 +3913,7 @@ lab_endgetargs:; /*_#IF___L8*/ meltfnum[7] = /*_#__L9*/ meltfnum[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1112:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1114:/ clear"); /*clear *//*_.MIXLOC_VAL__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.MIXLOC_VAL__V9*/ meltfptr[8] = 0; @@ -3860,7 +3933,7 @@ lab_endgetargs:; /*_#OR___L4*/ meltfnum[3] = /*_#IF___L8*/ meltfnum[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1111:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1113:/ clear"); /*clear *//*_#GET_INT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_#GET_INT__L6*/ meltfnum[5] = 0; @@ -3880,7 +3953,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1115:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1117:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -3893,7 +3966,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1116:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1118:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -3902,7 +3975,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1117:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1119:/ locexp"); /*add2sbuf_ccomconst */ meltgc_add_strbuf_ccomment ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ @@ -3913,14 +3986,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1118:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1120:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ("*/")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1115:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1117:/ quasiblock"); /*epilog */ @@ -3930,7 +4003,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1120:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1122:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (0), 0); @@ -3938,7 +4011,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1121:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1123:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -3947,20 +4020,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1122:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1124:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1123:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1125:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MIXINT__L10*/ meltfnum[8] = (melt_magic_discr ((melt_ptr_t) ( /*_.LOC__V2*/ meltfptr[1])) == MELTOBMAG_MIXINT);; - MELT_LOCATION ("warmelt-outobj.melt:1123:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1125:/ cond"); /*cond */ if ( /*_#IS_MIXINT__L10*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -3970,7 +4043,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1127:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1129:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -3979,7 +4052,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1128:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1130:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -3991,7 +4064,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.LOC__V2*/ meltfptr[1])));; { - MELT_LOCATION ("warmelt-outobj.melt:1129:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1131:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -3999,7 +4072,7 @@ lab_endgetargs:; meltfnum[4])); } ; - MELT_LOCATION ("warmelt-outobj.melt:1123:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1125:/ quasiblock"); /*epilog */ @@ -4017,14 +4090,14 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:1131:/ checksignal"); + ("warmelt-outobj.melt:1133:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MIXLOC__L12*/ meltfnum[5] = (melt_magic_discr ((melt_ptr_t) ( /*_.LOC__V2*/ meltfptr[1])) == MELTOBMAG_MIXLOC);; - MELT_LOCATION ("warmelt-outobj.melt:1131:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1133:/ cond"); /*cond */ if ( /*_#IS_MIXLOC__L12*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -4035,7 +4108,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:1132:/ locexp"); + ("warmelt-outobj.melt:1134:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ @@ -4045,7 +4118,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:1133:/ locexp"); + ("warmelt-outobj.melt:1135:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ @@ -4059,7 +4132,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:1134:/ locexp"); + ("warmelt-outobj.melt:1136:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -4067,7 +4140,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:1131:/ quasiblock"); + ("warmelt-outobj.melt:1133:/ quasiblock"); /*epilog */ @@ -4090,7 +4163,7 @@ lab_endgetargs:; /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1123:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1125:/ clear"); /*clear *//*_#IS_MIXLOC__L12*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -4100,7 +4173,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1137:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1139:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (0), 0); @@ -4108,7 +4181,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1138:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1140:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -4117,20 +4190,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1139:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1141:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1141:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1143:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L14*/ meltfnum[7] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1141:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1143:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4170,7 +4243,7 @@ lab_endgetargs:; /*_#I__L17*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L14*/ meltfnum[7]) > ( /*_#IRAW__L16*/ meltfnum[6]));; - MELT_LOCATION ("warmelt-outobj.melt:1141:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1143:/ cond"); /*cond */ if ( /*_#I__L17*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -4180,7 +4253,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1142:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1144:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -4191,7 +4264,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1143:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1145:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4217,7 +4290,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1143:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1145:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -4233,7 +4306,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:1143:/ checksignal"); + ("warmelt-outobj.melt:1145:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4248,7 +4321,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1143; + argtab[2].meltbp_long = 1145; /*^apply.arg */ argtab[3].meltbp_cstring = "output_location huge implbuf="; @@ -4274,7 +4347,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:1143:/ clear"); + ("warmelt-outobj.melt:1145:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L19*/ meltfnum[18] = 0; /*^clear */ @@ -4290,7 +4363,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:1143:/ quasiblock"); + ("warmelt-outobj.melt:1145:/ quasiblock"); /*_.PROGN___V18*/ meltfptr[16] = @@ -4301,7 +4374,7 @@ lab_endgetargs:; /*_.PROGN___V18*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1143:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1145:/ clear"); /*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IF___V16*/ meltfptr[15] = 0; @@ -4316,7 +4389,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1144:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1146:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4328,7 +4401,7 @@ lab_endgetargs:; melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1145:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1147:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4363,7 +4436,7 @@ lab_endgetargs:; /*_#I__L22*/ meltfnum[21] = (( /*_#STRBUF_USEDLENGTH__L20*/ meltfnum[18]) < ( /*_#GET_INT__L21*/ meltfnum[17]));; - MELT_LOCATION ("warmelt-outobj.melt:1144:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1146:/ cond"); /*cond */ if ( /*_#I__L22*/ meltfnum[21]) /*then */ { /*^cond.then */ @@ -4373,7 +4446,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:1144:/ cond.else"); + ("warmelt-outobj.melt:1146:/ cond.else"); /*^block */ /*anyblock */ @@ -4388,7 +4461,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1144) ? (1144) : + (1146) ? (1146) : __LINE__, __FUNCTION__); ; } @@ -4405,7 +4478,7 @@ lab_endgetargs:; /*_.IFELSE___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1144:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1146:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L20*/ meltfnum[18] = 0; /*^clear */ @@ -4424,7 +4497,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[15] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1141:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1143:/ quasiblock"); /*_.PROGN___V22*/ meltfptr[16] = @@ -4435,7 +4508,7 @@ lab_endgetargs:; /*_.PROGN___V22*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1141:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1143:/ clear"); /*clear *//*_.IFCPP___V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.IFCPP___V19*/ meltfptr[15] = 0; @@ -4450,14 +4523,26 @@ lab_endgetargs:; /*_.IFELSE___V14*/ meltfptr[13] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1146:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1148:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION ("warmelt-outobj.melt:1146:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:1148:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-outobj.melt:1114:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1116:/ quasiblock"); /*_.PROGN___V24*/ meltfptr[14] = @@ -4467,7 +4552,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[7] = /*_.PROGN___V24*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1111:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1113:/ clear"); /*clear *//*_#IS_MIXINT__L10*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[8] = 0; @@ -4501,7 +4586,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.IF___V10*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1110:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1112:/ clear"); /*clear *//*_#__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_#OR___L4*/ meltfnum[3] = 0; @@ -4516,7 +4601,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1150:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1152:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4536,7 +4621,7 @@ lab_endgetargs:; meltgc_touch (( /*!PREVLOC_CONTAINER */ meltfrout->tabval[0])); ; - MELT_LOCATION ("warmelt-outobj.melt:1151:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1153:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4558,13 +4643,13 @@ lab_endgetargs:; meltgc_touch (( /*!PREVIMPLBUF_CONTAINER */ meltfrout->tabval[1])); ; - MELT_LOCATION ("warmelt-outobj.melt:1154:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1156:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MIXINT__L23*/ meltfnum[18] = (melt_magic_discr ((melt_ptr_t) ( /*_.LOC__V2*/ meltfptr[1])) == MELTOBMAG_MIXINT);; - MELT_LOCATION ("warmelt-outobj.melt:1154:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1156:/ cond"); /*cond */ if ( /*_#IS_MIXINT__L23*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -4574,7 +4659,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1155:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1157:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -4585,7 +4670,7 @@ lab_endgetargs:; (melt_val_mixint ((melt_ptr_t) ( /*_.LOC__V2*/ meltfptr[1])));; { - MELT_LOCATION ("warmelt-outobj.melt:1156:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1158:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -4596,7 +4681,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1157:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1159:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (":")); @@ -4606,13 +4691,13 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.LOC__V2*/ meltfptr[1])));; { - MELT_LOCATION ("warmelt-outobj.melt:1158:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1160:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ( /*_#GET_INT__L24*/ meltfnum[17])); } ; - MELT_LOCATION ("warmelt-outobj.melt:1159:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1161:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -4625,7 +4710,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1160:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1162:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -4634,14 +4719,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1161:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1163:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ( /*_?*/ meltfram__.loc_CSTRING__o0)); } ; - MELT_LOCATION ("warmelt-outobj.melt:1159:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1161:/ quasiblock"); /*epilog */ @@ -4651,13 +4736,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1163:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1165:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ("\");")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1154:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1156:/ quasiblock"); /*epilog */ @@ -4676,13 +4761,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1165:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1167:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MIXLOC__L25*/ meltfnum[21] = (melt_magic_discr ((melt_ptr_t) ( /*_.LOC__V2*/ meltfptr[1])) == MELTOBMAG_MIXLOC);; - MELT_LOCATION ("warmelt-outobj.melt:1165:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1167:/ cond"); /*cond */ if ( /*_#IS_MIXLOC__L25*/ meltfnum[21]) /*then */ { /*^cond.then */ @@ -4692,7 +4777,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1166:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1168:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -4704,7 +4789,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.LOC__V2*/ meltfptr[1])));; { - MELT_LOCATION ("warmelt-outobj.melt:1167:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1169:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -4714,7 +4799,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1168:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1170:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -4725,13 +4810,13 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.LOC__V2*/ meltfptr[1])));; { - MELT_LOCATION ("warmelt-outobj.melt:1169:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1171:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ( /*_#GET_INT__L26*/ meltfnum[8])); } ; - MELT_LOCATION ("warmelt-outobj.melt:1170:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1172:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -4744,7 +4829,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1171:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1173:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -4753,7 +4838,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1172:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1174:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -4761,7 +4846,7 @@ lab_endgetargs:; loc_CSTRING__o0)); } ; - MELT_LOCATION ("warmelt-outobj.melt:1170:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1172:/ quasiblock"); /*epilog */ @@ -4771,14 +4856,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1174:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1176:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ("\");")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1165:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1167:/ quasiblock"); /*epilog */ @@ -4801,7 +4886,7 @@ lab_endgetargs:; /*_.IFELSE___V25*/ meltfptr[15] = /*_.IFELSE___V27*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1154:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1156:/ clear"); /*clear *//*_#IS_MIXLOC__L25*/ meltfnum[21] = 0; /*^clear */ /*clear *//*_.IFELSE___V27*/ meltfptr[8] = 0; @@ -4809,7 +4894,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:1177:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1179:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4833,7 +4918,7 @@ lab_endgetargs:; ; /*_.LET___V4*/ meltfptr[3] = /*_.OUTPUT_RAW_LOCATION__V29*/ meltfptr[13];; - MELT_LOCATION ("warmelt-outobj.melt:1107:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1109:/ clear"); /*clear *//*_.PREVLOC__V5*/ meltfptr[4] = 0; /*^clear */ /*clear *//*_.PREVBUF__V6*/ meltfptr[5] = 0; @@ -4847,11 +4932,23 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V25*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_.OUTPUT_RAW_LOCATION__V29*/ meltfptr[13] = 0; - MELT_LOCATION ("warmelt-outobj.melt:1106:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1108:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-outobj.melt:1106:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:1108:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -4949,7 +5046,7 @@ meltrout_34_warmelt_outobj_OUTPUT_CURFRAME_DECLSTRUCT (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1182:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1184:/ getarg"); /*_.ROU__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -4969,10 +5066,10 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:1183:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1185:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:1184:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1186:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ROU__V2*/ meltfptr[1]), 3, "OBROUT_BODY"); @@ -4980,7 +5077,7 @@ lab_endgetargs:; meltfptr[3] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1185:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1187:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ROU__V2*/ meltfptr[1]), 4, "OBROUT_NBVAL"); @@ -4988,7 +5085,7 @@ lab_endgetargs:; meltfptr[4] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1186:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1188:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ROU__V2*/ meltfptr[1]), 5, "OBROUT_NBLONG"); @@ -5008,7 +5105,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ROU__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_INITIALROUTINEOBJ */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:1190:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1192:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ROU__V2*/ meltfptr[1]), 6, "OBROUT_OTHERS"); @@ -5018,27 +5115,27 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1193:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1195:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1194:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1196:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (" struct ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1195:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1197:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of ((melt_ptr_t) ( /*_.ROU__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_NAMED */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:1195:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1197:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -5048,13 +5145,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1197:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1199:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("frame_")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1198:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1200:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ROU__V2*/ meltfptr[1]), 1, "NAMED_NAME"); @@ -5074,18 +5171,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1199:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1201:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("_st ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1196:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1198:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1195:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1197:/ clear"); /*clear *//*_.NAMED_NAME__V8*/ meltfptr[7] = 0; } ; @@ -5093,7 +5190,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1200:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1202:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("{")); @@ -5101,14 +5198,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1201:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1203:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1202:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1204:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (" int mcfr_nbvar;")); @@ -5116,14 +5213,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1203:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1205:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1204:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1206:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("#if MELT_HAVE_DEBUG")); @@ -5131,14 +5228,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1205:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1207:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1206:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1208:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (" const char* mcfr_flocs;")); @@ -5146,14 +5243,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1207:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1209:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1208:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1210:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("#else /*!MELT_HAVE_DEBUG*/")); @@ -5161,14 +5258,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1209:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1211:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1210:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1212:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (" const char* mcfr_unusedflocs;")); @@ -5176,14 +5273,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1211:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1213:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1212:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1214:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("#endif /*MELT_HAVE_DEBUG*/")); @@ -5191,12 +5288,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1213:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1215:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1216:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1218:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -5209,7 +5306,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1217:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1219:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (" void (*mcfr_initforwmarkrout) ( struct melt_callframe_st*, int);")); @@ -5221,7 +5318,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1216:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1218:/ cond.else"); /*^block */ /*anyblock */ @@ -5229,7 +5326,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1219:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1221:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (" struct meltclosure_st *mcfr_clos;")); @@ -5242,14 +5339,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1220:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1222:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1221:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1223:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (" struct excepth_melt_st *mcfr_exh;")); @@ -5257,14 +5354,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1222:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1224:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1223:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1225:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (" struct melt_callframe_st *mcfr_prev;")); @@ -5272,17 +5369,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1224:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1226:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1225:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1227:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L5*/ meltfnum[4] = (( /*_#NBVAL__L1*/ meltfnum[0]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:1225:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1227:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -5292,7 +5389,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1227:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1229:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("#define MELTFRAM_NBVARPTR ")); @@ -5300,7 +5397,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1228:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1230:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ( /*_#NBVAL__L1*/ meltfnum[0])); @@ -5308,14 +5405,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1229:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1231:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1230:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1232:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (" melt_ptr_t mcfr_varptr[")); @@ -5323,7 +5420,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1231:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1233:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ( /*_#NBVAL__L1*/ meltfnum[0])); @@ -5331,7 +5428,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1232:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1234:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("];")); @@ -5339,12 +5436,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1233:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1235:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1226:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1228:/ quasiblock"); /*epilog */ @@ -5353,7 +5450,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1225:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1227:/ cond.else"); /*^block */ /*anyblock */ @@ -5361,7 +5458,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1235:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1237:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("/*no varptr*/")); @@ -5369,14 +5466,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1236:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1238:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1237:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1239:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("#define MELTFRAM_NBVARPTR /*none*/0")); @@ -5384,12 +5481,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1238:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1240:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1234:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1236:/ quasiblock"); /*epilog */ @@ -5397,12 +5494,12 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:1239:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1241:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L6*/ meltfnum[5] = (( /*_#NBLONG__L2*/ meltfnum[1]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:1239:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1241:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -5412,7 +5509,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1241:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1243:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("#define MELTFRAM_NBVARNUM ")); @@ -5420,7 +5517,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1242:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1244:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ( /*_#NBLONG__L2*/ meltfnum[1])); @@ -5428,14 +5525,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1243:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1245:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1244:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1246:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (" long mcfr_varnum[")); @@ -5443,7 +5540,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1245:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1247:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ( /*_#NBLONG__L2*/ meltfnum[1])); @@ -5451,7 +5548,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1246:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1248:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("];")); @@ -5459,12 +5556,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1247:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1249:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1240:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1242:/ quasiblock"); /*epilog */ @@ -5473,7 +5570,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1239:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1241:/ cond.else"); /*^block */ /*anyblock */ @@ -5481,7 +5578,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1249:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1251:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("/*no varnum*/")); @@ -5489,14 +5586,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1250:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1252:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1251:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1253:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("#define MELTFRAM_NBVARNUM /*none*/0")); @@ -5504,12 +5601,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1252:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1254:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1248:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1250:/ quasiblock"); /*epilog */ @@ -5517,7 +5614,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:1253:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1255:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -5530,7 +5627,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1255:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1257:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("/*others*/")); @@ -5538,12 +5635,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1256:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1258:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1259:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1261:/ quasiblock"); /*^newclosure */ @@ -5572,7 +5669,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]); ; /*_.LAMBDA___V10*/ meltfptr[9] = /*_.LAMBDA___V11*/ meltfptr[10];; - MELT_LOCATION ("warmelt-outobj.melt:1257:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1259:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5591,7 +5688,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1254:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1256:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[12] = @@ -5601,7 +5698,7 @@ lab_endgetargs:; /*_.IFELSE___V9*/ meltfptr[7] = /*_.PROGN___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1253:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1255:/ clear"); /*clear *//*_.LAMBDA___V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LIST_EVERY__V12*/ meltfptr[11] = 0; @@ -5619,7 +5716,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1279:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1281:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("/*no others*/")); @@ -5627,12 +5724,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1280:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1282:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1278:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1280:/ quasiblock"); /*epilog */ @@ -5642,7 +5739,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1282:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1284:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (" long _spare_; }")); @@ -5650,13 +5747,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1283:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1285:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1183:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1185:/ clear"); /*clear *//*_.OBODY__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.ONBVAL__V5*/ meltfptr[4] = 0; @@ -5763,7 +5860,7 @@ meltrout_35_warmelt_outobj_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1259:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1261:/ getarg"); /*_.OLOC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -5775,7 +5872,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1260:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1262:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5787,7 +5884,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OLOC__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJLOCV */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:1260:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1262:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5795,7 +5892,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1260:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1262:/ cond.else"); /*^block */ /*anyblock */ @@ -5809,7 +5906,7 @@ lab_endgetargs:; melt_assert_failed (("check other oloc"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1260) ? (1260) : __LINE__, __FUNCTION__); + (1262) ? (1262) : __LINE__, __FUNCTION__); ; } ; @@ -5824,7 +5921,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1260:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1262:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -5835,7 +5932,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1261:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1263:/ quasiblock"); /*^getslot */ @@ -5846,7 +5943,7 @@ lab_endgetargs:; meltfptr[3] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1262:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1264:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OLOC__V2*/ meltfptr[1]), 3, "OBL_CNAME"); @@ -5856,7 +5953,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1264:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1266:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5868,7 +5965,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OCTYP__V5*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:1264:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1266:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5876,7 +5973,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1264:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1266:/ cond.else"); /*^block */ /*anyblock */ @@ -5890,7 +5987,7 @@ lab_endgetargs:; melt_assert_failed (("check octyp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1264) ? (1264) : __LINE__, __FUNCTION__); + (1266) ? (1266) : __LINE__, __FUNCTION__); ; } ; @@ -5905,7 +6002,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1264:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1266:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -5916,7 +6013,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1265:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1267:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCTYP__V5*/ meltfptr[3]), 3, "CTYPE_CNAME"); @@ -5936,7 +6033,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1266:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1268:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~DSBUF */ meltfclos->tabval[0])), (" ")); @@ -5944,7 +6041,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1267:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1269:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~DSBUF */ meltfclos->tabval[0])), melt_string_str ((melt_ptr_t) @@ -5953,7 +6050,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1268:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1270:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~DSBUF */ meltfclos->tabval[0])), (";")); @@ -5961,14 +6058,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1269:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1271:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~DSBUF */ meltfclos->tabval[0])), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1261:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1263:/ clear"); /*clear *//*_.OCTYP__V5*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.ONAME__V6*/ meltfptr[5] = 0; @@ -5976,13 +6073,13 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V7*/ meltfptr[6] = 0; /*^clear */ /*clear *//*_.CTYPE_CNAME__V9*/ meltfptr[7] = 0; - MELT_LOCATION ("warmelt-outobj.melt:1271:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1273:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[0] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~DSBUF */ meltfclos->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:1271:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1273:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6022,7 +6119,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[0]) > ( /*_#IRAW__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:1271:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1273:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -6032,7 +6129,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1272:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1274:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -6043,7 +6140,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1273:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1275:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6069,7 +6166,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1273:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1275:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -6084,7 +6181,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1273:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1275:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6098,7 +6195,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1273; + argtab[2].meltbp_long = 1275; /*^apply.arg */ argtab[3].meltbp_cstring = "output_curframe_declstruct huge dsbuf="; @@ -6120,7 +6217,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1273:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1275:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0; @@ -6133,7 +6230,7 @@ lab_endgetargs:; /*_.IF___V13*/ meltfptr[7] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1273:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1275:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[13] = /*_.IF___V13*/ meltfptr[7];; @@ -6142,7 +6239,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[6] = /*_.PROGN___V15*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1273:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1275:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V13*/ meltfptr[7] = 0; @@ -6157,7 +6254,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1274:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1276:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6168,7 +6265,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L9*/ meltfnum[7] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~DSBUF */ meltfclos->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:1275:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1277:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6203,7 +6300,7 @@ lab_endgetargs:; /*_#I__L11*/ meltfnum[10] = (( /*_#STRBUF_USEDLENGTH__L9*/ meltfnum[7]) < ( /*_#GET_INT__L10*/ meltfnum[6]));; - MELT_LOCATION ("warmelt-outobj.melt:1274:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1276:/ cond"); /*cond */ if ( /*_#I__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -6211,7 +6308,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1274:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1276:/ cond.else"); /*^block */ /*anyblock */ @@ -6225,7 +6322,7 @@ lab_endgetargs:; melt_assert_failed (("check limited dsbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1274) ? (1274) : __LINE__, + (1276) ? (1276) : __LINE__, __FUNCTION__); ; } @@ -6241,7 +6338,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[7] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1274:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1276:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V17*/ meltfptr[13] = 0; @@ -6258,7 +6355,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1271:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1273:/ quasiblock"); /*_.PROGN___V19*/ meltfptr[13] = /*_.IFCPP___V16*/ meltfptr[7];; @@ -6267,7 +6364,7 @@ lab_endgetargs:; /*_.IFELSE___V11*/ meltfptr[5] = /*_.PROGN___V19*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1271:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1273:/ clear"); /*clear *//*_.IFCPP___V12*/ meltfptr[6] = 0; /*^clear */ /*clear *//*_.IFCPP___V16*/ meltfptr[7] = 0; @@ -6282,14 +6379,26 @@ lab_endgetargs:; /*_.IFELSE___V11*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1259:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1261:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V11*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:1259:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:1261:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -6393,7 +6502,7 @@ meltrout_36_warmelt_outobj_OUTPUCOD_MARKER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1289:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1291:/ getarg"); /*_.ROU__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -6415,7 +6524,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1290:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1292:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6427,7 +6536,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ROU__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_ROUTINEOBJ */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:1290:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1292:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6435,7 +6544,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1290:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1292:/ cond.else"); /*^block */ /*anyblock */ @@ -6449,7 +6558,7 @@ lab_endgetargs:; melt_assert_failed (("check rou"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1290) ? (1290) : __LINE__, __FUNCTION__); + (1292) ? (1292) : __LINE__, __FUNCTION__); ; } ; @@ -6464,7 +6573,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1290:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1292:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; @@ -6475,7 +6584,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1291:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1293:/ quasiblock"); /*^cond */ @@ -6503,7 +6612,7 @@ lab_endgetargs:; /*_.OTHERS__V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1292:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1294:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6532,14 +6641,14 @@ lab_endgetargs:; /*_#NBVAL__L2*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) ( /*_.OBROUT_NBVAL__V8*/ meltfptr[7])));; - MELT_LOCATION ("warmelt-outobj.melt:1294:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1296:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L3*/ meltfnum[2] = !melt_is_instance_of ((melt_ptr_t) ( /*_.ROU__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_INITIALROUTINEOBJ */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:1294:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1296:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L3*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -6547,7 +6656,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1296:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1298:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6574,7 +6683,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1296:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1298:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -6585,7 +6694,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1297:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1299:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), @@ -6594,18 +6703,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1298:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1300:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (3), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1295:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1297:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1294:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1296:/ clear"); /*clear *//*_.CTYPE_MARKER__V9*/ meltfptr[8] = 0; } ; @@ -6613,7 +6722,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1299:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1301:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ("for(ix=0; ix<")); @@ -6621,14 +6730,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1300:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1302:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ( /*_#NBVAL__L2*/ meltfnum[0])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1301:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1303:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ("; ix++)")); @@ -6636,14 +6745,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1302:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1304:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (4), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1303:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1305:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ("if (meltframptr_->mcfr_varptr[ix])")); @@ -6651,12 +6760,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1304:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1306:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (5), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1305:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1307:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6684,7 +6793,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1305:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1307:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), melt_string_str ((melt_ptr_t) @@ -6694,7 +6803,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1306:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1308:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (" (meltframptr_->mcfr_varptr[ix]);")); @@ -6702,12 +6811,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1307:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1309:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (3), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1310:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1312:/ quasiblock"); /*^newclosure */ @@ -6732,7 +6841,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]); ; /*_.LAMBDA___V11*/ meltfptr[10] = /*_.LAMBDA___V12*/ meltfptr[11];; - MELT_LOCATION ("warmelt-outobj.melt:1308:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1310:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6753,7 +6862,7 @@ lab_endgetargs:; ; /*_.LET___V6*/ meltfptr[4] = /*_.LIST_EVERY__V13*/ meltfptr[12];; - MELT_LOCATION ("warmelt-outobj.melt:1291:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1293:/ clear"); /*clear *//*_.OTHERS__V7*/ meltfptr[6] = 0; /*^clear */ /*clear *//*_.OBROUT_NBVAL__V8*/ meltfptr[7] = 0; @@ -6767,14 +6876,26 @@ lab_endgetargs:; /*clear *//*_.LAMBDA___V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.LIST_EVERY__V13*/ meltfptr[12] = 0; - MELT_LOCATION ("warmelt-outobj.melt:1289:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1291:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; - MELT_LOCATION ("warmelt-outobj.melt:1289:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:1291:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -6867,7 +6988,7 @@ meltrout_37_warmelt_outobj_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1310:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1312:/ getarg"); /*_.OLOC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -6879,7 +7000,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1311:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1313:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6891,7 +7012,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OLOC__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJLOCV */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:1311:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1313:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6899,7 +7020,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1311:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1313:/ cond.else"); /*^block */ /*anyblock */ @@ -6913,7 +7034,7 @@ lab_endgetargs:; melt_assert_failed (("check other oloc"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1311) ? (1311) : __LINE__, __FUNCTION__); + (1313) ? (1313) : __LINE__, __FUNCTION__); ; } ; @@ -6928,7 +7049,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1311:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1313:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -6939,7 +7060,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1312:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1314:/ quasiblock"); /*^cond */ @@ -6967,7 +7088,7 @@ lab_endgetargs:; /*_.OCTYP__V6*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1313:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1315:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6992,7 +7113,7 @@ lab_endgetargs:; /*_.ONAME__V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1314:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1316:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7019,7 +7140,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1316:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1318:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7031,7 +7152,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OCTYP__V6*/ meltfptr[5]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:1316:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1318:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7039,7 +7160,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1316:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1318:/ cond.else"); /*^block */ /*anyblock */ @@ -7053,7 +7174,7 @@ lab_endgetargs:; melt_assert_failed (("check octyp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1316) ? (1316) : __LINE__, __FUNCTION__); + (1318) ? (1318) : __LINE__, __FUNCTION__); ; } ; @@ -7068,7 +7189,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[8] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1316:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1318:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -7079,13 +7200,13 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1318:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1320:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L3*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.OMARKER__V8*/ meltfptr[7])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:1318:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1320:/ cond"); /*cond */ if ( /*_#IS_STRING__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7095,7 +7216,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1319:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1321:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -7104,7 +7225,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1320:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1322:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -7115,7 +7236,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1321:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1323:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -7124,7 +7245,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1322:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1324:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -7135,7 +7256,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1323:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1325:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -7144,7 +7265,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1324:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1326:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -7155,7 +7276,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1325:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1327:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -7164,13 +7285,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1326:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1328:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), (3), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1318:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1320:/ quasiblock"); /*epilog */ @@ -7184,7 +7305,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1328:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1330:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[3] = @@ -7192,7 +7313,7 @@ lab_endgetargs:; ( /*_.OMARKER__V8*/ meltfptr[7]), (melt_ptr_t) (( /*!CLASS_NAMED */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:1328:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1330:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -7202,7 +7323,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1329:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1331:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> @@ -7211,7 +7332,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1330:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1332:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> @@ -7223,14 +7344,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1331:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1333:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> tabval[0])), (") ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1332:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1334:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7257,7 +7378,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1332:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1334:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> @@ -7268,7 +7389,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1333:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1335:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> @@ -7277,7 +7398,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1334:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1336:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> @@ -7289,7 +7410,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1335:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1337:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> @@ -7298,13 +7419,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1336:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1338:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> tabval[0])), (3), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1328:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1330:/ quasiblock"); /*epilog */ @@ -7325,7 +7446,7 @@ lab_endgetargs:; /*_.IFELSE___V11*/ meltfptr[9] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1318:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1320:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -7335,7 +7456,7 @@ lab_endgetargs:; ; /*_.LET___V5*/ meltfptr[3] = /*_.IFELSE___V11*/ meltfptr[9];; - MELT_LOCATION ("warmelt-outobj.melt:1312:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1314:/ clear"); /*clear *//*_.OCTYP__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.ONAME__V7*/ meltfptr[6] = 0; @@ -7349,7 +7470,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V11*/ meltfptr[9] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1339:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1341:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7360,7 +7481,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[3] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:1340:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1342:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7395,7 +7516,7 @@ lab_endgetargs:; /*_#I__L7*/ meltfnum[6] = (( /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[3]) < ( /*_#GET_INT__L6*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:1339:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1341:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -7403,7 +7524,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1339:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1341:/ cond.else"); /*^block */ /*anyblock */ @@ -7417,7 +7538,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1339) ? (1339) : __LINE__, __FUNCTION__); + (1341) ? (1341) : __LINE__, __FUNCTION__); ; } ; @@ -7432,7 +7553,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V16*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1339:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1341:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V15*/ meltfptr[11] = 0; @@ -7449,14 +7570,26 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1310:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1312:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V14*/ meltfptr[12];; - MELT_LOCATION ("warmelt-outobj.melt:1310:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:1312:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -7559,7 +7692,7 @@ meltrout_38_warmelt_outobj_OUTPUT_CURFRAME_DECLSTRUCT_INIT (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1346:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1348:/ getarg"); /*_.DECLSTRUCT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -7588,10 +7721,10 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:1347:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1349:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:1348:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1350:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ROU__V3*/ meltfptr[2]), 3, "OBROUT_BODY"); @@ -7599,7 +7732,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1349:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1351:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ROU__V3*/ meltfptr[2]), 4, "OBROUT_NBVAL"); @@ -7607,7 +7740,7 @@ lab_endgetargs:; meltfptr[6] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1350:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1352:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ROU__V3*/ meltfptr[2]), 5, "OBROUT_NBLONG"); @@ -7627,7 +7760,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ROU__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_INITIALROUTINEOBJ */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:1354:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1356:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ROU__V3*/ meltfptr[2]), 6, "OBROUT_OTHERS"); @@ -7635,7 +7768,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1355:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1357:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7662,14 +7795,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1358:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1360:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1359:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1361:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#if MELT_HAVE_DEBUG")); @@ -7677,14 +7810,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1360:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1362:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1361:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1363:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" static long call_counter__;")); @@ -7692,14 +7825,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1362:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1364:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1363:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1365:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__;")); @@ -7707,14 +7840,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1364:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1366:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1365:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1367:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef meltcallcount")); @@ -7722,14 +7855,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1366:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1368:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1367:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1369:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#define meltcallcount thiscallcounter__")); @@ -7737,14 +7870,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1368:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1370:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1369:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1371:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#else")); @@ -7752,14 +7885,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1370:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1372:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1371:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1373:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef meltcallcount")); @@ -7767,14 +7900,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1372:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1374:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1373:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1375:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#define meltcallcount 0L")); @@ -7782,14 +7915,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1374:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1376:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1375:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1377:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#endif")); @@ -7797,12 +7930,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1376:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1378:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1377:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1379:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7819,12 +7952,12 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1378:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1380:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NOT__L4*/ meltfnum[3] = (!( /*_#ISINITIAL__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1378:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1380:/ cond"); /*cond */ if ( /*_#NOT__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -7834,7 +7967,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1379:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1381:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -7848,7 +7981,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1380:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1382:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" meltfram__;")); @@ -7856,25 +7989,25 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1381:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1383:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1382:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1384:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#define meltframe meltfram__")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1383:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1385:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NOT__L5*/ meltfnum[4] = (!( /*_#ISINITIAL__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1383:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1385:/ cond"); /*cond */ if ( /*_#NOT__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -7884,7 +8017,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1385:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1387:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (2), 0); @@ -7892,7 +8025,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1386:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1388:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -7901,7 +8034,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1387:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1389:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (3), 0); @@ -7909,7 +8042,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1388:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1390:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -7918,13 +8051,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1389:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1391:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (3), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1390:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1392:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -7935,7 +8068,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1391:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1393:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7963,7 +8096,7 @@ lab_endgetargs:; /*_.ADD2OUT__V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1390:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1392:/ clear"); /*clear *//*_.ADD2OUT__V13*/ meltfptr[12] = 0; } ; @@ -7979,7 +8112,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1392:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1394:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -7994,13 +8127,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1393:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1395:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (3), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1394:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1396:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8021,7 +8154,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1395:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1397:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -8030,7 +8163,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1396:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1398:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (2), 0); @@ -8038,19 +8171,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1397:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1399:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}/*end markggc*/;")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1384:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1386:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1383:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1385:/ clear"); /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.OUTPUCOD_MARKER__V14*/ meltfptr[12] = 0; @@ -8060,14 +8193,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1400:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1402:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1401:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1403:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" memset(&meltfram__, 0, sizeof(meltfram__));")); @@ -8075,14 +8208,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1402:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1404:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1403:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1405:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" meltfram__.mcfr_nbvar = ")); @@ -8090,14 +8223,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1404:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1406:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBVAL__L1*/ meltfnum[0])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1405:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1407:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -8105,17 +8238,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1406:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1408:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1407:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1409:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NOT__L6*/ meltfnum[5] = (!( /*_#ISINITIAL__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1407:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1409:/ cond"); /*cond */ if ( /*_#NOT__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -8125,7 +8258,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1409:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1411:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -8134,13 +8267,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1410:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1412:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1408:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1410:/ quasiblock"); /*epilog */ @@ -8150,7 +8283,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1411:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1413:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe;")); @@ -8158,14 +8291,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1412:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1414:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1413:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1415:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_topframe = (struct melt_callframe_st *) &meltfram__;")); @@ -8173,14 +8306,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1414:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1416:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1415:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1417:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8191,7 +8324,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1416:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1418:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -8226,7 +8359,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6]) < ( /*_#GET_INT__L8*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:1415:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1417:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -8234,7 +8367,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1415:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1417:/ cond.else"); /*^block */ /*anyblock */ @@ -8248,7 +8381,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1415) ? (1415) : __LINE__, __FUNCTION__); + (1417) ? (1417) : __LINE__, __FUNCTION__); ; } ; @@ -8263,7 +8396,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[11] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1415:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1417:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V16*/ meltfptr[12] = 0; @@ -8284,7 +8417,7 @@ lab_endgetargs:; /*_.LET___V5*/ meltfptr[4] = /*_.IFCPP___V15*/ meltfptr[11];; - MELT_LOCATION ("warmelt-outobj.melt:1347:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1349:/ clear"); /*clear *//*_.OBODY__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.ONBVAL__V7*/ meltfptr[6] = 0; @@ -8310,11 +8443,23 @@ lab_endgetargs:; /*clear *//*_#NOT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IFCPP___V15*/ meltfptr[11] = 0; - MELT_LOCATION ("warmelt-outobj.melt:1346:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1348:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[4];; - MELT_LOCATION ("warmelt-outobj.melt:1346:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:1348:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -8408,7 +8553,7 @@ meltrout_39_warmelt_outobj_OUTPUCOD_PROCROUTINE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1420:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1422:/ getarg"); /*_.PROU__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -8446,7 +8591,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1421:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1423:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8458,7 +8603,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_PROCROUTINEOBJ */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:1421:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1423:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8466,7 +8611,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1421:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1423:/ cond.else"); /*^block */ /*anyblock */ @@ -8480,7 +8625,7 @@ lab_endgetargs:; melt_assert_failed (("check prou"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1421) ? (1421) : __LINE__, __FUNCTION__); + (1423) ? (1423) : __LINE__, __FUNCTION__); ; } ; @@ -8495,7 +8640,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1421:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1423:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -8506,7 +8651,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1422:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1424:/ quasiblock"); /*^getslot */ @@ -8517,7 +8662,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1423:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1425:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 3, "OBROUT_BODY"); @@ -8525,7 +8670,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1424:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1426:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 4, "OBROUT_NBVAL"); @@ -8533,7 +8678,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1425:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1427:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 5, "OBROUT_NBLONG"); @@ -8547,7 +8692,7 @@ lab_endgetargs:; /*_#NBLONG__L4*/ meltfnum[3] = (melt_get_int ((melt_ptr_t) ( /*_.ONBLONG__V11*/ meltfptr[10])));; - MELT_LOCATION ("warmelt-outobj.melt:1428:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 6, "OBROUT_OTHERS"); @@ -8555,7 +8700,7 @@ lab_endgetargs:; meltfptr[11] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1429:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1431:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 10, "OPROUT_GETARGS"); @@ -8563,7 +8708,7 @@ lab_endgetargs:; meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1430:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1432:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 7, "OBROUT_RETVAL"); @@ -8571,7 +8716,7 @@ lab_endgetargs:; meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1431:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1433:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 11, "OPROUT_LOC"); @@ -8579,7 +8724,7 @@ lab_endgetargs:; meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1432:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1434:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 12, "OPROUT_FUNAM"); @@ -8587,7 +8732,7 @@ lab_endgetargs:; meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1433:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1435:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 13, "OPROUT_RESTNAM"); @@ -8595,7 +8740,7 @@ lab_endgetargs:; meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1435:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1437:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L5*/ meltfnum[4] = @@ -8605,7 +8750,7 @@ lab_endgetargs:; /*_#NOT__L6*/ meltfnum[5] = (!( /*_#IS_STRING__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:1435:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1437:/ cond"); /*cond */ if ( /*_#NOT__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -8613,13 +8758,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1436:/ compute"); + MELT_LOCATION ("warmelt-outobj.melt:1438:/ compute"); /*_.OFUNAM__V16*/ meltfptr[15] = /*_.SETQ___V19*/ meltfptr[18] = ( /*!konst_1 */ meltfrout->tabval[1]);; /*_.IF___V18*/ meltfptr[17] = /*_.SETQ___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1435:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1437:/ clear"); /*clear *//*_.SETQ___V19*/ meltfptr[18] = 0; } ; @@ -8632,19 +8777,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1438:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1440:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1439:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1441:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1440:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1442:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8668,18 +8813,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1441:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1443:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1442:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1444:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MIXINT__L7*/ meltfnum[6] = (melt_magic_discr ((melt_ptr_t) ( /*_.ORLOC__V15*/ meltfptr[14])) == MELTOBMAG_MIXINT);; - MELT_LOCATION ("warmelt-outobj.melt:1442:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1444:/ cond"); /*cond */ if ( /*_#IS_MIXINT__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -8687,7 +8832,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1442:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1444:/ cond.else"); /*^block */ /*anyblock */ @@ -8701,7 +8846,7 @@ lab_endgetargs:; /*_#OR___L8*/ meltfnum[7] = /*_#IS_MIXLOC__L9*/ meltfnum[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1442:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1444:/ clear"); /*clear *//*_#IS_MIXLOC__L9*/ meltfnum[8] = 0; } ; @@ -8715,7 +8860,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1443:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1445:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8743,7 +8888,7 @@ lab_endgetargs:; /*_.OUTPUT_RAW_LOCATION__V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1442:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1444:/ clear"); /*clear *//*_.OUTPUT_RAW_LOCATION__V22*/ meltfptr[21] = 0; } ; @@ -8756,7 +8901,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1445:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1447:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("melt_ptr_t MELT_MODULE_VISIBILITY ")); @@ -8764,7 +8909,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1446:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1448:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), melt_string_str ((melt_ptr_t) @@ -8773,7 +8918,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1447:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1449:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("(meltclosure_ptr_t meltclosp_,")); @@ -8781,7 +8926,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1448:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1450:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (" melt_ptr_t meltfirstargp_,")); @@ -8789,7 +8934,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1449:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1451:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (" const melt_argdescr_cell_t meltxargdescr_[],")); @@ -8797,7 +8942,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1450:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1452:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (" union meltparam_un *meltxargtab_,")); @@ -8805,7 +8950,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1451:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1453:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (" const melt_argdescr_cell_t meltxresdescr_[],")); @@ -8813,7 +8958,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1452:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1454:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (" union meltparam_un *meltxrestab_);")); @@ -8821,35 +8966,35 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1453:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1455:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1455:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1457:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1456:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1458:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1457:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1459:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1458:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1460:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_ptr_t MELT_MODULE_VISIBILITY ")); @@ -8857,14 +9002,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1459:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1461:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1460:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1462:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -8873,7 +9018,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1461:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1463:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("(meltclosure_ptr_t meltclosp_,")); @@ -8881,7 +9026,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1462:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1464:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_ptr_t meltfirstargp_,")); @@ -8889,7 +9034,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1463:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1465:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" const melt_argdescr_cell_t meltxargdescr_[],")); @@ -8897,7 +9042,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1464:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1466:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" union meltparam_un *meltxargtab_,")); @@ -8905,14 +9050,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1465:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1467:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (5), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1466:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1468:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" const melt_argdescr_cell_t meltxresdescr_[],")); @@ -8920,7 +9065,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1467:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1469:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" union meltparam_un *meltxrestab_)")); @@ -8928,20 +9073,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1468:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1470:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1469:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1471:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1470:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1472:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -8952,7 +9097,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1471:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1473:/ quasiblock"); /*^checksignal */ @@ -8970,7 +9115,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1472:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1474:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8987,7 +9132,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1474:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1476:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); @@ -8995,7 +9140,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1475:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1477:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9004,7 +9149,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1476:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1478:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9015,7 +9160,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1477:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1479:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9024,7 +9169,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1478:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1480:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9035,7 +9180,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1479:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1481:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9044,7 +9189,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1480:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1482:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -9052,7 +9197,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1487:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1489:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9061,7 +9206,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1488:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1490:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9072,7 +9217,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1489:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1491:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")")); @@ -9080,7 +9225,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1490:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1492:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -9088,7 +9233,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1491:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1493:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9097,7 +9242,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1492:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1494:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9108,14 +9253,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1493:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1495:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1471:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1473:/ clear"); /*clear *//*_.OVARIADICINDEX__V23*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.OVARIADICLENGTH__V24*/ meltfptr[23] = 0; @@ -9126,12 +9271,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1496:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1498:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (2), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1497:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1499:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9155,12 +9300,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1498:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1500:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1499:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1501:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9184,7 +9329,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1500:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1502:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_trace_start(\"")); @@ -9192,7 +9337,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1501:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1503:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -9202,7 +9347,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1502:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1504:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\", meltcallcount);")); @@ -9210,14 +9355,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1503:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1505:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1505:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1507:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*getargs*/")); @@ -9225,14 +9370,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1506:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1508:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1507:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1509:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9246,7 +9391,7 @@ lab_endgetargs:; (melt_unsafe_magic_discr ((melt_ptr_t) ( /*_.OGARGS__V13*/ meltfptr[12])) == MELTOBMAG_MULTIPLE));; - MELT_LOCATION ("warmelt-outobj.melt:1507:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1509:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE_OR_NULL__L10*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -9254,7 +9399,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1507:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1509:/ cond.else"); /*^block */ /*anyblock */ @@ -9268,7 +9413,7 @@ lab_endgetargs:; melt_assert_failed (("check ogargs"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1507) ? (1507) : __LINE__, __FUNCTION__); + (1509) ? (1509) : __LINE__, __FUNCTION__); ; } ; @@ -9283,7 +9428,7 @@ lab_endgetargs:; /*_.IFCPP___V27*/ meltfptr[26] = /*_.IFELSE___V28*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1507:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1509:/ clear"); /*clear *//*_#IS_MULTIPLE_OR_NULL__L10*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V28*/ meltfptr[27] = 0; @@ -9312,7 +9457,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1511:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1513:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); @@ -9320,7 +9465,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1512:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1514:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9329,7 +9474,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1513:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1515:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#CURANK__L11*/ meltfnum[8])); @@ -9337,7 +9482,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1514:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1516:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -9345,13 +9490,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1515:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1517:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1516:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1518:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -9375,13 +9520,13 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1518:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1520:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L12*/ meltfnum[11] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1518:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1520:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -9420,7 +9565,7 @@ lab_endgetargs:; /*_#I__L15*/ meltfnum[14] = (( /*_#STRBUF_USEDLENGTH__L12*/ meltfnum[11]) > ( /*_#IRAW__L14*/ meltfnum[13]));; - MELT_LOCATION ("warmelt-outobj.melt:1518:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1520:/ cond"); /*cond */ if ( /*_#I__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -9430,7 +9575,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1519:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1521:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -9441,7 +9586,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1520:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1522:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9467,7 +9612,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1520:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1522:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -9483,7 +9628,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:1520:/ checksignal"); + ("warmelt-outobj.melt:1522:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9497,7 +9642,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1520; + argtab[2].meltbp_long = 1522; /*^apply.arg */ argtab[3].meltbp_cstring = "outpucod_procroutine huge implbuf="; @@ -9519,7 +9664,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1520:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1522:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0; /*^clear */ @@ -9533,7 +9678,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1520:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1522:/ quasiblock"); /*_.PROGN___V36*/ meltfptr[34] = @@ -9544,7 +9689,7 @@ lab_endgetargs:; /*_.PROGN___V36*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1520:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1522:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V34*/ meltfptr[33] = 0; @@ -9559,7 +9704,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1521:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1523:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9571,7 +9716,7 @@ lab_endgetargs:; melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1522:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1524:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -9606,7 +9751,7 @@ lab_endgetargs:; /*_#I__L20*/ meltfnum[19] = (( /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[16]) < ( /*_#GET_INT__L19*/ meltfnum[15]));; - MELT_LOCATION ("warmelt-outobj.melt:1521:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1523:/ cond"); /*cond */ if ( /*_#I__L20*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -9614,7 +9759,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1521:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1523:/ cond.else"); /*^block */ /*anyblock */ @@ -9629,7 +9774,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1521) ? (1521) : __LINE__, + (1523) ? (1523) : __LINE__, __FUNCTION__); ; } @@ -9646,7 +9791,7 @@ lab_endgetargs:; /*_.IFELSE___V39*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1521:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1523:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L18*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V38*/ meltfptr[34] = 0; @@ -9663,7 +9808,7 @@ lab_endgetargs:; /*_.IFCPP___V37*/ meltfptr[33] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1518:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1520:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[34] = @@ -9674,7 +9819,7 @@ lab_endgetargs:; /*_.PROGN___V40*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1518:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1520:/ clear"); /*clear *//*_.IFCPP___V33*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_.IFCPP___V37*/ meltfptr[33] = 0; @@ -9695,7 +9840,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1508:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1510:/ clear"); /*clear *//*_.CURGET__V29*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_#CURANK__L11*/ meltfnum[8] = 0; @@ -9717,7 +9862,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1524:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1526:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -9725,14 +9870,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1525:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1527:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1526:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1528:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" goto lab_endgetargs;")); @@ -9740,14 +9885,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1527:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1529:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1528:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1530:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("lab_endgetargs:;")); @@ -9755,14 +9900,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1529:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1531:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1531:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1533:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9773,7 +9918,7 @@ lab_endgetargs:; /*_#IS_LIST__L21*/ meltfnum[16] = (melt_magic_discr ((melt_ptr_t) ( /*_.OBODY__V9*/ meltfptr[8])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:1531:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1533:/ cond"); /*cond */ if ( /*_#IS_LIST__L21*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -9781,7 +9926,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1531:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1533:/ cond.else"); /*^block */ /*anyblock */ @@ -9795,7 +9940,7 @@ lab_endgetargs:; melt_assert_failed (("check obody"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1531) ? (1531) : __LINE__, __FUNCTION__); + (1533) ? (1533) : __LINE__, __FUNCTION__); ; } ; @@ -9810,7 +9955,7 @@ lab_endgetargs:; /*_.IFCPP___V41*/ meltfptr[38] = /*_.IFELSE___V42*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1531:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1533:/ clear"); /*clear *//*_#IS_LIST__L21*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.IFELSE___V42*/ meltfptr[32] = 0; @@ -9823,7 +9968,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1532:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1534:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*body*/")); @@ -9831,12 +9976,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1533:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1535:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1536:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1538:/ quasiblock"); /*^newclosure */ @@ -9874,7 +10019,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V43*/ meltfptr[33] = /*_.LAMBDA___V44*/ meltfptr[34];; - MELT_LOCATION ("warmelt-outobj.melt:1534:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1536:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9895,7 +10040,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1545:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1547:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -9903,14 +10048,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1546:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1548:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1547:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1549:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" goto labend_rout;")); @@ -9918,14 +10063,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1548:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1550:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1549:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1551:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("labend_rout:")); @@ -9933,14 +10078,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1550:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1552:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1551:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1553:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_trace_end(\"")); @@ -9948,7 +10093,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1552:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1554:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -9958,7 +10103,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1553:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1555:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\", meltcallcount);")); @@ -9966,12 +10111,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1554:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1556:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1555:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1557:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9996,14 +10141,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1556:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1558:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1557:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1559:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_topframe = (struct melt_callframe_st*) meltfram__.mcfr_prev;")); @@ -10011,20 +10156,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1558:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1560:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1559:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1561:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" return (melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1560:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1562:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -10035,7 +10180,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1561:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1563:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -10063,7 +10208,7 @@ lab_endgetargs:; /*_.OUTPUT_C_CODE__V48*/ meltfptr[47];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1560:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1562:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V48*/ meltfptr[47] = 0; } ; @@ -10079,7 +10224,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1562:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1564:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -10094,13 +10239,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1563:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1565:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1564:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1566:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -10113,7 +10258,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1566:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1568:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -10121,7 +10266,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1567:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1569:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -10130,7 +10275,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1568:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1570:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -10138,7 +10283,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1569:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1571:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -10147,13 +10292,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1570:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1572:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1565:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1567:/ quasiblock"); /*epilog */ @@ -10163,14 +10308,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1571:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1573:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1572:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1574:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef meltcallcount")); @@ -10178,14 +10323,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1573:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1575:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1574:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1576:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef meltfram__")); @@ -10193,14 +10338,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1575:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1577:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1576:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1578:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef MELTFRAM_NBVARNUM")); @@ -10208,14 +10353,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1577:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1579:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1578:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1580:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef MELTFRAM_NBVARPTR")); @@ -10223,14 +10368,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1579:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1581:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1580:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1582:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} /*end ")); @@ -10238,7 +10383,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1581:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1583:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -10247,7 +10392,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1582:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1584:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -10255,24 +10400,24 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1583:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1585:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1584:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1586:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1586:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1588:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L22*/ meltfnum[15] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1586:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1588:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -10313,7 +10458,7 @@ lab_endgetargs:; /*_#I__L25*/ meltfnum[24] = (( /*_#STRBUF_USEDLENGTH__L22*/ meltfnum[15]) > ( /*_#IRAW__L24*/ meltfnum[16]));; - MELT_LOCATION ("warmelt-outobj.melt:1586:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1588:/ cond"); /*cond */ if ( /*_#I__L25*/ meltfnum[24]) /*then */ { /*^cond.then */ @@ -10323,7 +10468,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1587:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1589:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -10335,7 +10480,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1588:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1590:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10361,7 +10506,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1588:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1590:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L26*/ meltfnum[25]) /*then */ { /*^cond.then */ @@ -10376,7 +10521,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1588:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1590:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10390,7 +10535,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1588; + argtab[2].meltbp_long = 1590; /*^apply.arg */ argtab[3].meltbp_cstring = "outpucod_procroutine huge declbuf="; @@ -10412,7 +10557,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1588:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1590:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L27*/ meltfnum[26] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V53*/ meltfptr[52] = 0; @@ -10425,7 +10570,7 @@ lab_endgetargs:; /*_.IF___V52*/ meltfptr[51] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1588:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1590:/ quasiblock"); /*_.PROGN___V54*/ meltfptr[52] = /*_.IF___V52*/ meltfptr[51];; @@ -10434,7 +10579,7 @@ lab_endgetargs:; /*_.IFCPP___V51*/ meltfptr[50] = /*_.PROGN___V54*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1588:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1590:/ clear"); /*clear *//*_#MELT_NEED_DBG__L26*/ meltfnum[25] = 0; /*^clear */ /*clear *//*_.IF___V52*/ meltfptr[51] = 0; @@ -10449,7 +10594,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1589:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1591:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10460,7 +10605,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L28*/ meltfnum[26] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1590:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1592:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -10495,7 +10640,7 @@ lab_endgetargs:; /*_#I__L30*/ meltfnum[29] = (( /*_#STRBUF_USEDLENGTH__L28*/ meltfnum[26]) < ( /*_#GET_INT__L29*/ meltfnum[25]));; - MELT_LOCATION ("warmelt-outobj.melt:1589:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1591:/ cond"); /*cond */ if ( /*_#I__L30*/ meltfnum[29]) /*then */ { /*^cond.then */ @@ -10503,7 +10648,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1589:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1591:/ cond.else"); /*^block */ /*anyblock */ @@ -10517,7 +10662,7 @@ lab_endgetargs:; melt_assert_failed (("check limited declbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1589) ? (1589) : __LINE__, + (1591) ? (1591) : __LINE__, __FUNCTION__); ; } @@ -10533,7 +10678,7 @@ lab_endgetargs:; /*_.IFCPP___V55*/ meltfptr[51] = /*_.IFELSE___V57*/ meltfptr[56];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1589:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1591:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L28*/ meltfnum[26] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V56*/ meltfptr[52] = 0; @@ -10550,7 +10695,7 @@ lab_endgetargs:; /*_.IFCPP___V55*/ meltfptr[51] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1586:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1588:/ quasiblock"); /*_.PROGN___V58*/ meltfptr[52] = /*_.IFCPP___V55*/ meltfptr[51];; @@ -10559,7 +10704,7 @@ lab_endgetargs:; /*_.IFELSE___V50*/ meltfptr[49] = /*_.PROGN___V58*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1586:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1588:/ clear"); /*clear *//*_.IFCPP___V51*/ meltfptr[50] = 0; /*^clear */ /*clear *//*_.IFCPP___V55*/ meltfptr[51] = 0; @@ -10574,12 +10719,12 @@ lab_endgetargs:; /*_.IFELSE___V50*/ meltfptr[49] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1592:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1594:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L31*/ meltfnum[26] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1592:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1594:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -10620,7 +10765,7 @@ lab_endgetargs:; /*_#I__L34*/ meltfnum[33] = (( /*_#STRBUF_USEDLENGTH__L31*/ meltfnum[26]) > ( /*_#IRAW__L33*/ meltfnum[29]));; - MELT_LOCATION ("warmelt-outobj.melt:1592:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1594:/ cond"); /*cond */ if ( /*_#I__L34*/ meltfnum[33]) /*then */ { /*^cond.then */ @@ -10630,7 +10775,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1593:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1595:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -10642,7 +10787,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1594:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1596:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10668,7 +10813,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1594:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1596:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L35*/ meltfnum[34]) /*then */ { /*^cond.then */ @@ -10683,7 +10828,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1594:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1596:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10697,7 +10842,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1594; + argtab[2].meltbp_long = 1596; /*^apply.arg */ argtab[3].meltbp_cstring = "outpucod_procroutine huge implbuf="; @@ -10719,7 +10864,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1594:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1596:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L36*/ meltfnum[35] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = 0; @@ -10732,7 +10877,7 @@ lab_endgetargs:; /*_.IF___V62*/ meltfptr[52] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1594:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1596:/ quasiblock"); /*_.PROGN___V64*/ meltfptr[62] = /*_.IF___V62*/ meltfptr[52];; @@ -10741,7 +10886,7 @@ lab_endgetargs:; /*_.IFCPP___V61*/ meltfptr[51] = /*_.PROGN___V64*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1594:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1596:/ clear"); /*clear *//*_#MELT_NEED_DBG__L35*/ meltfnum[34] = 0; /*^clear */ /*clear *//*_.IF___V62*/ meltfptr[52] = 0; @@ -10756,7 +10901,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1595:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1597:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10767,7 +10912,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L37*/ meltfnum[35] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1596:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1598:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -10802,7 +10947,7 @@ lab_endgetargs:; /*_#I__L39*/ meltfnum[38] = (( /*_#STRBUF_USEDLENGTH__L37*/ meltfnum[35]) < ( /*_#GET_INT__L38*/ meltfnum[34]));; - MELT_LOCATION ("warmelt-outobj.melt:1595:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1597:/ cond"); /*cond */ if ( /*_#I__L39*/ meltfnum[38]) /*then */ { /*^cond.then */ @@ -10810,7 +10955,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1595:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1597:/ cond.else"); /*^block */ /*anyblock */ @@ -10824,7 +10969,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1595) ? (1595) : __LINE__, + (1597) ? (1597) : __LINE__, __FUNCTION__); ; } @@ -10840,7 +10985,7 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[52] = /*_.IFELSE___V67*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1595:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1597:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L37*/ meltfnum[35] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V66*/ meltfptr[62] = 0; @@ -10857,7 +11002,7 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[52] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1592:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1594:/ quasiblock"); /*_.PROGN___V68*/ meltfptr[62] = /*_.IFCPP___V65*/ meltfptr[52];; @@ -10866,7 +11011,7 @@ lab_endgetargs:; /*_.IFELSE___V60*/ meltfptr[50] = /*_.PROGN___V68*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1592:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1594:/ clear"); /*clear *//*_.IFCPP___V61*/ meltfptr[51] = 0; /*^clear */ /*clear *//*_.IFCPP___V65*/ meltfptr[52] = 0; @@ -10885,7 +11030,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFELSE___V60*/ meltfptr[50];; - MELT_LOCATION ("warmelt-outobj.melt:1422:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1424:/ clear"); /*clear *//*_.ONAM__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OBODY__V9*/ meltfptr[8] = 0; @@ -10963,14 +11108,26 @@ lab_endgetargs:; /*clear *//*_#I__L34*/ meltfnum[33] = 0; /*^clear */ /*clear *//*_.IFELSE___V60*/ meltfptr[50] = 0; - MELT_LOCATION ("warmelt-outobj.melt:1420:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1422:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:1420:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:1422:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -11063,7 +11220,7 @@ meltrout_40_warmelt_outobj_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1536:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1538:/ getarg"); /*_.CURBODY__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -11073,7 +11230,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:1537:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1539:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -11101,7 +11258,7 @@ lab_endgetargs:; /*_#IF___L1*/ meltfnum[0] = /*_#NOT__L3*/ meltfnum[2];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1537:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1539:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_#NOT__L3*/ meltfnum[2] = 0; @@ -11114,7 +11271,7 @@ lab_endgetargs:; /*_#IF___L1*/ meltfnum[0] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1537:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1539:/ cond"); /*cond */ if ( /*_#IF___L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11122,7 +11279,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1539:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1541:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -11148,18 +11305,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1540:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1542:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1538:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1540:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1537:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1539:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = 0; } ; @@ -11167,7 +11324,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1541:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1543:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11178,7 +11335,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:1542:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1544:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -11213,7 +11370,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < ( /*_#GET_INT__L5*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1541:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1543:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -11221,7 +11378,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1541:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1543:/ cond.else"); /*^block */ /*anyblock */ @@ -11235,7 +11392,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1541) ? (1541) : __LINE__, __FUNCTION__); + (1543) ? (1543) : __LINE__, __FUNCTION__); ; } ; @@ -11250,7 +11407,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[2] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1541:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1543:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V5*/ meltfptr[4] = 0; @@ -11267,14 +11424,26 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1536:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1538:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V4*/ meltfptr[2];; - MELT_LOCATION ("warmelt-outobj.melt:1536:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:1538:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -11375,7 +11544,7 @@ meltrout_41_warmelt_outobj_OUTPUT_CURFRAME_CDAT_STRUCT (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1604:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1606:/ getarg"); /*_.IDATUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -11397,14 +11566,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1605:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1607:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1606:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1608:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ("struct cdata_st {")); @@ -11428,13 +11597,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1610:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1612:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1611:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1613:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -11458,7 +11627,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1607:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1609:/ clear"); /*clear *//*_.CURDAT__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_#CURK__L1*/ meltfnum[0] = 0; @@ -11468,14 +11637,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1612:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1614:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1613:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1615:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (" long spare_;")); @@ -11483,25 +11652,25 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1614:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1616:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1615:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1617:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ("}")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1616:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1618:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1616:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1618:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -11541,7 +11710,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = (( /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1]) > ( /*_#IRAW__L4*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1616:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1618:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -11551,7 +11720,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1617:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1619:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -11562,7 +11731,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1618:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1620:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11588,7 +11757,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1618:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1620:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -11603,7 +11772,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1618:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1620:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11617,7 +11786,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1618; + argtab[2].meltbp_long = 1620; /*^apply.arg */ argtab[3].meltbp_cstring = "output_curframe_cdat_struct huge implbuf="; @@ -11639,7 +11808,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1618:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1620:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0; @@ -11652,7 +11821,7 @@ lab_endgetargs:; /*_.IF___V9*/ meltfptr[8] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1618:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1620:/ quasiblock"); /*_.PROGN___V11*/ meltfptr[9] = /*_.IF___V9*/ meltfptr[8];; @@ -11661,7 +11830,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[7] = /*_.PROGN___V11*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1618:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1620:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IF___V9*/ meltfptr[8] = 0; @@ -11676,7 +11845,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1619:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1621:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11687,7 +11856,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L8*/ meltfnum[6] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1620:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1622:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -11722,7 +11891,7 @@ lab_endgetargs:; /*_#I__L10*/ meltfnum[9] = (( /*_#STRBUF_USEDLENGTH__L8*/ meltfnum[6]) < ( /*_#GET_INT__L9*/ meltfnum[5]));; - MELT_LOCATION ("warmelt-outobj.melt:1619:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1621:/ cond"); /*cond */ if ( /*_#I__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -11730,7 +11899,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1619:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1621:/ cond.else"); /*^block */ /*anyblock */ @@ -11744,7 +11913,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1619) ? (1619) : __LINE__, + (1621) ? (1621) : __LINE__, __FUNCTION__); ; } @@ -11760,7 +11929,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[8] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1619:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1621:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L8*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V13*/ meltfptr[9] = 0; @@ -11777,7 +11946,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1616:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1618:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[9] = /*_.IFCPP___V12*/ meltfptr[8];; @@ -11786,7 +11955,7 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = /*_.PROGN___V15*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1616:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1618:/ clear"); /*clear *//*_.IFCPP___V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.IFCPP___V12*/ meltfptr[8] = 0; @@ -11801,14 +11970,26 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1604:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1606:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V7*/ meltfptr[6];; - MELT_LOCATION ("warmelt-outobj.melt:1604:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:1606:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -11916,7 +12097,7 @@ meltrout_42_warmelt_outobj_OUTPUT_CURFRAME_CDAT_FILL (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1626:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1628:/ getarg"); /*_.IDATUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -11938,7 +12119,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1628:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1630:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (" cdat = (struct cdata_st*) meltgc_allocate(sizeof(*cdat),0);")); @@ -11946,14 +12127,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1629:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1631:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1630:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1632:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (" melt_prohibit_garbcoll = TRUE;")); @@ -11961,14 +12142,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1631:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1633:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1634:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1636:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ("/*initial routine predef*/")); @@ -11976,7 +12157,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1635:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1637:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (1), 0); } @@ -11997,7 +12178,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:1639:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1641:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -12027,7 +12208,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1636:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1638:/ clear"); /*clear *//*_.CURPDAT__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_#CURK__L1*/ meltfnum[0] = 0; @@ -12037,7 +12218,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1642:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1644:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ("/*initial routine fill*/")); @@ -12045,7 +12226,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1643:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1645:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (1), 0); } @@ -12068,13 +12249,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1647:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1649:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1648:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1650:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -12104,7 +12285,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1644:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1646:/ clear"); /*clear *//*_.CURFIL__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_#CURK__L2*/ meltfnum[1] = 0; @@ -12114,7 +12295,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1653:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1655:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (" cdat = NULL;")); @@ -12122,14 +12303,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1654:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1656:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1655:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1657:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (" melt_prohibit_garbcoll = FALSE;")); @@ -12137,17 +12318,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1656:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1658:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1658:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1660:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1658:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1660:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -12187,7 +12368,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2]) > ( /*_#IRAW__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:1658:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1660:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -12197,7 +12378,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1659:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1661:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -12209,7 +12390,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1660:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1662:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12235,7 +12416,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1660:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1662:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -12250,7 +12431,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1660:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1662:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12264,7 +12445,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1660; + argtab[2].meltbp_long = 1662; /*^apply.arg */ argtab[3].meltbp_cstring = "output_curframe_cdat_fill huge implbuf="; @@ -12286,7 +12467,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1660:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1662:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; @@ -12299,7 +12480,7 @@ lab_endgetargs:; /*_.IF___V11*/ meltfptr[10] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1660:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1662:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];; @@ -12308,7 +12489,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1660:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1662:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V11*/ meltfptr[10] = 0; @@ -12323,7 +12504,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1661:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1663:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12334,7 +12515,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L9*/ meltfnum[7] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1662:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1664:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -12369,7 +12550,7 @@ lab_endgetargs:; /*_#I__L11*/ meltfnum[10] = (( /*_#STRBUF_USEDLENGTH__L9*/ meltfnum[7]) < ( /*_#GET_INT__L10*/ meltfnum[6]));; - MELT_LOCATION ("warmelt-outobj.melt:1661:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1663:/ cond"); /*cond */ if ( /*_#I__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -12377,7 +12558,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1661:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1663:/ cond.else"); /*^block */ /*anyblock */ @@ -12391,7 +12572,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1661) ? (1661) : __LINE__, + (1663) ? (1663) : __LINE__, __FUNCTION__); ; } @@ -12407,7 +12588,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[10] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1661:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1663:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V15*/ meltfptr[11] = 0; @@ -12424,7 +12605,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1658:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1660:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[11] = /*_.IFCPP___V14*/ meltfptr[10];; @@ -12433,7 +12614,7 @@ lab_endgetargs:; /*_.IFELSE___V9*/ meltfptr[8] = /*_.PROGN___V17*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1658:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1660:/ clear"); /*clear *//*_.IFCPP___V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.IFCPP___V14*/ meltfptr[10] = 0; @@ -12448,14 +12629,26 @@ lab_endgetargs:; /*_.IFELSE___V9*/ meltfptr[8] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1626:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1628:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V9*/ meltfptr[8];; - MELT_LOCATION ("warmelt-outobj.melt:1626:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:1628:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -12560,7 +12753,7 @@ meltrout_43_warmelt_outobj_OUTPUCOD_INITIALROUTINE (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1669:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1671:/ getarg"); /*_.PINI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -12598,7 +12791,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1670:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1672:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12610,7 +12803,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.PINI__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_INITIALROUTINEOBJ */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:1670:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1672:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -12618,7 +12811,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1670:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1672:/ cond.else"); /*^block */ /*anyblock */ @@ -12632,7 +12825,7 @@ lab_endgetargs:; melt_assert_failed (("check pini"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1670) ? (1670) : __LINE__, __FUNCTION__); + (1672) ? (1672) : __LINE__, __FUNCTION__); ; } ; @@ -12647,7 +12840,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1670:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1672:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -12658,10 +12851,10 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1671:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1673:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:1672:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1674:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PINI__V2*/ meltfptr[1]), 10, "OIROUT_DATA"); @@ -12669,7 +12862,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1673:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1675:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PINI__V2*/ meltfptr[1]), 12, "OIROUT_FILL"); @@ -12677,7 +12870,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1674:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1676:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PINI__V2*/ meltfptr[1]), 11, "OIROUT_PROLOG"); @@ -12685,7 +12878,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1675:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1677:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PINI__V2*/ meltfptr[1]), 7, "OBROUT_RETVAL"); @@ -12693,7 +12886,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1676:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1678:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PINI__V2*/ meltfptr[1]), 13, "OIROUT_MODULENAME"); @@ -12701,7 +12894,7 @@ lab_endgetargs:; meltfptr[11] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1677:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -12744,19 +12937,19 @@ lab_endgetargs:; ((1) + ( /*_#IRAW__L5*/ meltfnum[4]));; { - MELT_LOCATION ("warmelt-outobj.melt:1681:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1683:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1682:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1684:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1683:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1685:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12777,34 +12970,34 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1689:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1691:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1690:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1692:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1691:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1693:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1692:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1694:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("typedef ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1693:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1695:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12824,7 +13017,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1694:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1696:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" initial_frame_st;")); @@ -12832,28 +13025,28 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1695:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1697:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1696:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1698:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1697:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1699:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1698:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1700:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("static void initialize_module_meltdata_")); @@ -12861,7 +13054,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1699:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1701:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -12870,7 +13063,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1700:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1702:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" (initial_frame_st *iniframp__, char predefinited[])")); @@ -12878,14 +13071,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1701:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1703:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1702:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1704:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{")); @@ -12893,14 +13086,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1703:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1705:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1704:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1706:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#define meltfram__ (*iniframp__)")); @@ -12908,14 +13101,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1705:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1707:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1706:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1708:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" dbgprintf (\"start initialize_module_meltdata_")); @@ -12923,7 +13116,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1707:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1709:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -12932,7 +13125,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1708:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1710:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" iniframp__=%p\", (void*) iniframp__);")); @@ -12940,14 +13133,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1709:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1711:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1710:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1712:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_assertmsg (\"check module initial frame\", iniframp__->mcfr_nbvar == /*minihash*/ -")); @@ -12955,14 +13148,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1711:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1713:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#MINIHASH__L6*/ meltfnum[5])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1712:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1714:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -12970,12 +13163,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1713:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1715:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1714:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1716:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12996,7 +13189,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1715:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1717:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" *cdat = NULL;")); @@ -13004,12 +13197,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1716:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1718:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1718:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1720:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13029,14 +13222,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1719:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1721:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1720:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1722:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef meltfram__")); @@ -13044,14 +13237,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1721:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1723:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1722:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1724:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} /*end initialize_module_meltdata_")); @@ -13059,7 +13252,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1723:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1725:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13068,7 +13261,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1724:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1726:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -13076,28 +13269,28 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1725:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1727:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1726:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1728:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1729:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1731:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1730:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1732:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("/* define different names when debugging or not */")); @@ -13105,14 +13298,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1732:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1734:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1733:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1735:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("#if MELT_HAVE_DEBUG")); @@ -13120,14 +13313,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1734:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1736:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1735:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1737:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("extern")); @@ -13135,12 +13328,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1736:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1738:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1737:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1739:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13161,7 +13354,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1742:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1744:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("const char meltmodule_")); @@ -13169,7 +13362,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1743:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1745:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13178,7 +13371,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1744:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1746:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("__melt_have_debug_enabled[];")); @@ -13186,14 +13379,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1745:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1747:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1746:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1748:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("#define melt_have_debug_string meltmodule_")); @@ -13201,7 +13394,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1747:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1749:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13210,7 +13403,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1748:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1750:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("__melt_have_debug_enabled")); @@ -13218,14 +13411,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1749:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1751:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1750:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1752:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("#else /*!MELT_HAVE_DEBUG*/")); @@ -13233,14 +13426,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1751:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1753:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1752:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1754:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("extern")); @@ -13248,12 +13441,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1753:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1755:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1754:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1756:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13274,7 +13467,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1759:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1761:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("const char meltmodule_")); @@ -13282,7 +13475,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1760:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1762:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13291,7 +13484,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1761:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1763:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("__melt_have_debug_disabled[];")); @@ -13299,14 +13492,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1762:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1764:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1763:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1765:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("#define melt_have_debug_string meltmodule_")); @@ -13314,7 +13507,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1764:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1766:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13323,7 +13516,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1765:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1767:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("__melt_have_debug_disabled")); @@ -13331,14 +13524,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1766:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1768:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1767:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1769:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("#endif /*!MELT_HAVE_DEBUG*/")); @@ -13346,28 +13539,28 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1768:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1770:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1769:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1771:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1771:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1773:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1772:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1774:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#if MELT_HAVE_DEBUG")); @@ -13375,14 +13568,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1773:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1775:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1774:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1776:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("const char meltmodule_")); @@ -13390,7 +13583,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1775:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1777:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13399,7 +13592,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1776:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1778:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("__melt_have_debug_enabled[] = \"MELT module ")); @@ -13407,7 +13600,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1777:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1779:/ locexp"); meltgc_add_strbuf_cstr ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13416,7 +13609,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1778:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1780:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" have debug enabled\";")); @@ -13424,14 +13617,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1779:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1781:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1780:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1782:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#else /*!MELT_HAVE_DEBUG*/")); @@ -13439,14 +13632,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1781:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1783:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1782:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1784:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("const char meltmodule_")); @@ -13454,7 +13647,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1783:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1785:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13463,7 +13656,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1784:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1786:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("__melt_have_debug_disabled[] = \"MELT module ")); @@ -13471,7 +13664,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1785:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1787:/ locexp"); meltgc_add_strbuf_cstr ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13480,7 +13673,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1786:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1788:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" have debug disabled\";")); @@ -13488,14 +13681,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1787:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1789:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1788:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1790:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#endif /*MELT_HAVE_DEBUG*/")); @@ -13503,31 +13696,31 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1789:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1791:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1728:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1730:/ quasiblock"); { - MELT_LOCATION ("warmelt-outobj.melt:1792:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1794:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1793:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1795:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1794:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1796:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("void* start_module_melt(void* modargp_) {")); @@ -13535,21 +13728,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1795:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1797:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1797:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1799:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1798:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1800:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("char predefinited[MELTGLOB__LASTGLOB+8];")); @@ -13557,12 +13750,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1799:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1801:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1802:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1804:/ quasiblock"); /*^newclosure */ @@ -13574,7 +13767,7 @@ lab_endgetargs:; tabval[7])), (0)); ; /*_.LAMBDA___V20*/ meltfptr[19] = /*_.LAMBDA___V21*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:1801:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1803:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13597,7 +13790,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1809:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1811:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/**initial routine prologue**/")); @@ -13605,14 +13798,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1810:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1812:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1811:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1813:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/* set initial frame marking */")); @@ -13620,14 +13813,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1812:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1814:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1813:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1815:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((struct melt_callframe_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -")); @@ -13635,14 +13828,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1814:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1816:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#MINIHASH__L6*/ meltfnum[5])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1815:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1817:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -13650,14 +13843,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1816:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1818:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1817:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1819:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((struct melt_callframe_st*)&meltfram__)->mcfr_forwmarkrout = meltmod__")); @@ -13665,7 +13858,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1818:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1820:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13674,7 +13867,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1819:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1821:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("__forward_or_mark_module_start_frame;")); @@ -13682,12 +13875,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1820:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1822:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1823:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1825:/ quasiblock"); /*^newclosure */ @@ -13725,7 +13918,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V23*/ meltfptr[22] = /*_.LAMBDA___V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-outobj.melt:1821:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1823:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13746,7 +13939,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1829:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1831:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/**initial routine cdata initializer**/")); @@ -13754,21 +13947,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1830:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1832:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1832:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1834:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1833:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1835:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("memset(predefinited, 0, sizeof(predefinited));")); @@ -13776,14 +13969,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1834:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1836:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1835:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1837:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("initialize_module_meltdata_")); @@ -13791,7 +13984,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1836:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1838:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13800,7 +13993,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1837:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1839:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" (&meltfram__, predefinited);")); @@ -13808,14 +14001,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1838:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1840:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1841:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1843:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/**initial routine body**/")); @@ -13823,12 +14016,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1842:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1844:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1844:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1846:/ quasiblock"); /*^getslot */ @@ -13861,7 +14054,7 @@ lab_endgetargs:; melt_pair_head ((melt_ptr_t) /*_.CURPAIR__V29*/ meltfptr[28]); - MELT_LOCATION ("warmelt-outobj.melt:1851:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1853:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -13888,7 +14081,7 @@ lab_endgetargs:; /*_#IF___L7*/ meltfnum[6] = /*_#NOT__L9*/ meltfnum[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1851:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1853:/ clear"); /*clear *//*_#IS_A__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_#NOT__L9*/ meltfnum[8] = 0; @@ -13901,7 +14094,7 @@ lab_endgetargs:; /*_#IF___L7*/ meltfnum[6] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1851:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1853:/ cond"); /*cond */ if ( /*_#IF___L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -13911,7 +14104,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1852:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1854:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.BODYLIST__V27*/ meltfptr[26]), (melt_ptr_t) ( /*_.CURBODY__V30*/ @@ -13930,7 +14123,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1848:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1850:/ clear"); /*clear *//*_.CURPAIR__V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.CURBODY__V30*/ meltfptr[29] = 0; @@ -13938,7 +14131,7 @@ lab_endgetargs:; /*clear *//*_#IF___L7*/ meltfnum[6] = 0; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-outobj.melt:1853:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1855:/ quasiblock"); /*^checksignal */ @@ -13985,7 +14178,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:1862:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1864:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IRAW__L13*/ meltfnum[12] = @@ -13994,7 +14187,7 @@ lab_endgetargs:; /*_#I__L14*/ meltfnum[13] = (( /*_#IRAW__L13*/ meltfnum[12]) == (0));; - MELT_LOCATION ("warmelt-outobj.melt:1862:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1864:/ cond"); /*cond */ if ( /*_#I__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -14002,7 +14195,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1863:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1865:/ quasiblock"); /*_#CHUNKIX__L15*/ meltfnum[14] = @@ -14016,27 +14209,27 @@ lab_endgetargs:; tabval[16])), (const char *) 0);; { - MELT_LOCATION ("warmelt-outobj.melt:1867:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1869:/ locexp"); /*increment *//*_#CHUNKCOUNT__L11*/ meltfnum[8] += 1; ; } ; { - MELT_LOCATION ("warmelt-outobj.melt:1868:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1870:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.CHUNKBUFLIST__V28*/ meltfptr[27]), (melt_ptr_t) ( /*_.NEWCHUNKBUF__V36*/ meltfptr[35])); } ; - MELT_LOCATION ("warmelt-outobj.melt:1869:/ compute"); + MELT_LOCATION ("warmelt-outobj.melt:1871:/ compute"); /*_.CHUNKBUF__V32*/ meltfptr[31] = /*_.SETQ___V37*/ meltfptr[36] = /*_.NEWCHUNKBUF__V36*/ meltfptr[35];; /*_.LET___V35*/ meltfptr[34] = /*_.SETQ___V37*/ meltfptr[36];; - MELT_LOCATION ("warmelt-outobj.melt:1863:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1865:/ clear"); /*clear *//*_#CHUNKIX__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.NEWCHUNKBUF__V36*/ meltfptr[35] = 0; @@ -14045,7 +14238,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = /*_.LET___V35*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1862:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1864:/ clear"); /*clear *//*_.LET___V35*/ meltfptr[34] = 0; } ; @@ -14056,7 +14249,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1871:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1873:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14077,7 +14270,7 @@ lab_endgetargs:; meltgc_touch (( /*!PREVLOC_CONTAINER */ meltfrout->tabval[17])); ; - MELT_LOCATION ("warmelt-outobj.melt:1872:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1874:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14098,7 +14291,7 @@ lab_endgetargs:; meltgc_touch (( /*!PREVIMPLBUF_CONTAINER */ meltfrout->tabval[18])); ; - MELT_LOCATION ("warmelt-outobj.melt:1873:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1875:/ quasiblock"); /*^cond */ @@ -14126,7 +14319,7 @@ lab_endgetargs:; /*_.CURLOC__V39*/ meltfptr[36] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1875:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1877:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -14137,7 +14330,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1876:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1878:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14167,7 +14360,7 @@ lab_endgetargs:; /*_.OUTPUT_LOCATION__V41*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1875:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1877:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V41*/ meltfptr[40] = 0; } ; @@ -14182,11 +14375,11 @@ lab_endgetargs:; /*_.LET___V38*/ meltfptr[35] = /*_.IF___V40*/ meltfptr[34];; - MELT_LOCATION ("warmelt-outobj.melt:1873:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1875:/ clear"); /*clear *//*_.CURLOC__V39*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.IF___V40*/ meltfptr[34] = 0; - MELT_LOCATION ("warmelt-outobj.melt:1878:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1880:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -14212,19 +14405,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1879:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1881:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.CHUNKBUF__V32*/ meltfptr[31]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1880:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1882:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L16*/ meltfnum[14] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.CHUNKBUF__V32*/ meltfptr[31]));; - MELT_LOCATION ("warmelt-outobj.melt:1880:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1882:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -14263,7 +14456,7 @@ lab_endgetargs:; /*_#I__L19*/ meltfnum[18] = (( /*_#STRBUF_USEDLENGTH__L16*/ meltfnum[14]) > ( /*_#IRAW__L18*/ meltfnum[17]));; - MELT_LOCATION ("warmelt-outobj.melt:1880:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1882:/ cond"); /*cond */ if ( /*_#I__L19*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -14273,7 +14466,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1881:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1883:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -14284,7 +14477,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1882:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1884:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14310,7 +14503,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1882:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1884:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -14326,7 +14519,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:1882:/ checksignal"); + ("warmelt-outobj.melt:1884:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14340,7 +14533,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1882; + argtab[2].meltbp_long = 1884; /*^apply.arg */ argtab[3].meltbp_cstring = "outpucod_initialroutine huge chunkbuf="; @@ -14362,7 +14555,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1882:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1884:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = 0; /*^clear */ @@ -14376,7 +14569,7 @@ lab_endgetargs:; /*_.IF___V46*/ meltfptr[45] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1882:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1884:/ quasiblock"); /*_.PROGN___V48*/ meltfptr[46] = @@ -14387,7 +14580,7 @@ lab_endgetargs:; /*_.PROGN___V48*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1882:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1884:/ clear"); /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[19] = 0; /*^clear */ /*clear *//*_.IF___V46*/ meltfptr[45] = 0; @@ -14402,7 +14595,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1883:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1885:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14414,7 +14607,7 @@ lab_endgetargs:; melt_strbuf_usedlength ((melt_ptr_t) ( /*_.CHUNKBUF__V32*/ meltfptr[31]));; - MELT_LOCATION ("warmelt-outobj.melt:1884:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1886:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -14449,7 +14642,7 @@ lab_endgetargs:; /*_#I__L24*/ meltfnum[23] = (( /*_#STRBUF_USEDLENGTH__L22*/ meltfnum[20]) < ( /*_#GET_INT__L23*/ meltfnum[19]));; - MELT_LOCATION ("warmelt-outobj.melt:1883:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1885:/ cond"); /*cond */ if ( /*_#I__L24*/ meltfnum[23]) /*then */ { /*^cond.then */ @@ -14457,7 +14650,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1883:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1885:/ cond.else"); /*^block */ /*anyblock */ @@ -14472,7 +14665,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1883) ? (1883) : __LINE__, + (1885) ? (1885) : __LINE__, __FUNCTION__); ; } @@ -14489,7 +14682,7 @@ lab_endgetargs:; /*_.IFELSE___V51*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1883:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1885:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L22*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V50*/ meltfptr[46] = 0; @@ -14506,7 +14699,7 @@ lab_endgetargs:; /*_.IFCPP___V49*/ meltfptr[45] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1880:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1882:/ quasiblock"); /*_.PROGN___V52*/ meltfptr[46] = @@ -14517,7 +14710,7 @@ lab_endgetargs:; /*_.PROGN___V52*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1880:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1882:/ clear"); /*clear *//*_.IFCPP___V45*/ meltfptr[44] = 0; /*^clear */ /*clear *//*_.IFCPP___V49*/ meltfptr[45] = 0; @@ -14538,7 +14731,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1858:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1860:/ clear"); /*clear *//*_.CURBODY__V33*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_#BODIX__L12*/ meltfnum[11] = 0; @@ -14567,7 +14760,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:1853:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1855:/ clear"); /*clear *//*_.BODTUP__V31*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.CHUNKBUF__V32*/ meltfptr[31] = 0; @@ -14575,7 +14768,7 @@ lab_endgetargs:; /*clear *//*_#NBBODY__L10*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_#CHUNKCOUNT__L11*/ meltfnum[8] = 0; - MELT_LOCATION ("warmelt-outobj.melt:1888:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1890:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14594,7 +14787,7 @@ lab_endgetargs:; meltgc_touch (( /*!PREVLOC_CONTAINER */ meltfrout->tabval[17])); ; - MELT_LOCATION ("warmelt-outobj.melt:1889:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1891:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14615,7 +14808,7 @@ lab_endgetargs:; meltgc_touch (( /*!PREVIMPLBUF_CONTAINER */ meltfrout->tabval[18])); ; - MELT_LOCATION ("warmelt-outobj.melt:1890:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1892:/ quasiblock"); /*^checksignal */ @@ -14639,14 +14832,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1893:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1895:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1894:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1896:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("struct frame_start_module_melt_st;")); @@ -14671,7 +14864,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1898:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1900:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); @@ -14679,7 +14872,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1899:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1901:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), @@ -14688,7 +14881,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1900:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1902:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), melt_string_str ((melt_ptr_t) @@ -14698,7 +14891,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1901:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1903:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), @@ -14707,7 +14900,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1902:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1904:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ( /*_#CHUNKIX__L25*/ meltfnum[20])); @@ -14715,7 +14908,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1903:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1905:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), @@ -14724,7 +14917,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1904:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1906:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); @@ -14732,7 +14925,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1905:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1907:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -14741,7 +14934,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1906:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1908:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -14751,7 +14944,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1907:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1909:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -14760,7 +14953,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1908:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1910:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#CHUNKIX__L25*/ meltfnum[20])); @@ -14768,7 +14961,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1909:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1911:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -14781,7 +14974,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1895:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1897:/ clear"); /*clear *//*_.CURCHUNK__V54*/ meltfptr[44] = 0; /*^clear */ /*clear *//*_#CHUNKIX__L25*/ meltfnum[20] = 0; @@ -14789,14 +14982,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1911:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1913:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1914:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1916:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -14804,14 +14997,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1915:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1917:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1916:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1918:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" goto labend_rout;")); @@ -14819,14 +15012,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1917:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1919:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1918:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1920:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("labend_rout:;")); @@ -14834,14 +15027,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1919:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1921:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1920:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1922:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev;")); @@ -14849,14 +15042,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1921:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1923:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1922:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1924:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/* popped initial frame */")); @@ -14864,14 +15057,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1923:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1925:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1924:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1926:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{ /* clear initial frame & return */")); @@ -14879,13 +15072,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1925:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1927:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_ptr_t retval = ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1926:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1928:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -14896,7 +15089,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1927:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1929:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -14924,7 +15117,7 @@ lab_endgetargs:; /*_.OUTPUT_C_CODE__V56*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1926:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1928:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V56*/ meltfptr[46] = 0; } ; @@ -14940,7 +15133,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1928:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1930:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -14955,7 +15148,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1929:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1931:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -14963,14 +15156,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1930:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1932:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1931:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1933:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" memset((void*) &meltfram__, 0, sizeof(meltfram__));")); @@ -14978,14 +15171,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1932:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1934:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1933:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1935:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" return retval;}")); @@ -14993,14 +15186,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1934:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1936:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1935:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1937:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef meltcallcount")); @@ -15008,14 +15201,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1936:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1938:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1937:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1939:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef meltfram__")); @@ -15023,14 +15216,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1938:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1940:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1939:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1941:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef MELTFRAM_NBVARNUM")); @@ -15038,14 +15231,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1940:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1942:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1941:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1943:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef MELTFRAM_NBVARPTR")); @@ -15053,21 +15246,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1942:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1944:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1943:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1945:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1944:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1946:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} /* end start_module_melt */")); @@ -15075,7 +15268,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1945:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1947:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } @@ -15099,7 +15292,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1950:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1952:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -15107,7 +15300,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1951:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1953:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15116,7 +15309,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1952:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1954:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -15126,7 +15319,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1953:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1955:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15135,7 +15328,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1954:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1956:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#CHUNKIX__L26*/ meltfnum[19])); @@ -15143,7 +15336,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1955:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1957:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15152,7 +15345,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1956:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1958:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -15160,7 +15353,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1957:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1959:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15169,7 +15362,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1958:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1960:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -15177,7 +15370,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1959:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1961:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15186,7 +15379,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1960:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1962:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -15194,7 +15387,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1961:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1963:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15203,7 +15396,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1962:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1964:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -15211,7 +15404,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1963:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1965:/ locexp"); /*add2sbuf_sbuf */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15222,7 +15415,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1964:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1966:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -15230,7 +15423,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1965:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1967:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15239,7 +15432,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1966:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1968:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -15247,7 +15440,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1967:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1969:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15256,7 +15449,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1968:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1970:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -15266,7 +15459,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1969:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1971:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15275,7 +15468,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1970:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1972:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#CHUNKIX__L26*/ meltfnum[19])); @@ -15283,7 +15476,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1971:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1973:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -15291,19 +15484,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1972:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1974:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1974:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1976:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L27*/ meltfnum[23] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1974:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1976:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -15342,7 +15535,7 @@ lab_endgetargs:; /*_#I__L30*/ meltfnum[29] = (( /*_#STRBUF_USEDLENGTH__L27*/ meltfnum[23]) > ( /*_#IRAW__L29*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-outobj.melt:1974:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1976:/ cond"); /*cond */ if ( /*_#I__L30*/ meltfnum[29]) /*then */ { /*^cond.then */ @@ -15352,7 +15545,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1975:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1977:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -15363,7 +15556,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1976:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1978:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15389,7 +15582,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1976:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1978:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L31*/ meltfnum[30]) /*then */ { /*^cond.then */ @@ -15405,7 +15598,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:1976:/ checksignal"); + ("warmelt-outobj.melt:1978:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15419,7 +15612,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1976; + argtab[2].meltbp_long = 1978; /*^apply.arg */ argtab[3].meltbp_cstring = "outpucod_initialroutine huge implbuf="; @@ -15441,7 +15634,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1976:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1978:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L32*/ meltfnum[31] = 0; /*^clear */ @@ -15455,7 +15648,7 @@ lab_endgetargs:; /*_.IF___V61*/ meltfptr[60] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1976:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1978:/ quasiblock"); /*_.PROGN___V63*/ meltfptr[61] = @@ -15466,7 +15659,7 @@ lab_endgetargs:; /*_.PROGN___V63*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1976:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1978:/ clear"); /*clear *//*_#MELT_NEED_DBG__L31*/ meltfnum[30] = 0; /*^clear */ /*clear *//*_.IF___V61*/ meltfptr[60] = 0; @@ -15481,7 +15674,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1977:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1979:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15493,7 +15686,7 @@ lab_endgetargs:; melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1978:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1980:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -15528,7 +15721,7 @@ lab_endgetargs:; /*_#I__L35*/ meltfnum[34] = (( /*_#STRBUF_USEDLENGTH__L33*/ meltfnum[31]) < ( /*_#GET_INT__L34*/ meltfnum[30]));; - MELT_LOCATION ("warmelt-outobj.melt:1977:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1979:/ cond"); /*cond */ if ( /*_#I__L35*/ meltfnum[34]) /*then */ { /*^cond.then */ @@ -15536,7 +15729,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1977:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1979:/ cond.else"); /*^block */ /*anyblock */ @@ -15551,7 +15744,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1977) ? (1977) : __LINE__, + (1979) ? (1979) : __LINE__, __FUNCTION__); ; } @@ -15568,7 +15761,7 @@ lab_endgetargs:; /*_.IFELSE___V66*/ meltfptr[65];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1977:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1979:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L33*/ meltfnum[31] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V65*/ meltfptr[61] = 0; @@ -15585,7 +15778,7 @@ lab_endgetargs:; /*_.IFCPP___V64*/ meltfptr[60] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1974:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1976:/ quasiblock"); /*_.PROGN___V67*/ meltfptr[61] = @@ -15596,7 +15789,7 @@ lab_endgetargs:; /*_.PROGN___V67*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1974:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1976:/ clear"); /*clear *//*_.IFCPP___V60*/ meltfptr[59] = 0; /*^clear */ /*clear *//*_.IFCPP___V64*/ meltfptr[60] = 0; @@ -15617,7 +15810,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1947:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1949:/ clear"); /*clear *//*_.CURCHUNK__V57*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_#CHUNKIX__L26*/ meltfnum[19] = 0; @@ -15636,12 +15829,12 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:1890:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1892:/ clear"); /*clear *//*_.CHUNKTUP__V53*/ meltfptr[50] = 0; /*^clear */ /*clear *//*_.IFELSE___V55*/ meltfptr[45] = 0; - MELT_LOCATION ("warmelt-outobj.melt:1844:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1846:/ clear"); /*clear *//*_.RAWBODY__V26*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.BODYLIST__V27*/ meltfptr[26] = 0; @@ -15649,14 +15842,14 @@ lab_endgetargs:; /*clear *//*_.CHUNKBUFLIST__V28*/ meltfptr[27] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:1983:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1985:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1984:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1986:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("void MELT_MODULE_VISIBILITY meltmod__")); @@ -15664,7 +15857,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1985:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1987:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -15673,7 +15866,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1986:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1988:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("__forward_or_mark_module_start_frame (struct melt_callframe_st* fp, int marking);")); @@ -15681,14 +15874,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1987:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1989:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1988:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1990:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("void meltmod__")); @@ -15696,7 +15889,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1989:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1991:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -15705,7 +15898,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1990:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1992:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("__forward_or_mark_module_start_frame (struct melt_callframe_st* fp, int marking)")); @@ -15713,14 +15906,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1991:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1993:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1992:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1994:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{")); @@ -15728,14 +15921,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1993:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1995:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1994:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1996:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("int ix=0;")); @@ -15743,14 +15936,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1995:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1997:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1996:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1998:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("initial_frame_st* meltframptr_= (initial_frame_st*)fp;")); @@ -15758,14 +15951,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1997:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1999:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1998:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2000:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_assertmsg (\"check module frame\", meltframptr_->mcfr_nbvar == /*minihash*/ -")); @@ -15773,14 +15966,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1999:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2001:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#MINIHASH__L6*/ meltfnum[5])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2000:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2002:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -15788,14 +15981,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2001:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2003:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2003:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2005:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("if (!marking && melt_is_forwarding) {")); @@ -15803,14 +15996,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2004:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2006:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2005:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2007:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("dbgprintf (\"forward_or_mark_module_start_frame_")); @@ -15818,7 +16011,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2006:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2008:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -15827,7 +16020,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2007:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2009:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" forwarding %d pointers in frame %p\", ")); @@ -15835,14 +16028,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2008:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2010:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBVAL__L3*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2009:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2011:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (", (void*) meltframptr_);")); @@ -15850,14 +16043,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2010:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2012:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2011:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2013:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("for (ix = 0; ix < ")); @@ -15865,14 +16058,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2012:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2014:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBVAL__L3*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2013:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2015:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("; ix++) MELT_FORWARDED(meltframptr_->mcfr_varptr[ix]);")); @@ -15880,14 +16073,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2014:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2016:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2015:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2017:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" return;")); @@ -15895,14 +16088,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2016:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2018:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2017:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2019:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} /*end forwarding*/")); @@ -15910,14 +16103,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2018:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2020:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2020:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2022:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("dbgprintf (\"forward_or_mark_module_start_frame_")); @@ -15925,7 +16118,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2021:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2023:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -15934,7 +16127,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2022:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2024:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" marking in frame %p\", (void*) meltframptr_);")); @@ -15942,12 +16135,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2023:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2025:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2024:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2026:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15967,14 +16160,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2025:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2027:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2026:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2028:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} /* end meltmod__")); @@ -15982,7 +16175,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2027:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2029:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -15991,7 +16184,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2028:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2030:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("__forward_or_mark_module_start_frame */")); @@ -15999,21 +16192,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2029:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2031:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2030:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2032:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2031:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2033:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16024,7 +16217,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L36*/ meltfnum[31] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2032:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2034:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -16059,7 +16252,7 @@ lab_endgetargs:; /*_#I__L38*/ meltfnum[34] = (( /*_#STRBUF_USEDLENGTH__L36*/ meltfnum[31]) < ( /*_#GET_INT__L37*/ meltfnum[30]));; - MELT_LOCATION ("warmelt-outobj.melt:2031:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2033:/ cond"); /*cond */ if ( /*_#I__L38*/ meltfnum[34]) /*then */ { /*^cond.then */ @@ -16067,7 +16260,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2031:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2033:/ cond.else"); /*^block */ /*anyblock */ @@ -16081,7 +16274,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2031) ? (2031) : __LINE__, __FUNCTION__); + (2033) ? (2033) : __LINE__, __FUNCTION__); ; } ; @@ -16096,7 +16289,7 @@ lab_endgetargs:; /*_.IFCPP___V69*/ meltfptr[59] = /*_.IFELSE___V71*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2031:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2033:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L36*/ meltfnum[31] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V70*/ meltfptr[60] = 0; @@ -16115,7 +16308,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2033:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2035:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16126,7 +16319,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L39*/ meltfnum[31] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:2034:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2036:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -16161,7 +16354,7 @@ lab_endgetargs:; /*_#I__L41*/ meltfnum[34] = (( /*_#STRBUF_USEDLENGTH__L39*/ meltfnum[31]) < ( /*_#GET_INT__L40*/ meltfnum[30]));; - MELT_LOCATION ("warmelt-outobj.melt:2033:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2035:/ cond"); /*cond */ if ( /*_#I__L41*/ meltfnum[34]) /*then */ { /*^cond.then */ @@ -16169,7 +16362,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2033:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2035:/ cond.else"); /*^block */ /*anyblock */ @@ -16183,7 +16376,7 @@ lab_endgetargs:; melt_assert_failed (("check limited declbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2033) ? (2033) : __LINE__, __FUNCTION__); + (2035) ? (2035) : __LINE__, __FUNCTION__); ; } ; @@ -16198,7 +16391,7 @@ lab_endgetargs:; /*_.IFCPP___V72*/ meltfptr[50] = /*_.IFELSE___V74*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2033:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2035:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L39*/ meltfnum[31] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V73*/ meltfptr[45] = 0; @@ -16219,7 +16412,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V72*/ meltfptr[50];; - MELT_LOCATION ("warmelt-outobj.melt:1671:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1673:/ clear"); /*clear *//*_.IDATUP__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.IRFILL__V9*/ meltfptr[8] = 0; @@ -16265,14 +16458,26 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V69*/ meltfptr[59] = 0; /*^clear */ /*clear *//*_.IFCPP___V72*/ meltfptr[50] = 0; - MELT_LOCATION ("warmelt-outobj.melt:1669:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1671:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:1669:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:1671:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -16365,7 +16570,7 @@ meltrout_44_warmelt_outobj_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1802:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1804:/ getarg"); /*_.ROU__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -16387,20 +16592,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1803:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1805:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1804:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1806:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("initial_frame_st ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1802:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1804:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -16488,7 +16693,7 @@ meltrout_45_warmelt_outobj_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1823:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1825:/ getarg"); /*_.CURPROL__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -16498,7 +16703,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:1824:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1826:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -16526,7 +16731,7 @@ lab_endgetargs:; /*_#IF___L1*/ meltfnum[0] = /*_#NOT__L3*/ meltfnum[2];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1824:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1826:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_#NOT__L3*/ meltfnum[2] = 0; @@ -16539,7 +16744,7 @@ lab_endgetargs:; /*_#IF___L1*/ meltfnum[0] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1824:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1826:/ cond"); /*cond */ if ( /*_#IF___L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16547,7 +16752,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1826:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1828:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -16573,18 +16778,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1827:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1829:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1825:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1827:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1824:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1826:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = 0; } ; @@ -16592,7 +16797,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1823:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1825:/ clear"); /*clear *//*_#IF___L1*/ meltfnum[0] = 0; } @@ -16679,7 +16884,7 @@ meltrout_46_warmelt_outobj_OUTPUCOD_GETARG (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2041:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2043:/ getarg"); /*_.GARG__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -16717,7 +16922,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2042:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2044:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16729,7 +16934,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.GARG__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJGETARG */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2042:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2044:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16737,7 +16942,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2042:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2044:/ cond.else"); /*^block */ /*anyblock */ @@ -16751,7 +16956,7 @@ lab_endgetargs:; melt_assert_failed (("check garg"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2042) ? (2042) : __LINE__, __FUNCTION__); + (2044) ? (2044) : __LINE__, __FUNCTION__); ; } ; @@ -16766,7 +16971,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2042:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2044:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -16777,7 +16982,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2043:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2045:/ quasiblock"); /*^getslot */ @@ -16788,7 +16993,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2044:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2046:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.GARG__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -16796,7 +17001,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2045:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2047:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.GARG__V2*/ meltfptr[1]), 2, "OBARG_BIND"); @@ -16806,7 +17011,7 @@ lab_endgetargs:; ; /*_#RKBIND__L3*/ meltfnum[1] = (melt_get_int ((melt_ptr_t) ( /*_.OBIND__V10*/ meltfptr[9])));; - MELT_LOCATION ("warmelt-outobj.melt:2047:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2049:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBIND__V10*/ meltfptr[9]), 1, "FBIND_TYPE"); @@ -16816,7 +17021,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2049:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2051:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16828,7 +17033,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBIND__V10*/ meltfptr[9]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2049:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2051:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -16836,7 +17041,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2049:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2051:/ cond.else"); /*^block */ /*anyblock */ @@ -16850,7 +17055,7 @@ lab_endgetargs:; melt_assert_failed (("check obind"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2049) ? (2049) : __LINE__, __FUNCTION__); + (2051) ? (2051) : __LINE__, __FUNCTION__); ; } ; @@ -16865,7 +17070,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2049:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2051:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -16876,7 +17081,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2050:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2052:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16900,7 +17105,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2051:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16912,7 +17117,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OLOC__V8*/ meltfptr[7]), (melt_ptr_t) (( /*!CLASS_OBJLOCV */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:2051:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -16920,7 +17125,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2051:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ cond.else"); /*^block */ /*anyblock */ @@ -16934,7 +17139,7 @@ lab_endgetargs:; melt_assert_failed (("check oloc"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2051) ? (2051) : __LINE__, __FUNCTION__); + (2053) ? (2053) : __LINE__, __FUNCTION__); ; } ; @@ -16949,7 +17154,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[14] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2051:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V16*/ meltfptr[15] = 0; @@ -16962,7 +17167,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2052:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2054:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16974,7 +17179,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CTYBIND__V11*/ meltfptr[10]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-outobj.melt:2052:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2054:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -16982,7 +17187,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2052:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2054:/ cond.else"); /*^block */ /*anyblock */ @@ -16996,7 +17201,7 @@ lab_endgetargs:; melt_assert_failed (("check ctybind"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2052) ? (2052) : __LINE__, __FUNCTION__); + (2054) ? (2054) : __LINE__, __FUNCTION__); ; } ; @@ -17011,7 +17216,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2052:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2054:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V18*/ meltfptr[17] = 0; @@ -17022,12 +17227,12 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[15] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2053:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2055:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L7*/ meltfnum[3] = (( /*_#RKBIND__L3*/ meltfnum[1]) == (0));; - MELT_LOCATION ("warmelt-outobj.melt:2053:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2055:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -17037,7 +17242,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2055:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2057:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17048,7 +17253,7 @@ lab_endgetargs:; /*_#__L8*/ meltfnum[7] = (( /*_.CTYBIND__V11*/ meltfptr[10]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-outobj.melt:2055:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2057:/ cond"); /*cond */ if ( /*_#__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -17056,7 +17261,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2055:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2057:/ cond.else"); /*^block */ /*anyblock */ @@ -17070,7 +17275,7 @@ lab_endgetargs:; melt_assert_failed (("check ctybind first"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2055) ? (2055) : __LINE__, + (2057) ? (2057) : __LINE__, __FUNCTION__); ; } @@ -17086,7 +17291,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[17] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2055:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2057:/ clear"); /*clear *//*_#__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V20*/ meltfptr[19] = 0; @@ -17097,7 +17302,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[17] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2056:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2058:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -17123,7 +17328,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2057:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2059:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17132,18 +17337,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2058:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2060:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2054:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2056:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2053:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2055:/ clear"); /*clear *//*_.IFCPP___V19*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V21*/ meltfptr[19] = 0; @@ -17157,10 +17362,10 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2060:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2062:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:2062:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2064:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CTYBIND__V11*/ meltfptr[10]), 4, "CTYPE_PARCHAR"); @@ -17168,7 +17373,7 @@ lab_endgetargs:; meltfptr[17] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2063:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2065:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CTYBIND__V11*/ meltfptr[10]), 6, "CTYPE_ARGFIELD"); @@ -17176,7 +17381,7 @@ lab_endgetargs:; meltfptr[19] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2065:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2067:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L9*/ meltfnum[7] = @@ -17186,7 +17391,7 @@ lab_endgetargs:; /*_#NOT__L10*/ meltfnum[9] = (!( /*_#IS_STRING__L9*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:2065:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2067:/ cond"); /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -17194,7 +17399,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2067:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2069:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CTYBIND__V11*/ meltfptr[10]), 1, "NAMED_NAME"); @@ -17204,7 +17409,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2066:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2068:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.OLOC__V8*/ meltfptr[7]), ("impossible argument ctype"), (melt_ptr_t) ( /*_.NAMED_NAME__V24*/ @@ -17213,7 +17418,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2065:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2067:/ clear"); /*clear *//*_.NAMED_NAME__V24*/ meltfptr[23] = 0; } ; @@ -17221,7 +17426,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2068:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2070:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17232,7 +17437,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2069:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2071:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L11*/ meltfnum[10])); @@ -17240,7 +17445,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2070:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2072:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("] != ")); @@ -17248,7 +17453,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2071:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2073:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17259,7 +17464,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2072:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2074:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17268,19 +17473,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2073:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2075:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2074:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2076:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L12*/ meltfnum[11] = (( /*_.CTYBIND__V11*/ meltfptr[10]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-outobj.melt:2074:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2076:/ cond"); /*cond */ if ( /*_#__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -17288,7 +17493,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2076:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2078:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -17315,7 +17520,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2077:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2079:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17326,7 +17531,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2078:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2080:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L13*/ meltfnum[12])); @@ -17334,7 +17539,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2079:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2081:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17345,7 +17550,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2080:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2082:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L14*/ meltfnum[13])); @@ -17353,7 +17558,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2081:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2083:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17362,7 +17567,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2082:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2084:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), @@ -17371,14 +17576,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2083:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2085:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("gcc_assert(melt_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2084:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2086:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -17405,7 +17610,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2085:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2087:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17414,19 +17619,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2086:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2088:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2075:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2077:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2074:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2076:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V25*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_#I__L13*/ meltfnum[12] = 0; @@ -17444,7 +17649,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2089:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2091:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -17471,7 +17676,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2090:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2092:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17482,7 +17687,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2091:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2093:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L15*/ meltfnum[12])); @@ -17490,7 +17695,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2092:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2094:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17499,7 +17704,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2093:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2095:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17510,19 +17715,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2094:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2096:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2088:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2090:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2074:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2076:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V27*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_#I__L15*/ meltfnum[12] = 0; @@ -17532,14 +17737,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2097:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2099:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2060:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2062:/ clear"); /*clear *//*_.PARC__V22*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.ARGF__V23*/ meltfptr[19] = 0; @@ -17558,7 +17763,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2099:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2101:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17569,7 +17774,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L16*/ meltfnum[13] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2100:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2102:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -17604,7 +17809,7 @@ lab_endgetargs:; /*_#I__L18*/ meltfnum[7] = (( /*_#STRBUF_USEDLENGTH__L16*/ meltfnum[13]) < ( /*_#GET_INT__L17*/ meltfnum[12]));; - MELT_LOCATION ("warmelt-outobj.melt:2099:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2101:/ cond"); /*cond */ if ( /*_#I__L18*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -17612,7 +17817,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2099:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2101:/ cond.else"); /*^block */ /*anyblock */ @@ -17626,7 +17831,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2099) ? (2099) : __LINE__, __FUNCTION__); + (2101) ? (2101) : __LINE__, __FUNCTION__); ; } ; @@ -17641,7 +17846,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[25] = /*_.IFELSE___V30*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2099:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2101:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L16*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V29*/ meltfptr[23] = 0; @@ -17662,7 +17867,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V28*/ meltfptr[25];; - MELT_LOCATION ("warmelt-outobj.melt:2043:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2045:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.NLOC__V9*/ meltfptr[8] = 0; @@ -17684,14 +17889,26 @@ lab_endgetargs:; /*clear *//*_#I__L7*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFCPP___V28*/ meltfptr[25] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2041:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2043:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2041:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2043:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -17787,7 +18004,7 @@ meltrout_47_warmelt_outobj_OUTPUCOD_GETARGREST (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2106:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2108:/ getarg"); /*_.GARG__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -17825,7 +18042,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2107:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2109:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17837,7 +18054,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.GARG__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJGETARGREST */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2107:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2109:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -17845,7 +18062,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2107:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2109:/ cond.else"); /*^block */ /*anyblock */ @@ -17859,7 +18076,7 @@ lab_endgetargs:; melt_assert_failed (("check garg"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2107) ? (2107) : __LINE__, __FUNCTION__); + (2109) ? (2109) : __LINE__, __FUNCTION__); ; } ; @@ -17874,7 +18091,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2107:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2109:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -17885,7 +18102,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2108:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2110:/ quasiblock"); /*^getslot */ @@ -17896,7 +18113,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2109:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2111:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.GARG__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -17904,7 +18121,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2110:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2112:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.GARG__V2*/ meltfptr[1]), 2, "OBARG_BIND"); @@ -17912,7 +18129,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2111:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2113:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -17940,7 +18157,7 @@ lab_endgetargs:; /*_#RKBIND__L3*/ meltfnum[1] = (melt_get_int ((melt_ptr_t) ( /*_.OBIND__V10*/ meltfptr[9])));; - MELT_LOCATION ("warmelt-outobj.melt:2113:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2115:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBIND__V10*/ meltfptr[9]), 1, "FBIND_TYPE"); @@ -17948,7 +18165,7 @@ lab_endgetargs:; meltfptr[11] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2114:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2116:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17961,7 +18178,7 @@ lab_endgetargs:; (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2115:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2117:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17976,7 +18193,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2117:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2119:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17988,7 +18205,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBIND__V10*/ meltfptr[9]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:2117:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2119:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -17996,7 +18213,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2117:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2119:/ cond.else"); /*^block */ /*anyblock */ @@ -18010,7 +18227,7 @@ lab_endgetargs:; melt_assert_failed (("check obind"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2117) ? (2117) : __LINE__, __FUNCTION__); + (2119) ? (2119) : __LINE__, __FUNCTION__); ; } ; @@ -18025,7 +18242,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[14] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2117:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2119:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V16*/ meltfptr[15] = 0; @@ -18036,7 +18253,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2118:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2120:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18060,7 +18277,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2119:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2121:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18072,7 +18289,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OLOC__V8*/ meltfptr[7]), (melt_ptr_t) (( /*!CLASS_OBJLOCV */ meltfrout-> tabval[5])));; - MELT_LOCATION ("warmelt-outobj.melt:2119:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2121:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -18080,7 +18297,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2119:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2121:/ cond.else"); /*^block */ /*anyblock */ @@ -18094,7 +18311,7 @@ lab_endgetargs:; melt_assert_failed (("check oloc"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2119) ? (2119) : __LINE__, __FUNCTION__); + (2121) ? (2121) : __LINE__, __FUNCTION__); ; } ; @@ -18109,7 +18326,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2119:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2121:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; @@ -18122,7 +18339,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2120:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2122:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18134,7 +18351,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CTYBIND__V12*/ meltfptr[11]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[6])));; - MELT_LOCATION ("warmelt-outobj.melt:2120:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2122:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -18142,7 +18359,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2120:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2122:/ cond.else"); /*^block */ /*anyblock */ @@ -18156,7 +18373,7 @@ lab_endgetargs:; melt_assert_failed (("check ctybind"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2120) ? (2120) : __LINE__, __FUNCTION__); + (2122) ? (2122) : __LINE__, __FUNCTION__); ; } ; @@ -18171,7 +18388,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[18] = /*_.IFELSE___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2120:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2122:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V21*/ meltfptr[20] = 0; @@ -18182,12 +18399,12 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[18] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2121:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2123:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L7*/ meltfnum[3] = (( /*_#RKBIND__L3*/ meltfnum[1]) == (0));; - MELT_LOCATION ("warmelt-outobj.melt:2121:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2123:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -18197,7 +18414,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2123:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2125:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18208,7 +18425,7 @@ lab_endgetargs:; /*_#__L8*/ meltfnum[7] = (( /*_.CTYBIND__V12*/ meltfptr[11]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-outobj.melt:2123:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2125:/ cond"); /*cond */ if ( /*_#__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -18216,7 +18433,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2123:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2125:/ cond.else"); /*^block */ /*anyblock */ @@ -18230,7 +18447,7 @@ lab_endgetargs:; melt_assert_failed (("check ctybind first"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2123) ? (2123) : __LINE__, + (2125) ? (2125) : __LINE__, __FUNCTION__); ; } @@ -18246,7 +18463,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2123:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2125:/ clear"); /*clear *//*_#__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V23*/ meltfptr[22] = 0; @@ -18257,7 +18474,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[20] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2124:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2126:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -18283,7 +18500,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2125:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2127:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18292,18 +18509,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2126:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2128:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2122:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2124:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2121:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2123:/ clear"); /*clear *//*_.IFCPP___V22*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V24*/ meltfptr[22] = 0; @@ -18317,10 +18534,10 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2128:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2130:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:2130:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2132:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CTYBIND__V12*/ meltfptr[11]), 4, "CTYPE_PARCHAR"); @@ -18328,7 +18545,7 @@ lab_endgetargs:; meltfptr[20] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2131:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2133:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CTYBIND__V12*/ meltfptr[11]), 6, "CTYPE_ARGFIELD"); @@ -18336,7 +18553,7 @@ lab_endgetargs:; meltfptr[22] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2133:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2135:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L9*/ meltfnum[7] = @@ -18346,7 +18563,7 @@ lab_endgetargs:; /*_#NOT__L10*/ meltfnum[9] = (!( /*_#IS_STRING__L9*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:2133:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2135:/ cond"); /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -18354,7 +18571,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2135:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2137:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CTYBIND__V12*/ meltfptr[11]), 1, "NAMED_NAME"); @@ -18364,7 +18581,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2134:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2136:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.OLOC__V8*/ meltfptr[7]), ("impossible argument ctype"), (melt_ptr_t) ( /*_.NAMED_NAME__V27*/ @@ -18373,7 +18590,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2133:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2135:/ clear"); /*clear *//*_.NAMED_NAME__V27*/ meltfptr[26] = 0; } ; @@ -18381,7 +18598,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2136:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2138:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18392,7 +18609,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2137:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2139:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L11*/ meltfnum[10])); @@ -18400,7 +18617,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2138:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2140:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("] != ")); @@ -18408,7 +18625,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2139:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2141:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18419,7 +18636,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2140:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2142:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18430,7 +18647,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2141:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2143:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L12*/ meltfnum[11]), 0); @@ -18438,7 +18655,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2142:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2144:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18449,7 +18666,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2143:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2145:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = ")); @@ -18457,7 +18674,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2144:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2146:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18468,7 +18685,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2145:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2147:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -18478,7 +18695,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2146:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2148:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L13*/ meltfnum[12]), 0); @@ -18486,7 +18703,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2147:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2149:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18495,7 +18712,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2148:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2150:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); @@ -18503,7 +18720,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2149:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2151:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -18511,7 +18728,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2150:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2152:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); @@ -18519,7 +18736,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2151:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2153:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18530,7 +18747,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2152:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2154:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = ")); @@ -18538,7 +18755,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2153:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2155:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#RKBIND__L3*/ meltfnum[1])); @@ -18546,7 +18763,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2154:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2156:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -18554,19 +18771,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2155:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2157:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2156:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2158:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L14*/ meltfnum[13] = (( /*_.CTYBIND__V12*/ meltfptr[11]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-outobj.melt:2156:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2158:/ cond"); /*cond */ if ( /*_#__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -18574,7 +18791,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2158:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2160:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -18601,7 +18818,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2159:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2161:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18612,7 +18829,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2160:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2162:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L15*/ meltfnum[14])); @@ -18620,7 +18837,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2161:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2163:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18631,7 +18848,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2162:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2164:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L16*/ meltfnum[15])); @@ -18639,7 +18856,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2163:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2165:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18648,7 +18865,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2164:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2166:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), @@ -18657,14 +18874,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2165:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2167:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("gcc_assert(melt_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2166:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2168:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -18691,7 +18908,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2167:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2169:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18700,19 +18917,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2168:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2170:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2157:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2159:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2156:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2158:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V28*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_#I__L15*/ meltfnum[14] = 0; @@ -18730,7 +18947,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2171:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2173:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -18757,7 +18974,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2172:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2174:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18768,7 +18985,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2173:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2175:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L17*/ meltfnum[14])); @@ -18776,7 +18993,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2174:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2176:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18785,7 +19002,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2175:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2177:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18796,19 +19013,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2176:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2178:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2170:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2172:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2156:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2158:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V30*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_#I__L17*/ meltfnum[14] = 0; @@ -18818,14 +19035,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2179:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2181:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2128:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2130:/ clear"); /*clear *//*_.PARC__V25*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.ARGF__V26*/ meltfptr[22] = 0; @@ -18848,7 +19065,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2181:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2183:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18859,7 +19076,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[15] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2182:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2184:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -18894,7 +19111,7 @@ lab_endgetargs:; /*_#I__L20*/ meltfnum[7] = (( /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[15]) < ( /*_#GET_INT__L19*/ meltfnum[14]));; - MELT_LOCATION ("warmelt-outobj.melt:2181:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2183:/ cond"); /*cond */ if ( /*_#I__L20*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -18902,7 +19119,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2181:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2183:/ cond.else"); /*^block */ /*anyblock */ @@ -18916,7 +19133,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2181) ? (2181) : __LINE__, __FUNCTION__); + (2183) ? (2183) : __LINE__, __FUNCTION__); ; } ; @@ -18931,7 +19148,7 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[28] = /*_.IFELSE___V33*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2181:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2183:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L18*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V32*/ meltfptr[26] = 0; @@ -18952,7 +19169,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V31*/ meltfptr[28];; - MELT_LOCATION ("warmelt-outobj.melt:2108:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2110:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.NLOC__V9*/ meltfptr[8] = 0; @@ -18980,14 +19197,26 @@ lab_endgetargs:; /*clear *//*_#I__L7*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFCPP___V31*/ meltfptr[28] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2106:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2108:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2106:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2108:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -19083,7 +19312,7 @@ meltrout_48_warmelt_outobj_OUTPUCOD_OBJLOCV (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2189:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2191:/ getarg"); /*_.LOCV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -19121,7 +19350,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2190:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2192:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19133,7 +19362,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.LOCV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJLOCV */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2190:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2192:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19141,7 +19370,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2190:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2192:/ cond.else"); /*^block */ /*anyblock */ @@ -19155,7 +19384,7 @@ lab_endgetargs:; melt_assert_failed (("check locv"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2190) ? (2190) : __LINE__, __FUNCTION__); + (2192) ? (2192) : __LINE__, __FUNCTION__); ; } ; @@ -19170,7 +19399,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2190:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2192:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -19181,10 +19410,10 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2191:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2193:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:2192:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2194:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.LOCV__V2*/ meltfptr[1]), 0, "OBV_TYPE"); @@ -19192,7 +19421,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2193:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2195:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.LOCV__V2*/ meltfptr[1]), 1, "OBL_OFF"); @@ -19200,7 +19429,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2194:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2196:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.LOCV__V2*/ meltfptr[1]), 3, "OBL_CNAME"); @@ -19208,13 +19437,13 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2197:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2199:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L3*/ meltfnum[1] = (( /*_.LTYP__V7*/ meltfptr[5]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2197:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2199:/ cond"); /*cond */ if ( /*_#__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19224,7 +19453,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2198:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2200:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*_.")); @@ -19232,7 +19461,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2199:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2201:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19243,7 +19472,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2200:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2202:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19254,7 +19483,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.LOFF__V8*/ meltfptr[7])));; { - MELT_LOCATION ("warmelt-outobj.melt:2201:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2203:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L4*/ meltfnum[3])); @@ -19262,13 +19491,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2202:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2204:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("]")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2197:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2199:/ quasiblock"); /*epilog */ @@ -19285,13 +19514,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2203:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2205:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L5*/ meltfnum[3] = (( /*_.LTYP__V7*/ meltfptr[5]) == (( /*!CTYPE_LONG */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:2203:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2205:/ cond"); /*cond */ if ( /*_#__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -19301,7 +19530,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2204:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2206:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19310,7 +19539,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2205:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2207:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19321,7 +19550,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2206:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2208:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19333,7 +19562,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.LOFF__V8*/ meltfptr[7])));; { - MELT_LOCATION ("warmelt-outobj.melt:2207:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2209:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L6*/ meltfnum[5])); @@ -19341,14 +19570,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2208:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2210:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("]")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2203:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2205:/ quasiblock"); /*epilog */ @@ -19367,7 +19596,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2210:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2212:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19376,7 +19605,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2211:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2213:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19385,7 +19614,7 @@ lab_endgetargs:; meltfptr[8]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:2209:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2211:/ quasiblock"); /*epilog */ @@ -19395,14 +19624,14 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2197:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2199:/ clear"); /*clear *//*_#__L5*/ meltfnum[3] = 0; } ; } ; - MELT_LOCATION ("warmelt-outobj.melt:2191:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2193:/ clear"); /*clear *//*_.LTYP__V7*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.LOFF__V8*/ meltfptr[7] = 0; @@ -19412,7 +19641,7 @@ lab_endgetargs:; /*clear *//*_#__L3*/ meltfnum[1] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2213:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2215:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19423,7 +19652,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2214:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2216:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -19458,7 +19687,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[1] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5]) < ( /*_#GET_INT__L8*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2213:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2215:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19466,7 +19695,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2213:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2215:/ cond.else"); /*^block */ /*anyblock */ @@ -19480,7 +19709,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2213) ? (2213) : __LINE__, __FUNCTION__); + (2215) ? (2215) : __LINE__, __FUNCTION__); ; } ; @@ -19495,7 +19724,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[5] = /*_.IFELSE___V12*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2213:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2215:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V11*/ meltfptr[7] = 0; @@ -19512,14 +19741,26 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2189:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2191:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V10*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2189:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2191:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -19615,7 +19856,7 @@ meltrout_49_warmelt_outobj_OUTPUCOD_OBJCLOCCV (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2220:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2222:/ getarg"); /*_.OCCV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -19653,7 +19894,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2221:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2223:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19665,7 +19906,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OCCV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCLOCCV */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2221:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2223:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19673,7 +19914,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2221:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2223:/ cond.else"); /*^block */ /*anyblock */ @@ -19687,7 +19928,7 @@ lab_endgetargs:; melt_assert_failed (("check occv"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2221) ? (2221) : __LINE__, __FUNCTION__); + (2223) ? (2223) : __LINE__, __FUNCTION__); ; } ; @@ -19702,7 +19943,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2221:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2223:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -19713,7 +19954,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2222:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2224:/ quasiblock"); /*^getslot */ @@ -19724,7 +19965,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2223:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2225:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCCV__V2*/ meltfptr[1]), 3, "OBC_NAME"); @@ -19734,7 +19975,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2224:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2226:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19742,7 +19983,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-outobj.melt:2225:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2227:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCCV__V2*/ meltfptr[1]), 0, "OBV_TYPE"); @@ -19753,7 +19994,7 @@ lab_endgetargs:; /*_#__L3*/ meltfnum[1] = (( /*_.OBV_TYPE__V11*/ meltfptr[10]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2224:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2226:/ cond"); /*cond */ if ( /*_#__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19761,7 +20002,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2224:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2226:/ cond.else"); /*^block */ /*anyblock */ @@ -19775,7 +20016,7 @@ lab_endgetargs:; melt_assert_failed (("check valueness of closed occurrence"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2224) ? (2224) : __LINE__, __FUNCTION__); + (2226) ? (2226) : __LINE__, __FUNCTION__); ; } ; @@ -19790,7 +20031,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2224:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2226:/ clear"); /*clear *//*_.OBV_TYPE__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_#__L3*/ meltfnum[1] = 0; @@ -19805,7 +20046,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2226:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2228:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("(/*~")); @@ -19813,7 +20054,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2227:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2229:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -19822,7 +20063,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2228:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2230:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/ meltfclos->tabval[")); @@ -19832,14 +20073,14 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.OOFF__V8*/ meltfptr[7])));; { - MELT_LOCATION ("warmelt-outobj.melt:2229:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2231:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L4*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2230:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2232:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("])")); @@ -19847,7 +20088,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2231:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2233:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19858,7 +20099,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2232:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2234:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -19893,7 +20134,7 @@ lab_endgetargs:; /*_#I__L7*/ meltfnum[6] = (( /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4]) < ( /*_#GET_INT__L6*/ meltfnum[5]));; - MELT_LOCATION ("warmelt-outobj.melt:2231:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2233:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -19901,7 +20142,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2231:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2233:/ cond.else"); /*^block */ /*anyblock */ @@ -19915,7 +20156,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2231) ? (2231) : __LINE__, __FUNCTION__); + (2233) ? (2233) : __LINE__, __FUNCTION__); ; } ; @@ -19930,7 +20171,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[10] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2231:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2233:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V14*/ meltfptr[11] = 0; @@ -19951,7 +20192,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V13*/ meltfptr[10];; - MELT_LOCATION ("warmelt-outobj.melt:2222:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2224:/ clear"); /*clear *//*_.OOFF__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ONAM__V9*/ meltfptr[8] = 0; @@ -19961,14 +20202,26 @@ lab_endgetargs:; /*clear *//*_#GET_INT__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFCPP___V13*/ meltfptr[10] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2220:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2222:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2220:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2222:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -20064,7 +20317,7 @@ meltrout_50_warmelt_outobj_OUTPUCOD_OBJCONSTV (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2239:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2241:/ getarg"); /*_.OCNSTV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -20102,7 +20355,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2240:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2242:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20114,7 +20367,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OCNSTV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCONSTV */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2240:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2242:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20122,7 +20375,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2240:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2242:/ cond.else"); /*^block */ /*anyblock */ @@ -20136,7 +20389,7 @@ lab_endgetargs:; melt_assert_failed (("check ocnstv"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2240) ? (2240) : __LINE__, __FUNCTION__); + (2242) ? (2242) : __LINE__, __FUNCTION__); ; } ; @@ -20151,7 +20404,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2240:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2242:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -20162,7 +20415,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2241:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2243:/ quasiblock"); /*^getslot */ @@ -20173,7 +20426,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2242:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2244:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCNSTV__V2*/ meltfptr[1]), 3, "OBC_NAME"); @@ -20183,7 +20436,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2243:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2245:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20191,7 +20444,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-outobj.melt:2244:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2246:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCNSTV__V2*/ meltfptr[1]), 0, "OBV_TYPE"); @@ -20202,7 +20455,7 @@ lab_endgetargs:; /*_#__L3*/ meltfnum[1] = (( /*_.OBV_TYPE__V11*/ meltfptr[10]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2243:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2245:/ cond"); /*cond */ if ( /*_#__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20210,7 +20463,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2243:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2245:/ cond.else"); /*^block */ /*anyblock */ @@ -20224,7 +20477,7 @@ lab_endgetargs:; melt_assert_failed (("check valueness of const occurrence"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2243) ? (2243) : __LINE__, __FUNCTION__); + (2245) ? (2245) : __LINE__, __FUNCTION__); ; } ; @@ -20239,7 +20492,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2243:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2245:/ clear"); /*clear *//*_.OBV_TYPE__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_#__L3*/ meltfnum[1] = 0; @@ -20254,7 +20507,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2245:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2247:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("(/*!")); @@ -20262,7 +20515,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2246:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2248:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -20271,7 +20524,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2248:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2250:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/ meltfrout->tabval[")); @@ -20281,14 +20534,14 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.OOFF__V8*/ meltfptr[7])));; { - MELT_LOCATION ("warmelt-outobj.melt:2249:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2251:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L4*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2250:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2252:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("])")); @@ -20296,7 +20549,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2251:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2253:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20307,7 +20560,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2252:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2254:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20342,7 +20595,7 @@ lab_endgetargs:; /*_#I__L7*/ meltfnum[6] = (( /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4]) < ( /*_#GET_INT__L6*/ meltfnum[5]));; - MELT_LOCATION ("warmelt-outobj.melt:2251:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2253:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -20350,7 +20603,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2251:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2253:/ cond.else"); /*^block */ /*anyblock */ @@ -20364,7 +20617,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2251) ? (2251) : __LINE__, __FUNCTION__); + (2253) ? (2253) : __LINE__, __FUNCTION__); ; } ; @@ -20379,7 +20632,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[10] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2251:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2253:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V14*/ meltfptr[11] = 0; @@ -20400,7 +20653,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V13*/ meltfptr[10];; - MELT_LOCATION ("warmelt-outobj.melt:2241:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2243:/ clear"); /*clear *//*_.OOFF__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ONAM__V9*/ meltfptr[8] = 0; @@ -20410,14 +20663,26 @@ lab_endgetargs:; /*clear *//*_#GET_INT__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFCPP___V13*/ meltfptr[10] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2239:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2241:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2239:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2241:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -20518,7 +20783,7 @@ meltrout_51_warmelt_outobj_OUTPUT_CODE_INSTRUCTIONS_LIST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2258:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2260:/ getarg"); /*_.LIS__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -20560,7 +20825,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2259:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2261:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20573,7 +20838,7 @@ lab_endgetargs:; || (melt_unsafe_magic_discr ((melt_ptr_t) ( /*_.LIS__V2*/ meltfptr[1])) == MELTOBMAG_LIST));; - MELT_LOCATION ("warmelt-outobj.melt:2259:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2261:/ cond"); /*cond */ if ( /*_#IS_LIST_OR_NULL__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20581,7 +20846,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2259:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2261:/ cond.else"); /*^block */ /*anyblock */ @@ -20595,7 +20860,7 @@ lab_endgetargs:; melt_assert_failed (("check lis"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2259) ? (2259) : __LINE__, __FUNCTION__); + (2261) ? (2261) : __LINE__, __FUNCTION__); ; } ; @@ -20610,7 +20875,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2259:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2261:/ clear"); /*clear *//*_#IS_LIST_OR_NULL__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -20623,7 +20888,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2260:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2262:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20634,7 +20899,7 @@ lab_endgetargs:; /*_#IS_INTEGERBOX__L2*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.BOXEDDEPTH__V5*/ meltfptr[4])) == MELTOBMAG_INT);; - MELT_LOCATION ("warmelt-outobj.melt:2260:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2262:/ cond"); /*cond */ if ( /*_#IS_INTEGERBOX__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20642,7 +20907,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2260:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2262:/ cond.else"); /*^block */ /*anyblock */ @@ -20656,7 +20921,7 @@ lab_endgetargs:; melt_assert_failed (("check boxeddepth"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2260) ? (2260) : __LINE__, __FUNCTION__); + (2262) ? (2262) : __LINE__, __FUNCTION__); ; } ; @@ -20671,7 +20936,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2260:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2262:/ clear"); /*clear *//*_#IS_INTEGERBOX__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -20682,14 +20947,14 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2261:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2263:/ quasiblock"); /*_#DEPTH__L3*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) ( /*_.BOXEDDEPTH__V5*/ meltfptr[4])));; { - MELT_LOCATION ("warmelt-outobj.melt:2262:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2264:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L3*/ meltfnum[0]), 0); } @@ -20708,14 +20973,14 @@ lab_endgetargs:; melt_pair_head ((melt_ptr_t) /*_.PAIR__V10*/ meltfptr[8]); - MELT_LOCATION ("warmelt-outobj.melt:2267:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2269:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of ((melt_ptr_t) ( /*_.CUR__V11*/ meltfptr[10]), (melt_ptr_t) (( /*!CLASS_OBJPLAINBLOCK */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2267:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2269:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -20725,14 +20990,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2268:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2270:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L3*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2269:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2271:/ quasiblock"); /*^getslot */ @@ -20743,7 +21008,7 @@ lab_endgetargs:; meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2270:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2272:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CUR__V11*/ meltfptr[10]), 1, "OBLO_BODYL"); @@ -20751,7 +21016,7 @@ lab_endgetargs:; meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2271:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2273:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CUR__V11*/ meltfptr[10]), 2, "OBLO_EPIL"); @@ -20759,7 +21024,7 @@ lab_endgetargs:; meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2273:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2275:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -20800,7 +21065,7 @@ lab_endgetargs:; /*_.OUTPUT_LOCATION__V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2273:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2275:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V18*/ meltfptr[17] = 0; } ; @@ -20811,7 +21076,7 @@ lab_endgetargs:; /*_.IF___V17*/ meltfptr[16] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2274:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2276:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -20856,7 +21121,7 @@ lab_endgetargs:; meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2274:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2276:/ clear"); /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ meltfptr[19] = 0; } @@ -20868,7 +21133,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[17] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2275:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2277:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -20913,7 +21178,7 @@ lab_endgetargs:; meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2275:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2277:/ clear"); /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ meltfptr[21] = 0; } @@ -20929,7 +21194,7 @@ lab_endgetargs:; /*_.LET___V13*/ meltfptr[12] = /*_.IF___V21*/ meltfptr[19];; - MELT_LOCATION ("warmelt-outobj.melt:2269:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2271:/ clear"); /*clear *//*_.BLOC__V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.BODYL__V15*/ meltfptr[14] = 0; @@ -20941,7 +21206,7 @@ lab_endgetargs:; /*clear *//*_.IF___V19*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.IF___V21*/ meltfptr[19] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2267:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2269:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[21] = @@ -20952,7 +21217,7 @@ lab_endgetargs:; /*_.PROGN___V23*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2267:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2269:/ clear"); /*clear *//*_.LET___V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.PROGN___V23*/ meltfptr[21] = 0; @@ -20966,7 +21231,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2278:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2280:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -20990,7 +21255,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L6*/ meltfnum[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2278:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2280:/ clear"); /*clear *//*_#IS_NOT_A__L6*/ meltfnum[5] = 0; } ; @@ -21001,7 +21266,7 @@ lab_endgetargs:; /*_#IF___L5*/ meltfnum[4] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2278:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2280:/ cond"); /*cond */ if ( /*_#IF___L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -21011,7 +21276,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2279:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2281:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -21020,7 +21285,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:2280:/ checksignal"); + ("warmelt-outobj.melt:2282:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -21048,14 +21313,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2281:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2283:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2278:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2280:/ quasiblock"); /*epilog */ @@ -21077,7 +21342,7 @@ lab_endgetargs:; /*_.IFELSE___V24*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2267:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2269:/ clear"); /*clear *//*_#IF___L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IFELSE___V24*/ meltfptr[13] = 0; @@ -21087,7 +21352,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2283:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2285:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21098,7 +21363,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2284:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2286:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -21133,7 +21398,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5]) < ( /*_#GET_INT__L8*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2283:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2285:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -21141,7 +21406,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2283:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2285:/ cond.else"); /*^block */ /*anyblock */ @@ -21155,7 +21420,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2283) ? (2283) : __LINE__, + (2285) ? (2285) : __LINE__, __FUNCTION__); ; } @@ -21171,7 +21436,7 @@ lab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[15] = /*_.IFELSE___V28*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2283:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2285:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V27*/ meltfptr[16] = 0; @@ -21190,7 +21455,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2285:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2287:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21201,7 +21466,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L10*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:2286:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2288:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -21236,7 +21501,7 @@ lab_endgetargs:; /*_#I__L12*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L10*/ meltfnum[5]) < ( /*_#GET_INT__L11*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2285:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2287:/ cond"); /*cond */ if ( /*_#I__L12*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -21244,7 +21509,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2285:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2287:/ cond.else"); /*^block */ /*anyblock */ @@ -21258,7 +21523,7 @@ lab_endgetargs:; melt_assert_failed (("check limited declbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2285) ? (2285) : __LINE__, + (2287) ? (2287) : __LINE__, __FUNCTION__); ; } @@ -21274,7 +21539,7 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[19] = /*_.IFELSE___V31*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2285:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2287:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L10*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V30*/ meltfptr[12] = 0; @@ -21298,7 +21563,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:2263:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2265:/ clear"); /*clear *//*_.PAIR__V10*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_.CUR__V11*/ meltfptr[10] = 0; @@ -21313,9 +21578,9 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-outobj.melt:2261:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2263:/ clear"); /*clear *//*_#DEPTH__L3*/ meltfnum[0] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2258:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2260:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -21412,7 +21677,7 @@ meltrout_52_warmelt_outobj_OUTPUCOD_OBJCHECKSIGNAL (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2292:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2294:/ getarg"); /*_.OBCHI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -21450,7 +21715,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2293:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2295:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21462,7 +21727,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBCHI__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCHECKSIGNAL */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2293:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2295:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21470,7 +21735,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2293:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2295:/ cond.else"); /*^block */ /*anyblock */ @@ -21484,7 +21749,7 @@ lab_endgetargs:; melt_assert_failed (("check ochi"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2293) ? (2293) : __LINE__, __FUNCTION__); + (2295) ? (2295) : __LINE__, __FUNCTION__); ; } ; @@ -21499,7 +21764,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2293:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2295:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -21510,7 +21775,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2294:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2296:/ quasiblock"); /*^getslot */ @@ -21521,7 +21786,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2296:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2298:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -21559,7 +21824,7 @@ lab_endgetargs:; /*_.IF___V8*/ meltfptr[7] = /*_.OUTPUT_LOCATION__V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2296:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2298:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V9*/ meltfptr[8] = 0; } ; @@ -21570,7 +21835,7 @@ lab_endgetargs:; /*_.IF___V8*/ meltfptr[7] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2297:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2299:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21590,19 +21855,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2298:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2300:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2294:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2296:/ clear"); /*clear *//*_.OLOC__V7*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.IF___V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V10*/ meltfptr[8] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2292:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2294:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -21696,7 +21961,7 @@ meltrout_53_warmelt_outobj_OUTPUCOD_OBJANYBLOCK (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2303:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2305:/ getarg"); /*_.OBLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -21734,7 +21999,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2304:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2306:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21746,7 +22011,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJANYBLOCK */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2304:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2306:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21754,7 +22019,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2304:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2306:/ cond.else"); /*^block */ /*anyblock */ @@ -21768,7 +22033,7 @@ lab_endgetargs:; melt_assert_failed (("check oblo"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2304) ? (2304) : __LINE__, __FUNCTION__); + (2306) ? (2306) : __LINE__, __FUNCTION__); ; } ; @@ -21783,7 +22048,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2304:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2306:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -21794,7 +22059,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2305:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2307:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -21824,7 +22089,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2306:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2308:/ quasiblock"); /*^getslot */ @@ -21835,7 +22100,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2307:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2309:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 2, "OBLO_EPIL"); @@ -21853,19 +22118,19 @@ lab_endgetargs:; ( /*_#I__L3*/ meltfnum[1])));; { - MELT_LOCATION ("warmelt-outobj.melt:2310:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2312:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*anyblock*/{")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2311:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2313:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L4*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.BODYL__V10*/ meltfptr[9])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2311:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2313:/ cond"); /*cond */ if ( /*_#IS_LIST__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -21873,7 +22138,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2312:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2314:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21903,7 +22168,7 @@ lab_endgetargs:; /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2311:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2313:/ clear"); /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V14*/ meltfptr[13] = 0; } ; @@ -21914,13 +22179,13 @@ lab_endgetargs:; /*_.IF___V13*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2313:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2315:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L5*/ meltfnum[4] = (melt_magic_discr ((melt_ptr_t) ( /*_.EPIL__V11*/ meltfptr[10])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2313:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2315:/ cond"); /*cond */ if ( /*_#IS_LIST__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -21933,7 +22198,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V12*/ meltfptr[11])));; { - MELT_LOCATION ("warmelt-outobj.melt:2315:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2317:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L6*/ meltfnum[5]), 0); @@ -21941,14 +22206,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2316:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2318:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*epilog*/")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2317:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2319:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21974,7 +22239,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2314:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2316:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[16] = @@ -21984,7 +22249,7 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[13] = /*_.PROGN___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2313:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2315:/ clear"); /*clear *//*_#GET_INT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V16*/ meltfptr[15] = 0; @@ -22001,7 +22266,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2318:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2320:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -22009,14 +22274,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2319:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2321:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2320:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2322:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22027,7 +22292,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2321:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2323:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22062,7 +22327,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5]) < ( /*_#GET_INT__L8*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:2320:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2322:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -22070,7 +22335,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2320:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2322:/ cond.else"); /*^block */ /*anyblock */ @@ -22084,7 +22349,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2320) ? (2320) : __LINE__, __FUNCTION__); + (2322) ? (2322) : __LINE__, __FUNCTION__); ; } ; @@ -22099,7 +22364,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[15] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2320:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2322:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V19*/ meltfptr[16] = 0; @@ -22120,7 +22385,7 @@ lab_endgetargs:; /*_.LET___V9*/ meltfptr[8] = /*_.IFCPP___V18*/ meltfptr[15];; - MELT_LOCATION ("warmelt-outobj.melt:2306:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2308:/ clear"); /*clear *//*_.BODYL__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.EPIL__V11*/ meltfptr[10] = 0; @@ -22138,14 +22403,26 @@ lab_endgetargs:; /*clear *//*_.IF___V15*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.IFCPP___V18*/ meltfptr[15] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2303:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2305:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[8];; - MELT_LOCATION ("warmelt-outobj.melt:2303:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2305:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -22250,7 +22527,7 @@ meltrout_54_warmelt_outobj_OUTPUCOD_OBJMULTIALLOCBLOCK (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2327:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2329:/ getarg"); /*_.OBLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -22288,7 +22565,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2328:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2330:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22300,7 +22577,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJMULTIALLOCBLOCK */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2328:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2330:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22308,7 +22585,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2328:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2330:/ cond.else"); /*^block */ /*anyblock */ @@ -22322,7 +22599,7 @@ lab_endgetargs:; melt_assert_failed (("check oblo"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2328) ? (2328) : __LINE__, __FUNCTION__); + (2330) ? (2330) : __LINE__, __FUNCTION__); ; } ; @@ -22337,7 +22614,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2328:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2330:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -22348,7 +22625,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2329:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2331:/ quasiblock"); /*^getslot */ @@ -22359,7 +22636,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2330:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2332:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 3, "OMALBLO_ALLSTRUCT"); @@ -22367,7 +22644,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2331:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2333:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 4, "OMALBLO_NAME"); @@ -22375,7 +22652,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2332:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2334:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 2, "OBLO_EPIL"); @@ -22383,7 +22660,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2333:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2335:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 1, "OBLO_BODYL"); @@ -22399,7 +22676,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[1])), ( /*_#DEPTHP1__L3*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2336:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2338:/ quasiblock"); /*_.PTRBUF__V14*/ meltfptr[13] = @@ -22409,7 +22686,7 @@ lab_endgetargs:; (const char *) 0);; { - MELT_LOCATION ("warmelt-outobj.melt:2337:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.PTRBUF__V14*/ meltfptr[13]), melt_string_str ((melt_ptr_t) @@ -22418,7 +22695,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2338:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2340:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.PTRBUF__V14*/ meltfptr[13]), ("_ptr")); @@ -22433,12 +22710,12 @@ lab_endgetargs:; /*_.LET___V13*/ meltfptr[12] = /*_.STRBUF2STRING__V15*/ meltfptr[14];; - MELT_LOCATION ("warmelt-outobj.melt:2336:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2338:/ clear"); /*clear *//*_.PTRBUF__V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.STRBUF2STRING__V15*/ meltfptr[14] = 0; /*_.ONAMEPTR__V16*/ meltfptr[13] = /*_.LET___V13*/ meltfptr[12];; - MELT_LOCATION ("warmelt-outobj.melt:2341:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2343:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22462,7 +22739,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2342:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2344:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22476,7 +22753,7 @@ lab_endgetargs:; (melt_unsafe_magic_discr ((melt_ptr_t) ( /*_.OALLSTRUCT__V8*/ meltfptr[7])) == MELTOBMAG_MULTIPLE));; - MELT_LOCATION ("warmelt-outobj.melt:2342:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2344:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE_OR_NULL__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -22484,7 +22761,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2342:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2344:/ cond.else"); /*^block */ /*anyblock */ @@ -22498,7 +22775,7 @@ lab_endgetargs:; melt_assert_failed (("check oallstruct"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2342) ? (2342) : __LINE__, __FUNCTION__); + (2344) ? (2344) : __LINE__, __FUNCTION__); ; } ; @@ -22513,7 +22790,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2342:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2344:/ clear"); /*clear *//*_#IS_MULTIPLE_OR_NULL__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; @@ -22526,7 +22803,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2343:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2345:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*multiallocblock*/{")); @@ -22534,14 +22811,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2344:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2346:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2345:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2347:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("struct ")); @@ -22549,7 +22826,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2346:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2348:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -22558,7 +22835,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2347:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2349:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("_st {")); @@ -22583,7 +22860,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2351:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2353:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22596,7 +22873,7 @@ lab_endgetargs:; ( /*_.CURSTRU__V20*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_OBJINITELEM */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-outobj.melt:2351:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2353:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -22604,7 +22881,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2351:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2353:/ cond.else"); /*^block */ /*anyblock */ @@ -22618,7 +22895,7 @@ lab_endgetargs:; melt_assert_failed (("check curstru"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2351) ? (2351) : __LINE__, + (2353) ? (2353) : __LINE__, __FUNCTION__); ; } @@ -22634,7 +22911,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.IFELSE___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2351:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2353:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IFELSE___V22*/ meltfptr[21] = 0; @@ -22647,13 +22924,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2352:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2354:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2353:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2355:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -22673,7 +22950,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2354:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2356:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22684,7 +22961,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2355:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2357:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22719,7 +22996,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5]) < ( /*_#GET_INT__L8*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:2354:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2356:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -22727,7 +23004,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2354:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2356:/ cond.else"); /*^block */ /*anyblock */ @@ -22741,7 +23018,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2354) ? (2354) : __LINE__, + (2356) ? (2356) : __LINE__, __FUNCTION__); ; } @@ -22757,7 +23034,7 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[23] = /*_.IFELSE___V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2354:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2356:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V25*/ meltfptr[24] = 0; @@ -22780,7 +23057,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:2348:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2350:/ clear"); /*clear *//*_.CURSTRU__V20*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_#STRIX__L5*/ meltfnum[3] = 0; @@ -22794,7 +23071,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2357:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2359:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" long ")); @@ -22802,7 +23079,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2358:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2360:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -22811,7 +23088,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2359:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2361:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("_endgap; } *")); @@ -22819,7 +23096,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2360:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2362:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -22828,7 +23105,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2361:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2363:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("_ptr = 0;")); @@ -22836,14 +23113,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2362:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2364:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2363:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2365:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -22852,7 +23129,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2364:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2366:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("_ptr = (struct ")); @@ -22860,7 +23137,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2365:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2367:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -22869,7 +23146,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2366:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2368:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("_st *) meltgc_allocate (sizeof (struct ")); @@ -22877,7 +23154,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2367:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2369:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -22886,7 +23163,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2368:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2370:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("_st), 0);")); @@ -22894,12 +23171,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2369:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2371:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2371:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2373:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22938,7 +23215,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:2375:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2377:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -22964,7 +23241,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2376:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2378:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22975,7 +23252,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L11*/ meltfnum[7] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2377:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2379:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -23010,7 +23287,7 @@ lab_endgetargs:; /*_#I__L13*/ meltfnum[12] = (( /*_#STRBUF_USEDLENGTH__L11*/ meltfnum[7]) < ( /*_#GET_INT__L12*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-outobj.melt:2376:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2378:/ cond"); /*cond */ if ( /*_#I__L13*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -23018,7 +23295,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2376:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2378:/ cond.else"); /*^block */ /*anyblock */ @@ -23032,7 +23309,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2376) ? (2376) : __LINE__, + (2378) ? (2378) : __LINE__, __FUNCTION__); ; } @@ -23048,7 +23325,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[29] = /*_.IFELSE___V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2376:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2378:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L11*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V31*/ meltfptr[30] = 0; @@ -23067,7 +23344,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2378:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2380:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); @@ -23079,7 +23356,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:2372:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2374:/ clear"); /*clear *//*_.CURSTRU__V28*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_#STRIX__L10*/ meltfnum[5] = 0; @@ -23089,13 +23366,13 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V30*/ meltfptr[29] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:2381:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2383:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L14*/ meltfnum[7] = (melt_magic_discr ((melt_ptr_t) ( /*_.BODYL__V11*/ meltfptr[10])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2381:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2383:/ cond"); /*cond */ if ( /*_#IS_LIST__L14*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -23103,7 +23380,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2382:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2384:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23133,7 +23410,7 @@ lab_endgetargs:; /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V34*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2381:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2383:/ clear"); /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V34*/ meltfptr[31] = 0; } ; @@ -23144,13 +23421,13 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2384:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2386:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L15*/ meltfnum[8] = (melt_magic_discr ((melt_ptr_t) ( /*_.EPIL__V10*/ meltfptr[9])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2384:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2386:/ cond"); /*cond */ if ( /*_#IS_LIST__L15*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -23163,7 +23440,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V12*/ meltfptr[11])));; { - MELT_LOCATION ("warmelt-outobj.melt:2386:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2388:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L16*/ meltfnum[12]), 0); @@ -23171,14 +23448,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2387:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2389:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*epilog*/")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2388:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2390:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23204,7 +23481,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2385:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2387:/ quasiblock"); /*_.PROGN___V37*/ meltfptr[36] = @@ -23214,7 +23491,7 @@ lab_endgetargs:; /*_.IF___V35*/ meltfptr[31] = /*_.PROGN___V37*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2384:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2386:/ clear"); /*clear *//*_#GET_INT__L16*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V36*/ meltfptr[35] = 0; @@ -23231,7 +23508,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2390:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2392:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} /*end multiallocblock*/")); @@ -23239,13 +23516,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2391:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2393:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2329:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2331:/ clear"); /*clear *//*_.OLOC__V7*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.OALLSTRUCT__V8*/ meltfptr[7] = 0; @@ -23279,7 +23556,7 @@ lab_endgetargs:; /*clear *//*_.IF___V35*/ meltfptr[31] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2393:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2395:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23290,7 +23567,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L17*/ meltfnum[12] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2394:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2396:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -23325,7 +23602,7 @@ lab_endgetargs:; /*_#I__L19*/ meltfnum[7] = (( /*_#STRBUF_USEDLENGTH__L17*/ meltfnum[12]) < ( /*_#GET_INT__L18*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-outobj.melt:2393:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2395:/ cond"); /*cond */ if ( /*_#I__L19*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -23333,7 +23610,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2393:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2395:/ cond.else"); /*^block */ /*anyblock */ @@ -23347,7 +23624,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2393) ? (2393) : __LINE__, __FUNCTION__); + (2395) ? (2395) : __LINE__, __FUNCTION__); ; } ; @@ -23362,7 +23639,7 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[35] = /*_.IFELSE___V40*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2393:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2395:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L17*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V39*/ meltfptr[36] = 0; @@ -23379,14 +23656,26 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[35] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2327:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2329:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V38*/ meltfptr[35];; - MELT_LOCATION ("warmelt-outobj.melt:2327:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2329:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -23483,7 +23772,7 @@ meltrout_55_warmelt_outobj_OUTPUCOD_OBJCITERBLOCK (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2399:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2401:/ getarg"); /*_.OBCIT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -23521,7 +23810,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2400:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2402:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23533,7 +23822,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBCIT__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCITERBLOCK */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2400:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2402:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -23541,7 +23830,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2400:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2402:/ cond.else"); /*^block */ /*anyblock */ @@ -23555,7 +23844,7 @@ lab_endgetargs:; melt_assert_failed (("check obcit"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2400) ? (2400) : __LINE__, __FUNCTION__); + (2402) ? (2402) : __LINE__, __FUNCTION__); ; } ; @@ -23570,7 +23859,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2400:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2402:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -23581,7 +23870,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2401:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2403:/ quasiblock"); /*^getslot */ @@ -23592,7 +23881,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2402:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2404:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCIT__V2*/ meltfptr[1]), 1, "OBLO_BODYL"); @@ -23600,7 +23889,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2403:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2405:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCIT__V2*/ meltfptr[1]), 2, "OBLO_EPIL"); @@ -23616,7 +23905,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[1])), ( /*_#I__L3*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2405:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2407:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCIT__V2*/ meltfptr[1]), 4, "OBCITER_BEFORE"); @@ -23624,7 +23913,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2406:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2408:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCIT__V2*/ meltfptr[1]), 5, "OBCITER_AFTER"); @@ -23632,7 +23921,7 @@ lab_endgetargs:; meltfptr[11] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2407:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2409:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCIT__V2*/ meltfptr[1]), 3, "OBCITER_CITER"); @@ -23642,7 +23931,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2409:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23654,7 +23943,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CITER__V13*/ meltfptr[12]), (melt_ptr_t) (( /*!CLASS_CITERATOR */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:2409:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -23662,7 +23951,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2409:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ cond.else"); /*^block */ /*anyblock */ @@ -23676,7 +23965,7 @@ lab_endgetargs:; melt_assert_failed (("check citer"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2409) ? (2409) : __LINE__, __FUNCTION__); + (2411) ? (2411) : __LINE__, __FUNCTION__); ; } ; @@ -23691,7 +23980,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[13] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2409:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -23702,7 +23991,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[13] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2410:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2412:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23722,13 +24011,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2411:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2413:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*citerblock ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2412:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2414:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CITER__V13*/ meltfptr[12]), 1, "NAMED_NAME"); @@ -23748,7 +24037,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2413:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2415:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/ {")); @@ -23756,12 +24045,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2414:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2416:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2415:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2417:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23799,7 +24088,7 @@ lab_endgetargs:; /*_#GET_INT__L6*/ meltfnum[5] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V10*/ meltfptr[9])));; - MELT_LOCATION ("warmelt-outobj.melt:2419:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2421:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23825,7 +24114,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2420:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2422:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23836,7 +24125,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2421:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2423:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -23871,7 +24160,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6]) < ( /*_#GET_INT__L8*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:2420:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2422:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -23879,7 +24168,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2420:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2422:/ cond.else"); /*^block */ /*anyblock */ @@ -23893,7 +24182,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2420) ? (2420) : __LINE__, + (2422) ? (2422) : __LINE__, __FUNCTION__); ; } @@ -23909,7 +24198,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2420:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2422:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V22*/ meltfptr[21] = 0; @@ -23932,7 +24221,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:2416:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2418:/ clear"); /*clear *//*_.OBEF__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_#IX__L5*/ meltfnum[3] = 0; @@ -23946,12 +24235,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2423:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2425:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2424:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2426:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23969,13 +24258,13 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2425:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2427:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L10*/ meltfnum[6] = (melt_magic_discr ((melt_ptr_t) ( /*_.BODYL__V8*/ meltfptr[7])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2425:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2427:/ cond"); /*cond */ if ( /*_#IS_LIST__L10*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -23983,7 +24272,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2426:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2428:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24013,7 +24302,7 @@ lab_endgetargs:; /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2425:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2427:/ clear"); /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ meltfptr[25] = 0; } ; @@ -24026,12 +24315,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2427:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2429:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2428:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2430:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24068,7 +24357,7 @@ lab_endgetargs:; /*_#GET_INT__L12*/ meltfnum[8] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V10*/ meltfptr[9])));; - MELT_LOCATION ("warmelt-outobj.melt:2432:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2434:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -24094,7 +24383,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2433:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2435:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24105,7 +24394,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L13*/ meltfnum[12] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2434:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2436:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24140,7 +24429,7 @@ lab_endgetargs:; /*_#I__L15*/ meltfnum[14] = (( /*_#STRBUF_USEDLENGTH__L13*/ meltfnum[12]) < ( /*_#GET_INT__L14*/ meltfnum[13]));; - MELT_LOCATION ("warmelt-outobj.melt:2433:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2435:/ cond"); /*cond */ if ( /*_#I__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -24148,7 +24437,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2433:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2435:/ cond.else"); /*^block */ /*anyblock */ @@ -24162,7 +24451,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2433) ? (2433) : __LINE__, + (2435) ? (2435) : __LINE__, __FUNCTION__); ; } @@ -24178,7 +24467,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[29] = /*_.IFELSE___V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2433:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2435:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V31*/ meltfptr[30] = 0; @@ -24201,7 +24490,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:2429:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2431:/ clear"); /*clear *//*_.OAFT__V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_#IX__L11*/ meltfnum[7] = 0; @@ -24215,12 +24504,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2436:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2438:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2437:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2439:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24238,13 +24527,13 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2438:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2440:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L16*/ meltfnum[12] = (melt_magic_discr ((melt_ptr_t) ( /*_.EPIL__V9*/ meltfptr[8])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2438:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2440:/ cond"); /*cond */ if ( /*_#IS_LIST__L16*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -24257,7 +24546,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V10*/ meltfptr[9])));; { - MELT_LOCATION ("warmelt-outobj.melt:2440:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2442:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L17*/ meltfnum[13]), 0); @@ -24265,14 +24554,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2441:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2443:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*citerepilog*/")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2442:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2444:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24298,7 +24587,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2439:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2441:/ quasiblock"); /*_.PROGN___V36*/ meltfptr[35] = @@ -24308,7 +24597,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[31] = /*_.PROGN___V36*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2438:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2440:/ clear"); /*clear *//*_#GET_INT__L17*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V35*/ meltfptr[34] = 0; @@ -24325,13 +24614,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2443:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2445:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} /*endciterblock ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2444:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2446:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CITER__V13*/ meltfptr[12]), 1, "NAMED_NAME"); @@ -24351,7 +24640,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2445:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2447:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -24359,13 +24648,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2446:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2448:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2401:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2403:/ clear"); /*clear *//*_.OLOC__V7*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.BODYL__V8*/ meltfptr[7] = 0; @@ -24407,7 +24696,7 @@ lab_endgetargs:; /*clear *//*_.NAMED_NAME__V37*/ meltfptr[34] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2448:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2450:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24418,7 +24707,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[14] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2449:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2451:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24453,7 +24742,7 @@ lab_endgetargs:; /*_#I__L20*/ meltfnum[1] = (( /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[14]) < ( /*_#GET_INT__L19*/ meltfnum[13]));; - MELT_LOCATION ("warmelt-outobj.melt:2448:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2450:/ cond"); /*cond */ if ( /*_#I__L20*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -24461,7 +24750,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2448:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2450:/ cond.else"); /*^block */ /*anyblock */ @@ -24475,7 +24764,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2448) ? (2448) : __LINE__, __FUNCTION__); + (2450) ? (2450) : __LINE__, __FUNCTION__); ; } ; @@ -24490,7 +24779,7 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[35] = /*_.IFELSE___V40*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2448:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2450:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L18*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V39*/ meltfptr[5] = 0; @@ -24507,14 +24796,26 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[35] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2399:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2401:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V38*/ meltfptr[35];; - MELT_LOCATION ("warmelt-outobj.melt:2399:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2401:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -24614,7 +24915,7 @@ meltrout_56_warmelt_outobj_OUTPUCOD_OBJCOMMENTINSTR (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2454:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2456:/ getarg"); /*_.OBCI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -24652,7 +24953,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2455:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2457:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24664,7 +24965,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBCI__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCOMMENTINSTR */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2455:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2457:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -24672,7 +24973,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2455:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2457:/ cond.else"); /*^block */ /*anyblock */ @@ -24686,7 +24987,7 @@ lab_endgetargs:; melt_assert_failed (("check obci"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2455) ? (2455) : __LINE__, __FUNCTION__); + (2457) ? (2457) : __LINE__, __FUNCTION__); ; } ; @@ -24701,7 +25002,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2455:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2457:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -24712,7 +25013,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2456:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2458:/ quasiblock"); /*^getslot */ @@ -24723,7 +25024,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2457:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2459:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCI__V2*/ meltfptr[1]), 1, "OBCI_COMMENT"); @@ -24731,7 +25032,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2458:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2460:/ quasiblock"); /*_.SBU__V11*/ meltfptr[10] = @@ -24741,7 +25042,7 @@ lab_endgetargs:; (const char *) 0);; { - MELT_LOCATION ("warmelt-outobj.melt:2459:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2461:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) ( /*_.SBU__V11*/ meltfptr[10]), melt_string_str ((melt_ptr_t) ( /*_.COMS__V9*/ @@ -24756,12 +25057,12 @@ lab_endgetargs:; /*_.LET___V10*/ meltfptr[9] = /*_.STRBUF2STRING__V12*/ meltfptr[11];; - MELT_LOCATION ("warmelt-outobj.melt:2458:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2460:/ clear"); /*clear *//*_.SBU__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.STRBUF2STRING__V12*/ meltfptr[11] = 0; /*_.COMSTR__V13*/ meltfptr[10] = /*_.LET___V10*/ meltfptr[9];; - MELT_LOCATION ("warmelt-outobj.melt:2463:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2465:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24785,7 +25086,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2464:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2466:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/**COMMENT: ")); @@ -24793,7 +25094,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2465:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2467:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -24803,7 +25104,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2466:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2468:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" **/;")); @@ -24811,14 +25112,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2467:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2469:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2468:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2470:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24829,7 +25130,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2469:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2471:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24864,7 +25165,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = (( /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1]) < ( /*_#GET_INT__L4*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2468:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2470:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -24872,7 +25173,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2468:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2470:/ cond.else"); /*^block */ /*anyblock */ @@ -24886,7 +25187,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2468) ? (2468) : __LINE__, __FUNCTION__); + (2470) ? (2470) : __LINE__, __FUNCTION__); ; } ; @@ -24901,7 +25202,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2468:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2470:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V16*/ meltfptr[15] = 0; @@ -24922,7 +25223,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V15*/ meltfptr[14];; - MELT_LOCATION ("warmelt-outobj.melt:2456:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2458:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.COMS__V9*/ meltfptr[8] = 0; @@ -24934,14 +25235,26 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_LOCATION__V14*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.IFCPP___V15*/ meltfptr[14] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2454:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2456:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2454:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2456:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -25041,7 +25354,7 @@ meltrout_57_warmelt_outobj_OUTPUCOD_OBJCOMMENTEDBLOCK (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2475:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2477:/ getarg"); /*_.OBLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -25079,7 +25392,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2476:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2478:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25091,7 +25404,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCOMMENTEDBLOCK */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2476:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2478:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -25099,7 +25412,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2476:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2478:/ cond.else"); /*^block */ /*anyblock */ @@ -25113,7 +25426,7 @@ lab_endgetargs:; melt_assert_failed (("check oblo"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2476) ? (2476) : __LINE__, __FUNCTION__); + (2478) ? (2478) : __LINE__, __FUNCTION__); ; } ; @@ -25128,7 +25441,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2476:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2478:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -25139,7 +25452,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2477:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2479:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -25169,7 +25482,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2478:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2480:/ quasiblock"); /*^getslot */ @@ -25180,7 +25493,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2479:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2481:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 2, "OBLO_EPIL"); @@ -25196,7 +25509,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[2])), ( /*_#I__L3*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2481:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2483:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 3, "OCOMBLO_COMMENT"); @@ -25204,7 +25517,7 @@ lab_endgetargs:; meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2482:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2484:/ quasiblock"); /*_.SBU__V15*/ meltfptr[14] = @@ -25214,7 +25527,7 @@ lab_endgetargs:; (const char *) 0);; { - MELT_LOCATION ("warmelt-outobj.melt:2483:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2485:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) ( /*_.SBU__V15*/ meltfptr[14]), melt_string_str ((melt_ptr_t) ( /*_.COMS__V13*/ @@ -25229,14 +25542,14 @@ lab_endgetargs:; /*_.LET___V14*/ meltfptr[13] = /*_.STRBUF2STRING__V16*/ meltfptr[15];; - MELT_LOCATION ("warmelt-outobj.melt:2482:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2484:/ clear"); /*clear *//*_.SBU__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.STRBUF2STRING__V16*/ meltfptr[15] = 0; /*_.COMSTR__V17*/ meltfptr[14] = /*_.LET___V14*/ meltfptr[13];; { - MELT_LOCATION ("warmelt-outobj.melt:2487:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2489:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*com.block:")); @@ -25244,7 +25557,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2488:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2490:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -25254,19 +25567,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2489:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2491:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/{")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2490:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2492:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L4*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.BODYL__V10*/ meltfptr[9])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2490:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2492:/ cond"); /*cond */ if ( /*_#IS_LIST__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -25274,7 +25587,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2491:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2493:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25304,7 +25617,7 @@ lab_endgetargs:; /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2490:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2492:/ clear"); /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V19*/ meltfptr[18] = 0; } ; @@ -25315,13 +25628,13 @@ lab_endgetargs:; /*_.IF___V18*/ meltfptr[15] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2492:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2494:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L5*/ meltfnum[4] = (melt_magic_discr ((melt_ptr_t) ( /*_.EPIL__V11*/ meltfptr[10])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2492:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2494:/ cond"); /*cond */ if ( /*_#IS_LIST__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -25334,7 +25647,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V12*/ meltfptr[11])));; { - MELT_LOCATION ("warmelt-outobj.melt:2494:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2496:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L6*/ meltfnum[5]), 0); @@ -25342,7 +25655,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2495:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2497:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -25351,7 +25664,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2496:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2498:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -25362,13 +25675,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2497:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2499:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2498:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2500:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25394,7 +25707,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2493:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2495:/ quasiblock"); /*_.PROGN___V22*/ meltfptr[21] = @@ -25404,7 +25717,7 @@ lab_endgetargs:; /*_.IF___V20*/ meltfptr[18] = /*_.PROGN___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2492:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2494:/ clear"); /*clear *//*_#GET_INT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V21*/ meltfptr[20] = 0; @@ -25421,7 +25734,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2499:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2501:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -25429,7 +25742,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2500:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2502:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*com.end block:")); @@ -25437,7 +25750,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2501:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2503:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -25447,7 +25760,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2502:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2504:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -25455,14 +25768,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2503:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2505:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2504:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2506:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25473,7 +25786,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2505:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2507:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -25508,7 +25821,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5]) < ( /*_#GET_INT__L8*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:2504:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2506:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -25516,7 +25829,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2504:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2506:/ cond.else"); /*^block */ /*anyblock */ @@ -25530,7 +25843,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2504) ? (2504) : __LINE__, __FUNCTION__); + (2506) ? (2506) : __LINE__, __FUNCTION__); ; } ; @@ -25545,7 +25858,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[20] = /*_.IFELSE___V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2504:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2506:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V24*/ meltfptr[21] = 0; @@ -25566,7 +25879,7 @@ lab_endgetargs:; /*_.LET___V9*/ meltfptr[8] = /*_.IFCPP___V23*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:2478:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2480:/ clear"); /*clear *//*_.BODYL__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.EPIL__V11*/ meltfptr[10] = 0; @@ -25590,14 +25903,26 @@ lab_endgetargs:; /*clear *//*_.IF___V20*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.IFCPP___V23*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2475:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2477:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[8];; - MELT_LOCATION ("warmelt-outobj.melt:2475:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2477:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -25698,7 +26023,7 @@ meltrout_58_warmelt_outobj_OUTPUCOD_OBJLABELINSTR (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2513:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2515:/ getarg"); /*_.OBLAB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -25736,7 +26061,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2514:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2516:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25748,7 +26073,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBLAB__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJLABELINSTR */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2514:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2516:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -25756,7 +26081,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2514:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2516:/ cond.else"); /*^block */ /*anyblock */ @@ -25770,7 +26095,7 @@ lab_endgetargs:; melt_assert_failed (("check oblab"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2514) ? (2514) : __LINE__, __FUNCTION__); + (2516) ? (2516) : __LINE__, __FUNCTION__); ; } ; @@ -25785,7 +26110,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2514:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2516:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -25798,20 +26123,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2515:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2517:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2516:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2518:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*objlabel*/ ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2517:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2519:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLAB__V2*/ meltfptr[1]), 1, "OBLAB_PREFIX"); @@ -25829,7 +26154,7 @@ lab_endgetargs:; meltfptr[5]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:2518:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2520:/ quasiblock"); /*^getslot */ @@ -25840,7 +26165,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2519:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2521:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -25851,7 +26176,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2520:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2522:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLAB__V2*/ meltfptr[1]), 2, "OBLAB_RANK"); @@ -25864,7 +26189,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.OBLAB_RANK__V9*/ meltfptr[8])));; { - MELT_LOCATION ("warmelt-outobj.melt:2520:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2522:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L3*/ meltfnum[1])); @@ -25872,7 +26197,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2519:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2521:/ clear"); /*clear *//*_.OBLAB_RANK__V9*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_#GET_INT__L3*/ meltfnum[1] = 0; @@ -25881,11 +26206,11 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:2518:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2520:/ clear"); /*clear *//*_.OBRANK__V8*/ meltfptr[7] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:2521:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2523:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (": ;")); @@ -25893,14 +26218,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2522:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2524:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2523:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2525:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25911,7 +26236,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2524:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2526:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -25946,7 +26271,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2523:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2525:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -25954,7 +26279,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2523:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2525:/ cond.else"); /*^block */ /*anyblock */ @@ -25968,7 +26293,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2523) ? (2523) : __LINE__, __FUNCTION__); + (2525) ? (2525) : __LINE__, __FUNCTION__); ; } ; @@ -25983,7 +26308,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2523:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2525:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V11*/ meltfptr[7] = 0; @@ -26000,7 +26325,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2525:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2527:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLAB__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -26030,14 +26355,26 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2513:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2515:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.OUTPUT_LOCATION__V14*/ meltfptr[11];; - MELT_LOCATION ("warmelt-outobj.melt:2513:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2515:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ @@ -26140,7 +26477,7 @@ meltrout_59_warmelt_outobj_OUTPUCOD_OBJGOTOINSTR (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2532:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2534:/ getarg"); /*_.OBGOTO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -26178,7 +26515,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2533:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2535:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26190,7 +26527,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBGOTO__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJGOTOINSTR */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2533:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2535:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -26198,7 +26535,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2533:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2535:/ cond.else"); /*^block */ /*anyblock */ @@ -26212,7 +26549,7 @@ lab_endgetargs:; melt_assert_failed (("check obgoto"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2533) ? (2533) : __LINE__, __FUNCTION__); + (2535) ? (2535) : __LINE__, __FUNCTION__); ; } ; @@ -26227,7 +26564,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2533:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2535:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -26238,7 +26575,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2534:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2536:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBGOTO__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -26270,13 +26607,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2535:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2537:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*objgoto*/ goto ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2536:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2538:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBGOTO__V2*/ meltfptr[1]), 1, "OBGOTO_PREFIX"); @@ -26294,7 +26631,7 @@ lab_endgetargs:; meltfptr[8]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:2537:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2539:/ quasiblock"); /*^getslot */ @@ -26305,7 +26642,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2538:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2540:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -26320,7 +26657,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.OBRANK__V10*/ meltfptr[9])));; { - MELT_LOCATION ("warmelt-outobj.melt:2539:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2541:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L3*/ meltfnum[1])); @@ -26328,18 +26665,18 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2538:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2540:/ clear"); /*clear *//*_#GET_INT__L3*/ meltfnum[1] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:2537:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2539:/ clear"); /*clear *//*_.OBRANK__V10*/ meltfptr[9] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:2540:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2542:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -26347,14 +26684,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2541:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2543:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2542:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2544:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26365,7 +26702,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2543:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2545:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -26400,7 +26737,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2542:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2544:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -26408,7 +26745,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2542:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2544:/ cond.else"); /*^block */ /*anyblock */ @@ -26422,7 +26759,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2542) ? (2542) : __LINE__, __FUNCTION__); + (2544) ? (2544) : __LINE__, __FUNCTION__); ; } ; @@ -26437,7 +26774,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2542:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2544:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V12*/ meltfptr[11] = 0; @@ -26454,14 +26791,26 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2532:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2534:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V11*/ meltfptr[9];; - MELT_LOCATION ("warmelt-outobj.melt:2532:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2534:/ locexp"); + /*ochecknores compilobj_nrep_return */ +#if MELT_HAVE_DEBUG + if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) + melt_warn_for_no_expected_secondary_results (); + /* we warned when secondary results are expected but not returned. */ +#endif /*MELT_HAVE_DEBUG */ + ; + } + ; + /*^finalreturn */ ; /*finalret */ goto labend_rout; /*epilog */ |