diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-outobj+03.c')
| -rw-r--r-- | gcc/melt/generated/warmelt-outobj+03.c | 3438 |
1 files changed, 1881 insertions, 1557 deletions
diff --git a/gcc/melt/generated/warmelt-outobj+03.c b/gcc/melt/generated/warmelt-outobj+03.c index d1619de2ef9..db8f4288cf1 100644 --- a/gcc/melt/generated/warmelt-outobj+03.c +++ b/gcc/melt/generated/warmelt-outobj+03.c @@ -2284,7 +2284,7 @@ meltrout_60_warmelt_outobj_ADD2SBUF_CLONSYM (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2549:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2551:/ getarg"); /*_.SBUF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -2305,7 +2305,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2550:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2552:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2316,7 +2316,7 @@ lab_endgetargs:; /*_#IS_STRBUF__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1])) == MELTOBMAG_STRBUF);; - MELT_LOCATION ("warmelt-outobj.melt:2550:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2552:/ cond"); /*cond */ if ( /*_#IS_STRBUF__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2324,7 +2324,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2550:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2552:/ cond.else"); /*^block */ /*anyblock */ @@ -2338,7 +2338,7 @@ lab_endgetargs:; melt_assert_failed (("check sbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2550) ? (2550) : __LINE__, __FUNCTION__); + (2552) ? (2552) : __LINE__, __FUNCTION__); ; } ; @@ -2353,7 +2353,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2550:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2552:/ clear"); /*clear *//*_#IS_STRBUF__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; @@ -2366,7 +2366,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2551:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2553:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2378,7 +2378,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CSY__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_CLONED_SYMBOL */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2551:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2553:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2386,7 +2386,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2551:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2553:/ cond.else"); /*^block */ /*anyblock */ @@ -2400,7 +2400,7 @@ lab_endgetargs:; melt_assert_failed (("check csy"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2551) ? (2551) : __LINE__, __FUNCTION__); + (2553) ? (2553) : __LINE__, __FUNCTION__); ; } ; @@ -2415,7 +2415,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2551:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2553:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -2426,7 +2426,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2552:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2554:/ quasiblock"); /*^getslot */ @@ -2437,7 +2437,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2553:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2555:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CSY__V3*/ meltfptr[2]), 3, "CSYM_URANK"); @@ -2449,7 +2449,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.CSYM_URANK__V10*/ meltfptr[9])));; { - MELT_LOCATION ("warmelt-outobj.melt:2554:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2556:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), melt_string_str ((melt_ptr_t) ( /*_.CNAM__V9*/ @@ -2458,21 +2458,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2555:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2557:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), ("_")); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2556:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2558:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), ( /*_#RK__L3*/ meltfnum[0])); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2557:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2559:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2482,7 +2482,7 @@ lab_endgetargs:; ; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]));; - MELT_LOCATION ("warmelt-outobj.melt:2558:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2560:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -2517,7 +2517,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2557:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2559:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -2525,7 +2525,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2557:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2559:/ cond.else"); /*^block */ /*anyblock */ @@ -2539,7 +2539,7 @@ lab_endgetargs:; melt_assert_failed (("check limited sbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2557) ? (2557) : __LINE__, __FUNCTION__); + (2559) ? (2559) : __LINE__, __FUNCTION__); ; } ; @@ -2554,7 +2554,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2557:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2559:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V12*/ meltfptr[11] = 0; @@ -2575,7 +2575,7 @@ lab_endgetargs:; /*_.LET___V8*/ meltfptr[6] = /*_.IFCPP___V11*/ meltfptr[10];; - MELT_LOCATION ("warmelt-outobj.melt:2552:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2554:/ clear"); /*clear *//*_.CNAM__V9*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_.CSYM_URANK__V10*/ meltfptr[9] = 0; @@ -2583,14 +2583,26 @@ lab_endgetargs:; /*clear *//*_#RK__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFCPP___V11*/ meltfptr[10] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2549:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2551:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; - MELT_LOCATION ("warmelt-outobj.melt:2549:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2551:/ 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 */ @@ -2688,7 +2700,7 @@ meltrout_61_warmelt_outobj_OUTPUCOD_OBJLOOP (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2562:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2564:/ getarg"); /*_.OBLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -2726,7 +2738,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2563:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2565:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2738,7 +2750,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJLOOP */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2563:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2565:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2746,7 +2758,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2563:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2565:/ cond.else"); /*^block */ /*anyblock */ @@ -2760,7 +2772,7 @@ lab_endgetargs:; melt_assert_failed (("check oblo"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2563) ? (2563) : __LINE__, __FUNCTION__); + (2565) ? (2565) : __LINE__, __FUNCTION__); ; } ; @@ -2775,7 +2787,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2563:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2565:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -2786,7 +2798,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2564:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2566:/ quasiblock"); /*^getslot */ @@ -2797,7 +2809,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2565:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2567:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 2, "OBLO_EPIL"); @@ -2805,7 +2817,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2566:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2568:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 3, "OBLOOP_LABEL"); @@ -2813,7 +2825,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2567:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2569:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -2831,7 +2843,7 @@ lab_endgetargs:; ( /*_#I__L3*/ meltfnum[1])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2570:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2572:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2843,7 +2855,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.LAB__V10*/ meltfptr[9]), (melt_ptr_t) (( /*!CLASS_CLONED_SYMBOL */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:2570:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2572:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -2851,7 +2863,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2570:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2572:/ cond.else"); /*^block */ /*anyblock */ @@ -2865,7 +2877,7 @@ lab_endgetargs:; melt_assert_failed (("check lab"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2570) ? (2570) : __LINE__, __FUNCTION__); + (2572) ? (2572) : __LINE__, __FUNCTION__); ; } ; @@ -2880,7 +2892,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2570:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2572:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[13] = 0; @@ -2891,7 +2903,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2571:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2573:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2915,13 +2927,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2572:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*loop*/{ labloop_")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2573:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2575:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2941,19 +2953,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2574:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2576:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (":;")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2575:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2577:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L5*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.BODYL__V8*/ meltfptr[7])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2575:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2577:/ cond"); /*cond */ if ( /*_#IS_LIST__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -2961,7 +2973,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2577:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2579:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2989,13 +3001,13 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2578:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2580:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L6*/ meltfnum[5]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2581:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2583:/ quasiblock"); /*^newclosure */ @@ -3054,7 +3066,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V19*/ meltfptr[18] = /*_.LAMBDA___V20*/ meltfptr[19];; - MELT_LOCATION ("warmelt-outobj.melt:2579:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2581:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3073,7 +3085,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2576:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2578:/ quasiblock"); /*_.PROGN___V22*/ meltfptr[21] = @@ -3083,7 +3095,7 @@ lab_endgetargs:; /*_.IF___V17*/ meltfptr[16] = /*_.PROGN___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2575:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2577:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V18*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_#I__L6*/ meltfnum[5] = 0; @@ -3104,7 +3116,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2587:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2589:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -3114,20 +3126,20 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2588:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2590:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L7*/ meltfnum[5]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2589:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2591:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" goto labloop_")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2590:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2592:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3147,7 +3159,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2591:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2593:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -3157,20 +3169,20 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2592:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2594:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L8*/ meltfnum[7]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2593:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2595:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" labexit_")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2594:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2596:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3190,19 +3202,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2595:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2597:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (":;")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2596:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2598:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L9*/ meltfnum[8] = (melt_magic_discr ((melt_ptr_t) ( /*_.EPIL__V9*/ meltfptr[8])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2596:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2598:/ cond"); /*cond */ if ( /*_#IS_LIST__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -3210,7 +3222,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2598:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2600:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3236,7 +3248,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2599:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2601:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -3247,13 +3259,13 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2600:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2602:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L10*/ meltfnum[9]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2603:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2605:/ quasiblock"); /*^newclosure */ @@ -3312,7 +3324,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V27*/ meltfptr[26] = /*_.LAMBDA___V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-outobj.melt:2601:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2603:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3331,7 +3343,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2597:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2599:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[29] = @@ -3341,7 +3353,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[20] = /*_.PROGN___V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2596:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2598:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V26*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_#I__L10*/ meltfnum[9] = 0; @@ -3362,7 +3374,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2611:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2613:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -3370,14 +3382,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2612:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2614:/ 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:2613:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2615:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3388,7 +3400,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L11*/ meltfnum[9] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2614:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2616:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3423,7 +3435,7 @@ lab_endgetargs:; /*_#I__L13*/ meltfnum[12] = (( /*_#STRBUF_USEDLENGTH__L11*/ meltfnum[9]) < ( /*_#GET_INT__L12*/ meltfnum[11]));; - MELT_LOCATION ("warmelt-outobj.melt:2613:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2615:/ cond"); /*cond */ if ( /*_#I__L13*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -3431,7 +3443,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2613:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2615:/ cond.else"); /*^block */ /*anyblock */ @@ -3445,7 +3457,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2613) ? (2613) : __LINE__, __FUNCTION__); + (2615) ? (2615) : __LINE__, __FUNCTION__); ; } ; @@ -3460,7 +3472,7 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[21] = /*_.IFELSE___V33*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2613:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2615:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L11*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V32*/ meltfptr[26] = 0; @@ -3481,7 +3493,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V31*/ meltfptr[21];; - MELT_LOCATION ("warmelt-outobj.melt:2564:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2566:/ clear"); /*clear *//*_.BODYL__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.EPIL__V9*/ meltfptr[8] = 0; @@ -3517,14 +3529,26 @@ lab_endgetargs:; /*clear *//*_.IF___V25*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.IFCPP___V31*/ meltfptr[21] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2562:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2564:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2562:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2564:/ 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 */ @@ -3617,7 +3641,7 @@ meltrout_62_warmelt_outobj_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2581:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2583:/ getarg"); /*_.CURBODY__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -3627,13 +3651,13 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:2582:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2584:/ quasiblock"); /*_#DEPTHP1__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[0]))));; - MELT_LOCATION ("warmelt-outobj.melt:2583:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2585:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -3661,7 +3685,7 @@ lab_endgetargs:; /*_#IF___L2*/ meltfnum[1] = /*_#NOT__L4*/ meltfnum[3];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2583:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2585:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_#NOT__L4*/ meltfnum[3] = 0; @@ -3674,7 +3698,7 @@ lab_endgetargs:; /*_#IF___L2*/ meltfnum[1] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2583:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2585:/ cond"); /*cond */ if ( /*_#IF___L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -3682,7 +3706,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2584:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2586:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3709,7 +3733,7 @@ lab_endgetargs:; /*_.IF___V3*/ meltfptr[2] = /*_.OUTPUT_C_CODE__V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2583:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2585:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V4*/ meltfptr[3] = 0; } ; @@ -3722,7 +3746,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2585:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2587:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[2])), (";")); @@ -3730,14 +3754,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2586:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2588:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[2])), ( /*_#DEPTHP1__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2582:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2584:/ clear"); /*clear *//*_#DEPTHP1__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#IF___L2*/ meltfnum[1] = 0; @@ -3828,7 +3852,7 @@ meltrout_63_warmelt_outobj_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2603:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2605:/ getarg"); /*_.CUREPIL__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -3838,13 +3862,13 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:2604:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2606:/ quasiblock"); /*_#DEPTHP1__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[0]))));; - MELT_LOCATION ("warmelt-outobj.melt:2605:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2607:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -3872,7 +3896,7 @@ lab_endgetargs:; /*_#IF___L2*/ meltfnum[1] = /*_#NOT__L4*/ meltfnum[3];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2605:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2607:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_#NOT__L4*/ meltfnum[3] = 0; @@ -3885,7 +3909,7 @@ lab_endgetargs:; /*_#IF___L2*/ meltfnum[1] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2605:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2607:/ cond"); /*cond */ if ( /*_#IF___L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -3893,7 +3917,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2606:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2608:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3920,7 +3944,7 @@ lab_endgetargs:; /*_.IF___V3*/ meltfptr[2] = /*_.OUTPUT_C_CODE__V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2605:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2607:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V4*/ meltfptr[3] = 0; } ; @@ -3933,7 +3957,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2607:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2609:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[2])), (";")); @@ -3941,7 +3965,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2608:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2610:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3952,7 +3976,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[2] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:2609:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2611:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3987,7 +4011,7 @@ lab_endgetargs:; /*_#I__L7*/ meltfnum[6] = (( /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[2]) < ( /*_#GET_INT__L6*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2608:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2610:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -3995,7 +4019,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2608:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2610:/ cond.else"); /*^block */ /*anyblock */ @@ -4009,7 +4033,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2608) ? (2608) : __LINE__, __FUNCTION__); + (2610) ? (2610) : __LINE__, __FUNCTION__); ; } ; @@ -4024,7 +4048,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[3] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2608:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2610:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L5*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V6*/ meltfptr[5] = 0; @@ -4043,14 +4067,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2610:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2612:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[2])), ( /*_#DEPTHP1__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2604:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2606:/ clear"); /*clear *//*_#DEPTHP1__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#IF___L2*/ meltfnum[1] = 0; @@ -4146,7 +4170,7 @@ meltrout_64_warmelt_outobj_OUTPUCOD_OBJEXIT (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2621:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2623:/ getarg"); /*_.OBXI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -4184,7 +4208,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2622:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2624:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4196,7 +4220,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBXI__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJEXIT */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2622:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2624:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4204,7 +4228,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2622:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2624:/ cond.else"); /*^block */ /*anyblock */ @@ -4218,7 +4242,7 @@ lab_endgetargs:; melt_assert_failed (("check obxi"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2622) ? (2622) : __LINE__, __FUNCTION__); + (2624) ? (2624) : __LINE__, __FUNCTION__); ; } ; @@ -4233,7 +4257,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2622:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2624:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -4244,7 +4268,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2623:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2625:/ quasiblock"); /*^getslot */ @@ -4255,7 +4279,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2624:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2626:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBXI__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -4265,7 +4289,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2626:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2628:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4277,7 +4301,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OLAB__V8*/ meltfptr[7]), (melt_ptr_t) (( /*!CLASS_CLONED_SYMBOL */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2626:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2628:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4285,7 +4309,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2626:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2628:/ cond.else"); /*^block */ /*anyblock */ @@ -4299,7 +4323,7 @@ lab_endgetargs:; melt_assert_failed (("check olab"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2626) ? (2626) : __LINE__, __FUNCTION__); + (2628) ? (2628) : __LINE__, __FUNCTION__); ; } ; @@ -4314,7 +4338,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2626:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2628:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -4325,7 +4349,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2627:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2629:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4349,7 +4373,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2628:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2630:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*exit*/{")); @@ -4357,20 +4381,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2629:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2631:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2630:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2632:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" goto labexit_")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2631:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2633:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4390,7 +4414,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2632:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2634:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";}")); @@ -4398,14 +4422,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2633:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2635:/ 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:2634:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2636:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4416,7 +4440,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2635:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2637:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4451,7 +4475,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2634:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2636:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -4459,7 +4483,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2634:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2636:/ cond.else"); /*^block */ /*anyblock */ @@ -4473,7 +4497,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2634) ? (2634) : __LINE__, __FUNCTION__); + (2636) ? (2636) : __LINE__, __FUNCTION__); ; } ; @@ -4488,7 +4512,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[13] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2634:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2636:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V15*/ meltfptr[14] = 0; @@ -4509,7 +4533,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V14*/ meltfptr[13];; - MELT_LOCATION ("warmelt-outobj.melt:2623:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2625:/ clear"); /*clear *//*_.OLAB__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.LOC__V9*/ meltfptr[8] = 0; @@ -4521,14 +4545,26 @@ lab_endgetargs:; /*clear *//*_.ADD2SBUF_CLONSYM__V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.IFCPP___V14*/ meltfptr[13] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2621:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2623:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2621:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2623:/ 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 */ @@ -4624,7 +4660,7 @@ meltrout_65_warmelt_outobj_OUTPUCOD_OBJAGAIN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2641:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2643:/ getarg"); /*_.OBAG__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -4662,7 +4698,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2642:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2644:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4674,7 +4710,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBAG__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJAGAIN */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2642:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2644:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4682,7 +4718,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2642:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2644:/ cond.else"); /*^block */ /*anyblock */ @@ -4696,7 +4732,7 @@ lab_endgetargs:; melt_assert_failed (("check obag"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2642) ? (2642) : __LINE__, __FUNCTION__); + (2644) ? (2644) : __LINE__, __FUNCTION__); ; } ; @@ -4711,7 +4747,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2642:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2644:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -4722,7 +4758,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2643:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2645:/ quasiblock"); /*^getslot */ @@ -4733,7 +4769,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2644:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2646:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBAG__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -4743,7 +4779,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2646:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2648:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4755,7 +4791,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OLAB__V8*/ meltfptr[7]), (melt_ptr_t) (( /*!CLASS_CLONED_SYMBOL */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2646:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2648:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4763,7 +4799,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2646:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2648:/ cond.else"); /*^block */ /*anyblock */ @@ -4777,7 +4813,7 @@ lab_endgetargs:; melt_assert_failed (("check olab"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2646) ? (2646) : __LINE__, __FUNCTION__); + (2648) ? (2648) : __LINE__, __FUNCTION__); ; } ; @@ -4792,7 +4828,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2646:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2648:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -4803,7 +4839,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2647:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2649:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4827,7 +4863,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2648:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2650:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*again*/{")); @@ -4835,20 +4871,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2649:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2651:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2650:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2652:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" goto labloop_")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2651:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2653:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4868,7 +4904,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2652:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2654:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";}")); @@ -4876,14 +4912,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2653:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2655:/ 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:2654:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2656:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4894,7 +4930,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2655:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2657:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4929,7 +4965,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2654:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2656:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -4937,7 +4973,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2654:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2656:/ cond.else"); /*^block */ /*anyblock */ @@ -4951,7 +4987,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2654) ? (2654) : __LINE__, __FUNCTION__); + (2656) ? (2656) : __LINE__, __FUNCTION__); ; } ; @@ -4966,7 +5002,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[13] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2654:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2656:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V15*/ meltfptr[14] = 0; @@ -4987,7 +5023,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V14*/ meltfptr[13];; - MELT_LOCATION ("warmelt-outobj.melt:2643:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2645:/ clear"); /*clear *//*_.OLAB__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.LOC__V9*/ meltfptr[8] = 0; @@ -4999,14 +5035,26 @@ lab_endgetargs:; /*clear *//*_.ADD2SBUF_CLONSYM__V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.IFCPP___V14*/ meltfptr[13] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2641:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2643:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2641:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2643:/ 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 */ @@ -5102,7 +5150,7 @@ meltrout_66_warmelt_outobj_OUTPUCOD_OBJCOMPUTE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2660:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2662:/ getarg"); /*_.OBCOMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -5140,7 +5188,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2661:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2663:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5152,7 +5200,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBCOMP__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCOMPUTE */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2661:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2663:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5160,7 +5208,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2661:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2663:/ cond.else"); /*^block */ /*anyblock */ @@ -5174,7 +5222,7 @@ lab_endgetargs:; melt_assert_failed (("check obcomp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2661) ? (2661) : __LINE__, __FUNCTION__); + (2663) ? (2663) : __LINE__, __FUNCTION__); ; } ; @@ -5189,7 +5237,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2661:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2663:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -5200,7 +5248,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2662:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2664:/ quasiblock"); /*^getslot */ @@ -5211,7 +5259,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2663:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2665:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCOMP__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -5219,7 +5267,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2664:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2666:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCOMP__V2*/ meltfptr[1]), 2, "OBCPT_EXPR"); @@ -5235,7 +5283,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[1])), ( /*_#I__L3*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2667:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2669:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5257,13 +5305,13 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2668:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2670:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L4*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.CDEST__V8*/ meltfptr[7])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2668:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2670:/ cond"); /*cond */ if ( /*_#IS_LIST__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -5271,7 +5319,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2671:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2673:/ quasiblock"); /*^newclosure */ @@ -5330,7 +5378,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BOXDEPTHP1__V11*/ meltfptr[10]); ; /*_.LAMBDA___V14*/ meltfptr[13] = /*_.LAMBDA___V15*/ meltfptr[14];; - MELT_LOCATION ("warmelt-outobj.melt:2669:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2671:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5352,7 +5400,7 @@ lab_endgetargs:; /*_.IF___V13*/ meltfptr[12] = /*_.LIST_EVERY__V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2668:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2670:/ clear"); /*clear *//*_.LAMBDA___V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.LIST_EVERY__V16*/ meltfptr[15] = 0; @@ -5365,13 +5413,13 @@ lab_endgetargs:; /*_.IF___V13*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2675:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2677:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L5*/ meltfnum[4] = (melt_magic_discr ((melt_ptr_t) ( /*_.CEXP__V10*/ meltfptr[9])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2675:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2677:/ cond"); /*cond */ if ( /*_#IS_LIST__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -5379,7 +5427,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2676:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2678:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#LIST_LENGTH__L6*/ meltfnum[5] = @@ -5388,7 +5436,7 @@ lab_endgetargs:; /*_#I__L7*/ meltfnum[6] = (( /*_#LIST_LENGTH__L6*/ meltfnum[5]) > (2));; - MELT_LOCATION ("warmelt-outobj.melt:2676:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2678:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -5400,7 +5448,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2677:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2679:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L8*/ meltfnum[7]), 0); @@ -5408,13 +5456,13 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2676:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2678:/ clear"); /*clear *//*_#I__L8*/ meltfnum[7] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:2680:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2682:/ quasiblock"); /*^newclosure */ @@ -5473,7 +5521,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BOXDEPTHP1__V11*/ meltfptr[10]); ; /*_.LAMBDA___V18*/ meltfptr[15] = /*_.LAMBDA___V19*/ meltfptr[18];; - MELT_LOCATION ("warmelt-outobj.melt:2678:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2680:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5492,7 +5540,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2675:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2677:/ quasiblock"); /*_.PROGN___V21*/ meltfptr[20] = @@ -5502,7 +5550,7 @@ lab_endgetargs:; /*_.IFELSE___V17*/ meltfptr[13] = /*_.PROGN___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2675:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2677:/ clear"); /*clear *//*_#LIST_LENGTH__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_#I__L7*/ meltfnum[6] = 0; @@ -5522,13 +5570,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2685:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2687:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MULTIPLE__L9*/ meltfnum[7] = (melt_magic_discr ((melt_ptr_t) ( /*_.CEXP__V10*/ meltfptr[9])) == MELTOBMAG_MULTIPLE);; - MELT_LOCATION ("warmelt-outobj.melt:2685:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2687:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -5536,7 +5584,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2686:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2688:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#MULTIPLE_LENGTH__L10*/ meltfnum[5] = @@ -5546,7 +5594,7 @@ lab_endgetargs:; /*_#I__L11*/ meltfnum[6] = (( /*_#MULTIPLE_LENGTH__L10*/ meltfnum[5]) > (2));; - MELT_LOCATION ("warmelt-outobj.melt:2686:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2688:/ cond"); /*cond */ if ( /*_#I__L11*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -5558,7 +5606,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2687:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2689:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -5568,13 +5616,13 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2686:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2688:/ clear"); /*clear *//*_#I__L12*/ meltfnum[11] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:2690:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2692:/ quasiblock"); /*^newclosure */ @@ -5636,7 +5684,7 @@ lab_endgetargs:; ; /*_.LAMBDA___V23*/ meltfptr[19] = /*_.LAMBDA___V24*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:2688:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2690:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5656,7 +5704,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2685:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2687:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[25] = @@ -5667,7 +5715,7 @@ lab_endgetargs:; /*_.PROGN___V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2685:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2687:/ clear"); /*clear *//*_#MULTIPLE_LENGTH__L10*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_#I__L11*/ meltfnum[6] = 0; @@ -5689,7 +5737,7 @@ lab_endgetargs:; /*_#I__L13*/ meltfnum[11] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:2696:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2698:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -5714,7 +5762,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2695:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2697:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[24] = @@ -5725,7 +5773,7 @@ lab_endgetargs:; /*_.PROGN___V28*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2685:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2687:/ clear"); /*clear *//*_#I__L13*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V27*/ meltfptr[19] = 0; @@ -5738,7 +5786,7 @@ lab_endgetargs:; /*_.IFELSE___V17*/ meltfptr[13] = /*_.IFELSE___V22*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2675:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2677:/ clear"); /*clear *//*_#IS_MULTIPLE__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V22*/ meltfptr[15] = 0; @@ -5748,7 +5796,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2698:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2700:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -5756,7 +5804,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2699:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2701:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5767,7 +5815,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L14*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2700:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2702:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -5802,7 +5850,7 @@ lab_endgetargs:; /*_#I__L16*/ meltfnum[11] = (( /*_#STRBUF_USEDLENGTH__L14*/ meltfnum[5]) < ( /*_#GET_INT__L15*/ meltfnum[6]));; - MELT_LOCATION ("warmelt-outobj.melt:2699:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2701:/ cond"); /*cond */ if ( /*_#I__L16*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -5810,7 +5858,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2699:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2701:/ cond.else"); /*^block */ /*anyblock */ @@ -5824,7 +5872,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2699) ? (2699) : __LINE__, __FUNCTION__); + (2701) ? (2701) : __LINE__, __FUNCTION__); ; } ; @@ -5839,7 +5887,7 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[25] = /*_.IFELSE___V31*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2699:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2701:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L14*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V30*/ meltfptr[19] = 0; @@ -5860,7 +5908,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V29*/ meltfptr[25];; - MELT_LOCATION ("warmelt-outobj.melt:2662:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2664:/ clear"); /*clear *//*_.CDEST__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.CLOC__V9*/ meltfptr[8] = 0; @@ -5882,14 +5930,26 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.IFCPP___V29*/ meltfptr[25] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2660:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2662:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2660:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2662:/ 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 */ @@ -5982,7 +6042,7 @@ meltrout_67_warmelt_outobj_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2671:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2673:/ getarg"); /*_.DESTCUR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -5995,7 +6055,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:2672:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2674:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -6021,24 +6081,36 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2673:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2675:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (" = ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2671:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2673:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V4*/ meltfptr[3] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-outobj.melt:2671:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2673:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RETVAL___V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-outobj.melt:2671:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2673:/ 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; @@ -6134,7 +6206,7 @@ meltrout_68_warmelt_outobj_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2680:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2682:/ getarg"); /*_.EXPCUR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -6147,7 +6219,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:2681:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2683:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -6173,7 +6245,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2682:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2684:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6184,7 +6256,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2683:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2685:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6219,7 +6291,7 @@ lab_endgetargs:; /*_#I__L4*/ meltfnum[3] = (( /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1]) < ( /*_#GET_INT__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:2682:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2684:/ cond"); /*cond */ if ( /*_#I__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -6227,7 +6299,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2682:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2684:/ cond.else"); /*^block */ /*anyblock */ @@ -6241,7 +6313,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2682) ? (2682) : __LINE__, __FUNCTION__); + (2684) ? (2684) : __LINE__, __FUNCTION__); ; } ; @@ -6256,7 +6328,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2682:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2684:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V5*/ meltfptr[4] = 0; @@ -6273,14 +6345,26 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2680:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2682:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-outobj.melt:2680:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2682:/ 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 */ @@ -6376,7 +6460,7 @@ meltrout_69_warmelt_outobj_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2690:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2692:/ getarg"); /*_.EXPCUR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -6389,7 +6473,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:2691:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2693:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -6415,7 +6499,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2692:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2694:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6426,7 +6510,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2693:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2695:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6461,7 +6545,7 @@ lab_endgetargs:; /*_#I__L4*/ meltfnum[3] = (( /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1]) < ( /*_#GET_INT__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:2692:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2694:/ cond"); /*cond */ if ( /*_#I__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -6469,7 +6553,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2692:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2694:/ cond.else"); /*^block */ /*anyblock */ @@ -6483,7 +6567,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2692) ? (2692) : __LINE__, __FUNCTION__); + (2694) ? (2694) : __LINE__, __FUNCTION__); ; } ; @@ -6498,7 +6582,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2692:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2694:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V5*/ meltfptr[4] = 0; @@ -6515,14 +6599,26 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2690:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2692:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-outobj.melt:2690:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2692:/ 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 */ @@ -6620,7 +6716,7 @@ meltrout_70_warmelt_outobj_OUTPUCOD_OBJCOND (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2706:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2708:/ getarg"); /*_.OCOND__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -6658,7 +6754,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2707:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2709:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6670,7 +6766,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OCOND__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCOND */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2707:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2709:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6678,7 +6774,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2707:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2709:/ cond.else"); /*^block */ /*anyblock */ @@ -6692,7 +6788,7 @@ lab_endgetargs:; melt_assert_failed (("check ocond"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2707) ? (2707) : __LINE__, __FUNCTION__); + (2709) ? (2709) : __LINE__, __FUNCTION__); ; } ; @@ -6707,7 +6803,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2707:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2709:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -6718,7 +6814,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2708:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2710:/ quasiblock"); /*^getslot */ @@ -6729,7 +6825,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2709:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2711:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCOND__V2*/ meltfptr[1]), 1, "OBCOND_TEST"); @@ -6737,7 +6833,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2710:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2712:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCOND__V2*/ meltfptr[1]), 2, "OBCOND_THEN"); @@ -6745,7 +6841,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2711:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2713:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCOND__V2*/ meltfptr[1]), 3, "OBCOND_ELSE"); @@ -6755,7 +6851,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2713:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2715:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6765,7 +6861,7 @@ lab_endgetargs:; ; /*_#NOTNULL__L3*/ meltfnum[1] = (( /*_.CTEST__V9*/ meltfptr[8]) != NULL);; - MELT_LOCATION ("warmelt-outobj.melt:2713:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2715:/ cond"); /*cond */ if ( /*_#NOTNULL__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6773,7 +6869,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2713:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2715:/ cond.else"); /*^block */ /*anyblock */ @@ -6787,7 +6883,7 @@ lab_endgetargs:; melt_assert_failed (("check ctest"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2713) ? (2713) : __LINE__, __FUNCTION__); + (2715) ? (2715) : __LINE__, __FUNCTION__); ; } ; @@ -6802,7 +6898,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2713:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2715:/ clear"); /*clear *//*_#NOTNULL__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -6813,7 +6909,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2714:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2716:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6837,7 +6933,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2715:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2717:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*cond*/ if (")); @@ -6845,7 +6941,7 @@ lab_endgetargs:; ; /*_#I__L4*/ meltfnum[1] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:2716:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2718:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -6869,7 +6965,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2717:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2719:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (") /*then*/ {")); @@ -6877,12 +6973,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2718:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2720:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2719:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2721:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -6909,7 +7005,7 @@ lab_endgetargs:; /*_#IF___L5*/ meltfnum[4] = /*_#NOT__L7*/ meltfnum[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2719:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2721:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_#NOT__L7*/ meltfnum[6] = 0; @@ -6922,7 +7018,7 @@ lab_endgetargs:; /*_#IF___L5*/ meltfnum[4] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2719:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2721:/ cond"); /*cond */ if ( /*_#IF___L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -6930,7 +7026,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2721:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2723:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6956,7 +7052,7 @@ lab_endgetargs:; ; /*_#I__L8*/ meltfnum[5] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:2722:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2724:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -6982,7 +7078,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2723:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2725:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -6990,18 +7086,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2724:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2726:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2720:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2722:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2719:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2721:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V16*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_#I__L8*/ meltfnum[5] = 0; @@ -7011,7 +7107,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:2727:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2729:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -7039,7 +7135,7 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[6] = /*_#NOT__L11*/ meltfnum[10];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2727:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2729:/ clear"); /*clear *//*_#IS_A__L10*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_#NOT__L11*/ meltfnum[10] = 0; @@ -7052,7 +7148,7 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[6] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2727:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2729:/ cond"); /*cond */ if ( /*_#IF___L9*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -7062,14 +7158,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2729:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2731:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} else {")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2730:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2732:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7097,7 +7193,7 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2731:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2733:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L12*/ meltfnum[5]), 0); @@ -7105,7 +7201,7 @@ lab_endgetargs:; ; /*_#I__L13*/ meltfnum[10] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:2732:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2734:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -7131,7 +7227,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2733:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2735:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -7141,7 +7237,7 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2734:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2736:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L14*/ meltfnum[13]), 0); @@ -7149,18 +7245,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2735:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2737:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2728:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2730:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2727:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2729:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V18*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_#I__L12*/ meltfnum[5] = 0; @@ -7182,7 +7278,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2737:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2739:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -7196,14 +7292,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2739:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2741:/ 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:2740:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2742:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7214,7 +7310,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L15*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2741:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2743:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7249,7 +7345,7 @@ lab_endgetargs:; /*_#I__L17*/ meltfnum[13] = (( /*_#STRBUF_USEDLENGTH__L15*/ meltfnum[5]) < ( /*_#GET_INT__L16*/ meltfnum[10]));; - MELT_LOCATION ("warmelt-outobj.melt:2740:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2742:/ cond"); /*cond */ if ( /*_#I__L17*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -7257,7 +7353,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2740:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2742:/ cond.else"); /*^block */ /*anyblock */ @@ -7271,7 +7367,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2740) ? (2740) : __LINE__, __FUNCTION__); + (2742) ? (2742) : __LINE__, __FUNCTION__); ; } ; @@ -7286,7 +7382,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[15] = /*_.IFELSE___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2740:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2742:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L15*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V21*/ meltfptr[16] = 0; @@ -7307,7 +7403,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V20*/ meltfptr[15];; - MELT_LOCATION ("warmelt-outobj.melt:2708:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2710:/ clear"); /*clear *//*_.CLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.CTEST__V9*/ meltfptr[8] = 0; @@ -7329,14 +7425,26 @@ lab_endgetargs:; /*clear *//*_#IF___L9*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IFCPP___V20*/ meltfptr[15] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2706:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2708:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2706:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2708:/ 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 */ @@ -7432,7 +7540,7 @@ meltrout_71_warmelt_outobj_OUTPUCOD_OBJCPPIF (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2748:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2750:/ getarg"); /*_.OPIF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -7470,7 +7578,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2749:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2751:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7482,7 +7590,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OPIF__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCPPIF */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2749:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2751:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -7490,7 +7598,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2749:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2751:/ cond.else"); /*^block */ /*anyblock */ @@ -7504,7 +7612,7 @@ lab_endgetargs:; melt_assert_failed (("check opif"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2749) ? (2749) : __LINE__, __FUNCTION__); + (2751) ? (2751) : __LINE__, __FUNCTION__); ; } ; @@ -7519,7 +7627,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2749:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2751:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -7530,7 +7638,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2750:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2752:/ quasiblock"); /*^getslot */ @@ -7541,7 +7649,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2751:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2753:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPIF__V2*/ meltfptr[1]), 1, "OBIFP_COND"); @@ -7549,7 +7657,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2752:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2754:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPIF__V2*/ meltfptr[1]), 2, "OBIFP_THEN"); @@ -7557,7 +7665,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2753:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2755:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPIF__V2*/ meltfptr[1]), 3, "OBIFP_ELSE"); @@ -7569,7 +7677,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2756:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2758:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7580,7 +7688,7 @@ lab_endgetargs:; /*_#IS_STRING__L4*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.CCOND__V9*/ meltfptr[8])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:2756:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2758:/ cond"); /*cond */ if ( /*_#IS_STRING__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -7588,7 +7696,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2756:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2758:/ cond.else"); /*^block */ /*anyblock */ @@ -7602,7 +7710,7 @@ lab_endgetargs:; melt_assert_failed (("check ccond"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2756) ? (2756) : __LINE__, __FUNCTION__); + (2758) ? (2758) : __LINE__, __FUNCTION__); ; } ; @@ -7617,7 +7725,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2756:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2758:/ clear"); /*clear *//*_#IS_STRING__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -7628,7 +7736,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2757:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2759:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7652,7 +7760,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2758:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2760:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#if ")); @@ -7660,7 +7768,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2759:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2761:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -7669,12 +7777,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2760:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2762:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2761:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2763:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7696,7 +7804,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2762:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2764:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -7720,14 +7828,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2763:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2765:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2764:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2766:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#else /*")); @@ -7735,7 +7843,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2765:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2767:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -7744,7 +7852,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2766:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2768:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -7752,12 +7860,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2767:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2769:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2768:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2770:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7779,7 +7887,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2769:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2771:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -7803,14 +7911,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2770:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2772:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2771:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2773:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#endif /*")); @@ -7818,7 +7926,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2772:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2774:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -7827,7 +7935,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2773:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2775:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -7835,14 +7943,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2774:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2776:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2775:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2777:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7853,7 +7961,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[3] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2776:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2778:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7888,7 +7996,7 @@ lab_endgetargs:; /*_#I__L7*/ meltfnum[6] = (( /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[3]) < ( /*_#GET_INT__L6*/ meltfnum[5]));; - MELT_LOCATION ("warmelt-outobj.melt:2775:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2777:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -7896,7 +8004,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2775:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2777:/ cond.else"); /*^block */ /*anyblock */ @@ -7910,7 +8018,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2775) ? (2775) : __LINE__, __FUNCTION__); + (2777) ? (2777) : __LINE__, __FUNCTION__); ; } ; @@ -7925,7 +8033,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[18] = /*_.IFELSE___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2775:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2777:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V20*/ meltfptr[19] = 0; @@ -7946,7 +8054,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V19*/ meltfptr[18];; - MELT_LOCATION ("warmelt-outobj.melt:2750:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2752:/ clear"); /*clear *//*_.CLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.CCOND__V9*/ meltfptr[8] = 0; @@ -7970,14 +8078,26 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V18*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.IFCPP___V19*/ meltfptr[18] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2748:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2750:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2748:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2750:/ 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 */ @@ -8077,7 +8197,7 @@ meltrout_72_warmelt_outobj_OUTPUCOD_OBJINTERNSYMBOL (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2781:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2783:/ getarg"); /*_.OISY__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -8115,7 +8235,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2782:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2784:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8127,7 +8247,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OISY__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJINTERNSYMBOL */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2782:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2784:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8135,7 +8255,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2782:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2784:/ cond.else"); /*^block */ /*anyblock */ @@ -8149,7 +8269,7 @@ lab_endgetargs:; melt_assert_failed (("check oisy"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2782) ? (2782) : __LINE__, __FUNCTION__); + (2784) ? (2784) : __LINE__, __FUNCTION__); ; } ; @@ -8164,7 +8284,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2782:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2784:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -8175,7 +8295,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2783:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2785:/ quasiblock"); /*^getslot */ @@ -8186,7 +8306,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2784:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2786:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OISY__V2*/ meltfptr[1]), 1, "OBINTERN_IOBJ"); @@ -8194,7 +8314,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2785:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2787:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 2, "OIE_DATA"); @@ -8202,7 +8322,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2786:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2788:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 4, "OIE_LOCVAR"); @@ -8212,7 +8332,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2788:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2790:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8224,7 +8344,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), (melt_ptr_t) (( /*!CLASS_OBJINITOBJECT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2788:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2790:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8232,7 +8352,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2788:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2790:/ cond.else"); /*^block */ /*anyblock */ @@ -8246,7 +8366,7 @@ lab_endgetargs:; melt_assert_failed (("check oiobj"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2788) ? (2788) : __LINE__, __FUNCTION__); + (2790) ? (2790) : __LINE__, __FUNCTION__); ; } ; @@ -8261,7 +8381,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2788:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2790:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -8274,7 +8394,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2789:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2791:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8286,7 +8406,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OIDAT__V10*/ meltfptr[9]), (melt_ptr_t) (( /*!CLASS_NREP_DATASYMBOL */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:2789:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2791:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8294,7 +8414,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2789:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2791:/ cond.else"); /*^block */ /*anyblock */ @@ -8308,7 +8428,7 @@ lab_endgetargs:; melt_assert_failed (("check oidat"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2789) ? (2789) : __LINE__, __FUNCTION__); + (2791) ? (2791) : __LINE__, __FUNCTION__); ; } ; @@ -8323,7 +8443,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2789:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2791:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -8334,7 +8454,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2790:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2792:/ quasiblock"); /*^getslot */ @@ -8345,7 +8465,7 @@ lab_endgetargs:; meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2791:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2793:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -8356,7 +8476,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2791:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2793:/ cond.else"); /*^block */ /*anyblock */ @@ -8373,7 +8493,7 @@ lab_endgetargs:; /*_.IFELSE___V17*/ meltfptr[16] = /*_.NREP_LOC__V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2791:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2793:/ clear"); /*clear *//*_.NREP_LOC__V18*/ meltfptr[17] = 0; } ; @@ -8403,7 +8523,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2792:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2794:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*internsym:")); @@ -8411,7 +8531,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2793:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2795:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -8420,7 +8540,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2794:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2796:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -8428,20 +8548,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2795:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2797:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2796:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2798:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("(void) meltgc_intern_symbol((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2797:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2799:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -8465,7 +8585,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2798:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2800:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("));")); @@ -8473,13 +8593,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2799:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2801:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2790:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2792:/ clear"); /*clear *//*_.NSY__V16*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -8489,7 +8609,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2800:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2802:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8500,7 +8620,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2801:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2803:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -8535,7 +8655,7 @@ lab_endgetargs:; /*_#I__L7*/ meltfnum[6] = (( /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[1]) < ( /*_#GET_INT__L6*/ meltfnum[5]));; - MELT_LOCATION ("warmelt-outobj.melt:2800:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2802:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -8543,7 +8663,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2800:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2802:/ cond.else"); /*^block */ /*anyblock */ @@ -8557,7 +8677,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2800) ? (2800) : __LINE__, __FUNCTION__); + (2802) ? (2802) : __LINE__, __FUNCTION__); ; } ; @@ -8572,7 +8692,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[14] = /*_.IFELSE___V23*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2800:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2802:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V22*/ meltfptr[16] = 0; @@ -8593,7 +8713,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V21*/ meltfptr[14];; - MELT_LOCATION ("warmelt-outobj.melt:2783:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2785:/ clear"); /*clear *//*_.CLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OIOBJ__V9*/ meltfptr[8] = 0; @@ -8607,14 +8727,26 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V14*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.IFCPP___V21*/ meltfptr[14] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2781:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2783:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2781:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2783:/ 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 */ @@ -8714,7 +8846,7 @@ meltrout_73_warmelt_outobj_OUTPUCOD_OBJINTERNKEYWORD (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2806:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2808:/ getarg"); /*_.OIKW__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -8752,7 +8884,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2807:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2809:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8764,7 +8896,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OIKW__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJINTERNKEYWORD */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2807:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2809:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8772,7 +8904,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2807:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2809:/ cond.else"); /*^block */ /*anyblock */ @@ -8786,7 +8918,7 @@ lab_endgetargs:; melt_assert_failed (("check oikw"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2807) ? (2807) : __LINE__, __FUNCTION__); + (2809) ? (2809) : __LINE__, __FUNCTION__); ; } ; @@ -8801,7 +8933,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2807:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2809:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -8812,7 +8944,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2808:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2810:/ quasiblock"); /*^getslot */ @@ -8823,7 +8955,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2809:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2811:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIKW__V2*/ meltfptr[1]), 1, "OBINTERN_IOBJ"); @@ -8831,7 +8963,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2810:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2812:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 2, "OIE_DATA"); @@ -8839,7 +8971,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2811:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2813:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 4, "OIE_LOCVAR"); @@ -8849,7 +8981,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2813:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2815:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8861,7 +8993,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OIDAT__V10*/ meltfptr[9]), (melt_ptr_t) (( /*!CLASS_NREP_DATAKEYWORD */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2813:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2815:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8869,7 +9001,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2813:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2815:/ cond.else"); /*^block */ /*anyblock */ @@ -8883,7 +9015,7 @@ lab_endgetargs:; melt_assert_failed (("check oidat"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2813) ? (2813) : __LINE__, __FUNCTION__); + (2815) ? (2815) : __LINE__, __FUNCTION__); ; } ; @@ -8898,7 +9030,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2813:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2815:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -8909,7 +9041,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2814:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2816:/ quasiblock"); /*^getslot */ @@ -8920,7 +9052,7 @@ lab_endgetargs:; meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2815:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2817:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -8931,7 +9063,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2815:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2817:/ cond.else"); /*^block */ /*anyblock */ @@ -8948,7 +9080,7 @@ lab_endgetargs:; /*_.IFELSE___V15*/ meltfptr[14] = /*_.NREP_LOC__V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2815:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2817:/ clear"); /*clear *//*_.NREP_LOC__V16*/ meltfptr[15] = 0; } ; @@ -8978,7 +9110,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2816:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2818:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*internkeyw:")); @@ -8986,7 +9118,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2817:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2819:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -8995,7 +9127,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2818:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2820:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -9003,20 +9135,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2819:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2821:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2820:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2822:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("(void) meltgc_intern_keyword((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2821:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2823:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -9040,7 +9172,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2822:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2824:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("));")); @@ -9048,13 +9180,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2823:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2825:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2814:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2816:/ clear"); /*clear *//*_.NSY__V14*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -9064,7 +9196,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V18*/ meltfptr[17] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2824:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2826:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9075,7 +9207,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2825:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2827:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -9110,7 +9242,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2824:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2826:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -9118,7 +9250,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2824:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2826:/ cond.else"); /*^block */ /*anyblock */ @@ -9132,7 +9264,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2824) ? (2824) : __LINE__, __FUNCTION__); + (2826) ? (2826) : __LINE__, __FUNCTION__); ; } ; @@ -9147,7 +9279,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[12] = /*_.IFELSE___V21*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2824:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2826:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V20*/ meltfptr[14] = 0; @@ -9168,7 +9300,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V19*/ meltfptr[12];; - MELT_LOCATION ("warmelt-outobj.melt:2808:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2810:/ clear"); /*clear *//*_.CLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OIOBJ__V9*/ meltfptr[8] = 0; @@ -9180,14 +9312,26 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.IFCPP___V19*/ meltfptr[12] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2806:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2808:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2806:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2808:/ 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 */ @@ -9287,7 +9431,7 @@ meltrout_74_warmelt_outobj_OUTPUCOD_OBJGETNAMEDSYMBOL (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2830:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2832:/ getarg"); /*_.OGSY__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -9325,7 +9469,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2831:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2833:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9337,7 +9481,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OGSY__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJGETNAMEDSYMBOL */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2831:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2833:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9345,7 +9489,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2831:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2833:/ cond.else"); /*^block */ /*anyblock */ @@ -9359,7 +9503,7 @@ lab_endgetargs:; melt_assert_failed (("check ogsy"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2831) ? (2831) : __LINE__, __FUNCTION__); + (2833) ? (2833) : __LINE__, __FUNCTION__); ; } ; @@ -9374,7 +9518,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2831:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2833:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -9385,7 +9529,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2832:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2834:/ quasiblock"); /*^getslot */ @@ -9396,7 +9540,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2833:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2835:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OGSY__V2*/ meltfptr[1]), 1, "OBGNAMED_IOBJ"); @@ -9404,7 +9548,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2834:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2836:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 2, "OIE_DATA"); @@ -9412,7 +9556,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2835:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2837:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 4, "OIE_LOCVAR"); @@ -9422,7 +9566,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2837:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2839:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9434,7 +9578,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), (melt_ptr_t) (( /*!CLASS_OBJINITOBJECT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2837:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2839:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9442,7 +9586,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2837:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2839:/ cond.else"); /*^block */ /*anyblock */ @@ -9456,7 +9600,7 @@ lab_endgetargs:; melt_assert_failed (("check oiobj"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2837) ? (2837) : __LINE__, __FUNCTION__); + (2839) ? (2839) : __LINE__, __FUNCTION__); ; } ; @@ -9471,7 +9615,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2837:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2839:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -9484,7 +9628,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2838:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2840:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9496,7 +9640,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OGDAT__V10*/ meltfptr[9]), (melt_ptr_t) (( /*!CLASS_NREP_DATASYMBOL */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:2838:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2840:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9504,7 +9648,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2838:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2840:/ cond.else"); /*^block */ /*anyblock */ @@ -9518,7 +9662,7 @@ lab_endgetargs:; melt_assert_failed (("check ogdat"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2838) ? (2838) : __LINE__, __FUNCTION__); + (2840) ? (2840) : __LINE__, __FUNCTION__); ; } ; @@ -9533,7 +9677,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2838:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2840:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -9544,7 +9688,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2839:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2841:/ quasiblock"); /*^getslot */ @@ -9555,7 +9699,7 @@ lab_endgetargs:; meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2841:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2843:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -9566,7 +9710,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2841:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2843:/ cond.else"); /*^block */ /*anyblock */ @@ -9583,7 +9727,7 @@ lab_endgetargs:; /*_.IFELSE___V18*/ meltfptr[17] = /*_.NREP_LOC__V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2841:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2843:/ clear"); /*clear *//*_.NREP_LOC__V19*/ meltfptr[18] = 0; } ; @@ -9613,7 +9757,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2842:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2844:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*getnamedsym:")); @@ -9621,7 +9765,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2843:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2845:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -9630,7 +9774,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2844:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2846:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -9638,14 +9782,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2845:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2847:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2846:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2848:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{ melt_ptr_t sy_")); @@ -9653,7 +9797,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2847:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2849:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.NSY__V17*/ @@ -9662,7 +9806,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2848:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2850:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = meltgc_named_symbol(\"")); @@ -9670,7 +9814,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2849:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2851:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -9679,7 +9823,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2850:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2852:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\", MELT_GET);")); @@ -9689,14 +9833,14 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2851:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2853:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L5*/ meltfnum[1]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2852:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2854:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("if (sy_")); @@ -9704,7 +9848,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2853:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2855:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.NSY__V17*/ @@ -9713,7 +9857,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2854:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2856:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" && NULL == ")); @@ -9721,7 +9865,7 @@ lab_endgetargs:; ; /*_#I__L6*/ meltfnum[5] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:2855:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2857:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -9745,7 +9889,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2856:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2858:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")")); @@ -9755,14 +9899,14 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2857:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2859:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L7*/ meltfnum[6]), 0); } ; /*_#I__L8*/ meltfnum[7] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:2858:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2860:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -9786,7 +9930,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2859:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2861:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = (melt_ptr_t) sy_")); @@ -9794,7 +9938,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2860:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2862:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.NSY__V17*/ @@ -9803,7 +9947,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2861:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2863:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("; }")); @@ -9811,14 +9955,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2862:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2864:/ 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:2863:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2865:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9829,7 +9973,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L9*/ meltfnum[8] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2864:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2866:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -9864,7 +10008,7 @@ lab_endgetargs:; /*_#I__L11*/ meltfnum[10] = (( /*_#STRBUF_USEDLENGTH__L9*/ meltfnum[8]) < ( /*_#GET_INT__L10*/ meltfnum[9]));; - MELT_LOCATION ("warmelt-outobj.melt:2863:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2865:/ cond"); /*cond */ if ( /*_#I__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -9872,7 +10016,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2863:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2865:/ cond.else"); /*^block */ /*anyblock */ @@ -9886,7 +10030,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2863) ? (2863) : __LINE__, __FUNCTION__); + (2865) ? (2865) : __LINE__, __FUNCTION__); ; } ; @@ -9901,7 +10045,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = /*_.IFELSE___V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2863:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2865:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V24*/ meltfptr[23] = 0; @@ -9922,7 +10066,7 @@ lab_endgetargs:; /*_.LET___V16*/ meltfptr[14] = /*_.IFCPP___V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-outobj.melt:2839:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2841:/ clear"); /*clear *//*_.NSY__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.IFELSE___V18*/ meltfptr[17] = 0; @@ -9944,7 +10088,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V23*/ meltfptr[22] = 0; /*_.LET___V7*/ meltfptr[5] = /*_.LET___V16*/ meltfptr[14];; - MELT_LOCATION ("warmelt-outobj.melt:2832:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2834:/ clear"); /*clear *//*_.CLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OIOBJ__V9*/ meltfptr[8] = 0; @@ -9958,14 +10102,26 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V14*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LET___V16*/ meltfptr[14] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2830:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2832:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2830:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2832:/ 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 */ @@ -10066,7 +10222,7 @@ meltrout_75_warmelt_outobj_OUTPUCOD_OBJGETNAMEDKEYWORD (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2869:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2871:/ getarg"); /*_.OGKW__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -10104,7 +10260,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2870:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2872:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10116,7 +10272,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OGKW__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJGETNAMEDKEYWORD */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2870:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2872:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -10124,7 +10280,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2870:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2872:/ cond.else"); /*^block */ /*anyblock */ @@ -10138,7 +10294,7 @@ lab_endgetargs:; melt_assert_failed (("check ogkw"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2870) ? (2870) : __LINE__, __FUNCTION__); + (2872) ? (2872) : __LINE__, __FUNCTION__); ; } ; @@ -10153,7 +10309,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2870:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2872:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -10164,7 +10320,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2871:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2873:/ quasiblock"); /*^getslot */ @@ -10175,7 +10331,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2872:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2874:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OGKW__V2*/ meltfptr[1]), 1, "OBGNAMED_IOBJ"); @@ -10183,7 +10339,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2873:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2875:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 2, "OIE_DATA"); @@ -10191,7 +10347,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2874:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2876:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 4, "OIE_LOCVAR"); @@ -10201,7 +10357,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2876:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2878:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10213,7 +10369,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), (melt_ptr_t) (( /*!CLASS_OBJINITOBJECT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2876:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2878:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -10221,7 +10377,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2876:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2878:/ cond.else"); /*^block */ /*anyblock */ @@ -10235,7 +10391,7 @@ lab_endgetargs:; melt_assert_failed (("check oiobj"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2876) ? (2876) : __LINE__, __FUNCTION__); + (2878) ? (2878) : __LINE__, __FUNCTION__); ; } ; @@ -10250,7 +10406,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2876:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2878:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -10263,7 +10419,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2877:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2879:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10275,7 +10431,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OGDAT__V10*/ meltfptr[9]), (melt_ptr_t) (( /*!CLASS_NREP_DATAKEYWORD */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:2877:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2879:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -10283,7 +10439,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2877:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2879:/ cond.else"); /*^block */ /*anyblock */ @@ -10297,7 +10453,7 @@ lab_endgetargs:; melt_assert_failed (("check ogdat"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2877) ? (2877) : __LINE__, __FUNCTION__); + (2879) ? (2879) : __LINE__, __FUNCTION__); ; } ; @@ -10312,7 +10468,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2877:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2879:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -10323,7 +10479,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2878:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2880:/ quasiblock"); /*^getslot */ @@ -10334,7 +10490,7 @@ lab_endgetargs:; meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2879:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2881:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -10345,7 +10501,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2879:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2881:/ cond.else"); /*^block */ /*anyblock */ @@ -10362,7 +10518,7 @@ lab_endgetargs:; /*_.IFELSE___V18*/ meltfptr[17] = /*_.NREP_LOC__V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2879:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2881:/ clear"); /*clear *//*_.NREP_LOC__V19*/ meltfptr[18] = 0; } ; @@ -10392,7 +10548,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2880:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2882:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*getnamedkeyw:")); @@ -10400,7 +10556,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2881:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2883:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -10409,7 +10565,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2882:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2884:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -10417,14 +10573,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2883:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2885:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2884:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2886:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{ melt_ptr_t kw_")); @@ -10432,7 +10588,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2885:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2887:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.NKW__V17*/ @@ -10441,7 +10597,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2886:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2888:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = meltgc_named_keyword(\"")); @@ -10449,7 +10605,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2887:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2889:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -10458,7 +10614,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2888:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2890:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\", MELT_GET);")); @@ -10468,14 +10624,14 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2889:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2891:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L5*/ meltfnum[1]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2890:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2892:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("if (kw_")); @@ -10483,7 +10639,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2891:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2893:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.NKW__V17*/ @@ -10492,7 +10648,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2892:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2894:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (") ")); @@ -10500,7 +10656,7 @@ lab_endgetargs:; ; /*_#I__L6*/ meltfnum[5] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:2893:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2895:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -10524,7 +10680,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2894:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2896:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = (melt_ptr_t) kw_")); @@ -10532,7 +10688,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2895:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2897:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.NKW__V17*/ @@ -10541,7 +10697,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2896:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2898:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("; }")); @@ -10549,14 +10705,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2897:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2899:/ 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:2898:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2900:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10567,7 +10723,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2899:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2901:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -10602,7 +10758,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6]) < ( /*_#GET_INT__L8*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:2898:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2900:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -10610,7 +10766,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2898:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2900:/ cond.else"); /*^block */ /*anyblock */ @@ -10624,7 +10780,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2898) ? (2898) : __LINE__, __FUNCTION__); + (2900) ? (2900) : __LINE__, __FUNCTION__); ; } ; @@ -10639,7 +10795,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[21] = /*_.IFELSE___V24*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2898:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2900:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V23*/ meltfptr[22] = 0; @@ -10660,7 +10816,7 @@ lab_endgetargs:; /*_.LET___V16*/ meltfptr[14] = /*_.IFCPP___V22*/ meltfptr[21];; - MELT_LOCATION ("warmelt-outobj.melt:2878:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2880:/ clear"); /*clear *//*_.NKW__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.IFELSE___V18*/ meltfptr[17] = 0; @@ -10676,7 +10832,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V22*/ meltfptr[21] = 0; /*_.LET___V7*/ meltfptr[5] = /*_.LET___V16*/ meltfptr[14];; - MELT_LOCATION ("warmelt-outobj.melt:2871:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2873:/ clear"); /*clear *//*_.CLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OIOBJ__V9*/ meltfptr[8] = 0; @@ -10690,14 +10846,26 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V14*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LET___V16*/ meltfptr[14] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2869:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2871:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2869:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2871:/ 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 */ @@ -10793,7 +10961,7 @@ meltrout_76_warmelt_outobj_OUTPUCOD_OBJAPPLY (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2905:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2907:/ getarg"); /*_.OAPP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -10831,7 +10999,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2906:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2908:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10843,7 +11011,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJAPPLY */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2906:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2908:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -10851,7 +11019,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2906:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2908:/ cond.else"); /*^block */ /*anyblock */ @@ -10865,7 +11033,7 @@ lab_endgetargs:; melt_assert_failed (("check oapp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2906) ? (2906) : __LINE__, __FUNCTION__); + (2908) ? (2908) : __LINE__, __FUNCTION__); ; } ; @@ -10880,7 +11048,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2906:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2908:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -10891,10 +11059,10 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2907:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2909:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:2908:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2910:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -10902,7 +11070,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2909:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2911:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 1, "OBDI_DESTLIST"); @@ -10910,7 +11078,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2910:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2912:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 2, "OBAPP_CLOS"); @@ -10918,7 +11086,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2911:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2913:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 3, "OBAPP_ARGS"); @@ -10943,7 +11111,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[2])), ( /*_#I__L4*/ meltfnum[3])));; - MELT_LOCATION ("warmelt-outobj.melt:2916:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2918:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10967,7 +11135,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2917:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2919:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*apply*/{")); @@ -10977,17 +11145,17 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2918:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2920:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L5*/ meltfnum[4]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2919:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2921:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L6*/ meltfnum[5] = (( /*_#NBARG__L3*/ meltfnum[1]) > (1));; - MELT_LOCATION ("warmelt-outobj.melt:2919:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2921:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -10997,7 +11165,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2921:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2923:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -11008,7 +11176,7 @@ lab_endgetargs:; (( /*_#NBARG__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2922:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2924:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L7*/ meltfnum[6])); @@ -11016,7 +11184,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2923:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2925:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("];")); @@ -11026,7 +11194,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2924:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2926:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L8*/ meltfnum[7]), 0); @@ -11034,7 +11202,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2925:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2927:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -11045,7 +11213,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2926:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2928:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L9*/ meltfnum[8]), 0); @@ -11071,7 +11239,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2931:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2933:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11089,7 +11257,7 @@ lab_endgetargs:; /*_#NOT__L12*/ meltfnum[11] = (!( /*_#IS_A__L11*/ meltfnum[10]));; - MELT_LOCATION ("warmelt-outobj.melt:2931:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2933:/ cond"); /*cond */ if ( /*_#NOT__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -11097,7 +11265,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2931:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2933:/ cond.else"); /*^block */ /*anyblock */ @@ -11108,7 +11276,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("outputcod_objapply check curarg not objinstr"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (2931) ? (2931) : __LINE__, __FUNCTION__); + melt_assert_failed (("outputcod_objapply check curarg not objinstr"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (2933) ? (2933) : __LINE__, __FUNCTION__); ; } ; @@ -11124,7 +11292,7 @@ lab_endgetargs:; /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2931:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2933:/ clear"); /*clear *//*_#IS_A__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_#NOT__L12*/ meltfnum[11] = 0; @@ -11137,12 +11305,12 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2932:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2934:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L13*/ meltfnum[10] = (( /*_#CURANK__L10*/ meltfnum[9]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:2932:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2934:/ cond"); /*cond */ if ( /*_#I__L13*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -11150,7 +11318,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2933:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2935:/ quasiblock"); /*^checksignal */ @@ -11174,7 +11342,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2934:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2936:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11187,7 +11355,7 @@ lab_endgetargs:; ( /*_.CURCTYP__V18*/ meltfptr[16]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-outobj.melt:2934:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2936:/ cond"); /*cond */ if ( /*_#IS_A__L14*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -11197,7 +11365,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:2934:/ cond.else"); + ("warmelt-outobj.melt:2936:/ cond.else"); /*^block */ /*anyblock */ @@ -11212,7 +11380,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2934) ? (2934) : + (2936) ? (2936) : __LINE__, __FUNCTION__); ; } @@ -11229,7 +11397,7 @@ lab_endgetargs:; /*_.IFELSE___V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2934:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2936:/ clear"); /*clear *//*_#IS_A__L14*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IFELSE___V20*/ meltfptr[19] = 0; @@ -11247,7 +11415,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V13*/ meltfptr[12])));; MELT_LOCATION - ("warmelt-outobj.melt:2935:/ checksignal"); + ("warmelt-outobj.melt:2937:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11276,7 +11444,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2936:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2938:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -11287,7 +11455,7 @@ lab_endgetargs:; (( /*_#CURANK__L10*/ meltfnum[9]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2937:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2939:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -11296,14 +11464,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2938:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2940:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("].")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2939:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2941:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V18*/ meltfptr[16]), 5, "CTYPE_PARSTRING"); @@ -11321,12 +11489,12 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:2940:/ checksignal"); + ("warmelt-outobj.melt:2942:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L17*/ meltfnum[16] = (( /*_.CURARG__V15*/ meltfptr[14]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:2940:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2942:/ cond"); /*cond */ if ( /*_#NULL__L17*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -11339,7 +11507,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:2941:/ locexp"); + ("warmelt-outobj.melt:2943:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -11355,14 +11523,14 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:2940:/ cond.else"); + ("warmelt-outobj.melt:2942:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:2942:/ checksignal"); + ("warmelt-outobj.melt:2944:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L18*/ meltfnum[17] = @@ -11370,7 +11538,7 @@ lab_endgetargs:; ( /*_.CURARG__V15*/ meltfptr[14]), (melt_ptr_t) (( /*!CLASS_OBJNIL */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-outobj.melt:2942:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2944:/ cond"); /*cond */ if ( /*_#IS_A__L18*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -11383,7 +11551,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:2943:/ locexp"); + ("warmelt-outobj.melt:2945:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -11400,14 +11568,14 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:2942:/ cond.else"); + ("warmelt-outobj.melt:2944:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:2944:/ checksignal"); + ("warmelt-outobj.melt:2946:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L19*/ meltfnum[18] = @@ -11415,7 +11583,7 @@ lab_endgetargs:; (( /*!CTYPE_VALUE */ meltfrout-> tabval[8])));; MELT_LOCATION - ("warmelt-outobj.melt:2944:/ cond"); + ("warmelt-outobj.melt:2946:/ cond"); /*cond */ if ( /*_#__L19*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -11426,7 +11594,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:2945:/ locexp"); + ("warmelt-outobj.melt:2947:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("meltbp_aptr = (melt_ptr_t*) &")); @@ -11438,7 +11606,7 @@ lab_endgetargs:; ( /*_.BOXDEPTHP1__V13*/ meltfptr[12])));; MELT_LOCATION - ("warmelt-outobj.melt:2946:/ checksignal"); + ("warmelt-outobj.melt:2948:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -11467,7 +11635,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:2944:/ quasiblock"); + ("warmelt-outobj.melt:2946:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[26] = @@ -11480,7 +11648,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:2944:/ clear"); + ("warmelt-outobj.melt:2946:/ clear"); /*clear *//*_#GET_INT__L20*/ meltfnum[19] = 0; /*^clear */ @@ -11500,7 +11668,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:2949:/ getslot"); + ("warmelt-outobj.melt:2951:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V18*/ meltfptr[16]), 6, "CTYPE_ARGFIELD"); @@ -11522,7 +11690,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:2950:/ locexp"); + ("warmelt-outobj.melt:2952:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = ")); @@ -11534,7 +11702,7 @@ lab_endgetargs:; ( /*_.BOXDEPTHP1__V13*/ meltfptr[12])));; MELT_LOCATION - ("warmelt-outobj.melt:2951:/ checksignal"); + ("warmelt-outobj.melt:2953:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -11563,7 +11731,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:2948:/ quasiblock"); + ("warmelt-outobj.melt:2950:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[29] = @@ -11576,7 +11744,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:2944:/ clear"); + ("warmelt-outobj.melt:2946:/ clear"); /*clear *//*_.CTYPE_ARGFIELD__V28*/ meltfptr[25] = 0; /*^clear */ @@ -11597,7 +11765,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:2942:/ clear"); + ("warmelt-outobj.melt:2944:/ clear"); /*clear *//*_#__L19*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.IFELSE___V25*/ meltfptr[24] = @@ -11611,7 +11779,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:2940:/ clear"); + ("warmelt-outobj.melt:2942:/ clear"); /*clear *//*_#IS_A__L18*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IFELSE___V24*/ meltfptr[23] = 0; @@ -11621,7 +11789,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2953:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2955:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -11634,7 +11802,7 @@ lab_endgetargs:; ( /*_.BOXDEPTHP1__V13*/ meltfptr[12])));; { - MELT_LOCATION ("warmelt-outobj.melt:2954:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2956:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -11643,7 +11811,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:2933:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2935:/ clear"); /*clear *//*_.CURCTYP__V18*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.IFCPP___V19*/ meltfptr[18] = 0; @@ -11668,7 +11836,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2956:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2958:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11680,7 +11848,7 @@ lab_endgetargs:; melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2957:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2959:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -11715,7 +11883,7 @@ lab_endgetargs:; /*_#I__L25*/ meltfnum[11] = (( /*_#STRBUF_USEDLENGTH__L23*/ meltfnum[18]) < ( /*_#GET_INT__L24*/ meltfnum[17]));; - MELT_LOCATION ("warmelt-outobj.melt:2956:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2958:/ cond"); /*cond */ if ( /*_#I__L25*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -11723,7 +11891,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2956:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2958:/ cond.else"); /*^block */ /*anyblock */ @@ -11738,7 +11906,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2956) ? (2956) : __LINE__, + (2958) ? (2958) : __LINE__, __FUNCTION__); ; } @@ -11755,7 +11923,7 @@ lab_endgetargs:; /*_.IFELSE___V33*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2956:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2958:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L23*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V32*/ meltfptr[26] = 0; @@ -11778,7 +11946,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:2928:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2930:/ clear"); /*clear *//*_.CURARG__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_#CURANK__L10*/ meltfnum[9] = 0; @@ -11790,12 +11958,12 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V31*/ meltfptr[25] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:2920:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2922:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2919:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2921:/ clear"); /*clear *//*_#I__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_#I__L8*/ meltfnum[7] = 0; @@ -11805,7 +11973,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:2963:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2965:/ quasiblock"); /*^newclosure */ @@ -11856,7 +12024,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BOXDEPTHP1__V13*/ meltfptr[12]); ; /*_.LAMBDA___V34*/ meltfptr[24] = /*_.LAMBDA___V35*/ meltfptr[23];; - MELT_LOCATION ("warmelt-outobj.melt:2961:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2963:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11877,7 +12045,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2969:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2971:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_apply ((meltclosure_ptr_t)(")); @@ -11885,7 +12053,7 @@ lab_endgetargs:; ; /*_#I__L26*/ meltfnum[15] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:2970:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2972:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -11909,13 +12077,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2971:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2973:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2973:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2975:/ quasiblock"); /*_.FIRSTARG__V39*/ meltfptr[21] = @@ -11925,7 +12093,7 @@ lab_endgetargs:; /*_#I__L27*/ meltfnum[16] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:2974:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2976:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -11949,7 +12117,7 @@ lab_endgetargs:; ; /*_.LET___V38*/ meltfptr[19] = /*_.OUTPUT_C_CODE__V40*/ meltfptr[22];; - MELT_LOCATION ("warmelt-outobj.melt:2973:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2975:/ clear"); /*clear *//*_.FIRSTARG__V39*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_#I__L27*/ meltfnum[16] = 0; @@ -11957,13 +12125,13 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V40*/ meltfptr[22] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:2976:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2978:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2980:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2982:/ quasiblock"); /*^newclosure */ @@ -11988,7 +12156,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V41*/ meltfptr[26] = /*_.LAMBDA___V42*/ meltfptr[29];; - MELT_LOCATION ("warmelt-outobj.melt:2978:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2980:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12009,18 +12177,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2983:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2985:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\"\"), ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2985:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2987:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L28*/ meltfnum[19] = (( /*_#NBARG__L3*/ meltfnum[1]) > (1));; - MELT_LOCATION ("warmelt-outobj.melt:2985:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2987:/ cond"); /*cond */ if ( /*_#I__L28*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -12030,7 +12198,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2986:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2988:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -12043,7 +12211,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2985:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2987:/ cond.else"); /*^block */ /*anyblock */ @@ -12051,7 +12219,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2987:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2989:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -12065,7 +12233,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2989:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2991:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" \"\", (union meltparam_un*)0")); @@ -12073,7 +12241,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2990:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2992:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -12083,14 +12251,14 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2991:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2993:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L29*/ meltfnum[18]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2992:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2994:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -12098,14 +12266,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2993:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2995:/ 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:2994:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2996:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12116,7 +12284,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L30*/ meltfnum[17] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2995:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2997:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -12151,7 +12319,7 @@ lab_endgetargs:; /*_#I__L32*/ meltfnum[6] = (( /*_#STRBUF_USEDLENGTH__L30*/ meltfnum[17]) < ( /*_#GET_INT__L31*/ meltfnum[11]));; - MELT_LOCATION ("warmelt-outobj.melt:2994:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2996:/ cond"); /*cond */ if ( /*_#I__L32*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -12159,7 +12327,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2994:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2996:/ cond.else"); /*^block */ /*anyblock */ @@ -12173,7 +12341,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2994) ? (2994) : __LINE__, __FUNCTION__); + (2996) ? (2996) : __LINE__, __FUNCTION__); ; } ; @@ -12188,7 +12356,7 @@ lab_endgetargs:; /*_.IFCPP___V44*/ meltfptr[22] = /*_.IFELSE___V46*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2994:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2996:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L30*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V45*/ meltfptr[44] = 0; @@ -12209,7 +12377,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V44*/ meltfptr[22];; - MELT_LOCATION ("warmelt-outobj.melt:2907:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2909:/ clear"); /*clear *//*_.ALOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ADEST__V9*/ meltfptr[8] = 0; @@ -12251,14 +12419,26 @@ lab_endgetargs:; /*clear *//*_#I__L29*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.IFCPP___V44*/ meltfptr[22] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2905:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2907:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:2905:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:2907:/ 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 */ @@ -12352,7 +12532,7 @@ meltrout_77_warmelt_outobj_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2963:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2965:/ getarg"); /*_.CURDEST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -12365,7 +12545,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:2964:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2966:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -12391,7 +12571,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2965:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2967:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12402,7 +12582,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2966:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2968:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -12437,7 +12617,7 @@ lab_endgetargs:; /*_#I__L4*/ meltfnum[3] = (( /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1]) < ( /*_#GET_INT__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:2965:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2967:/ cond"); /*cond */ if ( /*_#I__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -12445,7 +12625,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2965:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2967:/ cond.else"); /*^block */ /*anyblock */ @@ -12459,7 +12639,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2965) ? (2965) : __LINE__, __FUNCTION__); + (2967) ? (2967) : __LINE__, __FUNCTION__); ; } ; @@ -12474,7 +12654,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2965:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2967:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V5*/ meltfptr[4] = 0; @@ -12493,13 +12673,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2967:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2969:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (" = ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2963:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2965:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -12595,7 +12775,7 @@ meltrout_78_warmelt_outobj_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2980:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2982:/ getarg"); /*_.PARD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -12607,7 +12787,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2981:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2983:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -12617,13 +12797,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2982:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2984:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), (" ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2980:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2982:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -12714,7 +12894,7 @@ meltrout_79_warmelt_outobj_OUTPUCOD_OBJMSEND (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3002:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3004:/ getarg"); /*_.OMSEND__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -12752,7 +12932,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3003:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3005:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12764,7 +12944,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OMSEND__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJMSEND */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:3003:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3005:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -12772,7 +12952,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3003:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3005:/ cond.else"); /*^block */ /*anyblock */ @@ -12786,7 +12966,7 @@ lab_endgetargs:; melt_assert_failed (("check omsend"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3003) ? (3003) : __LINE__, __FUNCTION__); + (3005) ? (3005) : __LINE__, __FUNCTION__); ; } ; @@ -12801,7 +12981,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3003:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3005:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -12812,7 +12992,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3004:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3006:/ quasiblock"); /*^getslot */ @@ -12823,7 +13003,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3005:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3007:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSEND__V2*/ meltfptr[1]), 1, "OBDI_DESTLIST"); @@ -12831,7 +13011,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3006:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3008:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSEND__V2*/ meltfptr[1]), 2, "OBMSND_SEL"); @@ -12839,7 +13019,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3007:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3009:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSEND__V2*/ meltfptr[1]), 3, "OBMSND_RECV"); @@ -12847,7 +13027,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3008:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3010:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSEND__V2*/ meltfptr[1]), 4, "OBMSND_ARGS"); @@ -12872,7 +13052,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[2])), ( /*_#I__L4*/ meltfnum[3])));; - MELT_LOCATION ("warmelt-outobj.melt:3013:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3015:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12896,7 +13076,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3014:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3016:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*msend*/{")); @@ -12906,17 +13086,17 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3015:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3017:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L5*/ meltfnum[4]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3016:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3018:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L6*/ meltfnum[5] = (( /*_#NBARG__L3*/ meltfnum[1]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3016:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3018:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -12926,7 +13106,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3021:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3023:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -12935,7 +13115,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3022:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3024:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBARG__L3*/ meltfnum[1])); @@ -12943,7 +13123,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3023:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3025:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("];")); @@ -12953,7 +13133,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3024:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3026:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L7*/ meltfnum[6]), 0); @@ -12961,7 +13141,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3025:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3027:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -12972,7 +13152,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3026:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3028:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L8*/ meltfnum[7]), 0); @@ -12996,7 +13176,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:3031:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3033:/ quasiblock"); /*^checksignal */ @@ -13020,7 +13200,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3032:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3034:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13034,7 +13214,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[5])));; - MELT_LOCATION ("warmelt-outobj.melt:3032:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3034:/ cond"); /*cond */ if ( /*_#IS_A__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -13042,7 +13222,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3032:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3034:/ cond.else"); /*^block */ /*anyblock */ @@ -13057,7 +13237,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3032) ? (3032) : __LINE__, + (3034) ? (3034) : __LINE__, __FUNCTION__); ; } @@ -13074,7 +13254,7 @@ lab_endgetargs:; /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3032:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3034:/ clear"); /*clear *//*_#IS_A__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; @@ -13090,7 +13270,7 @@ lab_endgetargs:; /*_#GET_INT__L11*/ meltfnum[9] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-outobj.melt:3033:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3035:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13117,7 +13297,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3034:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3036:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -13126,7 +13306,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3035:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3037:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#CURANK__L9*/ meltfnum[8])); @@ -13134,14 +13314,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3036:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3038:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("].")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3037:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3039:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V17*/ meltfptr[16]), 5, "CTYPE_PARSTRING"); @@ -13158,12 +13338,12 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.CTYPE_PARSTRING__V21*/ meltfptr[20])); } ; - MELT_LOCATION ("warmelt-outobj.melt:3038:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3040:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L12*/ meltfnum[11] = (( /*_.CURARG__V16*/ meltfptr[15]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:3038:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3040:/ cond"); /*cond */ if ( /*_#NULL__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -13175,7 +13355,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3039:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3041:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -13189,14 +13369,14 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3038:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3040:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:3041:/ checksignal"); + ("warmelt-outobj.melt:3043:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L13*/ meltfnum[12] = @@ -13204,7 +13384,7 @@ lab_endgetargs:; ( /*_.CURARG__V16*/ meltfptr[15]), (melt_ptr_t) (( /*!CLASS_OBJNIL */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-outobj.melt:3041:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3043:/ cond"); /*cond */ if ( /*_#IS_A__L13*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -13217,7 +13397,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3042:/ locexp"); + ("warmelt-outobj.melt:3044:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -13233,20 +13413,20 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:3041:/ cond.else"); + ("warmelt-outobj.melt:3043:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:3044:/ checksignal"); + ("warmelt-outobj.melt:3046:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L14*/ meltfnum[13] = (( /*_.CURCTYP__V17*/ meltfptr[16]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-outobj.melt:3044:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3046:/ cond"); /*cond */ if ( /*_#__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -13257,7 +13437,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3045:/ locexp"); + ("warmelt-outobj.melt:3047:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -13271,7 +13451,7 @@ lab_endgetargs:; ( /*_.BOXDEPTHP1__V14*/ meltfptr[13])));; MELT_LOCATION - ("warmelt-outobj.melt:3046:/ checksignal"); + ("warmelt-outobj.melt:3048:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -13298,7 +13478,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:3044:/ quasiblock"); + ("warmelt-outobj.melt:3046:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[25] = @@ -13310,7 +13490,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3044:/ clear"); + ("warmelt-outobj.melt:3046:/ clear"); /*clear *//*_#GET_INT__L15*/ meltfnum[14] = 0; /*^clear */ @@ -13332,7 +13512,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-outobj.melt:3049:/ cppif.then"); + ("warmelt-outobj.melt:3051:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13351,7 +13531,7 @@ lab_endgetargs:; (!( /*_#IS_MULTIPLE__L16*/ meltfnum[14]));; MELT_LOCATION - ("warmelt-outobj.melt:3049:/ cond"); + ("warmelt-outobj.melt:3051:/ cond"); /*cond */ if ( /*_#NOT__L17*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -13361,7 +13541,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:3049:/ cond.else"); + ("warmelt-outobj.melt:3051:/ cond.else"); /*^block */ /*anyblock */ @@ -13372,7 +13552,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("check curarg is not multiple"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (3049) ? (3049) : __LINE__, __FUNCTION__); + melt_assert_failed (("check curarg is not multiple"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (3051) ? (3051) : __LINE__, __FUNCTION__); ; } ; @@ -13390,7 +13570,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3049:/ clear"); + ("warmelt-outobj.melt:3051:/ clear"); /*clear *//*_#IS_MULTIPLE__L16*/ meltfnum[14] = 0; /*^clear */ @@ -13407,7 +13587,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-outobj.melt:3050:/ getslot"); + ("warmelt-outobj.melt:3052:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V17*/ meltfptr[16]), 6, "CTYPE_ARGFIELD"); @@ -13428,7 +13608,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3051:/ locexp"); + ("warmelt-outobj.melt:3053:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -13442,7 +13622,7 @@ lab_endgetargs:; ( /*_.BOXDEPTHP1__V14*/ meltfptr[13])));; MELT_LOCATION - ("warmelt-outobj.melt:3052:/ checksignal"); + ("warmelt-outobj.melt:3054:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -13469,7 +13649,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:3048:/ quasiblock"); + ("warmelt-outobj.melt:3050:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[30] = @@ -13481,7 +13661,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3044:/ clear"); + ("warmelt-outobj.melt:3046:/ clear"); /*clear *//*_.IFCPP___V27*/ meltfptr[24] = 0; /*^clear */ @@ -13505,7 +13685,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3041:/ clear"); + ("warmelt-outobj.melt:3043:/ clear"); /*clear *//*_#__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IFELSE___V24*/ meltfptr[23] = 0; @@ -13517,7 +13697,7 @@ lab_endgetargs:; /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3038:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3040:/ clear"); /*clear *//*_#IS_A__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IFELSE___V23*/ meltfptr[22] = 0; @@ -13527,7 +13707,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3054:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3056:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -13536,7 +13716,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3055:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3057:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13548,7 +13728,7 @@ lab_endgetargs:; melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3056:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3058:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -13583,7 +13763,7 @@ lab_endgetargs:; /*_#I__L21*/ meltfnum[13] = (( /*_#STRBUF_USEDLENGTH__L19*/ meltfnum[16]) < ( /*_#GET_INT__L20*/ meltfnum[14]));; - MELT_LOCATION ("warmelt-outobj.melt:3055:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3057:/ cond"); /*cond */ if ( /*_#I__L21*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -13591,7 +13771,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3055:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3057:/ cond.else"); /*^block */ /*anyblock */ @@ -13606,7 +13786,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3055) ? (3055) : __LINE__, + (3057) ? (3057) : __LINE__, __FUNCTION__); ; } @@ -13623,7 +13803,7 @@ lab_endgetargs:; /*_.IFELSE___V34*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3055:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3057:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L19*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V33*/ meltfptr[25] = 0; @@ -13647,7 +13827,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V14*/ meltfptr[13])));; { - MELT_LOCATION ("warmelt-outobj.melt:3057:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3059:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L22*/ @@ -13655,7 +13835,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:3031:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3033:/ clear"); /*clear *//*_.CURCTYP__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.IFCPP___V18*/ meltfptr[17] = 0; @@ -13679,18 +13859,18 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:3028:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3030:/ clear"); /*clear *//*_.CURARG__V16*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_#CURANK__L9*/ meltfnum[8] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:3020:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3022:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3016:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3018:/ clear"); /*clear *//*_#I__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_#I__L8*/ meltfnum[7] = 0; @@ -13715,7 +13895,7 @@ lab_endgetargs:; /*_#GET_INT__L23*/ meltfnum[16] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-outobj.melt:3064:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3066:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -13741,7 +13921,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3065:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3067:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13752,7 +13932,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L24*/ meltfnum[14] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3066:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3068:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -13787,7 +13967,7 @@ lab_endgetargs:; /*_#I__L26*/ meltfnum[9] = (( /*_#STRBUF_USEDLENGTH__L24*/ meltfnum[14]) < ( /*_#GET_INT__L25*/ meltfnum[13]));; - MELT_LOCATION ("warmelt-outobj.melt:3065:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3067:/ cond"); /*cond */ if ( /*_#I__L26*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -13795,7 +13975,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3065:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3067:/ cond.else"); /*^block */ /*anyblock */ @@ -13809,7 +13989,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3065) ? (3065) : __LINE__, + (3067) ? (3067) : __LINE__, __FUNCTION__); ; } @@ -13825,7 +14005,7 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[25] = /*_.IFELSE___V40*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3065:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3067:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L24*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V39*/ meltfptr[29] = 0; @@ -13844,7 +14024,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3067:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3069:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = ")); @@ -13857,7 +14037,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:3061:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3063:/ clear"); /*clear *//*_.CURPAIR__V35*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.CURDEST__V36*/ meltfptr[23] = 0; @@ -13871,7 +14051,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3069:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3071:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13882,7 +14062,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L27*/ meltfnum[11] = (melt_magic_discr ((melt_ptr_t) ( /*_.ORECV__V11*/ meltfptr[10])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-outobj.melt:3069:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3071:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L27*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -13890,7 +14070,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3069:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3071:/ cond.else"); /*^block */ /*anyblock */ @@ -13904,7 +14084,7 @@ lab_endgetargs:; melt_assert_failed (("check orecv object"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3069) ? (3069) : __LINE__, __FUNCTION__); + (3071) ? (3071) : __LINE__, __FUNCTION__); ; } ; @@ -13919,7 +14099,7 @@ lab_endgetargs:; /*_.IFCPP___V41*/ meltfptr[17] = /*_.IFELSE___V42*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3069:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3071:/ clear"); /*clear *//*_#IS_OBJECT__L27*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IFELSE___V42*/ meltfptr[18] = 0; @@ -13932,7 +14112,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3071:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3073:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("meltgc_send((melt_ptr_t)(")); @@ -13940,7 +14120,7 @@ lab_endgetargs:; ; /*_#I__L28*/ meltfnum[12] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:3072:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3074:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -13964,7 +14144,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3073:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3075:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (melt_ptr_t)(")); @@ -13972,7 +14152,7 @@ lab_endgetargs:; ; /*_#I__L29*/ meltfnum[6] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:3074:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3076:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -13996,13 +14176,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3075:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3077:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3079:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3081:/ quasiblock"); /*^newclosure */ @@ -14027,7 +14207,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V45*/ meltfptr[24] = /*_.LAMBDA___V46*/ meltfptr[29];; - MELT_LOCATION ("warmelt-outobj.melt:3077:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3079:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14048,18 +14228,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3082:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3084:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\"\"), ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3083:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3085:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L30*/ meltfnum[7] = (( /*_#NBARG__L3*/ meltfnum[1]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3083:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3085:/ cond"); /*cond */ if ( /*_#I__L30*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -14069,7 +14249,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3084:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3086:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -14082,7 +14262,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3083:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3085:/ cond.else"); /*^block */ /*anyblock */ @@ -14090,7 +14270,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3085:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3087:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -14104,7 +14284,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3087:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3089:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" \"\", (union meltparam_un*)0")); @@ -14112,7 +14292,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3088:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3090:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -14122,14 +14302,14 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3089:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3091:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L31*/ meltfnum[14]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3090:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3092:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -14137,14 +14317,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3091:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3093:/ 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:3092:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3094:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14155,7 +14335,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L32*/ meltfnum[13] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3093:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3095:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -14190,7 +14370,7 @@ lab_endgetargs:; /*_#I__L34*/ meltfnum[11] = (( /*_#STRBUF_USEDLENGTH__L32*/ meltfnum[13]) < ( /*_#GET_INT__L33*/ meltfnum[9]));; - MELT_LOCATION ("warmelt-outobj.melt:3092:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3094:/ cond"); /*cond */ if ( /*_#I__L34*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -14198,7 +14378,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3092:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3094:/ cond.else"); /*^block */ /*anyblock */ @@ -14212,7 +14392,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3092) ? (3092) : __LINE__, __FUNCTION__); + (3094) ? (3094) : __LINE__, __FUNCTION__); ; } ; @@ -14227,7 +14407,7 @@ lab_endgetargs:; /*_.IFCPP___V48*/ meltfptr[18] = /*_.IFELSE___V50*/ meltfptr[49];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3092:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3094:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L32*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V49*/ meltfptr[48] = 0; @@ -14248,7 +14428,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V48*/ meltfptr[18];; - MELT_LOCATION ("warmelt-outobj.melt:3004:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3006:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ODEST__V9*/ meltfptr[8] = 0; @@ -14292,14 +14472,26 @@ lab_endgetargs:; /*clear *//*_#I__L31*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IFCPP___V48*/ meltfptr[18] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3002:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3004:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:3002:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:3004:/ 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 */ @@ -14393,7 +14585,7 @@ meltrout_80_warmelt_outobj_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3079:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3081:/ getarg"); /*_.PARD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -14405,7 +14597,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3080:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3082:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -14415,13 +14607,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3081:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3083:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), (" ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3079:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3081:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -14513,7 +14705,7 @@ meltrout_81_warmelt_outobj_OUTPUCOD_OBJMULTIAPPLY (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3100:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3102:/ getarg"); /*_.OAPP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -14551,7 +14743,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3101:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3103:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14563,7 +14755,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJMULTIAPPLY */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:3101:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3103:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -14571,7 +14763,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3101:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3103:/ cond.else"); /*^block */ /*anyblock */ @@ -14585,7 +14777,7 @@ lab_endgetargs:; melt_assert_failed (("check oapp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3101) ? (3101) : __LINE__, __FUNCTION__); + (3103) ? (3103) : __LINE__, __FUNCTION__); ; } ; @@ -14600,7 +14792,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3101:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3103:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -14611,10 +14803,10 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3102:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3104:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:3103:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3105:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -14622,7 +14814,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3104:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3106:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 1, "OBDI_DESTLIST"); @@ -14630,7 +14822,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3105:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3107:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 2, "OBAPP_CLOS"); @@ -14638,7 +14830,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3106:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3108:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 3, "OBAPP_ARGS"); @@ -14646,7 +14838,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3107:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3109:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 4, "OBMULTAPP_XRES"); @@ -14682,7 +14874,7 @@ lab_endgetargs:; ( /*_#I__L5*/ meltfnum[4])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3114:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3116:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14696,7 +14888,7 @@ lab_endgetargs:; (melt_unsafe_magic_discr ((melt_ptr_t) ( /*_.OARGS__V11*/ meltfptr[10])) == MELTOBMAG_MULTIPLE));; - MELT_LOCATION ("warmelt-outobj.melt:3114:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3116:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE_OR_NULL__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -14704,7 +14896,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3114:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3116:/ cond.else"); /*^block */ /*anyblock */ @@ -14718,7 +14910,7 @@ lab_endgetargs:; melt_assert_failed (("check oargs"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3114) ? (3114) : __LINE__, __FUNCTION__); + (3116) ? (3116) : __LINE__, __FUNCTION__); ; } ; @@ -14733,7 +14925,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3114:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3116:/ clear"); /*clear *//*_#IS_MULTIPLE_OR_NULL__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -14746,7 +14938,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3115:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3117:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14760,7 +14952,7 @@ lab_endgetargs:; (melt_unsafe_magic_discr ((melt_ptr_t) ( /*_.OXRES__V12*/ meltfptr[11])) == MELTOBMAG_MULTIPLE));; - MELT_LOCATION ("warmelt-outobj.melt:3115:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3117:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE_OR_NULL__L7*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -14768,7 +14960,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3115:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3117:/ cond.else"); /*^block */ /*anyblock */ @@ -14782,7 +14974,7 @@ lab_endgetargs:; melt_assert_failed (("check oxres"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3115) ? (3115) : __LINE__, __FUNCTION__); + (3117) ? (3117) : __LINE__, __FUNCTION__); ; } ; @@ -14797,7 +14989,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3115:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3117:/ clear"); /*clear *//*_#IS_MULTIPLE_OR_NULL__L7*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; @@ -14808,7 +15000,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3116:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3118:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14832,7 +15024,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3117:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3119:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*multiapply ")); @@ -14840,14 +15032,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3118:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3120:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBARG__L3*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3119:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3121:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("args, ")); @@ -14855,14 +15047,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3120:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3122:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBXRES__L4*/ meltfnum[3])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3121:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3123:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("x.res*/ ")); @@ -14870,7 +15062,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3122:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3124:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{")); @@ -14880,17 +15072,17 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3123:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3125:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L8*/ meltfnum[5]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3124:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3126:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L9*/ meltfnum[8] = (( /*_#NBARG__L3*/ meltfnum[1]) > (1));; - MELT_LOCATION ("warmelt-outobj.melt:3124:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3126:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -14900,7 +15092,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3126:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3128:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -14911,7 +15103,7 @@ lab_endgetargs:; (( /*_#NBARG__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:3127:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3129:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L10*/ meltfnum[9])); @@ -14919,7 +15111,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3128:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3130:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("];")); @@ -14929,18 +15121,18 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3129:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3131:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L11*/ meltfnum[10]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3125:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3127:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3124:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3126:/ clear"); /*clear *//*_#I__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_#I__L11*/ meltfnum[10] = 0; @@ -14948,12 +15140,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3131:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3133:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L12*/ meltfnum[9] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3131:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3133:/ cond"); /*cond */ if ( /*_#I__L12*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -14965,7 +15157,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3133:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3135:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L13*/ meltfnum[10]), 0); @@ -14973,7 +15165,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3134:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3136:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -14982,7 +15174,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3135:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3137:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBXRES__L4*/ meltfnum[3])); @@ -14990,7 +15182,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3136:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3138:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("];")); @@ -15000,18 +15192,18 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3137:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3139:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L14*/ meltfnum[13]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3132:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3134:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3131:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3133:/ clear"); /*clear *//*_#I__L13*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_#I__L14*/ meltfnum[13] = 0; @@ -15019,12 +15211,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3139:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3141:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L15*/ meltfnum[10] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3139:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3141:/ cond"); /*cond */ if ( /*_#I__L15*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -15034,7 +15226,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3141:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3143:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15045,13 +15237,13 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3142:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3144:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L16*/ meltfnum[13]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3146:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3148:/ quasiblock"); /*^newclosure */ @@ -15080,7 +15272,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.RESDESCLIST__V14*/ meltfptr[13]); ; /*_.LAMBDA___V22*/ meltfptr[21] = /*_.LAMBDA___V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-outobj.melt:3144:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3146:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15099,7 +15291,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3140:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3142:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[24] = @@ -15109,7 +15301,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = /*_.PROGN___V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3139:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3141:/ clear"); /*clear *//*_#I__L16*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.LAMBDA___V22*/ meltfptr[21] = 0; @@ -15126,12 +15318,12 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3149:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3151:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L17*/ meltfnum[13] = (( /*_#NBARG__L3*/ meltfnum[1]) > (1));; - MELT_LOCATION ("warmelt-outobj.melt:3149:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3151:/ cond"); /*cond */ if ( /*_#I__L17*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -15141,7 +15333,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3151:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3153:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15152,7 +15344,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3152:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3154:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L18*/ meltfnum[17]), 0); @@ -15176,12 +15368,12 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:3157:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3159:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L20*/ meltfnum[19] = (( /*_#CURANK__L19*/ meltfnum[18]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3157:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3159:/ cond"); /*cond */ if ( /*_#I__L20*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -15189,7 +15381,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:3158:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3160:/ quasiblock"); /*^checksignal */ @@ -15213,7 +15405,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3159:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3161:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15226,7 +15418,7 @@ lab_endgetargs:; ( /*_.CURCTYP__V27*/ meltfptr[23]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-outobj.melt:3159:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3161:/ cond"); /*cond */ if ( /*_#IS_A__L21*/ meltfnum[20]) /*then */ { /*^cond.then */ @@ -15236,7 +15428,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:3159:/ cond.else"); + ("warmelt-outobj.melt:3161:/ cond.else"); /*^block */ /*anyblock */ @@ -15251,7 +15443,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3159) ? (3159) : + (3161) ? (3161) : __LINE__, __FUNCTION__); ; } @@ -15268,7 +15460,7 @@ lab_endgetargs:; /*_.IFELSE___V29*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3159:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3161:/ clear"); /*clear *//*_#IS_A__L21*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.IFELSE___V29*/ meltfptr[28] = 0; @@ -15286,7 +15478,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V15*/ meltfptr[14])));; MELT_LOCATION - ("warmelt-outobj.melt:3160:/ checksignal"); + ("warmelt-outobj.melt:3162:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15315,7 +15507,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3161:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3163:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15326,7 +15518,7 @@ lab_endgetargs:; (( /*_#CURANK__L19*/ meltfnum[18]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:3162:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3164:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15335,14 +15527,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3163:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3165:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("].")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3164:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3166:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V27*/ meltfptr[23]), 5, "CTYPE_PARSTRING"); @@ -15360,12 +15552,12 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:3166:/ checksignal"); + ("warmelt-outobj.melt:3168:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L24*/ meltfnum[23] = (( /*_.CURARG__V26*/ meltfptr[21]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:3166:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3168:/ cond"); /*cond */ if ( /*_#NULL__L24*/ meltfnum[23]) /*then */ { /*^cond.then */ @@ -15378,7 +15570,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3167:/ locexp"); + ("warmelt-outobj.melt:3169:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -15394,20 +15586,20 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:3166:/ cond.else"); + ("warmelt-outobj.melt:3168:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:3168:/ checksignal"); + ("warmelt-outobj.melt:3170:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L25*/ meltfnum[24] = (( /*_.CURCTYP__V27*/ meltfptr[23]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[9])));; - MELT_LOCATION ("warmelt-outobj.melt:3168:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3170:/ cond"); /*cond */ if ( /*_#__L25*/ meltfnum[24]) /*then */ { /*^cond.then */ @@ -15418,7 +15610,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3169:/ locexp"); + ("warmelt-outobj.melt:3171:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -15432,7 +15624,7 @@ lab_endgetargs:; ( /*_.BOXDEPTHP1__V15*/ meltfptr[14])));; MELT_LOCATION - ("warmelt-outobj.melt:3170:/ checksignal"); + ("warmelt-outobj.melt:3172:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -15459,7 +15651,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:3168:/ quasiblock"); + ("warmelt-outobj.melt:3170:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[34] = @@ -15471,7 +15663,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3168:/ clear"); + ("warmelt-outobj.melt:3170:/ clear"); /*clear *//*_#GET_INT__L26*/ meltfnum[25] = 0; /*^clear */ @@ -15491,7 +15683,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3173:/ getslot"); + ("warmelt-outobj.melt:3175:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V27*/ meltfptr[23]), 6, "CTYPE_ARGFIELD"); @@ -15512,7 +15704,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3174:/ locexp"); + ("warmelt-outobj.melt:3176:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -15526,7 +15718,7 @@ lab_endgetargs:; ( /*_.BOXDEPTHP1__V15*/ meltfptr[14])));; MELT_LOCATION - ("warmelt-outobj.melt:3175:/ checksignal"); + ("warmelt-outobj.melt:3177:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -15553,7 +15745,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:3172:/ quasiblock"); + ("warmelt-outobj.melt:3174:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[37] = @@ -15565,7 +15757,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3168:/ clear"); + ("warmelt-outobj.melt:3170:/ clear"); /*clear *//*_.CTYPE_ARGFIELD__V36*/ meltfptr[33] = 0; /*^clear */ @@ -15586,7 +15778,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3166:/ clear"); + ("warmelt-outobj.melt:3168:/ clear"); /*clear *//*_#__L25*/ meltfnum[24] = 0; /*^clear */ /*clear *//*_.IFELSE___V33*/ meltfptr[32] = 0; @@ -15596,7 +15788,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3177:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3179:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15604,7 +15796,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:3158:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3160:/ clear"); /*clear *//*_.CURCTYP__V27*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.IFCPP___V28*/ meltfptr[24] = 0; @@ -15627,7 +15819,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3179:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3181:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15639,7 +15831,7 @@ lab_endgetargs:; melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3180:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3182:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -15674,7 +15866,7 @@ lab_endgetargs:; /*_#I__L30*/ meltfnum[20] = (( /*_#STRBUF_USEDLENGTH__L28*/ meltfnum[25]) < ( /*_#GET_INT__L29*/ meltfnum[24]));; - MELT_LOCATION ("warmelt-outobj.melt:3179:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3181:/ cond"); /*cond */ if ( /*_#I__L30*/ meltfnum[20]) /*then */ { /*^cond.then */ @@ -15682,7 +15874,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3179:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3181:/ cond.else"); /*^block */ /*anyblock */ @@ -15697,7 +15889,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3179) ? (3179) : __LINE__, + (3181) ? (3181) : __LINE__, __FUNCTION__); ; } @@ -15714,7 +15906,7 @@ lab_endgetargs:; /*_.IFELSE___V41*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3179:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3181:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L28*/ meltfnum[25] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V40*/ meltfptr[34] = 0; @@ -15737,7 +15929,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:3154:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3156:/ clear"); /*clear *//*_.CURARG__V26*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_#CURANK__L19*/ meltfnum[18] = 0; @@ -15752,18 +15944,18 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V15*/ meltfptr[14])));; { - MELT_LOCATION ("warmelt-outobj.melt:3182:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3184:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L31*/ meltfnum[22]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3150:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3152:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3149:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3151:/ clear"); /*clear *//*_#I__L18*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_#GET_INT__L31*/ meltfnum[22] = 0; @@ -15771,12 +15963,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3185:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3187:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L32*/ meltfnum[23] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3185:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3187:/ cond"); /*cond */ if ( /*_#I__L32*/ meltfnum[23]) /*then */ { /*^cond.then */ @@ -15784,7 +15976,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:3189:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3191:/ quasiblock"); /*^newclosure */ @@ -15858,7 +16050,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]); ; /*_.LAMBDA___V43*/ meltfptr[23] = /*_.LAMBDA___V44*/ meltfptr[24];; - MELT_LOCATION ("warmelt-outobj.melt:3187:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3189:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15877,7 +16069,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3186:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3188:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[30] = @@ -15887,7 +16079,7 @@ lab_endgetargs:; /*_.IF___V42*/ meltfptr[32] = /*_.PROGN___V46*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3185:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3187:/ clear"); /*clear *//*_.LAMBDA___V43*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.MULTIPLE_EVERY__V45*/ meltfptr[28] = 0; @@ -15906,7 +16098,7 @@ lab_endgetargs:; /*_#GET_INT__L33*/ meltfnum[25] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V15*/ meltfptr[14])));; - MELT_LOCATION ("warmelt-outobj.melt:3213:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3215:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15928,7 +16120,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3217:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3219:/ quasiblock"); /*^newclosure */ @@ -15979,7 +16171,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BOXDEPTHP1__V15*/ meltfptr[14]); ; /*_.LAMBDA___V48*/ meltfptr[34] = /*_.LAMBDA___V49*/ meltfptr[37];; - MELT_LOCATION ("warmelt-outobj.melt:3215:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3217:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16000,7 +16192,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3221:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3223:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_apply ((meltclosure_ptr_t)(")); @@ -16008,7 +16200,7 @@ lab_endgetargs:; ; /*_#I__L34*/ meltfnum[24] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:3222:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3224:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -16032,13 +16224,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3223:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3225:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3225:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3227:/ quasiblock"); /*_.FIRSTARG__V53*/ meltfptr[52] = @@ -16048,7 +16240,7 @@ lab_endgetargs:; /*_#I__L35*/ meltfnum[20] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:3226:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3228:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -16072,7 +16264,7 @@ lab_endgetargs:; ; /*_.LET___V52*/ meltfptr[30] = /*_.OUTPUT_C_CODE__V54*/ meltfptr[53];; - MELT_LOCATION ("warmelt-outobj.melt:3225:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3227:/ clear"); /*clear *//*_.FIRSTARG__V53*/ meltfptr[52] = 0; /*^clear */ /*clear *//*_#I__L35*/ meltfnum[20] = 0; @@ -16080,13 +16272,13 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V54*/ meltfptr[53] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:3228:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3230:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3232:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3234:/ quasiblock"); /*^newclosure */ @@ -16111,7 +16303,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V55*/ meltfptr[52] = /*_.LAMBDA___V56*/ meltfptr[53];; - MELT_LOCATION ("warmelt-outobj.melt:3230:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3232:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16132,18 +16324,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3235:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3237:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\"\"), ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3237:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3239:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L36*/ meltfnum[17] = (( /*_#NBARG__L3*/ meltfnum[1]) > (1));; - MELT_LOCATION ("warmelt-outobj.melt:3237:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3239:/ cond"); /*cond */ if ( /*_#I__L36*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -16153,7 +16345,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3238:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3240:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -16166,7 +16358,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3237:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3239:/ cond.else"); /*^block */ /*anyblock */ @@ -16174,7 +16366,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3239:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3241:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -16186,7 +16378,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:3243:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3245:/ quasiblock"); /*^newclosure */ @@ -16211,7 +16403,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V58*/ meltfptr[57] = /*_.LAMBDA___V59*/ meltfptr[58];; - MELT_LOCATION ("warmelt-outobj.melt:3241:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3243:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16232,18 +16424,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3246:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3248:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\"\"), ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3248:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3250:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L37*/ meltfnum[22] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3248:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3250:/ cond"); /*cond */ if ( /*_#I__L37*/ meltfnum[22]) /*then */ { /*^cond.then */ @@ -16253,7 +16445,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3249:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3251:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -16266,7 +16458,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3248:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3250:/ cond.else"); /*^block */ /*anyblock */ @@ -16274,7 +16466,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3250:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3252:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -16288,7 +16480,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3251:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3253:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -16298,14 +16490,14 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3252:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3254:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L38*/ meltfnum[20]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3253:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3255:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -16313,14 +16505,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3254:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3256:/ 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:3255:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3257:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16331,7 +16523,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L39*/ meltfnum[38] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3256:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3258:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -16366,7 +16558,7 @@ lab_endgetargs:; /*_#I__L41*/ meltfnum[40] = (( /*_#STRBUF_USEDLENGTH__L39*/ meltfnum[38]) < ( /*_#GET_INT__L40*/ meltfnum[39]));; - MELT_LOCATION ("warmelt-outobj.melt:3255:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3257:/ cond"); /*cond */ if ( /*_#I__L41*/ meltfnum[40]) /*then */ { /*^cond.then */ @@ -16374,7 +16566,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3255:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3257:/ cond.else"); /*^block */ /*anyblock */ @@ -16388,7 +16580,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3255) ? (3255) : __LINE__, __FUNCTION__); + (3257) ? (3257) : __LINE__, __FUNCTION__); ; } ; @@ -16403,7 +16595,7 @@ lab_endgetargs:; /*_.IFCPP___V61*/ meltfptr[60] = /*_.IFELSE___V63*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3255:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3257:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L39*/ meltfnum[38] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V62*/ meltfptr[61] = 0; @@ -16424,7 +16616,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V61*/ meltfptr[60];; - MELT_LOCATION ("warmelt-outobj.melt:3102:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3104:/ clear"); /*clear *//*_.ALOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ADEST__V9*/ meltfptr[8] = 0; @@ -16498,14 +16690,26 @@ lab_endgetargs:; /*clear *//*_#I__L38*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.IFCPP___V61*/ meltfptr[60] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3100:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3102:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:3100:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:3102:/ 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 */ @@ -16599,7 +16803,7 @@ meltrout_82_warmelt_outobj_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3146:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3148:/ getarg"); /*_.CURES__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -16615,7 +16819,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:3147:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3149:/ quasiblock"); /*^checksignal */ @@ -16635,7 +16839,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3148:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3150:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V3*/ meltfptr[2]), 5, "CTYPE_PARSTRING"); @@ -16653,7 +16857,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:3147:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3149:/ clear"); /*clear *//*_.CURCTYP__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_.CTYPE_PARSTRING__V4*/ meltfptr[3] = 0; @@ -16743,7 +16947,7 @@ meltrout_83_warmelt_outobj_LAMBDA___15__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3189:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3191:/ getarg"); /*_.CURES__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -16759,7 +16963,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:3190:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3192:/ quasiblock"); /*^checksignal */ @@ -16781,7 +16985,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3191:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3193:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16793,7 +16997,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CURESTYP__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:3191:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3193:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16801,7 +17005,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3191:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3193:/ cond.else"); /*^block */ /*anyblock */ @@ -16815,7 +17019,7 @@ lab_endgetargs:; melt_assert_failed (("check curestyp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3191) ? (3191) : __LINE__, __FUNCTION__); + (3193) ? (3193) : __LINE__, __FUNCTION__); ; } ; @@ -16830,7 +17034,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3191:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3193:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; @@ -16846,7 +17050,7 @@ lab_endgetargs:; /*_#GET_INT__L3*/ meltfnum[1] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3192:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3194:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16871,7 +17075,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3193:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3195:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), @@ -16880,7 +17084,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3194:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3196:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), ( /*_#CURANK__L1*/ meltfnum[0])); @@ -16888,18 +17092,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3195:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3197:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), ("].")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3197:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3199:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L4*/ meltfnum[3] = (( /*_.CURES__V2*/ meltfptr[1]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:3197:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3199:/ cond"); /*cond */ if ( /*_#NULL__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -16911,7 +17115,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3198:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3200:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), @@ -16925,19 +17129,19 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3197:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3199:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:3199:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3201:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L5*/ meltfnum[4] = (( /*_.CURESTYP__V3*/ meltfptr[2]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:3199:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3201:/ cond"); /*cond */ if ( /*_#__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -16947,7 +17151,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3200:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3202:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> @@ -16959,7 +17163,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3201:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3203:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -16984,7 +17188,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3199:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3201:/ quasiblock"); /*_.PROGN___V10*/ meltfptr[9] = @@ -16995,7 +17199,7 @@ lab_endgetargs:; /*_.PROGN___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3199:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3201:/ clear"); /*clear *//*_#GET_INT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V9*/ meltfptr[8] = 0; @@ -17011,7 +17215,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:3204:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3206:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURESTYP__V3*/ meltfptr[2]), 7, "CTYPE_RESFIELD"); @@ -17032,7 +17236,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3205:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3207:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> @@ -17043,7 +17247,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3206:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3208:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -17068,7 +17272,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3203:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3205:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[12] = @@ -17079,7 +17283,7 @@ lab_endgetargs:; /*_.PROGN___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3199:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3201:/ clear"); /*clear *//*_.CTYPE_RESFIELD__V11*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_#GET_INT__L7*/ meltfnum[5] = 0; @@ -17094,7 +17298,7 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3197:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3199:/ clear"); /*clear *//*_#__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -17104,7 +17308,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3208:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3210:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (";")); @@ -17115,14 +17319,14 @@ lab_endgetargs:; ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; { - MELT_LOCATION ("warmelt-outobj.melt:3209:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3211:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), ( /*_#GET_INT__L8*/ meltfnum[5]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3190:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3192:/ clear"); /*clear *//*_.CURESTYP__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_.IFCPP___V4*/ meltfptr[3] = 0; @@ -17222,7 +17426,7 @@ meltrout_84_warmelt_outobj_LAMBDA___16__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3217:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3219:/ getarg"); /*_.CURDEST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -17235,7 +17439,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3218:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3220:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -17261,13 +17465,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3219:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3221:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (" = ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3217:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3219:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -17361,7 +17565,7 @@ meltrout_85_warmelt_outobj_LAMBDA___17__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3232:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3234:/ getarg"); /*_.PARD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -17373,7 +17577,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3233:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3235:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -17383,13 +17587,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3234:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3236:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), (" ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3232:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3234:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -17478,7 +17682,7 @@ meltrout_86_warmelt_outobj_LAMBDA___18__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3243:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3245:/ getarg"); /*_.RESD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -17490,7 +17694,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3244:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3246:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -17500,13 +17704,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3245:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3247:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), (" ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3243:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3245:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -17598,7 +17802,7 @@ meltrout_87_warmelt_outobj_OUTPUCOD_OBJMULTIMSEND (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3265:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3267:/ getarg"); /*_.OMSND__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -17636,7 +17840,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3266:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3268:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17648,7 +17852,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OMSND__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJMULTIMSEND */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:3266:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3268:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -17656,7 +17860,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3266:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3268:/ cond.else"); /*^block */ /*anyblock */ @@ -17670,7 +17874,7 @@ lab_endgetargs:; melt_assert_failed (("check omsnd"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3266) ? (3266) : __LINE__, __FUNCTION__); + (3268) ? (3268) : __LINE__, __FUNCTION__); ; } ; @@ -17685,7 +17889,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3266:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3268:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -17696,7 +17900,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3267:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3269:/ quasiblock"); /*^getslot */ @@ -17707,7 +17911,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3268:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3270:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSND__V2*/ meltfptr[1]), 1, "OBDI_DESTLIST"); @@ -17715,7 +17919,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3269:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3271:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSND__V2*/ meltfptr[1]), 2, "OBMSND_SEL"); @@ -17723,7 +17927,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3270:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3272:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSND__V2*/ meltfptr[1]), 3, "OBMSND_RECV"); @@ -17731,7 +17935,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3271:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3273:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSND__V2*/ meltfptr[1]), 4, "OBMSND_ARGS"); @@ -17739,7 +17943,7 @@ lab_endgetargs:; meltfptr[11] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3272:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3274:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSND__V2*/ meltfptr[1]), 5, "OBMULTSND_XRES"); @@ -17773,7 +17977,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[2])), ( /*_#I__L5*/ meltfnum[4])));; - MELT_LOCATION ("warmelt-outobj.melt:3279:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3281:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17797,7 +18001,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3280:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3282:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*multimsend*/{")); @@ -17807,17 +18011,17 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3281:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3283:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L6*/ meltfnum[5]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3282:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3284:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L7*/ meltfnum[6] = (( /*_#NBARG__L3*/ meltfnum[1]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3282:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3284:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -17827,7 +18031,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3284:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3286:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17836,7 +18040,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3285:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3287:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBARG__L3*/ meltfnum[1])); @@ -17844,7 +18048,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3286:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3288:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("];")); @@ -17854,29 +18058,29 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3287:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3289:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L8*/ meltfnum[7]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3283:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3285:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3282:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3284:/ clear"); /*clear *//*_#I__L8*/ meltfnum[7] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3289:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3291:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L9*/ meltfnum[7] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3289:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3291:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -17886,7 +18090,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3291:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3293:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17895,7 +18099,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3292:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3294:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBXRES__L4*/ meltfnum[3])); @@ -17903,7 +18107,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3293:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3295:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("];")); @@ -17913,13 +18117,13 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3294:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3296:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L10*/ meltfnum[9]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3298:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3300:/ quasiblock"); /*^newclosure */ @@ -17948,7 +18152,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.RESDESCLIST__V15*/ meltfptr[14]); ; /*_.LAMBDA___V19*/ meltfptr[18] = /*_.LAMBDA___V20*/ meltfptr[19];; - MELT_LOCATION ("warmelt-outobj.melt:3296:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3298:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17967,7 +18171,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3290:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3292:/ quasiblock"); /*_.PROGN___V22*/ meltfptr[21] = @@ -17977,7 +18181,7 @@ lab_endgetargs:; /*_.IF___V18*/ meltfptr[17] = /*_.PROGN___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3289:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3291:/ clear"); /*clear *//*_#I__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.LAMBDA___V19*/ meltfptr[18] = 0; @@ -17994,12 +18198,12 @@ lab_endgetargs:; /*_.IF___V18*/ meltfptr[17] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3302:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3304:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L11*/ meltfnum[9] = (( /*_#NBARG__L3*/ meltfnum[1]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3302:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3304:/ cond"); /*cond */ if ( /*_#I__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -18009,7 +18213,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3304:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3306:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18020,29 +18224,29 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3305:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3307:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L12*/ meltfnum[11]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3303:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3305:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3302:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3304:/ clear"); /*clear *//*_#I__L12*/ meltfnum[11] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3306:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3308:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L13*/ meltfnum[11] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3306:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3308:/ cond"); /*cond */ if ( /*_#I__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -18052,7 +18256,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3308:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3310:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18063,29 +18267,29 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3309:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3311:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L14*/ meltfnum[13]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3307:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3309:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3306:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3308:/ clear"); /*clear *//*_#I__L14*/ meltfnum[13] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3311:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3313:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L15*/ meltfnum[13] = (( /*_#NBARG__L3*/ meltfnum[1]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3311:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3313:/ cond"); /*cond */ if ( /*_#I__L15*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -18111,7 +18315,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:3317:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3319:/ quasiblock"); /*^checksignal */ @@ -18135,7 +18339,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3318:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3320:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18149,7 +18353,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[8])));; - MELT_LOCATION ("warmelt-outobj.melt:3318:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3320:/ cond"); /*cond */ if ( /*_#IS_A__L17*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -18157,7 +18361,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3318:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3320:/ cond.else"); /*^block */ /*anyblock */ @@ -18172,7 +18376,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3318) ? (3318) : __LINE__, + (3320) ? (3320) : __LINE__, __FUNCTION__); ; } @@ -18189,7 +18393,7 @@ lab_endgetargs:; /*_.IFELSE___V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3318:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3320:/ clear"); /*clear *//*_#IS_A__L17*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.IFELSE___V26*/ meltfptr[25] = 0; @@ -18205,7 +18409,7 @@ lab_endgetargs:; /*_#GET_INT__L18*/ meltfnum[16] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-outobj.melt:3319:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3321:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18232,7 +18436,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3320:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3322:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18241,7 +18445,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3321:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3323:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#CURANK__L16*/ meltfnum[15])); @@ -18249,14 +18453,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3322:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3324:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("].")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3323:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3325:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V24*/ meltfptr[20]), 5, "CTYPE_PARSTRING"); @@ -18273,12 +18477,12 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.CTYPE_PARSTRING__V28*/ meltfptr[27])); } ; - MELT_LOCATION ("warmelt-outobj.melt:3325:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3327:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L19*/ meltfnum[18] = (( /*_.CURARG__V23*/ meltfptr[18]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:3325:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3327:/ cond"); /*cond */ if ( /*_#NULL__L19*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -18290,7 +18494,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3326:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3328:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18304,20 +18508,20 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3325:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3327:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:3327:/ checksignal"); + ("warmelt-outobj.melt:3329:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L20*/ meltfnum[19] = (( /*_.CURCTYP__V24*/ meltfptr[20]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[9])));; - MELT_LOCATION ("warmelt-outobj.melt:3327:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3329:/ cond"); /*cond */ if ( /*_#__L20*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -18328,7 +18532,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3328:/ locexp"); + ("warmelt-outobj.melt:3330:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -18341,7 +18545,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V16*/ meltfptr[15])));; MELT_LOCATION - ("warmelt-outobj.melt:3329:/ checksignal"); + ("warmelt-outobj.melt:3331:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -18368,7 +18572,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:3327:/ quasiblock"); + ("warmelt-outobj.melt:3329:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[31] = @@ -18380,7 +18584,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3327:/ clear"); + ("warmelt-outobj.melt:3329:/ clear"); /*clear *//*_#GET_INT__L21*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V31*/ meltfptr[30] = @@ -18398,7 +18602,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3332:/ getslot"); + ("warmelt-outobj.melt:3334:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V24*/ meltfptr[20]), 6, "CTYPE_ARGFIELD"); @@ -18419,7 +18623,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3333:/ locexp"); + ("warmelt-outobj.melt:3335:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -18431,7 +18635,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V16*/ meltfptr[15])));; MELT_LOCATION - ("warmelt-outobj.melt:3334:/ checksignal"); + ("warmelt-outobj.melt:3336:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -18458,7 +18662,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:3331:/ quasiblock"); + ("warmelt-outobj.melt:3333:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[34] = @@ -18470,7 +18674,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3327:/ clear"); + ("warmelt-outobj.melt:3329:/ clear"); /*clear *//*_.CTYPE_ARGFIELD__V33*/ meltfptr[30] = 0; /*^clear */ @@ -18488,7 +18692,7 @@ lab_endgetargs:; /*_.IFELSE___V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3325:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3327:/ clear"); /*clear *//*_#__L20*/ meltfnum[19] = 0; /*^clear */ /*clear *//*_.IFELSE___V30*/ meltfptr[29] = 0; @@ -18498,7 +18702,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3336:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3338:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18506,7 +18710,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:3317:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3319:/ clear"); /*clear *//*_.CURCTYP__V24*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.IFCPP___V25*/ meltfptr[21] = 0; @@ -18522,7 +18726,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V29*/ meltfptr[28] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3338:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3340:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18534,7 +18738,7 @@ lab_endgetargs:; melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3339:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3341:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -18569,7 +18773,7 @@ lab_endgetargs:; /*_#I__L25*/ meltfnum[16] = (( /*_#STRBUF_USEDLENGTH__L23*/ meltfnum[20]) < ( /*_#GET_INT__L24*/ meltfnum[19]));; - MELT_LOCATION ("warmelt-outobj.melt:3338:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3340:/ cond"); /*cond */ if ( /*_#I__L25*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -18577,7 +18781,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3338:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3340:/ cond.else"); /*^block */ /*anyblock */ @@ -18592,7 +18796,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3338) ? (3338) : __LINE__, + (3340) ? (3340) : __LINE__, __FUNCTION__); ; } @@ -18609,7 +18813,7 @@ lab_endgetargs:; /*_.IFELSE___V38*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3338:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3340:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L23*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V37*/ meltfptr[31] = 0; @@ -18632,7 +18836,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:3314:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3316:/ clear"); /*clear *//*_.CURARG__V23*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_#CURANK__L16*/ meltfnum[15] = 0; @@ -18645,29 +18849,29 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V16*/ meltfptr[15])));; { - MELT_LOCATION ("warmelt-outobj.melt:3341:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3343:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L26*/ meltfnum[18]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3312:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3314:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3311:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3313:/ clear"); /*clear *//*_#GET_INT__L26*/ meltfnum[18] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3344:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3346:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L27*/ meltfnum[20] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3344:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3346:/ cond"); /*cond */ if ( /*_#I__L27*/ meltfnum[20]) /*then */ { /*^cond.then */ @@ -18675,7 +18879,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:3348:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3350:/ quasiblock"); /*^newclosure */ @@ -18749,7 +18953,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]); ; /*_.LAMBDA___V40*/ meltfptr[20] = /*_.LAMBDA___V41*/ meltfptr[21];; - MELT_LOCATION ("warmelt-outobj.melt:3346:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3348:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18768,7 +18972,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3345:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3347:/ quasiblock"); /*_.PROGN___V43*/ meltfptr[27] = @@ -18778,7 +18982,7 @@ lab_endgetargs:; /*_.IF___V39*/ meltfptr[29] = /*_.PROGN___V43*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3344:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3346:/ clear"); /*clear *//*_.LAMBDA___V40*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.MULTIPLE_EVERY__V42*/ meltfptr[25] = 0; @@ -18797,7 +19001,7 @@ lab_endgetargs:; /*_#GET_INT__L28*/ meltfnum[19] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-outobj.melt:3372:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3374:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18819,7 +19023,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3376:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3378:/ quasiblock"); /*^newclosure */ @@ -18870,7 +19074,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BOXDEPTHP1__V16*/ meltfptr[15]); ; /*_.LAMBDA___V45*/ meltfptr[31] = /*_.LAMBDA___V46*/ meltfptr[34];; - MELT_LOCATION ("warmelt-outobj.melt:3374:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3376:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18891,7 +19095,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3380:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3382:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" meltgc_send ((melt_ptr_t)(")); @@ -18899,7 +19103,7 @@ lab_endgetargs:; ; /*_#I__L29*/ meltfnum[16] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:3381:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3383:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -18923,7 +19127,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3382:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3384:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), ((melt_ptr_t)(")); @@ -18931,7 +19135,7 @@ lab_endgetargs:; ; /*_#I__L30*/ meltfnum[18] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:3384:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3386:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -18955,13 +19159,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3385:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3387:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")), (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3389:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3391:/ quasiblock"); /*^newclosure */ @@ -18986,7 +19190,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V50*/ meltfptr[49] = /*_.LAMBDA___V51*/ meltfptr[50];; - MELT_LOCATION ("warmelt-outobj.melt:3387:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3389:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19007,18 +19211,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3392:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3394:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\"\"), ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3394:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3396:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L31*/ meltfnum[30] = (( /*_#NBARG__L3*/ meltfnum[1]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3394:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3396:/ cond"); /*cond */ if ( /*_#I__L31*/ meltfnum[30]) /*then */ { /*^cond.then */ @@ -19028,7 +19232,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3395:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3397:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19041,7 +19245,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3394:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3396:/ cond.else"); /*^block */ /*anyblock */ @@ -19049,7 +19253,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3396:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3398:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19061,7 +19265,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:3400:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3402:/ quasiblock"); /*^newclosure */ @@ -19086,7 +19290,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V53*/ meltfptr[52] = /*_.LAMBDA___V54*/ meltfptr[53];; - MELT_LOCATION ("warmelt-outobj.melt:3398:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3400:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19107,18 +19311,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3403:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3405:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\"\"), ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3405:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3407:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L32*/ meltfnum[31] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3405:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3407:/ cond"); /*cond */ if ( /*_#I__L32*/ meltfnum[31]) /*then */ { /*^cond.then */ @@ -19128,7 +19332,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3406:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3408:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19141,7 +19345,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3405:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3407:/ cond.else"); /*^block */ /*anyblock */ @@ -19149,7 +19353,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3407:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3409:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19163,7 +19367,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3408:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3410:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -19173,14 +19377,14 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3409:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3411:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L33*/ meltfnum[32]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3410:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3412:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -19188,14 +19392,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3411:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3413:/ 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:3412:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3414:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19206,7 +19410,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L34*/ meltfnum[33] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3413:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3415:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -19241,7 +19445,7 @@ lab_endgetargs:; /*_#I__L36*/ meltfnum[35] = (( /*_#STRBUF_USEDLENGTH__L34*/ meltfnum[33]) < ( /*_#GET_INT__L35*/ meltfnum[34]));; - MELT_LOCATION ("warmelt-outobj.melt:3412:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3414:/ cond"); /*cond */ if ( /*_#I__L36*/ meltfnum[35]) /*then */ { /*^cond.then */ @@ -19249,7 +19453,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3412:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3414:/ cond.else"); /*^block */ /*anyblock */ @@ -19263,7 +19467,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3412) ? (3412) : __LINE__, __FUNCTION__); + (3414) ? (3414) : __LINE__, __FUNCTION__); ; } ; @@ -19278,7 +19482,7 @@ lab_endgetargs:; /*_.IFCPP___V56*/ meltfptr[55] = /*_.IFELSE___V58*/ meltfptr[57];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3412:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3414:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L34*/ meltfnum[33] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V57*/ meltfptr[56] = 0; @@ -19299,7 +19503,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V56*/ meltfptr[55];; - MELT_LOCATION ("warmelt-outobj.melt:3267:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3269:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ODEST__V9*/ meltfptr[8] = 0; @@ -19375,14 +19579,26 @@ lab_endgetargs:; /*clear *//*_#I__L33*/ meltfnum[32] = 0; /*^clear */ /*clear *//*_.IFCPP___V56*/ meltfptr[55] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3265:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3267:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:3265:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:3267:/ 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 */ @@ -19476,7 +19692,7 @@ meltrout_88_warmelt_outobj_LAMBDA___19__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3298:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3300:/ getarg"); /*_.CURES__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -19492,7 +19708,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:3299:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3301:/ quasiblock"); /*^checksignal */ @@ -19512,7 +19728,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3300:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3302:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURESTYP__V3*/ meltfptr[2]), 5, "CTYPE_PARSTRING"); @@ -19530,7 +19746,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:3299:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3301:/ clear"); /*clear *//*_.CURESTYP__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_.CTYPE_PARSTRING__V4*/ meltfptr[3] = 0; @@ -19620,7 +19836,7 @@ meltrout_89_warmelt_outobj_LAMBDA___20__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3348:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3350:/ getarg"); /*_.CURES__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -19636,7 +19852,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:3349:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3351:/ quasiblock"); /*^checksignal */ @@ -19658,7 +19874,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3350:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3352:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19670,7 +19886,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CURESTYP__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:3350:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3352:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19678,7 +19894,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3350:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3352:/ cond.else"); /*^block */ /*anyblock */ @@ -19692,7 +19908,7 @@ lab_endgetargs:; melt_assert_failed (("check curestyp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3350) ? (3350) : __LINE__, __FUNCTION__); + (3352) ? (3352) : __LINE__, __FUNCTION__); ; } ; @@ -19707,7 +19923,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3350:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3352:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; @@ -19723,7 +19939,7 @@ lab_endgetargs:; /*_#GET_INT__L3*/ meltfnum[1] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3351:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3353:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19748,7 +19964,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3352:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3354:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), @@ -19757,7 +19973,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3353:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3355:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), ( /*_#CURANK__L1*/ meltfnum[0])); @@ -19765,18 +19981,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3354:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3356:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), ("].")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3356:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3358:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L4*/ meltfnum[3] = (( /*_.CURES__V2*/ meltfptr[1]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:3356:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3358:/ cond"); /*cond */ if ( /*_#NULL__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -19788,7 +20004,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3357:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3359:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), @@ -19802,19 +20018,19 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3356:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3358:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:3359:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3361:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L5*/ meltfnum[4] = (( /*_.CURESTYP__V3*/ meltfptr[2]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:3359:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3361:/ cond"); /*cond */ if ( /*_#__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -19824,7 +20040,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3360:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3362:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> @@ -19836,7 +20052,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3361:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3363:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -19861,7 +20077,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3359:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3361:/ quasiblock"); /*_.PROGN___V10*/ meltfptr[9] = @@ -19872,7 +20088,7 @@ lab_endgetargs:; /*_.PROGN___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3359:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3361:/ clear"); /*clear *//*_#GET_INT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V9*/ meltfptr[8] = 0; @@ -19888,7 +20104,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:3364:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3366:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURESTYP__V3*/ meltfptr[2]), 7, "CTYPE_RESFIELD"); @@ -19909,7 +20125,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3365:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3367:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> @@ -19920,7 +20136,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3366:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3368:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -19945,7 +20161,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3363:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3365:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[12] = @@ -19956,7 +20172,7 @@ lab_endgetargs:; /*_.PROGN___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3359:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3361:/ clear"); /*clear *//*_.CTYPE_RESFIELD__V11*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_#GET_INT__L7*/ meltfnum[5] = 0; @@ -19971,7 +20187,7 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3356:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3358:/ clear"); /*clear *//*_#__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -19981,14 +20197,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3368:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3370:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (";")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3349:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3351:/ clear"); /*clear *//*_.CURESTYP__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_.IFCPP___V4*/ meltfptr[3] = 0; @@ -20086,7 +20302,7 @@ meltrout_90_warmelt_outobj_LAMBDA___21__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3376:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3378:/ getarg"); /*_.CURDEST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -20099,7 +20315,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3377:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3379:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -20125,13 +20341,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3378:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3380:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (" = ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3376:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3378:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -20225,7 +20441,7 @@ meltrout_91_warmelt_outobj_LAMBDA___22__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3389:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3391:/ getarg"); /*_.PARD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -20237,7 +20453,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3390:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3392:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -20247,13 +20463,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3391:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3393:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), (" ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3389:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3391:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -20342,7 +20558,7 @@ meltrout_92_warmelt_outobj_LAMBDA___23__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3400:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3402:/ getarg"); /*_.RESD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -20354,7 +20570,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3401:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3403:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -20364,13 +20580,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3402:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3404:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), (" ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3400:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3402:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -20461,7 +20677,7 @@ meltrout_93_warmelt_outobj_OUTPUCOD_OBJCLEAR (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3420:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3422:/ getarg"); /*_.OCLEAR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -20499,7 +20715,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3421:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3423:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20511,7 +20727,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OCLEAR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCLEAR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:3421:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3423:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20519,7 +20735,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3421:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3423:/ cond.else"); /*^block */ /*anyblock */ @@ -20533,7 +20749,7 @@ lab_endgetargs:; melt_assert_failed (("check oclear"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3421) ? (3421) : __LINE__, __FUNCTION__); + (3423) ? (3423) : __LINE__, __FUNCTION__); ; } ; @@ -20548,7 +20764,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3421:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3423:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -20559,7 +20775,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3422:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3424:/ quasiblock"); /*^getslot */ @@ -20570,7 +20786,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3423:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3425:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCLEAR__V2*/ meltfptr[1]), 1, "OCLR_VLOC"); @@ -20578,7 +20794,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3425:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3427:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20602,7 +20818,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3426:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3428:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*clear*/ ")); @@ -20610,7 +20826,7 @@ lab_endgetargs:; ; /*_#I__L3*/ meltfnum[1] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:3427:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3429:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -20634,7 +20850,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3428:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3430:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = 0 ")); @@ -20642,7 +20858,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3429:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3431:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20653,7 +20869,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3430:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3432:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20688,7 +20904,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:3429:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3431:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -20696,7 +20912,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3429:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3431:/ cond.else"); /*^block */ /*anyblock */ @@ -20710,7 +20926,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3429) ? (3429) : __LINE__, __FUNCTION__); + (3431) ? (3431) : __LINE__, __FUNCTION__); ; } ; @@ -20725,7 +20941,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3429:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3431:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V13*/ meltfptr[12] = 0; @@ -20746,7 +20962,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V12*/ meltfptr[11];; - MELT_LOCATION ("warmelt-outobj.melt:3422:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3424:/ clear"); /*clear *//*_.CLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.CVL__V9*/ meltfptr[8] = 0; @@ -20758,14 +20974,26 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.IFCPP___V12*/ meltfptr[11] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3420:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3422:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:3420:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:3422:/ 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 */ @@ -20862,7 +21090,7 @@ meltrout_94_warmelt_outobj_OUTPUCOD_OBJRAWALLOCOBJ (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3436:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3438:/ getarg"); /*_.ORALOB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -20900,7 +21128,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3437:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3439:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20912,7 +21140,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ORALOB__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJRAWALLOCOBJ */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:3437:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3439:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20920,7 +21148,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3437:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3439:/ cond.else"); /*^block */ /*anyblock */ @@ -20934,7 +21162,7 @@ lab_endgetargs:; melt_assert_failed (("check oralob"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3437) ? (3437) : __LINE__, __FUNCTION__); + (3439) ? (3439) : __LINE__, __FUNCTION__); ; } ; @@ -20949,7 +21177,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3437:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3439:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -20960,7 +21188,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3438:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3440:/ quasiblock"); /*^getslot */ @@ -20971,7 +21199,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3439:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3441:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ORALOB__V2*/ meltfptr[1]), 2, "OBRALLOBJ_CLASS"); @@ -20979,7 +21207,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3440:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3442:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ORALOB__V2*/ meltfptr[1]), 4, "OBRALLOBJ_CLASSNAME"); @@ -20987,7 +21215,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3441:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3443:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ORALOB__V2*/ meltfptr[1]), 3, "OBRALLOBJ_LEN"); @@ -20995,7 +21223,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3442:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3444:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ORALOB__V2*/ meltfptr[1]), 1, "OBDI_DESTLIST"); @@ -21013,7 +21241,7 @@ lab_endgetargs:; ( /*_#I__L3*/ meltfnum[1])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3445:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3447:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21025,7 +21253,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ICLASS__V8*/ meltfptr[7]), (melt_ptr_t) (( /*!CLASS_OBJVALUE */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:3445:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3447:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -21033,7 +21261,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3445:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3447:/ cond.else"); /*^block */ /*anyblock */ @@ -21047,7 +21275,7 @@ lab_endgetargs:; melt_assert_failed (("outpucod_objrawallocobj check iclass"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3445) ? (3445) : __LINE__, __FUNCTION__); + (3447) ? (3447) : __LINE__, __FUNCTION__); ; } ; @@ -21062,7 +21290,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3445:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3447:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[13] = 0; @@ -21073,7 +21301,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3446:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3448:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21097,7 +21325,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3447:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3449:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*rawallocobj*/ { melt_ptr_t newobj = 0;")); @@ -21107,14 +21335,14 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:3448:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3450:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L5*/ meltfnum[3]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3449:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3451:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_raw_object_create(newobj,(melt_ptr_t)(")); @@ -21122,7 +21350,7 @@ lab_endgetargs:; ; /*_#GET_INT__L6*/ meltfnum[5] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V12*/ meltfptr[11])));; - MELT_LOCATION ("warmelt-outobj.melt:3450:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3452:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -21146,7 +21374,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3451:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3453:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (")); @@ -21154,7 +21382,7 @@ lab_endgetargs:; ; /*_#GET_INT__L7*/ meltfnum[6] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V12*/ meltfptr[11])));; - MELT_LOCATION ("warmelt-outobj.melt:3452:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3454:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -21178,7 +21406,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3453:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3455:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), \"")); @@ -21186,7 +21414,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3454:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3456:/ locexp"); meltgc_add_strbuf_cstr ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.ICLANAME__V9*/ @@ -21195,7 +21423,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3455:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3457:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\");")); @@ -21219,7 +21447,7 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:3459:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3461:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L8*/ meltfnum[7]), 0); @@ -21228,7 +21456,7 @@ lab_endgetargs:; /*_#GET_INT__L9*/ meltfnum[8] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V12*/ meltfptr[11])));; - MELT_LOCATION ("warmelt-outobj.melt:3460:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3462:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -21254,7 +21482,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3461:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3463:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21265,7 +21493,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L10*/ meltfnum[9] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3462:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3464:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -21300,7 +21528,7 @@ lab_endgetargs:; /*_#I__L12*/ meltfnum[11] = (( /*_#STRBUF_USEDLENGTH__L10*/ meltfnum[9]) < ( /*_#GET_INT__L11*/ meltfnum[10]));; - MELT_LOCATION ("warmelt-outobj.melt:3461:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3463:/ cond"); /*cond */ if ( /*_#I__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -21308,7 +21536,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3461:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3463:/ cond.else"); /*^block */ /*anyblock */ @@ -21322,7 +21550,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3461) ? (3461) : __LINE__, + (3463) ? (3463) : __LINE__, __FUNCTION__); ; } @@ -21338,7 +21566,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3461:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3463:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V22*/ meltfptr[21] = 0; @@ -21357,7 +21585,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3463:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3465:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" =")); @@ -21370,7 +21598,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:3456:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3458:/ clear"); /*clear *//*_.DSTPAIR__V18*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.DST__V19*/ meltfptr[18] = 0; @@ -21385,7 +21613,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-outobj.melt:3438:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3440:/ clear"); /*clear *//*_.ILOC__V7*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.ICLASS__V8*/ meltfptr[7] = 0; @@ -21417,14 +21645,14 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:3464:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3466:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L13*/ meltfnum[9]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3465:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3467:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("newobj; };")); @@ -21432,14 +21660,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3466:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3468:/ 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:3467:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3469:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21450,7 +21678,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L14*/ meltfnum[10] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3468:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3470:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -21485,7 +21713,7 @@ lab_endgetargs:; /*_#I__L16*/ meltfnum[1] = (( /*_#STRBUF_USEDLENGTH__L14*/ meltfnum[10]) < ( /*_#GET_INT__L15*/ meltfnum[11]));; - MELT_LOCATION ("warmelt-outobj.melt:3467:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3469:/ cond"); /*cond */ if ( /*_#I__L16*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21493,7 +21721,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3467:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3469:/ cond.else"); /*^block */ /*anyblock */ @@ -21507,7 +21735,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3467) ? (3467) : __LINE__, __FUNCTION__); + (3469) ? (3469) : __LINE__, __FUNCTION__); ; } ; @@ -21522,7 +21750,7 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[21] = /*_.IFELSE___V26*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3467:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3469:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L14*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V25*/ meltfptr[22] = 0; @@ -21539,14 +21767,26 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[21] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3436:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3438:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V24*/ meltfptr[21];; - MELT_LOCATION ("warmelt-outobj.melt:3436:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:3438:/ 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 */ @@ -21645,7 +21885,7 @@ meltrout_95_warmelt_outobj_OUTPUCOD_OBJNEWCLOSURE (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3474:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3476:/ getarg"); /*_.OBNCLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -21683,7 +21923,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3475:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3477:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21695,7 +21935,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBNCLO__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJNEWCLOSURE */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:3475:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3477:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21703,7 +21943,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3475:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3477:/ cond.else"); /*^block */ /*anyblock */ @@ -21717,7 +21957,7 @@ lab_endgetargs:; melt_assert_failed (("check oralob"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3475) ? (3475) : __LINE__, __FUNCTION__); + (3477) ? (3477) : __LINE__, __FUNCTION__); ; } ; @@ -21732,7 +21972,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3475:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3477:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -21743,7 +21983,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3476:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3478:/ quasiblock"); /*^getslot */ @@ -21754,7 +21994,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3477:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3479:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBNCLO__V2*/ meltfptr[1]), 2, "OBNCLO_DISCR"); @@ -21762,7 +22002,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3478:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3480:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBNCLO__V2*/ meltfptr[1]), 3, "OBNCLO_ROUT"); @@ -21770,7 +22010,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3479:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3481:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBNCLO__V2*/ meltfptr[1]), 4, "OBNCLO_LEN"); @@ -21778,7 +22018,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3480:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3482:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBNCLO__V2*/ meltfptr[1]), 1, "OBDI_DESTLIST"); @@ -21794,7 +22034,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[1])), ( /*_#I__L3*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-outobj.melt:3483:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3485:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21818,13 +22058,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3484:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" /*newclosure*/ ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3487:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3489:/ quasiblock"); /*^newclosure */ @@ -21875,7 +22115,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BOXDEPTHP1__V13*/ meltfptr[12]); ; /*_.LAMBDA___V15*/ meltfptr[14] = /*_.LAMBDA___V16*/ meltfptr[15];; - MELT_LOCATION ("warmelt-outobj.melt:3485:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3487:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21898,14 +22138,14 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:3492:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3494:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L4*/ meltfnum[3]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3493:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3495:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("(melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(")); @@ -21913,7 +22153,7 @@ lab_endgetargs:; ; /*_#GET_INT__L5*/ meltfnum[4] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V13*/ meltfptr[12])));; - MELT_LOCATION ("warmelt-outobj.melt:3494:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3496:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -21937,7 +22177,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3495:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3497:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (meltroutine_ptr_t)(")); @@ -21945,7 +22185,7 @@ lab_endgetargs:; ; /*_#GET_INT__L6*/ meltfnum[5] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V13*/ meltfptr[12])));; - MELT_LOCATION ("warmelt-outobj.melt:3496:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3498:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -21969,7 +22209,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3497:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3499:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (")); @@ -21977,7 +22217,7 @@ lab_endgetargs:; ; /*_#GET_INT__L7*/ meltfnum[6] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V13*/ meltfptr[12])));; - MELT_LOCATION ("warmelt-outobj.melt:3498:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3500:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -22001,7 +22241,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3499:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3501:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("));")); @@ -22009,14 +22249,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3500:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3502:/ 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:3501:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3503:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22027,7 +22267,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L8*/ meltfnum[7] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3502:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3504:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22062,7 +22302,7 @@ lab_endgetargs:; /*_#I__L10*/ meltfnum[9] = (( /*_#STRBUF_USEDLENGTH__L8*/ meltfnum[7]) < ( /*_#GET_INT__L9*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-outobj.melt:3501:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3503:/ cond"); /*cond */ if ( /*_#I__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -22070,7 +22310,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3501:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3503:/ cond.else"); /*^block */ /*anyblock */ @@ -22084,7 +22324,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3501) ? (3501) : __LINE__, __FUNCTION__); + (3503) ? (3503) : __LINE__, __FUNCTION__); ; } ; @@ -22099,7 +22339,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3501:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3503:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V22*/ meltfptr[21] = 0; @@ -22120,7 +22360,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V21*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:3476:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3478:/ clear"); /*clear *//*_.ILOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ODISCR__V9*/ meltfptr[8] = 0; @@ -22156,14 +22396,26 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = 0; /*^clear */ /*clear *//*_.IFCPP___V21*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3474:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3476:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:3474:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:3476:/ 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 */ @@ -22257,7 +22509,7 @@ meltrout_96_warmelt_outobj_LAMBDA___24__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3487:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3489:/ getarg"); /*_.DST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -22270,7 +22522,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3488:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3490:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -22296,7 +22548,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3489:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3491:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22307,7 +22559,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:3490:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3492:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22342,7 +22594,7 @@ lab_endgetargs:; /*_#I__L4*/ meltfnum[3] = (( /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1]) < ( /*_#GET_INT__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:3489:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3491:/ cond"); /*cond */ if ( /*_#I__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -22350,7 +22602,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3489:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3491:/ cond.else"); /*^block */ /*anyblock */ @@ -22364,7 +22616,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3489) ? (3489) : __LINE__, __FUNCTION__); + (3491) ? (3491) : __LINE__, __FUNCTION__); ; } ; @@ -22379,7 +22631,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3489:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3491:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V5*/ meltfptr[4] = 0; @@ -22398,13 +22650,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3491:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3493:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (" =")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3487:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3489:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -22502,7 +22754,7 @@ meltrout_97_warmelt_outobj_OUTPUCOD_OBJTOUCH (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3507:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3509:/ getarg"); /*_.OTOUCH__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -22540,7 +22792,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3508:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3510:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22552,7 +22804,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OTOUCH__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJTOUCH */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:3508:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3510:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22560,7 +22812,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3508:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3510:/ cond.else"); /*^block */ /*anyblock */ @@ -22574,7 +22826,7 @@ lab_endgetargs:; melt_assert_failed (("check oclear"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3508) ? (3508) : __LINE__, __FUNCTION__); + (3510) ? (3510) : __LINE__, __FUNCTION__); ; } ; @@ -22589,7 +22841,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3508:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3510:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -22600,7 +22852,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3509:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3511:/ quasiblock"); /*^getslot */ @@ -22611,7 +22863,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3510:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3512:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OTOUCH__V2*/ meltfptr[1]), 1, "OTOUCH_VAL"); @@ -22619,7 +22871,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3511:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3513:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OTOUCH__V2*/ meltfptr[1]), 2, "OTOUCH_COMMENT"); @@ -22627,7 +22879,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3513:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3515:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22649,7 +22901,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3514:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3516:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -22662,7 +22914,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3516:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3518:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -22671,7 +22923,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3517:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3519:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -22681,7 +22933,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3518:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3520:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -22689,13 +22941,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3519:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3521:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3515:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3517:/ quasiblock"); /*epilog */ @@ -22705,13 +22957,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3521:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3523:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("meltgc_touch(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3522:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3524:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -22735,7 +22987,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3523:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3525:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -22743,13 +22995,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3524:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3526:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3509:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3511:/ clear"); /*clear *//*_.ILOC__V7*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.TOUCHED__V8*/ meltfptr[7] = 0; @@ -22759,7 +23011,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_LOCATION__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V11*/ meltfptr[10] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3507:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3509:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -22853,7 +23105,7 @@ meltrout_98_warmelt_outobj_OUTPUCOD_OBJPUTUPLE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3532:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3534:/ getarg"); /*_.OPTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -22891,7 +23143,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3533:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3535:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22903,7 +23155,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OPTUP__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJPUTUPLE */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:3533:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3535:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22911,7 +23163,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3533:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3535:/ cond.else"); /*^block */ /*anyblock */ @@ -22925,7 +23177,7 @@ lab_endgetargs:; melt_assert_failed (("check optyp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3533) ? (3533) : __LINE__, __FUNCTION__); + (3535) ? (3535) : __LINE__, __FUNCTION__); ; } ; @@ -22940,7 +23192,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3533:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3535:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -22951,7 +23203,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3534:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3536:/ quasiblock"); /*^getslot */ @@ -22962,7 +23214,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3535:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3537:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPTUP__V2*/ meltfptr[1]), 1, "OPUTU_TUPLED"); @@ -22970,7 +23222,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3536:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3538:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPTUP__V2*/ meltfptr[1]), 2, "OPUTU_OFFSET"); @@ -22979,7 +23231,7 @@ lab_endgetargs:; }; ; /*_#UNIQRANK__L3*/ meltfnum[1] = 0;; - MELT_LOCATION ("warmelt-outobj.melt:3538:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3540:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPTUP__V2*/ meltfptr[1]), 3, "OPUTU_VALUE"); @@ -22989,17 +23241,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3541:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3543:/ locexp"); static long UNIQRANKSET__1_cnt; UNIQRANKSET__1_cnt++; /*_#UNIQRANK__L3*/ meltfnum[1] = UNIQRANKSET__1_cnt; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:3547:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3549:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-outobj.melt:3545:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3547:/ quasiblock"); /*^multiapply */ @@ -23021,7 +23273,7 @@ lab_endgetargs:; /*^quasiblock */ - MELT_LOCATION ("warmelt-outobj.melt:3548:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3550:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23045,7 +23297,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3549:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3551:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*putupl")); @@ -23053,7 +23305,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3550:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3552:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#")); @@ -23061,14 +23313,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3551:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3553:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#UNIQRANK__L3*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3552:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3554:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -23076,20 +23328,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3553:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3555:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3554:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3556:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putupl ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3555:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3557:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#GET_INT__L4*/ meltfnum[3] = @@ -23098,7 +23350,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = (( /*_#GET_INT__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3555:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3557:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -23108,7 +23360,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3557:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3559:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("[")); @@ -23116,7 +23368,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3558:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3560:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -23127,7 +23379,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3559:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3561:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (":")); @@ -23137,7 +23389,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.LINEV__V13*/ meltfptr[12])));; { - MELT_LOCATION ("warmelt-outobj.melt:3560:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3562:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L6*/ meltfnum[5])); @@ -23145,18 +23397,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3561:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3563:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("] ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3556:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3558:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3555:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3557:/ clear"); /*clear *//*_#GET_INT__L6*/ meltfnum[5] = 0; } ; @@ -23164,7 +23416,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3563:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3565:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#")); @@ -23172,20 +23424,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3564:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3566:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#UNIQRANK__L3*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3565:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3567:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" checktup\", melt_magic_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3566:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3568:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23209,7 +23461,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3567:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3569:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))== MELTOBMAG_MULTIPLE);")); @@ -23217,20 +23469,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3568:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3570:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3569:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3571:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putupl ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3570:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3572:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#GET_INT__L7*/ meltfnum[5] = @@ -23239,7 +23491,7 @@ lab_endgetargs:; /*_#I__L8*/ meltfnum[7] = (( /*_#GET_INT__L7*/ meltfnum[5]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3570:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3572:/ cond"); /*cond */ if ( /*_#I__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -23249,7 +23501,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3572:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3574:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("[")); @@ -23257,7 +23509,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3573:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3575:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -23268,7 +23520,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3574:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3576:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (":")); @@ -23278,7 +23530,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.LINEV__V13*/ meltfptr[12])));; { - MELT_LOCATION ("warmelt-outobj.melt:3575:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3577:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L9*/ meltfnum[8])); @@ -23286,18 +23538,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3576:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3578:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("] ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3571:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3573:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3570:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3572:/ clear"); /*clear *//*_#GET_INT__L9*/ meltfnum[8] = 0; } ; @@ -23305,7 +23557,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3578:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3580:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#")); @@ -23313,20 +23565,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3579:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3581:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#UNIQRANK__L3*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3580:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3582:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" checkoff\", (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3581:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3583:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23350,13 +23602,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3582:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3584:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (">=0 && ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3583:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3585:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23380,13 +23632,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3584:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3586:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("< melt_multiple_length((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3585:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3587:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23410,7 +23662,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3586:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3588:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))));")); @@ -23418,20 +23670,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3587:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3589:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3588:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3590:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltmultiple_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3589:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3591:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23455,13 +23707,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3590:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3592:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))->tabval[")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3591:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3593:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23485,13 +23737,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3592:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3594:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("] = (melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3593:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3595:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23515,7 +23767,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3594:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3596:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -23523,14 +23775,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3595:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3597:/ 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:3596:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3598:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23541,7 +23793,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L10*/ meltfnum[8] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3597:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3599:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -23576,7 +23828,7 @@ lab_endgetargs:; /*_#I__L12*/ meltfnum[11] = (( /*_#STRBUF_USEDLENGTH__L10*/ meltfnum[8]) < ( /*_#GET_INT__L11*/ meltfnum[10]));; - MELT_LOCATION ("warmelt-outobj.melt:3596:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3598:/ cond"); /*cond */ if ( /*_#I__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -23584,7 +23836,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3596:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3598:/ cond.else"); /*^block */ /*anyblock */ @@ -23598,7 +23850,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3596) ? (3596) : __LINE__, __FUNCTION__); + (3598) ? (3598) : __LINE__, __FUNCTION__); ; } ; @@ -23613,7 +23865,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = /*_.IFELSE___V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3596:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3598:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L10*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V24*/ meltfptr[23] = 0; @@ -23630,12 +23882,12 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3545:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3547:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MULTI___V12*/ meltfptr[11] = /*_.IFCPP___V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-outobj.melt:3545:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3547:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_#GET_INT__L4*/ meltfnum[3] = 0; @@ -23666,7 +23918,7 @@ lab_endgetargs:; /*clear *//*_.FILEV__V14*/ meltfptr[13] = 0; /*_.LET___V7*/ meltfptr[5] = /*_.MULTI___V12*/ meltfptr[11];; - MELT_LOCATION ("warmelt-outobj.melt:3534:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3536:/ clear"); /*clear *//*_.ILOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OTUP__V9*/ meltfptr[8] = 0; @@ -23678,14 +23930,26 @@ lab_endgetargs:; /*clear *//*_.OVAL__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.MULTI___V12*/ meltfptr[11] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3532:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3534:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:3532:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:3534:/ 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 */ @@ -23782,7 +24046,7 @@ meltrout_99_warmelt_outobj_OUTPUCOD_OBJPUTPAIRHEAD (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3606:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3608:/ getarg"); /*_.OPUT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -23818,7 +24082,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:3607:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3609:/ quasiblock"); /*^getslot */ @@ -23829,7 +24093,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3608:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3610:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -23854,7 +24118,7 @@ lab_endgetargs:; /*_.OPAIR__V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3609:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3611:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -23878,7 +24142,7 @@ lab_endgetargs:; /*_.OHEAD__V8*/ meltfptr[7] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3610:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3612:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -23915,7 +24179,7 @@ lab_endgetargs:; (melt_unsafe_boxed_int_value ((melt_ptr_t) /*_.OLDCOUNT__V9*/ meltfptr[8]) + (1)))) : (melt_ptr_t) NULL);; - MELT_LOCATION ("warmelt-outobj.melt:3613:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3615:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23939,7 +24203,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3614:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3616:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*putpairhead*/")); @@ -23947,12 +24211,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3615:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3617:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3616:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3618:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -23992,7 +24256,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3617:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3619:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putpairhead /")); @@ -24002,20 +24266,20 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.NEWCOUNT__V10*/ meltfptr[9])));; { - MELT_LOCATION ("warmelt-outobj.melt:3618:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3620:/ locexp"); meltgc_add_strbuf_hex ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L2*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3619:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3621:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" checkpair\", melt_magic_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3620:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3622:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -24039,7 +24303,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3621:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3623:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))== MELTOBMAG_PAIR);")); @@ -24047,20 +24311,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3622:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3624:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3623:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3625:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltpair_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3624:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3626:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -24084,13 +24348,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3625:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3627:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))->hd = (melt_ptr_t) (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3626:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3628:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -24114,7 +24378,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3627:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3629:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -24122,14 +24386,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3628:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3630:/ 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:3629:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3631:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24140,7 +24404,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3630:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3632:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24175,7 +24439,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = (( /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2]) < ( /*_#GET_INT__L4*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3629:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3631:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -24183,7 +24447,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3629:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3631:/ cond.else"); /*^block */ /*anyblock */ @@ -24197,7 +24461,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3629) ? (3629) : __LINE__, __FUNCTION__); + (3631) ? (3631) : __LINE__, __FUNCTION__); ; } ; @@ -24212,7 +24476,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3629:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3631:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V16*/ meltfptr[15] = 0; @@ -24233,7 +24497,7 @@ lab_endgetargs:; /*_.LET___V5*/ meltfptr[4] = /*_.IFCPP___V15*/ meltfptr[14];; - MELT_LOCATION ("warmelt-outobj.melt:3607:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3609:/ clear"); /*clear *//*_.OLOC__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.OPAIR__V7*/ meltfptr[6] = 0; @@ -24255,11 +24519,23 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.IFCPP___V15*/ meltfptr[14] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3606:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3608:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[4];; - MELT_LOCATION ("warmelt-outobj.melt:3606:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:3608:/ 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 */ @@ -24357,7 +24633,7 @@ meltrout_100_warmelt_outobj_OUTPUCOD_OBJPUTPAIRTAIL (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3635:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3637:/ getarg"); /*_.OPUT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -24393,7 +24669,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:3636:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3638:/ quasiblock"); /*^getslot */ @@ -24404,7 +24680,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3637:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3639:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24429,7 +24705,7 @@ lab_endgetargs:; /*_.OPAIR__V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3638:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3640:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24453,7 +24729,7 @@ lab_endgetargs:; /*_.OTAIL__V8*/ meltfptr[7] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3640:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3642:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24477,7 +24753,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3641:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3643:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*putpairtail*/")); @@ -24485,14 +24761,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3642:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3644:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3643:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3645:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putpairtail /")); @@ -24502,20 +24778,20 @@ lab_endgetargs:; (melt_obj_hash ((melt_ptr_t) ( /*_.OPUT__V2*/ meltfptr[1])));; { - MELT_LOCATION ("warmelt-outobj.melt:3644:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3646:/ locexp"); meltgc_add_strbuf_hex ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#OBJ_HASH__L2*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3645:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3647:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" checkpair\", melt_magic_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3646:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3648:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -24539,7 +24815,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3647:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3649:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))== MELTOBMAG_PAIR);")); @@ -24547,20 +24823,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3648:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3650:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3649:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3651:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltpair_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3650:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3652:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -24584,13 +24860,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3651:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3653:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))->tl = (meltpair_ptr_t) (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3652:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3654:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -24614,7 +24890,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3653:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3655:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -24622,14 +24898,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3654:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3656:/ 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:3655:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3657:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24640,7 +24916,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3656:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3658:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24675,7 +24951,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = (( /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2]) < ( /*_#GET_INT__L4*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3655:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3657:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -24683,7 +24959,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3655:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3657:/ cond.else"); /*^block */ /*anyblock */ @@ -24697,7 +24973,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3655) ? (3655) : __LINE__, __FUNCTION__); + (3657) ? (3657) : __LINE__, __FUNCTION__); ; } ; @@ -24712,7 +24988,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3655:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3657:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V14*/ meltfptr[13] = 0; @@ -24733,7 +25009,7 @@ lab_endgetargs:; /*_.LET___V5*/ meltfptr[4] = /*_.IFCPP___V13*/ meltfptr[12];; - MELT_LOCATION ("warmelt-outobj.melt:3636:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3638:/ clear"); /*clear *//*_.OLOC__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.OPAIR__V7*/ meltfptr[6] = 0; @@ -24751,11 +25027,23 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.IFCPP___V13*/ meltfptr[12] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3635:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3637:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[4];; - MELT_LOCATION ("warmelt-outobj.melt:3635:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:3637:/ 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 */ @@ -24849,7 +25137,7 @@ meltrout_101_warmelt_outobj_OUTPUCOD_OBJPUTLIST (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3661:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3663:/ getarg"); /*_.OPUT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -24885,7 +25173,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:3662:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3664:/ quasiblock"); /*^getslot */ @@ -24896,7 +25184,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3663:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3665:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24921,7 +25209,7 @@ lab_endgetargs:; /*_.OLIST__V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3664:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3666:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24946,7 +25234,7 @@ lab_endgetargs:; /*_.OFIRST__V8*/ meltfptr[7] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3665:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3667:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24971,7 +25259,7 @@ lab_endgetargs:; /*_.OLAST__V9*/ meltfptr[8] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3667:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3669:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24995,7 +25283,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3668:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3670:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*putlist*/")); @@ -25003,20 +25291,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3669:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3671:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3670:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3672:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putlist checklist\", melt_magic_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3671:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3673:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -25040,7 +25328,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3672:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3674:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))== MELTOBMAG_LIST);")); @@ -25048,20 +25336,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3673:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3675:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3674:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3676:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltlist_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3675:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3677:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -25085,13 +25373,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3676:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3678:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))->first = (meltpair_ptr_t) (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3677:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3679:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -25115,7 +25403,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3678:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3680:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -25123,20 +25411,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3679:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3681:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3680:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3682:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltlist_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3681:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3683:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -25160,13 +25448,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3682:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3684:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))->last = (meltpair_ptr_t) (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3683:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3685:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -25190,7 +25478,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3684:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3686:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -25198,14 +25486,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3685:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3687:/ 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:3686:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3688:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25216,7 +25504,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3687:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3689:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -25251,7 +25539,7 @@ lab_endgetargs:; /*_#I__L4*/ meltfnum[3] = (( /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1]) < ( /*_#GET_INT__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:3686:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3688:/ cond"); /*cond */ if ( /*_#I__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -25259,7 +25547,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3686:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3688:/ cond.else"); /*^block */ /*anyblock */ @@ -25273,7 +25561,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3686) ? (3686) : __LINE__, __FUNCTION__); + (3688) ? (3688) : __LINE__, __FUNCTION__); ; } ; @@ -25288,7 +25576,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3686:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3688:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V17*/ meltfptr[16] = 0; @@ -25309,7 +25597,7 @@ lab_endgetargs:; /*_.LET___V5*/ meltfptr[4] = /*_.IFCPP___V16*/ meltfptr[15];; - MELT_LOCATION ("warmelt-outobj.melt:3662:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3664:/ clear"); /*clear *//*_.OLOC__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.OLIST__V7*/ meltfptr[6] = 0; @@ -25331,11 +25619,23 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.IFCPP___V16*/ meltfptr[15] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3661:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3663:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[4];; - MELT_LOCATION ("warmelt-outobj.melt:3661:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:3663:/ 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 */ @@ -25429,7 +25729,7 @@ meltrout_102_warmelt_outobj_OUTPUCOD_OBJGETSLOT (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3692:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3694:/ getarg"); /*_.OGSL__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -25467,7 +25767,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3693:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3695:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25479,7 +25779,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OGSL__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJGETSLOT */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:3693:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3695:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -25487,7 +25787,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3693:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3695:/ cond.else"); /*^block */ /*anyblock */ @@ -25501,7 +25801,7 @@ lab_endgetargs:; melt_assert_failed (("check ogsl"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3693) ? (3693) : __LINE__, __FUNCTION__); + (3695) ? (3695) : __LINE__, __FUNCTION__); ; } ; @@ -25516,7 +25816,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3693:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3695:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -25527,7 +25827,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3694:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3696:/ quasiblock"); /*^getslot */ @@ -25538,7 +25838,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3695:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3697:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OGSL__V2*/ meltfptr[1]), 1, "OBDI_DESTLIST"); @@ -25546,7 +25846,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3696:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3698:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OGSL__V2*/ meltfptr[1]), 2, "OGETSL_OBJ"); @@ -25554,7 +25854,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3697:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3699:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OGSL__V2*/ meltfptr[1]), 3, "OGETSL_FIELD"); @@ -25572,7 +25872,7 @@ lab_endgetargs:; ( /*_#I__L3*/ meltfnum[1])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3700:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3702:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25584,7 +25884,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OFIELD__V11*/ meltfptr[10]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:3700:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3702:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -25592,7 +25892,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3700:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3702:/ cond.else"); /*^block */ /*anyblock */ @@ -25606,7 +25906,7 @@ lab_endgetargs:; melt_assert_failed (("check ofield"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3700) ? (3700) : __LINE__, __FUNCTION__); + (3702) ? (3702) : __LINE__, __FUNCTION__); ; } ; @@ -25621,7 +25921,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3700:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3702:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[13] = 0; @@ -25632,7 +25932,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3701:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3703:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25656,7 +25956,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3702:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{ melt_ptr_t slot=0;")); @@ -25666,20 +25966,20 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3703:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3705:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L5*/ meltfnum[3]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3704:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3706:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_object_get_field(slot,(melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3705:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3707:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -25703,7 +26003,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3706:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3708:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), ")); @@ -25713,20 +26013,20 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.OFIELD__V11*/ meltfptr[10])));; { - MELT_LOCATION ("warmelt-outobj.melt:3707:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3709:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L6*/ meltfnum[5])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3708:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3710:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (", \"")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3709:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3711:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OFIELD__V11*/ meltfptr[10]), 1, "NAMED_NAME"); @@ -25746,13 +26046,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3710:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3712:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\");")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3713:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3715:/ quasiblock"); /*^newclosure */ @@ -25803,7 +26103,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BOXDEPTHP1__V12*/ meltfptr[11]); ; /*_.LAMBDA___V18*/ meltfptr[17] = /*_.LAMBDA___V19*/ meltfptr[18];; - MELT_LOCATION ("warmelt-outobj.melt:3711:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3713:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25824,7 +26124,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3718:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3720:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("slot; };")); @@ -25832,14 +26132,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3719:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3721:/ 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:3720:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3722:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25850,7 +26150,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3721:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3723:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -25885,7 +26185,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6]) < ( /*_#GET_INT__L8*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:3720:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3722:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -25893,7 +26193,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3720:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3722:/ cond.else"); /*^block */ /*anyblock */ @@ -25907,7 +26207,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3720) ? (3720) : __LINE__, __FUNCTION__); + (3722) ? (3722) : __LINE__, __FUNCTION__); ; } ; @@ -25922,7 +26222,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3720:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3722:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V22*/ meltfptr[21] = 0; @@ -25943,7 +26243,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V21*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:3694:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3696:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.DESTLIST__V9*/ meltfptr[8] = 0; @@ -25973,14 +26273,26 @@ lab_endgetargs:; /*clear *//*_.LIST_EVERY__V20*/ meltfptr[19] = 0; /*^clear */ /*clear *//*_.IFCPP___V21*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3692:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3694:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:3692:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:3694:/ 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 */ @@ -26074,7 +26386,7 @@ meltrout_103_warmelt_outobj_LAMBDA___25__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3713:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3715:/ getarg"); /*_.DST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -26087,7 +26399,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3714:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3716:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -26113,7 +26425,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3715:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3717:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26124,7 +26436,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:3716:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3718:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -26159,7 +26471,7 @@ lab_endgetargs:; /*_#I__L4*/ meltfnum[3] = (( /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1]) < ( /*_#GET_INT__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:3715:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3717:/ cond"); /*cond */ if ( /*_#I__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -26167,7 +26479,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3715:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3717:/ cond.else"); /*^block */ /*anyblock */ @@ -26181,7 +26493,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3715) ? (3715) : __LINE__, __FUNCTION__); + (3717) ? (3717) : __LINE__, __FUNCTION__); ; } ; @@ -26196,7 +26508,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3715:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3717:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V5*/ meltfptr[4] = 0; @@ -26215,13 +26527,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3717:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3719:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (" = ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3713:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3715:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -26319,7 +26631,7 @@ meltrout_104_warmelt_outobj_OUTPUCOD_OBJPUTSLOT (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3728:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3730:/ getarg"); /*_.OPSLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -26357,7 +26669,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3729:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3731:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26369,7 +26681,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OPSLO__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJPUTSLOT */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:3729:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3731:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -26377,7 +26689,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3729:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3731:/ cond.else"); /*^block */ /*anyblock */ @@ -26391,7 +26703,7 @@ lab_endgetargs:; melt_assert_failed (("check opslo"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3729) ? (3729) : __LINE__, __FUNCTION__); + (3731) ? (3731) : __LINE__, __FUNCTION__); ; } ; @@ -26406,7 +26718,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3729:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3731:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -26417,7 +26729,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3730:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3732:/ quasiblock"); /*^getslot */ @@ -26428,7 +26740,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3731:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3733:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPSLO__V2*/ meltfptr[1]), 1, "OSLOT_ODATA"); @@ -26436,7 +26748,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3732:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3734:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPSLO__V2*/ meltfptr[1]), 2, "OSLOT_OFFSET"); @@ -26444,7 +26756,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3733:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3735:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPSLO__V2*/ meltfptr[1]), 3, "OSLOT_FIELD"); @@ -26452,7 +26764,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3734:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3736:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPSLO__V2*/ meltfptr[1]), 4, "OSLOT_VALUE"); @@ -26462,7 +26774,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3736:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3738:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26478,7 +26790,7 @@ lab_endgetargs:; /*_#NOT__L4*/ meltfnum[3] = (!( /*_#IS_A__L3*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-outobj.melt:3736:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3738:/ cond"); /*cond */ if ( /*_#NOT__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -26486,7 +26798,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3736:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3738:/ cond.else"); /*^block */ /*anyblock */ @@ -26500,7 +26812,7 @@ lab_endgetargs:; melt_assert_failed (("outpucod_objputslot check oval not nrep"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3736) ? (3736) : __LINE__, __FUNCTION__); + (3738) ? (3738) : __LINE__, __FUNCTION__); ; } ; @@ -26515,7 +26827,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3736:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3738:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_#NOT__L4*/ meltfnum[3] = 0; @@ -26528,7 +26840,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3737:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3739:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26552,7 +26864,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3738:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3740:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*putslot*/")); @@ -26560,27 +26872,27 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3739:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3741:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3740:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3742:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putslot checkobj")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3741:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3743:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.ODATA__V9*/ meltfptr[8]), (melt_ptr_t) (( /*!CLASS_NAMED */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:3741:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3743:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -26590,13 +26902,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3743:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3745:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3744:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3746:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ODATA__V9*/ meltfptr[8]), 1, "NAMED_NAME"); @@ -26615,25 +26927,25 @@ lab_endgetargs:; meltfptr[15]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:3742:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3744:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3741:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3743:/ clear"); /*clear *//*_.NAMED_NAME__V16*/ meltfptr[15] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3745:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3747:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L6*/ meltfnum[3] = melt_is_instance_of ((melt_ptr_t) ( /*_.OFIELD__V11*/ meltfptr[10]), (melt_ptr_t) (( /*!CLASS_NAMED */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:3745:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3747:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -26643,13 +26955,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3747:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3749:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" @")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3748:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3750:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OFIELD__V11*/ meltfptr[10]), 1, "NAMED_NAME"); @@ -26668,12 +26980,12 @@ lab_endgetargs:; meltfptr[15]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:3746:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3748:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3745:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3747:/ clear"); /*clear *//*_.NAMED_NAME__V17*/ meltfptr[15] = 0; } ; @@ -26681,13 +26993,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3749:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3751:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\", melt_magic_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3750:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3752:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -26711,7 +27023,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3751:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3753:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")) == MELTOBMAG_OBJECT);")); @@ -26719,19 +27031,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3752:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3754:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3753:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3755:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[6] = melt_is_instance_of ((melt_ptr_t) ( /*_.OFIELD__V11*/ meltfptr[10]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout-> tabval[5])));; - MELT_LOCATION ("warmelt-outobj.melt:3753:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3755:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -26741,14 +27053,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3755:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3757:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_putfield_object((")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3756:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3758:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -26774,13 +27086,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3757:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3759:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3758:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3760:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -26806,7 +27118,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3759:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3761:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (")); @@ -26814,7 +27126,7 @@ lab_endgetargs:; ; /*_#I__L8*/ meltfnum[7] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:3760:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3762:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -26840,13 +27152,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3761:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3763:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), \"")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3762:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3764:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OFIELD__V11*/ meltfptr[10]), 1, "NAMED_NAME"); @@ -26866,18 +27178,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3763:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3765:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\");")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3754:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3756:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3753:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3755:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = 0; @@ -26899,7 +27211,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3767:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3769:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); @@ -26907,21 +27219,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3768:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3770:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putslot checkoff")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3769:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3771:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L9*/ meltfnum[7] = melt_is_instance_of ((melt_ptr_t) ( /*_.ODATA__V9*/ meltfptr[8]), (melt_ptr_t) (( /*!CLASS_NAMED */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:3769:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3771:/ cond"); /*cond */ if ( /*_#IS_A__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -26931,14 +27243,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3771:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3773:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3772:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3774:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ODATA__V9*/ meltfptr[8]), 1, "NAMED_NAME"); @@ -26956,18 +27268,18 @@ lab_endgetargs:; ( /*_.NAMED_NAME__V23*/ meltfptr[18]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:3770:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3772:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3769:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3771:/ clear"); /*clear *//*_.NAMED_NAME__V23*/ meltfptr[18] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3773:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3775:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L10*/ meltfnum[9] = @@ -26975,7 +27287,7 @@ lab_endgetargs:; ( /*_.OFIELD__V11*/ meltfptr[10]), (melt_ptr_t) (( /*!CLASS_NAMED */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:3773:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3775:/ cond"); /*cond */ if ( /*_#IS_A__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -26985,14 +27297,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3775:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3777:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" @")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3776:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3778:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OFIELD__V11*/ meltfptr[10]), 1, "NAMED_NAME"); @@ -27010,12 +27322,12 @@ lab_endgetargs:; ( /*_.NAMED_NAME__V24*/ meltfptr[19]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:3774:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3776:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3773:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3775:/ clear"); /*clear *//*_.NAMED_NAME__V24*/ meltfptr[19] = 0; } ; @@ -27023,13 +27335,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3777:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3779:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\", (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3778:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3780:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27055,14 +27367,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3779:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3781:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (">=0 && ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3780:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3782:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27088,14 +27400,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3781:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3783:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("< melt_object_length((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3782:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3784:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27121,7 +27433,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3783:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3785:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))));")); @@ -27129,7 +27441,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3784:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3786:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); @@ -27137,14 +27449,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3785:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3787:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltobject_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3786:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3788:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27170,14 +27482,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3787:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3789:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))->obj_vartab[")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3788:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3790:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27203,7 +27515,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3789:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3791:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -27214,7 +27526,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3790:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3792:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L11*/ meltfnum[10]), 0); @@ -27222,7 +27534,7 @@ lab_endgetargs:; ; /*_#I__L12*/ meltfnum[11] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:3791:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3793:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27248,18 +27560,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3792:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3794:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3765:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3767:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3753:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3755:/ clear"); /*clear *//*_#IS_A__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_#IS_A__L10*/ meltfnum[9] = 0; @@ -27285,14 +27597,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3795:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3797:/ 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:3796:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3798:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27303,7 +27615,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L13*/ meltfnum[7] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3797:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3799:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -27338,7 +27650,7 @@ lab_endgetargs:; /*_#I__L15*/ meltfnum[10] = (( /*_#STRBUF_USEDLENGTH__L13*/ meltfnum[7]) < ( /*_#GET_INT__L14*/ meltfnum[9]));; - MELT_LOCATION ("warmelt-outobj.melt:3796:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3798:/ cond"); /*cond */ if ( /*_#I__L15*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -27346,7 +27658,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3796:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3798:/ cond.else"); /*^block */ /*anyblock */ @@ -27360,7 +27672,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3796) ? (3796) : __LINE__, __FUNCTION__); + (3798) ? (3798) : __LINE__, __FUNCTION__); ; } ; @@ -27375,7 +27687,7 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[20] = /*_.IFELSE___V33*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3796:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3798:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L13*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V32*/ meltfptr[21] = 0; @@ -27396,7 +27708,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V31*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:3730:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3732:/ clear"); /*clear *//*_.ILOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ODATA__V9*/ meltfptr[8] = 0; @@ -27420,14 +27732,26 @@ lab_endgetargs:; /*clear *//*_#IS_A__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IFCPP___V31*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3728:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3730:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION ("warmelt-outobj.melt:3728:/ finalreturn"); + + { + MELT_LOCATION ("warmelt-outobj.melt:3730:/ 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 */ |